xref: /phasta/phSolver/common/phComm.c (revision d1293ce908feb078a7fc65b010fc9344f582bfd9)
1*d1293ce9SCameron Smith #include "phComm.h"
2*d1293ce9SCameron Smith #include <mpi.h>
3*d1293ce9SCameron Smith 
4*d1293ce9SCameron Smith int phcomm_rank() {
5*d1293ce9SCameron Smith   int r;
6*d1293ce9SCameron Smith   MPI_Comm_rank(MPI_COMM_WORLD, &r);
7*d1293ce9SCameron Smith   return r;
8*d1293ce9SCameron Smith }
9