;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:    
;
;	pro imfocus
;
;*VERSION:
;
;	$Id$
;
;*CATEGORY:
;	
;	P3d Display
;				
;*CALLING SEQUENCE:
;
;	imfocus,tracefile,path,listname,firstpos=firstpos, $
;               no_ini=no_ini,ybin=ybin
;
;*INPUT:
;
;	tracefile:	filename of a PMAS Tracemask or raw PMAS image used for the 
;			determination of the spectra traces
;	path:           location of the image list 
;			(necessary if <listname> is set)
;	listname:       filename of the list containing the names of 
;			the focus images (optional)
;
;*OUTPUT:
;
;	fwhmx:		vector of fwhm in x-direction of the fitted 
;			2D gaussians (output via COMMON block)
;	fwhmy:		vector of fwhm in y-direction of the fitted 
;			2D gaussians (output via COMMON block)
;	radius:		vector of radii of 80% flux concentration
;			(output via COMMON block)
;
;*PARAMETERS:
;
;*KEYWORDS:
;
;	firstpos:       image postion in the display window where the 
;			first focus image has to be placed 
;			(counting left->right, bottom->top)
;	no_ini:         0/1 flag is set if the resultss of a previous run 
;			shall be maintained
;	ybin:           CCD binning in y-direction. 
;			This is a necessary information for tracing
;			and extraction. DEFAULT: ybin=1
;
;*CALLED FUNCTIONS:
;
;*CALLED PROCEDURES:
;
;	telescl		pmas_trace	pmas_extract
;
;*PURPOSE:
;
;	imfocus is a tool for inspection of the quality of the telescope focus
;	using PMAS 3D exposures. Given a Tracemask (or optionally a raw image
;	which can be used by <imfocus> for tracing) a series of 3D images
;	is extracted and the resulting image of an integration over all
;	wavelengths is displayed. The PSF of the observed star is meseared
;	(fwhmx, fwhmy, radius) and the result is plotted.
;   
;*MODIFICATION HISTORY:
;
;	TBE: 12/10/2001 - VERSION 1.0	initial programming   
;   
;          
;*AUTHORS:
;
;	TBE		Thomas Becker	Astrophysikalisches Institut Potsdam
;					An der Sternwarte 16
;					D-14481 Potsdam
;                                       email: tbecker@aip.de
;					Tel. (049) 331/7499 - 414
;
;----------------------------------------------------------------------------