From dd726be2d64e7e02a29563dd29d9036fcbd017f5 Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Thu, 9 Oct 2025 15:30:47 -0700
Subject: [PATCH] fix race condition

---
 src/ddscf/int_dip_ga.F | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/ddscf/int_dip_ga.F b/src/ddscf/int_dip_ga.F
index 6cac104e9a..7f678d7d17 100644
--- a/src/ddscf/int_dip_ga.F
+++ b/src/ddscf/int_dip_ga.F
@@ -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)