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


      subroutine seaw(r) 2
      parameter (mxwv=751)
      dimension sr(mxwv),r(mxwv)
c
c  sea water (actually just clear water)
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) / 41*0.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