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
       INTEGER*4  date,n
       PARAMETER  (n=12)
       REAL*4 irr12n1,irr12_value,irr23n1,irr23_day1(n),
     +        irr23c(n),irr23_value,irr23a(n)
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.  
       data irr23c/148.98,150.56,151.36,151.76,152.17,152.65,
     +             153.06,153.41,154.02,154.48,155.67,156.37/

       include "r3mode.inc"
c
       irr12_value =  irr12n1
       do j = 1, n
         if(r3ccm)then
          irr23_day1 (j) = irr23c(j)
         else
          irr23_day1 (j) = irr23a(j)
         endif
       end do
       return                                                           
       end