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


      subroutine   vegeta (r) 2
      parameter (mxwv=751)
      dimension sr(mxwv),r(mxwv)

c     vegetation average reflectance
c     warning : values of dry sand ground reflectance are given
c     between 0.4 and 2.2 microns. outside this interval the
c     values are set to 0.
c
c     Manual of Remote Sensing American Society of Photogrammetry,
c     R.G. Reeves, A. Anson, D. Landen, eds.  1st ed. Falls Church, Va.,
c     1975.

      data (sr(i),i=1,140) / 30*0.,
     a.060,.060,.062,.064,.066,.069,.070,.072,.074,.078,.080,
     a.083,.084,.089,.093,.098,.102,.104,.106,.110,.115,.119,
     a.121,.125,.127,.130,.133,.133,.134,.133,.131,.127,.121,
     a.115,.110,.105,.101,.098,.094,.090,.087,.083,.081,.080,
     a.078,.076,.075,.074,.073,.073,.073,.074,.079,.100,.138,
     a.169,.199,.228,.259,.290,.316,.350,.378,.403,.436,.462,
     a.487,.509,.511,.514,.519,.520,.520,.522,.522,.522,.523,
     a.524,.524,.524,.524,.526,.526,.526,.527,.527,.527,.528,
     a.528,.528,.529,.529,.529,.529,.531,.531,.531,.531,.531,
     a.532,.532,.532,.532,.532,.533,.533,.533,.534,.534,.534/
      data (sr(i),i=141,240) /
     a.534,.535,.535,.536,.536,.537,.537,.536,.536,.535,
     a.535,.534,.532,.531,.530,.528,.528,.527,.527,.526,
     a.525,.524,.522,.521,.519,.518,.515,.513,.512,.510,
     a.508,.507,.506,.505,.502,.500,.498,.496,.495,.493,
     a.492,.492,.492,.492,.492,.493,.495,.495,.496,.496,
     a.496,.497,.497,.497,.498,.498,.497,.497,.497,.495,
     a.493,.492,.491,.488,.486,.482,.478,.476,.472,.467,
     a.462,.451,.441,.429,.421,.408,.399,.385,.371,.365,
     a.349,.339,.330,.321,.309,.298,.289,.279,.272,.267,
     a.259,.251,.243,.233,.229,.224,.218,.215,.215,.215/
      data (sr(i),i=241,340) /
     a.215,.219,.223,.229,.234,.240,.249,.256,.260,.267,
     a.273,.279,.286,.293,.300,.306,.312,.319,.325,.331,
     a.337,.341,.345,.351,.355,.360,.362,.367,.369,.372,
     a.376,.378,.379,.381,.382,.384,.386,.387,.389,.388,
     a.388,.388,.388,.388,.388,.384,.383,.381,.380,.378,
     a.376,.374,.373,.371,.370,.368,.367,.366,.365,.365,
     a.363,.362,.361,.359,.358,.357,.355,.353,.350,.347,
     a.346,.345,.343,.340,.337,.335,.331,.330,.321,.312,
     a.296,.273,.221,.186,.158,.138,.129,.121,.110,.102,
     a.095,.091,.089,.086,.086,.084,.084,.084,.086,.087/
      data (sr(i),i=341,mxwv) /
     a.093,.098,.105,.114,.116,.124,.133,.134,.141,.147,
     a.151,.156,.162,.166,.170,.174,.175,.178,.181,.185,
     a.187,.188,.192,.196,.199,.201,.205,.208,.212,.213,
     a.214,.217,.219,.220,.221,.224,.227,.229,.231,.233,
     a.237,.238,.239,.241,.242,.243,.245,.245,.246,.248,
     a.248,.250,.246,.242,.238,.234,.230,.226,.222,.218,
     a.214,.210,.206,.202,.198,.194,.190,.186,.182,.178,
     a.174,.170,.166,.162,.158,.154,.150,.146,.142,.138,
     a.134,.130,.126,.122,.118,.114,.110,.106,.102,.098,
     a.094,.090,.086,.082,.078,.074,.070,.066,.062,.058,
     a.054,.050,.046,.042,.038,.034,.030,.026,.022,.018,
     a.014,.010,.010,.010,.010,.010,.010,.010,.010,.010,
     a.010,.010,.010,.010,.010,.010,.010,.010,.010,.010,
     a.010,280*0./
      do 1 i=1,mxwv
      r(i)=sr(i)
    1 continue
      return
      end