9      &                          colm,rowp,lhsK,lhsP,  argument
20       integer,intent(in),dimension(nshg+1)       :: colm  local
136         call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
140      &           colm,rowp,lhsK,lhsP,
189      &                          colm,rowp,lhsK,lhsP,  argument
200       integer,intent(in),dimension(nshg+1)       :: colm  local
316         call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
320      &           colm,rowp,lhsK,lhsP,
371       subroutine ramg_mls_setup(colm,rowp,lhsK,lhsP,  argument
378       integer,intent(in),dimension(nshg+1)            :: colm  local
401       call ramg_mls_eigen(evmax,lvl,1,colm,rowp,lhsK,lhsP,
496       subroutine ramg_mls_calcPAv(level,u,v,colm,rowp,lhsK,lhsP,  argument
505       integer,intent(in),dimension(nshg+1)       :: colm  local
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,
527       subroutine ramg_mls_setupPost(colm,rowp,lhsK,lhsP,
534       integer,intent(in),dimension(nshg+1)            :: colm  variable
547       call ramg_mls_eigen(evmax,lvl,2,colm,rowp,lhsK,lhsP,
563       subroutine ramg_mls_apply(u,v,r,level,colm,rowp,lhsK,lhsP,  argument
573       integer,intent(in),dimension(nshg+1)       :: colm  local
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
620       integer,intent(in),dimension(nshg+1)       :: colm  local
642          call ramg_calcAv_g(level,res,pAux,colm,rowp,lhsK,lhsP,
651       subroutine ramg_mls_apply_post(u,v,r,level,colm,rowp,lhsK,lhsP,  argument
661       integer,intent(in),dimension(nshg+1)       :: colm  local
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,
691       subroutine ramg_mls_sandw_pre(u,v,level,colm,rowp,lhsK,lhsP,  argument
701       integer,intent(in),dimension(nshg+1)       :: colm  local
720          call ramg_calcAv_g(level,res,u,colm,rowp,lhsK,lhsP,
727       subroutine ramg_mls_sandw_post(u,v,level,colm,rowp,lhsK,lhsP,  argument
737       integer,intent(in),dimension(nshg+1)       :: colm  local
756          call ramg_calcAv_g(level,res,u,colm,rowp,lhsK,lhsP,