Subroutine IRR_N19 (date,irr12_value,irr23_day1)      
c
c      The Day-1 NOAA-19 inter-range gain ratios
c
c      Parameters      Type  I/O    Definition
c      date            I*4   Dummy  Date was defined in previous code for time depedency
c      irr12_value     R*4   O      Day-1 IRR12
c      irr23_day1(12)  R*4   O      Day-1 IRR23, wavelength independent in prelaunch cal
c
c      11/2008
c
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. 
c    New IRR23c is computed from the prelaunch calibration 2004 polynomial adjusted to 
c    2008 calibration with a scale factor, then with the channel-to-channel offset as 
c    determined at 340 nm:  poly(343.022,coef)/1.01563*1.0045=157.309
c        Jan 25, 2012
c
      include "params.inc"
c
       INTEGER*4  date,n
       PARAMETER  (n=12)
       REAL*4 irr12n1,irr12_value,irr23n1,irr23_day1(n),
     +  irr23c(n),irr23_value,irr23a(n),irr23c343,irr23c335
c
c ----- Prelaunch calibration IRR12 
c       data irr12n1/100.59/
c ----- A&E
       data irr12n1/100.833/
c
c ----- Prelaunch caliration IRR23 in Range-3 anode mode
c
c       data irr23a/99.13,99.13,99.13,99.13,99.13,99.13,
c     +             99.13,99.13,99.13,99.13,99.13,99.13/
c ----- A&E
       data irr23a/98.153,98.153,98.153,98.153,98.153,98.153,
     +             98.153,98.263,97.861,98.499,97.993,98.197/
c
c ----- Prelaunch caliration IRR23 in cathode mode.  
c       data irr23c/148.98,150.56,151.36,151.76,152.17,152.65,
c     +             153.06,153.41,154.02,154.48,155.67,156.37/
c
c ---- Updated on Dec 9, 2009. Including the offset against
c      the prelaunch polynomial.  
       data irr23c/148.98,150.55,151.35,151.76,152.17,152.65,
     +             153.05,153.08,154.16,154.35,156.18,157.12/
       data irr23c343/157.309/,irr23c335/155.977/,irr23c331/156.18/

       include "r3mode.inc"
c
       irr12_value =  irr12n1
       do j = 1, n
         if(r3ccm)then
          irr23_day1 (j) = irr23c(j)
          if(abs(wlen0(j)-3430.22).lt.0.5)irr23_day1 (j)=irr23c343
          if(abs(wlen0(j)-3350.04).lt.0.5)irr23_day1 (j)=irr23c335
          if(abs(wlen0(j)-3312.69).lt.0.5)irr23_day1 (j)=irr23c331
         else
          irr23_day1 (j) = irr23a(j)
         endif
       end do
       return                                                           
       end