8       subroutine ramg_mls_eigen(evmax,level,flagfb,  argument
17       real(kind=8),intent(inout)                      :: evmax  local
77          evmax = 1
166       evmax = dr(1)
188       subroutine ramg_mls_min_eigen(evmax,level,flagfb,  argument
197       real(kind=8),intent(inout)                      :: evmax  local
257          evmax = 1
346       evmax = dr(1)
387       real(kind=8)    :: evmax,ddeg,aux1,aux0,auxom,rho,rho2  local
401       call ramg_mls_eigen(evmax,lvl,1,colm,rowp,lhsK,lhsP,
414       rho = evmax!*mlsOver
542       real(kind=8)    :: evmax,ddeg,aux1,aux0,auxom,rho  variable
547       call ramg_mls_eigen(evmax,lvl,2,colm,rowp,lhsK,lhsP,
549       smlsOm(lvl,2) = 1.0/(1.025*evmax)!*mlsCf(lvl,1)
551       write(*,*)'mcheck: post,',evmax,smlsOm(lvl,2)