      subroutine avhrr(iwa)
      common /sixs_ffu/ s(1501),wlinf,wlsup
      real sr(16,1501),wli(16),wls(16)
      real wlinf,wlsup,s
      integer iwa,l,i
   
c
c    1st spectral band of avhrr  (noaa 6)
c
      data (sr(1,l),l=1,1501,1) / 
     & 120*0.,
     & .0000, .0178, .0355, .0533, .0710, .1655, .2600, .3545,
     & .4490, .5215, .5940, .6665, .7390, .7575, .7760, .7945,
     & .8130, .8113, .8095, .8078, .8060, .8201, .8343, .8484,
     & .8625, .8766, .8908, .9049, .9190, .9291, .9393, .9494,
     & .9595, .9696, .9798, .9899, 1.000, .9996, .9992, .9989,
     & .9985, .9981, .9977, .9974, .9970, .9596, .9222, .8849,
     & .8475, .8101, .7727, .7354, .6980, .6047, .5115, .4182,
     & .3250, .2767, .2285, .1802, .1320, .1127, .0935, .0742,
     & .0550, .0480, .0410, .0340, .0270, .0235, .0200, .0165,
     & .0130, .0115, .0100, .0085, .0070, .0052, .0035, .0017,
     & 1301*0./
c
c    2nd spectral band of avhrr  (noaa 6)
c
      data (sr(2,l),l=1,320)/ 176*0.,
     & .0000, .0020, .0040, .0060, .0080, .0710, .1340, .1970,
     & .2600, .3492, .4385, .5277, .6170, .6678, .7185, .7693,
     & .8200, .8435, .8670, .8905, .9140, .9212, .9285, .9358,
     & .9430, .9415, .9400, .9385, .9370, .9520, .9670, .9820,
     & .9970, .9977, .9985, .9992, 1.000, .9813, .9625, .9438,
     & .9250, .9148, .9045, .8943, .8840, .8751, .8663, .8574,
     & .8485, .8396, .8307, .8219, .8130, .8100, .8070, .8040,
     & .8010, .7980, .7950, .7920, .7890, .7878, .7865, .7853,
     & .7840, .7828, .7815, .7803, .7790, .7751, .7713, .7674,
     & .7635, .7596, .7558, .7519, .7480, .7464, .7448, .7431,
     & .7415, .7399, .7383, .7366, .7350, .7225, .7100, .6975,
     & .6850, .6783, .6715, .6648, .6580, .6515, .6450, .6385,
     & .6320, .6270, .6220, .6170, .6120, .6093, .6065, .6038,
     & .6010, .5993, .5975, .5958, .5940, .5910, .5880, .5850,
     & .5820, .5720, .5620, .5520, .5420, .5243, .5065, .4887,
     & .4710, .4402, .4095, .3787, .3480, .3155, .2830, .2505,
     & .2180, .1935, .1690, .1445, .1200, .1055, .0910, .0765,
     & .0620, .0540, .0460, .0380, .0300, .0257, .0215, .0172/
      data (sr(2,l),l=321,1501)/ 
     & .0130, .0112, .0095, .0077, .0060, .0053, .0045, .0038,
     & .0030, .0025, .0020, .0015, .0010, .0010, .0010, .0010,
     & .0010, .0009, .0007, .0006, .0005, .0004, .0004, .0003,
     & .0002, .0002, .0001, .0001, .0000,
     &1152*0./
c
c    1st spectral band of avhrr (noaa 7)
c
      data (sr(3,l),l=1,1501)/ 100*0.,
     a .0000, .0008, .0016, .0024, .0032, .0032, .0031, .0030,
     a .0030, .0029, .0029, .0028, .0028, .0027, .0027, .0026,
     a .0025, .0031, .0036, .0042, .0047, .0288, .0529, .0769,
     a .1010, .1943, .2875, .3808, .4740, .5363, .5985, .6608,
     a .7230, .7390, .7550, .7710, .7870, .7838, .7805, .7773,
     a .7740, .7788, .7835, .7883, .7930, .8100, .8270, .8440,
     a .8610, .8958, .9305, .9653,1.0000, .9860, .9720, .9580,
     a .9440, .9435, .9430, .9425, .9420, .9442, .9465, .9487,
     a .9510, .9575, .9640, .9705, .9770, .9135, .8500, .7865,
     a .7230, .6285, .5340, .4395, .3450, .2955, .2460, .1965,
     a .1470, .1280, .1090, .0900, .0710, .0638, .0565, .0493,
     a .0420, .0383, .0345, .0307, .0270, .0245, .0220, .0195,
     a .0170, .0158, .0145, .0132, .0120, .0114, .0107, .0101,
     a .0095, .0096, .0098, .0099, .0100, .0103, .0105, .0108,
     a .0110, .0100, .0090, .0080, .0070, .0052, .0035, .0017,
     a .0000,
     a1280*0./
