SUBROUTINE flux_n19 (date,flux)
c     
c     The Day-1 solar flux for N19
c
      integer*4 date
      real*4 flux(13),fluxn1(13)
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
      data fluxn1/41.754,192.796,329.720,338.856,548.541,533.186,
     +  452.425,591.619,688.880,799.018,992.905,1045.353,1303.020/
     
      do 100 i=1,13
100   flux(i)=fluxn1(i)

      return
      end