Lines Matching refs:lvl

655       integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k  local
674       do lvl = 1,ramg_levelx
682             if (amg_cfmap(i).ge.lvl) then
697                if (amg_cfmap(k).ge.lvl) then
708          amg_nlwork(lvl)=tasknnztot+1+2*numtask
709          allocate(amg_ilwork(lvl)%p(tasknnztot+1+2*numtask))
710          amg_ilwork(lvl)%p = 0
712          amg_ilwork(lvl)%p(1) = numtask
720             amg_ilwork(lvl)%p(kk) = iother  ! first put iother
722             amg_ilwork(lvl)%p(kk) = tasknnz(i) ! then numseg
726                if (amg_cfmap(k).ge.lvl) then
728                    amg_ilwork(lvl)%p(kk)=lvlmap(k)