program first_mpi
    include 'mpif.h'
    integer :: my_rank
    character(100) :: message="Hello from "
    integer :: ierr

    call MPI_Init(ierr)
    call MPI_Comm_rank(MPI_COMM_WORLD, my_rank, ierr)
    
        write(6,FMT="(A,I3)") TRIM(message),my_rank
    
        call MPI_Finalize(ierr)

    stop
end program first_mpi