objf_sfluxmm = objf_sfluxmm
objf_sfluxmm = 0. _d 0
& objf_sfluxmm
& objf_sflux, objf_sfluxm, objf_sfluxmm, objf_sfluxsmoo,
_RL objf_sfluxmm
f_sfluxmm = f_sfluxmm + objf_sfluxmm