8       subroutine ramg_mls_eigen(evmax,level,flagfb,  argument
18       integer,intent(in)                              :: level  local
55       real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2
64       asize = amg_nshg(level)
68       call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,level)
136         call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
139         call ramg_mls_calcPAv(level,twork2,twork1,
156           ramg_levelx = level-1
188       subroutine ramg_mls_min_eigen(evmax,level,flagfb,  argument
198       integer,intent(in)                              :: level  local
235       real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2
244       asize = amg_nshg(level)
248       call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,level)
316         call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
319         call ramg_mls_calcPAv(level,twork2,twork1,
336           ramg_levelx = level-1
367       subroutine ramg_mls_coeff(level,ilwork,BC,iBC,iper)  argument
496       subroutine ramg_mls_calcPAv(level,u,v,colm,rowp,lhsK,lhsP,  argument
512       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v
513       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
515       real(kind=8),dimension(amg_nshg(level)) :: aux,aux2,r0
518       call ramg_calcAv_g(level,aux,v,colm,rowp,lhsK,lhsP,
520       call ramg_mls_sandw_pre(aux2,aux,level,colm,rowp,lhsK,lhsP,
522       call ramg_mls_sandw_post(u,aux2,level,colm,rowp,lhsK,lhsP,
563       subroutine ramg_mls_apply(u,v,r,level,colm,rowp,lhsK,lhsP,  argument
580       real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r
581       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
584       real(kind=8),dimension(amg_nshg(level)) :: aux
592           call ramg_calcAv_g(level,aux,v,colm,rowp,lhsK,lhsP,
598           call ramg_mls_apply_fwd(u,v,aux,level,colm,rowp,lhsK,lhsP,
601           call ramg_mls_apply_post(u,v,aux,level,colm,rowp,lhsK,lhsP,
610       subroutine ramg_mls_apply_fwd(u,v,r,level,colm,rowp,lhsK,lhsP,  argument
627       real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r
628       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
631       real(kind=8),dimension(amg_nshg(level)) :: pAux,res
638       cf = mlsCf(level,1)
642          call ramg_calcAv_g(level,res,pAux,colm,rowp,lhsK,lhsP,
645          cf = mlsCf(level,i)
651       subroutine ramg_mls_apply_post(u,v,r,level,colm,rowp,lhsK,lhsP,  argument
668       real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r
669       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
672       real(kind=8),dimension(amg_nshg(level)) :: pAux,y,res,y1
676       call ramg_mls_apply_fwd(y1,v,r,level,colm,rowp,lhsK,lhsP,
679       call ramg_calcAv_g(level,pAux,y1,colm,rowp,lhsK,lhsP,
683       call ramg_mls_sandw_post(pAux,res,level,colm,rowp,lhsK,lhsP,
685       call ramg_mls_sandw_pre(y,pAux,level,colm,rowp,lhsK,lhsP,
687       u = smlsOm(level,1)*y+y1
691       subroutine ramg_mls_sandw_pre(u,v,level,colm,rowp,lhsK,lhsP,  argument
708       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v
709       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
712       real(kind=8),dimension(amg_nshg(level)) :: res
720          call ramg_calcAv_g(level,res,u,colm,rowp,lhsK,lhsP,
722          u = u-mlsOm(level,i)*res
727       subroutine ramg_mls_sandw_post(u,v,level,colm,rowp,lhsK,lhsP,  argument
744       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v
745       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
748       real(kind=8),dimension(amg_nshg(level)) :: res
756          call ramg_calcAv_g(level,res,u,colm,rowp,lhsK,lhsP,
758          u = u-mlsOm(level,i)*res