Lines Matching defs:ramg_init_ilwork

646       subroutine ramg_init_ilwork(ilwork,BC,iBC,iper)  subroutine
651       integer, intent(in), dimension(nlwork)           :: ilwork
652       integer, intent(in),dimension(nshg)              :: iBC,iper
653       real(kind=8),intent(in),dimension(nshg,ndofBC)   :: BC
655       integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k
656       integer :: tasknnztot,itask,amgseg
657       integer,dimension(numpe) :: revp
658       integer,dimension(ilwork(1)) :: tasknnz,iotherl
659       type(i1d),dimension(ilwork(1)) :: taskfill
661       integer,dimension(nshg) :: lvlmap
663       character :: fname*80