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