3819      &     OSNDRCVNUM, OSNDVOL, ONGHBPRCS, OSNDRCVIA, OSNDRCVJA,  argument
3834       INTEGER OSNDRCVJA(OSNDVOL)  local
3867                   OSNDRCVJA(IWHERETO) = IIND
3897          CALL MPI_SEND(OSNDRCVJA(OFFS), ITMP, MPI_INTEGER, IPID-1,
3910      &     OSNDRCVVOL, OSNDRCVIA, OSNDRCVJA, OSNDRCVA,  argument
3921       INTEGER OSNDRCVIA(NUMPROCS+1), OSNDRCVJA(OSNDRCVVOL)  local
3942             IID = OSNDRCVJA(J)
3989             IID = OSNDRCVJA(J)
3999      &     OSNDRCVVOL, OSNDRCVIA, OSNDRCVJA, OSNDRCVA,  argument
4010       INTEGER OSNDRCVIA(NUMPROCS+1), OSNDRCVJA(OSNDRCVVOL)  local
4031             IID = OSNDRCVJA(J)
4078             IID = OSNDRCVJA(J)
4293      & OSNDRCVNUM, OSNDVOL, ONGHBPRCS, OSNDRCVIA, OSNDRCVJA,  argument
4307       INTEGER OSNDRCVJA(OSNDVOL)  local
4339                   OSNDRCVJA(IWHERETO) = IIND
4349                   OSNDRCVJA(IWHERETO) = IIND
4379          CALL MPI_SEND(OSNDRCVJA(OFFS), ITMP, MPI_INTEGER, IPID-1,