program main
  use mpi
  implicit none
  integer :: ptot, rank, ierr

  call MPI_Init(ierr)
  call MPI_Comm_size(MPI_COMM_WORLD,ptot,ierr)
  call MPI_Comm_rank(MPI_COMM_WORLD,rank,ierr)

  print"(a,i0,a)","Hello, I'm a process ",rank,"."

  call MPI_Barrier(MPI_COMM_WORLD,ierr)
  print"(a,i0,a)","Process ",rank," is starting jts job..."

  call MPI_Finalize(ierr)

  stop
end program main