;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:    
;
;       pro p3d_extract
;
;*VERSION:
;
;       $Id$
;
;*CATEGORY:
;
;       P3d data reduction
;
;*CALLING SEQUENCE:
;
;       p3d_extract,array,traces,out,flatex,flat=flat,shift=shift,$
;	ybin=ybin,modelflat=modelflat
;
;*INPUT:
;       array:      raw PMAS exposure
;       traces:     tracemask - must have same xsize as <array> and ysize=256
;
;*OUTPUT:
;
;
;       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 e
xposure
;                   or the final flatmask
;       shift:      flag, 0 - no shift, 1 - calculate shift, default: shift=0
;       ybin:       bin factor for the y-direction. default: ybin=1, i.e. not bi
nned
;       modelflat:  flag, 0 - calculate total fiber sensitivity, 1 - model 2D fl
at image.
;                   default: modelflat=0  
;       no_display: flag, 0 - results are displayed, 1 - display switched off.
;                   default: no_display=0'
;
;*CALLED FUNCTIONS:
;
;*CALLED PROCEDURES:
;
;       mean_dmo        med_smo         tele                    scancube
;       imtocube        shift_type      standard_extract
;
;*PURPOSE:
;
;       PMAS quick extraction. The algorithm works simply by integrating alog th
e crossdispersion direction.
;       Optionally a shift of the image to the tracemask can be calculated and f
latfield correction 
;       can be done. The result is displayed with a cube viewer.
;
;*MODIFICATION HISTORY:
;
;       TBE: 17/05/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
;
;----------------------------------------------------------------------------