Name:
		KeySea
	Purpose:
		Decode item, operator, and value from 'key' parameter,
		apply the search to the input data vectors and return
		the success indices of the input data vector.  A single 
		success index vector is always  returned for each call.
		A multiple item search begins with the first item in 
		the list which is "AND" to the
		results of the next item search and so on.
	CALLING SEQUENCE:
		idx = KeySea(key, vec)
	Input:
		key 	(scalar) item, operator and value for Search
		invec	data vector to be searched 
	RETURNED:
		idx	list of success indices for the search key.
 CALLS: ***
	Ck_Item, ParsKey, STR2ARR [1], STR2ARR [2], SXTKaySea [1], SXTKaySea [2]
 CALLED BY:
	RdObsDat, mk_key, mk_sdl
	History:
		written 16-Oct-91 by GAL from 20-Aug-91 version of
			KeySearch procedure.
			17-Oct-91, deleted keywords and add internal
			checks for input structure-type (ie sxt or bcs)
			for future use with other instruments.
			21-Oct-91, Minor correction to way the index
			list is being made-- MDM and GAL
			10-Jan-92, GAL opt and xray searches use gt
			function values, see called rountines via SXTKaysea.
			22-Jan-92, GAL, remove limitation nested structures
			such as data-index from sxt.
			28-Jan-92, minor update to fix bug on input key
			4-Feb-92, added dpe search key (via gt_* function).
			10-feb-92, added Dp_mode search key (via gt_* fun.).

	Name:
		KeySearch
	Purpose:
		Decode item, operator, and value from 'key' parameter,
		apply the search to the input data vectors and return
		the new data vectors.  A single success vector is always
		returned for each call; a multiple item search begins
		with the first item in the list which is "AND" to the
		results of the next item search and so on.
	CALLING SEQUENCE:
		KeySearch, key, vec, [sxtp=sxtp, sxtf=sxtf, hxt=hxt, 
					wbs=wbs, BCS=bcs]
	Input:
		key 	item, operator and value for Search
	Input/Output:
		vec	data vector to be searched and updated
	KeyWord-input/output:
		sxtp	flag giving the type of data vector
		sxtf	flag giving the type of data vector
		bcs 	flag giving the type of data vector 
		hxt 	flag giving the type of data vector 
		wbs 	flag giving the type of data vector 
 CALLS: ***
	Ck_Item, ParsKey, STR2ARR [1], STR2ARR [2], SXTKaySea [1], SXTKaySea [2]
	History:
		written 14-May-91 by GAL.
		6-Aug-1991, updated for changes to formal parameters 
		on calls to ParsKey and KaySea.
		13-Aug-91, updated logic for multiple instrument search
		20-Aug-91, updated for wbs and hxt as seperate records

NAME:
	kill_ftp
PURPOSE:
	To monitor FTP jobs that have hung up and are eating up CPU
HISTORY:
	Written 13-Sep-93 by M.Morrison
	19-Oct-93 (MDM) - Modified how ftp jobs were recognized
       18-Mar-94 (SLF) - Trained to kill
       28-May-98 (PGS) - modified ps command to work under OSF;
       29-May-98 (PGS) - modified ps command to so only one time field (OSF): to remove ambiguity of test.
                         (incidentally, made output similar to default ps -auxw on isass2 Ultrix machine.)

NAME:
	kill_ftp
PURPOSE:
	To monitor FTP jobs that have hung up and are eating up CPU
HISTORY:
	Written 13-Sep-93 by M.Morrison
	19-Oct-93 (MDM) - Modified how ftp jobs were recognized
       18-Mar-94 (SLF) - Trained to kill

NAME:
     KILL_INDEX
PURPOSE:
     Delete an array of numbers from another array of numbers.
     Returns -1 if all the entire vector gets killed.
CATEGORY:
CALLING SEQUENCE:
     new_index = kill_index(old_index,kill_vector)
INPUTS:
     old_index = old vector 
     kill_vector = vector of numbers to delete from old_index
OPTIONAL INPUT PARAMETERS:
KEYWORD PARAMETERS
OUTPUTS:
     new_index = the new vector of numbers with kill_vector deleted
 CALLS: ***
	where_arr [1], where_arr [2]
 CALLED BY:
	HOTPIX_FUDGE, NEUPERT_PLOT, SIMPLEX_INSIDE, SXT_HOTPIX_FUDGE, SXT_OBSRPT
	SXT_QLOOK, TIDY_DATA, WL_CUBE_II, sxl2radiance, sxl_analysis, sxt_clean [1]
	sxt_clean [2]
