NAME:
	mk_bad_pix_map_load
PURPOSE:
	Take pixel coordinates for bad pixels in the sun rotated IDL
	images and make the DHC memory load for on-board masking for
	both amplifiers and all 4 summations			      (2/99 RWN)
SAMPLE CALLING SEQUENCE:
	mk_bad_pix_map_load, ss_array, extra, outdir=outdir
	mk_bad_pix_map_load, [59683, 59684, 199360, 814825, 815849, $
		815850, 816873, 987881, 1039996], '_tst_299'
INPUTS:
	ss_array - The IDL 1-D "where" array of the bad pixels.  It has
		   to be for an amplifier A at this time, and must be
		   from a 1024x1024 image (no summing/binning)
	extra	 - The extra piece of information to add to the filename
		   series.  Output file names are "bpXX" + extra + '.cld'  where
		   XX is ['a1', 'a2', 'a4', 'a8', 'b1', 'b2', 'b4', 'b8']
		   for amplifier a sum 1x2, 2x2, 4x4, 8x8 and then amp b.
 CALLS: ***
	ARR2STR [1], Arr2Str [2], BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3]
	CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], DO_STRUPCASE, FILE_EXIST [2]
	RD_JPEG_TABLE, REVERSE, STR2ARR [1], STR2ARR [2], TOPSDB_BAD_COL_TAB
	TOPSDB_BAD_PIX_TAB, TOPSDB_GEN_IP_CLD, TOPSDB_INIT_CLD_FIL, TOPSDB_MK_AEC_LD
	TOPSDB_MK_PNT_LD, TOPSDB_TABLE2CLD, anytim2doy [1], anytim2doy [2]
	anytim2ex [1], anytim2ex [2], break_file [4], concat_dir [4], dec2sun [1]
	dec2sun [2], file_append [1], file_append [2], file_exist [1], file_exist [3]
	prstr [1], prstr [2], rd_tfile [1], rd_tfile [2], remtab [1], remtab [2]
	str_replace [1], str_replace [2], ut_time [1], ut_time [2]
OPTIONAL KEYWORD INPUT:
	outdir   - The directory where to put the output
HISTORY:
V2.0	Written 22-Jan-99 by M.Morrison	(version for TOPSDB_GEN_IP_CLD)
V2.1	 8-Feb-99 (RWN) - Correct bad pixel triplet and pointer for last column 
			  Correct bad pixel triplet and pointer for 2 & 3 pixels
			    in a row
			  Add dummy bad pixel triplet every 64 rows
V2.2	13-Apr-99 (RWN) - Add vector offsets for column (252) and row (1) to pixel map
			  Update output file header for pixel triplet code = 32 text
			  Add 252 to rowdatastart and add 2 print columns for image x,y

NAME:
	mk_hst_summary
PURPOSE:
	Make the history summary file for
SAMPLE CALLING SEQUENCE:
	mk_hst_summary, '15-Jan-97'
	
	for i=gt_day('1-oct-96'),gt_day(!stime) do mk_hst_summary, fmt_tim(i)
	for i=gt_day('1-Mar-97'),gt_day(!stime) do mk_hst_summary, fmt_tim(i)
 CALLS: ***
	BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], CONCAT_DIR [1], CONCAT_DIR [2]
	CONCAT_DIR [3], Date2DOY [1], Date2DOY [2], FILE_EXIST [2], MK_HST_FROM_TSTOL
	STR2ARR [1], STR2ARR [2], anytim2ex [1], anytim2ex [2], anytim2ints [1]
	anytim2ints [2], break_file [4], concat_dir [4], ex2fid [1], ex2fid [2]
	fid2ex [1], fid2ex [2], file_append [1], file_append [2], file_exist [1]
	file_exist [3], file_list [1], file_list [2], fmt_tim [1], fmt_tim [2], gt_day [1]
	gt_day [2], int2secarr [1], int2secarr [2], prstr [1], prstr [2], rd_tfile [1]
	rd_tfile [2], str_replace [1], str_replace [2]
HISTORY:
	Written 20-Jan-97 by M.Morrison
	 1-Apr-97 (MDM) - Added checking for TSTOL logged run time
	 1-Apr-97 (MDM) - Added searching through EVENT files too
	22-Apr-97 (MDM) - Modified alphabetical sort command

NAME:
	mk_imgsum_html
