;
;+
;
;  Aligns and averages a cube of images, accounting for saturated and missing
;  data.

PRO sxt_average, index, data, average

;
; Inputs:
;	index, data = index, data cube, uncalibrated
;
; Outputs:
;	average = average image, DN/millisec
;
; Routines called:
;	SXT_PREP, ALIGN_AR, GT_EXPDUR, SXT_AVERAGE1
;
; History:
;	Written June 1, 1993 Barry LaBonte
;	Separated out SXT_AVERAGE1  June 3, 1993  BJL
;
;-
;

; Get calibrated data, accurate saturation array
SXT_PREP, index, data, nix, nda, unc, satpix, /REGISTER

; Redo the registration (sigh!) to get missing data
renda = ALIGN_AR(FIX(data), index, missing = -1)

miss = WHERE(renda LT 0)
IF(miss(0) GE 0) THEN nda(miss) = -1

; Exposure times
texp = GT_EXPDUR(index)

SXT_AVERAGE1, nda, texp, average, satpix=satpix

RETURN
END