Lines Matching refs:level
9 subroutine ramg_cheby_apply(u,v,r,level,colm,rowp,lhsK,lhsP, argument
26 real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r
27 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
31 real(kind=8),dimension(amg_nshg(level)) :: pAux
32 real(kind=8),dimension(amg_nshg(level)) :: epdk,epx
34 real(kind=8),dimension(amg_nshg(level)) :: cy1,cz1
41 beta = 1.1*mlsCf(level,1) ! 1.1 * Ev_max
42 alpha = mlsCf(level,1)*ramg_chebyratio
53 call ramg_calcAv_g(level,pAux,v,colm,rowp,lhsK,lhsP,
58 call ramg_calcAv_g(level,pAux,cy1,colm,rowp,lhsK,lhsP,
82 call ramg_calcAv_g(level,pAux,v,colm,rowp,lhsK,lhsP,
90 call ramg_calcAv_g(level,pAux,epx,colm,rowp,lhsK,lhsP,