Searched refs:g_hartree (Results 1 – 2 of 2) sorted by relevance
563 NULLIFY (g_hartree)573 g_hartree => v_hartree_gspace%pw574 Vol = g_hartree%pw_grid%vol581 IF (g_hartree%pw_grid%have_g0) g_hartree%cc(1) = g_hartree%cc(1) + sfac*fac2/fac582 DO ig = g_hartree%pw_grid%first_gne0, g_hartree%pw_grid%ngpts_cut_local602 g_hartree%cc(ig) = g_hartree%cc(ig) + sfac*g_corr/Vol639 NULLIFY (g_hartree)643 Vol = g_hartree%pw_grid%vol653 IF (g_hartree%pw_grid%have_g0) g_hartree%cc(1) = g_hartree%cc(1) + sfac*fac2/fac654 DO ig = g_hartree%pw_grid%first_gne0, g_hartree%pw_grid%ngpts_cut_local[all …]