Identifier   dered_corr

 Purpose      compute reddening correction factor for a single datapoint

 Synopsis     out = dered_corr(lambda,lawlam,tau,mode,iguess,stat)

 Arguments    Name   I/O Type:     Description:
              ----------------------------------------------------------
              lambda  I  float     wavelength for which to compute factor
              lawlam  I  fltarr    array with wavelengths
              tau     I  fltarr    array with optical depths for these 
                                   wavelengths
              mode    I  string    correction mode (see help for dered)
              iguess I/O int       index of last hit. speeds up search
                                   if wavelengths are monotonically increasing.
              stat    O  int       error stat, 0 if ok , 1 if fatal error

 Returns      correction factor for this wavelength
              0 in case of fatal error

 Description

 Comment

 Example      corrfac = dered_corr(lambda,lawlam,tau,mode,iguess,stat)

 Dependencies  CALLS: dered_getext, sap_error
               CALLED FROM: dered

 Category     ISAP

 Filename     dered_corr.pro

 Author       D.Lutz

 Version      1.0

 History      0.1 12-10-95 DL
              0.2 18-10-95 DL use sap_error instead of error
              1.0 30-11-95 ES V1 delivery
              1.1 29-02-96 ES stat added

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Copyright (C) 1995, Max-Planck-Institut fuer extraterrestrische Physik (MPE);
                    Garching, Germany                                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;