xref: /phasta/phSolver/common/phComm.c (revision 7acde132a6def0fe2daaec0d1a712dff0e5c6636) 
1d1293ce9SCameron Smith #include "phComm.h"
2d1293ce9SCameron Smith #include <mpi.h>
3d1293ce9SCameron Smith 
phcomm_rank()4d1293ce9SCameron Smith int phcomm_rank() {
5d1293ce9SCameron Smith   int r;
6d1293ce9SCameron Smith   MPI_Comm_rank(MPI_COMM_WORLD, &r);
7d1293ce9SCameron Smith   return r;
8d1293ce9SCameron Smith }
9*82f286aaSCameron Smith 
phcomm_size()10*82f286aaSCameron Smith int phcomm_size() {
11*82f286aaSCameron Smith   int s;
12*82f286aaSCameron Smith   MPI_Comm_size(MPI_COMM_WORLD, &s);
13*82f286aaSCameron Smith   return s;
14*82f286aaSCameron Smith }
15