Simple Fortran Example - 3

• call MPI_GET_COUNT( status, MPI_DOUBLE_PRECISION,

• st_count, ierr )

• st_source = status( MPI_SOURCE )

• st_tag = status( MPI_TAG )

• print *, 'status info: source = ', st_source,

• + ' tag = ', st_tag, 'count = ', st_count

• endif

• call MPI_FINALIZE( ierr )

• end

Notes: