! testch_ex.f90
! Rutgers example using character messages.
include "mpiSim.f90"
program hello
include "useSim.f90"

! Test Charaacter messanging.
!include 'mpif.h'
  implicit none
  Integer :: rank, size, ierror, tag, status(MPI_STATUS_SIZE)
  Integer :: I
  character(12) message
  call MPI_INIT(ierror)
  call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierror)
  call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierror)
  tag = 100
  if (rank .eq. 0) then
     message = 'Hello, world'
     do I=1, size-1
       call MPI_SEND(message, 12, MPI_CHARACTER, I, tag, &
                    MPI_COMM_WORLD, ierror)
     enddo
     else
       call MPI_RECV(message, 12, MPI_CHARACTER, 0, tag, &
                     MPI_COMM_WORLD, status, ierror)
     endif
  print*, 'node', rank, ':', message
  call MPI_FINALIZE(ierror)
end