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

fix race condition

Browse source
This commit is contained in:
edoapra 2025-10-09 15:30:47 -07:00
parent e0bb80c5e4
commit dd726be2d6
No known key found for this signature in database
GPG key ID: B7B4C4CB135B4E7A
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/ddscf/int_dip_ga.F
View file

@ -85,6 +85,7 @@
iproc = ga_nodeid()
nproc = ga_nnodes()
ijshell = 0
call ga_sync()
do jshell = 1,nshell_j
do ishell = 1,nshell_i
if(mod(ijshell,nproc).eq.iproc)then
@ -118,6 +119,7 @@
if(.not.MA_pop_stack(l_buf))
$ call errquit('int_dip_ga:pop failed',0, MA_ERR)
!
call ga_sync()
if (do_mirr) then
g_x=g_x_org
call util_mirrmerge(g_x_mirr,g_x)