;Program to use the one orbit before/after background substration restore, 'flux_1orbbef.sav'   flux = spex_current( 'flux' ) ; flare count rates eflux = spex_current( 'eflux' ) ; uncertainties of -"- back_new = flux_1orbbef ; new background count rates (= count rates of one orbit before)   eback_new = eflux_1orbbef  ; uncertainties of -"-  rate_new = flux - back_new ; new background subtracted count rates erate_new = sqrt( eflux^2. + eback_new^2. )  ; uncertainies of -"-  test1 = spex_current( 'rate', input=rate_new ) test2 = spex_current( 'back', input=back_new ) test3 = spex_current( 'eback', input=eback_new ) test4 = spex_current( 'erate', input=erate_new ) end