COMMON BLOCKS:
SIDE EFFECTS:
RESTRICTIONS:
PROCEDURE:
     Uses where_arr.
MODIFICATION HISTORY:
     T. Metcalf  Sep 9, 1992
     L. Acton  Jul 31,2001    Changed for loop to longword type.

NAME:
     KILL_INDEX
PURPOSE:
     Delete an array of numbers from another array of numbers.
     Returns -1 if all the entire vector gets killed.
CATEGORY:
CALLING SEQUENCE:
     new_index = kill_index(old_index,kill_vector)
INPUTS:
     old_index = old vector 
     kill_vector = vector of numbers to delete from old_index
OPTIONAL INPUT PARAMETERS:
KEYWORD PARAMETERS
OUTPUTS:
     new_index = the new vector of numbers with kill_vector deleted
 CALLS: ***
	where_arr [1], where_arr [2]
 CALLED BY:
	HOTPIX_FUDGE, NEUPERT_PLOT, SIMPLEX_INSIDE, SXT_HOTPIX_FUDGE, SXT_OBSRPT
	SXT_QLOOK, TIDY_DATA, WL_CUBE_II, sxl2radiance, sxl_analysis, sxt_clean [1]
	sxt_clean [2]
COMMON BLOCKS:
SIDE EFFECTS:
RESTRICTIONS:
PROCEDURE:
     Uses where_arr.
MODIFICATION HISTORY:
     T. Metcalf  Sep 9, 1992
     L. Acton  Jul 31,2001    Changed for loop to longword type.

   Name: killold

   Purpose: kill old jobs (PIDs)

   Keyword Parameters:
      noconfirm - switch, if set, do not prompt before each kill
      testing   - switch, if set, just show what WOULD happen (no spawn)      
      hours     - age to kill (default is 24-48 hours)
      all       - kill all jobs (older than 10 minutes - dont kill THIS JOB)

   Calling Sequence:
      killold [,/noconfirm, /testing]

 CALLS: ***
	OS_FAMILY, STR2ARR [1], STR2ARR [2], anytim2ints [1], anytim2ints [2]
	data_chk [1], data_chk [2], fmt_tim [1], fmt_tim [2], get_user [1], get_user [2]
	gt_day [1], gt_day [2], int2secarr [1], int2secarr [2], mail [1], mail [2]
	pr_status [1], pr_status [2], prstr [1], prstr [2], str2cols [1], str2cols [2]
	strjustify, timegrid
   Restrictions:
      Unix alpha-osf only (or others with identical "ps auxw" format)

   History:
      21-Dec-1995 (S.L.Freeland)
       5-jan-1996 (S.L.Freeland) - add MAIL keyword
      10-jan-1996 (S.L.Freeland) - use prstr instead of more
      11-jan-1996 (S.L.Freeland) - only mail if jobs killed 
       4-feb-1996 (S.L.Freeland) - add HOURS keyword and logic

NAME:
	klik
PURPOSE:
	To return pixel location.
CALLING SEQUENCE:
	klik 
	klik, /nomark, bin=4, color=1
       klik, xsave, ysave
INPUT:
	None
OPTIONAL INPUT
	nomark	- If present, the location on the image which 
		  is selected is NOT marked (default is to mark it)
	bin	- The rebin size used to display the image
	color	- The color used to mark the click
OUTPUT:
       x and y pixel coordinates, printed to terminal.
OPTIONAL OUTPUT:
	xsave, ysave - vectors of the x and y values of clicked points.
 CALLED BY:
	plot2offset [1], plot2offset [2]
HISTORY:
	Written 25-APR-92 BY L. Acton
	Color added 3-May-1992
       Outputs added 10-Dec-94 (HSH)
	Corrected xsave, ysave to include division by bin.

NAME:
	kluge_att
PURPOSE:
	Write out a corrected/expanded ATT file.
INPUT:
	week_str- The week to process (ie: "93_24")
KEYWORD INPUT:
	att_data - the revised ATT structure.
 CALLS: ***
	ATT_STRUCT [1], ATT_STRUCT [2], CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3]
	EXIST, FMT_TIMER [1], FMT_TIMER [2], GEN_STRUCT [1], GEN_STRUCT [2], GET_NBYTES
	OPEN_DA_FILE, Rd_NewOrb_p [1], Rd_NewOrb_p [2], Rd_Pointer [1], Rd_Pointer [2]
	Rd_fHeader [1], Rd_fHeader [2], Rd_fHeader [3], WRT1P_FH, anytim [1], anytim [2]
	anytim [3], anytim [4], anytim [5], concat_dir [4], curdir [1], curdir [2], rd_att
	rdwrt [1], rdwrt [2], rdwrt [3], tim2dset [1], tim2dset [2]
