function get_eit_info, inrecs, short=short, $
out_style=out_style, fmt_time=fmt_time, $
day_only=day_only, time_only=time_only, date_only=date_only, msec=msec
;+
; Name: get_eit_info
;
; Purpose: provide 'standard' 1-line summaries of EIT index/fits file headers
;
; Input Parameters:
; inrecs - EIT structures (via read_eit) or fits file names
;
; Keyword Parameters:
; short - if set, provide a "shorter" summary
; fmt_time - output TIME format (default=ECS) - (see anytim OUT_STYLE)
; out_style - synonym for FMT_TIME (see anytim OUT_STYLE)
;
; History:
; 15-mar-1997 S.L.Freeland
; 18-mar-1997 S.L.Freeland - allow user FMT_TIME&OUT_STYLE,
; set default time output to -> ECS
;
; Method:
; just setup can call <get_infox> for some EIT "standards"
;-
day_only =keyword_set(day_only)
time_only=keyword_set(time_only)
date_only=keyword_set(date_only)
; select output time format
case 1 of
data_chk(fmt_time,/scalar,/string): ; user FMT_TIME
data_chk(out_style,/scalar,/string): fmt_time=out_style ; user OUT_STYLE
else: fmt_time='ECS' ; Default=ECS
endcase
if data_chk(inrecs,/struct) then index=inrecs else $
read_eit,inrecs,index
nindex=n_elements(index)
fields='WAVELNTH,NAXIS1,EXPDUR'
fmt='i3.3,i4.4,f5.1'
if date_only then fields=''
case 1 of
day_only or time_only or date_only:
keyword_set(short):
else: begin
fields='WAVELNTH,FILTER,NAXIS1,NAXIS2,EXPDUR'
fmt=arr2str(replicate('a',n_elements(str2arr(fields))))
endcase
endcase
retval=get_infox(index,fields,format=fmt,fmt_tim=fmt_time, $
time=time_only, day=day_only, msec=msec)
return,strtrim(retval,2)
end
Last revised: - Wed May 9 21:45:21 2007- F. Auchère