;+
;
; NAME: 
;	TYPE_FLARE
;
; PURPOSE:
;	This procedures prints the flares database quantities to the screen.
;	Peak rate, total counts, time of peak, etc.
;
; CATEGORY:
;	BATSE
;
; CALLING SEQUENCE:
;
;
; CALLS:
;	READ_FLARE, ATIME
;
; INPUTS:
;       none explicit, only through commons;
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       none explicit, only through commons;
;
; OPTIONAL OUTPUTS:
;	none
;
; KEYWORDS:
;	none
; COMMON BLOCKS:
;	FLISTCOM
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;	Written by AKT or GSK, 1991
;	Documentation added, ras, April, 1996
;-


pro type_flare
;
@flistcom.pro
;
;
on_ioerror,bad
getinput:
alpha_page
iflare = ' '
read, 'Enter flare number to display (press return to return): ', iflare
if iflare eq '' then goto,getout
iflare = string (iflare)
read_flare, iflare, flare_data, error = error
if error then begin
bad:
   print, 'Please reenter flare number.'
   goto,getinput
endif
;
print, ' '
print, 'Current parameters for flare ',iflare
print, ' '
print, format='("start time",t30, a)', atime(flare_data.start_secs,/hxr)
print, format='("peak time", t30, a)', atime(flare_data.peak_secs,/hxr)
print, format='("duration (s)",  t30, a)', flare_data.duration
print, format='("prate (c/s)", t30, a)', flare_data.peak_rate
print, format='("total counts", t30, a)', flare_data.total_counts
print, format='("1start time (bkgd)", t30, a)', $
   atime(flare_data.bkg1_start_secs,/hxr)
print, format='("1duration (bkgd) (s)", t30, a)', flare_data.bkg1_duration
print, format='("2start time (bkgd)", t30, a)', $
   atime(flare_data.bkg2_start_secs,/hxr)
print, format='("2duration (bkgd) (s)", t30, a)', flare_data.bkg2_duration
;CHANGE**************!!!!!!!!!!!!!!!below
print, format='("burst trigger #", t30, a)', flare_data.burst_num
print, format='("burst TJD", t30, a)', flare_data.burst_tjd
print, format='("triggertime (secsofday)", t30, a)', flare_data.burst_trig_secs 
;CHANGE**************!!!!!!!!!!!!!!!!above
print, ' '
;
goto,getinput
;
getout:
end