; MVMOD.PRO
;
; This program calculates the mean and variance of sets of images at
; various exposure times, and also of sets of dark frames at corresponding
; accumulation times, and calculates the mean and variance of the
; dark-subtracted images.  It stores the corrected means and variances for
; later processing to determine the noise floor of the CCD camera used to
; obtain the images.
;
FOR iexp=1,50 DO BEGIN
    texp=400L*iexp
    sexp=STRCOMPRESS(texp,/REMOVE_ALL)
    PRINT,'texp=',texp,'  sexp=',sexp
    mean_var,'../calib/images/im'+sexp,10,256,mb,vb
    mean_var,'../calib/dk'+sexp,10,256,md,vd
    mc=mb-md
    vc=vb+vd
    imout,'im'+sexp+'.avgc',mc
    imout,'im'+sexp+'.varc',vc
    PRINT,STRING(texp/1000., $
                 FORMAT='("Images for ",F4.1,"-s exposure completed.")')
ENDFOR
END