c
c    2nd spectral band of avhrr  (noaa 7)
c
 
      data (sr(4,l),l=1,300)/ 156*0.,
     a .0000, .0018, .0035, .0053, .0070, .0068, .0065, .0063,
     a .0060, .0058, .0055, .0052, .0050, .0050, .0050, .0050,
     a .0050, .0060, .0070, .0080, .0090, .0320, .0550, .0780,
     a .1010, .1788, .2565, .3343, .4120, .4922, .5725, .6527,
     a .7330, .7765, .8200, .8635, .9070, .9218, .9365, .9513,
     a .9660, .9725, .9790, .9855, .9920, .9940, .9960, .9980,
     a 1.0000, .9962,.9925, .9887, .9850, .9870, .9890, .9910,
     a .9930, .9763, .9595, .9428, .9260, .9298, .9335, .9373,
     a .9410, .9373, .9335, .9298, .9260, .9120, .8980, .8840,
     a .8700, .8700, .8700, .8700, .8700, .8703, .8705, .8708,
     a .8710, .8708, .8705, .8703, .8700, .8715, .8730, .8745,
     a .8760, .8740, .8720, .8700, .8680, .8690, .8700, .8710,
     a .8720, .8687, .8655, .8623, .8590, .8555, .8520, .8485,
     a .8450, .8428, .8405, .8383, .8360, .8328, .8295, .8263,
     a .8230, .8145, .8060, .7975, .7890, .7872, .7855, .7838,
     a .7820, .7790, .7760, .7730, .7700, .7682, .7665, .7648,
     a .7630, .7545, .7460, .7375, .7290, .6987, .6685, .6382,
     a .6080, .5623, .5165, .4707, .4250, .3812, .3375, .2937/
      data (sr(4,l),l=301,1501)/ 
     a .2500, .2215, .1930, .1645, .1360, .1202, .1045, .0887,
     a .0730, .0647, .0565, .0482, .0400, .0357, .0315, .0272,
     a .0230, .0207, .0185, .0162, .0140, .0125, .0110, .0095,
     a .0080, .0075, .0070, .0065, .0060, .0055, .0050, .0045,
     a .0040, .0039, .0038, .0037, .0036, .0036, .0037, .0037,
     a .0037, .0035, .0034, .0032, .0031, .0029, .0028, .0026,
     a .0025, .0025, .0024, .0024, .0023, .0023, .0022, .0022,
     a .0021, .0021, .0021, .0020, .0020, .0019, .0019, .0018,
     a .0018, .0013, .0009, .0004, .0000,
     a1132*0./
