2 c This test looks at sending some data with a count of zero.
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)
14 call MPI_COMM_RANK( comm, myid, ierr )
15 call MPI_COMM_SIZE( comm, nprocs, ierr )
30 call MPI_ALLGATHERV( wrkbuf, recvts(myid),
31 & MPI_DOUBLE_PRECISION, cwk1, recvts,
32 & displs, MPI_DOUBLE_PRECISION, comm, ierr )
35 print *, myid, i, cwk1(i)