Home
last modified time | relevance | path

Searched refs:LSCALE (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_coarse.f594 real(kind=8) :: MSCALE,LSCALE,deltal local
607 LSCALE = 0.005
608 MSCALE = 0.1*LSCALE/anshg
705 deltal = LSCALE
707 deltal = 2*LSCALE
740 if (Lmax.lt.LSCALE) then
777 amg_L(n) = amg_L(n) + LSCALE
779 amg_L(n) = amg_L(n) - LSCALE
790 amg_L(k) = amg_L(k) - LSCALE
792 amg_L(k) = amg_L(k) + LSCALE