Lines Matching refs:g_fock
201 integer g_fock(4) ! GA handle for AO density matrices local
226 1 -1,-1,g_fock(i))) call errquit('tce_ao1e: GA problem',3,
228 call ga_zero(g_fock(i))
271 1 jf,kf,tol2e,.false.,g_dens,g_fock,.false.)
282 1 jf,kf,tol2e,.false.,g_dens,g_fock,.false.)
285 call ga_add(1.0d0,g_hcore,1.0d0,g_fock(1),g_ao1e(1))
288 call ga_add(1.0d0,g_hcore,1.0d0,g_fock(1),g_ao1e(1))
289 call ga_add(1.0d0,g_ao1e(1),1.0d0,g_fock(2),g_ao1e(1))
290 call ga_add(1.0d0,g_ao1e(1),-1.0d0,g_fock(3),g_ao1e(1))
291 call ga_add(1.0d0,g_hcore,1.0d0,g_fock(1),g_ao1e(2))
292 call ga_add(1.0d0,g_ao1e(2),1.0d0,g_fock(2),g_ao1e(2))
293 call ga_add(1.0d0,g_ao1e(2),-1.0d0,g_fock(4),g_ao1e(2))
309 if (.not.ga_destroy(g_fock(i)))