comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-29 06:35:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

move sync one loop deeper

Browse source
This commit is contained in:
edoapra 2025-10-08 14:58:25 -07:00
parent 9f0665281c
commit be35385865
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
1 changed files with 1 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/ddscf/localize.F
View file

@ -1,23 +1,3 @@
subroutine fudgeit(rtdb)
implicit none
#include "cscf.fh"
#include "mafdecls.fh"
#include "global.fh"
#include "geom.fh"
#include "rtdb.fh"
c
integer rtdb
integer g_over, g_sc
integer ga_create_atom_blocked
c
g_over = ga_create_atom_blocked(geom, basis, 'tmp')
call int_1e_ga(basis, basis, g_over, 'overlap', .false.)
call ga_matpow(g_over, -0.5d0, 1d-12)
call ga_dgemm('n', 'n', nbf, nmo, nbf,
$ 1.0d0, g_over, g_movecs, 0.0d0, g_sc)
end
c
c =================================================================
c
@ -584,8 +564,8 @@ c
end do
end if
end if
call ga_sync
end do
call ga_sync
end do
end do
c