SUBROUTINE rcal_n19 (date,rcal)
c     Day-1 N19 radiance calibration constants. 
      integer*4 date
      real*4 rcal(13),rcaln1(13)
c     FM8 prelaunch calibration in April-May 2008, Data Book RevB Tables
c     5.6-2&3.  Ram's 12/5/2008 e-mail & Matt's 12/8/2008 e-mail
c      data  rcaln1/1.3075E-04,1.4794E-04,1.6577E-04,1.7199E-04,
c     +  1.7825E-04,1.8607E-04,1.9279E-04,1.9832E-04,2.0473E-04,
c     +  2.0484E-04,1.6482E-04,1.3759E-04,1.0971E-02/
c     Test 1 during A&E.  The solar irradiance measurements with all
c     prelaunch parameters for A&E before any update of calibrations
c     derived from the orbital data.  The scale factors are equal to 
c     ratio of SSBUV-2 irradiance with updated solar activity on Day 105
c     to the 0-th cut of the N19 measured irraidance. Matt 4/21/09 e-amil 
      data  rcaln1/1.3958E-04,1.6236E-04,1.7558E-04,1.8279E-04,
     +  1.8823E-04,1.9416E-04,2.0121E-04,2.0635E-04,2.0864E-04,
     +  2.0591E-04,1.5810E-04,1.3632E-04,1.0789E-02/
      do 100 i=1,13
100   rcal(i)=rcaln1(i)
      
      return
      end