Unpacking integers and reals

Unpack Example (cont.)

Integers are unpacked as follows

   call mpi_unpack (message, size, pos,
                    ints(nints), nitems, MPI_INTEGER,
                    comm, ierr)
   nints = nints + nitems

Reals are unpacked as follows

   call mpi_unpack (message, size, pos,
                    reals(nreals), nitems, MPI_REAL,
                    comm, ierr)
   nreals = nreals + nitems