33       integer           :: itag,iacc,iother,numseg,isgbeg,itkbeg  local
94          numseg = ilwork(itkbeg+4)
97          sub_nshg%p(i) = numseg
99          allocate(sub_map%pp(i)%p(numseg))
106          do j=1,numseg
115          allocate(sub_colm%pp(i)%p(numseg+1))
116          allocate(sub_colm2%pp(i)%p(numseg+1))
120          do j=1,numseg
138          sub_colm%pp(i)%p(numseg+1) = sub_nnz%p(i) + 1
141             call MPI_ISEND(sub_colm%pp(i)%p(1),numseg+1,MPI_INTEGER,
143             call MPI_IRECV(sub_colm2%pp(i)%p(1),numseg+1,MPI_INTEGER,
147             call MPI_IRECV(sub_colm2%pp(i)%p(1),numseg+1,MPI_INTEGER,
149             call MPI_ISEND(sub_colm%pp(i)%p(1),numseg+1,MPI_INTEGER,
157          itkbeg = itkbeg + 4 + 2*numseg
178          numseg = ilwork(itkbeg+4)
189          do j=1,numseg
237          itkbeg = itkbeg + 4 + 2*numseg
655       integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k  local
694             numseg=ilwork(itkbeg+4)
695             do j=1,numseg
701             itkbeg=itkbeg+4+2*numseg
723             numseg = ilwork(itkbeg+4)
724             do j=1,numseg
731             itkbeg=itkbeg+4+2*numseg
756       integer   :: numtask,itag,iacc,iother,numseg,isgbeg,itkbeg  variable
835          numseg = ilwork(itkbeg+4)
841          do j=1,numseg
847          itkbeg = itkbeg + 4 + 2*numseg
909       integer :: numseg(ilwork(1))  local
932          numseg(i)=amg_ilwork(level)%p(itkbeg+2)
933          allocate(tmparray(i)%p(numseg(i),redun))
935          do j=1,numseg(i)
955             call MPI_ISEND(tmparray(i)%p(1,1),redun*numseg(i),
960             call MPI_IRECV(tmparray(i)%p(1,1),redun*numseg(i),
975          numseg(i)=amg_ilwork(level)%p(itkbeg+2)
977          do j=1,numseg(i)
1005       integer :: numseg(ilwork(1))  local
1028          numseg(i)=amg_ilwork(level)%p(itkbeg+2)
1029          allocate(tmparray(i)%p(numseg(i),redun))
1031          do j=1,numseg(i)
1043             call MPI_IRECV(tmparray(i)%p(1,1),redun*numseg(i),
1047             call MPI_ISEND(tmparray(i)%p(1,1),redun*numseg(i),
1062          numseg(i)=amg_ilwork(level)%p(itkbeg+2)
1064          do j=1,numseg(i)