Searched refs:cvT_AmI_dAmj (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | cp_ddapc_util.F | 231 cvT_AmI_dAmj, dAmj_qv, qtot, qv local
403 ALLOCATE (cvT_AmI_dAmj(ndim))
455 … cvT_AmI_dAmj(:pmin - 1) = MATMUL(TRANSPOSE(dAm(pmin:pmax, :pmin - 1, j)), cvT_AmI(pmin:pmax))
459 cvT_AmI_dAmj(pmin:pmax) = MATMUL(dAm(pmin:pmax, :, j), cvT_AmI(:))
464 … cvT_AmI_dAmj(pmax + 1:) = MATMUL(TRANSPOSE(dAm(pmin:pmax, pmax + 1:, j)), cvT_AmI(pmin:pmax))
467 cvT_AmI_dAmj(:) = cvT_AmI_dAmj(:)/(Vol*Vol)
468 …c3 = DOT_PRODUCT(cvT_AmI_dAmj, AmI_bv) - DOT_PRODUCT(cvT_AmI, dbv(:, j)) - c1*DOT_PRODUCT(cvT_AmI_…
503 DEALLOCATE (cvT_AmI_dAmj)
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | cp_ddapc_util.F | 231 cvT_AmI_dAmj, dAmj_qv, qtot, qv local
403 ALLOCATE (cvT_AmI_dAmj(ndim))
455 … cvT_AmI_dAmj(:pmin - 1) = MATMUL(TRANSPOSE(dAm(pmin:pmax, :pmin - 1, j)), cvT_AmI(pmin:pmax))
459 cvT_AmI_dAmj(pmin:pmax) = MATMUL(dAm(pmin:pmax, :, j), cvT_AmI(:))
464 … cvT_AmI_dAmj(pmax + 1:) = MATMUL(TRANSPOSE(dAm(pmin:pmax, pmax + 1:, j)), cvT_AmI(pmin:pmax))
467 cvT_AmI_dAmj(:) = cvT_AmI_dAmj(:)/(Vol*Vol)
468 …c3 = DOT_PRODUCT(cvT_AmI_dAmj, AmI_bv) - DOT_PRODUCT(cvT_AmI, dbv(:, j)) - c1*DOT_PRODUCT(cvT_AmI_…
503 DEALLOCATE (cvT_AmI_dAmj)
|