function get_expdur, index, shutdur=shutdur, $
		exp_expdur=exp_expdur, dpe=dpe, qstop=qstop
;
;+
;Name:
;	get_expdur
;Purpose:
;	Calculate the actual exposure duration of an image. The
;	returned value is in millisec.
;Input:
;	index		- the SXT index structure (ie: index, not index.sxt)
;OPTIONAL INPUT:
;	shutdur		- If this keyword is set, the SHUTTER duration is
;			  returned, not the effective exposure duration
;			  which takes into account the 8% mask.
;Output:
;	returns		- the measured exposure duration (in msec)
;OPTIONAL OUTPUT:
;	exp_expdur	- the expected exposure duration (in msec)
;	dpe		- DP exposure level
;Modification History
;	Written 1-Oct-91 by M.Morrison
;	6-Nov-91 (MDM) 	- Added DPE output option
;			- Made the check for the 10% mask and adjusted
;			  the exposure duration if present (this option
;			  can be avoided by using the /SHUTDUR switch)
;			- Removed option to pass "expdur" and "explev"
;			  separately
;	13-Nov-91 MDM	- Removed the routine - should use GT_DPE and
;			  GT_EXPDUR instead.
;-
;
print, '****************************************************************'
print, '***** Please do not use this routine (GET_EXPDUR) **************'
print, '***** Please use "gt_dpe" or "gt_expdur" ***********************'
print, string(bytarr(10)+7b)
;
dpe        = gt_dpe(index)
exp_expdur = gt_dpe(index, shutdur=shutdur, /conv)
act_expdur = gt_expdur(index, shutdur=shutdur)
;
if (keyword_set(qstop)) then stop
return, act_expdur
end