Identifier     sap_min

 Purpose        set induvidual points of a spectrum to minimum value of
                spectrum and either a constant or another spectrum (array)

 Synopsis       sap_min, 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
                                         minimum values
                outerr    O    Float(*)  Array of uncertainties of outflux

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

 Description    The spectrum is compared with either a constant or another
                spectrum. The smaller 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 smaller 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_min.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                                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;