NAME:
	disp1focus
PURPOSE:
	To display the focus information
SAMPLE CALLING SEQUENCE:
	disp1focus, img, sharp, loc
INPUT:
	sharp	- A 2xN array with the sharpness information for each image
	loc	- A structure with the information on the location used for
		  sharpness derivation for full disk images
 CALLS: ***
	CONGRID [1], CONGRID [2], CONGRID [3], DISP_FOCUS_S1, GAUSSFIT3, GAUSS_FUNCT3, SETPS
	WDEF [1], WDEF [2], plots2, plottime [1], plottime [2], pprint [1], pprint [2]
	tv2 [1], tv2 [2], xyouts2 [1], xyouts2 [2]
 CALLED BY:
	focus_trace [1], focus_trace [2]
OPTIONAL KEYWORD INPUT:
	title	- The title information to display
	hc	- If set, then make a hardcopy
	info	- 2D comment string array, NCOMMxNIMG
HISTORY:
	Written 13-Sep-96 by M.Morrison
        6-Nov-96 (MDM) - Replaced "set_plot,'ps'" with setps
	16-Dec-96 (MDM) - Added code to not do GAUSS fit when
			  less than 4 points.
V3.0	16-Dec-96 (MDM) - Added DFILE and INFO
			- Added # pixels extracted
V4.0	26-Feb-97 (TDT)	- Adapted for focus3
			- Added noboxes, xcen, ycen, ncr, quad
V5.0	 9-Jul-97 (MDM) - Allowed LOC to be an array

NAME:
	disp_therm_rs232
PURPOSE:
	Display the thermo-couple temperatures
 CALLS: ***
	ARR2STR [1], Arr2Str [2], CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3]
	DISP_THERM_RS232_S1, FILE_EXIST [2], STR2ARR [1], STR2ARR [2], anytim2ex [1]
	anytim2ex [2], anytim2ints [1], anytim2ints [2], concat_dir [4], ex2fid [1]
	ex2fid [2], file_exist [1], file_exist [3], fmt_tim [1], fmt_tim [2], prstr [1]
	prstr [2], rd_tfile [1], rd_tfile [2], rd_therm_rs232, remtab [1], remtab [2]
	sprint, ut_time [1], ut_time [2]
HISTORY:
	Written 8-Feb-97 by M.Morrison
	18-Aug-97 (MDM) - Modified for S/C TB/TV

NAME:
	do_i0_dps_reformat
PURPOSE:
	To allow user to do reformatting with old reformatter
 CALLS: ***
	BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], CONCAT_DIR [1], CONCAT_DIR [2]
	CONCAT_DIR [3], FILE_EXIST [2], break_file [4], concat_dir [4], file_exist [1]
	file_exist [3], mk_trace_i0
HISTORY:
	Written 2-Dec-97 by M.Morrison
	29-Aug-97 (MDM) - Re-installed mods to only list G06* files

NAME:
	do_tr_inventory
PURPOSE:
	To generate inventory lists of all image files and to find the earliest  
       and latest image file times from the requested DPS or test files
SAMPLE CALLING SEQUENCE:
       do_tr_inventory, infiles, sttim, entim, outdir=outdir, rename=outdir, outfil=outfil
       do_tr_inventory, file_list('/disk6/people/dps/old_9709','*G060_QL_1998-01-11*.DAT1'), 
                                   sttim,entim,  testodir='./inv', /outdir
       do_tr_inventory, file_list('/disk6/people/dps','*G06*.DAT1'), sttim,entim
       do_tr_inventory, file_list('/td22/log/raw/','*.sc*'), sttim,entim
       do_tr_inventory, file_list('/usr2/people/ngale/inv','*.sc*'), sttim,entim,
				    testodir='./inv', /outdir 