c
c    1st spectral band of avhrr (noaa 8)
c
      data (sr(5,l),l=1,260)/ 116*0.,
     a .0000, .0012, .0024, .0036, .0048, .0223, .0399, .0574,
     a .0749, .1633, .2517, .3400, .4284, .4937, .5590, .6243,
     a .6896, .7135, .7375, .7614, .7853, .7833, .7813, .7793,
     a .7773, .7774, .7775, .7776, .7777, .7922, .8067, .8211,
     a .8356, .8566, .8777, .8987, .9197, .9332, .9468, .9603,
     a .9739, .9674, .9609, .9545, .9480, .9507, .9534, .9561,
     a .9588, .9691, .9794, .9897,1.0000, .9692, .9385, .9077,
     a .8770, .7775, .6779, .5784, .4789, .4108, .3428, .2747,
     a .2067, .1782, .1497, .1213, .0928, .0820, .0712, .0604,
     a .0496, .0425, .0355, .0284, .0214, .0208, .0202, .0196,
     a .0190, .0167, .0145, .0122, .0100, .0095, .0090, .0085,
     a .0080, .0083, .0086, .0089, .0092, .0094, .0097, .0100,
     a .0103, .0100, .0096, .0093, .0090, .0086, .0083, .0079,
     a .0076, .0082, .0087, .0093, .0099, .0104, .0110, .0115,
     a .0121, .0114, .0108, .0101, .0094, .0088, .0081, .0075,
     a .0068, .0074, .0079, .0085, .0091, .0097, .0102, .0108,
     a .0114, .0115, .0115, .0116, .0117, .0118, .0119, .0119,
     a .0120, .0136, .0152, .0167, .0183, .0204, .0224, .0245/
      data (sr(5,l),l=261,1501)/ 
     a .0265, .0295, .0324, .0354, .0384, .0419, .0453, .0488,
     a .0522, .0514, .0507, .0499, .0491, .0467, .0443, .0420,
     a .0396, .0348, .0299, .0251, .0203, .0183, .0164, .0144,
     a .0125, .0118, .0110, .0103, .0095, .0083, .0071, .0060,
     a .0048, .0041, .0035, .0028, .0022, .0022, .0021, .0021,
     a .0021, .0016, .0010, .0005, .0000,
     a1196*0./
c
c    2nd spectral band of avhrr  (noaa 8)
c
 
      data (sr(6,l),l=1,316)/ 172*0.,
     a .0000, .0095, .0190, .0285, .0381, .0476, .0571, .0666,
     a .0761, .1559, .2358, .3156, .3954, .4855, .5756, .6658,
     a .7559, .7966, .8373, .8779, .9186, .9332, .9478, .9624,
     a .9770, .9814, .9858, .9902, .9946, .9959, .9973, .9986,
     a1.0000, .9965, .9930, .9896, .9861, .9796, .9731, .9666,
     a .9601, .9518, .9435, .9351, .9268, .9171, .9073, .8976,
     a .8879, .8791, .8703, .8615, .8527, .8439, .8351, .8263,
     a .8175, .8140, .8104, .8068, .8033, .7997, .7962, .7926,
     a .7891, .7871, .7850, .7830, .7810, .7790, .7769, .7749,
     a .7729, .7711, .7694, .7677, .7659, .7642, .7624, .7607,
     a .7589, .7558, .7528, .7497, .7466, .7436, .7405, .7375,
     a .7344, .7282, .7220, .7158, .7096, .7034, .6972, .6910,
     a .6848, .6781, .6713, .6646, .6579, .6511, .6444, .6376,
     a .6309, .6265, .6221, .6177, .6133, .6088, .6044, .6000,
     a .5956, .5888, .5820, .5752, .5684, .5616, .5548, .5480,
     a .5412, .5159, .4906, .4653, .4400, .4147, .3894, .3641,
     a .3388, .3061, .2734, .2408, .2081, .1851, .1621, .1392,
     a .1162, .1023, .0884, .0745, .0606, .0532, .0458, .0384/
      data (sr(6,l),l=317,1501)/ 
     a .0310, .0271, .0231, .0192, .0153, .0134, .0115, .0096,
     a .0077, .0071, .0065, .0059, .0053, .0046, .0040, .0034,
     a .0028, .0026, .0024, .0023, .0021, .0019, .0017, .0016,
     a .0014, .0012, .0010, .0009, .0007, .0005, .0003, .0002,
     a .0000, 1152*0./