PURPOSE:
	Build HTML code for making the monthly calendar and synoptic
	page summaries (See http://www.lmsal.com/IMAGES/ )
SAMPLE CALLING SEQUENCE:
	out = mk_imgsum_html(outfil='/hosts/pore1/usr/local/etc/httpd/htdocs/IMAGES/index.html', /header, /titles)
	out = mk_imgsum_html(/mdi_month)
 CALLS: ***
	BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], CARR2EX, CONCAT_DIR [1]
	CONCAT_DIR [2], CONCAT_DIR [3], FILE_EXIST [2], MK_IMGSUM_HTML_S1
	MK_IMGSUM_HTML_S2, MK_IMGSUM_HTML_S3, TIM2CLON, TIME2FILE, anytim2ex [1]
	anytim2ex [2], break_file [4], clon2ex [1], clon2ex [2], clon2ex [3]
	concat_dir [4], file_exist [1], file_exist [3], file_list [1], file_list [2]
	gt_day [1], gt_day [2], int2secarr [1], int2secarr [2], prstr [1], prstr [2]
	str_replace [1], str_replace [2], ut_time [1], ut_time [2]
HISTORY:
	Written 30-Apr-97 by M.Morrison
	19-May-97 (MDM) - Added MDI HR images
	22-May-97 (MDM) - Added link to firstlight archive
			- Removed SXT east and west synoptic images
			- Modified to point to .html files instead of .gif files to allow FITS blowup
	27-May-97 (MDM) - Modified to not display last 2 rotations of EIT synoptic images
	28-May-97 (MDM) - Added XVDOC link
	12-May-99 (MDM) - Replaced /hosts/pore1/usr3/httpd/htdocs
			  with /www

NAME:
	mk_trace_i0
PURPOSE:
	To convert a raw telemetry file into FITS image file(s)
SAMPLE CALLING SEQUENCE:
	mk_trace_i0, infil, outfilnam, outdir=outdir
	mk_trace_i0, '/td02/log/raw/961030_161430_01.sc3c', '961030_161430_focus3.fits'
INPUT:
	infil	- Input file name (including the path)
	outfilnam- The output file name (with or without the path)
 CALLS: ***
	CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], FILE_EXIST [2], FXADDPAR [1]
	FXADDPAR [2], FXBADDCOL [1], FXBADDCOL [2], FXBCREATE [1], FXBCREATE [2]
	FXBFINISH [1], FXBFINISH [2], FXBHMAKE [1], FXBHMAKE [2], FXBWRITE [1]
	FXBWRITE [2], FXHMAKE [1], FXHMAKE [2], FXWRITE [1], FXWRITE [2], MASK
	MK_TRACE_FIND_SYNC, MK_TRACE_I0_PAD, MK_TRACE_I0_PKT_PAD, MK_TRACE_I0_S1
	concat_dir [4], dec2sun [1], dec2sun [2], deriv_arr [1], deriv_arr [2]
	file_exist [1], file_exist [3], rd_trace_i0 [1], rd_trace_i0 [2]
	str_replace [1], str_replace [2], tbeep [1], tbeep [2], tbeep [3]
 CALLED BY:
	do_i0_dps_reformat
OPTIONAL KEYWORD INPUT:
	outdir	- The output directory 
HISTORY:
V1.0	Written Oct-96 by M.Morrison
V2.0	 5-Nov-96 (MDM) - Expanded to handle DHC data product headers 
			  (sync pattern...)
			- Handle incomplete input file better (mk_trace_i0_pad)
V2.1	 8-Nov-96 (MDM) - Added option to pass in the old reformatted file
			  name and to have it converted to FITS
V2.2	14-Nov-96 (MDM) - Modified to recognize camera summed data (still
			  type "FFFF")
V2.3	30-Nov-96 (MDM) - Mod to protect against problem IP header
			  (force size to be 1040x1031)
V2.4	 4-Dec-96 (MDM) - Mod to have extract work with the temporary
			  output formats (type FFFF)
V2.5	 9-Dec-96 (MDM) - Modified to handle the new order of "nx,ny,rowlen"
			  associated with DEP version 38 (hex)
V3.0	10-Dec-96 (MDM) - Corrected to read the last partial packet
			- Modified to do multiple images per file
V3.1	13-Dec-96 (MDM) - Corrected new order "nx,ny,rowlen".  Had nx/ny
			  reversed
V3.2	16-Dec-96 (MDM) - Added TYPE=0 ("normal data")
V3.3	16-Dec-96 (MDM) - Fixed up IP dump type (FF02)
			- Mod to search forward to sync
			- Patch for V3.1 patch when "ny" was zero (nx now)
V3.4	17-Dec-96 (MDM) - Write stuff out for TYPE=1,8 and 12 even though
			  it's not decoded
V3.5	17-Dec-96 (MDM) - Added 8 bit pack decoding
V3.6	18-Dec-96 (MDM) - Modified to handle IP summing
V3.7	18-Dec-96 (MDM) - Added 12 bit pack decoding
V3.8	20-Dec-96 (MDM) - Added reformatting of jitter mode data
V3.9	23-Dec-96 (MDM) - Adjusted jitter mode reformatting.  It was going
			  into the next data product for sync patterns
V4.00	 2-Jan-97 (MDM) - Corrected length derivation.  The length reported
			  is the true final length, even if there is one
			  word of pad.
V4.01	25-Jan-97 (MDM) - Adjusted failsafe to work on nwords<200 rather
			  than 1000 because of short memory dumps
