NAME:
	ECH_RS

 PURPOSE:
	Cette procedure genere une echelle en RAYONS SOLAIRES a partir
 des coordonnees de debut et de fin (en rayons solaires)

 CATEGORY:
	RADIO, ECHELLES

 CALLING SEQUENCE:
	ECH_RS, deb, fin, nbp, tab

 INPUTS:
	DEB	coordonnee du premier point (rayons solaires)
	FIN	coordonnee du dernier point (rayon solaire)
	NBP	nombre de points

 OUTPUTS:
	TAB	tableau de coordonnees en rayons solaires

 CALLED BY:
	NRH2_PROJECTION, NRH_IMAGE, PLOT_MAXPOS, SUN_IMAGE
 EXAMPLE:
	I1, I2, les indices des points d'une image dont le centre est
 a l'indice C et le Rayon
	P1 = IND_RS (I1, C, R)
	P2 = IND_RS (I2, C, R)
	ECH_RS, P1, P2, 100, AXE
 donne un tableau AXE de 100 valeurs contenant les coordonnees de 100 points

 MODIFICATION HISTORY:
	Ecrit par: J Bonmartin le 21/10/97 (bonmartin@obspm.fr)
le 14/11/97	increment en pixels remplace par le rayon solaire

 NAME:
	ECRDESCD
 PURPOSE:
	ecriture du descripteur HELIO 
	ecrit le descripteur fixe de 64 points (*4) 
	puis le descripteur caractere de longueur variable
	Les enregistrements sont de longueur fixe determinee par la taille des
	images ecrites apres le descripteur.
 CALLING SEQUENCE:
	ecrdescd,uic,longrec,dfixe,mot_cle,valcle,comment

 INPUTS:
	uic	: numero d'unite pour ecrire	INT
	longrec	: longueur en octets du record	LONG
	dfixe	: descripteur fixe		STRUCTURE
	mot_cle : tableau des mot cles		STRARR(200)
	valcle	: tableau des valeurs des mot cles	STRARR(200)
	comment	: tableau des commentaires	STRARR(200)
 OUTPUTS:

 CALLS:
 CALLED BY:
	ECRPOS, MENUBCKGRD, SHIFTRH1D
 MODIFICATION HISTORY:
	ecrit par A.Bouteille (1995)
	modif juin 1996 motcle  remplace par mot_cle

 NAME:
	ECRPOS
 PURPOSE:
	ecrit au format HELIO un fichier de type F(TIME)
	- un fichier de positions associees 1D  ou
	- un fichier de positions associees 2D  ou
	- un fichier de flux 

 CALLING SEQUENCE:
	ECRPOS, xmin,xmax,idtms,ihdeb,ihfin,idate, $
       chfreq,chres,nbrec,chrec_cle, $
       nomfich2,npos,nbmaxpt,itete,trp

 INPUTS:
    xmin,xmax	: min et max des amplitudes    		FLOAT
    idtms	: delta t entre 2 images en ms          LONG
    ihdeb,ihfin	: heure debut et fin en ms              LONG
    idate	: date en caracteres			STRING
    chfreq	: frequence issue du descripteur 164.0 MHZ	STRING
    chres	: reseau        "    EST-OUEST ou NORD-SUD	STRING
    nbrec	: nb de records par position                    INT
    chrec_cle  : tableau de chaines decrivant le type de chacun des record
                 d'une position                        STRARR(nbrec)
    nomfich2	: nom du fichier de positions a ecrire		STRING
    npos	: nb de positions				INT
    nbmaxpt	: nb de points de la position la plus longue	LONG
    itete(3,npos)	: entete de chaque enrgt		LONG(3)
			   1- num de la position
			   2- heure de debut de la position
			   3- nb points de la position 
    trp(nbrec,nbmaxpt,npos): tableau des positions	FLOAT(nbrec,*,*)

 pos1D:	0- indice des images ds le fichier initial
		1- canal	  
		2- amplitude -i ou v	 
		3- flux i ou v		 
		4- diametre

 pos2D:	0- position en X
		1- position en Y
		2- flux  ew
		3- flux  ns
		4- diametre ew
		5- diametre ns
		
 flux:         0- indice
		1- canal central
		2- flux_i
		3- flux_v
		4- largeur

    (pour les positions comportant moins de nbmaxpt points, les 5(6) tableaux
     sont completes par des zeros) 

 OUTPUTS:
 CALLS: ***
	ECRDESCD
 CALLED BY:
	FUSIONPOS1D, MENUCALCFLUX1D, MENUCALCPOS2D, MENUTRACEISOPH
 MODIFICATION HISTORY: (bonmartin@obspm.fr)
	adapte du logiciel XHELIO (20/11/98) (JB)
	ecrit par A. Bouteille (juin 1996)
	modif dec 1996 : generalisation a l'ecriture de fichiers positions 1D
       2D non polar et polar, et flux

 PURPOSE:
	Image editing: interpolation of image pixels, the coordinates
	are given interactively. Set minimum or maximum values.
 CALLING SEQUENCE:
	Edit, image [, xAxis, yAxis, [ xMin, xMax, yMin, yMax ] ]
 INPUTS:
	image: 2D array
	xAxis, yAxis: the corresponding axes
	xMin, xMax, yMin, yMax: boundaries of the part displayed
		of the image, in pixels.
 OUTPUT:
	image: the edited image
 KEYWORD:
 	status: 'Done' or 'Not Done'
 RESTRICTION:
	Works only in interactive mode.
	Works only in association with enrad

 CALLS: ***
	AVG [1], AVG [2], COORDTOPIX, CUTMINMAX, DEFINEZONE, ELIMWRONGCHANNELS, GETHMS
	General_Menu [1], General_Menu [2], INTERPOLZONE, Pixel_Read, REPLLININT
	Read_Test, TRESHINTERP, phoenix_despike
 CALLED BY:
	Modify Image Pixels, RAG Exponentiation, RAG Log
 MODIFICATION HISTORY:
	Created in December 1991 by A. Csillaghy
		Inst. of Astronomy, ETH Zurich
	Interpolation modified in Jan 93 for non-regualr axes.
	Addition of "Eliminate Pixel" option, Jan 93, A.Cs.
	Addition of "DESPIKE" option: PSH, 2004/11/25 

 PURPOSE:
	Image editing: interpolation of image pixels, the coordinates
	are given interactively. Set minimum or maximum values.
 CALLING SEQUENCE:
	Edit, image [, xAxis, yAxis, [ xMin, xMax, yMin, yMax ] ]
 INPUTS:
	image: 2D array
	xAxis, yAxis: the corresponding axes
	xMin, xMax, yMin, yMax: boundaries of the part displayed
		of the image, in pixels.
 OUTPUT:
	image: the edited image
 KEYWORD:
 	status: 'Done' or 'Not Done'
 RESTRICTION:
	Works only in interactive mode.
	Works only in association with enrad

 CALLS: ***
	AVG [1], AVG [2], COORDTOPIX, CUTMINMAX, DEFINEZONE, ELIMWRONGCHANNELS, GETHMS
	General_Menu [1], General_Menu [2], INTERPOLZONE, Pixel_Read, REPLLININT
	Read_Test, TRESHINTERP, phoenix_despike
 CALLED BY:
	Modify Image Pixels, RAG Exponentiation, RAG Log
 MODIFICATION HISTORY:
	Created in December 1991 by A. Csillaghy
		Inst. of Astronomy, ETH Zurich
	Interpolation modified in Jan 93 for non-regualr axes.
	Addition of "Eliminate Pixel" option, Jan 93, A.Cs.

 PURPOSE:
	Eliminate from "value" the "offset" 's due to displaying
	non-homogeneous axes in the enrad system
 CALLED BY
	devtopix

 NAME:
	Eliminate wrong channels 
 PURPOSE:
	Find out (1) which channel has an unrealistic average relative to the
	general average and (2) which one has an unrealistic sigma
	value and then take them out of the image.
 CALLING SEQUENCE:
 	ElimWrongChannels, image, xAxis, yAxis
 INPUTS:
	image: 2D array of values
	xAxis, yAxis: the corresponding 1D array with axis values
 OUTPUTS:
	image: the cleaned image
	yAxis: the axis without the channel values eliminated.
 CALLS: ***
	AVG [1], AVG [2], ELIMWRONGCHANNELS, STDEV, glidbacksub
 MODIFICATION HISTORY:
	Created in April 1994, A.Csillaghy, ETHZ