c
c    1st spectral band of avhrr (noaa 9)
c
 
      data (sr(7,l),l=1,1501)/ 112*0.,
     a .0000, .0001, .0003, .0004, .0006, .0040, .0074, .0108,
     a .0142, .0622, .1101, .1581, .2060, .2810, .3561, .4311,
     a .5061, .5500, .5940, .6379, .6818, .7127, .7437, .7746,
     a .8055, .8122, .8190, .8170, .8150, .8063, .7975, .7887,
     a .7800, .7881, .7962, .8044, .8125, .8335, .8544, .8753,
     a .8963, .9000, .9037, .9074, .9111, .8899, .8688, .8476,
     a .8265, .8198, .8130, .8110, .8090, .8277, .8464, .8650,
     a .8837, .9128, .9419, .9709,1.0000, .9678, .9356, .9035,
     a .8713, .7712, .6711, .5711, .4710, .4067, .3424, .2782,
     a .2139, .1849, .1559, .1269, .0979, .0861, .0743, .0625,
     a .0507, .0454, .0400, .0347, .0294, .0266, .0238, .0210,
     a .0182, .0170, .0157, .0145, .0133, .0124, .0115, .0107,
     a .0098, .0092, .0086, .0080, .0074, .0071, .0069, .0066,
     a .0063, .0062, .0061, .0061, .0060, .0045, .0030, .0015,
     a .0000, 1276*0./
c
c    2nd spectral band of avhrr  (noaa 9)
c
      data (sr(8,l),l=1,316)/ 172*0.,
     a .0000, .0011, .0022, .0033, .0044, .0207, .0369, .0532,
     a .0694, .1410, .2127, .2843, .3559, .4388, .5217, .6047,
     a .6876, .7304, .7731, .8159, .8586, .8782, .8977, .9173,
     a .9369, .9491, .9614, .9736, .9859, .9894, .9930, .9965,
     a1.0000, .9956, .9912, .9869, .9825, .9699, .9574, .9448,
     a .9323, .9243, .9163, .9083, .9003, .8971, .8939, .8907,
     a .8875, .8881, .8887, .8893, .8899, .8931, .8963, .8994,
     a .9026, .9046, .9067, .9087, .9108, .9114, .9120, .9126,
     a .9132, .9065, .8997, .8930, .8863, .8807, .8750, .8694,
     a .8638, .8605, .8571, .8538, .8504, .8532, .8560, .8588,
     a .8616, .8644, .8672, .8701, .8729, .8749, .8770, .8790,
     a .8811, .8766, .8721, .8677, .8632, .8502, .8372, .8242,
     a .8112, .7959, .7806, .7653, .7500, .7423, .7347, .7270,
     a .7193, .7166, .7138, .7111, .7084, .7169, .7255, .7340,
     a .7425, .7382, .7338, .7295, .7251, .6819, .6387, .5955,
     a .5523, .4922, .4321, .3721, .3120, .2722, .2325, .1927,
     a .1529, .1336, .1144, .0951, .0759, .0673, .0586, .0500,
     a .0414, .0370, .0327, .0283, .0240, .0217, .0195, .0172/
      data (sr(8,l),l=317,1501)/ 
     a .0150, .0139, .0128, .0118, .0107, .0099, .0090, .0082,
     a .0074, .0070, .0066, .0061, .0057, .0054, .0051, .0049,
     a .0046, .0044, .0042, .0041, .0039, .0037, .0036, .0034,
     a .0033, .0032, .0031, .0030, .0029, .0028, .0027, .0026,
     a .0025, .0025, .0025, .0024, .0024, .0023, .0022, .0021,
     a .0020, .0019, .0018, .0018, .0017, .0016, .0015, .0015,
     a .0014, .0010, .0007, .0003, .0000, 1132*0./
c
c    1st spectral band of avhrr (noaa 10)
c
      data (sr(9,l),l=1,1501)/ 112*0.,
     a .0000, .0005, .0010, .0015, .0020, .0023, .0025, .0028,
     a .0030, .0239, .0448, .0657, .0866, .1852, .2838, .3824,
     a .4810, .5470, .6130, .6790, .7450, .7640, .7830, .8020,
     a .8210, .8182, .8154, .8126, .8098, .8219, .8339, .8460,
     a .8580, .8808, .9035, .9263, .9490, .9607, .9723, .9840,
     a .9956, .9875, .9793, .9712, .9630, .9595, .9560, .9525,
     a .9490, .9618, .9745, .9872,1.0000, .9980, .9960, .9940,
     a .9920, .9013, .8105, .7197, .6290, .5400, .4510, .3620,
     a .2730, .2315, .1900, .1485, .1070, .0935, .0800, .0665,
     a .0530, .0468, .0405, .0343, .0280, .0255, .0230, .0205,
     a .0180, .0165, .0150, .0135, .0120, .0110, .0100, .0090,
     a .0080, .0070, .0061, .0051, .0042, .0034, .0026, .0018,
     a .0010, .0007, .0005, .0002,.0000,1288*0./
