_RL sflux_exfremo_intercept
& sflux_exfremo_intercept,
I sflux_exfremo_intercept, sflux_exfremo_slope,
& exf_outscal_sflux * ( sflux_exfremo_intercept +
& sflux_exfremo_intercept, sflux_exfremo_slope,
sflux_exfremo_intercept = 0.0 _d 0