SUBROUTINE rcal_n18 (date,rcal)
c     Day-1 N18 radiance calibration constants
      integer*4 date
      real*4 rcal(13),rcaln1(13)
c     The prelaunch (Apr 2003) calibration was used during the A&E.
c     They are corrected for wavelength shift by interpolation of calcons
c     in the sweep mode.  Details in DeLand's "SBUV/2 FM#7 Prelaunch I
c     nstrument Characterization for NOAA-N", 28 Jan 2005
c      data  rcaln1/1.3642e-04,1.2857e-04,1.4484e-04,1.4045e-04,
c     +  1.3143e-04,1.2278e-04,1.1842e-04,1.1579e-04,1.1119e-04,
c     +  1.0643e-04,9.2728e-05,8.5641e-05,7.4116e-03/
c
c --- Revised rcal and flux as in A&E report to keep the same prelaunch albedo 
c     calibration, and to match the solar flux with the SSBUV2 solar flux 
c     calibration.   --- LKH Nov 2005
c      data  rcaln1/1.4710E-04,1.4223E-04,1.5595E-04,1.4870E-04,
c     +  1.3912E-04,1.3076E-04,1.2564E-04,1.2294E-04,1.1667E-04,
c     +  1.1063E-04,9.4479E-05,8.8328E-05,8.0171e-03/
c
c --- Solar irradiance was reprocessed with the measured gain ratios in earth
c     view which have small offsets from the average.  As the solar irradiance
c     are attached to SSBUV-2 values, the irradiance and radiance calibration
c     constants are revised.  The maximum change of -0.36% is at channel 10.  
c     DeLand 1/13/2006 and 2/21/2006 e-mail.  --- LKH Mar 2006
      data  rcaln1/1.4686E-04,1.4202E-04,1.5571E-04,1.4846E-04,
     +  1.3890E-04,1.3054E-04,1.2544E-04,1.2268E-04,1.1666E-04,
     +  1.1023E-04,9.4442E-05,8.8216E-05,8.0171E-03/
      do 100 i=1,13
100   rcal(i)=rcaln1(i)
      
      return
      end