OPTIONAL KEYWORD INPUT:
	indir, default is '$DIR_GEN_ATT'
HISTORY:
	21-Nov-2005 LWA - Hacked from mk_att.pro with help of Greg and Mons, and called 'LWA_ATT.PRO'.
	14-Dec-2005 GLS - Totally rewritten by GLS, and renamed 'KLUGE_ATT.PRO'
	15-Jan-2006 GLS - Made outdir functional.
	20-Jan-2006 LWA - Added keyword indir.  Fixed I/O filenaming.
	24-Jan-2006 LWA - Specified keyword outsuffix.

NAME:
	kp_copy
PURPOSE:
	To check the Kitt Peak "rdist" directory at ISAS for new KP images
	and to copy them on-line to the yohkoh database if new files exist
HISTORY:
	Written Aug-93 by N.Nitta
	30-Sep-93 (MDM) - Renamed from CV_NAME_KP to KP_COPY
	 5-Oct-93 (MDM) - Modified to use /0p/lytle instead of /3p/lytle
	 3-Jan-94 (MDM) - Modified mailing list
       30-aug-94 (SLF) - add call to fl_suntoday (generate new collage)
       29-sep-94 (SLF) - spawn fl_suntoday as batch job on different node
        4-oct-94 (SLF) - call go_batch.pro for fl_suntoday 
        6-oct-95 (SLF) - remove go_batch (osf)
        5-oct-95 (SLF) - moved fl_suntoday call 
       13-aug-96 (SLF) - check for environm 'kp_inhibit' 
                          if set, dont run fl_suntoday (cron protect)       

NAME:
	kp_name_fix
PURPOSE:
	Convert the Kitt Peak filename to the Yohkoh convention
CALLING SEQUENCE:
	kp_name_fix, 'mag920719.fts', /move
INPUT:
	infil	- The input file(s).  The leading characters
		  must be "mag" or "heI"
OPTIONAL INPUT:
       outdir  - The output directory to move the files to.
                 If not passed, it calls FIND_GBO_DIR to find
                 the proper GBO weekly directory.
 CALLS: ***
	BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], CONCAT_DIR [1], CONCAT_DIR [2]
	CONCAT_DIR [3], FIND_GBO_DIR, RFITS [1], RFITS [2], RFITS [3], anytim2ex [1]
	anytim2ex [2], break_file [4], concat_dir [4], ex2fid [1], ex2fid [2]
OPTIONAL KEYWORD INPUT:
	move	- If set, move the input file to the output
		  directory with the new file name
OPTIONAL OUTPUT:
	outfil	- The new filename for the input file(s)
HISTORY:
	Written 30-Jul-92 by M.Morrison
       27-Jan-93 (MDM) - Modified to use FIND_GBO_DIR to find the
                         proper weekly GBO directory.
	28-Jan-93 (MDM) - Fixed 27-Jan-93 fix

NAME:
  ksc_commands
PURPOSE:
  FTP the SXTSPT output from flare1 to a local machine
CALLING SEQUENCE:
	IDL> ksc_commands

INPUTS:
OPTIONAL INPUTS:
OPTIONAL OUTPUTS:
 CALLS: ***
	FILE_EXIST [2], MONTH_CNV, STR2ARR [1], STR2ARR [2], anytim2ex [1], anytim2ex [2]
	anytim2ints [1], anytim2ints [2], curdir [1], curdir [2], file_exist [1]
	file_exist [3], ftp_copy [1], ftp_copy [2]
RESTRICTIONS:
  This routine is intended for use mainly by the SXT CO at ISAS
  
  
HISTORY:
  13-May-99, DMcK, written by way of hacking JRL's program GET_KSC_RAW
  18-May-99, DMcK, generated output filenames 
  23-Nov-99, NVN,  changed output filenames to reflect their creation times.
  14-Feb-01, HSH, renamed output directory

 NAME:
  ksc_groups
 PURPOSE:
  Find ajacent KSC passes (that are within 10 hours of each other)
 CALLING SEQUENCE:
   ksc_passes = ksc_groups(pass,n_groups)	; Defaults to both
   ksc_passes = ksc_groups(pass,n_groups,asca=0)
   ksc_passes = ksc_groups(pass,n_groups,asca=0,yohkoh=0)
 MODIFICATION HISTORY:
   4-aug-94, J. R. Lemen, LPARL

PROGRAM:  kukei
function
         draw rectangule
calling seqence
         kukei,x1,x2,y1,y2,device=device,color=color
 CALLED BY
	sel_img