c=============================================================================


      subroutine   lakew (r) 1
      parameter (mxwv=751)
      dimension sr(mxwv),r(mxwv)

c     lake water reflectance
c     warning : values of lake water reflectance are given
c     between 0.35 and 1.0 microns. outside this interval the
c     values are set to 0.
c
c     Kondratyev, K. Y., 1969: "Radiation in the atmosphere", Academic
c     Press, N.Y. 10003 USA


      data (sr(i),i=1,mxwv) / 21*0.,
     a.045,.047,.048,.050,.051,.051,.053,.053,.055,.057,.058,
     a.059,.060,.060,.062,.064,.065,.067,.068,.070,.070,.069,
     a.071,.071,.072,.074,.074,.075,.076,.076,.077,.077,.077,
     a.077,.079,.080,.080,.081,.081,.082,.082,.082,.083,.082,
     a.083,.082,.082,.082,.082,.082,.080,.079,.079,.077,.075,
     a.074,.072,.071,.070,.068,.066,.065,.064,.063,.061,.060,
     a.059,.057,.056,.054,.053,.051,.050,.048,.047,.046,.045,
     a.044,.042,.041,.040,.039,.037,.036,.035,.034,.032,.032,
     a.031,.030,.030,.028,.027,.027,.025,.024,.024,.023,.022,
     a.022,.020,.020,.020,.019,.019,.019,.019,.019,.019,.018,
     a.016,.016,.015,.014,.012,.012,.012,.011,.011,.009,.008,
     a.008,.006,.005,.005,.003,.002,.000,602*0./
      do 1 i=1,mxwv
      r(i)=sr(i)
    1 continue
      return
      end