;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:    
;
;       pro p3d_extract_file
;
;*VERSION:
;
;       $Id$
;
;*CATEGORY:
;
;       P3d data reduction
;
;*CALLING SEQUENCE:
;
;       p3d_extract_file,filename,traces,array,out,flatex,flat=flat,
;                        shift=shift,ybin=ybin,modelflat=modelflat,bias=bias
;
;*INPUT:
;
;       filename:   filename (without fits-extension) of raw PMAS exposure
;       traces:     tracemask - must have same xsize as <array> and ysize=256
;
;*OUTPUT:
;
;       array:      raw PMAS exposure
;       out:        resulting image of the extraction
;       flatex:     fiber response image (or vector)
;
;*PARAMETERS:
;
;*KEYWORDS:
;
;       flat:       if flatfieldig should be done, give here the raw 
;		    flatfield exposure
;                   or the final flatmask
;       bias:       2D-bias image to be subtracted before the extraction
;       shift:      flag, 0 - no shift, 1 - calculate shift, default: shift=0
;       modelflat:  flag, 0 - calculate total fiber sensitivity, 
;		    1 - model 2D flat image.
;                   default: modelflat=0  
;       no_display: flag, 0 - results are displayed, 1 - display switched off.
;                   default: no_display=0'
;
;*CALLED FUNCTIONS:
;
;*CALLED PROCEDURES:
;
;       pmas_extract    cubetoim
;       mean_dmo        med_smo         tele                    scancube
;       imtocube        shift_type      standard_extract
;
;*PURPOSE:
;
;       PMAS quick extraction. The algorithm works simply by integrating 
;	along the crossdispersion direction.
;       Optionally a shift of the image to the tracemask can be calculated 
;	and flatfield correction can be done. The result is displayed with 
;	a cube viewer.
;
;*MODIFICATION HISTORY:
;
;       TBE: 21/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
;
;----------------------------------------------------------------------------