replaced TCGMSG and MPI calls with GA calls to avoid 32-bit integer i…

…ssues
nwchemgit · Oct 31, 2023 · d8d3adc · d8d3adc
1 parent 880025f
commit d8d3adc
Showing 1 changed file with 10 additions and 5 deletions.
diff --git a/src/nwpw/nwpwlib/Parallel/Parallel-mpi.F b/src/nwpw/nwpwlib/Parallel/Parallel-mpi.F
@@ -55,7 +55,8 @@ subroutine Parallel_Init()
 *     **** local variables ****
       integer MASTER
       parameter (MASTER=0)
-      integer i,mpierr,mygroup,myio,mydepth
+      integer i,mygroup,myio,mydepth
+      integer*4  mpierr
       character*50 nwfilename
       character*7 c_index_name
       external    c_index_name
@@ -100,22 +101,26 @@ subroutine Parallel_Init()
 
 #ifdef USE_SUBGROUPS
 #ifdef GA_DEV
+#if 0
       call MPI_COMM_RANK(comm_world,taskid,mpierr)
       call MPI_COMM_SIZE(comm_world,np,mpierr)
+#else      
+      np     = ga_nnodes()
+      taskid = ga_nodeid()
+#endif      
       mydepth = util_sgroup_depth()
       mygroup = util_sgroup_mygroup()
       if ((taskid.eq.MASTER).and.(mydepth.gt.0)) then
          myio = util_sgroup_set_ioname(
      >              "nwpw"//c_index_name(mygroup)//".output")
       end if
 #else
-      np     = nnodes()
-      taskid = nodeid()
+      taskid = ga_nodeid()
 #endif
 
 #else
-      np     = nnodes()
-      taskid = nodeid()
+      np     = ga_nnodes()
+      taskid = ga_nodeid()
 #endif