Searched refs:mpole_rho (Results 1 – 2 of 2) sorted by relevance
207 NULLIFY (mpole_rho)234 mpole_rho => rho0_mp%mp_rho(iatom)265 mpole_rho%Qlm_h(iso) = 0.0_dp266 mpole_rho%Qlm_s(iso) = 0.0_dp269 mpole_rho%Qlm_h(iso) = mpole_rho%Qlm_h(iso) + &272 mpole_rho%Qlm_s(iso) = mpole_rho%Qlm_s(iso) + &277 mpole_rho%Qlm_tot(iso) = mpole_rho%Qlm_tot(iso) + &278 mpole_rho%Qlm_h(iso) - mpole_rho%Qlm_s(iso)303 mpole_rho => rho0_mp%mp_rho(iatom)315 mpole_rho => rho0_mp%mp_rho(iatom)[all …]
214 NULLIFY (mpole_rho)239 mpole_rho => rho0_mp%mp_rho(iatom)270 mpole_rho%Qlm_h(iso) = 0.0_dp271 mpole_rho%Qlm_s(iso) = 0.0_dp274 mpole_rho%Qlm_h(iso) = mpole_rho%Qlm_h(iso) + &277 mpole_rho%Qlm_s(iso) = mpole_rho%Qlm_s(iso) + &282 mpole_rho%Qlm_tot(iso) = mpole_rho%Qlm_tot(iso) + &283 mpole_rho%Qlm_h(iso) - mpole_rho%Qlm_s(iso)308 mpole_rho => rho0_mp%mp_rho(iatom)320 mpole_rho => rho0_mp%mp_rho(iatom)[all …]