NAME: 
	TEK_END

 PURPOSE: 
	Close plot file and set plotting device back to screen device selected. 

 CATEGORY:
	GRAPHICS

 CALLING SEQUENCE:
       TEK_PRINT

 INPUTS:
       None.

 COMMON BLOCK:
       TEK_COMMON.

 CALLS: ***
	XDEVICE
 CALLED BY:
	DRAW_FLARE, FS_ARCHIVE_DRAW, FS_GRAPH, FS_OVERLAY, HXARCHIVE, HXFITS, MOD_PLOT
	QL_DAY_PLOT, QL_ORBIT_PLOT
 PROCEDURE:
 	TEK_END is called after calling TEK_INIT and issuing plot commands, 
 	to close the plot file and set the plotting device back to the screen
 	device selected.  Implemented for TEK and PS only.

 	See documentation on TEK_INIT for full explanation.
 	Briefly, to make hardcopies of plots, use IDL commands:
   	tek_init
   	plot commands ...
   	tek_end
   	tek_print

 MODIFICATION HISTORY:
 	Written by AKT and RAS, 1990.
       Mod. 05/06/96 by RCJ. Added documentation.

 NAME: 
	TEK_INIT

 PURPOSE: 
	Set up for making Tektronix or PostScript hardcopies of plots from IDL.

 CATEGORY:
	GRAPHICS

 CALLING SEQUENCE:
 	TEK_INIT[,FILENAME=FNM,NOSCREEN=NOSCREEN,UPDATE=UPDATE,QUEUE=Q]

 CALLS: ***
	CHECKVAR [1], DEFAULTS_2, SET_GRAPHICS [1], SET_GRAPHICS [2], checkvar [2]
 INPUTS:
       None.

 KEYWORDS:
	FILENAME:	File descriptor for plot file, if no extension then
		   	the default is .tek or .ps
	NOSCREEN:	Only send tektronix output to the file, Set if tek 
			is used for hardcopy, while X for instance is used 
			for screen.
	UPDATE:		Add to already existing plot file (VALID ONLY FOR tek)
	QUEUE:		Printer queue.  net$print is default queue.

 CALLED BY:
	DRAW_FLARE, FS_ARCHIVE_DRAW, FS_GRAPH, FS_OVERLAY, HXARCHIVE, HXFITS, MOD_PLOT
	QL_DAY_PLOT, QL_ORBIT_PLOT
 COMMON BLOCKS:
       TEK_COMMON.

 PROCEDURE:

 	First call SET_GRAPHICS, SCREEN=SCREEN, PRINTER=PRINTER where 
	SCREEN is 'x', 'tek', or 'regis', and PRINTER is 'TEK' or 'PS'.  
	If user doesn't call SET_GRAPHICS before calling TEK_INIT, TEK_INIT 
	will call it and set the printer type to the default which is PS.

 	To make hardcopies of plots, use IDL commands:
   	tek_init
   	plot commands ...
   	tek_end
   	tek_print

 	For both TEK and PS, calls set_plot to set plot device to the printer 
	device. TEK_END will reset the plot device to the screen device.  
	TEK_PRINT will close the file and send it to the printer.

 	TEKTRONIX:
 	Tektronix output will be created if HARD_DEVICE is set to 'TEK' by
 	SET_GRAPHICS.  Tektronix graphics is capable of sending plots 
	simultaneously to the terminal screen and to disk file for hardcopy 
	plots.  This is the default (both screen and file).  User may disable 
	plotting to the screen by using /noscreen on the first call to 
	TEK_INIT.  The output file may be subsequently reopened by using 
	TEK_INIT,/update in order to overlay plot commands on an existing 
	plot.  The screen/noscreen option is saved in the common block 
	variable USE_SCREEN.  The plot device is reset to the screen device 
	previously selected (SC_DEVICE) when TEK_END is called.

 	POSTSCRIPT:
 	Postscript files will be created if HARD_DEVICE is set to 'PS' by
 	SET_GRAPHICS..  Opens a new file is /update is not selected.  Otherwise
 	does nothing further.

 MODIFICATION HISTORY:
       Written by AKT and RAS.
       Mod. 06/28/95 by AES. Make filenames lowercase.
	Mod. 05/06/96 by RCJ. Added documentation.

 NAME: 
	TEK_PRINT

 PURPOSE: 
	Send plot file to printer.

 CATEGORY:
       GRAPHICS

 CALLING SEQUENCE:
       TEK_PRINT,Delete_file[,VERSION_NUMBER=V,FILENAME=FNM,QUEUE=Q]

 CALLS: ***
	CHECKVAR [1], DEFAULTS, EXIST, PSPLOT [1], PSPLOT [2], checkvar [2]
 INPUTS:
	None.

 OPTIONAL INPUTS: 
	DELETE_FILE:	If set to 'D' or 'd', plot file is deleted after 
			printing.

 KEYWORDS:
       VERSION_NUMBER:	Version number of plot file to print (default is
			highest version).
   	FILENAME:	Plot file to print (default is name stored in 
			common tek_common)
   	QUEUE:		Printer queue to send plot to (default is net$print)
	    		queue is remembered for remainder of IDL session
 CALLED BY:
	FLDISPLAY, FSPLOT, HXRBS, QLDISPLAY
 COMMON BLOCKS:
       TEK_COMMON.

 PROCEDURE:
       TEK_PRINT is called after calling TEK_INIT, issuing plot commands,
	and calling TEK_END, to send a plot file to the printer.
 	See documentation on TEK_INIT for full explanation.
 	Briefly, to make hardcopies of plots, use IDL commands:
   	tek_init
   	plot commands ...
   	tek_end
   	tek_print

 	tek_print sends the plot file whose name is stored in common tek_common
 	to the printer queue selected.

 MODIFICATION HISTORY:
	Written by AKT and RAS.
       Mod. 03/29/96 by RAS. Version 2. Made hard_device string lower case 
		when concatenating filename, and since psplot knows the default
		queue it should not be passed unless it is explicit.
	Mod. 05/06/96 by RCJ. Added documentation.
       Mod. 09/04/97 by AES. changed default printer to EAF_POST1
       Mod. 09/05/97 by AES.  removed line in PS section which killed queue

 PROGRAM:  temcal
           
 PURPOSE:
           compute temperature and emission measure from observations of two
           FCS lines
 CALLING SEQUENCE:
           temcal,tval,eval,/auto,trange=trange,total=total
 INPUTS:   
           user is prompted unless /auto is set
 KEYWORDS: 
           /auto = if set then input parameters are obtained from COMMON
           trange= range of temperature searched
           total=input count rates are treated as total rates
 OUTPUTS:
          tval = electron temperature (10^6 K)
          eval = log10 emission measure (cm-3)
 CALLS: ***
	INTERPOL, LAMDAD, PSPLOT [1], PSPLOT [2], ZBRENT [1], ZBRENT [2], fcs_par, mewe
 CALLED BY:
	FTEMAP
 PROCEDURE:
          Computes temperature by iterating until emission measure and thermal
          widths in two lines are equal (isothermal approximation).
 MODIFICATION HISTORY:
           written by DMZ (ARC), June 1987
           converted to version 2 by DMZ, April 1992.

 NAME:
	TRACE_MOSAIC_IMAGE
 PURPOSE:
	Read a reduced-size TRACE "tma" mosaic image from a FITS file,
	and return the descaled, floating-point image.

 CALLING SEQUENCE:
	descaled_image = TRACE_MOSAIC_IMAGE(filename = filename,
			 [scaled_image = scaled_image,]
			 [scale_factor = scale_factor,]
			 [image_time = image_time,] [show_image = show_image])

 INPUTS:
	FILENAME = String containing the name of the FITS file to be read.

 OUTPUTS:
	Result = floating point image array (usually 1024 x 1024)

 OPTIONAL OUTPUT:
	SCALED_IMAGE = original contents of file
	SCALE_FACTOR = scaling for logarithmic scaling on the current X
		device
	IMAGE_TIME = string concatenating DATE-OBS and TIME-OBS from the
		FITS header

 OPTIONAL INPUT KEYWORD:
	SHOW_IMAGE - if present and non-zero, display the image on the
		currently selected graphics device

 EXAMPLE:
	Find the most current TRACE mosaic image on the SOHO synoptic archive
	on SDAC, and display it on the current device:

	s = findfile("SDAC::DNFS12:[public.data.synoptic.trace]*fd*.fts")
	n = n_elements(s)
	a = TRACE_MOSAIC_IMAGE(filename = s(n - 1), /show_image)

 CALLS: ***
	ANYTIM2UTC [1], ANYTIM2UTC [2], FXPAR [1], FXPAR [2], READFITS [1], READFITS [2]
	READFITS [3]
 RESTRICTIONS:
	None

 NOTES:
	The current version is developmental, and arguments and keywords
	may be added or removed.

 PROCEDURES USED:
	READFITS and FXPAR (Astronomy library)

 MODIFICATION HISTORY:
	D.M. fecit					1998 July 16

 NAME:
        TWOD
 PURPOSE:
 	procedure to generate temperature-corrected FCS xtal 2D spacings.
 CALLING SEQUENCE:
        TWOD = TWOD(ICHAN, TEMPXL)
 INPUTS:
        ICHAN= FCS Channel number
        TEMPXL = TEMPERATURE OF THE CRYSTAL IN DEGREES C.
 OUTPUTS:
        XTAL 2D spacing
 CALLED BY:
	EFAREA
 PROCEDURE:
	 Uses coefficients in Jim Lemen's WLFCS program of (26-APR-84)
 MODIFICATION HISTORY:
	written by RAS on 19 June 1985