Lines Matching refs:g_fock
30 integer g_fock local
109 $ 0, 0, g_fock)) call
155 call rohf_get_fock( g_fock )
163 call ga_dgemm( 'n', 't', nbf, nbf, nbf, 1.d0, g_fock,
166 $ g_over, 0.d0, g_fock )
168 $ g_fock, 0.d0, g_tmp )
170 $ g_tmp, 0.d0, g_fock )
174 call rohf_errvec( g_fock, g_movecs, g_over, g_xorth,
199 $ g_fock, odo_diis )
204 call scf_dump_evp_input(rtdb,g_fock,g_over)
208 call ga_pdsygv(g_fock,g_over, g_tmp, dbl_mb(k_eval))
210 call ga_diag( g_fock, g_over, g_tmp, dbl_mb(k_eval))
213 call ga_diag_seq( g_fock, g_over, g_tmp, dbl_mb(k_eval))
287 if (.not. ga_destroy(g_fock)) call errquit
312 subroutine rohf_diis( nbf, iter, ndiis, g_err, g_bas, g_fock, argument
318 integer g_fock local
337 call ga_copy_patch( 'n', g_fock, 1, nbf, 1, nbf,
369 $ g_fock, 1, nbf, 1, nbf )
384 subroutine rohf_errvec( g_fock, g_vecs, g_over, g_xorth, argument
389 integer g_fock local
413 call ga_dgemm( 'n', 'n', nbf, nbf, nbf, 1.d0, g_fock,