OilfieldToolsNet/LBPM
4
0 Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replacing MPI_COMM_WORLD with a passed communicator

Browse Source
This commit is contained in:
Mark Berrill committed 2015-09-04 13:06:36 -04:00
1 parent e95c6e3038
commit a12e0ba7f1
47 files changed
+3029 -2930
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tests/TestSegDist.cpp
+5 -4
View File
@@ -17,8 +17,9 @@ int main(int argc, char **argv)
// Initialize MPI
int rank, nprocs;
MPI_Init(&argc,&argv);
MPI_Comm_rank(MPI_COMM_WORLD,&rank);
MPI_Comm_size(MPI_COMM_WORLD,&nprocs);
MPI_Comm comm = MPI_COMM_WORLD;
MPI_Comm_rank(comm,&rank);
MPI_Comm_size(comm,&nprocs);
int i,j,k,n,nn;
int iproc,jproc,kproc;
@@ -51,7 +52,7 @@ int main(int argc, char **argv)
}
}
}
Dm.CommInit(MPI_COMM_WORLD);
Dm.CommInit(comm);
nx+=2; ny+=2; nz+=2;
N = nx*ny*nz;
@@ -106,7 +107,7 @@ int main(int argc, char **argv)
fwrite(Distance.get(),8,Distance.length(),DIST);
fclose(DIST);
MPI_Barrier(MPI_COMM_WORLD);
MPI_Barrier(comm);
MPI_Finalize();
return 0;