Searched refs:dAmj_qv (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
408 ALLOCATE (dAmj_qv(ndim))
454 … dAmj_qv(:pmin - 1) = MATMUL(TRANSPOSE(dAm(pmin:pmax, :pmin - 1, j)), qv(pmin:pmax))
458 dAmj_qv(pmin:pmax) = MATMUL(dAm(pmin:pmax, :, j), qv(:))
463 … dAmj_qv(pmax + 1:) = MATMUL(TRANSPOSE(dAm(pmin:pmax, pmax + 1:, j)), qv(pmin:pmax))
466 dAmj_qv(:) = dAmj_qv(:)/(Vol*Vol)
469 tv(:, iparticle, j) = -(dAmj_qv(:) + dbv(:, j) + c3/cp_ddapc_env%c0*cv)
506 DEALLOCATE (dAmj_qv)
|
| /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
408 ALLOCATE (dAmj_qv(ndim))
454 … dAmj_qv(:pmin - 1) = MATMUL(TRANSPOSE(dAm(pmin:pmax, :pmin - 1, j)), qv(pmin:pmax))
458 dAmj_qv(pmin:pmax) = MATMUL(dAm(pmin:pmax, :, j), qv(:))
463 … dAmj_qv(pmax + 1:) = MATMUL(TRANSPOSE(dAm(pmin:pmax, pmax + 1:, j)), qv(pmin:pmax))
466 dAmj_qv(:) = dAmj_qv(:)/(Vol*Vol)
469 tv(:, iparticle, j) = -(dAmj_qv(:) + dbv(:, j) + c3/cp_ddapc_env%c0*cv)
506 DEALLOCATE (dAmj_qv)
|