NAME:
	ELLIPSE_MAILLE
 PURPOSE:
	Cette fonction calcule les parametres de l'ellipse section du lobe
        a mi-puissance. Pour determiner cette ellipse on utilise la maille
	 elementaire calculee dans maille_3.

 CATEGORY:
	Traitement de fichiers NRH
 CALLING SEQUENCE:
	
 INPUTS:
       hdr     : header d'extension du fichier d'images FITS Nancay
       
 CALLS: ***
	INIT_MALAX_2D, RH_MAILLE_3, SXPAR [1], SXPAR [2], SXPAR [3], mil_time
 COMMON BLOCKS:
	RH	: communique avec les routines de lecture des donnees
		  brutes RH	
 EXAMPLE:


 MODIFICATION HISTORY:

		  lobe(3) : major minor axis in solar_radius and angle 
			     in degrees of the major axis with Ox axis.

 NAME:
	ERR_PLOT
 PURPOSE:
	Overplot error bars over a previously drawn plot.
 CATEGORY:
	J6 - plotting, graphics, one dimensional.
 CALLING SEQUENCE:
	ERR_PLOT, Low, High	;X axis = point number
	ERR_PLOT, X, Low, High	;to specify abscissae
 INPUTS:
	Low = vector of lower estimates, = to data - error.
	High = upper estimate, = to data + error.
 OPTIONAL INPUT PARAMETERS:
	X = vector containing abscissae.
	If the keyword Xdir is present, then this parameter is the y abscissae
 KEYWORD Parameters:
	Width = width of bars, default = 1% of plot width.
	Xdir = If present, the error bars are drawn horizontally.
	HMS = if set, the (x-) axis is in date/time format.
	COLOR = to specify another color than white
	THICK = to specify line thickness
 OUTPUTS:
	None.
 CALLED BY:
	Data Display, HXRBS
 COMMON BLOCKS:
	None.
 SIDE EFFECTS:
	Overplot is produced.
 RESTRICTIONS:
	Logarithmic restriction removed.
 PROCEDURE:
	Error bars are drawn for each element.
	For example:  Y = data values, ERR = symmetrical error estimates:
		PLOT,Y	;Plot data
		ERR_PLOT, Y-ERR, Y+ERR	;Overplot error bars.
	If error estimates are non-symetrical:
		PLOT,Y
		ERR_PLOT, Upper, Lower	;Where upper & lower are bounds.
	To plot versus a vector of abscissae:
		PLOT,X,Y		;Plot data.
		ERR_PLOT,X,Y-ERR,Y+ERR	;Overplot error estimates.

 MODIFICATION HISTORY:
	DMS, RSI, June, 1983.
	Joe Zawodney, LASP, Univ of Colo., March, 1986. Removed logarithmic
		restriction.
	DMS, March, 1989.  Modified for Unix WAVE.
	June 1991, Modified for x error bars by A.Csillaghy
	HMS keyword in Jul 93, A.Cs
	COLOR Keyword in Sept 93, A.Csillaghy

