33       integer           :: itag,iacc,iother,numseg,isgbeg,itkbeg  local
92          iacc = ilwork(itkbeg+2)
140          if (iacc.eq.0) then ! this task is a send, master
146          else if (iacc.eq.1) then ! this task is a receive, slave
176          iacc = ilwork(itkbeg+2)
204          if (iacc.eq.0) then ! this task is a send, master
210          else if (iacc.eq.1) then ! this task is a receive, slave
217          if (iacc.eq.0) then ! this task is a send, master
225          else if (iacc.eq.1) then ! this task is a receive, slave
655       integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k  local
692             iacc=ilwork(itkbeg+2)
716             iacc = ilwork(itkbeg+2)
718             if (iacc.eq.0) iother=-iother
756       integer   :: numtask,itag,iacc,iother,numseg,isgbeg,itkbeg  variable
833          iacc = ilwork(itkbeg+2)
836          if (iacc.eq.0) then !slave
907       integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k  local
1003       integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k  local