31       integer           :: numtask,i,j,k,m,p,ki,kj,krowp,ierr  local
66       numtask = ilwork(1)
72       allocate(sub_map%pp(numtask))
73       allocate(sub_revmap%pp(numtask))
74       allocate(sub_colm%pp(numtask))
75       allocate(sub_colm2%pp(numtask))
76       allocate(sub_rowp%pp(numtask))
77       allocate(sub_rowp2%pp(numtask))
78       allocate(sub_rowpmap%pp(numtask))
79       allocate(sub_mtx%pp(numtask))
80       allocate(sub_mtx2%pp(numtask))
81       allocate(sub_nnz%p(numtask))
82       allocate(sub_nnz2%p(numtask))
83       allocate(sub_nshg%p(numtask))
86       do i=1,numtask
163       do i=1,numtask
170       do i=1,numtask
245       do i=1,numtask
271       do i=1,numtask ! each task
452         do i=1,numtask
655       integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k  local
672       numtask = ilwork(1)
691          do i=1,numtask
708          amg_nlwork(lvl)=tasknnztot+1+2*numtask
709          allocate(amg_ilwork(lvl)%p(tasknnztot+1+2*numtask))
712          amg_ilwork(lvl)%p(1) = numtask
715          do i=1,numtask
756       integer   :: numtask,itag,iacc,iother,numseg,isgbeg,itkbeg  variable
829       numtask = ilwork(1)
830       allocate(neimap(numtask))
832       do i=1,numtask
907       integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k  local
921       numtask = amg_ilwork(level)%p(1)
925       do i=1,numtask
930       do i=1,numtask
950       do i=1,numtask
974       do i=1,numtask
983       do i=1,numtask
1003       integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k  local
1017       numtask = amg_ilwork(level)%p(1)
1021       do i=1,numtask
1026       do i=1,numtask
1039       do i=1,numtask
1061       do i=1,numtask
1075       do i=1,numtask