INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc
INTEGER istatus(MPI_STATUS_SIZE), ierr
INTEGER mpiStatus(MPI_STATUS_SIZE)
INTEGER npe,itemp,ierr,istatus(MPI_STATUS_SIZE)
INTEGER istatus(MPI_STATUS_SIZE)
integer stat(MPI_STATUS_SIZE)