Function:     irlrs_set_wrsnip

Purpose:      Write data for a detector snip to an existing LRS set.

Category:     LRS

File:         irlrs_set.c

Author:       P.R. Roelfsema

Use:          IRLRS_SET_WRSNIP( LRSSET  ,      Input   character*(*)
                                SNIP    ,      Input   integer
                                SDET    ,      Input   integer
                                DATA    ,      Input   real( >NDATA )
                                NDATA   ,    In/Output integer
                                STATUS  )      Output  integer

              LRSSET      Name of LRS set.
              SNIP        Sequential snip number to add.
              SDET        Sequential detector number to add.
                           0  - mean spectrum
                          1-5 - spectra for detectors 71 - 74
              DATA        Array containing the spectrum.
              NDATA       In  - number of elements of DATA to write
                          Out - number of elements of DATA written
              STATUS      Status return:
                           0 - no problems.
                          -1 - LRSSET does not exists.
                          -2 - LRSSET exists, is not LRS set.
                          -3 - gds write error.
                          -5 - SNIP not in LRSSET.
                          -6 - SDET not in LRSSET.

Updates:      Jan 29, 1991: PRR, Creation date