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


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

c     clear water reflectance
c     warning : values of dry sand ground reflectance are given
c     between 0.5 and 1.0 microns. outside this interval the
c     values are set to 0.
c
c     Viollier, M. "Teledetection des concentrations de seston et
c     pigments chlorophylliens contenus dans l'Ocean", These de Doctorat
c     d'Etat, no 503, 1980

      data (sr(i),i=1,mxwv) / 30*0.,
     a.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,
     a.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.042,
     a.043,.044,.044,.046,.047,.049,.050,.052,.054,.055,.056,
     a.059,.060,.061,.061,.059,.057,.054,.053,.051,.050,.049,
     a.047,.046,.046,.045,.044,.043,.043,.041,.040,.038,.037,
     a.037,.036,.033,.032,.031,.029,.027,.024,.023,.021,.018,
     a.015,.012,.009,.008,.006,.004,.002,.001,.000,.000,.000,
     a644*0./
      do 1 i=1,mxwv
      r(i)=sr(i)
    1 continue
      return
      end