Simple Fortran example (cont.)

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) 
      endif 
        
 
call MPI_FINALIZE( ierr ) 
      end