_RL hflux_exfremo_intercept
& hflux_exfremo_intercept,
I hflux_exfremo_intercept, hflux_exfremo_slope,
& exf_outscal_hflux * ( hflux_exfremo_intercept +
& hflux_exfremo_intercept, hflux_exfremo_slope,
hflux_exfremo_intercept = 0.0 _d 0