skeleton.F90

program exchange
  use mpi
  implicit none
  integer, parameter :: msgsize = 100, arraysize = 100000
  integer :: rc, myid, ntasks, count
  integer :: status(MPI_STATUS_SIZE)
  integer :: message(arraysize)
  integer :: receiveBuffer(arraysize)

  call mpi_init(rc)
  call mpi_comm_rank(MPI_COMM_WORLD, myid, rc)
  call mpi_comm_size(MPI_COMM_WORLD, ntasks, rc)

  message = myid

  ! TODO: Implement sending and receiving as defined in the assignment
  ! Send msgsize elements from the array "message", and receive into 
  ! "receiveBuffer"
  if ( myid == 0 ) then

     write(*,'(A10,I3,A10,I3, A17, I3)') 'Rank: ', myid, &
          ' received ', count, ' elements, first ', receiveBuffer(1)
  else if (myid == 1) then

     write(*,'(A10,I3,A10,I3, A17, I3)') 'Rank: ', myid, &
          ' received ', count, ' elements, first ', receiveBuffer(1)
  end if

  call mpi_finalize(rc)

end program exchange