Function:     irds_wr_skypos

Purpose:      To write skypositions for satcal ticks to an IRDS

Category:     IR

File:         irds_samples.c

Author:       P.R. Roelfsema

Use:          IRDS_WR_SKYPOS(  IRDS   ,    Input   character*(*)
                               SNIP   ,    Input   integer
                               TICK   ,    Input   integer
                               LON    ,    Input   double( >=NSATS )
                               LAT    ,    Input   double( >=NSATS )
                               TWIST  ,    Input   double( >=NSATS )
                               NSATS  ,    Input   integer
                               STATUS )    Output  integer
                                       
              IRDS        Name of IRDS to write to.
              SNIP        Sequential snip number to write.
              TICK        Sequential tick of first sample to write.
              LON         Array containing LON coordinates
              LAT         Array containing LAT coordinates
              TWIST       Array containing TWIST angles (ccw w.r.t. +LAT)
              NSATS       Number of satcal ticks  to write.
              STATUS      Error return code:
                           0  - no error.
                          -1  - IRDS does not exist
                          -2  - IRDS is not a legal irds
                          -3  - SNIP not in IRDS
                          -5  - TICK or TICK + NSATS not in IRDS

Updates:      Aug 20, 1990: PRR, Creation date