c
c    2nd spectral band of avhrr  (noaa 10)
c
      data (sr(10,l),l=1,284)/ 140*0.,
     a .0000, .0006, .0012, .0018, .0024, .0030, .0036, .0042,
     a .0048, .0049, .0049, .0050, .0051, .0051, .0052, .0052,
     a .0053, .0053, .0054, .0054, .0055, .0055, .0056, .0056,
     a .0057, .0054, .0050, .0047, .0044, .0041, .0037, .0034,
     a .0031, .0031, .0032, .0032, .0033, .0033, .0033, .0034,
     a .0034, .0239, .0445, .0650, .0855, .1561, .2267, .2974,
     a .3680, .4508, .5335, .6163, .6990, .7430, .7870, .8310,
     a .8750, .8918, .9085, .9253, .9420, .9510, .9600, .9690,
     a .9780, .9835, .9890, .9945,1.0000, .9933, .9866, .9800,
     a .9733, .9661, .9589, .9517, .9445, .9329, .9213, .9096,
     a .8980, .8935, .8890, .8845, .8800, .8788, .8775, .8763,
     a .8750, .8658, .8565, .8473, .8380, .8415, .8450, .8485,
     a .8520, .8508, .8495, .8483, .8470, .8410, .8350, .8290,
     a .8230, .8148, .8065, .7983, .7900, .7983, .8065, .8148,
     a .8230, .8190, .8150, .8110, .8070, .7990, .7910, .7830,
     a .7750, .7712, .7675, .7637, .7600, .7425, .7250, .7075,
     a .6900, .6855, .6810, .6765, .6720, .6710, .6700, .6690,
     a .6680, .6655, .6630, .6605, .6580, .6455, .6330, .6205/
      data (sr(10,l),l=285,1501)/ 
     a .6080, .5993, .5905, .5818, .5730, .5602, .5475, .5347,
     a .5220, .4872, .4525, .4177, .3830, .3435, .3040, .2645,
     a .2250, .2015, .1780, .1545, .1310, .1155, .1000, .0845,
     a .0690, .0613, .0535, .0457, .0380, .0337, .0295, .0252,
     a .0210, .0189, .0168, .0147, .0126, .0114, .0102, .0091,
     a .0079, .0073, .0067, .0060, .0054, .0051, .0047, .0044,
     a .0041, .0040, .0038, .0037, .0036, .0035, .0034, .0033,
     a .0032, .0031, .0030, .0030, .0029, .0028, .0027, .0027,
     a .0026, .0026, .0025, .0025, .0024, .0023, .0022, .0022,
     a .0021, .0020, .0019, .0018, .0017, .0016, .0016, .0015,
     a .0015, .0015, .0014, .0014, .0014, .0014, .0014, .0015,
     a .0015, .0011, .0008, .0004, .0000, 1124*0./
 
c
c    1st spectral band of avhrr (noaa 11)
c
      data (sr(11,l),l=1,1501)/ 116*0.,
     a .0000, .0033, .0065, .0098, .0130, .0500, .0870, .1240,
     a .1610, .2385, .3160, .3935, .4710, .5150, .5590, .6030,
     a .6470, .6768, .7065, .7363, .7660, .7745, .7830, .7915,
     a .8000, .7918, .7835, .7753, .7670, .7747, .7825, .7903,
     a .7980, .8215, .8450, .8685, .8920, .8907, .8895, .8882,
     a .8870, .8702, .8535, .8367, .8200, .8110, .8020, .7930,
     a .7840, .8050, .8260, .8470, .8680, .9010, .9340, .9670,
     a1.0000, .9562, .9125, .8687, .8250, .7192, .6135, .5077,
     a .4020, .3467, .2915, .2362, .1810, .1568, .1325, .1083,
     a .0840, .0735, .0630, .0525, .0420, .0380, .0340, .0300,
     a .0260, .0242, .0225, .0207, .0190, .0180, .0170, .0160,
     a .0150, .0137, .0125, .0112, .0100, .0087, .0075, .0062,
     a .0050, .0052, .0055, .0057, .0060, .0060, .0060, .0060,
     a .0060, .0060, .0060, .0060, .0060, .0045, .0030, .0015,
     a .0000, 1272*0./
