Home
last modified time | relevance | path

Searched refs:summe_st (Results 1 – 2 of 2) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dewalds_multipole.F669 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 Dewalds_multipole.F672 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 …]