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

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

Browse source
This commit is contained in:
edoapra 2023-10-30 11:14:18 -07:00
parent 880025f084
commit d8d3adcdd0
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/nwpw/nwpwlib/Parallel/Parallel-mpi.F
View file

@ -55,7 +55,8 @@ ccc#include "ga_mpi.fh"
* **** 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,8 +101,13 @@ c call MPI_COMM_SIZE(MPI_COMM_WORLD,np,mpierr)
#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
@ -109,13 +115,12 @@ c call MPI_COMM_SIZE(MPI_COMM_WORLD,np,mpierr)
> "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