comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-27 21:55:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

trying to improve parallelization

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

9
src/ddscf/int_dip_ga.F
View file

@ -279,6 +279,7 @@ c end do
double precision buf(jlo:jhi,6,ilo:ihi)
integer i, j
do i = ilo,ihi
#if 0
do j = jlo, jhi
call ga_put(g_xx,i,i,j,j,buf(j,1,i),1)
call ga_put(g_xy,i,i,j,j,buf(j,2,i),1)
@ -287,6 +288,14 @@ c end do
call ga_put(g_yz,i,i,j,j,buf(j,5,i),1)
call ga_put(g_zz,i,i,j,j,buf(j,6,i),1)
end do
#else
call ga_put(g_xx,jlo,jhi,i,i,buf(jlo,1,i),1)
call ga_put(g_xy,jlo,jhi,i,i,buf(jlo,2,i),1)
call ga_put(g_xz,jlo,jhi,i,i,buf(jlo,3,i),1)
call ga_put(g_yy,jlo,jhi,i,i,buf(jlo,4,i),1)
call ga_put(g_yz,jlo,jhi,i,i,buf(jlo,5,i),1)
call ga_put(g_zz,jlo,jhi,i,i,buf(jlo,6,i),1)
#endif
end do
end