teshsuite/smpi/mpich-test/coll/allgatherf.f

   1 c
   2 c This test looks at sending some data with a count of zero.
   3 c
   4       program testmpi
   5       integer           mnprocs, lcwk1
   6       parameter         ( mnprocs = 2, lcwk1 = 6 )
   7       integer           comm, rc, myid, nprocs, ierr, i,
   8      &                  recvts(0:mnprocs-1), displs(0:mnprocs-1)
   9       double precision  wrkbuf(3), cwk1(lcwk1)
  10       include           'mpif.h'
  11 c
  12       call MPI_INIT( ierr )
  13       comm = MPI_COMM_WORLD
  14       call MPI_COMM_RANK( comm, myid, ierr )
  15       call MPI_COMM_SIZE( comm, nprocs, ierr )
  16 c
  17       do i = 1, lcwk1
  18          cwk1(i) = -10
  19       end do
  20       do i=1,3
  21          wrkbuf(i) = myid
  22       end do
  23       do i = 0, mnprocs-1
  24          recvts(i) = 3
  25          displs(i) = 3 * i
  26       end do
  27       recvts(mnprocs-1) = 0
  28       displs(mnprocs-1) = 0
  29 c
  30       call MPI_ALLGATHERV( wrkbuf, recvts(myid),
  31      &                     MPI_DOUBLE_PRECISION, cwk1, recvts,
  32      &                     displs, MPI_DOUBLE_PRECISION, comm, ierr )
  33 c
  34       do i = 1, lcwk1
  35          print *, myid, i, cwk1(i)
  36       end do
  37 c
  38       call MPI_FINALIZE(rc)
  39 c
  40       end
  41 c