Lines Matching refs:g_fock
27 integer g_fock(4) ! GA handles for (anti-)symmetrized fock matrix
76 if(.not.ga_create(mt_dbl,nbf,nbf,'fock',0,0,g_fock(i)))
78 call ga_zero(g_fock(i))
119 $ tol2e, .false., g_dens, g_fock, .false.)
126 omega2 = omega2 + ga_ddot (g_fock(1),g_dens(1))
127 omega2 = omega2 + ga_ddot (g_fock(1),g_dens(2))
128 omega2 = omega2 + ga_ddot (g_fock(2),g_dens(1))
129 omega2 = omega2 + ga_ddot (g_fock(2),g_dens(2))
130 omega2 = omega2 - ga_ddot (g_fock(3),g_dens(1))
131 omega2 = omega2 - ga_ddot (g_fock(4),g_dens(2))
181 $ tol2e, .false., g_dens, g_fock, .true.)
184 call ga_antisymmetrize (g_fock(i))
191 omega2 = omega2 - ga_ddot (g_fock(1),g_dens(1))
192 omega2 = omega2 - ga_ddot (g_fock(2),g_dens(2))
213 if(.not.ga_destroy(g_fock(i)))