Copyright (c) 1993 P. R. Blanco, CASS, 0111, UCSD, La Jolla, CA92093-0111, USA
 and SERC, Polaris House, North Star Avenue, SN2 1ET, United Kingdom.

 Calculates an array, of dimensions specified by DIMS, of (distances)^2
 from the a central point specified by  coordinates Centers. If the center
 is not specified, it is assumed to be at the origin of the array.

 Returns:
 NDDIST2 (Float array(DIMS)) - array of distances^2.

 Input Parameters:
 DIMS (Integer , vector(NDIM)) - List of dimensions for the output array
 Centers (Float, vector(NDIM), default FLTARR(NDIM)) - Coordinates of the
 center from which the distances^2 are calculated.

 CALLED BY:
	HSI_PIXON_LOCAL_SMOOTH, LOCAL_SMOOTH
 History:
 22 Sep 93 - written by P. R. Blanco, CASS/UCSD to replace a routine of
 the same name.

 NAME: NEW_EFFECTIVE_AREAS_CODE


 PURPOSE: This file contains the main program code run by NEW_EFFECTIVE_AREAS.


 CATEGORY: HESSI


 CALLING SEQUENCE: called as part of new_effective_areas(1)


 CALLS:
	HESSI_DATA_PATHS [1], HESSI_DATA_PATHS [2], HESSI_FILTERS, HESSI_SHUTTERS
	INIT_LINECOLORS, LOC_FILE [1], LOC_FILE [2], LOC_FILE [3], RD_ASCII [1]
	RD_ASCII [2], READ_HESSI_DAT, curdir [1], curdir [2], hessi_grid_trans
	restgen [1], restgen [2]
 INPUTS:
       none explicit, only through commons;

 OPTIONAL INPUTS:
	none

 OUTPUTS:
       none explicit, only through commons;

 OPTIONAL OUTPUTS:
	none

 KEYWORDS:
	none
 COMMON BLOCKS:
	none

 SIDE EFFECTS:
	none

 RESTRICTIONS:
	none

 PROCEDURE:
	none

 MODIFICATION HISTORY:
	Version 1, extracted from NEW_EFFECTIVE_AREAS, 21-jan-1997, richard.schwartz@gsfc.nasa.gov.
	Version 2, updated for HESSI tree, 6-aug-1998, richard.schwartz@gsfc.nasa.gov.

 Project     : HESSI
                   
 Name        : NEW_FIG4_INPUTS
               
 Purpose     : This procedure reads the new GEANT run from 
	Dave Smith for 9 detectors sent to Richard Schwartz
	on 23 May 1997.
               
 Category    : HESSI, SIMULATIONS
               
 Explanation : 
               
 Use         : 
    
 Inputs      : None
               
 Opt. Inputs : None
               
 Outputs     : None

 Opt. Outputs: None
               
 Keywords    : 

 Calls	      : ***
	HESSI_DATA_PATHS [1], HESSI_DATA_PATHS [2], LOC_FILE [1], LOC_FILE [2]
	LOC_FILE [3], RD_ASCII [1], RD_ASCII [2], edge_products, wc_where [1]
	wc_where [2]
 Common      : None
               
 Restrictions: runs only on where SSWDB_HESSI is installed.
               
 Side effects: None.
               
 Prev. Hist  :

 Modified    : Version 1, RAS, 5-jun-1997
		Version 2, richard.schwartz@gsfc.nasa.gov, 10-aug-1998

 Project     : HESSI
                   
 Name        : NEW_WINDOWS
               
 Purpose     : This procedure returns a structure characterizing
	the newest attenuator parameters.
               
 Category    : HESSI, RESPONSE
               
 Explanation : 
	This is the current configuration of the HESSI shutters:

Shutter 1

id 0.0  cm - od 1.56 cm, open    5%
id 1.56 cm - od 7 cm, 10 mils Al 95%

Shutter 2

id 0.0 cm - od 1.55 mm, open     .05%
id 1.55 mm - od 7   cm, 70 mils Al 99.95%

Open  1, Open  2, 24.00 mils Be, 4 in cryostat for thermal barrier, 20 on entrance window, + MLI
Close 1, Open  2, .95 24 mils Be + 10 Mil Al, .05 24 mil Be, + MLI
Open  1, Close 2, .9995 24 mils Be + 70 mil Al, .0005 24 mil Be, +MLI
Close 1, Close 2, .95 24 mils Be + 80 mil Al, .0495 24 mil Be + 10 mil Al, .0005 24 mil Be, + MLI

               
 Use         : 
    
 Inputs      : 
               
 Opt. Inputs : None
               
 Outputs     : NEW_ATTEN - a structure (see HESSI_WINDOW) describing
	the materials and thicknesses of different fractions of the
	window in front of a HESSI Ge detector.  The MLI is
	specified in the program, other_filters().

 Opt. Outputs: None
               
 Keywords    : 

 Calls	      : ***
	HESSI_WINDOW
 Common      : None
               
 Restrictions: These parameters must be updated by editing the file.
               
 Side effects: None.
               
 Prev. Hist  : richard.schwartz@gsfc.nasa.gov, 22-oct-1997

 Modified    : 
	richard.schwartz@gsfc.nasa.gov, 2-nov-1997, added the 20 mils Carbon
	everywhere to simulate shutter mounting structure.
	richard.schwartz@gsfc.nasa.gov, 6-jan-1998, disable adding the 20 mils Carbon
	everywhere to simulate shutter mounting structure. Not definite.

 Project     : HESI
                   
 Name        : NOFILL_ARE
               
 Purpose     : This procedure plots total angular range
 		for the Angular Response versus Energy plot for the 
 		proposed HESSI Instrument

               
 Category    : HESI
               
 Explanation : 
               
 Use         : 
    
 Inputs      : 
		xyminmax
		e_box
		res
		e_diff_50
		e_trans_50 
               
 Opt. Inputs : None
               
 Outputs     : None

 Opt. Outputs: None
               
 Keywords    : 
	NOERASE - usual meaning.
	BOX_STYLE - controls some of plotting in ang res box to facilitate
	two grid calls.
 Calls	      : ***
	CHECKVAR [1], CH_SCALE, FCHECK, GD_DIMENSIONS, INIT_LINECOLORS, REVERSE
	checkvar [2]
 CALLED BY:
	PLOT_ANGC [1], PLOT_ANGC [2]
 Common      : None
               
 Restrictions: 
               
 Side effects: None.
               
 Prev. Hist  :
 Written by Eric Carzon, Hughes/STX
 June 1994

 Modified    : 
 	May 1995, Many modifications to basic plot
 	5/25/95, changed grids 10-12 to 25 mm, baseline mission changes
 	6/6/95, change min. sci. box to dashed lines, extend electron distance
 	15-apr-1997, RAS, removed unwanted old lines of code, suppress min science
 	2-jun-1997, RAS, revised hessi box drawing
 	Version 7, richard.schwartz@gsfc.nasa.gov, 31-dec-1997, supports overplotting previous dimensions
	when keyword, noerase, is set
	Version 5, richard.schwartz@gsfc.nasa.gov, multiplot support added..