;+
;
; file HXISSTRUC.PRO
;
;
; NAME:
;	HXISSTRUC
;
; PURPOSE:
; 	Define the structure INFO
;
; CATEGORY:
;	HXIS display
;
; CALLING SEQUENCE:
;	HXISSTRUC, STRUC=INFO
;
; CALLED BY:
;	HXIS
; 
; CALLS TO:
;	none
;
; INPUTS: 
;	none
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       STRUC:	A structure containing program parameters
;
; OPTIONAL OUTPUTS:
;	none
;
; COMMON BLOCKS:
;	none
;			
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	Defines the structure INFO, which is used to carry the essential
;	information about the data being processed and creates the common
;	block INFO, which occurs in almost all other procedures.
;	Variables are initialized and stored in common block 
;
; MODIFICATION HISTORY:
;	OCT-1990, Paul Hick (ARC)
;	DEC-1992, Elaine Einfalt (HSTX) - converted to widgets
;
;-

pro hxisstruc, struc=info


; Initialize structure

  INFO = {DATA_INFO,			$
	FNAME:'HIM099_0300.000',	$  ; File name
	BOT_IMG:0,			$  ; first image in file
	TOP_IMG:0,			$  ; last image in file
	nimg:0,				$  ; total # image in file
	DOY:fix(0),			$  ; Start DOY
	FRST_BND:1,LAST_BND:6,		$  ; Lowest/highest energy band
					   ;    Images in CPLOT display count 
					   ;	rates for energy bands BLOW 
					   ;	through BUP;
					   ;  temperatures/emission measure 
					   ;    based on ratio BUP/BLOW)
	FRST_IMG:0,LAST_IMG:0,		$  ; First and last image used 
				           ;   in the accumulation
	BTYP:intarr(6)-2,		$  ; Type of contour plot
					   ;	0=count rate, 1=temperature, 
					   ;    2=emission measure, 
					   ;	3 = k*temp*emis (-1 has a 
					   ;    special meaning, see CPLOT)
	BLOW:intarr(6),BUP:intarr(6),	$  ; Low/high energy bands 
				           ;      (set by SELECT)
                                           ;
					   ; The next seven entries are set by 
					   ;     ACCU and FLAG
					   ;
	TIME:double(0.),		$  ; Time of the displayed image
	SUM:0,				$  ; Accumulation time (0.125 sec units)
	YAW:0.,PITCH:0.,ROLL:0.,	$  ; S/C yaw,pitch (arcsec; S/E is pos)
					   ;	, roll (deg)
	XP:0.,YP:0.,			$  ; Center fov yaw,pitch (arcsec; W/N 
					   ;	is positive)
					   ;
					   ; Switches
					   ;
	YXRAT:0.,			$  ; Ratio y and x scaling for contour 
					   ;	plots
	IMGTV:byte(1),			$  ; 0=Contour plots,1=color images
	CFOV:byte(1),			$  ; Current fov on display (set by FOV)
					   ;   (0=fine; 1=coarse, 2=overlay, 
					   ;	3=separated)
                                           ;
	MODE:bytarr(3),			$  ; Status of image/time series 
					   ;	calculation
					   ;	(255=Processed image; 
			                   ;       0=Calculation incomplete; 
				           ;	   1=Calculation complete)
					   ; MODE(0) : contour plot status 
					   ;		(CALC_IMG, CPLOT)
					   ; MODE(1) : status of time series
			       		   ;		 for whole area (TPLOT)
					   ; MODE(2) : status of time series 
					   ;		for individual pixels 
					   ;		(XPLOT)
	DEAD:byte(0),			$  ; 0/1 = dead time correction OFF/ON
					   ;    does the user want the 
					   ;	dead time correction
	LIFE:byte(0),			$  ; Status of lifetime function 
				           ;	(0=Not available/1=Available)
					   ;    if the user wants dead time
					   ;    correction, is it available
					   ;    to use.
	CPLOT_UP:0,			$  ; Does the current graphics screen 
					   ;    display the CPLOT images?
					   ;    Needed to select pixels.
	SIG:9.,				$  ; Current setting of error 
					   ;	tolerance (sigma**2)
        SCAL:0,				$  ; 0=linear scal/1=log scal
	CONMAN:0,			$  ; 0=don't ask for new contour levels
					   ; 1=ask for new contour levels
        grid:5,				$  ; 0 = no grids for any image
					   ; 1 = grids available
        deriv:0,			$  ; 0 = no derivative for tplot
					   ; 1 = derivative for tplot
	DEF_DUR:600.,			$  ; default plot duration (seconds)
	duration:600.,			$  ; duration to be passed around
	DEF_AVE:0.,			$  ; default plot average (sec)
	TOVER:0.,                  	$  ; average to be passed around (sec)
;	DEF_Nspec:2,			$  ; default # of spectra
	NSPEC:5,                  	$  ; number of spectra, evenly spaced
	angle:45,			$  : Angle for surface plot
	hard:0,				$  ; 0=no hardcopy, 1=hardcopy
	colo:0,				$  ; for hardcopy, 0=B/W, 1=color
	silent:1,			$  ; 1=don't bother user
					   ; 0= ask the user many questions
	offset:1,			$  ; 0=don't estimate the hxis offset
					   ; 1=do the offset
	BACK:byte(0)}			   ; Background subtracted ? 0=No,1=Yes

return
end