Simple Fortran Example

include 'mpif.h'

integer rank, size, tag, count, i, ierr

integer src, dest, st_source, st_tag, st_count

integer status(MPI_STATUS_SIZE)

call MPI_INIT( ierr )

call MPI_COMM_RANK( MPI_COMM_WORLD, rank, ierr )

call MPI_COMM_SIZE( MPI_COMM_WORLD, size, ierr )

print *, 'Process ', rank, ' of ', size, ' is alive'

...