NAME: 
	T_TTS

 PURPOSE:
	This function returns the BATSE tts time intervals and elapsed time.

 CATEGORY:
	BATSE

 CALLING SEQUENCE:
	t = t_tts( tts_struct, t_elapse, err_t )

 CALLS: ***
	SC_SECONDS_ED
 INPUTS:
       tts_struct: tts data structure for 1 channel.

 OPTIONAL INPUTS:
       none

 OUTPUTS:
       time to spill interval in seconds
	t_elapse  : estimated time to mid-point of interval, seconds since 1-jan-1979
	t_err     : possible offset in each interval based on previous sync bit

 OPTIONAL OUTPUTS:
       

 KEYWORDS:
       none
 CALLED BY:
	READ_TTS_FITS
 COMMON BLOCKS:
       none

 SIDE EFFECTS:
       none

 RESTRICTIONS:
       none

 PROCEDURE:
       See the BATSE flight software users manual, page 33 for tts data
	Also see from BDAS software: READ_TTS_HISTORY.FOR

 MODIFICATION HISTORY:
	ras, 16-Jun-1996

*****************************************************************************
 NAME: 
	TEST_CAL
 PURPOSE:
     This subroutine calculates the energies corresponding to the channel
 boundaries for the BATSE Spectral Detectors.  The calibration is assumed
 to consist of two parts:  a calculation of the light output from the NaI
 crystal from the channel number, and a calculation of the energy loss in
 the crystal that produces that light.  In this routine, there is no
 SLED or MQT correction.  This routine is used to recalibate after a primary
 calibration has set the values in common.

  There are calibration fiducials for the lld's, those obtained by schwartz
  are the defaults.  To change to the Preece fiducials, set which_fiducials
  to 0 in  read_coef_com, spec_lld_old, which_fiducials

   Input:
      ndet---the detector number
      width64---the variable width of the 64th channel
      spec_lld---LLD settings for all 8 detectors
      nlines---the number of lines used for calibration
      chan---vector of location of calibration lines in uncompressed channels
      en---vector of location of calibration lines in energy

 Keyword Inputs:
	MAXCHAN - test_cal only up to this channel to save time.
      /discsp - edges are only those needed for discsp edges, lld/2, lld, max(evec)
      /use_calibration if set then the input arguments
	are set from the common block cal_sher_com and the outputs are 
	calculated
      /noevec - don't compute the evec for output, just go as far as xvec

   Output:
      evec---the vector of energies, 257 values normally, 3 for /discsp
      unevec - energies w/o sled correction
      xvec---the vector of effective uncompressed channel boundaries
      pre_olight - vector of light outputs/channel before sled amp correction
      olight     - vector of light outputs/channel after sled

   Common blocks:
     common spline_com, break,c0,c1,c2,c3
      common sled_com, sb,sc,sd,scut
      common fiducial_com,af,bf,cf,xf
      common read_coef_com, spec_lld_old, which_fiducials
	;common block for passing 511 line position out to the top level
	common cal_sher_com, pass511, w64_used, spec_lld_used

 Category: CGRO/BATSE

 Calls: ***
	CHANNEL, CHECKVAR [1], DELTA_CONTROL, FAST_RATIO, FCHECK, FCRYSTAL, FCRYSTAL1
	GAIN_COR, LLD_CHAN, READ_COEF, SLED, anytim [1], anytim [2], anytim [3], anytim [4]
	anytim [5], checkvar [2], printx [1], printx [2]
 History:
   Version 1, ras, 11-apr-1997

 NAME: 
       TIME_ARC_NAME

 PURPOSE:


 CATEGORY:
       BATSE

 CALLING SEQUENCE:


 CALLS: ***
	ATIME [1], ATIME [2], CHKLOG [1], CHKLOG [2], CONCAT_DIR [1], CONCAT_DIR [2]
	CONCAT_DIR [3], batse_read_cat, concat_dir [4]
 INPUTS:
       none explicit, only through commons;

 OPTIONAL INPUTS:
	none

 OUTPUTS:
       none explicit, only through commons;

 OPTIONAL OUTPUTS:
	none

 KEYWORDS:
	none
 CALLED BY:
	FLDISPLAY
 COMMON BLOCKS:
	none

 SIDE EFFECTS:
	none

 RESTRICTIONS:
	none

 PROCEDURE:
	none

 MODIFICATION HISTORY:

 PROJECT:
	SDAC
 NAME: 
       TIME_F_NAME

 PURPOSE:
	This procedure locates BATSE files from their times.

 CATEGORY:
       BATSE

 CALLING SEQUENCE:


 CALLS: ***
	FS_OPEN [1], FS_OPEN [2], LOC_FILE [1], LOC_FILE [2], LOC_FILE [3], TIME2FILE
	USER_CHOOSE, anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
 INPUTS:
       none explicit, only through commons;

 OPTIONAL INPUTS:
	none

 OUTPUTS:
       none explicit, only through commons;

 OPTIONAL OUTPUTS:
	none

 KEYWORDS:
	none
 CALLED BY:
	FS_OPEN [1]
 COMMON BLOCKS:
	none

 SIDE EFFECTS:
	none

 RESTRICTIONS:
	none

 PROCEDURE:
	none

 MODIFICATION HISTORY:
	Version 2, richard.schwartz@gsfc.nasa.gov 7-jun-1998.
		cleaned up code to make it more robust and close open units not needed.

 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: ***
	ALPHA_PAGE [1], ALPHA_PAGE [2], ATIME [1], ATIME [2], READ_FLARE
 INPUTS:
       none explicit, only through commons;

 OPTIONAL INPUTS:
	none

 OUTPUTS:
       none explicit, only through commons;

 OPTIONAL OUTPUTS:
	none

 KEYWORDS:
	none
 CALLED BY:
	FLIST, FSPLOT
 COMMON BLOCKS:
	FLISTCOM

 SIDE EFFECTS:
	none

 RESTRICTIONS:
	none

 PROCEDURE:
	none

 MODIFICATION HISTORY:
	Written by AKT or GSK, 1991
	Documentation added, ras, April, 1996