! Nearly the simplest MPI example.
! modified from HPCVL, Queen's University, 2006
! MPI Hello World  : Oct 26, 2015 : Ajit Desai
!!-------------------------------------------------------

PROGRAM main

include 'mpif.h'

    integer :: rank, size, ierr

    CALL MPI_INIT(ierr)
    CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
    CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr)

    WRITE(*,*) 'Hello from MPI World, rank:',rank, &
    ' of total',size,' processes.'

    CALL  MPI_FINALIZE(ierr)

END PROGRAM main

!!-------------------------------------------------------