xref: /phasta/phSolver/common/mpiset.f (revision 595995161822a203c8467e0e4a253d7bd7d6df32)
1*59599516SKenneth E. Jansen      subroutine mpiset
2*59599516SKenneth E. Jansen
3*59599516SKenneth E. Jansen      include "common.h"
4*59599516SKenneth E. Jansen      include "mpif.h"
5*59599516SKenneth E. Jansen      include "auxmpi.h"
6*59599516SKenneth E. Jansen
7*59599516SKenneth E. Jansen      logical     reorder
8*59599516SKenneth E. Jansen
9*59599516SKenneth E. Jansen      call MPI_COMM_RANK (MPI_COMM_WORLD, myrank)  ! we ditched the ierr that fortran
10*59599516SKenneth E. Jansen	                                             ! normally have here to pacify Digital
11*59599516SKenneth E. Jansen
12*59599516SKenneth E. Jansen      return
13*59599516SKenneth E. Jansen      end
14*59599516SKenneth E. Jansen
15