text: /* BBM.f -- translated by f2c (version 19970805).
     You must link the resulting object file with the libraries:
  	-lf2c -lm   (in that order)
  */
  
  #ifdef __cplusplus
  extern "C" {
  #endif
  /* OTB patches: replace "f2c.h" by "otb_6S.h" */
  /*#include "f2c.h"*/
  #include "otb_6S.h"
  
  /* Common Block Declarations */
  
  Extern struct {
      integer nquad;
  } num_quad__;
  
  #define num_quad__1 num_quad__
  
  Extern struct {
      doublereal ph[20000]	/* was [20][1000] */, qh[20000]	/* was [20][
  	    1000] */, uh[20000]	/* was [20][1000] */;
  } sixs_aerbas__;
  
  #define sixs_aerbas__1 sixs_aerbas__
  
  Extern struct {
      doublereal ex[80]	/* was [4][20] */, sc[80]	/* was [4][20] */, 
  	    asy[80]	/* was [4][20] */, vi[4];
  } sixs_coef__;
  
  #define sixs_coef__1 sixs_coef__
  
  /*<       subroutine  bbm >*/
  /* Subroutine */ int bbm_()
  {
      /* Initialized data */
  
      static doublereal asy_m__[20] = { .709,.689,.684,.671,.659,.651,.639,.623,
  	    .605,.586,.57,.56,.534,.5,.455,.493,.515,.573,.619,.698 };
      static doublereal ex_m__[20] = { .08254323,.06873854,.06574472,.05858313,
  	    .05299549,.04958472,.04491529,.03959285,.03440313,.029725,
  	    .02632282,.02437306,.01990872,.01504618,.006794238,.004662405,
  	    .00420307,.003449567,.003032236,.002203834 };
      static doublereal sc_m__[20] = { .078055,.06486657,.06199898,.05513438,
  	    .04977275,.04650205,.04202277,.03691657,.03194462,.02746937,
  	    .02421588,.02235581,.01810272,.01349245,.005778257,.003859948,
  	    .003459487,.002823499,.002492706,.001881847 };
      static doublereal phr[1660]	/* was [20][83] */ = { .1683,.1692,.1705,
  	    .1751,.1805,.1851,.1939,.2078,.2255,.2466,.2671,.2816,.3231,.387,
  	    .5767,.6058,.5984,.5521,.4886,.3196,.1674,.1683,.1696,.1741,.1795,
  	    .1841,.1928,.2067,.2242,.2449,.2653,.2796,.3207,.3837,.5696,.5965,
  	    .5884,.5412,.4784,.3131,.1655,.167,.1684,.1731,.1788,.1834,.192,
  	    .2061,.2234,.2437,.2641,.278,.3184,.3798,.5558,.5759,.5652,.5133,
  	    .4506,.2913,.1613,.1642,.1659,.171,.1771,.1818,.1907,.2049,.2225,
  	    .243,.2633,.2772,.3176,.3785,.5478,.5625,.549,.4918,.4279,.2692,
  	    .1557,.16,.1619,.1676,.1739,.1789,.1882,.2025,.2205,.2414,.2617,
  	    .2756,.3163,.3776,.5453,.5581,.5435,.4834,.4175,.2566,.1499,.1553,
  	    .1573,.1636,.1703,.1755,.185,.1997,.218,.2392,.26,.2739,.3151,
  	    .3769,.5476,.5613,.5469,.4875,.42,.2541,.1445,.1506,.1529,.1595,
  	    .1666,.172,.1818,.197,.2155,.2371,.2582,.2725,.3141,.3768,.5524,
  	    .5691,.5558,.4981,.4304,.2587,.14,.1464,.1487,.1556,.1628,.1686,
  	    .1786,.1939,.2126,.2347,.2559,.2707,.3123,.3758,.5549,.5752,.5633,
  	    .5066,.4406,.2657,.1361,.1423,.1446,.1516,.1588,.1648,.1749,.1901,
  	    .2089,.2312,.2523,.2672,.3087,.3723,.5511,.5735,.5622,.5068,.4431,
  	    .2696,.1327,.1384,.1406,.1474,.1548,.1604,.1705,.1858,.2047,.2266,
  	    .2478,.2621,.3036,.3663,.5412,.563,.5514,.4979,.4362,.2682,.1299,
  	    .1349,.137,.1435,.1508,.1561,.1661,.1812,.2,.2215,.2426,.2563,
  	    .2975,.3589,.5276,.5468,.5345,.4819,.4217,.2616,.1276,.1318,.1338,
  	    .1399,.1468,.1523,.162,.1766,.195,.2165,.2368,.2507,.2906,.3507,
  	    .5126,.528,.5153,.4619,.4032,.2514,.1257,.1291,.1308,.1367,.1432,
  	    .1487,.1582,.1724,.1903,.2115,.2314,.2453,.2841,.3427,.4978,.5088,
  	    .4955,.4408,.3832,.2391,.1239,.1267,.1283,.1338,.1402,.1455,.1547,
  	    .1687,.1863,.207,.2267,.2402,.2783,.3354,.4835,.4906,.4763,.4205,
  	    .3637,.2264,.1222,.1247,.1263,.1315,.1377,.1427,.1518,.1653,.1827,
  	    .2032,.2225,.2356,.273,.329,.4703,.4739,.4585,.4017,.3456,.2142,
  	    .1207,.123,.1245,.1295,.1355,.1405,.1493,.1625,.1796,.1998,.2187,
  	    .2316,.2683,.323,.4585,.4587,.4423,.385,.3292,.2028,.1193,.1216,
  	    .123,.1278,.1338,.1386,.1472,.1603,.177,.1968,.2155,.2281,.2642,
  	    .3177,.4479,.445,.4279,.37,.3145,.1924,.118,.1204,.1218,.1265,
  	    .1324,.1372,.1456,.1584,.1748,.1944,.2127,.2252,.2605,.3129,.4384,
  	    .4328,.4153,.3565,.3014,.183,.1168,.1195,.1208,.1256,.1314,.1362,
  	    .1445,.157,.1731,.1925,.2105,.2228,.2573,.3088,.4298,.4217,.4039,
  	    .3446,.2899,.1748,.1158,.1188,.1202,.125,.1308,.1355,.1437,.156,
  	    .1719,.191,.2088,.2209,.2548,.3052,.4219,.4118,.3936,.334,.2798,
  	    .1677,.1149,.1183,.1198,.1247,.1306,.1353,.1433,.1555,.1713,.1901,
  	    .2076,.2195,.2528,.3023,.4148,.4028,.3843,.3247,.271,.1617,.1143,
  	    .1182,.1197,.1248,.1307,.1354,.1435,.1555,.1711,.1897,.207,.2186,
  	    .2514,.2998,.4084,.3947,.376,.3165,.2633,.1567,.114,.1184,.12,
  	    .1253,.1313,.136,.144,.1559,.1714,.1899,.2069,.2184,.2506,.298,
  	    .4027,.3874,.3685,.3092,.2566,.1525,.114,.1189,.1206,.1262,.1323,
  	    .1371,.1451,.1569,.1723,.1906,.2074,.2187,.2503,.2968,.3977,.3809,
  	    .3618,.3028,.2508,.1493,.1143,.1198,.1216,.1275,.1338,.1386,.1466,
  	    .1585,.1738,.192,.2085,.2197,.2508,.2963,.3934,.3751,.3559,.2972,
  	    .2458,.1468,.115,.1212,.1231,.1292,.1357,.1406,.1487,.1606,.176,
  	    .194,.2104,.2214,.252,.2965,.3898,.3701,.3507,.2924,.2417,.1451,
  	    .1161,.123,.1251,.1315,.1382,.1432,.1514,.1634,.1788,.1968,.213,
  	    .2238,.254,.2976,.3869,.3659,.3464,.2882,.2384,.144,.1177,.1253,
  	    .1276,.1344,.1413,.1464,.1548,.1669,.1824,.2004,.2164,.2271,.2568,
  	    .2996,.3847,.3626,.3428,.2848,.2359,.1437,.1197,.1281,.1306,.1378,
  	    .145,.1503,.1588,.1711,.1868,.2047,.2207,.2313,.2606,.3025,.3836,
  	    .36,.34,.2823,.2341,.144,.1224,.1315,.1342,.1419,.1494,.1548,
  	    .1636,.1762,.192,.21,.2259,.2365,.2654,.3065,.3836,.3581,.338,
  	    .2808,.2328,.145,.1256,.1355,.1384,.1466,.1545,.1601,.1692,.1822,
  	    .1982,.2162,.2323,.2427,.2714,.3115,.3847,.3571,.3369,.2802,.2323,
  	    .1467,.1295,.1403,.1434,.1521,.1605,.1663,.1758,.1891,.2054,.2236,
  	    .2397,.2501,.2786,.3178,.3868,.3573,.3368,.2802,.2328,.1491,.134,
  	    .1458,.1492,.1585,.1673,.1735,.1833,.1971,.2138,.2323,.2484,.2588,
  	    .287,.3256,.3901,.3588,.338,.281,.2342,.1523,.1392,.1523,.1558,
  	    .1658,.1751,.1817,.192,.2063,.2234,.2422,.2584,.2689,.2969,.3348,
  	    .3948,.3613,.3401,.2829,.2365,.1563,.1453,.1596,.1635,.1741,.184,
  	    .191,.2019,.2168,.2343,.2535,.2699,.2806,.3084,.3455,.401,.365,
  	    .3434,.2859,.2397,.1612,.1523,.168,.1722,.1836,.1942,.2016,.2131,
  	    .2287,.2468,.2665,.2832,.2939,.3217,.3581,.4088,.3699,.3479,.29,
  	    .2439,.167,.1604,.1776,.1821,.1944,.2058,.2137,.2258,.2421,.261,
  	    .2812,.2982,.309,.3369,.3727,.4182,.3764,.3538,.2952,.2491,.1736,
  	    .1696,.1884,.1933,.2067,.2188,.2273,.2403,.2574,.277,.2979,.3152,
  	    .3262,.354,.3892,.4293,.3844,.3613,.3016,.2555,.1813,.1801,.2007,
  	    .2061,.2206,.2336,.2428,.2565,.2745,.2951,.3167,.3343,.3456,.3734,
  	    .408,.4424,.3941,.3703,.3094,.2632,.1901,.1921,.2146,.2205,.2363,
  	    .2504,.2601,.2748,.2939,.3154,.3378,.3559,.3673,.3955,.4294,.4574,
  	    .4056,.3805,.3188,.2724,.2004,.2057,.2303,.2368,.254,.2694,.2797,
  	    .2954,.3157,.3384,.3615,.3803,.3916,.4202,.4534,.4746,.4188,.3924,
  	    .3297,.283,.2122,.2132,.239,.2457,.2637,.2797,.2905,.3066,.3275,
  	    .3508,.3745,.3934,.4049,.4335,.4664,.4841,.4262,.3992,.3357,.2889,
  	    .2185,.2212,.2482,.2552,.2741,.2907,.3018,.3186,.3401,.364,.3881,
  	    .4074,.4189,.4476,.4801,.4941,.434,.4066,.3422,.295,.2253,.2388,
  	    .2684,.2761,.2967,.3148,.3269,.3448,.3675,.3927,.4178,.4375,.4495,
  	    .4782,.5098,.5163,.4511,.4229,.3563,.3086,.24,.2588,.2914,.2998,
  	    .3223,.3419,.3549,.3741,.3984,.4248,.451,.4713,.4835,.5122,.5428,
  	    .541,.4703,.441,.3726,.3241,.2568,.2814,.3175,.3268,.3512,.3726,
  	    .3865,.4071,.4329,.4608,.4879,.5089,.5212,.5501,.5794,.5683,.4919,
  	    .461,.3911,.3419,.276,.3072,.3472,.3573,.3839,.4071,.4221,.4442,
  	    .4716,.5008,.5291,.5506,.563,.5919,.6197,.5983,.5161,.4836,.4116,
  	    .362,.2977,.3366,.3809,.392,.4208,.446,.4622,.4858,.5149,.5455,
  	    .5747,.5968,.6093,.6379,.664,.6314,.5429,.5087,.4347,.3846,.3221,
  	    .3701,.4193,.4314,.4626,.4898,.5073,.5325,.5634,.5954,.6254,.648,
  	    .6605,.6887,.7126,.6677,.5723,.5365,.4604,.4097,.3497,.4085,.4629,
  	    .4761,.51,.5392,.558,.585,.6175,.6507,.6816,.7044,.717,.7443,
  	    .7656,.7074,.6046,.5675,.4889,.4378,.3807,.4524,.5126,.5269,.5636,
  	    .5949,.6151,.6437,.6779,.7122,.7438,.7665,.7792,.8051,.8233,.7504,
  	    .6402,.6019,.5204,.4692,.4157,.5027,.569,.5847,.6243,.6577,.6792,
  	    .7095,.7452,.7806,.8125,.8351,.8474,.8718,.8862,.7968,.6793,.6393,
  	    .5558,.5047,.4556,.5606,.6333,.6503,.693,.7286,.7512,.783,.8202,
  	    .8564,.8882,.9104,.9221,.9446,.9545,.847,.7218,.6796,.5954,.5445,
  	    .5011,.627,.7064,.7249,.7707,.8084,.832,.8652,.9037,.9403,.9715,
  	    .993,1.004,1.024,1.028,.9011,.7679,.7239,.6394,.5889,.5527,.7033,
  	    .7897,.8096,.8585,.8981,.9227,.957,.9962,1.033,1.063,1.083,1.093,
  	    1.109,1.108,.9592,.8182,.7732,.6878,.6385,.6111,.7911,.8845,.9058,
  	    .9578,.999,1.024,1.059,1.099,1.135,1.164,1.182,1.19,1.202,1.193,
  	    1.022,.8729,.8273,.7415,.6944,.6777,.8919,.9924,1.015,1.07,1.112,
  	    1.138,1.173,1.212,1.247,1.273,1.289,1.296,1.302,1.284,1.088,.9325,
  	    .8861,.8014,.7574,.7537,1.008,1.115,1.139,1.196,1.239,1.265,1.3,
  	    1.337,1.37,1.393,1.405,1.41,1.41,1.382,1.159,.9972,.9507,.8682,
  	    .8286,.8407,1.141,1.255,1.279,1.338,1.381,1.406,1.44,1.475,1.505,
  	    1.523,1.531,1.533,1.525,1.486,1.235,1.068,1.022,.9427,.909,.9406,
  	    1.295,1.413,1.438,1.497,1.539,1.564,1.595,1.627,1.651,1.665,1.667,
  	    1.665,1.648,1.597,1.315,1.145,1.099,1.026,1.,1.055,1.471,1.592,
  	    1.617,1.675,1.716,1.738,1.766,1.793,1.811,1.817,1.813,1.807,1.78,
  	    1.714,1.401,1.229,1.185,1.12,1.104,1.187,1.672,1.794,1.819,1.874,
  	    1.911,1.931,1.954,1.974,1.984,1.981,1.97,1.959,1.919,1.837,1.493,
  	    1.321,1.28,1.226,1.221,1.338,1.903,2.022,2.045,2.095,2.127,2.143,
  	    2.159,2.17,2.171,2.157,2.137,2.121,2.066,1.966,1.591,1.421,1.385,
  	    1.346,1.354,1.513,2.166,2.278,2.298,2.341,2.365,2.376,2.384,2.383,
  	    2.371,2.345,2.314,2.292,2.221,2.101,1.695,1.532,1.503,1.481,1.507,
  	    1.715,2.465,2.564,2.58,2.612,2.626,2.629,2.627,2.613,2.585,2.545,
  	    2.502,2.472,2.383,2.242,1.805,1.655,1.634,1.635,1.685,1.949,2.803,
  	    2.882,2.893,2.909,2.91,2.905,2.889,2.858,2.813,2.756,2.699,2.661,
  	    2.552,2.389,1.924,1.793,1.781,1.812,1.89,2.22,3.184,3.234,3.238,
  	    3.234,3.218,3.202,3.17,3.12,3.054,2.977,2.905,2.858,2.728,2.541,
  	    2.052,1.946,1.948,2.017,2.127,2.536,3.61,3.621,3.615,3.587,3.55,
  	    3.521,3.47,3.397,3.307,3.208,3.119,3.063,2.909,2.697,2.193,2.12,
  	    2.141,2.254,2.403,2.902,4.084,4.043,4.025,3.966,3.904,3.86,3.787,
  	    3.687,3.571,3.447,3.34,3.274,3.095,2.858,2.347,2.319,2.363,2.532,
  	    2.728,3.33,4.606,4.5,4.466,4.371,4.28,4.217,4.119,3.99,3.844,
  	    3.694,3.568,3.49,3.286,3.026,2.517,2.551,2.622,2.862,3.114,3.834,
  	    5.175,4.988,4.937,4.798,4.674,4.59,4.464,4.302,4.125,3.946,3.8,
  	    3.71,3.482,3.198,2.711,2.826,2.93,3.259,3.576,4.426,5.789,5.505,
  	    5.433,5.244,5.082,4.976,4.819,4.622,4.41,4.201,4.036,3.935,3.682,
  	    3.378,2.939,3.157,3.306,3.74,4.137,5.122,6.442,6.045,5.949,5.705,
  	    5.501,5.37,5.18,4.946,4.699,4.461,4.274,4.163,3.888,3.57,3.213,
  	    3.57,3.776,4.336,4.828,5.95,7.125,6.599,6.477,6.174,5.924,5.768,
  	    5.543,5.271,4.989,4.723,4.517,4.397,4.104,3.781,3.558,4.099,4.376,
  	    5.092,5.695,6.939,7.826,7.16,7.01,6.644,6.349,6.165,5.906,5.597,
  	    5.283,4.99,4.771,4.642,4.341,4.027,4.011,4.801,5.166,6.077,6.806,
  	    8.129,8.531,7.718,7.54,7.109,6.769,6.559,6.268,5.926,5.584,5.273,
  	    5.044,4.911,4.615,4.334,4.642,5.77,6.249,7.396,8.262,9.575,9.226,
  	    8.265,8.059,7.568,7.187,6.955,6.637,6.268,5.909,5.59,5.363,5.236,
  	    4.964,4.757,5.578,7.168,7.796,9.222,10.22,11.34,9.899,8.803,8.573,
  	    8.033,7.62,7.373,7.039,6.66,6.301,5.997,5.792,5.684,5.479,5.416,
  	    7.057,9.29,10.11,11.85,12.94,13.53,10.57,9.368,9.124,8.557,8.133,
  	    7.886,7.558,7.201,6.881,6.635,6.492,6.43,6.374,6.585,9.572,12.69,
  	    13.75,15.8,16.87,16.28,11.34,10.12,9.883,9.343,8.96,8.743,8.471,
  	    8.211,8.013,7.913,7.926,7.968,8.228,8.967,14.2,18.49,19.79,22.,
  	    22.68,19.69,12.87,11.85,11.67,11.29,11.08,10.97,10.89,10.9,11.03,
  	    11.3,11.67,11.93,12.88,14.66,23.51,29.01,30.37,32.06,31.53,23.41,
  	    20.31,20.01,20.02,20.14,20.37,20.56,20.95,21.58,22.44,23.5,24.55,
  	    25.24,27.42,30.92,43.19,47.46,47.65,45.85,41.98,26.26,53.92,49.4,
  	    48.63,47.03,46.04,45.52,45.01,44.63,44.53,44.72,45.08,45.37,46.54,
  	    48.62,55.84,56.54,55.52,51.19,45.6,27.04 };
      static doublereal qhr[1660]	/* was [20][83] */ = { -8.147e-23,-3.118e-22,
  	    1.009e-23,5.571e-23,2.773e-22,2.431e-22,3.84e-23,-7.752e-23,
  	    -4.595e-22,5.904e-23,-1.272e-22,5.169e-22,-6.041e-23,8.122e-22,
  	    -5.817e-23,-8.368e-22,3.184e-22,-2.087e-22,-6.358e-22,-3.486e-22,
  	    5.946e-4,4.345e-4,3.044e-4,3.22e-4,7.046e-5,2.465e-4,2.406e-4,
  	    1.308e-4,-5.562e-5,1.192e-4,-5.941e-5,2.354e-4,-6.454e-6,2.142e-4,
  	    .00159,.002451,.003036,.003408,.003636,.003063,.003607,.002544,
  	    .002098,.001983,.001388,.001908,.001633,.001361,8.731e-4,.001141,
  	    9.194e-4,.001988,.001224,.001986,.008542,.01217,.01478,.01699,
  	    .01758,.015,.007821,.005349,.004729,.00402,.003189,.003314,
  	    .002793,.002501,.001769,.001779,.001652,.002646,.002081,.003241,
  	    .01513,.02345,.02822,.03431,.03632,.03242,.0128,.008687,.008006,
  	    .006318,.005208,.00443,.003662,.002873,.002273,.001776,.001544,
  	    .001517,.001735,.002991,.01713,.0316,.03771,.04812,.05343,.05059,
  	    .01851,.0125,.01143,.00888,.007015,.005859,.004611,.003129,
  	    .002001,.001026,3.092e-4,-3.247e-5,-2.1e-4,6.496e-4,.01588,.03488,
  	    .04233,.05671,.06552,.0661,.02445,.01638,.01476,.01148,.008798,
  	    .007582,.00561,.003561,.001454,-1.717e-4,-.001378,-.001483,
  	    -.002898,-.002916,.01285,.03414,.0429,.06062,.0721,.07719,.02975,
  	    .02011,.01823,.01409,.01093,.009083,.006591,.00408,.001377,
  	    -.001086,-.002623,-.003376,-.005197,-.00628,.007918,.03068,.03975,
  	    .06023,.07368,.08298,.03412,.02351,.02153,.01661,.01294,.01045,
  	    .007589,.004391,.001316,-.00185,-.003932,-.00551,-.00765,-.009845,
  	    .001257,.0245,.03343,.05559,.07029,.08364,.0376,.02636,.0241,
  	    .01878,.01446,.01186,.008546,.004637,8.342e-4,-.002917,-.005724,
  	    -.007429,-.01075,-.01423,-.006339,.01602,.02506,.04753,.06307,
  	    .08023,.03991,.02824,.02588,.0202,.01564,.01278,.008953,.004841,
  	    2.139e-4,-.004419,-.007617,-.009547,-.01402,-.01907,-.0146,
  	    .006106,.01513,.03769,.0537,.07407,.04081,.02929,.02696,.02102,
  	    .01628,.01308,.008937,.004425,-7.326e-4,-.006148,-.009848,-.01226,
  	    -.01765,-.02422,-.02374,-.004311,.004611,.02687,.04334,.06634,
  	    .04049,.02957,.02721,.02125,.01602,.01288,.008554,.003274,
  	    -.002437,-.008229,-.01289,-.01545,-.02212,-.03002,-.0336,-.01489,
  	    -.005905,.01572,.0329,.05814,.03916,.02883,.0265,.02055,.01516,
  	    .01194,.007367,.001732,-.004614,-.01107,-.01635,-.01921,-.02705,
  	    -.03654,-.04386,-.02598,-.01695,.005064,.02278,.05015,.03692,
  	    .02726,.02509,.01909,.01378,.01026,.005483,-3.23e-4,-.007176,
  	    -.01448,-.02016,-.02365,-.03236,-.04356,-.05467,-.03733,-.02829,
  	    -.005211,.0131,.04263,.03406,.02517,.02308,.01715,.01173,.008159,
  	    .003214,-.002992,-.01038,-.01832,-.02464,-.02852,-.03837,-.0512,
  	    -.06603,-.0487,-.03936,-.01539,.003942,.0357,.03081,.02259,.02055,
  	    .0147,.009185,.005607,4.783e-4,-.006093,-.01407,-.02267,-.02962,
  	    -.03383,-.04492,-.05944,-.07775,-.06023,-.05042,-.02524,-.004736,
  	    .02941,.02727,.01966,.01768,.01186,.006271,.002638,-.002668,
  	    -.009624,-.01815,-.02742,-.03499,-.03961,-.05189,-.06812,-.08984,
  	    -.07193,-.06161,-.03472,-.01301,.02374,.02361,.01649,.01456,
  	    .008715,.003047,-6.83e-4,-.006167,-.01351,-.02259,-.03257,-.04076,
  	    -.04585,-.05929,-.07724,-.1023,-.08376,-.07293,-.04388,-.02087,
  	    .01866,.01993,.01317,.01126,.005332,-4.254e-4,-.004284,-.009972,
  	    -.01771,-.02738,-.03809,-.04689,-.05249,-.0671,-.08682,-.115,
  	    -.0957,-.08427,-.05283,-.02836,.01405,.01636,.009745,.007818,
  	    .001756,-.004089,-.008098,-.01405,-.02218,-.0325,-.04399,-.05339,
  	    -.05949,-.07532,-.09686,-.1281,-.1077,-.09552,-.06171,-.03556,
  	    .009811,.01291,.006321,.00434,-.001907,-.00792,-.01207,-.01831,
  	    -.02695,-.03794,-.05018,-.06028,-.06683,-.08398,-.1073,-.1415,
  	    -.1197,-.1066,-.07056,-.0425,.005898,.009661,.002919,8.244e-4,
  	    -.005641,-.01189,-.01616,-.02274,-.03194,-.04368,-.05669,-.06753,
  	    -.07448,-.09306,-.1182,-.1551,-.1318,-.1176,-.07935,-.04924,
  	    .002301,.006585,-4.226e-4,-.002641,-.009394,-.01592,-.02037,
  	    -.02733,-.0372,-.04966,-.06344,-.07508,-.08249,-.1025,-.1293,
  	    -.1689,-.1438,-.1286,-.08798,-.05578,-9.949e-4,.00373,-.00371,
  	    -.006093,-.01318,-.02003,-.02466,-.03207,-.04261,-.05588,-.07049,
  	    -.08294,-.09079,-.1122,-.1409,-.1828,-.156,-.1396,-.09634,-.06216,
  	    -.004003,.001045,-.006925,-.009479,-.01697,-.02415,-.02907,
  	    -.03696,-.04822,-.06229,-.0778,-.09104,-.09942,-.1223,-.1527,
  	    -.1969,-.1683,-.1506,-.1044,-.06839,-.006763,-.001424,-.01008,
  	    -.01283,-.02077,-.02832,-.03354,-.04198,-.05397,-.06892,-.08537,
  	    -.09942,-.1083,-.1326,-.1649,-.211,-.1804,-.1615,-.1124,-.0743,
  	    -.009293,-.003753,-.01315,-.01609,-.02453,-.03251,-.03811,-.04713,
  	    -.05992,-.07572,-.09313,-.108,-.1176,-.1432,-.1772,-.2253,-.1922,
  	    -.1723,-.1202,-.07982,-.0116,-.005895,-.01618,-.01933,-.0283,
  	    -.03674,-.04275,-.05241,-.066,-.08272,-.1012,-.1169,-.127,-.154,
  	    -.1898,-.2397,-.2038,-.1828,-.1279,-.08505,-.01372,-.007905,
  	    -.01911,-.0225,-.03202,-.04105,-.04745,-.05777,-.0723,-.08994,
  	    -.1094,-.1261,-.1368,-.1651,-.2026,-.254,-.2152,-.193,-.1354,
  	    -.09008,-.01571,-.009782,-.02205,-.02566,-.03577,-.0454,-.05227,
  	    -.0633,-.07871,-.09734,-.1178,-.1354,-.1467,-.1765,-.2156,-.2681,
  	    -.2265,-.203,-.1425,-.09496,-.01757,-.01153,-.02493,-.0288,
  	    -.03952,-.04985,-.05715,-.06893,-.08529,-.105,-.1265,-.1451,
  	    -.1568,-.1881,-.2288,-.2819,-.2375,-.2127,-.1491,-.09971,-.01933,
  	    -.01324,-.02782,-.03192,-.04332,-.05435,-.06219,-.07474,-.09204,
  	    -.1127,-.1354,-.1549,-.1672,-.1998,-.242,-.2954,-.2482,-.222,
  	    -.1554,-.1042,-.02098,-.01486,-.03071,-.03508,-.0472,-.05896,
  	    -.06734,-.08069,-.09895,-.1207,-.1445,-.1649,-.1778,-.2116,-.2553,
  	    -.3087,-.2584,-.2308,-.1613,-.1083,-.02245,-.01649,-.03358,
  	    -.03822,-.05113,-.06369,-.07263,-.08678,-.1061,-.1289,-.1538,
  	    -.175,-.1885,-.2236,-.2685,-.3217,-.2679,-.2393,-.1669,-.1119,
  	    -.02371,-.01812,-.0365,-.04142,-.05521,-.06853,-.07811,-.09307,
  	    -.1133,-.1372,-.1632,-.1853,-.1994,-.2356,-.2817,-.3341,-.277,
  	    -.2473,-.1719,-.1151,-.02484,-.01973,-.03945,-.04473,-.05943,
  	    -.07357,-.0837,-.09951,-.1207,-.1458,-.1729,-.1958,-.2104,-.2477,
  	    -.2949,-.3459,-.2856,-.2547,-.1764,-.118,-.02586,-.02142,-.04242,
  	    -.04806,-.06375,-.07879,-.08947,-.1061,-.1284,-.1545,-.1827,
  	    -.2065,-.2215,-.2598,-.3079,-.3572,-.2934,-.2613,-.1805,-.1205,
  	    -.02679,-.02317,-.04549,-.05149,-.06827,-.08415,-.09546,-.1129,
  	    -.1362,-.1634,-.1927,-.2171,-.2327,-.2718,-.3206,-.3677,-.3005,
  	    -.2671,-.1841,-.1226,-.02761,-.02491,-.04867,-.05509,-.07298,
  	    -.08976,-.1016,-.1199,-.1442,-.1725,-.2028,-.228,-.2438,-.2839,
  	    -.3331,-.3774,-.3068,-.2721,-.1871,-.1242,-.02828,-.02672,-.05193,
  	    -.05882,-.07782,-.0956,-.1079,-.127,-.1523,-.1818,-.213,-.2388,
  	    -.2548,-.2958,-.3453,-.3862,-.3124,-.2764,-.1893,-.1254,-.02875,
  	    -.02768,-.05365,-.06073,-.08034,-.09853,-.1112,-.1307,-.1565,
  	    -.1865,-.2181,-.2442,-.2604,-.3016,-.3512,-.3903,-.3148,-.2783,
  	    -.1901,-.1258,-.02888,-.02862,-.05536,-.06269,-.08286,-.1016,
  	    -.1144,-.1344,-.1607,-.1912,-.2232,-.2496,-.2659,-.3073,-.357,
  	    -.3941,-.3171,-.2801,-.1907,-.1261,-.02893,-.0306,-.059,-.06675,
  	    -.08811,-.1077,-.1212,-.1419,-.1692,-.2006,-.2335,-.2602,-.2769,
  	    -.3186,-.368,-.401,-.3206,-.283,-.1915,-.1261,-.02891,-.03261,
  	    -.06284,-.07103,-.09354,-.1141,-.1282,-.1497,-.1778,-.2101,-.2436,
  	    -.2708,-.2877,-.3295,-.3785,-.4069,-.323,-.2845,-.1917,-.1256,
  	    -.02886,-.03468,-.06686,-.07555,-.09913,-.1207,-.1353,-.1575,
  	    -.1866,-.2196,-.2537,-.2813,-.2981,-.3401,-.3884,-.4116,-.3243,
  	    -.2848,-.1915,-.1246,-.02874,-.03687,-.07111,-.08027,-.1049,
  	    -.1274,-.1425,-.1656,-.1955,-.2291,-.2637,-.2915,-.3083,-.3501,
  	    -.3974,-.4151,-.3246,-.2842,-.1903,-.123,-.02838,-.03921,-.07559,
  	    -.08518,-.1109,-.1343,-.15,-.1737,-.2043,-.2385,-.2733,-.3013,
  	    -.3181,-.3594,-.4054,-.4173,-.3237,-.2829,-.1882,-.1208,-.02775,
  	    -.04172,-.0803,-.09029,-.117,-.1413,-.1576,-.182,-.2132,-.2477,
  	    -.2827,-.3106,-.3274,-.368,-.4125,-.4181,-.3218,-.2807,-.1851,
  	    -.1182,-.02689,-.04438,-.08522,-.09565,-.1234,-.1485,-.1653,
  	    -.1902,-.222,-.2567,-.2917,-.3194,-.336,-.3758,-.4185,-.4173,
  	    -.3189,-.2775,-.1812,-.115,-.02574,-.04723,-.09036,-.1012,-.1299,
  	    -.1557,-.173,-.1985,-.2305,-.2654,-.3003,-.3276,-.344,-.3826,
  	    -.4233,-.4152,-.3147,-.2732,-.1766,-.1112,-.02438,-.05028,-.09562,
  	    -.1069,-.1366,-.1629,-.1807,-.2066,-.2389,-.2736,-.3082,-.335,
  	    -.3512,-.3883,-.4267,-.4119,-.3092,-.2676,-.1716,-.1068,-.02294,
  	    -.05349,-.101,-.1127,-.1432,-.1702,-.1882,-.2144,-.247,-.2814,
  	    -.3153,-.3416,-.3573,-.3931,-.4288,-.407,-.3024,-.2606,-.1661,
  	    -.1017,-.02136,-.05685,-.1065,-.1186,-.15,-.1774,-.1955,-.222,
  	    -.2545,-.2886,-.3218,-.3473,-.3624,-.3966,-.4294,-.4004,-.2946,
  	    -.2527,-.1597,-.09625,-.01946,-.06038,-.1121,-.1245,-.1566,-.1844,
  	    -.2027,-.2292,-.2615,-.295,-.3272,-.3518,-.3663,-.3985,-.4284,
  	    -.3924,-.2857,-.2444,-.1524,-.09017,-.01716,-.06401,-.1176,-.1304,
  	    -.1632,-.191,-.2094,-.2358,-.2678,-.3005,-.3315,-.355,-.3689,
  	    -.3989,-.4257,-.3831,-.2758,-.2351,-.1444,-.08368,-.01456,-.0677,
  	    -.1231,-.1362,-.1694,-.1973,-.2156,-.2417,-.2732,-.305,-.3347,
  	    -.3569,-.37,-.3978,-.4213,-.3721,-.2651,-.2249,-.1358,-.07706,
  	    -.01179,-.07138,-.1285,-.1418,-.1753,-.2031,-.2211,-.2469,-.2776,
  	    -.3083,-.3365,-.3573,-.3694,-.3951,-.4153,-.3595,-.2534,-.2138,
  	    -.1266,-.07029,-.008944,-.07509,-.1336,-.1471,-.1807,-.2082,
  	    -.2259,-.251,-.2808,-.3102,-.3367,-.356,-.3672,-.3905,-.4072,
  	    -.346,-.2406,-.2017,-.1175,-.06295,-.00603,-.07871,-.1382,-.1518,
  	    -.1853,-.2125,-.2296,-.254,-.2828,-.3107,-.3352,-.3531,-.3632,
  	    -.3841,-.3973,-.3313,-.2269,-.1889,-.1082,-.05528,-.00285,-.08211,
  	    -.1423,-.1559,-.1891,-.2157,-.2323,-.2557,-.2831,-.3095,-.3321,
  	    -.3483,-.3573,-.3757,-.3857,-.3152,-.213,-.1762,-.09801,-.04748,
  	    8.254e-4,-.08523,-.1458,-.1593,-.1919,-.2177,-.2337,-.256,-.2819,
  	    -.3064,-.3271,-.3414,-.3496,-.3652,-.3721,-.2982,-.1985,-.1633,
  	    -.08756,-.03938,.004851,-.08791,-.1484,-.1617,-.1936,-.2184,
  	    -.2336,-.2546,-.2789,-.3015,-.3201,-.3327,-.3397,-.3529,-.3568,
  	    -.2804,-.1835,-.1496,-.07742,-.03115,.00891,-.09009,-.15,-.163,
  	    -.1938,-.2176,-.2319,-.2514,-.274,-.2946,-.311,-.322,-.3278,
  	    -.3387,-.3399,-.2616,-.1682,-.1354,-.06735,-.02323,.01301,-.09154,
  	    -.1505,-.163,-.1926,-.215,-.2283,-.2464,-.267,-.2856,-.3,-.3092,
  	    -.314,-.3226,-.3214,-.2422,-.153,-.1215,-.05708,-.01557,.01724,
  	    -.09222,-.1496,-.1616,-.1896,-.2107,-.2229,-.2394,-.2581,-.2746,
  	    -.2867,-.2945,-.2983,-.3048,-.3013,-.2225,-.1376,-.1076,-.04707,
  	    -.008146,.02144,-.09185,-.1473,-.1587,-.1849,-.2044,-.2155,-.2304,
  	    -.2469,-.2616,-.2718,-.278,-.2804,-.2856,-.2805,-.202,-.123,-.094,
  	    -.03691,-.001446,.0257,-.09049,-.1433,-.154,-.1783,-.1961,-.2061,
  	    -.2193,-.2337,-.2464,-.2549,-.2595,-.2613,-.2646,-.2583,-.1821,
  	    -.1083,-.08107,-.02738,.00553,.03033,-.08802,-.1377,-.1475,-.1697,
  	    -.1858,-.1948,-.2063,-.2188,-.2294,-.2361,-.2395,-.2409,-.2424,
  	    -.2349,-.1631,-.09318,-.06851,-.01892,.01275,.03518,-.08418,
  	    -.1303,-.1393,-.1593,-.1737,-.1813,-.1913,-.202,-.2109,-.216,
  	    -.2185,-.219,-.2195,-.2114,-.144,-.07926,-.05633,-.01086,.01925,
  	    .03978,-.07929,-.1215,-.1294,-.1473,-.1595,-.1665,-.175,-.1835,
  	    -.1905,-.1948,-.1958,-.1967,-.1954,-.1874,-.1252,-.06647,-.04594,
  	    -.002282,.0251,.04412,-.07309,-.111,-.1179,-.1334,-.1442,-.15,
  	    -.1569,-.1641,-.1696,-.1725,-.1732,-.1735,-.1718,-.1638,-.1069,
  	    -.05371,-.03472,.005347,.03026,.04825,-.0658,-.09908,-.1053,
  	    -.1183,-.1277,-.1321,-.1378,-.1438,-.1483,-.1501,-.1505,-.1498,
  	    -.1486,-.1411,-.08852,-.04195,-.02335,.01293,.03444,.05177,-.0578,
  	    -.08654,-.09168,-.1027,-.11,-.114,-.1185,-.1228,-.1261,-.1277,
  	    -.1272,-.1269,-.125,-.1184,-.07094,-.03037,-.01346,.02113,.03918,
  	    .0546,-.04918,-.07293,-.07731,-.08599,-.09253,-.09509,-.09848,
  	    -.1025,-.1049,-.1051,-.1053,-.1043,-.103,-.09632,-.05451,-.01726,
  	    -.001714,.02784,.04471,.05699,-.04018,-.05959,-.06325,-.06991,
  	    -.07509,-.07652,-.07936,-.0821,-.08429,-.08435,-.08424,-.08209,
  	    -.08201,-.07641,-.03645,-.006639,.008967,.03647,.04838,.05823,
  	    -.03185,-.04695,-.04939,-.05469,-.05763,-.05964,-.06174,-.06267,
  	    -.06387,-.06467,-.06322,-.06269,-.06086,-.05653,-.02061,.004547,
  	    .01804,.04476,.05222,.05715,-.02399,-.0343,-.0362,-.03963,-.04234,
  	    -.0432,-.04421,-.04585,-.04619,-.04561,-.04538,-.04434,-.04285,
  	    -.03796,-.006627,.01789,.03055,.04847,.05531,.05342,-.01621,
  	    -.02357,-.02499,-.02695,-.02868,-.02818,-.02929,-.02919,-.03053,
  	    -.02987,-.02927,-.02571,-.02673,-.02227,.01133,.027,.0396,.05261,
  	    .05415,.04631,-.01136,-.01358,-.01245,-.0146,-.01415,-.01719,
  	    -.01589,-.01669,-.01253,-.01121,-.0103,-.01453,-.006035,9.91e-4,
  	    .01676,.0422,.04239,.04889,.05576,.03401,-.007363,-.002723,
  	    1.652e-4,-.001422,-.001035,-.006913,-.001659,-.007899,.0038,
  	    .008263,.006477,-.00685,.01241,.02337,.009972,.05411,.04046,
  	    .03218,.05041,.01763,.002718,.003655,.006597,.004893,.005729,
  	    .003746,.005216,.002972,.009025,.01151,.01014,.006172,.01335,
  	    .01932,.009494,.02476,.01701,.009915,.01669,.003855,1.537e-20,
  	    3.156e-20,3.584e-20,2.603e-20,1.868e-21,1.868e-20,3.065e-20,
  	    2.956e-20,4.461e-21,-7.992e-23,6.269e-20,-1.118e-20,-1.961e-20,
  	    -4.703e-20,-9.754e-21,-1.62e-19,-8.898e-20,-4.202e-20,3.465e-21,
  	    -5.923e-20 };
      static doublereal uhr[1660]	/* was [20][83] */ = { -.1683,-.1692,-.1705,
  	    -.1751,-.1805,-.1851,-.1939,-.2078,-.2255,-.2466,-.2671,-.2816,
  	    -.3231,-.387,-.5767,-.6058,-.5984,-.5521,-.4886,-.3196,-.1666,
  	    -.1675,-.1687,-.1732,-.1785,-.1831,-.1918,-.2055,-.2229,-.2436,
  	    -.2639,-.2782,-.3191,-.382,-.5675,-.5946,-.5867,-.5399,-.4774,
  	    -.3128,-.1609,-.1617,-.1628,-.167,-.172,-.1763,-.1844,-.1975,
  	    -.2138,-.2333,-.2524,-.2661,-.3044,-.3635,-.5318,-.5508,-.5407,
  	    -.491,-.4325,-.2855,-.1545,-.1561,-.1573,-.1615,-.1662,-.1704,
  	    -.1782,-.1903,-.2058,-.2244,-.242,-.2548,-.2904,-.345,-.49,-.4965,
  	    -.4824,-.4261,-.3705,-.2438,-.1475,-.1509,-.1524,-.157,-.1618,
  	    -.1661,-.174,-.1858,-.2011,-.2192,-.236,-.2481,-.2822,-.3336,
  	    -.4589,-.452,-.4333,-.3694,-.3132,-.1991,-.1394,-.1451,-.1469,
  	    -.1524,-.1579,-.1625,-.1707,-.1828,-.1982,-.2163,-.233,-.245,
  	    -.2784,-.328,-.4414,-.4228,-.4002,-.3292,-.2692,-.1599,-.1299,
  	    -.1383,-.1406,-.1472,-.1535,-.1585,-.1672,-.18,-.1958,-.2141,
  	    -.2312,-.2432,-.2767,-.3257,-.4325,-.4053,-.3797,-.303,-.2385,
  	    -.1282,-.1192,-.1303,-.1332,-.1409,-.1481,-.1536,-.1628,-.1764,
  	    -.1927,-.2115,-.229,-.2411,-.2749,-.3238,-.4271,-.3942,-.3663,
  	    -.2853,-.2168,-.1026,-.1076,-.1215,-.1248,-.1338,-.1417,-.1479,
  	    -.1577,-.172,-.1888,-.2082,-.2261,-.2386,-.2725,-.3216,-.423,
  	    -.3865,-.3571,-.2727,-.2012,-.08219,-.0954,-.1119,-.1159,-.1258,
  	    -.1349,-.1413,-.1518,-.1669,-.1846,-.2043,-.2228,-.2351,-.2699,
  	    -.3193,-.4193,-.3809,-.3504,-.2638,-.1902,-.06633,-.08296,-.1019,
  	    -.1064,-.1174,-.1274,-.1341,-.1453,-.161,-.1795,-.1998,-.2188,
  	    -.231,-.2664,-.3162,-.4158,-.3762,-.3452,-.2573,-.1821,-.05402,
  	    -.07076,-.09168,-.09649,-.1086,-.1191,-.1265,-.1384,-.1545,-.1735,
  	    -.1946,-.2136,-.2265,-.2619,-.3121,-.4119,-.3717,-.341,-.252,
  	    -.1759,-.04447,-.05893,-.08136,-.08643,-.09941,-.1106,-.1186,
  	    -.1309,-.1477,-.1671,-.1887,-.2081,-.2214,-.2568,-.3073,-.4072,
  	    -.3671,-.3365,-.2473,-.1711,-.03721,-.04759,-.07113,-.07656,
  	    -.09014,-.1021,-.1102,-.123,-.1405,-.1605,-.1825,-.2023,-.2155,
  	    -.2515,-.3021,-.4016,-.362,-.3314,-.2428,-.1671,-.03163,-.03696,
  	    -.06131,-.06697,-.08106,-.09344,-.1019,-.1152,-.1329,-.1535,-.176,
  	    -.196,-.2092,-.2455,-.2965,-.3952,-.3564,-.3259,-.238,-.1633,
  	    -.02718,-.02719,-.05187,-.05761,-.07211,-.08482,-.09357,-.1072,
  	    -.1252,-.1462,-.1691,-.1893,-.2026,-.2391,-.29,-.3882,-.35,-.3197,
  	    -.2332,-.1593,-.02343,-.01822,-.04284,-.04865,-.06334,-.0764,
  	    -.08525,-.09906,-.1175,-.1387,-.1618,-.1823,-.1956,-.2323,-.2831,
  	    -.3806,-.3428,-.313,-.228,-.155,-.02005,-.01004,-.03436,-.04014,
  	    -.05492,-.06808,-.07711,-.09106,-.1096,-.131,-.1544,-.175,-.1884,
  	    -.2249,-.2756,-.3723,-.335,-.3059,-.2221,-.1504,-.01687,-.002599,
  	    -.02636,-.03205,-.04679,-.05996,-.06908,-.08309,-.1017,-.1232,
  	    -.1467,-.1673,-.1808,-.2171,-.2676,-.3632,-.3266,-.2981,-.2158,
  	    -.1454,-.01383,.004191,-.01881,-.02439,-.03893,-.05207,-.06115,
  	    -.07515,-.09372,-.1153,-.1388,-.1594,-.1728,-.209,-.2591,-.3534,
  	    -.3174,-.2895,-.209,-.1402,-.01089,.01039,-.01167,-.0171,-.03135,
  	    -.04438,-.05335,-.06723,-.08572,-.1072,-.1307,-.1512,-.1644,
  	    -.2004,-.25,-.3428,-.3075,-.2802,-.2017,-.1346,-.007955,.01609,
  	    -.004909,-.01016,-.02403,-.03685,-.04566,-.05937,-.07766,-.09901,
  	    -.1223,-.1426,-.1557,-.1913,-.2403,-.3313,-.2969,-.2702,-.1938,
  	    -.1285,-.004932,.02137,.001533,-.00348,-.01693,-.02944,-.0381,
  	    -.05153,-.06952,-.09058,-.1136,-.1337,-.1466,-.1816,-.2298,-.319,
  	    -.2855,-.2596,-.1853,-.1219,-.001737,.02633,.007717,.002951,
  	    -.009997,-.02211,-.03058,-.04368,-.06124,-.08192,-.1046,-.1243,
  	    -.1371,-.1714,-.2187,-.3058,-.2733,-.2483,-.1761,-.1149,.001654,
  	    .03106,.01373,.009236,-.003159,-.01483,-.02305,-.03574,-.05284,
  	    -.07302,-.09524,-.1145,-.127,-.1606,-.2068,-.2917,-.2602,-.2361,
  	    -.1665,-.1073,.005222,.03567,.01963,.0154,.003634,-.007576,
  	    -.01545,-.02767,-.04421,-.06387,-.08549,-.1043,-.1164,-.1491,
  	    -.1941,-.2766,-.2463,-.223,-.1563,-.09929,.009004,.04023,.0255,
  	    .02154,.01045,-2.282e-4,-.007721,-.01942,-.03533,-.05434,-.07529,
  	    -.09346,-.1052,-.137,-.1806,-.2605,-.2315,-.2091,-.1453,-.09078,
  	    .01308,.04484,.03138,.02771,.01733,.007266,1.95e-4,-.01095,
  	    -.02609,-.04439,-.06458,-.08205,-.0933,-.124,-.1662,-.2431,-.2159,
  	    -.1945,-.1336,-.08176,.01754,.04953,.03742,.03404,.02443,.015,
  	    .008363,-.002114,-.01648,-.03392,-.0532,-.06991,-.08071,-.1102,
  	    -.1507,-.2248,-.1993,-.179,-.1211,-.07214,.0224,.05441,.04363,
  	    .04057,.03174,.02306,.01688,.00711,-.006367,-.02284,-.04114,
  	    -.05697,-.06727,-.0953,-.134,-.2052,-.1816,-.1626,-.1079,-.0619,
  	    .02764,.05956,.05018,.04741,.03944,.03148,.02589,.01689,.004304,
  	    -.01112,-.02824,-.04322,-.05284,-.07947,-.1162,-.1844,-.1629,
  	    -.1451,-.09412,-.051,.03327,.06502,.0571,.05465,.04756,.04044,
  	    .03542,.02727,.01569,.001434,-.01442,-.02843,-.0374,-.06242,
  	    -.09703,-.1624,-.143,-.1265,-.07967,-.03936,.03941,.07091,.06449,
  	    .06238,.05622,.05002,.04561,.03836,.02791,.01493,3.993e-4,-.01248,
  	    -.02079,-.04403,-.07642,-.139,-.122,-.1071,-.06432,-.02691,.04619,
  	    .07728,.07247,.07075,.06557,.06036,.05655,.0503,.04108,.02953,
  	    .01642,.004781,-.002916,-.02415,-.05423,-.1141,-.09988,-.08671,
  	    -.04798,-.01377,.05358,.08429,.08112,.07981,.0757,.07158,.06843,
  	    .06322,.05538,.04533,.03373,.02342,.01647,-.002749,-.03043,
  	    -.08766,-.07664,-.06516,-.03074,6.039e-5,.06158,.09207,.09063,
  	    .08974,.08684,.08377,.08143,.07734,.07092,.06244,.05256,.04355,
  	    .03753,.02029,-.004862,-.05953,-.05214,-.04238,-.01255,.01462,
  	    .07025,.1007,.1011,.1007,.09909,.09721,.09566,.09277,.08791,
  	    .08117,.07304,.06549,.06036,.04528,.02265,-.02973,-.02643,-.0184,
  	    .006715,.02999,.07974,.1103,.1126,.1127,.1126,.1121,.1113,.1097,
  	    .1066,.1017,.09537,.0894,.08519,.07237,.05229,.001805,7.463e-4,
  	    .00681,.02704,.04641,.09017,.1212,.1254,.1261,.1277,.1285,.1287,
  	    .1284,.1271,.1241,.1199,.1154,.1122,.1017,.08431,.03501,.02965,
  	    .03332,.04837,.06409,.1017,.1333,.1398,.1412,.1445,.1467,.1479,
  	    .1491,.1496,.1489,.1468,.1439,.1416,.1336,.1189,.07009,.06005,
  	    .06119,.0709,.08289,.1144,.147,.1558,.1579,.1632,.1671,.1693,.172,
  	    .1746,.1761,.1762,.175,.1737,.1682,.1559,.1074,.09169,.09053,
  	    .09491,.1026,.1283,.1545,.1646,.1671,.1733,.1781,.1809,.1845,
  	    .1881,.1907,.1919,.1916,.1909,.1864,.1754,.127,.1081,.1058,.1074,
  	    .1129,.1357,.1624,.1739,.1768,.1841,.1898,.1932,.1975,.2023,.2061,
  	    .2084,.2091,.2089,.2056,.1957,.147,.1249,.1215,.1203,.1235,.1436,
  	    .1798,.1944,.198,.2076,.2152,.2198,.226,.233,.2392,.2439,.2463,
  	    .2472,.2462,.2387,.1886,.16,.1541,.147,.1461,.1605,.1994,.2176,
  	    .2221,.234,.2437,.2496,.2578,.267,.2758,.2829,.2871,.2889,.2904,
  	    .2851,.2322,.1971,.1884,.1751,.1705,.1793,.2216,.2438,.2494,.2637,
  	    .2756,.283,.2932,.3049,.3163,.3258,.3318,.3346,.3383,.3348,.2785,
  	    .2359,.2243,.2051,.1965,.2003,.247,.2737,.2802,.2972,.3115,.3203,
  	    .3328,.3471,.361,.3729,.3807,.3844,.3902,.3882,.3272,.2766,.2621,
  	    .2371,.2244,.2236,.2758,.3075,.3152,.335,.3518,.3622,.3769,.3939,
  	    .4104,.4247,.4342,.4388,.4465,.4456,.3784,.3194,.302,.271,.2545,
  	    .2496,.3088,.3461,.355,.3777,.3972,.4093,.4263,.4461,.4651,.4815,
  	    .4928,.4981,.5074,.5071,.4322,.3645,.3441,.307,.2869,.2786,.3467,
  	    .3899,.4001,.4261,.4482,.4621,.4816,.504,.5254,.544,.5566,.5628,
  	    .5731,.5729,.489,.4119,.3888,.3454,.3219,.311,.3902,.4399,.4514,
  	    .4808,.5057,.5214,.5433,.5683,.592,.6125,.6263,.6333,.644,.6432,
  	    .5486,.4617,.4361,.3865,.3598,.3472,.4401,.4967,.5098,.5428,.5705,
  	    .5879,.6121,.6398,.6657,.6877,.7024,.7096,.7208,.7186,.6108,.5146,
  	    .4857,.4307,.4014,.3883,.4976,.5615,.5763,.613,.6434,.6625,.689,
  	    .719,.7469,.7701,.7854,.7926,.8036,.799,.6761,.5701,.5378,.4786,
  	    .4468,.4348,.5638,.6352,.6517,.6924,.7255,.7461,.7746,.8069,.8362,
  	    .8601,.8755,.8827,.8925,.8845,.7449,.6283,.5931,.5304,.4963,.4871,
  	    .6399,.7194,.7376,.7821,.8178,.8398,.8701,.904,.9344,.9584,.9734,
  	    .9802,.9879,.9754,.8168,.6899,.6526,.5861,.5505,.5462,.7277,.8153,
  	    .8352,.8834,.9214,.9446,.9763,1.011,1.042,1.066,1.08,1.085,1.09,
  	    1.072,.8919,.7556,.7162,.6462,.6109,.6134,.8287,.9245,.9461,.9977,
  	    1.038,1.062,1.094,1.13,1.16,1.182,1.194,1.199,1.2,1.174,.9705,
  	    .8252,.7841,.7119,.6778,.6898,.9452,1.049,1.072,1.126,1.168,1.192,
  	    1.225,1.26,1.289,1.309,1.318,1.321,1.316,1.282,1.053,.8988,.8567,
  	    .7842,.7523,.7771,1.079,1.19,1.214,1.271,1.313,1.338,1.37,1.403,
  	    1.43,1.446,1.452,1.452,1.44,1.396,1.14,.9776,.9346,.8637,.8358,
  	    .8773,1.234,1.351,1.376,1.433,1.475,1.499,1.529,1.56,1.583,1.594,
  	    1.595,1.592,1.572,1.516,1.23,1.063,1.019,.951,.9299,.9922,1.411,
  	    1.532,1.557,1.615,1.655,1.678,1.705,1.731,1.748,1.753,1.748,1.741,
  	    1.711,1.642,1.324,1.153,1.111,1.049,1.035,1.124,1.614,1.737,1.762,
  	    1.817,1.855,1.875,1.898,1.917,1.927,1.924,1.912,1.9,1.858,1.773,
  	    1.424,1.251,1.211,1.158,1.154,1.275,1.847,1.968,1.992,2.043,2.075,
  	    2.091,2.108,2.12,2.119,2.106,2.085,2.068,2.012,1.91,1.529,1.357,
  	    1.32,1.28,1.289,1.45,2.113,2.228,2.249,2.292,2.318,2.329,2.338,
  	    2.338,2.325,2.3,2.268,2.246,2.174,2.052,1.639,1.472,1.442,1.418,
  	    1.443,1.652,2.414,2.518,2.535,2.568,2.583,2.587,2.586,2.572,2.545,
  	    2.505,2.462,2.432,2.342,2.2,1.755,1.599,1.576,1.574,1.621,1.886,
  	    2.756,2.84,2.852,2.87,2.872,2.867,2.853,2.823,2.779,2.721,2.665,
  	    2.626,2.517,2.352,1.878,1.74,1.725,1.752,1.827,2.157,3.141,3.196,
  	    3.2,3.199,3.185,3.169,3.139,3.089,3.024,2.947,2.875,2.828,2.698,
  	    2.509,2.01,1.895,1.895,1.957,2.064,2.473,3.571,3.587,3.582,3.556,
  	    3.521,3.493,3.443,3.37,3.281,3.182,3.094,3.038,2.883,2.669,2.154,
  	    2.071,2.089,2.194,2.34,2.839,4.049,4.014,3.996,3.939,3.879,3.836,
  	    3.764,3.665,3.549,3.426,3.319,3.252,3.073,2.835,2.31,2.271,2.311,
  	    2.473,2.665,3.268,4.575,4.475,4.442,4.348,4.259,4.197,4.1,3.971,
  	    3.826,3.676,3.55,3.472,3.267,3.005,2.482,2.504,2.571,2.803,3.05,
  	    3.773,5.149,4.967,4.916,4.78,4.657,4.574,4.448,4.287,4.11,3.931,
  	    3.785,3.695,3.465,3.179,2.677,2.778,2.878,3.198,3.512,4.366,5.768,
  	    5.488,5.416,5.23,5.068,4.962,4.806,4.61,4.398,4.189,4.023,3.921,
  	    3.667,3.361,2.904,3.109,3.253,3.678,4.072,5.063,6.424,6.031,5.936,
  	    5.693,5.49,5.359,5.169,4.935,4.689,4.45,4.263,4.151,3.874,3.554,
  	    3.178,3.521,3.722,4.272,4.761,5.892,7.111,6.589,6.467,6.165,5.916,
  	    5.759,5.535,5.263,4.981,4.713,4.507,4.386,4.091,3.765,3.521,4.046,
  	    4.319,5.025,5.626,6.882,7.816,7.152,7.003,6.636,6.342,6.157,5.898,
  	    5.59,5.275,4.982,4.761,4.631,4.328,4.01,3.972,4.745,5.105,6.008,
  	    6.735,8.075,8.524,7.712,7.534,7.103,6.763,6.553,6.261,5.919,5.577,
  	    5.264,5.034,4.9,4.601,4.316,4.601,5.712,6.187,7.326,8.192,9.525,
  	    9.22,8.26,8.054,7.563,7.181,6.949,6.631,6.262,5.901,5.581,5.354,
  	    5.225,4.951,4.739,5.536,7.112,7.737,9.156,10.16,11.3,9.895,8.799,
  	    8.569,8.029,7.615,7.368,7.033,6.653,6.294,5.989,5.782,5.673,5.466,
  	    5.399,7.019,9.242,10.06,11.79,12.89,13.5,10.56,9.365,9.12,8.553,
  	    8.129,7.881,7.553,7.195,6.874,6.627,6.483,6.42,6.362,6.569,9.541,
  	    12.66,13.71,15.76,16.84,16.26,11.34,10.12,9.879,9.339,8.956,8.738,
  	    8.466,8.206,8.007,7.906,7.919,7.96,8.219,8.955,14.18,18.47,19.76,
  	    21.98,22.66,19.69,12.87,11.85,11.66,11.29,11.07,10.97,10.88,10.89,
  	    11.03,11.3,11.66,11.93,12.87,14.66,23.5,29.,30.36,32.05,31.52,
  	    23.4,20.31,20.01,20.02,20.13,20.36,20.56,20.95,21.57,22.44,23.5,
  	    24.55,25.24,27.42,30.92,43.19,47.46,47.65,45.85,41.98,26.26,53.92,
  	    49.4,48.63,47.03,46.04,45.52,45.01,44.63,44.53,44.72,45.08,45.37,
  	    46.54,48.62,55.84,56.54,55.52,51.19,45.6,27.04 };
  
      /* System generated locals */
      integer i__1;
  
      /* Local variables */
      integer i__, j;
  
  /* - to vary the number of quadratures */
  /*<       include "paramdef.inc" >*/
  /*<       integer nquad >*/
  /*<       parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
  /* Attention */
  /* mu2_p has to be equal to (mu_p-1)*2 */
  /*<       common /num_quad/ nquad >*/
  /*<       real ph,qh,uh >*/
  /*<       common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
  /*<       real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p) >*/
  /* - to vary the number of quadratures */
  /*<       real ex,sc,asy,vi >*/
  /*<       common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
  /*<       real ex_m(20),sc_m(20),asy_m(20) >*/
  /*<       integer i,j >*/
  /* Biomass burning model */
  /* Parameters and reflractive indices - AERONET measurements */
  /* (see file BBM-params.dat) */
  /* Extinction coefficients are calculated in km-1 */
  /* *************** MIE (asy) ****************** */
  /*<    >*/
  /* *************** MIE (ext&sca) ****************** */
  /*<    >*/
  /* ************** MIE (phase fun ph) *************** */
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /* ************** MIE (phase fun qh) *************** */
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /* ************** MIE (phase fun uh) *************** */
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<       do 1 i=1,20 >*/
      for (i__ = 1; i__ <= 20; ++i__) {
  /*<        asy(1,i)=asy_m(i) >*/
  	sixs_coef__1.asy[(i__ << 2) - 4] = asy_m__[i__ - 1];
  /*<        ex(1,i)=ex_m(i) >*/
  	sixs_coef__1.ex[(i__ << 2) - 4] = ex_m__[i__ - 1];
  /*<        sc(1,i)=sc_m(i) >*/
  	sixs_coef__1.sc[(i__ << 2) - 4] = sc_m__[i__ - 1];
  /*<       do 1 j=1,nquad >*/
  	i__1 = num_quad__1.nquad;
  	for (j = 1; j <= i__1; ++j) {
  /*<       ph(i,j)=phr(i,j) >*/
  	    sixs_aerbas__1.ph[i__ + j * 20 - 21] = phr[i__ + j * 20 - 21];
  /*<       qh(i,j)=qhr(i,j) >*/
  	    sixs_aerbas__1.qh[i__ + j * 20 - 21] = qhr[i__ + j * 20 - 21];
  /*<       uh(i,j)=uhr(i,j) >*/
  	    sixs_aerbas__1.uh[i__ + j * 20 - 21] = uhr[i__ + j * 20 - 21];
  /*<     1 continue >*/
  /* L1: */
  	}
      }
  /*<       return >*/
      return 0;
  /*<       end >*/
  } /* bbm_ */
  
  #ifdef __cplusplus
  	}
  #endif
  