V4.02	29-Jan-97 (MDM) - Corrected JPEG length (550 versus 505 header length)
V4.03	 6-Feb-97 (MDM) - Corrected IP dump data lengths (don't subtract 7)
V4.04	28-Mar-97 (MDM) - Pass the qstop parameter recursively
V4.05	29-Apr-97 (MDM) - Made default output filename be (mk_trace_i0.fits)
			- Print the input file name
V4.06	 8-May-97 (MDM) - Added capability to keep moving forward when it
			  can't find a sync
V4.07	19-May-97 (MDM) - Removed printing input file if not first image
			- Fixed protection for searching for sync past EOF
			- Shift forward 2040 instead of 1020
V4.10	11-Jun-97 (MDM) - Added new reformatting types:
				FFF4   Register Dump
				FFF6   Special DTB dump
V5.00	 1-Aug-97 (MDM) - Major rewrite to not use recursion
			   *** STILL TODO -- correct for missing packets ***
V5.01	27-Aug-97 (MDM) - Cheap quick patch to try to fix for missing packets
			   *** V5.01 did not work, reverted back to 5.00 ***
V5.02	28-Aug-97 (MDM) - Correction for #images over 1000
V6.00	29-Aug-97 (MDM) - Corrected for missing packets problem - reconstruction
			  AND missing the start sync for the next frame

NAME:
	mk_trace_i1
PURPOSE:
	To take the one file per image FITS files and make the
	"final" trace formatted files (a file per hour)
HISTORY OF IMG_VER:
1.0	- "mk_trace_i0"
2.0	- "mk_trace_i1" initial value
2.01	- Added APID and PKT_TIME to the binary fits extension
	- Changed "n_words" to "n_bytes"
	- Changed "comp_style" to "comp_code"
2.10	- Changed to have "start_byte" be from the beginning of
	  the file (not the beginning of data section)

 CALLS: ***
	BSORT [1], BSORT [2], BSORT [3], BSORT [4], MK_TRACE_I1_S1, TIME2FILE, UNSIGN
	anytim2ex [1], anytim2ex [2], anytim2ints [1], anytim2ints [2], ex2fid [1]
	ex2fid [2], fmt_tim [1], fmt_tim [2], int2secarr [1], int2secarr [2], rem_elem [1]
	rem_elem [2], restgen [1], restgen [2], str_concat [1], str_concat [2], uniqo [1]
	uniqo [2], where_arr [1], where_arr [2]
HISTORY:
	Written 14-Oct-97 by M.Morrison
	15-Oct-97 (MDM) - Added APID and PKT_TIME to binary fits extensions
	16-Oct-97 (MDM) - Changed output file to have 4 digit year
			- Merged APACHE and CHEYENNE files
V1.01	16-Oct-97 (MDM) - Corrected NY_OUT (was N_WORDS for compressed mode)
			- Added EXT_NROW
V1.02	16-Oct-97 (MDM) - Adjusted to get ready for running Sep-97 data
V1.03	28-Oct-97 (MDM) - See IMG_VER 2.10 descr
V1.04	29-Oct-97 (MDM) - Corrected 28-Oct-97 mod
V1.10	17-Nov-97 (MDM) - Ran for Nov ops sim
			- Use bsort, not sort for time ordering
V2.00	 9-Apr-98 (MDM) - Added mk_trace_i1_s3 to make tri files
			  from all 1 hr fits file in a given 
			  directory
			- Added FITS1FIL information and deleted
			  the tril file

             NAME : moffat2d

          PURPOSE : Returns elliptically deformed Moffat function


 CALLING SEQUENCE : moffat = moffat2d(width, moff_params)

           INPUTS : width  sizeing parameter for the output PSF.
                    moffat_params array with eight parameters of the Moffat function
                    For description of the parameters and the mathematical expression
                    for the Moffat function used in this function see

                    Martens, P.C., Acton, L.W., Lemen, J.R.,
                    The point spread function of the soft X-ray telescope aboard YOHKOH,
                    Solar Physics, 1995, vol 157, p. 141-168

  OPTIONAL INPUTS : none

         KEYWORDS : none

          OUTPUTS : Array of the size (2*width+1)x(2*width+1) with the MOffat function values

 CALLS: ***
	CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], ISOTHERMAL, concat_dir [4]
	trace_euv_resp [1], trace_euv_resp [2], trace_psf_isothermal
 CALLED BY:
	trace_psf_isothermal
    COMMON BLOCKS : none

          EXAMPLE : IDL> moffat=moffat2d(21, [1.7, 2.4, 100.0, 0.1, 0.3, -0.20, 0.45, 1.0])

    SPECIAL CALLS : none

          WRITTEN : S. Gburek 09-March-2006, email sg@cbk.pan.wroc.pl
                     based on earlier code by P.C.H Martens, 1995

         MODIFIED :