Lines Matching refs:iother
33 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
93 iother = ilwork(itkbeg+3)
142 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
144 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
148 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
150 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
177 iother = ilwork(itkbeg+3)
206 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
208 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
212 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
214 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
220 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
223 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
228 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
231 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
655 integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k local
693 iother=ilwork(itkbeg+3) ! starts from 0
717 iother = ilwork(itkbeg+3)+1
718 if (iacc.eq.0) iother=-iother
720 amg_ilwork(lvl)%p(kk) = iother ! first put iother
756 integer :: numtask,itag,iacc,iother,numseg,isgbeg,itkbeg variable
834 iother = ilwork(itkbeg+3)
837 neimap(i) = -(iother+1)
839 neimap(i) = (iother+1)
908 integer :: iother(ilwork(1)),ierr,iotheri local
931 iother(i)=amg_ilwork(level)%p(itkbeg+1)
952 iotheri = iabs(iother(i))-1
953 if (iother(i)>0) then ! master send
1004 integer :: iother(ilwork(1)),ierr,iotheri local
1027 iother(i)=amg_ilwork(level)%p(itkbeg+1)
1041 iotheri = iabs(iother(i))-1
1042 if (iother(i)>0) then ! master receive
1066 if (iother(i)>0) then ! master