program HelloWorld
    include 'mpif.h'
    integer my_rank, p
    integer source, dest, tag
    integer ierr, status(MPI_STATUS_SIZE)
   
    call MPI_Init(ierr)
    call MPI_Comm_rank(MPI_COMM_WORLD, my_rank, ierr)
    call MPI_Comm_size(MPI_COMM_WORLD, p, ierr)

    write(*,FMT="(A,I4)") "Hello world from process ", my_rank

    call MPI_Finalize(ierr)
end program HelloWorld