3765      &     IWRK,IWRKSZ, SNDSZ, RCVSZ, COMM)  argument
3775       INTEGER SNDSZ(NUMPROCS)  local
3782          SNDSZ(I) = 0
3797                   SNDSZ(PIND+1) = SNDSZ(PIND+1)+1
3802       CALL MPI_ALLTOALL(SNDSZ, 1, MPI_INTEGER,
3809          IF(SNDSZ(I) > 0) OSNDRCVNUM = OSNDRCVNUM + 1
3810          OSNDRCVVOL = OSNDRCVVOL + SNDSZ(I)
3820      &     SNDSZ, RCVSZ, IWRK,   argument
3835       INTEGER SNDSZ(NUMPROCS)  local
3849          OSNDRCVIA(I) = OFFS + SNDSZ(I)
3850          IF(SNDSZ(I) > 0) THEN
3854          OFFS  = OFFS +  SNDSZ(I)
4130      & IWRK,IWRKSZ, SNDSZ, RCVSZ, COMM)  argument
4139       INTEGER SNDSZ(NUMPROCS)  local
4146          SNDSZ(I) = 0
4161                   SNDSZ(PIND+1) = SNDSZ(PIND+1)+1
4169                   SNDSZ(PIND+1) = SNDSZ(PIND+1)+1
4174       CALL MPI_ALLTOALL(SNDSZ, 1, MPI_INTEGER,
4181          IF(SNDSZ(I) > 0) OSNDRCVNUM = OSNDRCVNUM + 1
4182          OSNDRCVVOL = OSNDRCVVOL + SNDSZ(I)
4294      & SNDSZ, RCVSZ, IWRK,   argument
4308       INTEGER SNDSZ(NUMPROCS)  local
4321          OSNDRCVIA(I) = OFFS + SNDSZ(I)
4322          IF(SNDSZ(I) > 0) THEN
4326          OFFS  = OFFS +  SNDSZ(I)