      subroutine  vgt(iwa)
      real s,wlinf,wlsup
      common /sixs_ffu/ s(1501),wlinf,wlsup
      real sr(4,1501),wli(4),wls(4)
      integer iwa,l,i
 
c    1st spectral band of spot-4 vegetation
 
      data (sr(1,l),l=1,1501)/  67*0.,
     a 0.00359, 0.00820, 0.01689, 0.04098, 0.09074,
     a 0.16393, 0.25438, 0.35246, 0.44912, 0.54098,
     a 0.62641, 0.70492, 0.77679, 0.84426, 0.90781,
     a 0.95902, 0.98950, 1.00000, 0.99382, 0.97541,
     a 0.94916, 0.91803, 0.87961, 0.81148, 0.69429,
     a 0.54098, 0.37500, 0.22951, 0.13152, 0.07377,
     a 0.04153, 0.02459, 0.01484, 0.00820,
     a 1400*0./
c
c    2nd spectral band of spot-4 vegetation

      data (sr(2,l),l=1,1501)/ 139*0.,
     a 0.00176, 0.00800, 0.02042, 0.04516, 0.08933,
     a 0.16000, 0.26049, 0.37903, 0.50005, 0.60800,
     a 0.69074, 0.74973, 0.78986, 0.81600, 0.83269,
     a 0.84307, 0.84991, 0.85600, 0.86362, 0.87301,
     a 0.88390, 0.89600, 0.90907, 0.92288, 0.93726,
     a 0.95200, 0.96674, 0.98045, 0.99194, 1.00000,
     a 1.00334, 1.00030, 0.98911, 0.96800, 0.93563,
     a 0.89234, 0.83887, 0.77600, 0.70501, 0.62935,
     a 0.55302, 0.48000, 0.41358, 0.35425, 0.30179,
     a 0.25600, 0.21654, 0.18265, 0.15343, 0.12800,
     a 0.10562, 0.08616, 0.06961, 0.05600, 0.04522,
     a 0.03672, 0.02987, 0.02400, 0.01864, 0.01395,
     a 0.01029, 0.00800, 0.00724, 0.00747, 0.00796,
     a 0.00800, 0.00703, 0.00518, 0.00274,
     a 1293*0./
c
c    3rd spectral band of spot-4 vegetation
 
      data (sr(3,l),l=1,1501)/ 193*0.,
     a 0.00247, 0.00516, 0.00828, 0.01205, 0.01684,
     a 0.02368, 0.03374, 0.04819, 0.06815, 0.09440,
     a 0.12767, 0.16867, 0.21772, 0.27342, 0.33397,
     a 0.39759, 0.46253, 0.52730, 0.59047, 0.65060,
     a 0.70645, 0.75745, 0.80322, 0.84337, 0.87770,
     a 0.90675, 0.93121, 0.95181, 0.96910, 0.98304,
     a 0.99340, 1.00000, 1.00286, 1.00298, 1.00161,
     a 1.00000, 0.99914, 0.99902, 0.99939, 1.00000,
     a 1.00059, 1.00094, 1.00082, 1.00000, 0.99830,
     a 0.99571, 0.99225, 0.98795, 0.98285, 0.97705,
     a 0.97068, 0.96386, 0.95659, 0.94848, 0.93902,
     a 0.92771, 0.91387, 0.89619, 0.87318, 0.84337,
     a 0.80547, 0.75893, 0.70341, 0.63855, 0.56493,
     a 0.48676, 0.40918, 0.33735, 0.27537, 0.22326,
     a 0.18000, 0.14458, 0.11597, 0.09311, 0.07489,
     a 0.06024, 0.04819, 0.03834, 0.03040, 0.02410,
     a 0.01918, 0.01557, 0.01321, 0.01205, 0.01193,
     a 0.01232, 0.01257, 0.01205, 0.01027, 0.00744,
     a 0.00390,
     a 1217*0./
c
c    4th spectral band of spot-4 vegetation
 
      data (sr(4,l),l=1,1501)/ 509*0.,
     a 0.00313, 0.00595, 0.00815, 0.00943, 0.00965,
     a 0.00928, 0.00899, 0.00943, 0.01106, 0.01353,
     a 0.01631, 0.01887, 0.02085, 0.02268, 0.02497,
     a 0.02830, 0.03318, 0.03960, 0.04745, 0.05660,
     a 0.06710, 0.07953, 0.09465, 0.11321, 0.13578,
     a 0.16232, 0.19260, 0.22642, 0.26374, 0.30538,
     a 0.35235, 0.40566, 0.46565, 0.53006, 0.59594,
     a 0.66038, 0.72079, 0.77604, 0.82534, 0.86792,
     a 0.90325, 0.93183, 0.95439, 0.97170, 0.98445,
     a 0.99312, 0.99816, 1.00000, 0.99918, 0.99663,
     a 0.99341, 0.99057, 0.98863, 0.98615, 0.98116,
     a 0.97170, 0.95653, 0.93731, 0.91642, 0.89623,
     a 0.87806, 0.85895, 0.83490, 0.80189, 0.75707,
     a 0.70235, 0.64080, 0.57547, 0.50933, 0.44484,
     a 0.38434, 0.33019, 0.28417, 0.24588, 0.21437,
     a 0.18868, 0.16783, 0.15066, 0.13599, 0.12264,
     a 0.10968, 0.09725, 0.08571, 0.07547, 0.06679,
     a 0.05942, 0.05300, 0.04717, 0.04166, 0.03655,
     a 0.03204, 0.02830, 0.02543, 0.02314, 0.02108,
     a 0.01887, 0.01628, 0.01358, 0.01116, 0.00943,
     a 0.00867, 0.00864, 0.00901, 0.00943, 0.00964,
     a 0.00965, 0.00955, 0.00943, 0.00937, 0.00936,
     a 0.00939, 0.00943, 
     a 880*0./
      wli(1)=0.4175
      wls(1)=0.5000
      wli(2)=0.5975
      wls(2)=0.7675
      wli(3)=0.7325
      wls(3)=0.9575
      wli(4)=1.5225
      wls(4)=1.8000
      do 1 i=1,1501
      s(i)=sr(iwa,i)
    1 continue
      wlinf=wli(iwa)
      wlsup=wls(iwa)
      return
      end
