Function:     irds_wr_bphf

Purpose:      To writes BPHF data to an IRDS for each satcal tick

Category:     IR

File:         irds_samples.c

Author:       P.R. Roelfsema

Use:          IRDS_WR_BPHF(    IRDS    ,    Input   character*(*)
                               SNIP    ,    Input   integer
                               TICK    ,    Input   integer
                               SRLON   ,    Input   double( >=NSATS )
                               ESRLON  ,    Input   double( >=NSATS )
                               SRLAT   ,    Input   double( >=NSATS )
                               ESRLAT  ,    Input   double( >=NSATS )
                               TWIST   ,    Input   double( >=NSATS )
                               LNGSUN  ,    Input   double
                               SUNRATE ,    Input   double
                               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.
              SRLON       Array containing SRLON in radians
              ESRLON      Array containing error in SRLON 
                          If ESRLON(1) < 0, no errors are put in the
                          header, if ESRLON(2) < 0 ESRLON(1) is used
                          as average error for the entire snip.
                          In both cases the rest of the array is not accessed.
              SRLAT       Array containing SRLAT in radians
              ESRLAT      Array containing error in SRLAT
                          If ESRLAT(1) < 0, no errors are put in the
                          header, if ESRLAT(2) < 0 ESRLAT(1) is used
                          as average error for the entire snip.
                          In both cases the rest of the array is not accessed.
              TWIST       Array containing TWIST angles in radians 
                          (c.c.w. from north)
              LNGSUN      Solar longitude at TICK in radians
              SUNRATE     Rate of change of solar longitude in radians/tick
              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
              Sep 21, 1990: PRR, changed PSI/THETA to SRLON/SRLAT