c
c   2nd spectral band of avhrr  (noaa 11)
c
      data (sr(12,l),l=1,284)/ 140*0.,
     a .0000, .0005, .0010, .0015, .0020, .0025, .0030, .0035,
     a .0040, .0039, .0037, .0036, .0035, .0034, .0032, .0031,
     a .0030, .0029, .0028, .0026, .0025, .0024, .0023, .0021,
     a .0020, .0020, .0020, .0020, .0020, .0020, .0020, .0020,
     a .0020, .0028, .0035, .0043, .0050, .0173, .0295, .0418,
     a .0540, .1150, .1760, .2370, .2980, .3822, .4665, .5507,
     a .6350, .6865, .7380, .7895, .8410, .8623, .8835, .9048,
     a .9260, .9415, .9570, .9725, .9880, .9910, .9940, .9970,
     a1.0000, .9925, .9850, .9775, .9700, .9600, .9500, .9400,
     a .9300, .9193, .9085, .8978, .8870, .8770, .8670, .8570,
     a .8470, .8478, .8485, .8493, .8500, .8518, .8535, .8553,
     a .8570, .8602, .8635, .8668, .8700, .8673, .8645, .8618,
     a .8590, .8505, .8420, .8335, .8250, .8183, .8115, .8047,
     a .7980, .7983, .7985, .7988, .7990, .7935, .7880, .7825,
     a .7770, .7835, .7900, .7965, .8030, .8075, .8120, .8165,
     a .8210, .8108, .8005, .7903, .7800, .7767, .7735, .7703,
     a .7670, .7473, .7275, .7077, .6880, .6755, .6630, .6505,
     a .6380, .6350, .6320, .6290, .6260, .6345, .6430, .6515/
      data (sr(12,l),l=285,1501)/ 
     a .6600, .6695, .6790, .6885, .6980, .6790, .6600, .6410,
     a .6220, .5645, .5070, .4495, .3920, .3420, .2920, .2420,
     a .1920, .1667, .1415, .1162, .0910, .0795, .0680, .0565,
     a .0450, .0411, .0372, .0334, .0295, .0256, .0217, .0179,
     a .0140, .0129, .0117, .0106, .0095, .0084, .0072, .0061,
     a .0050, .0048, .0045, .0043, .0040, .0038, .0035, .0033,
     a .0030, .0029, .0027, .0026, .0025, .0024, .0022, .0021,
     a .0020, .0017, .0015, .0012, .0010, .0007, .0005, .0002,
     a .0000, 1152*0./
c
c 1st spectral band of avhrr (noaa 12) 
c
      DATA (SR(13,L),L=1,1501)/ 100*0.,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000, .0000, .0000, .0000, .0000, .0048, .0135, .0200,
     A .0270, .1046, .2094, .3253, .4360, .5286, .6030, .6621,
     A .7090, .7464, .7753, .7966, .8110, .8196, .8249, .8301,
     A .8380, .8507, .8668, .8837, .8990, .9109, .9198, .9265,
     A .9320, .9371, .9419, .9466, .9510, .9552, .9587, .9612,
     A .9620, .9610, .9593, .9582, .9590, .9625, .9673, .9715,
     A .9730, .9707, .9666, .9635, .9640, .9701, .9799, .9908,
     A1.0000, .9805, .9590, .9407, .9180, .8357, .7325, .6205,
     A .5120, .4170, .3365, .2692, .2140, .1695, .1343, .1066,
     A .0850, .0679, .0546, .0442, .0360, .0294, .0240, .0196,
     A .0160, .0130, .0105, .0089, .0080, .0080, .0083, .0085,
     A .0080, .0064, .0041, .0018, .0000, .0000, .0000, .0000,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000, .0024, .0056, .0087, .0110, .0118, .0117, .0112,
     A .0110, .0117, .0130, .0145, .0160, .0171, .0178, .0184,
     A .0190, .0197, .0205, .0213, .0220, .0226, .0229, .0228,
     A .0220, .0205, .0187, .0170, .0160, .0159, .0160, .0157,
     A .0140, .0106, .0063, .0023, .0000, .0001, .0018, .0038,
     A .0050, .0044, .0027, .0009, .0000, .0006, .0023, .0040,
     A .0050, .0046, .0032, .0015, .0000, .0000, .0000, .0000,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000,
     A1200*0./
