11      &               ilwork,BC,iBC,iper)  argument
27       integer,intent(in),dimension(nlwork)            :: ilwork  local
66       numtask = ilwork(1)
91          itag = ilwork(itkbeg+1)
92          iacc = ilwork(itkbeg+2)
93          iother = ilwork(itkbeg+3)
94          numseg = ilwork(itkbeg+4)
95          isgbeg = ilwork(itkbeg+5)
107             k = ilwork(itkbeg+3+2*j) ! row idx
175          itag = ilwork(itkbeg+1)
176          iacc = ilwork(itkbeg+2)
177          iother = ilwork(itkbeg+3)
178          numseg = ilwork(itkbeg+4)
179          isgbeg = ilwork(itkbeg+5)
488      &                      ilwork,BC,iBC,iper)  argument
499       integer,intent(in),dimension(nlwork)            :: ilwork  local
515       call commOut(t1,ilwork,1,iper,iBC,BC)
517       call commIn(t2,ilwork,3,iper,iBC,BC)
526       call commOut(t2b,ilwork,4,iper,iBC,BC)
528       call commIn(t1,ilwork,1,iper,iBC,BC)
544      &                      ilwork,BC,iBC,iper)  argument
556       integer,intent(in),dimension(nlwork)            :: ilwork  local
569       call commOut(t1,ilwork,1,iper,iBC,BC)
571       call commIn(t2,ilwork,3,iper,iBC,BC)
580       call commOut(t2b,ilwork,4,iper,iBC,BC)
582       call commIn(t1,ilwork,1,iper,iBC,BC)
595      &                      ilwork,BC,iBC,iper)  argument
607       integer,intent(in),dimension(nlwork)            :: ilwork  local
620       call commIn(t1,ilwork,1,iper,iBC,BC)
621       call commOut(t1,ilwork,1,iper,iBC,BC)
622       call commIn(t2,ilwork,3,iper,iBC,BC)
623       call commOut(t2,ilwork,3,iper,iBC,BC)
627       call commOut(t2,ilwork,3,iper,iBC,BC)
629       call commIn(rhsp,ilwork,1,iper,iBC,BC)
630       call commOut(rhsp,ilwork,1,iper,iBC,BC)
631       call ramg_zeroOut(rhsp,ilwork,BC,iBC,iper)
646       subroutine ramg_init_ilwork(ilwork,BC,iBC,iper)  argument
651       integer, intent(in), dimension(nlwork)           :: ilwork  local
658       integer,dimension(ilwork(1)) :: tasknnz,iotherl
659       type(i1d),dimension(ilwork(1)) :: taskfill
672       numtask = ilwork(1)
692             iacc=ilwork(itkbeg+2)
693             iother=ilwork(itkbeg+3) ! starts from 0
694             numseg=ilwork(itkbeg+4)
696                k=ilwork(itkbeg+3+2*j) ! row index
716             iacc = ilwork(itkbeg+2)
717             iother = ilwork(itkbeg+3)+1
723             numseg = ilwork(itkbeg+4)
725                k = ilwork(itkbeg+3+2*j)
744       subroutine ramg_initBCflag(flag,ilwork,BC,iBC,iper)
752       integer, intent(in), dimension(nlwork)           :: ilwork  variable
829       numtask = ilwork(1)
833          iacc = ilwork(itkbeg+2)
834          iother = ilwork(itkbeg+3)
835          numseg = ilwork(itkbeg+4)
842             isgbeg = ilwork(itkbeg+3+j*2)
843             lenseg = ilwork(itkbeg+4+j*2)
869       subroutine commOut_i(global,ilwork,n,iper,iBC,BC)  argument
873       integer ilwork(nlwork),iper(nshg),iBC(nshg)  local
882       call commOut(aglobal,ilwork,n,iper,iBC,BC)
893       subroutine ramg_commOut(global,level,ilwork,redun,iper,iBC,BC)  argument
903       integer,intent(in),dimension(nlwork)        :: ilwork  local
907       integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k
908       integer :: iother(ilwork(1)),ierr,iotheri
909       integer :: numseg(ilwork(1))
910       integer :: mstat(MPI_STATUS_SIZE,ilwork(1))
911       integer :: req(ilwork(1))
912       type(r2d),dimension(ilwork(1)) :: tmparray
917          call commOut(global,ilwork,1,iper,iBC,BC)
926          itag(i)=ilwork(itkbeg+1)
927          itkbeg=itkbeg+4+2*ilwork(itkbeg+4)
989       subroutine ramg_commIn(global,level,ilwork,redun,iper,iBC,BC)  argument
999       integer,intent(in),dimension(nlwork)        :: ilwork  local
1003       integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k
1004       integer :: iother(ilwork(1)),ierr,iotheri
1005       integer :: numseg(ilwork(1))
1006       integer :: mstat(MPI_STATUS_SIZE,ilwork(1))
1007       integer :: req(ilwork(1))
1008       type(r2d),dimension(ilwork(1)) :: tmparray
1013          call commIn(global,ilwork,1,iper,iBC,BC)
1022          itag(i)=ilwork(itkbeg+1)
1023          itkbeg=itkbeg+4+2*ilwork(itkbeg+4)