      subroutine   vegeta (r)
      real sr(1501),r(1501)
      integer l,i
 
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.
 
      data (sr(l),l=1,184)/  58*0.,
     a .00000, .03000, .06000, .06000, .06000, .06100, .06200,
     a .06300, .06400, .06500, .06600, .06750, .06900, .06950,
     a .07000, .07100, .07200, .07300, .07400, .07600, .07800,
     a .07900, .08000, .08150, .08300, .08350, .08400, .08650,
     a .08900, .09100, .09300, .09550, .09800, .10000, .10200,
     a .10300, .10400, .10500, .10600, .10800, .11000, .11250,
     a .11500, .11700, .11900, .12000, .12100, .12300, .12500,
     a .12600, .12700, .12850, .13000, .13150, .13300, .13300,
     a .13300, .13350, .13400, .13350, .13300, .13200, .13100,
     a .12900, .12700, .12400, .12100, .11800, .11500, .11250,
     a .11000, .10750, .10500, .10300, .10100, .09950, .09800,
     a .09600, .09400, .09200, .09000, .08850, .08700, .08500,
     a .08300, .08200, .08100, .08050, .08000, .07900, .07800,
     a .07700, .07600, .07550, .07500, .07450, .07400, .07350,
     a .07300, .07300, .07300, .07300, .07300, .07350, .07400,
     a .07650, .07900, .08950, .10000, .11900, .13800, .15350,
     a .16900, .18400, .19900, .21350, .22800, .24350, .25900,
     a .27450, .29000, .30300, .31600, .33300, .35000, .36400/
      data (sr(l),l=185,310)/  
     a .37800, .39050, .40300, .41950, .43600, .44900, .46200,
     a .47450, .48700, .49800, .50900, .51000, .51100, .51250,
     a .51400, .51650, .51900, .51950, .52000, .52000, .52000,
     a .52100, .52200, .52200, .52200, .52200, .52200, .52250,
     a .52300, .52350, .52400, .52400, .52400, .52400, .52400,
     a .52400, .52400, .52500, .52600, .52600, .52600, .52600,
     a .52600, .52650, .52700, .52700, .52700, .52700, .52700,
     a .52750, .52800, .52800, .52800, .52800, .52800, .52850,
     a .52900, .52900, .52900, .52900, .52900, .52900, .52900,
     a .53000, .53100, .53100, .53100, .53100, .53100, .53100,
     a .53100, .53100, .53100, .53150, .53200, .53200, .53200,
     a .53200, .53200, .53200, .53200, .53200, .53200, .53250,
     a .53300, .53300, .53300, .53300, .53300, .53350, .53400,
     a .53400, .53400, .53400, .53400, .53400, .53400, .53450,
     a .53500, .53500, .53500, .53550, .53600, .53600, .53600,
     a .53650, .53700, .53700, .53700, .53650, .53600, .53600,
     a .53600, .53550, .53500, .53500, .53500, .53450, .53400,
     a .53300, .53200, .53150, .53100, .53050, .53000, .52900/
      data (sr(l),l=311,408)/  
     a .52800, .52800, .52800, .52750, .52700, .52700, .52700,
     a .52650, .52600, .52550, .52500, .52450, .52400, .52300,
     a .52200, .52150, .52100, .52000, .51900, .51850, .51800,
     a .51650, .51500, .51400, .51300, .51250, .51200, .51100,
     a .51000, .50900, .50800, .50750, .50700, .50650, .50600,
     a .50550, .50500, .50350, .50200, .50100, .50000, .49900,
     a .49800, .49700, .49600, .49550, .49500, .49400, .49300,
     a .49250, .49200, .49200, .49200, .49200, .49200, .49200,
     a .49200, .49200, .49200, .49250, .49300, .49400, .49500,
     a .49500, .49500, .49550, .49600, .49600, .49600, .49600,
     a .49600, .49650, .49700, .49700, .49700, .49700, .49700,
     a .49750, .49800, .49800, .49800, .49750, .49700, .49700,
     a .49700, .49700, .49700, .49600, .49500, .49400, .49300,
     a .49250, .49200, .49150, .49100, .48950, .48800, .48700/
        data (sr(l),l=409,534)/
     a .48600, .48400, .48200, .48000, .47800, .47700, .47600,
     a .47400, .47200, .46950, .46700, .46450, .46200, .45650,
     a .45100, .44600, .44100, .43500, .42900, .42500, .42100,
     a .41450, .40800, .40350, .39900, .39200, .38500, .37800,
     a .37100, .36800, .36500, .35700, .34900, .34400, .33900,
     a .33450, .33000, .32550, .32100, .31500, .30900, .30350,
     a .29800, .29350, .28900, .28400, .27900, .27550, .27200,
     a .26950, .26700, .26300, .25900, .25500, .25100, .24700,
     a .24300, .23800, .23300, .23100, .22900, .22650, .22400,
     a .22100, .21800, .21650, .21500, .21500, .21500, .21500,
     a .21500, .21500, .21500, .21700, .21900, .22100, .22300,
     a .22600, .22900, .23150, .23400, .23700, .24000, .24450,
     a .24900, .25250, .25600, .25800, .26000, .26350, .26700,
     a .27000, .27300, .27600, .27900, .28250, .28600, .28950,
     a .29300, .29650, .30000, .30300, .30600, .30900, .31200,
     a .31550, .31900, .32200, .32500, .32800, .33100, .33400,
     a .33700, .33900, .34100, .34300, .34500, .34800, .35100,
     a .35300, .35500, .35750, .36000, .36100, .36200, .36450/
        data (sr(l),l=535,660)/
     a .36700, .36800, .36900, .37050, .37200, .37400, .37600,
     a .37700, .37800, .37850, .37900, .38000, .38100, .38150,
     a .38200, .38300, .38400, .38500, .38600, .38650, .38700,
     a .38800, .38900, .38850, .38800, .38800, .38800, .38800,
     a .38800, .38800, .38800, .38800, .38800, .38800, .38800,
     a .38600, .38400, .38350, .38300, .38200, .38100, .38050,
     a .38000, .37900, .37800, .37700, .37600, .37500, .37400,
     a .37350, .37300, .37200, .37100, .37050, .37000, .36900,
     a .36800, .36750, .36700, .36650, .36600, .36550, .36500,
     a .36500, .36500, .36400, .36300, .36250, .36200, .36150,
     a .36100, .36000, .35900, .35850, .35800, .35750, .35700,
     a .35600, .35500, .35400, .35300, .35150, .35000, .34850,
     a .34700, .34650, .34600, .34550, .34500, .34400, .34300,
     a .34150, .34000, .33850, .33700, .33600, .33500, .33300,
     a .33100, .33050, .33000, .32550, .32100, .31650, .31200,
     a .30400, .29600, .28450, .27300, .24700, .22100, .20350,
     a .18600, .17200, .15800, .14800, .13800, .13350, .12900,
     a .12500, .12100, .11550, .11000, .10600, .10200, .09850/
        data (sr(l),l=661,758)/
     a .09500, .09300, .09100, .09000, .08900, .08750, .08600,
     a .08600, .08600, .08500, .08400, .08400, .08400, .08400,
     a .08400, .08500, .08600, .08650, .08700, .09000, .09300,
     a .09550, .09800, .10150, .10500, .10950, .11400, .11500,
     a .11600, .12000, .12400, .12850, .13300, .13350, .13400,
     a .13750, .14100, .14400, .14700, .14900, .15100, .15350,
     a .15600, .15900, .16200, .16400, .16600, .16800, .17000,
     a .17200, .17400, .17450, .17500, .17650, .17800, .17950,
     a .18100, .18300, .18500, .18600, .18700, .18750, .18800,
     a .19000, .19200, .19400, .19600, .19750, .19900, .20000,
     a .20100, .20300, .20500, .20650, .20800, .21000, .21200,
     a .21250, .21300, .21350, .21400, .21550, .21700, .21800,
     a .21900, .21950, .22000, .22050, .22100, .22250, .22400,
     a .22550, .22700, .22800, .22900, .23000, .23100, .23200/
       data (sr(l),l=759,884)/
     a .23300, .23500, .23700, .23750, .23800, .23850, .23900,
     a .24000, .24100, .24150, .24200, .24250, .24300, .24400,
     a .24500, .24500, .24500, .24550, .24600, .24700, .24800,
     a .24800, .24800, .24900, .25000, .24800, .24600, .24400,
     a .24200, .24000, .23800, .23600, .23400, .23200, .23000,
     a .22800, .22600, .22400, .22200, .22000, .21800, .21600,
     a .21400, .21200, .21000, .20800, .20600, .20400, .20200,
     a .20000, .19800, .19600, .19400, .19200, .19000, .18800,
     a .18600, .18400, .18200, .18000, .17800, .17600, .17400,
     a .17200, .17000, .16800, .16600, .16400, .16200, .16000,
     a .15800, .15600, .15400, .15200, .15000, .14800, .14600,
     a .14400, .14200, .14000, .13800, .13600, .13400, .13200,
     a .13000, .12800, .12600, .12400, .12200, .12000, .11800,
     a .11600, .11400, .11200, .11000, .10800, .10600, .10400,
     a .10200, .10000, .09800, .09600, .09400, .09200, .09000,
     a .08800, .08600, .08400, .08200, .08000, .07800, .07600,
     a .07400, .07200, .07000, .06800, .06600, .06400, .06200,
     a .06000, .05800, .05600, .05400, .05200, .05000, .04800/
       data (sr(l),l=885,1501)/
     a .04600, .04400, .04200, .04000, .03800, .03600, .03400,
     a .03200, .03000, .02800, .02600, .02400, .02200, .02000,
     a .01800, .01600, .01400, .01200, .01000, .01000, .01000,
     a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
     a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
     a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
     a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
     a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
     a .01000,
     a 560*0./
      do 1 i=1,1501
      r(i)=sr(i)
    1 continue
      return
      end