INPUT/OUTPUT:
	infiles	  - Input input-file names (including the path; wildcards 
		    can be used in file names)
       sttim     - Output earliest image-file sync time in all of the files 
       entim     - Output latest image-file sync time in all of the files 
 CALLS: ***
	BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], CONCAT_DIR [1], CONCAT_DIR [2]
	CONCAT_DIR [3], FILE_EXIST [2], anytim2weekinfo, break_file [4], concat_dir [4]
	dps_fname2time, file_exist [1], file_exist [3], tr_inventory_telem
OPTIONAL KEYWORD INPUT:
	outdir	  - The output directory
       qdebug    - Debug flag 
	rename	  - To rename and move the input file to
		    the directory specified by RENAME
	testodir  - The test output top directory when outdir is set 
		    and rename is not set
	weekdir   - Flag to force the 'inv' output directory to be under the
		    same 'week*' directory as the '*.dat1' input files.  This
		    optional keyword is for use on non EOF computer systems 
		    when the keywords OUTDIR and RENAME are not set.
OPTIONAL KEYWORD OUTPUT:
	outfil    - Output filename list of input or renamed files

HISTORY:
V1.0   Written Nov-97 by R. W. Nightingale
V1.1   19-Nov-97 (RWN) - added capability of dps flag and skipbytes 
			  when infil ext = '.DAT1' or '.dat1'
V1.2	26-Nov-97 (MDM) - Changed OUTDIR default to be /inv under input dir
			- Added RENAME option
V1.3	 2-Dec-97 (MDM) - Added OUTFIL
V1.4	 3-Dec-97 (MDM) - Adjusted "auto_dir"
V1.5	 4-Dec-97 (MDM) - Corrected OUTDIR/AUTO_DIR yet again
V1.6	18-Feb-98 (MDM) - Modified OUTDIR to be a directory per week
V1.7	19-Feb-98 (RWN) - Added keyword TESTODIR to input top directory
			  when testing
			  Specified default OUTDIR
			  Removed line numbers
V1.8   11-Mar-98 (RWN) - Added keyword WEEKDIR for locating 'inv' directory
			  under the 'week*' directory and updated header info

NAME:
	do_tr_reformat
PURPOSE:
	To determine from inventory lists (spanning -30 days from the start time and +24 hours 
       from the end time) the integer hours into which to collect and reformat the raw image 
       files for each data type, and then to call the reformatter for each hourly group
SAMPLE CALLING SEQUENCE:
       do_tr_reformat, sttim, entim  , qdebug=qdebug
	   and for testing when the inventory files are in  /disk6/people/ngale/reformat/week*/inv, 
	   and not in the default *raw_vc2 directory,  tr_rd_inventory requires
       setenv,'TRACE_RAW_VC2=/disk6/people/ngale/reformat'  before running do_tr_reformat
	do_tr_reformat, 938473004, 938474479, getenv('TRACE_I1_DIR')
	do_tr_reformat,'16-Feb-98','22-Feb-98', '/td35/raw_fits_test', offset_time=6558102
INPUT:
       sttim0     - Input earliest image-file sync time in all of the files 
       entim0     - Input latest image-file sync time in all of the files 
OPTIONAL INPUT:
	base_outdir- The base directory for the output.  It will create a
		     directory per day under that location
 CALLS: ***
	anytim2ints [1], anytim2ints [2], data_type [1], data_type [2], fmt_tim [1]
	fmt_tim [2], int2secarr [1], int2secarr [2], tr_rd_inventory, tr_reformat
OPTIONAL KEYWORD INPUT:
       offset_time- The number of seconds to subtract from pkt_time to get 
                    the "real" GMT Time (used during ground tests)
	end_days   - The number of days of inventory searched after the end time, default is 1 day
       qdebug     - debug flag 

HISTORY:
V1.0   Written Nov-97 by R. W. Nightingale
V1.1    3-Dec-97 (RWN) - Modified type to string varible types
V1.20	 3-Dec-97 (MDM) - Added BASE_OUTDIR
V1.21	 4-Dec-97 (MDM) - Allow sttim/entim to be passed in by string
			- Allowed default base_outdir
