source/maxlik/src_FPy/helloworld.f90

   1 subroutine sayhello(comm)
   2   use mpi
   3   implicit none
   4   integer :: comm, rank, size, ierr
   5   call MPI_Comm_size(comm, size, ierr)
   6   call MPI_Comm_rank(comm, rank, ierr)
   7   print *, 'Hello, World! I am process ',rank,' of ',size,'.'
   8 end subroutine sayhello