Simple Fortran Example - 1

• program main

• use MPI

• integer rank, size, to, from, tag, count, i, ierr

• integer src, dest

• integer st_source, st_tag, st_count

• integer status(MPI_STATUS_SIZE)

• double precision data(10)

• 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'

• dest = size - 1

• src = 0

Notes: