SUBROUTINE flux_n19 (date,flux)
c     
c     The Day-1 solar flux for N19
c
      integer*4 date
      real*4 flux(13),fluxn1(13),fluxn2(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    Prelaunch estimated based on SSBUV-2 solar flux from 
c    Ram's 12/3/2008 e-mail
c      data fluxn1/42.688,194.077,331.277,340.267,549.004,534.545,
c     + 454.163, 592.392, 689.982, 799.483, 993.043,1045.572,1303.02/
c    SSBUV-2 solar flux corrected with measured solar activity on 2009 Day 105
c    Matt's 04-22-2009 e-mail
c      data fluxn1/41.754,192.796,329.720,338.856,548.541,533.186,
c     +  452.425,591.619,688.880,799.018,992.905,1045.353,1303.020/
c    The measurement on Day 107 is used in t2 version.  Therefpre, SSBUV-2
c    irradiance values are adjusted again for solar activity on Day 107.  
c    The adjustment is based on Mgii index table provided by Ram, 1/19/2010.
c    It is insignificant.  
c  
      data fluxn1/41.761,192.806,329.733,338.866,548.546,533.197,
     +  452.439,591.625,688.887,799.018,992.905,1045.353,1303.020/
      data fluxn2/41.761,192.806,329.733,338.866,548.546,533.197,
     +  452.439,591.625,688.887,799.018,992.905,1045.000,1303.020/

     
      do 100 i=1,13
100   flux(i)=fluxn1(i)
      if(abs(wlen0(12)-3430.22).lt.0.5) flux(12)=fluxn2(12)

      return
      end