program greetings
    include 'mpif.h'
    integer :: my_rank, ierr
    character(100) :: message=" greetings from "
    character(100) :: name

   call MPI_Init(ierr)
   call MPI_Comm_rank(MPI_COMM_WORLD, my_rank, ierr)

   write(6,FMT="(A)") "What's your name?"
   read(5,"(A)") name
   
   write(6,FMT="(3A,I3)") "Hi ",TRIM(name),TRIM(message),my_rank
   
   call MPI_Finalize(ierr)

   stop
end program greetings