CALLING SEQUENCE:
	Error, n [, procName ]
PURPOSE:
	List of errors for enrad and mdisp systems.
 INPUTS:
	n: number of the message to display
	procName: name of the calling procedure
 CALLED BY
	Cont_Surf, Customize_1D, Data Display, Display 2D Image, Fitting, Get Names
	Init Selection, Init_Data, Initialize Selection [1], Insert Plot
	Insert in the Selection, Load Plot, Load Selection, MDisp Read, MDisp Write
	Modification of 1D Plots, Modify Image Pixels, Move_Image, RAG Exponentiation
	RAG Log, Ragview_MDisp_Int, Remove from the Selection
	Replace by Linear Interpolation, Search Plot, Select All, Selection
	Show Image [1], Show Image [3]

NAME:
	ETHZ_Background
PURPOSE:
	Image background handling. It starts a menu interface to let the
       user define which kind of function will determine the 
       image background.
CALLING SEQUENCE:
	ETHZ_Background, image [, xAxis, yAxis 
		[, xMin, xMax, yMin, yMax ] ]
 INPUT ARGUMENTS
	image: a 2D array of any type (usually real).
 	xAxis, yAxis: 1D arrays representing the axes of the image.
	xMin, xMax, yMin, yMax: scalar index values that indicate 
               the part of the image that is displayed. They 
               are used when the background is interactively 
               displayed on the terminal window. Note, however
		that the background handling is done on the whole
		image, and not only on the image part that is displayed.
 OUTPUT ARGUMENT:
	image: a 2D array of reals, the image with background handled
 SIDE EFFECT:
	Uses the terminal window to read parameters

 CALLS: ***
	ASKVALUES, General_Menu [1], General_Menu [2], MOSTBACKSUB, Read_Test
	constbacksub [1], constbacksub [2], glidbacksub, minenvback
 CALLED BY:
	Modify Image Pixels, RAG Exponentiation, RAG Log