c
c 2nd spectral band of avhrr  (noaa 12)
c
      DATA (SR(14,L),L=1,1501)/ 160*0.,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000, .0050, .0111, .0162, .0180, .0153, .0097, .0038,
     A .0000, .0005, .0060, .0168, .0330, .0555, .0869, .1303,
     A .1890, .2643, .3509, .4418, .5300, .6096, .6796, .7403,
     A .7920, .8350, .8702, .8988, .9220, .9408, .9559, .9680,
     A .9780, .9863, .9929, .9975,1.0000, .0115, .9987, .9958,
     A .9920, .9876, .9821, .9748, .9650, .9522, .9370, .9203,
     A .9030, .8858, .8694, .8543, .8410, .8299, .8207, .8129,
     A .8060, .7997, .7943, .7902, .7880, .7879, .7893, .7916,
     A .7940, .7959, .7971, .7972, .7960, .7935, .7900, .7860,
     A .7820, .7783, .7747, .7704, .7650, .7582, .7506, .7433,
     A .7370, .7326, .7299, .7288, .7290, .7303, .7323, .7350,
     A .7380, .7411, .7441, .7468, .7490, .7504, .7510, .7505,
     A .7490, .7463, .7421, .7365, .7290, .7197, .7086, .6960,
     A .6820, .6670, .6518, .6371, .6240, .6131, .6043, .5973,
     A .5920, .5881, .5857, .5849, .5860, .5889, .5929, .5969,
     A .6000, .6011, .5986, .5905, .5750, .5508, .5186, .4792,
     A .4340, .3842, .3326, .2822, .2360, .1964, .1633, .1357,
     A .1130, .0943, .0789, .0664, .0560, .0473, .0400, .0339,
     A .0290, .0250, .0217, .0191, .0170, .0152, .0137, .0123,
     A .0110, .0098, .0086, .0077, .0070, .0066, .0063, .0059,
     A .0050, .0035, .0019, .0005, .0000, .0006, .0019, .0033,
     A .0040, .0036, .0025, .0011, .0000, .0000, .0000, .0000,
     A .0000, .0000, .0000, .0000, .0000,
     A1152*0./
c
c    1st spectral band of avhrr (noaa 14) -from NOAA/POD Guide 
c
      DATA (SR(15,L),L=1,1501)/ 100*0.,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
     A .0000, .0003, .0007, .0010, .0013, .0152, .0290, .0429,
     A .0568, .1226, .1884, .2543, .3201, .3727, .4254, .4780,
     A .5306, .5528, .5749, .5971, .6193, .6267, .6342, .6417,
     A .6492, .6538, .6583, .6629, .6675, .6734, .6793, .6853,
     A .6912, .6948, .6984, .7020, .7056, .7106, .7156, .7206,
     A .7256, .7243, .7229, .7216, .7203, .7188, .7174, .7159,
     A .7145, .7130, .7116, .7102, .7088, .7154, .7221, .7287,
     A .7353, .7292, .7232, .7172, .7111, .6501, .5891, .5281,
     A .4671, .4037, .3402, .2768, .2133, .1830, .1527, .1223,
     A .0920, .0797, .0675, .0553, .0431, .0406, .0381, .0357,
     A .0332, .0279, .0226, .0173, .0120, .0117, .0114, .0110,
     A .0107, .0100, .0093, .0086, .0080, .0076, .0072, .0069,
     A .0065, .0062, .0059, .0055, .0052, .0051, .0050, .0048,
     A .0047, .0048, .0049, .0050, .0051, .0051, .0050, .0050,
     A .0050, .0050, .0051, .0052, .0052, .0053, .0054, .0054,
     A .0055, .0057, .0059, .0061, .0063, .0068, .0072, .0076,
     A .0080, .0084, .0088, .0092, .0096, .0100, .0104, .0108,
     A .0113, .0116, .0119, .0122, .0125, .0127, .0128, .0130,
     A .0132, .0130, .0128, .0126, .0123, .0120, .0116, .0112,
     A .0108, .0104, .0099, .0095, .0090, .0086, .0082, .0078,
     A .0074, .0072, .0070, .0067, .0065, .0063, .0060, .0058,
     A .0055, .0053, .0050, .0048, .0046, .0044, .0042, .0040,
     A .0038, .0036, .0034, .0032, .0030, .0028, .0027, .0025,
     A .0023, .0022, .0022, .0021, .0020, .0019, .0018, .0017,
     A .0016, .0016, .0015, .0014, .0014, .0013, .0012, .0012,
     A .0011, .0011, .0011, .0011, .0011, .0011, .0011, .0011,
     A .0011, .0011, .0011, .0011, .0011, .0011, .0011, .0010,
     A .0010, .0010, .0010, .0010, .0010, .0010, .0010, .0010,
     A .0010,
     A1160*0./
