Searched refs:summe_st (Results 1 – 2 of 2) sorted by relevance
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | ewalds_multipole.F | 669 COMPLEX(KIND=dp), ALLOCATABLE, DIMENSION(:, :) :: summe_st local 712 ALLOCATE (summe_st(3, 1:pw_grid%ngpts_cut)) 713 summe_st = CMPLX(0.0_dp, 0.0_dp, KIND=dp) 774 summe_st(1:3, gpt) = summe_st(1:3, gpt) + atm_factor_st(1:3)*summe_tmp 783 IF (do_stress) CALL mp_sum(summe_st, group) 912 …pv_tmp(1, 1) = pv_tmp(1, 1) + f0*pw_grid%g(1, gpt)*REAL(summe_st(1, gpt)*CONJG(summe_ef(gpt)), KIN… 913 …pv_tmp(1, 2) = pv_tmp(1, 2) + f0*pw_grid%g(1, gpt)*REAL(summe_st(2, gpt)*CONJG(summe_ef(gpt)), KIN… 914 …pv_tmp(1, 3) = pv_tmp(1, 3) + f0*pw_grid%g(1, gpt)*REAL(summe_st(3, gpt)*CONJG(summe_ef(gpt)), KIN… 915 …pv_tmp(2, 1) = pv_tmp(2, 1) + f0*pw_grid%g(2, gpt)*REAL(summe_st(1, gpt)*CONJG(summe_ef(gpt)), KIN… 916 …pv_tmp(2, 2) = pv_tmp(2, 2) + f0*pw_grid%g(2, gpt)*REAL(summe_st(2, gpt)*CONJG(summe_ef(gpt)), KIN… [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | ewalds_multipole.F | 672 COMPLEX(KIND=dp), ALLOCATABLE, DIMENSION(:, :) :: summe_st local 715 ALLOCATE (summe_st(3, 1:pw_grid%ngpts_cut)) 716 summe_st = CMPLX(0.0_dp, 0.0_dp, KIND=dp) 777 summe_st(1:3, gpt) = summe_st(1:3, gpt)+atm_factor_st(1:3)*summe_tmp 786 IF (do_stress) CALL mp_sum(summe_st, group) 915 …pv_tmp(1, 1) = pv_tmp(1, 1)+f0*pw_grid%g(1, gpt)*REAL(summe_st(1, gpt)*CONJG(summe_ef(gpt)), KIND=… 916 …pv_tmp(1, 2) = pv_tmp(1, 2)+f0*pw_grid%g(1, gpt)*REAL(summe_st(2, gpt)*CONJG(summe_ef(gpt)), KIND=… 917 …pv_tmp(1, 3) = pv_tmp(1, 3)+f0*pw_grid%g(1, gpt)*REAL(summe_st(3, gpt)*CONJG(summe_ef(gpt)), KIND=… 918 …pv_tmp(2, 1) = pv_tmp(2, 1)+f0*pw_grid%g(2, gpt)*REAL(summe_st(1, gpt)*CONJG(summe_ef(gpt)), KIND=… 919 …pv_tmp(2, 2) = pv_tmp(2, 2)+f0*pw_grid%g(2, gpt)*REAL(summe_st(2, gpt)*CONJG(summe_ef(gpt)), KIND=… [all …]
|