1 subroutine mpiset 2 3 include "common.h" 4 include "mpif.h" 5 include "auxmpi.h" 6 7 logical reorder 8 9 call MPI_COMM_RANK (MPI_COMM_WORLD, myrank) ! we ditched the ierr that fortran 10 ! normally have here to pacify Digital 11 12 return 13 end 14 15