;+
; NAME:
;	smei_frm_comments
; PURPOSE:
;	Returns comments for Fits header in SMEI frame
; CATEGORY:
; CALLING SEQUENCE:
	FUNCTION smei_frm_comments, hdr
; INPUTS:
;	hdr	array[1]; type: SMEI__FRM_HDR structure
;			SMEI frame header
; OUTPUTS:
;	str	array[n]; type: string
;			list of comments (one for each tag name
;			in the SMEI__FRM_HDR structure
; OPTIONAL OUTPUT PARAMETERS:
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; PROCEDURE:
; MODIFICATION HISTORY:
;	MAR-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

names = tag_names(hdr)
n = n_elements(names)
comments = strarr(n)

FOR i=0,n-1 DO BEGIN
	CASE names[i] OF
	'BITPIX'		: comments[i] = ''
	'NAXES' 		: comments[i] = ''

	'FRAME_NR'		: comments[i] = 'frame number'
	'CAMERA'		: comments[i] = 'camera'
	'ROI_MAP'		: comments[i] = 'roi map'
	'MODE'			: comments[i] = 'mode'
	'TAGMODE'		: comments[i] = ''
	'FULL_FRAME'	: comments[i] = ''
	'SHUTTER'		: comments[i] = ''
	'N_DATA'		: comments[i] = 'nr data values'
	'TIME'			: comments[i] = 'UT time'
	'EXPOSURE'		: comments[i] = 'exposure in secs'
	'RA'			: comments[i] = 'ra of optical axis'
	'DEC'			: comments[i] = 'dec of optical axis'
	'ANGLE'			: comments[i] = 'position angle fov'
	'QUAT'			: comments[i] = 'quaternion'
	'RQUAT'			: comments[i] = 'refined quaternion'
	'SUN'			: comments[i] = 'Sun, unit vector in UCSD cam frame'
	'MOON'			: comments[i] = 'Moon, unit vector in UCSD cam frame'
	'VENUS'			: comments[i] = 'Venus, unit vector in UCSD cam frame'
	'DARK_OFFSET'	: comments[i] = ''
	'FLATFIELD'		: comments[i] = ''
	'COSMIC_RAYS'	: comments[i] = ''
	'CALIBRATION'	: comments[i] = ''
	'OBS_FRAME'		: comments[i] = 'frame sequence number'
	'FLAT_ENABLED'	: comments[i] = ''
	'LED_ENABLED'	: comments[i] = ''
	'BOS_ALERT'		: comments[i] = ''
	'BOS_CHANGE'	: comments[i] = 'BOS change state counter'
	'FIXED_BITS'	: comments[i] = 'bits fixed from parity checks'
	'CORRUPT_PIX'	: comments[i] = 'corrupt pixels at end'
	'CR_HITS'		: comments[i] = 'pixels blanked as cosmic rays'
	'ATTITUDE_DT'	: comments[i] = 'quat time discrepancy'
	'CCD_TEMP'		: comments[i] = 'CCD temperature'
	'BAD_DATA'		: comments[i] = 'bad data flag'

	'BASE_DONE' 	: comments[i] = ''
	'BASE_OK'		: comments[i] = ''
	'ECLIPSE'		: comments[i] = ''
	'SHADOW'		: comments[i] = ''
	'BAD_QUAT'		: comments[i] = ''
	'JUST_BAD'		: comments[i] = ''
	'ANNEAL'		: comments[i] = ''

	'PEDESTAL'		: comments[i] = 'pedestal'
	'DARK_CURRENT'	: comments[i] = 'dark current median'
	'DARK_AVERAGE' 	: comments[i] = 'dark current mean'
	'SDARK003'		: comments[i] = '3-min-smoothed dark current'
	'SDARK010'		: comments[i] = '10-min-smoothed dark current'

	'PED_SIGMA'		: comments[i] = 'standard dev for pedestal'
	'DARK_SIGMA'	: comments[i] = 'standard dev for dark current'
	'SQUARE'		: comments[i] = 'residual intensity in squares'
	'CENTER'		: comments[i] = 'residual intensity in center'

	'N_PEDESTAL'	: comments[i] = 'pixels contributing to pedestal'
	'N_DARK_CURRENT': comments[i] = 'pixels contributing to dark current'
	'N_SATURATED'	: comments[i] = 'nr saturated pixels'
	'N_POS_MEASLES'	: comments[i] = 'positive measles'
	'N_BIG_MEASLES'	: comments[i] = 'large measles'

	'N_PIXSUM'		: comments[i] = 'n_pixsum'
	'N_PIXDIF'		: comments[i] = 'n_pixdif'
	'PIXSUM'		: comments[i] = 'pixsum'
	'PIXDIF'		: comments[i] = 'pixdif'
	
	'L1A_PNTR'		: comments[i] = 'L1A file pointer'

	'CAL_PATTERN'	: comments[i] = 'calibration pattern'
	'ORB_PATTERN'	: comments[i] = 'on-the-fly orbital pattern'

	'VERSION'		: comments[i] = 'smei_frm version'

	'TLM_FILE'		: comments[i] = 'telemetry file'
	'L1A_FILE'		: comments[i] = 'L1A file'

	ENDCASE

ENDFOR

RETURN, comments  &  END