xref: /phasta/phSolver/common/phComm.c (revision 82f286aa43efd7ca3a16d90c6eed1b687942af32) 
1d1293ce9SCameron Smith #include "phComm.h"
2d1293ce9SCameron Smith #include <mpi.h>
3d1293ce9SCameron Smith 
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 
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