;These functions acquire and process the data necessary for determing
;the FUV flatfield and NUV geometry and flatfield, and then produce the
;files for calibration of IRIS Level 2 data.

;This routine demonstrates how the functions can be used to process
;data from a single run of the FUV background observations.  User
;intervention/participation *is* necessary for these routines.

;Documentation describing additional functionality for each of the
;functions is described in their documentation.

;Copy this routine to your local directory and alter it as needed.

time_start='2014-05-23T01:00:00' & time_end='2014-05-23T03:08:37'


l1file_fuv   = iris_sgflat_getdata(time_start, time_end, index, data, $
                                   datadir=datadir, /fuv, /nosave)

l1p5file_fuv = iris_sgflat_prep(index, data, datadir=datadir, /bgfile, /nosave)

flatfile_fuv = iris_sgflat_calc_fuv(filename=l1p5file_fuv, datadir=datadir, $
                                    /geofile)


l1file_nuv   = iris_sgflat_getdata(time_start, time_end, index, data, $
                                   datadir=datadir, /nuv, /nosave)

l1p5file_nuv = iris_sgflat_prep(index, data, filename=l1file_nuv, datadir=datadir)

nuv_geofile  = iris_geocal_run(filename=l1p5file_nuv, datadir=datadir, $
                               wave='nuv')

flatfile_nuv = iris_sgflat_calc_nuv(filename=l1p5file_nuv, datadir=datadir, $
                                    geofile=nuv_geofile)

end