MODIFICATION HISTORY:
	Created in September 1991 by A.Csillaghy
		Institute of Astronomy, ETH Zurich
	Automatic background in July 93, A.Cs.
       Renamed from Background to ETHZ_Background for ssw, ACs, May 98 

 Project     : SOHO - CDS / Phoenix II

 Name        : ethz_XCHOICE

 Purpose     : present a choice 

 Category    : Widgets

 Explanation : 

 Syntax      : IDL> value=xchoice(text,options)

 Inputs      : TEXT    = info text
               OPTIONS = array of options, e.g. ['QUIT','CONTINUE']

 Opt. Inputs : None

 Outputs     : VALUE = index of chosen option (-1 if no selection)

 Opt. Outputs: None

 Keywords    :
              GROUP = group leader of caller
              XOFF,YOFF = device (x,y) offsets of XINPUT base relative to caller
              TFONT = text widget font 
              BFONT = button widget font
              ROW   = layout option buttons into rows
              BUFF_SIZE = buffer space size around text [def = 3]
              NOPUSH = if set, does not push the window in front

 CALLS: ***
	DATATYPE [1], DATATYPE [2], DATATYPE [3], ETHZ_XCHOICE_EVENT, EXIST, FREE_POINTER
	GET_CALLER, GET_POINTER, HAVE_WIDGETS [1], HAVE_WIDGETS [2], MAKE_POINTER
	MK_DFONT, SET_POINTER, TIMER_VERSION, XALIVE, XKILL, XMANAGER, XMANAGER_RESET
	XREALIZE, XSHOW
 CALLED BY:
	General_Menu [1], MDisp, Move_Image, Radio Astronomy Group View RAG View [1]
	Radio Astronomy Group View RAG View [2]
 Common      : None

 Restrictions: None

 Side effects: None

 History     : Version 1,  1-April-1996,  D.M. Zarro.  Written
               NOPUSH by A. Csillaghy, Dec 1998, for ethz_xchoice

 Contact     : DZARRO@SOLAR.STANFORD.EDU

 NAME:
	Extract_Names
 PURPOSE:
	Returns a array of strings containing names WITHOUT
	directory specifications.
 CATEGORY:
	IO
 CALLING SEQUENCE
	names = Extract_Names( completeNames )
 INPUT
	completeNames: The name as got with "FindFile", a
		string array
 OUTPUT:
	names: The names without directory specification,
		a string array.

 NAME:
     EXTRACT_RAW_DATA
 PURPOSE:
     Extracts a section of data (a file, scan, or segment) to a new file.
     This is just a raw, byte-for-byte copy.
 CATEGORY:
     OVRO APC FILE
 CALLING SEQUENCE:
     extract_raw_data,filename,srec,erec[,outfile=outfile]
 INPUTS:
     filename  The name of an existing data (.ARC) file containing the
                 data to extract.
     srec      The start record at which to start the extraction.
     erec      The end record--that last record to extract.
 OPTIONAL (KEYWORD) INPUT PARAMETERS:
     outfile   The name of a new file to be written that contains the
                 extracted data.  If omitted, the user is asked for an
                 outfile name.
 ROUTINES CALLED:
     openarc, oktowrite
 OUTPUTS:
 COMMENTS:
     The immediate use for this routine is to extract calibration segments
     for manipulation external to the file, for later reinsertion.  However,
     it probably has other uses as well.  The user is asked to supply an
     output file name.
 CALLS: ***
	OKTOWRITE, OPENARC
 SIDE EFFECTS:
 RESTRICTIONS:
 MODIFICATION HISTORY:
     Written  07-Nov-2000 by Dale E. Gary

 NAME:
	EXTRACT_SOURCES

 PURPOSE:
	Cette procedure recherche et extrait d'une image 2D, une ou plusieurs 
	sources (volume gaussien)	

 CATEGORY:
	RH_2D, recherche de positions

 CALLING SEQUENCE:
	EXTRACT_SOURCES, Image, Tgauss, FACT=facteur, NBMAX=nbmax, SEUIL=seuil, FMAX=fmax

 INPUTS:
	Image:	Tableau contenant l'image

 KEYWORD PARAMETERS:
	FACT:	facteur d'interpolation lineaire de l'image (defaut = 2)
	NBMAX:	Nombre maximum de volumes gaussiens à extraire de l'image
		(defaut = 1)
	SEUIL:	critere de mi-hauteur pour la recherche des 8 distances
		(defaut=2)
	NIVEAU:	niveau de recherche exprime en % de la valeur maximum de
		l'image (defaut = 0.8 soit 80% du maximum)

 OUTPUTS:
	Tgauss: tableau de structures contenant la description des volumes
		gaussien extraits de l'image

 CALLS: ***
	CALC_VOLGAUSS, CONGRID [1], CONGRID [2], CONGRID [3], TRV_GAUS
 EXAMPLE:

 MODIFICATION HISTORY:
	Ecrit par: C Renie, decembre 1997