# GM-Redi parameters # GM_Small_Number :: epsilon used in computing the slope # GM_slopeSqCutoff :: slope^2 cut-off value &GM_PARM01 GM_Small_Number = 1.D-20, GM_slopeSqCutoff = 1.D+08, GM_background_K=1000.d0, # GM_taper_scheme=' ', GM_maxSlope=1.000000000000000E-02 # GM_Scrit, # GM_Sd &