replace ga_get with util_mygabcast

nwchemgit · Oct 23, 2024 · a95d338 · a95d338
1 parent 0468583
commit a95d338
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/tce/ccsd_t/ccsd_t_gpu.F b/src/tce/ccsd_t/ccsd_t_gpu.F
@@ -70,7 +70,12 @@ SUBROUTINE ccsd_t_gpu(d_t1,k_t1_offset,d_t2,k_t2_offset,
      1      call errquit('t1_local',1,MA_ERR)
         call ma_zero(dbl_mb(k_t1_local),size_t1)
 c    copy d_t1 ==> l_t1_local
+! copied pattern from cr-eomccsd_t/cr_eomccsd_t.F
+#if 1
+        call util_mygabcast(d_t1,size_t1,1,dbl_mb(k_t1_local),size_t1)
+#else
         call ga_get(d_t1,1,size_t1,1,1,dbl_mb(k_t1_local),size_t1)
+#endif
 c -------------------------------
 c
       nprocs = GA_NNODES()