subroutine abi(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 ABI ( center wavelength .47 micro-m) 21+33+1447 = 1501
      DATA (SR(1,L),L=1,1501)/ 68*0.,
     A .0001, .0001, .0001, .0001, .0002, .0015, .0167, .1447,
     A .4446, .6012, .7459, .8291, .8530, .9232, .9363, .9712,
     A .9904, .9928, .9859, .9408, .9195, .9720, .9726, .9273,
     A .5835, .2144, .0412, .0054, .0011, .0002, .0001, .0001,
     A .0001, 1400*0./
     
c band 2 of ABI (center wavelength .67 micro-m) 93+53+1355
      DATA (SR(2,L),L=1,1501)/ 93*0.,
     A .0001, .0001, .0018, .0038, .0089, .0205, .0499, .1055,
     A .1761, .2829, .4223, .5782, .7271, .8250, .8484, .8565,
     A .8696, .8793, .8825, .8901, .9095, .9247, .9294, .9329,
     A .9410, .9535, .9640, .9689, .9682, .9672, .9773, .9853,
     A .9795, .9682, .9648, .9760, .9836, .9870, .9948, .9991,
     A .9942, .9871, .9666, .8030, .6516, .4699, .2593, .1299,
     A .0439, .0143, .0053, .0022, .0001, 1355*0./
     
c band 3 of ABI (center wavelenbth .86 micro-m) 152+37+1312
      DATA (SR(3,L),L=1,1501)/ 252*0.,
     A .0001, .0001, .0001, .0001, .0001, .0003, .0005, .0009,
     A .0019, .0044, .0115, .0322, .0951, .1969, .3528, .5497,
     A .7231, .8997, .9973, .9843, .9672, .9549, .9461, .9361,
     A .9273, .9285, .9197, .8072, .6299, .4697, .2886, .1513,
     A .0687, .0238, .0111, .0051, .0001, 
     A1212*0./

c band 4 of ABI (center wavelenbth 1.38 micro-m ) 229+21+1256
      DATA (SR(4,L),L=1,1501)/ 426*0., 
     A .0001, .0001, .0001, .0008, .0044, .0349, .2946, .8493,
     A .9647, .9974, .9741, .4302, .0378, .0039, .0007, .0002,
     A .8904, .0002, .0001, .0001, .0001,
     A1054*0./
     
c band 5 of ABI (center wavelenbth 1.6 micro-m ) 523+57+921
      DATA (SR(5,L),L=1,1501)/ 523*0.,
     A .0003, .0005, .0001, .0001, .0002, .0001, .0001, .0003,
     A .0002, .0004, .0002, .0001, .0015, .0019, .0037, .0077,
     A .0160, .0362, .0806, .1404, .2017, .2869, .3908, .5047,
     A .6173, .7176, .8308, .9803, .9999, .9980, .9936, .9899,
     A .9851, .9677, .9617, .9725, .9513, .8353, .7399, .6673,
     A .5879, .4973, .3908, .2824, .1916, .1218, .0570, .0201,
     A .0088, .0048, .0025, .0020, .0015, .0008, .0005, .0004,
     A .0001, 921*0./
     
c band 6 of ABI (snow/ice channel at 2.3 micro-m ) 780+53+668=1501
      DATA (SR(6,L),L=1,1501)/ 780*0.,
     A .0001, .0001, .0001, .0003, .0003, .0004, .0004, .0005,
     A .0006, .0006, .0012, .0021, .0034, .0055, .0104, .0188,
     A .0368, .0754, .1534, .3003, .5257, .7626, .9159, .9611,
     A .9619, .9616, .9707, .9858, .9981, .9994, .9954, .9900, 
     A .9815, .9636, .9503, .9399, .9060, .8019, .5965, .3576,
     A .1748, .0811, .0367, .0181, .0097, .0050, .0028, .0019, 
     A .0010, .0010, .0006, .0005, .0003, 668*0./
 
      
c
      wli(1)=0.4300
      wls(1)=0.5100
      
      wli(2)=0.5700
      wls(2)=0.7000
      
      wli(3)=0.8100
      wls(3)=0.9000
		
		wli(4)=1.35
      wls(4)=1.40
		
      wli(5)=1.5300
      wls(5)=1.6700
      
      wli(6)=2.1700
      wls(6)=2.3000
      
      do 1 i=1,1501
      s(i)=sr(iwa,i)
    1 continue
      wlinf=wli(iwa)
      wlsup=wls(iwa)
      return
      end