c
c    2nd spectral band of avhrr (noaa 14)
c
      data (sr(16,l),l=1,1501)/ 168*0.,
     a .0000,.0000,.0000,.0000,.0000,.0000,.0022,.0045,
     a .0067,.0090,.0107,.0125,.0143,.0160,.0543,.0925,
     a .1308,.1690,.2573,.3455,.4338,.5220,.5978,.6735,
     a .7492,.8250,.8503,.8755,.9007,.9260,.9362,.9465,
     a .9568,.9670,.9737,.9805,.9872,.9940,.9935,.9930,
     a .9925,.9920,.9940,.9960,.9980,1.000,.9885,.9770,
     a .9655,.9540,.9398,.9255,.9112,.8970,.8855,.8740,
     a .8625,.8510,.8400,.8290,.8180,.8070,.8052,.8035,
     a .8018,.8000,.8065,.8130,.8195,.8260,.8257,.8255,
     a .8253,.8250,.8245,.8240,.8235,.8230,.8230,.8230,
     a .8230,.8230,.8210,.8190,.8170,.8150,.8147,.8145,
     a .8142,.8140,.8183,.8225,.8267,.8310,.8367,.8425,
     a .8482,.8540,.8547,.8555,.8562,.8570,.8510,.8450,
     a .8390,.8330,.8170,.8010,.7850,.7690,.7587,.7485,
     a .7383,.7280,.7203,.7125,.7048,.6970,.6957,.6945,
     a .6932,.6920,.6970,.7020,.7070,.7120,.7035,.6950,
     a .6865,.6780,.6370,.5960,.5550,.5140,.4560,.3980,
     a .3400,.2820,.2458,.2095,.1732,.1370,.1190,.1010,
     a .0830,.0650,.0560,.0470,.0380,.0290,.0250,.0210,
     a .0170,.0130,.0095,.0060,.0050,.0040,.0020,.0000,
     a .0010,.0020,.0018,.0015,.0012,.0010,.0010,.0010,
     a .0010,.0010,.0008,.0005,.0003,.0000,.0000,.0000,
     a 1157*0./

      wli(1)=0.55
      wls(1)=0.75
      wli(2)=0.69
      wls(2)=1.12
      wli(3)=0.5
      wls(3)=0.8
      wli(4)=0.64
      wls(4)=1.17
      wli(5)=0.54
      wls(5)=1.01
      wli(6)=0.68
      wls(6)=1.12
      wli(7)=0.53
      wls(7)=0.81
      wli(8)=0.68
      wls(8)=1.17
      wli(9)=0.53
      wls(9)=0.78
      wli(10)=0.6
      wls(10)=1.19
      wli(11)=0.54
      wls(11)=0.82
      wli(12)=0.6
      wls(12)=1.12
      wli(13)=0.50 
      wls(13)=1.0   
      wli(14)=0.65 
      wls(14)=1.12  
      wli(15)=0.50
      wls(15)=1.11
      wli(16)=0.68
      wls(16)=1.10
      do 1 i=1,1501
      s(i)=sr(iwa,i)
    1 continue
      wlinf=wli(iwa)
      wlsup=wls(iwa)
      return
      end

