n_flux_1 = 0. _d 0
n_flux_1 = n_flux_1 + 1. _d 0
IF (n_flux_1 .gt. 0.) THEN
href = href / n_flux_1
_RL n_flux_1, n_flux_2