NAME:
	 search_sync
PURPOSE:
	To find a sync pattern in the first packet
SAMPLE CALLING SEQUENCE:
 new_start= tr_search_sync(start_bytes, lun=lun, infile=infile, skipbytes=skipbytes)
 new_start= tr_search_sync(0,infile='./tinv/971014_011616_01.sc3c')          ;test file
 new_start= tr_search_sync(0,infile='/disk6/people/dps/TRACE_G060_QL_1998-01-12T22-51-10Z_V01.DAT1')
 new_start= tr_search_sync(0,infile='/disk6/people/dps/TRACE_G060_QL_1998-01-11T07-24-31Z_V01.DAT1'
              ,skipbytes=48)

INPUT/OUTPUT:
	start_bytes - First byte of file to test for sync, but currently = long(0) below
       new_start   - Output of function
 CALLS: ***
	TR_SEARCH_SYNC
OPTIONAL KEYWORD INPUT:
	infile	    - Input input-file name (including the path)
       lun         - Logical I/O Unit Number 
       skipbytes   - skip header bytes (in ~dps, if needed)		; line 21
HISTORY:
V1.0	Written Nov-97 by R. W. Nightingale
V1.1   21-Jan-98 (RWN) - after reading packet + 4 bytes, point to the beginning of the next packet
                     

NAME:
	seq_run_sum
PURPOSE:
	To look through the Sequence ID and log all times when a sequence
	was running
SAMPLE CALLING SEQUENCE:
	seq_run_sum, '18-dec-95', !stime
	seq_run_sum, month='Jan-96', outfil='$MDI_CAL_INFO/9601.cam_run_sum
	seq_run_sum, sttim, entim, outfil=outfil, month=month, info=info
	seq_run_sum, sttim, entim, outfil='/dev/null', struct=struct
INPUTS:
	sttim	- starting time
	entim	- ending time
 CALLS: ***
	MASK, SEQ_SUM_P2, UNIQ [1], UNIQ [2], UNIQ [3], anytim2ex [1], anytim2ex [2]
	anytim2ints [1], anytim2ints [2], data_type [1], data_type [2], fmt_tim [1]
	fmt_tim [2], get_hk_info [1], get_hk_info [2], gt_day [1], gt_day [2]
	hk_time_sort, int2secarr [1], int2secarr [2], restgen [1], restgen [2]
	ut_time [1], ut_time [2]
 CALLED BY:
	MDI_SUMMARY
OPTIONAL KEYWORD INPUT:
	outfil	- an output file name to write to
	month	- Optionally specify the month rather than the sttim/entim
	info	- The get_hk_info returned structure
HISTORY:
	Written 14-Apr-97 by M.Morrison (using MDI CAM_RUN_SUM as start)
	13-Aug-97 (MDM) - Added WIN option
	15-Aug-97 (MDM) - Corrected bug for MONTH option
V1.1	25-Sep-97 (MDM) - Adjusted format to be slightly shorter
V1.2	14-Oct-97 (MDM) - Added STRUCT option to pass out the results
V1.3	11-Mar-98 (MDM) - Changed to use "ikmsqid" (main sequence ID)
V1.4	 8-Apr-98 (MDM) - Modified to handle the ID showing up several
			  times in the ID map file
V1.5	 9-Apr-98 (MDM) - Gutted much code and replaced with a call
			  to ID2NAM
V1.6	30-Apr-98 (MDM) - Changed the seq name allocation from 24 to 30 chars
			  and made the ID be z4.4
V1.7	 6-Jul-98 (MDM) - Patch for ID showing up as 0 bogus
       24-Jul-98 (FZ)  - Changed loop variable at line 113 to long.

NAME:
	sharpfocus
PURPOSE:
	To 
 CALLS: ***
	FOCUS_AREA, SHARPFOCUS2, SHARPNESS
HISTORY:
	Written 6-Apr-94 by M.Morrison (using Zayer routine as start)
	26-Apr-94 (MDM) - Added /ISS option

NAME:
	ssw_bypass
PURPOSE:
	While integrating into the /ssw system, it was necessary
	to control the order of the /tsw tree and /mdisw tree.
 CALLS: ***
	ssw_path
HISTORY:
	Written 15-Nov-96 by M.Morrison
	14-Apr-97 (MDM) - Brought online again.