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