SUBROUTINE rcal_n19 (date,rcal)
c     Day-1 N19 radiance calibration constants. 
      integer*4 date,data11
      real*4 rcal(13),rcaln1(13),rcaln2(13)
c
c    Add channel-12 343nm setting based on wlen0(12) rather than date
c    to process both 340 nm and 343 nm runs the same day. The new
c    calibration values for channel-12 are detailed in DeLand's 1/23/12
c    e-mail.    Jan 25, 2012
c
      include "params.inc"
c
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 
c      data  rcaln1/1.3958E-04,1.6236E-04,1.7558E-04,1.8279E-04,
c     +  1.8823E-04,1.9416E-04,2.0121E-04,2.0635E-04,2.0864E-04,
c     +  2.0591E-04,1.5810E-04,1.3632E-04,1.0789E-02/
c
c     Test 2 after A&E.  Solar irradiance was measured on 2009 Day 107.  It
c     was calibrated with the prelaunch R3a calcons without adjustment for 
c     the PMT gain drift.  (Ram's e-mails and conversations 1/15-26/2010.)
c     Solar irradiance measurements from Ram were adjusted for the PMT gain
c     drift.  Then, ratio of the adjusted irradiance to the SSBUV-2 (adjusted
c     for solar activity on Day 107) is multiplied to the prelaunch calcon.
c      data  rcaln1/1.4377E-04,1.6836E-04,1.8212E-04,1.8950E-04,
c     +  1.9512E-04,2.0130E-04,2.0861E-04,2.1352E-04,2.1681E-04,
c     +  2.1250E-04,1.6399E-04,1.4115E-04,1.1352E-02/
c     Test 3 in March 2011.  Use the latest goniometry from Ram, renormalized it
c     at incident angles in the prelaunch calibration.  Then, ratios of new solar day-1 
c     irradiance to the ssbuv-2 values in flux_n19.f are multiplied to the prelaunch 
c     calibration constants.
      data  rcaln1/1.4269E-04,1.6688E-04,1.8043E-04,1.8773E-04,
     +  1.9329E-04,1.9947E-04,2.0662E-04,2.1138E-04,2.1468E-04,
     +  2.1044E-04,1.6226E-04,1.3954E-04,1.1220E-02/
      data  rcaln2/1.4269E-04,1.6688E-04,1.8043E-04,1.8773E-04,
     +  1.9329E-04,1.9947E-04,2.0662E-04,2.1138E-04,2.1468E-04,
     +  2.1044E-04,1.6226E-04,1.3787e-04,1.1220E-02/
c     correction using ACF(340nm) for 4 orbits of 343 nm test on 12/06/2011
      data date11/2011340/,d_acf/1.007/
 
      do 100 i=1,13
100   rcal(i)=rcaln1(i)
      if(abs(wlen0(12)-3430.22).lt.0.5)then
        rcal(12)=rcaln2(12)
        if(date.eq.date11) rcal(12)=rcal(12)*d_acf
      endif
      
      return
      end