Identifier     sap_max

 Purpose        set individual points of a spectrum to maximum value of the
                spectrum and either a constant or another spectrum (array)

 Synopsis       sap_max, in1flux, in1err, in2flux, in2err, outflux, outerr
                             

 Arguments      Name      I/O  Type      Description
                -----------------------------------------------------
                in1flux   I    Float(*)  array of first spectrum (flux or
                                         photocurrents)
                in1err    I    Float(*)  Array of weights for in1flux
                in2flux   I    Float(*)  array to which in1flux is
                                         compared (constant array or fluxes)
                in2err    I    Float(*)  Array of weights for in2flx
                outflux   O    Float(*)  array of Spectrum 1 with replaced
                                         maximum values
                outerr    O    Float(*)  Array of uncertainties of outflux

 Returns        The maximum values of the fluxes (or photocurrents) and
                the corresponing errors. 

 Description    The spectrum is compared with either a constant or another
                spectrum. The bigger value is returned. For comparison
                with a constant this constant has to be passed as array (from
                the shell arithm). The errors are taken from the bigger value.

 Comment        The routine is usually called from the "shell" ARITHM which
                provides the appropriate arrays from the product structures.

 Example        ---

 Dependencies   CALLS: sap_error
                CALLED FROM: arithm

 Category       ISAP

 Filename       sap_max.pro

 Author         A. Fiedler (--> AF)

 Version        1.0
                              
 History        0.1   02-10-95  AF 
                1.0   30-11-95  ES V1 delivery
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Copyright (C) 1995, Max-Planck-Institut fuer extraterrestrische Physik (MPE);
                    Garching, Germany                                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;