call MPI_GET_COUNT( status, MPI_DOUBLE_PRECISION, + st_count, ierr ) 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(i),i=1,10) endifcall MPI_FINALIZE( ierr ) end