Better Hello (Fortran)

• program main

• use MPI

• integer ierr, rank, size

• call MPI_INIT( ierr )

• call MPI_COMM_RANK( MPI_COMM_WORLD, rank, ierr )

• call MPI_COMM_SIZE( MPI_COMM_WORLD, size, ierr )

• print *, 'I am ', rank, ' of ', size

• call MPI_FINALIZE( ierr )

• end

Notes: