Function:     irlrs_set_create

Purpose:      Create an LRS set.

Category:     LRS

File:         irlrs_set.c

Author:       P.R. Roelfsema

Use:          IRLRS_SET_CREATE( IRDSIN  ,      Input   character*(*)
                                LMLO    ,      Input   real
                                LMHI    ,      Input   real
                                LMSTEP  ,      Input   real
                                LRSSET  ,      Input   character*(*)
                                STATUS  )      Output  integer

              IRDSIN      Name of input irds to be used as a template
                          for filling in the header. If a non-existing
                          irds is given (e.g. an empty string) an LRS
                          set is created with a limited header (e.g. no
                          SATCAL information).
              LMLO        Begin wavelength of spectra ( micron ).
              LMHI        End wavelength of spectra ( micron ).
              LMSTEP      Step in wavelength between pixels ( micron ).
              LRSSET      Name of output LRS set.
              STATUS      Status return:
                           0 - no problems.
                          -1 - IRDSIN does exist but is not a good irds
                          -2 - LRSSET exists, is not LRS set.
                          -3 - LRSSET exists, does not agree with IRDSIN.
                          -4 - gds error.

Updates:      Jan 29, 1991: PRR, Creation date