SUBROUTINE flux_n18 (date,flux)
c     
c     The Day-1 solar flux for N18
c
      integer*4 date
      real*4 flux(13),fluxn1(13)
c    Prelaunch estimated based on SSBUV-2 solar flux from 
c    DeLand's 1/21/2005 e-mail
c      data fluxn1/43.098,193.739,331.288,340.343,549.122,534.208,
c     +  454.156,593.037,689.907,800.744,992.870,1043.622,1303.020/
c    The 1st trial from N18 solar irradiance measurements, DeLand e-mail on 7/12/05
c      data fluxn1/39.464,175.34,306.98,322.17,520.30,501.56,
c     +  427.75,559.74,658.78,773.08,976.22,1012.75,1204.65/
c    The N18 solar irradiance measurements, DeLand e-mail on 7/14/05
c      data fluxn1/39.031,169.15,307.87,316.23,516.84,506.99,
c     +  428.52,553.92,659.57,764.59,977.00,1019.89,1204.65/
c --- Revised as in A&E report.  Use SSBUV-2 solar irradiance with correction
c     for solar activities.  The same correction factors are applied to both
c     radiance and irradiance calcons to keep the prelaunch albedo calibration.
      data fluxn1/42.027,186.70,331.09,333.73,545.55,538.55,
     +  453.56,586.79,689.90,792.54,993.47,1050.12,1302.74/

      do 100 i=1,13
100   flux(i)=fluxn1(i)

      return
      end