Fortran Message Info Example
call MPI_RECV(data, count, MPI_INTEGER, from,
+ tag, MPI_COMM_WORLD, status, ierr )
call MPI_GET_COUNT(status, MPI_DOUBLE_PRECISION,
st_source = status(MPI_SOURCE)
st_tag = status(MPI_TAG)C
print *, 'Status info: source = ', st_source,
+ ' tag = ', st_tag, ' count = ', st_count
print *, rank, ' received', data