V1.22	 4-Dec-97 (MDM) - Added offset_time
V2.0   22-Jan-98 (RWN) - Moved tr_rd_inventory from inside loop in tr_reformat to before loop below
V2.1   19-Feb-98 (RWN) - Updated Sample Calling Sequences above
			  Removed line numbers
V2.11	16-Apr-98 (MDM) - Changed default output base dir to TRACE_I1_BASE_DIR (from TRACE_I1_DIR)
V2.20	17-Jul-98 (MDM) - Changed to have inventory read go from -30 to +1 days (rather than
			  (-1 to +1 days)
V2.21	 5-Oct-98 (MDM) - Changed to allow env var override for the inventory read so that
			  EOF can do -1 to +1 days.
V2.22	30-Oct-98 (RWN) - Added end_days keyword for inventory read to +end_days (rather than +1 days)

NAME:
	dps_fname2time
PURPOSE:
	To convert/parse the DPS file name to generate the date/time and output file name
SAMPLE CALLING SEQUENCE:
	timarr = dps_fname2time (infil, outfilnam, fid, dps, apid, filnam, outdir=outdir)
       timarr = dps_fname2time ('/disk6/people/dps/TRACE_G060_QL_1997-08-27T19-54-50Z_V01.DAT1',
                                 outfilnam, fid, dps, apid, filnam)
       timarr = dps_fname2time ('/td22/log/raw/971014_011616_01.sc3c',
                                 outfilnam, fid, dps, apid, filnam, outdir='./inv', qdebug=1)
INPUT/OUTPUT:
	infil	  - Input input-file name (including the path)
	outfilnam - Output output-file name (including the path)
	fid	  - Output date and time from file name (yyyymmdd_hhmm)
       dps       - Output flag set = 1 when infil ext = '.DAT1'
       apid      - Output of apid from file name
       filtim    - Output of time in seconds from 24-May-68 from file name
 CALLS: ***
	BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], CONCAT_DIR [1], CONCAT_DIR [2]
	CONCAT_DIR [3], TIME2FILE, anytim2ints [1], anytim2ints [2], break_file [4]
	concat_dir [4], int2secarr [1], int2secarr [2]
 CALLED BY:
	check_ql_after_lz, do_tr_inventory, dps_proc_lev0_hk, dps_proc_mem_dump
OPTIONAL KEYWORD INPUT:							; line 22
	outdir	  - The output directory
       qdebug    - debug flag 

HISTORY:
V1.0   Written Nov-97 by R. W. Nightingale
V1.1   19-Nov-97 (RWN) - Added capability to set dps flag when infil ext = '.DAT1'
V1.2    1-Dec-97 (RWN) - Added capability to set dps flag when infil ext = '.dat1'
V1.3	20-Feb-98 (RWN) - Added skip apid when ext = '' for test files

NAME:
	dps_proc_lev0_hk
 CALLS: ***
	CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], DO_DPS_PROC_LEV0, DPS_MK_INDEX
	DPS_PROC_LEV0, DPS_RD_DSET_HEAD, FILE_EXIST [2], GET_NBYTES, GO_DPS_PROC_LEV0
	TEST, concat_dir [4], dps_fname2time, file_exist [1], file_exist [3]
	file_list [1], file_list [2], int2secarr [1], int2secarr [2], rd_hk [1], rd_hk [2]
	str_replace [1], str_replace [2]
HISTORY:
	Written Apr-98 by M.Morrison
	28-Jul-98 (MDM) - Added protection if the input file does not
			  exist (copy online didn't work?!?!?)

NAME:
	dps_proc_mem_dump
PURPOSE:
	Processing of the TRACE DPS quicklook and level
	zero memory dump (APID 14 = 0x0e) data files
 CALLS: ***
	CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], FILE_EXIST [2], TIME2FILE
	concat_dir [4], dps_fname2time, file_exist [1], file_exist [3], prstr [1]
	prstr [2]
HISTORY:
	Written 23-Apr-98 by M.Morrison
       Modified 29-Apr-98 by Dnyanesh Mathur
            1. Added call to loadverify.