subroutine ahi(iwa)
      real s,wlinf,wlsup
      common /sixs_ffu/ s(1501),wlinf,wlsup
      real sr(6,1501),wli(6),wls(6)
      integer iwa,l,i
      
c band 1 of AHI ( center wavelength 0.47 micro-m)
      DATA (SR(1,L),L=1,1501)/ 77*0.,
     A .0063, .1128, .3180, .5012, .6660, .7301, .7873, .7839,
     A .8389, .8354, .9218, .9550, .9554, .9651, .9604, .9878,
     A .9859, .8985, .7229, .5500, .3041, .0674, .0117, .0021,
     A1400*0./
     
c band 2 of AHI (center wavelength 0.51 micro-m)
      DATA (SR(2,L),L=1,1501)/ 93*0.,
     A .0036, .0169, .0793, .2041, .3281, .4906, .6965, .9268,
     A .9849, .9936, .9751, .9992, .9831,1.0000, .9645, .8573,
     A .7127, .5582, .3858, .1838, .0412, .0101, .0028, .0011,
     A1384*0./
     
c band 3 of AHI (center wavelenbth 0.64 micro-m)
      DATA (SR(3,L),L=1,1501)/  132*0.,
     A .0020, .0082, .0324, .0627, .1383, .2177, .2982, .4180,
     A .5604, .7397, .8695, .8985, .9053, .9310, .9471, .9351,
     A .9456, .9700, .9554, .9364, .9589, .9785, .9624, .9787,
     A .9986, .9843, .9842, .9976, .9991, .9935, .9916, .9947,
     A .9868, .9845, .9882, .9648, .8944, .8197, .7233, .6267,
     A .5313, .3956, .2214, .0905, .0342, .0134, .0057, .0024,
     A .0010, 
     A1320*0./
     
c band 4 of AHI (center wavelenbth 0.86 micro-m )
      DATA (SR(4,L),L=1,1501)/ 229*0.,
     A .0020, .0047, .0087, .0223, .0817, .2182, .3901, .5622,
     A .7224, .8591, .9276, .9169, .8747, .8703, .8859, .9245,
     A .9758,1.0000, .8750, .7232, .5630, .4175, .2721, .1355,
     A .0556, .0251, .0082, .0032, 
     A1244*0./
     
c band 5 of AHI (center wavelenbth 1.6 micro-m )
      DATA (SR(5,L),L=1,1501)/ 523*0.,
     A .0014, .0022, .0035, .0055, .0094, .0165, .0303, .0561,
     A .0982, .1570, .2362, .3239, .4231, .5248, .6342, .7433,
     A .8283, .8675, .8736, .8511, .8679, .9192, .9798, .9952,
     A .9347, .8608, .7859, .6967, .6061, .5112, .4121, .3156,
     A .2311, .1588, .1045, .0670, .0422, .0262, .0163, .0103,
     A .0067, .0044, .0030, .0020, .0013, .0010,
     A932*0./
     
c band 6 of AHI (snow/ice channel at 500m )
      DATA (SR(6,L),L=1,1501)/ 780*0.,
     A .0011, .0013, .0025, .0043, .0076, .0136, .0277, .0536,
     A .0917, .1432, .2034, .2696, .3459, .4250, .5018, .5824,
     A .6676, .7543, .8326, .9051, .9570, .9769, .9977, .9847,
     A .9351, .8930, .8490, .7970, .7381, .6749, .6118, .5448,
     A .4723, .3960, .3210, .2465, .1755, .1135, .0692, .0405,
     A .0233, .0141, .0088, .0062, .0042, .0032, .0022, .0015,
     A .0011,
     A 672*0./
c
      wli(1)=0.4425 
      wls(1)=0.5000
      
      wli(2)=0.4825
      wls(2)=0.5400
      
      wli(3)=0.5800
      wls(3)=0.7000
      
      wli(4)=0.8225 
      wls(4)=0.8900
      
      wli(5)=1.5575
      wls(5)=1.6700
      
      wli(6)=2.2000
      wls(6)=2.3200
      
      do 1 i=1,1501
      s(i)=sr(iwa,i)
    1 continue
      wlinf=wli(iwa)
      wlsup=wls(iwa)
      return
      end