!-------------------------------------- LICENCE BEGIN ------------------------------------
!Environment Canada - Atmospheric Science and Technology License/Disclaimer,
! version 3; Last Modified: May 7, 2008.
!This is free but copyrighted software; you can use/redistribute/modify it under the terms
!of the Environment Canada - Atmospheric Science and Technology License/Disclaimer
!version 3 or (at your option) any later version that should be found at:
!http://collaboration.cmc.ec.gc.ca/science/rpn.comm/license.html
!
!This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
!without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
!See the above mentioned License/Disclaimer for more details.
!You should have received a copy of the License/Disclaimer along with this software;
!if not, you can write to: EC-RPN COMM Group, 2121 TransCanada, suite 500, Dorval (Quebec),
!CANADA, H9P 1J3; or send e-mail to service.rpn@ec.gc.ca
!-------------------------------------- LICENCE END --------------------------------------
***S/P CKDLW - SPECTRAL LONGWAVE CHARACTERISTICS
*
#include "phy_macros_f.h"
block data ckdlw
*
#include "impnone.cdk"
*
*Author
*
* J. Li, M. Lazare, CCCMA, rt code for gcm4
* (Ref: J. Li, H. W. Barker, 2005:
* JAS Vol. 62, no. 2, pp. 286\226309)
* P. Vaillancourt, D. Talbot, RPN/CMC;
* adapted for CMC/RPN physics (May 2006)
*
*Revisions
*
* 001 J. Li (May 2006) revised for more accurate CO2, CH4, N2O etc.
*
*Object
*
* Initializes longwave spectral characteristics
*
*Arguments
*
* None
*
*Implicites
*
#include "bandl.cdk"
#include "bandlh.cdk"
*
**
integer i, j, k, l
c
c----------------------------------------------------------------------
c li 2006 revised version, compared to li / barker (2005) the minor
c gas, co2, n2o, ch4 ect are more accurately evalued
c----------------------------------------------------------------------
c
c----------------------------------------------------------------------
c spectral region: 2200-2500 cm^-1. gas: h2o, co2
c k in unit cm^2 / gram for all data in longwave
c----------------------------------------------------------------------
c
data gwl1 / .58960 /
data (( cl1h2o(k,j), k = 1, 5), j = 1, 18) /
1 .8463e-02, .2622e-03, .2968e-05, .1722e-07, .7358e-10,
1 .8392e-02, .2716e-03, .3341e-05, .1616e-07, .1154e-10,
1 .8297e-02, .2726e-03, .3504e-05, .1656e-07,-.8750e-11,
1 .8433e-02, .2793e-03, .3531e-05, .1713e-07, .8238e-11,
1 .8504e-02, .2699e-03, .3244e-05, .1973e-07, .7424e-10,
1 .8605e-02, .2726e-03, .3293e-05, .2049e-07, .7921e-10,
1 .8721e-02, .2691e-03, .3125e-05, .2128e-07, .1110e-09,
1 .8808e-02, .2700e-03, .3145e-05, .2214e-07, .1193e-09,
1 .8962e-02, .2790e-03, .3323e-05, .1894e-07, .5808e-10,
1 .8873e-02, .2810e-03, .3531e-05, .1907e-07, .2816e-10,
1 .9020e-02, .2971e-03, .3904e-05, .1578e-07,-.5359e-10,
1 .9034e-02, .2907e-03, .3809e-05, .2002e-07, .7863e-11,
1 .9055e-02, .2882e-03, .3743e-05, .2084e-07, .2538e-10,
1 .9016e-02, .2828e-03, .3628e-05, .2221e-07, .5447e-10,
1 .8954e-02, .2842e-03, .3718e-05, .2161e-07, .3400e-10,
1 .8952e-02, .2814e-03, .3630e-05, .2150e-07, .4247e-10,
1 .8995e-02, .2822e-03, .3611e-05, .2091e-07, .3877e-10,
1 .9008e-02, .2840e-03, .3670e-05, .2073e-07, .2898e-10 /
data (( cl1co2(k,j), k = 1, 5), j = 1, 18) /
1 .3750e-02, .5631e-04, .5047e-06, .3244e-08, .1141e-10,
1 .5295e-02, .7627e-04, .6552e-06, .4026e-08, .1324e-10,
1 .7515e-02, .1043e-03, .8729e-06, .5059e-08, .1330e-10,
1 .1073e-01, .1434e-03, .1148e-05, .6471e-08, .1710e-10,
1 .1538e-01, .1990e-03, .1519e-05, .8306e-08, .2373e-10,
1 .2205e-01, .2777e-03, .2065e-05, .1069e-07, .2624e-10,
1 .3163e-01, .3876e-03, .2884e-05, .1393e-07, .1447e-10,
1 .4533e-01, .5371e-03, .3946e-05, .1876e-07, .5174e-11,
1 .6510e-01, .7394e-03, .5106e-05, .2548e-07, .3026e-10,
1 .9339e-01, .1020e-02, .6554e-05, .3276e-07, .5768e-10,
1 .1336e+00, .1415e-02, .8463e-05, .3987e-07, .8482e-10,
1 .1898e+00, .1949e-02, .1101e-04, .4891e-07, .1193e-09,
1 .2672e+00, .2631e-02, .1463e-04, .6277e-07, .7797e-10,
1 .3723e+00, .3457e-02, .1789e-04, .8474e-07, .1461e-09,
1 .5139e+00, .4514e-02, .2123e-04, .1055e-06, .1815e-09,
1 .7043e+00, .5927e-02, .2552e-04, .1231e-06, .5667e-10,
1 .9590e+00, .7710e-02, .2835e-04, .1354e-06, .1905e-10,
1 .1286e+01, .9959e-02, .2563e-04, .1152e-06, .8956e-09 /
c
data gwl1gh / .30820, .09000, .00950, .00190, .00080 /
data ((( cl1co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
2 .3386e-01, .1081e-02, .1733e-04, .1954e-06, .1162e-08,
2 .4164e-01, .1204e-02, .1798e-04, .1891e-06, .1091e-08,
2 .5424e-01, .1388e-02, .1929e-04, .1855e-06, .9841e-09,
2 .7457e-01, .1659e-02, .2131e-04, .1829e-06, .8467e-09,
2 .1080e+00, .2057e-02, .2425e-04, .1858e-06, .7022e-09,
2 .1654e+00, .2670e-02, .2816e-04, .1921e-06, .5825e-09,
2 .2655e+00, .3627e-02, .3361e-04, .2008e-06, .4447e-09,
2 .4435e+00, .5099e-02, .3976e-04, .2210e-06, .5863e-09,
2 .7639e+00, .7420e-02, .4812e-04, .2565e-06, .9377e-09,
2 .1350e+01, .1132e-01, .6045e-04, .2829e-06, .1458e-08,
2 .3332e+01, .2307e-01, .8875e-04, .2935e-06, .3430e-08,
2 .4708e+01, .3058e-01, .1095e-03, .2942e-06, .3974e-08,
2 .6679e+01, .4114e-01, .1572e-03, .2484e-06, .7995e-09,
2 .9515e+01, .5563e-01, .2222e-03, .1933e-06,-.3611e-08,
2 .1362e+02, .7456e-01, .2996e-03, .3084e-06,-.8150e-08,
2 .1955e+02, .1002e+00, .3893e-03, .5929e-06,-.1222e-07,
2 .2816e+02, .1362e+00, .4591e-03, .1068e-05,-.8373e-08,
2 .4062e+02, .1864e+00, .5152e-03, .1632e-05, .7534e-09,
2 .5859e+02, .2568e+00, .5221e-03, .1820e-05, .1803e-07,
2 .8424e+02, .3596e+00, .5387e-03, .1990e-06, .4071e-07,
2 .1200e+03, .4962e+00, .8864e-03,-.2323e-05, .2778e-07,
2 .1698e+03, .6540e+00, .1570e-02,-.2340e-05,-.2889e-07,
2 .2391e+03, .8348e+00, .1910e-02, .2717e-05,-.2095e-07,
2 .3342e+03, .1063e+01, .1651e-02, .8258e-05, .1077e-07,
2 .4612e+03, .1397e+01, .1057e-02, .8872e-05, .2221e-07,
2 .6235e+03, .1866e+01, .2486e-03, .1035e-04,-.2119e-07,
2 .8261e+03, .2559e+01,-.1467e-02, .9500e-07, .2243e-06,
2 .1077e+04, .3339e+01, .9005e-03,-.1966e-04,-.4305e-07,
3 .5932e+02, .1350e+01, .1011e-01, .2364e-04, .6568e-07,
3 .5967e+02, .1353e+01, .1013e-01, .2376e-04, .6770e-07,
3 .6020e+02, .1356e+01, .1015e-01, .2393e-04, .6867e-07,
3 .6113e+02, .1356e+01, .1019e-01, .2411e-04, .6914e-07,
3 .6282e+02, .1353e+01, .1026e-01, .2490e-04, .5620e-07,
3 .6604e+02, .1346e+01, .1035e-01, .2737e-04, .1660e-07,
3 .7221e+02, .1343e+01, .1016e-01, .2995e-04, .7247e-09,
3 .8319e+02, .1373e+01, .9489e-02, .2947e-04, .3561e-07,
3 .1015e+03, .1457e+01, .9321e-02, .2558e-04,-.3552e-07,
3 .1322e+03, .1608e+01, .9306e-02, .2064e-04,-.9056e-07,
3 .2237e+03, .2018e+01, .7178e-02, .1064e-04, .2845e-06,
3 .2807e+03, .2251e+01, .7599e-02, .7573e-05, .3110e-06,
3 .3585e+03, .2534e+01, .8437e-02, .7390e-05, .3359e-06,
3 .4639e+03, .2843e+01, .1015e-01, .1264e-04, .2762e-06,
3 .6105e+03, .3221e+01, .1257e-01, .1572e-04, .4361e-08,
3 .8157e+03, .3626e+01, .1266e-01, .2787e-04, .2349e-07,
3 .1099e+04, .4069e+01, .7835e-02, .5184e-04, .8594e-06,
3 .1476e+04, .4778e+01, .8521e-02, .5386e-04, .8495e-06,
3 .1986e+04, .6010e+01, .1149e-01, .9949e-05, .5839e-07,
3 .2660e+04, .7531e+01, .8864e-02,-.8752e-05, .2437e-06,
3 .3517e+04, .9374e+01,-.1056e-02,-.1464e-04, .1997e-05,
3 .4556e+04, .1258e+02, .7477e-02,-.3274e-03, .2783e-05,
3 .5820e+04, .1261e+02, .4821e-01,-.2741e-03,-.9930e-07,
3 .7488e+04, .9746e+01, .4588e-01,-.1616e-03, .9232e-06,
3 .9594e+04, .6047e+01, .4831e-01,-.1583e-03,-.1090e-08,
3 .1205e+05, .1404e+01, .3867e-01,-.1330e-03, .1186e-05,
3 .1461e+05,-.4140e+01, .3629e-01,-.7791e-04, .4109e-06,
3 .1691e+05,-.9701e+01, .1519e-01, .2626e-04, .1900e-05,
4 .8031e+04, .1108e+03, .5676e+00, .5074e-03,-.8368e-05,
4 .8054e+04, .1112e+03, .5693e+00, .5084e-03,-.8399e-05,
4 .8077e+04, .1115e+03, .5709e+00, .5089e-03,-.8423e-05,
4 .8107e+04, .1119e+03, .5726e+00, .5088e-03,-.8439e-05,
4 .8137e+04, .1122e+03, .5740e+00, .5011e-03,-.8314e-05,
4 .8174e+04, .1125e+03, .5753e+00, .4743e-03,-.7917e-05,
4 .8225e+04, .1127e+03, .5802e+00, .4449e-03,-.7790e-05,
4 .8334e+04, .1123e+03, .5913e+00, .4434e-03,-.8248e-05,
4 .8573e+04, .1109e+03, .6000e+00, .4841e-03,-.7934e-05,
4 .9094e+04, .1085e+03, .6004e+00, .4602e-03,-.6777e-05,
4 .1118e+05, .1006e+03, .5788e+00, .1092e-02,-.1028e-04,
4 .1276e+05, .9796e+02, .4902e+00, .1525e-02,-.4247e-05,
4 .1496e+05, .9808e+02, .3840e+00, .1711e-02, .4420e-06,
4 .1797e+05, .1033e+03, .1696e+00, .1560e-02, .2227e-04,
4 .2178e+05, .1122e+03, .1048e+00, .1536e-02, .1923e-04,
4 .2641e+05, .1312e+03, .1271e+00,-.3552e-03, .1274e-04,
4 .3194e+05, .1545e+03, .1467e+00,-.3056e-02, .3089e-04,
4 .3863e+05, .1596e+03, .5432e+00,-.4380e-02,-.1294e-04,
4 .4778e+05, .1283e+03, .5363e+00,-.2441e-02, .6829e-05,
4 .6024e+05, .7851e+02, .5839e+00,-.4097e-03,-.1083e-04,
4 .7620e+05, .2604e+02, .3901e+00,-.9757e-03, .1166e-04,
4 .9449e+05,-.4956e+02, .5480e+00, .2999e-02,-.4223e-04,
4 .1138e+06,-.9243e+02,-.3933e+00, .2885e-02, .5007e-04,
4 .1275e+06,-.9904e+02,-.2590e+00, .1375e-02,-.1198e-04,
4 .1327e+06,-.9577e+02,-.5899e+00, .1029e-02, .4779e-04,
4 .1276e+06,-.8550e+02,-.4074e+00, .5605e-03, .1668e-04,
4 .1142e+06,-.7082e+02,-.3251e+00, .2442e-03, .7819e-05,
4 .9601e+05,-.5656e+02,-.2808e+00, .3004e-03, .7696e-05 /
data ((( cl1co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 5) /
5 .1847e+06, .1731e+04, .1583e+00,-.2352e-01, .1778e-03,
5 .1852e+06, .1736e+04, .1581e+00,-.2358e-01, .1782e-03,
5 .1858e+06, .1740e+04, .1574e+00,-.2365e-01, .1789e-03,
5 .1862e+06, .1745e+04, .1553e+00,-.2369e-01, .1797e-03,
5 .1868e+06, .1749e+04, .1525e+00,-.2376e-01, .1805e-03,
5 .1874e+06, .1753e+04, .1417e+00,-.2382e-01, .1825e-03,
5 .1882e+06, .1756e+04, .1206e+00,-.2387e-01, .1860e-03,
5 .1891e+06, .1758e+04, .7838e-01,-.2393e-01, .1924e-03,
5 .1907e+06, .1759e+04,-.7653e-02,-.2406e-01, .2059e-03,
5 .1933e+06, .1753e+04,-.1190e+00,-.2388e-01, .2250e-03,
5 .2019e+06, .1709e+04,-.2599e+00,-.2485e-01, .2667e-03,
5 .2085e+06, .1665e+04,-.4332e-01,-.2420e-01, .2426e-03,
5 .2185e+06, .1581e+04, .5595e+00,-.2128e-01, .1628e-03,
5 .2320e+06, .1474e+04, .2444e+01,-.2002e-01,-.1509e-03,
5 .2540e+06, .1292e+04, .2079e+01,-.1509e-01,-.4953e-04,
5 .2861e+06, .1053e+04, .1518e+01,-.1230e-01, .7896e-04,
5 .3326e+06, .7310e+03, .2836e+01,-.9726e-02,-.2503e-03,
5 .3974e+06, .3448e+03, .1919e+00, .1114e-02, .1254e-03,
5 .4666e+06, .1159e+03, .1751e+01,-.1444e-01,-.2194e-03,
5 .5325e+06,-.1251e+03,-.2931e+00,-.1769e-01, .1522e-03,
5 .5716e+06,-.3368e+03, .1209e+01,-.6679e-02,-.2033e-03,
5 .5739e+06,-.4409e+03,-.2369e+01, .3085e-02, .2164e-03,
5 .5281e+06,-.3563e+03,-.1607e+01,-.3552e-02, .3949e-04,
5 .4509e+06,-.2535e+03,-.1090e+01,-.6273e-02, .4530e-04,
5 .3630e+06,-.2092e+03, .3817e-01, .8051e-03,-.1688e-03,
5 .2792e+06,-.1499e+03,-.5683e+00, .6571e-03,-.2298e-04,
5 .2071e+06,-.1085e+03,-.7127e+00, .1850e-02, .2799e-04,
5 .1499e+06,-.7816e+02,-.4744e+00, .5079e-03, .1075e-04,
6 .4531e+07,-.8866e+04,-.1141e+02, .9453e-01,-.2300e-03,
6 .4541e+07,-.8885e+04,-.1150e+02, .9474e-01,-.2189e-03,
6 .4551e+07,-.8905e+04,-.1150e+02, .9513e-01,-.2251e-03,
6 .4561e+07,-.8925e+04,-.1146e+02, .9534e-01,-.2363e-03,
6 .4570e+07,-.8943e+04,-.1150e+02, .9537e-01,-.2310e-03,
6 .4579e+07,-.8960e+04,-.1146e+02, .9558e-01,-.2416e-03,
6 .4587e+07,-.8975e+04,-.1150e+02, .9570e-01,-.2375e-03,
6 .4593e+07,-.8985e+04,-.1137e+02, .9554e-01,-.2566e-03,
6 .4594e+07,-.8985e+04,-.1114e+02, .9520e-01,-.2866e-03,
6 .4586e+07,-.8965e+04,-.1072e+02, .9421e-01,-.3338e-03,
6 .4529e+07,-.8822e+04,-.9173e+01, .8377e-01,-.4314e-03,
6 .4490e+07,-.8711e+04,-.8155e+01, .7273e-01,-.4520e-03,
6 .4429e+07,-.8532e+04,-.8077e+01, .5734e-01,-.2730e-03,
6 .4341e+07,-.8362e+04,-.1026e+02, .5006e-01, .3530e-03,
6 .4209e+07,-.8018e+04,-.8387e+01, .3040e-01, .1827e-03,
6 .4023e+07,-.7613e+04,-.7191e+01, .4484e-01,-.6742e-04,
6 .3765e+07,-.6956e+04,-.1113e+02, .7199e-01, .4927e-03,
6 .3415e+07,-.5784e+04,-.1080e+02, .5975e-01, .8157e-04,
6 .2987e+07,-.4536e+04,-.1712e+02, .8200e-01, .9094e-03,
6 .2485e+07,-.3059e+04,-.1266e+02, .6247e-01, .8411e-04,
6 .1976e+07,-.1811e+04,-.1313e+02, .3818e-01, .5182e-03,
6 .1505e+07,-.8823e+03,-.7031e+01,-.2554e-02, .4503e-04,
6 .1110e+07,-.5785e+03,-.1678e+01, .5487e-02,-.3816e-03,
6 .8051e+06,-.4699e+03,-.4621e+01, .1417e-01, .3524e-03,
6 .5710e+06,-.2880e+03,-.2867e+01,-.2038e-02, .2093e-03,
6 .4000e+06,-.2006e+03,-.1789e+01, .2884e-03, .1007e-03,
6 .2778e+06,-.1390e+03,-.1061e+01,-.1315e-03, .4383e-04,
6 .1923e+06,-.9789e+02,-.6695e+00,-.1271e-03, .3942e-04 /
c
c----------------------------------------------------------------------
c spectral region: 1900-2200 cm^-1. gas: h2o
c----------------------------------------------------------------------
c
data gwl2 / .65000 /
data (( cl2h2o(k,j), k = 1, 5), j = 1, 18) /
1 .1635e-03, .2510e-05, .1165e-07, .6099e-11,-.6637e-13,
1 .2428e-03, .3731e-05, .1727e-07, .8565e-11,-.8956e-13,
1 .3603e-03, .5548e-05, .2564e-07, .1195e-10,-.1220e-12,
1 .5345e-03, .8248e-05, .3813e-07, .1682e-10,-.1752e-12,
1 .7928e-03, .1226e-04, .5699e-07, .2270e-10,-.2956e-12,
1 .1175e-02, .1823e-04, .8542e-07, .3186e-10,-.5231e-12,
1 .1739e-02, .2706e-04, .1287e-06, .4714e-10,-.9960e-12,
1 .2570e-02, .4011e-04, .1939e-06, .7463e-10,-.1852e-11,
1 .3793e-02, .5927e-04, .2896e-06, .1431e-09,-.2750e-11,
1 .5588e-02, .8725e-04, .4266e-06, .2680e-09,-.3413e-11,
1 .8207e-02, .1282e-03, .6235e-06, .4425e-09,-.3973e-11,
1 .1202e-01, .1875e-03, .9017e-06, .7194e-09,-.3595e-11,
1 .1748e-01, .2737e-03, .1297e-05, .8795e-09,-.2771e-11,
1 .2519e-01, .3970e-03, .1885e-05, .9664e-09,-.3063e-11,
1 .3575e-01, .5659e-03, .2843e-05, .1564e-08,-.2169e-10,
1 .5020e-01, .7858e-03, .4096e-05, .3595e-08,-.4269e-10,
1 .7024e-01, .1068e-02, .5442e-05, .7079e-08,-.4472e-10,
1 .9820e-01, .1444e-02, .6762e-05, .9510e-08,-.2463e-10 /
data (( cl2cs(k,j), k = 1, 5), j = 1, 3) /
1 .2074e+01,-.3404e-01, .3410e-03,-.2830e-05, .1315e-07,
1 .3090e+01,-.5095e-01, .5008e-03,-.4236e-05, .2128e-07,
1 .4599e+01,-.7532e-01, .7173e-03,-.6543e-05, .3852e-07 /
data (( cl2cf(k,j), k = 1, 5), j = 1, 3) /
1 .1645e-01,-.1179e-04, .4388e-06,-.9480e-09,-.7306e-10,
1 .2422e-01,-.1917e-04, .4174e-06,-.1452e-08,-.7633e-10,
1 .3556e-01,-.1747e-04,-.4582e-07,-.4974e-08, .1378e-10 /
c
data gwl2gh / .35000 /
data (( cl2h2ogh(k,j), k = 1, 5), j = 1, 28) /
1 .3402e+01, .2934e-01, .4803e-05,-.2079e-06, .6822e-09,
1 .3468e+01, .2991e-01, .4902e-05,-.2120e-06, .6954e-09,
1 .3535e+01, .3049e-01, .5015e-05,-.2159e-06, .7054e-09,
1 .3602e+01, .3106e-01, .5104e-05,-.2200e-06, .7192e-09,
1 .3668e+01, .3164e-01, .5168e-05,-.2241e-06, .7385e-09,
1 .3735e+01, .3221e-01, .5290e-05,-.2280e-06, .7472e-09,
1 .3802e+01, .3279e-01, .5377e-05,-.2322e-06, .7613e-09,
1 .3869e+01, .3336e-01, .5486e-05,-.2363e-06, .7722e-09,
1 .3935e+01, .3394e-01, .5573e-05,-.2405e-06, .7872e-09,
1 .4002e+01, .3451e-01, .5669e-05,-.2446e-06, .8003e-09,
1 .4065e+01, .3506e-01, .5779e-05,-.2484e-06, .8106e-09,
1 .4130e+01, .3564e-01, .5857e-05,-.2525e-06, .8281e-09,
1 .4197e+01, .3621e-01, .5962e-05,-.2567e-06, .8412e-09,
1 .4264e+01, .3679e-01, .6058e-05,-.2609e-06, .8562e-09,
1 .4329e+01, .3736e-01, .6171e-05,-.2652e-06, .8692e-09,
1 .4394e+01, .3794e-01, .6279e-05,-.2694e-06, .8841e-09,
1 .4460e+01, .3850e-01, .6409e-05,-.2738e-06, .8969e-09,
1 .4523e+01, .3907e-01, .6532e-05,-.2780e-06, .9115e-09,
1 .4587e+01, .3963e-01, .6646e-05,-.2823e-06, .9258e-09,
1 .4652e+01, .4019e-01, .6765e-05,-.2864e-06, .9355e-09,
1 .4716e+01, .4075e-01, .6816e-05,-.2905e-06, .9500e-09,
1 .4781e+01, .4130e-01, .6831e-05,-.2946e-06, .9629e-09,
1 .4844e+01, .4183e-01, .6790e-05,-.2989e-06, .9745e-09,
1 .4908e+01, .4236e-01, .6666e-05,-.3028e-06, .9879e-09,
1 .4970e+01, .4287e-01, .6389e-05,-.3071e-06, .1009e-08,
1 .5031e+01, .4335e-01, .6006e-05,-.3119e-06, .1030e-08,
1 .5090e+01, .4381e-01, .5556e-05,-.3174e-06, .1046e-08,
1 .5145e+01, .4424e-01, .5125e-05,-.3225e-06, .1050e-08 /
data (( cl2csgh(k,j), k = 1, 5), j = 1, 3) /
1 .6173e+01,-.9432e-01, .7384e-03,-.5151e-05, .3060e-07,
1 .9216e+01,-.1404e+00, .1120e-02,-.7676e-05, .4232e-07,
1 .1376e+02,-.2109e+00, .1733e-02,-.1102e-04, .4933e-07 /
data (( cl2cfgh(k,j), k = 1, 5), j = 1, 3) /
1 .9702e-01,-.5003e-03, .1178e-05,-.7351e-08, .1902e-09,
1 .1451e+00,-.7394e-03, .2253e-05,-.1085e-07, .2121e-09,
1 .2170e+00,-.1121e-02, .4710e-05,-.1042e-07, .5378e-10 /
c
c----------------------------------------------------------------------
c spectral region: 1400-1900 cm^-1. gas: h2o
c----------------------------------------------------------------------
c
data gwl3 / .35000, .42800 /
data ((( cl3h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 2) /
1 .1346e-01, .3885e-04,-.1051e-06, .1206e-09,-.3369e-11,
1 .2004e-01, .5747e-04,-.1486e-06, .2288e-09,-.5499e-11,
1 .2983e-01, .8477e-04,-.2198e-06, .4393e-09,-.7404e-11,
1 .4442e-01, .1251e-03,-.3292e-06, .7923e-09,-.9568e-11,
1 .6618e-01, .1843e-03,-.4857e-06, .1357e-08,-.1418e-10,
1 .9847e-01, .2718e-03,-.7280e-06, .2189e-08,-.2010e-10,
1 .1467e+00, .4012e-03,-.1094e-05, .3386e-08,-.2946e-10,
1 .2183e+00, .5922e-03,-.1624e-05, .5178e-08,-.4821e-10,
1 .3247e+00, .8738e-03,-.2425e-05, .7887e-08,-.7561e-10,
1 .4824e+00, .1290e-02,-.3749e-05, .1189e-07,-.9333e-10,
1 .7162e+00, .1903e-02,-.5877e-05, .1754e-07,-.8788e-10,
1 .1060e+01, .2814e-02,-.9071e-05, .2461e-07,-.6135e-10,
1 .1565e+01, .4155e-02,-.1449e-04, .3320e-07, .9926e-10,
1 .2302e+01, .6147e-02,-.2199e-04, .3954e-07, .2928e-09,
1 .3371e+01, .9014e-02,-.3310e-04, .5333e-07, .6451e-09,
1 .4910e+01, .1318e-01,-.5060e-04, .6969e-07, .1479e-08,
1 .7113e+01, .1895e-01,-.7459e-04, .1205e-06, .2632e-08,
1 .1025e+02, .2642e-01,-.1077e-03, .2868e-06, .3422e-08,
2 .1827e+00, .3217e-03, .2040e-06, .3824e-08,-.1900e-10,
2 .2697e+00, .4479e-03, .1816e-06, .5756e-08,-.2757e-10,
2 .3983e+00, .6269e-03, .6031e-07, .8292e-08,-.3313e-10,
2 .5886e+00, .8792e-03,-.2372e-06, .1193e-07,-.3245e-10,
2 .8702e+00, .1242e-02,-.7474e-06, .1636e-07,-.3505e-10,
2 .1286e+01, .1761e-02,-.1512e-05, .2243e-07,-.5179e-10,
2 .1902e+01, .2518e-02,-.2696e-05, .2919e-07,-.7042e-10,
2 .2808e+01, .3618e-02,-.4325e-05, .3677e-07,-.1088e-09,
2 .4137e+01, .5203e-02,-.7001e-05, .4220e-07,-.7366e-10,
2 .6076e+01, .7428e-02,-.9254e-05, .5012e-07,-.1806e-09,
2 .8884e+01, .1047e-01,-.7983e-05, .7354e-07,-.1034e-08,
2 .1292e+02, .1458e-01,-.4125e-05, .1232e-06,-.2362e-08,
2 .1871e+02, .1936e-01, .1851e-05, .3028e-06,-.4561e-08,
2 .2696e+02, .2490e-01, .3493e-06, .6347e-06,-.7641e-08,
2 .3871e+02, .3116e-01,-.6083e-04, .1167e-05,-.3467e-08,
2 .5530e+02, .4078e-01,-.1803e-03, .1381e-05, .2540e-08,
2 .7833e+02, .5606e-01,-.2409e-03, .1278e-05,-.6412e-08,
2 .1096e+03, .6881e-01,-.3671e-03, .2262e-05,-.1106e-07 /
data ((( cl3cs(k,j,i), k = 1, 5), j = 1, 4), i = 1, 2) /
1 .3996e+02,-.5365e+00, .3540e-02,-.2717e-04, .2081e-06,
1 .5942e+02,-.7948e+00, .5248e-02,-.4151e-04, .3219e-06,
1 .8827e+02,-.1189e+01, .8359e-02,-.6131e-04, .3842e-06,
1 .1308e+03,-.1790e+01, .1399e-01,-.8808e-04, .2861e-06,
2 .7479e+02,-.1212e+01, .1079e-01,-.7085e-04, .2736e-06,
2 .1124e+03,-.1825e+01, .1624e-01,-.1047e-03, .3862e-06,
2 .1688e+03,-.2728e+01, .2371e-01,-.1581e-03, .6927e-06,
2 .2536e+03,-.4072e+01, .3414e-01,-.2392e-03, .1289e-05 /
data ((( cl3cf(k,j,i), k = 1, 5), j = 1, 4), i = 1, 2) /
1 .1834e+01,-.3554e-02,-.1324e-05,-.1868e-06, .4608e-08,
1 .2720e+01,-.5179e-02,-.1857e-06,-.3105e-06, .6846e-08,
1 .4029e+01,-.7783e-02, .3094e-04,-.4834e-06, .4418e-08,
1 .5946e+01,-.1209e-01, .1296e-03,-.7238e-06,-.9306e-08,
2 .4059e+01,-.1863e-01, .8584e-04,-.2080e-06,-.2539e-08,
2 .6099e+01,-.2803e-01, .1283e-03,-.2700e-06,-.4145e-08,
2 .9158e+01,-.4174e-01, .1571e-03,-.4211e-06, .3909e-09,
2 .1376e+02,-.6215e-01, .1582e-03,-.6142e-06, .1511e-07 /
c
data gwl3gh / .21200, .00900, .00100 /
data ((( cl3h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
1 .2818e+01, .4977e-01, .3333e-03, .1033e-05, .5543e-09,
1 .2852e+01, .5005e-01, .3357e-03, .1037e-05, .6017e-09,
1 .2904e+01, .5029e-01, .3382e-03, .1042e-05, .6547e-09,
1 .2990e+01, .5042e-01, .3410e-03, .1044e-05, .7345e-09,
1 .3143e+01, .5032e-01, .3453e-03, .1065e-05, .4436e-09,
1 .3436e+01, .4988e-01, .3482e-03, .1138e-05,-.1935e-09,
1 .3997e+01, .4948e-01, .3348e-03, .1222e-05, .7964e-09,
1 .5031e+01, .5016e-01, .3080e-03, .1223e-05, .2391e-08,
1 .6866e+01, .5321e-01, .2905e-03, .1111e-05, .1466e-08,
1 .1009e+02, .5979e-01, .2750e-03, .9415e-06, .1258e-08,
1 .2023e+02, .7639e-01, .3233e-03, .1042e-05,-.1104e-07,
1 .2702e+02, .8421e-01, .3657e-03, .1351e-05,-.1924e-07,
1 .3660e+02, .9413e-01, .3198e-03, .1687e-05,-.1054e-07,
1 .5018e+02, .1060e+00, .2284e-03, .2134e-05, .2182e-08,
1 .6946e+02, .1204e+00, .1469e-03, .2435e-05, .4934e-08,
1 .9688e+02, .1372e+00, .5108e-04, .2902e-05, .5369e-08,
1 .1356e+03, .1614e+00,-.4585e-04, .3030e-05,-.1509e-08,
1 .1902e+03, .1914e+00,-.2006e-03, .3070e-05,-.8193e-08,
1 .2661e+03, .2191e+00,-.3400e-03, .4267e-05,-.3542e-07,
1 .3698e+03, .2405e+00,-.7398e-03, .6909e-05,-.3960e-07,
1 .5068e+03, .2605e+00,-.1477e-02, .1130e-04,-.4522e-07,
1 .6786e+03, .3004e+00,-.2379e-02, .1174e-04,-.4238e-07,
1 .8796e+03, .3413e+00,-.3577e-02, .9236e-05, .5275e-07,
1 .1099e+04, .3193e+00,-.3336e-02, .7836e-05,-.5794e-07,
1 .1322e+04, .2322e+00,-.3523e-02, .1497e-04,-.1227e-06,
1 .1525e+04, .1338e+00,-.3548e-02, .1797e-04,-.1815e-06,
1 .1696e+04,-.1624e-02,-.3572e-02, .1515e-04,-.1152e-06,
1 .1825e+04,-.1337e+00,-.3511e-02, .5190e-05, .4501e-07,
2 .1141e+05, .7342e+02,-.1039e+00,-.3141e-03, .3118e-05,
2 .1148e+05, .7392e+02,-.1046e+00,-.3161e-03, .3141e-05,
2 .1156e+05, .7441e+02,-.1052e+00,-.3181e-03, .3158e-05,
2 .1165e+05, .7490e+02,-.1059e+00,-.3203e-03, .3172e-05,
2 .1173e+05, .7538e+02,-.1065e+00,-.3228e-03, .3195e-05,
2 .1181e+05, .7583e+02,-.1070e+00,-.3267e-03, .3215e-05,
2 .1190e+05, .7621e+02,-.1068e+00,-.3309e-03, .3172e-05,
2 .1202e+05, .7644e+02,-.1061e+00,-.3354e-03, .3129e-05,
2 .1218e+05, .7635e+02,-.1052e+00,-.3401e-03, .3181e-05,
2 .1243e+05, .7562e+02,-.1030e+00,-.3404e-03, .3128e-05,
2 .1320e+05, .7181e+02,-.9546e-01,-.3504e-03, .2937e-05,
2 .1379e+05, .6938e+02,-.8864e-01,-.3585e-03, .2327e-05,
2 .1460e+05, .6611e+02,-.8538e-01,-.3954e-03, .2062e-05,
2 .1570e+05, .6148e+02,-.7656e-01,-.3982e-03, .1060e-05,
2 .1718e+05, .5490e+02,-.8533e-01,-.3193e-03, .3048e-05,
2 .1908e+05, .4677e+02,-.8618e-01,-.2462e-03, .4298e-05,
2 .2138e+05, .3694e+02,-.6726e-01,-.1685e-03, .2112e-05,
2 .2403e+05, .2616e+02,-.6348e-01, .4946e-05,-.1312e-07,
2 .2666e+05, .1605e+02,-.3698e-01, .1642e-03,-.5717e-05,
2 .2888e+05, .6788e+01,-.4987e-01, .4297e-03,-.5067e-05,
2 .3024e+05, .1303e+01,-.3833e-01, .1349e-03,-.4714e-05,
2 .3042e+05,-.3760e+01,-.5905e-01,-.8417e-04, .5035e-05,
2 .2933e+05,-.8881e+01, .1676e-01,-.5683e-04,-.3842e-05,
2 .2728e+05,-.1272e+02, .1116e-01, .6502e-04,-.8432e-06,
2 .2440e+05,-.1390e+02, .1179e-01,-.1524e-03, .1268e-05,
2 .2112e+05,-.1461e+02, .2503e-01,-.3063e-03, .2521e-05,
2 .1778e+05,-.1432e+02, .3541e-01,-.3318e-03, .1949e-05,
2 .1459e+05,-.1398e+02, .5595e-01,-.1771e-03,-.2845e-05,
3 .4620e+06,-.9277e+03, .8396e+00, .3048e-02,-.4573e-04,
3 .4647e+06,-.9322e+03, .8442e+00, .3071e-02,-.4592e-04,
3 .4674e+06,-.9377e+03, .8487e+00, .3089e-02,-.4613e-04,
3 .4701e+06,-.9431e+03, .8526e+00, .3107e-02,-.4631e-04,
3 .4727e+06,-.9485e+03, .8577e+00, .3119e-02,-.4673e-04,
3 .4752e+06,-.9530e+03, .8603e+00, .3142e-02,-.4688e-04,
3 .4776e+06,-.9576e+03, .8591e+00, .3162e-02,-.4652e-04,
3 .4797e+06,-.9603e+03, .8565e+00, .3201e-02,-.4653e-04,
3 .4811e+06,-.9603e+03, .8497e+00, .3272e-02,-.4681e-04,
3 .4811e+06,-.9540e+03, .8312e+00, .3305e-02,-.4627e-04,
3 .4742e+06,-.9195e+03, .7422e+00, .3348e-02,-.4106e-04,
3 .4700e+06,-.8967e+03, .6618e+00, .3325e-02,-.3259e-04,
3 .4628e+06,-.8660e+03, .6419e+00, .3593e-02,-.3209e-04,
3 .4516e+06,-.8219e+03, .5752e+00, .3479e-02,-.2460e-04,
3 .4350e+06,-.7585e+03, .6894e+00, .2544e-02,-.4573e-04,
3 .4122e+06,-.6799e+03, .7230e+00, .1644e-02,-.5840e-04,
3 .3823e+06,-.5859e+03, .5548e+00, .7847e-03,-.3405e-04,
3 .3449e+06,-.4838e+03, .5570e+00,-.1030e-02,-.1073e-04,
3 .3025e+06,-.3884e+03, .3217e+00,-.2968e-02, .5427e-04,
3 .2574e+06,-.3008e+03, .5530e+00,-.6339e-02, .4849e-04,
3 .2125e+06,-.2520e+03, .6118e+00,-.4391e-02, .4666e-04,
3 .1707e+06,-.2130e+03, .1042e+01,-.2282e-02,-.5365e-04,
3 .1341e+06,-.1744e+03, .5511e+00,-.2045e-02, .1543e-04,
3 .1017e+06,-.1342e+03, .5526e+00,-.3116e-02, .1288e-04,
3 .7507e+05,-.1065e+03, .6268e+00,-.2878e-02, .4302e-05,
3 .5468e+05,-.8312e+02, .5621e+00,-.2137e-02, .2262e-05,
3 .3924e+05,-.6453e+02, .5006e+00,-.1175e-02,-.4003e-05,
3 .2792e+05,-.4693e+02, .3507e+00,-.9196e-03, .8430e-05 /
data (( cl3csgh(k,j), k = 1, 5), j = 1, 4) /
1 .8254e+02,-.1308e+01, .1136e-01,-.8548e-04, .4490e-06,
1 .1227e+03,-.1942e+01, .1684e-01,-.1282e-03, .6873e-06,
1 .1828e+03,-.2898e+01, .2532e-01,-.1890e-03, .9647e-06,
1 .2721e+03,-.4314e+01, .3809e-01,-.2830e-03, .1388e-05 /
data (( cl3cfgh(k,j), k = 1, 5), j = 1, 4) /
1 .4588e+01,-.1977e-01, .8047e-04,-.3912e-06, .1906e-08,
1 .6826e+01,-.2936e-01, .1185e-03,-.6154e-06, .3345e-08,
1 .1018e+02,-.4402e-01, .1899e-03,-.8496e-06, .2045e-08,
1 .1517e+02,-.6521e-01, .3075e-03,-.1328e-05,-.7347e-09 /
c
c----------------------------------------------------------------------
c spectral region: 1100_1400 cm^-1. gas: h2o, n2o, ch4, cfc12
c----------------------------------------------------------------------
c
data gwl4 / .36900, .35000, .15000 /
data (cl4f12(i), i = 1, 3) / 1889.1868, 323.8123, 80.2538 /
data ((( cl4h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 3) /
1 .1031e-04, .1826e-06, .1079e-08, .2463e-11, .4303e-14,
1 .1523e-04, .2699e-06, .1599e-08, .3618e-11, .6012e-14,
1 .2251e-04, .3984e-06, .2356e-08, .5378e-11, .9628e-14,
1 .3324e-04, .5880e-06, .3478e-08, .8158e-11, .1584e-13,
1 .4916e-04, .8704e-06, .5160e-08, .1187e-10, .1951e-13,
1 .7283e-04, .1288e-05, .7518e-08, .1748e-10, .4731e-13,
1 .1078e-03, .1910e-05, .1120e-07, .2518e-10, .5002e-13,
1 .1596e-03, .2824e-05, .1635e-07, .3723e-10, .1103e-12,
1 .2352e-03, .4183e-05, .2446e-07, .5151e-10, .1025e-12,
1 .3452e-03, .6134e-05, .3618e-07, .8014e-10, .1423e-12,
1 .5071e-03, .9028e-05, .5359e-07, .1137e-09, .1156e-12,
1 .7386e-03, .1318e-04, .7940e-07, .1745e-09, .1064e-12,
1 .1067e-02, .1899e-04, .1141e-06, .2726e-09, .4488e-12,
1 .1523e-02, .2709e-04, .1624e-06, .3956e-09, .7335e-12,
1 .2157e-02, .3843e-04, .2333e-06, .5987e-09, .1074e-11,
1 .3045e-02, .5403e-04, .3274e-06, .8606e-09, .1627e-11,
1 .4252e-02, .7493e-04, .4549e-06, .1260e-08, .2327e-11,
1 .5911e-02, .1031e-03, .6136e-06, .1660e-08, .2808e-11,
2 .7210e-03, .1073e-04, .4978e-07, .2085e-10,-.2316e-12,
2 .1056e-02, .1572e-04, .7336e-07, .3982e-10,-.2763e-12,
2 .1544e-02, .2302e-04, .1115e-06, .6264e-10,-.9682e-12,
2 .2260e-02, .3363e-04, .1667e-06, .1212e-09,-.1726e-11,
2 .3310e-02, .4920e-04, .2434e-06, .1868e-09,-.2280e-11,
2 .4850e-02, .7179e-04, .3489e-06, .3060e-09,-.2001e-11,
2 .7090e-02, .1047e-03, .5158e-06, .4822e-09,-.3987e-11,
2 .1035e-01, .1521e-03, .7370e-06, .8422e-09,-.2474e-11,
2 .1506e-01, .2207e-03, .1067e-05, .1244e-08,-.3318e-11,
2 .2179e-01, .3175e-03, .1539e-05, .1969e-08,-.4617e-11,
2 .3150e-01, .4567e-03, .2199e-05, .2960e-08,-.5516e-11,
2 .4514e-01, .6518e-03, .3167e-05, .4712e-08,-.1033e-10,
2 .6406e-01, .9201e-03, .4348e-05, .6409e-08,-.5384e-11,
2 .8968e-01, .1285e-02, .5975e-05, .7605e-08,-.1221e-10,
2 .1237e+00, .1784e-02, .8120e-05, .9982e-08, .3780e-10,
2 .1664e+00, .2434e-02, .1269e-04, .1205e-07,-.2105e-09,
2 .2208e+00, .3214e-02, .1618e-04, .2881e-07,-.1681e-10,
2 .2876e+00, .4326e-02, .2328e-04, .3072e-07,-.1893e-09,
3 .3555e-01, .4939e-03, .2202e-05, .2562e-08, .3365e-12,
3 .5086e-01, .6926e-03, .2922e-05, .3750e-08, .1668e-10,
3 .7279e-01, .9770e-03, .4169e-05, .4927e-08,-.3053e-11,
3 .1047e+00, .1387e-02, .5742e-05, .5489e-08,-.1302e-10,
3 .1509e+00, .1968e-02, .7618e-05, .6211e-08, .2400e-10,
3 .2177e+00, .2806e-02, .1032e-04, .5494e-08, .5450e-10,
3 .3135e+00, .3998e-02, .1449e-04, .7003e-08, .4750e-10,
3 .4506e+00, .5684e-02, .1929e-04, .7057e-08, .2089e-09,
3 .6449e+00, .8064e-02, .2685e-04, .1465e-08, .2065e-09,
3 .9158e+00, .1133e-01, .3666e-04,-.6898e-08, .1988e-09,
3 .1287e+01, .1582e-01, .5281e-04,-.2308e-07,-.3474e-09,
3 .1774e+01, .2167e-01, .7358e-04,-.9641e-08,-.6404e-09,
3 .2401e+01, .2924e-01, .9720e-04, .3228e-07, .1382e-09,
3 .3196e+01, .3987e-01, .1439e-03, .1625e-07,-.5042e-09,
3 .4244e+01, .5478e-01, .2064e-03,-.3616e-07,-.8172e-09,
3 .5657e+01, .7474e-01, .2853e-03,-.1613e-06,-.2677e-08,
3 .7495e+01, .9994e-01, .3788e-03,-.2989e-06,-.5521e-08,
3 .9857e+01, .1310e+00, .4372e-03,-.3699e-06, .1317e-08 /
data ((( cl4n2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 3) /
1 .5352e+00, .3677e-02, .2539e-04, .1270e-06,-.2485e-08,
1 .7456e+00, .3829e-02, .5156e-04, .3504e-06,-.7427e-08,
1 .1030e+01, .4500e-02, .9070e-04, .5375e-06,-.1462e-07,
1 .1442e+01, .5165e-02, .1309e-03, .8179e-06,-.2228e-07,
1 .1995e+01, .5786e-02, .1808e-03, .1231e-05,-.3114e-07,
1 .2748e+01, .7409e-02, .2656e-03, .1535e-05,-.4640e-07,
1 .3844e+01, .8311e-02, .3374e-03, .2229e-05,-.6028e-07,
1 .5330e+01, .1109e-01, .4844e-03, .2803e-05,-.8881e-07,
1 .7480e+01, .1074e-01, .6359e-03, .4583e-05,-.1246e-06,
1 .1016e+02, .1707e-01, .9136e-03, .5241e-05,-.1790e-06,
1 .1329e+02, .1890e-01, .1044e-02, .6682e-05,-.2024e-06,
1 .1737e+02, .2072e-01, .1161e-02, .7691e-05,-.2283e-06,
1 .2260e+02, .2603e-01, .1406e-02, .8480e-05,-.2777e-06,
1 .2916e+02, .3130e-01, .1679e-02, .1043e-04,-.3341e-06,
1 .3439e+02, .2751e-01, .1476e-02, .9293e-05,-.2947e-06,
1 .3890e+02, .1177e-02, .9888e-03, .1836e-04,-.2377e-06,
1 .4276e+02,-.1281e-01, .9086e-03, .2746e-04,-.2537e-06,
1 .4416e+02, .2579e-02, .1584e-02, .2785e-04,-.3909e-06,
2 .9681e+00, .2496e-02, .1219e-03, .7108e-06,-.2094e-07,
2 .1346e+01, .3627e-02, .1671e-03, .7917e-06,-.2920e-07,
2 .1908e+01, .4182e-02, .2021e-03, .1101e-05,-.3597e-07,
2 .2679e+01, .5379e-02, .2599e-03, .1427e-05,-.4589e-07,
2 .3791e+01, .7097e-02, .3409e-03, .1851e-05,-.5974e-07,
2 .5408e+01, .8293e-02, .4210e-03, .2659e-05,-.7414e-07,
2 .7701e+01, .1034e-01, .5349e-03, .3473e-05,-.9594e-07,
2 .1095e+02, .1300e-01, .6827e-03, .4443e-05,-.1269e-06,
2 .1524e+02, .1926e-01, .9232e-03, .4858e-05,-.1654e-06,
2 .2110e+02, .2264e-01, .1078e-02, .5867e-05,-.1837e-06,
2 .2931e+02, .2378e-01, .1162e-02, .6929e-05,-.1955e-06,
2 .4056e+02, .2337e-01, .1231e-02, .8576e-05,-.2137e-06,
2 .5562e+02, .2452e-01, .1324e-02, .9390e-05,-.2395e-06,
2 .7522e+02, .1069e-01, .9489e-03, .1183e-04,-.1861e-06,
2 .1008e+03, .2208e-01, .1401e-02, .1189e-04,-.2874e-06,
2 .1344e+03, .4483e-01, .1613e-02,-.8996e-06,-.2965e-06,
2 .1743e+03, .7540e-01, .1373e-02,-.2505e-04,-.7663e-07,
2 .2228e+03, .1325e-01,-.1606e-02,-.3499e-04, .6216e-06,
3 .5532e+00, .2040e-02, .1001e-03, .6278e-06,-.1615e-07,
3 .7802e+00, .2514e-02, .1268e-03, .8350e-06,-.2090e-07,
3 .1075e+01, .3829e-02, .1814e-03, .1010e-05,-.2978e-07,
3 .1487e+01, .5334e-02, .2465e-03, .1299e-05,-.3953e-07,
3 .2099e+01, .6797e-02, .3206e-03, .1792e-05,-.5177e-07,
3 .3008e+01, .7403e-02, .3818e-03, .2660e-05,-.6261e-07,
3 .4334e+01, .9910e-02, .5169e-03, .3537e-05,-.8937e-07,
3 .6195e+01, .1333e-01, .7035e-03, .5013e-05,-.1198e-06,
3 .8867e+01, .1729e-01, .9308e-03, .6789e-05,-.1618e-06,
3 .1220e+02, .2430e-01, .1261e-02, .8677e-05,-.2141e-06,
3 .1708e+02, .3094e-01, .1648e-02, .1164e-04,-.2900e-06,
3 .2392e+02, .4165e-01, .2213e-02, .1491e-04,-.4079e-06,
3 .3253e+02, .4594e-01, .2673e-02, .2039e-04,-.5269e-06,
3 .4172e+02, .6956e-01, .3824e-02, .2474e-04,-.7928e-06,
3 .5342e+02, .8139e-01, .4848e-02, .3709e-04,-.9981e-06,
3 .6592e+02, .1340e+00, .7047e-02, .4551e-04,-.1328e-05,
3 .8729e+02, .1029e+00, .7484e-02, .7256e-04,-.1639e-05,
3 .1137e+03, .1297e+00, .9863e-02, .8875e-04,-.2492e-05 /
data ((( cl4ch4(k,j,i), k = 1, 5), j = 1, 18), i = 1, 3) /
1 .1013e+01, .1389e-01, .9350e-04,-.1495e-07,-.3589e-08,
1 .1235e+01, .1474e-01, .8023e-04, .3430e-07,-.2620e-08,
1 .1529e+01, .1620e-01, .4371e-04, .1082e-06, .3233e-08,
1 .1887e+01, .1876e-01, .3419e-04,-.4816e-07, .4460e-08,
1 .2358e+01, .2121e-01, .1904e-04, .2803e-08, .5875e-08,
1 .3018e+01, .2549e-01, .2619e-04,-.2158e-06, .4832e-09,
1 .3967e+01, .3180e-01,-.1509e-04,-.4655e-06, .3890e-08,
1 .5170e+01, .4039e-01, .2906e-04,-.5128e-06,-.5494e-08,
1 .6809e+01, .5064e-01, .3552e-04,-.5007e-06,-.1065e-07,
1 .9071e+01, .6644e-01, .1009e-03,-.7255e-06,-.2796e-07,
1 .1193e+02, .7979e-01, .2968e-03, .2414e-06,-.6499e-07,
1 .1540e+02, .1020e+00, .8656e-03,-.6238e-06,-.1925e-06,
1 .1947e+02, .1219e+00, .9229e-03, .4015e-06,-.2110e-06,
1 .2393e+02, .1438e+00, .1179e-02, .3385e-05,-.2772e-06,
1 .2688e+02, .1892e+00, .1142e-02, .2709e-05,-.2795e-06,
1 .2867e+02, .1650e+00, .1103e-02, .1409e-04,-.2552e-06,
1 .3231e+02, .1855e+00,-.1364e-02, .1542e-04, .7437e-07,
1 .3189e+02, .2112e+00,-.1109e-02, .1130e-04,-.5062e-09,
2 .3114e+01, .2564e-01, .1909e-03, .6902e-06,-.1365e-08,
2 .3894e+01, .2704e-01, .1947e-03, .7554e-06,-.2757e-09,
2 .4987e+01, .2805e-01, .2255e-03, .8441e-06,-.5963e-08,
2 .6532e+01, .2966e-01, .1930e-03, .6752e-06,-.1421e-08,
2 .8668e+01, .3072e-01, .1585e-03, .8305e-06, .5670e-08,
2 .1164e+02, .3335e-01, .7636e-04, .7893e-06, .2454e-07,
2 .1559e+02, .3144e-01, .1631e-03, .1268e-05, .1048e-07,
2 .2127e+02, .2649e-01, .1060e-03, .2111e-05, .2096e-07,
2 .2887e+02, .2910e-01, .1645e-03, .1496e-05, .2108e-07,
2 .3962e+02, .2476e-01,-.9411e-04, .2460e-05, .7336e-07,
2 .5374e+02, .2619e-01, .2140e-03, .1353e-05, .3909e-07,
2 .7353e+02, .1876e-01,-.7671e-03, .2902e-06, .2308e-06,
2 .9724e+02, .2614e-02, .3571e-04,-.6065e-06, .1276e-06,
2 .1247e+03,-.2589e-01,-.3391e-03,-.2655e-05, .2277e-06,
2 .1557e+03,-.8213e-01, .1580e-02, .5640e-05,-.1842e-06,
2 .1901e+03,-.5342e-01,-.3738e-02,-.2312e-05, .6392e-06,
2 .2106e+03,-.4772e-01, .2876e-03,-.7175e-06, .3327e-07,
2 .2300e+03,-.1209e+00, .4089e-03, .1314e-04, .8312e-07,
3 .2378e+01, .2382e-01, .7290e-04, .1014e-05, .1799e-07,
3 .2853e+01, .2484e-01, .1351e-03, .1226e-05, .7481e-08,
3 .3547e+01, .2653e-01, .1297e-03, .1166e-05, .7109e-08,
3 .4473e+01, .2644e-01, .1889e-03, .2087e-05, .1058e-08,
3 .5827e+01, .3093e-01, .2320e-03, .1787e-05,-.9971e-08,
3 .7631e+01, .3272e-01, .4201e-03, .2214e-05,-.4402e-07,
3 .1038e+02, .4273e-01, .3857e-03, .8334e-06,-.4584e-07,
3 .1410e+02, .4260e-01, .3035e-03, .2678e-05,-.3234e-07,
3 .1948e+02, .4899e-01, .2328e-03, .3382e-05,-.3586e-07,
3 .2691e+02, .6779e-01,-.1256e-03, .1748e-05,-.1639e-08,
3 .3792e+02, .9096e-01,-.1354e-02, .2344e-05, .1631e-06,
3 .5060e+02, .1119e+00,-.1372e-02, .7329e-05, .1725e-06,
3 .6630e+02, .1754e+00,-.2323e-02, .6273e-06, .3445e-06,
3 .8457e+02, .1577e+00,-.1154e-02, .1047e-04, .9122e-07,
3 .1032e+03, .4394e-01,-.3106e-02, .3387e-04, .3549e-06,
3 .1241e+03, .1383e+00,-.3407e-02, .1369e-04, .3763e-06,
3 .1401e+03, .3055e+00, .1301e-03,-.2744e-04,-.2450e-06,
3 .1513e+03, .4018e+00,-.1091e-02,-.4980e-04, .2365e-06 /
data ((( cl4cs(k,j,i), k = 1, 5), j = 1, 4), i = 1, 3) /
1 .1996e+01,-.4209e-01, .4782e-03,-.4669e-05, .2789e-07,
1 .2958e+01,-.6253e-01, .7107e-03,-.6936e-05, .4145e-07,
1 .4387e+01,-.9278e-01, .1054e-02,-.1031e-04, .6198e-07,
1 .6503e+01,-.1377e+00, .1568e-02,-.1534e-04, .9199e-07,
2 .3511e+01,-.5131e-01, .4408e-03,-.3193e-05, .1570e-07,
2 .5142e+01,-.7514e-01, .6367e-03,-.4829e-05, .2661e-07,
2 .7493e+01,-.1089e+00, .9467e-03,-.7576e-05, .4105e-07,
2 .1096e+02,-.1598e+00, .1423e-02,-.1110e-04, .5383e-07,
3 .7045e+01,-.8634e-01, .5874e-03,-.3721e-05, .1874e-07,
3 .1052e+02,-.1287e+00, .9053e-03,-.5582e-05, .2212e-07,
3 .1580e+02,-.1981e+00, .1356e-02,-.6796e-05, .2345e-07,
3 .2363e+02,-.2961e+00, .1962e-02,-.1021e-04, .4543e-07 /
data ((( cl4cf(k,j,i), k = 1, 5), j = 1, 4), i = 1, 3) /
1 .6259e-03,-.2009e-05, .1888e-07, .9046e-10,-.3348e-11,
1 .8516e-03,-.3490e-05, .3813e-07, .3078e-09,-.6954e-11,
1 .1193e-02,-.6436e-05, .5539e-07, .8833e-09,-.1223e-10,
1 .1609e-02,-.9595e-05, .1244e-06, .1457e-08,-.2870e-10,
2 .4641e-01,-.1151e-03, .4501e-06, .2838e-08,-.3628e-10,
2 .6576e-01,-.1495e-03, .5227e-07, .1272e-08, .7797e-10,
2 .9136e-01,-.1338e-03, .6725e-06,-.1423e-07, .1059e-09,
2 .1288e+00,-.1423e-03, .2042e-05,-.2090e-07,-.1179e-09,
3 .1985e+00,-.8023e-03, .3010e-05,-.2548e-07, .1672e-09,
3 .2973e+00,-.1189e-02, .6045e-05,-.4201e-07,-.2906e-10,
3 .4499e+00,-.2040e-02, .7924e-05,-.5028e-08,-.1059e-09,
3 .6751e+00,-.3113e-02, .9422e-05,-.1228e-07, .2685e-09 /
c
data gwl4gh / .06500, .05000, .01500, .00100 /
data ((( cl4h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
4 .3677e+03, .4081e+01, .8958e-02,-.4876e-04,-.2099e-06,
4 .3676e+03, .4081e+01, .9033e-02,-.4876e-04,-.2222e-06,
4 .3677e+03, .4081e+01, .9017e-02,-.4874e-04,-.2196e-06,
4 .3677e+03, .4074e+01, .8779e-02,-.4727e-04,-.1723e-06,
4 .3677e+03, .4071e+01, .8710e-02,-.4666e-04,-.1584e-06,
4 .3677e+03, .4073e+01, .8770e-02,-.4848e-04,-.1888e-06,
4 .3677e+03, .4085e+01, .8570e-02,-.6018e-04,-.1736e-07,
4 .3680e+03, .4113e+01, .9025e-02,-.6566e-04,-.1185e-06,
4 .3679e+03, .4116e+01, .9168e-02,-.6544e-04,-.1300e-06,
4 .3720e+03, .4120e+01, .5610e-02,-.6476e-04, .4435e-06,
4 .3727e+03, .3879e+01, .1265e-01,-.1009e-04,-.9386e-06,
4 .3737e+03, .3658e+01, .1843e-01, .3533e-04,-.2151e-05,
4 .3746e+03, .3649e+01, .1759e-01, .5441e-04,-.1774e-05,
4 .3938e+03, .3786e+01, .1965e-02, .2935e-04, .6588e-06,
4 .4112e+03, .3831e+01,-.1445e-01, .2169e-04, .3310e-05,
4 .4114e+03, .3879e+01,-.1317e-01, .1426e-04, .3075e-05,
4 .4112e+03, .4295e+01,-.6721e-03,-.5181e-04, .8021e-06,
4 .4109e+03, .4660e+01, .1009e-01,-.1192e-03,-.1284e-05,
4 .4104e+03, .4542e+01, .8416e-02,-.3002e-04, .6028e-08,
4 .4096e+03, .4530e+01, .8354e-02,-.2998e-04, .7467e-08,
4 .4085e+03, .4516e+01, .8435e-02,-.2988e-04,-.1158e-07,
4 .4071e+03, .4493e+01, .8252e-02,-.2916e-04, .1356e-07,
4 .4050e+03, .4460e+01, .8173e-02,-.2856e-04, .3599e-08,
4 .4029e+03, .4409e+01, .7832e-02,-.2621e-04,-.5472e-09,
4 .4001e+03, .4376e+01, .6843e-02,-.2972e-04, .1078e-06,
4 .3950e+03, .4362e+01, .7719e-02,-.4044e-04,-.1235e-06,
4 .3875e+03, .4261e+01, .7380e-02,-.3651e-04,-.7544e-07,
4 .3780e+03, .4136e+01, .6954e-02,-.2987e-04, .1261e-07,
5 .1196e+01, .2258e-01, .1731e-03, .6231e-07,-.8577e-08,
5 .1211e+01, .2270e-01, .1639e-03, .6129e-07,-.6977e-08,
5 .1215e+01, .2281e-01, .1670e-03, .6084e-07,-.7367e-08,
5 .1216e+01, .2390e-01, .2001e-03,-.1373e-06,-.1381e-07,
5 .1223e+01, .2443e-01, .2103e-03,-.2208e-06,-.1579e-07,
5 .1231e+01, .2425e-01, .2036e-03, .2740e-07,-.1179e-07,
5 .1237e+01, .2476e-01, .2027e-03,-.4751e-07,-.1143e-07,
5 .1208e+01, .2105e-01, .1416e-03, .7113e-06, .2271e-08,
5 .1222e+01, .2065e-01, .1226e-03, .6857e-06, .3857e-08,
5 .1208e+01, .2030e-01, .8400e-04, .6255e-06, .1059e-07,
5 .1202e+01, .2045e-01, .5045e-04,-.7397e-07, .7790e-08,
5 .1137e+01, .2047e-01, .1176e-03,-.6183e-07,-.2934e-08,
5 .1096e+01, .1993e-01, .1383e-03,-.1652e-06,-.8633e-08,
5 .1092e+01, .2015e-01, .1540e-03,-.1010e-06,-.1015e-07,
5 .1094e+01, .1983e-01, .1367e-03, .3804e-07,-.5846e-08,
5 .1077e+01, .1778e-01, .9232e-04, .4990e-06, .4127e-08,
5 .1068e+01, .1770e-01, .7858e-04, .5414e-06, .7668e-08,
5 .1043e+01, .1818e-01, .9865e-04, .1832e-06, .4453e-09,
5 .1020e+01, .1805e-01, .1020e-03, .2073e-06, .1611e-09,
5 .9833e+00, .1753e-01, .9792e-04, .2831e-06, .1373e-08,
5 .9295e+00, .1684e-01, .8135e-04, .2437e-06, .2950e-08,
5 .8487e+00, .1648e-01, .9180e-04, .1523e-06, .1879e-09,
5 .7665e+00, .1632e-01, .8980e-04, .1229e-06, .7768e-09,
5 .6464e+00, .1715e-01, .7446e-04,-.2421e-06, .6696e-08,
5 .4559e+00, .1430e-01, .1839e-03, .5816e-07,-.1099e-07,
5 .3932e+00, .6761e-02, .4381e-04, .1158e-05, .1411e-07,
5 .4103e+00, .8305e-02, .6476e-04, .2819e-06, .1523e-08,
5 .3943e+00, .7586e-02, .7021e-04, .2554e-06,-.1233e-08,
6 .2291e+02, .2414e+00,-.5357e-03, .1053e-04, .1517e-06,
6 .2300e+02, .2424e+00,-.5382e-03, .1057e-04, .1525e-06,
6 .2310e+02, .2434e+00,-.5403e-03, .1062e-04, .1530e-06,
6 .2319e+02, .2444e+00,-.5429e-03, .1066e-04, .1537e-06,
6 .2329e+02, .2454e+00,-.5451e-03, .1070e-04, .1544e-06,
6 .2338e+02, .2464e+00,-.5480e-03, .1074e-04, .1552e-06,
6 .2347e+02, .2391e+00,-.4340e-03, .1746e-04, .6058e-07,
6 .2355e+02, .2401e+00,-.4378e-03, .1753e-04, .6145e-07,
6 .2364e+02, .2410e+00,-.4402e-03, .1760e-04, .6179e-07,
6 .2154e+02, .2416e+00, .1675e-02, .1755e-04,-.2813e-06,
6 .2127e+02, .3752e+00,-.2090e-02,-.9913e-05, .4955e-06,
6 .2110e+02, .4992e+00,-.5587e-02,-.3531e-04, .1215e-05,
6 .2082e+02, .5085e+00,-.5222e-02,-.4569e-04, .1032e-05,
6 .1012e+02, .4319e+00, .3465e-02,-.3204e-04,-.3240e-06,
6 .3465e+00, .4086e+00, .1280e-01,-.2839e-04,-.1837e-05,
6 .2085e+00, .3895e+00, .1229e-01,-.2611e-04,-.1751e-05,
6 .2376e+00, .1525e+00, .5283e-02, .1117e-04,-.4802e-06,
6 .2892e+00,-.6002e-01,-.9306e-03, .5105e-04, .7361e-06,
6 .2978e+00, .2643e-02,-.2675e-05, .1258e-06, .1633e-08,
6 .3467e+00, .5126e-02, .2709e-04,-.2041e-06,-.4122e-08,
6 .4132e+00, .6298e-02, .1114e-04,-.6761e-07, .1834e-08,
6 .4730e+00, .8083e-02, .3006e-04,-.1657e-06,-.1230e-08,
6 .5246e+00, .1134e-01, .3127e-04,-.4996e-06, .6019e-09,
6 .4229e+00, .1385e-01, .1890e-03,-.4208e-06,-.1898e-07,
6 .3123e+00, .1080e-01, .2047e-03, .5193e-06,-.1303e-07,
6 .2788e+00, .3659e-02, .5013e-04, .2719e-05, .3046e-07,
6 .2956e+00, .4363e-04,-.3853e-04, .3910e-05, .5484e-07,
6 .3507e+00, .4698e-02, .1568e-04, .2007e-06, .2700e-08 /
data ((( cl4h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 4) /
7 .3578e-02, .1953e-04, .1739e-06, .3378e-09,-.2091e-10,
7 .3609e-02, .1972e-04, .1754e-06, .3405e-09,-.2109e-10,
7 .3642e-02, .1993e-04, .1769e-06, .3427e-09,-.2124e-10,
7 .3678e-02, .2020e-04, .1788e-06, .3445e-09,-.2141e-10,
7 .3723e-02, .2056e-04, .1808e-06, .3452e-09,-.2155e-10,
7 .3781e-02, .2116e-04, .1835e-06, .3435e-09,-.2167e-10,
7 .3870e-02, .2219e-04, .1875e-06, .3371e-09,-.2170e-10,
7 .4026e-02, .2414e-04, .1891e-06, .3205e-09,-.2079e-10,
7 .4057e-02, .2433e-04, .1905e-06, .3230e-09,-.2095e-10,
7 .4856e-02, .3558e-04, .2084e-06, .2088e-09,-.1695e-10,
7 .6884e-02, .6363e-04, .2255e-06,-.1181e-10,-.2621e-11,
7 .9020e-02, .8631e-04,-.3367e-06,-.3890e-09, .1024e-09,
7 .1127e-01, .1201e-03,-.2289e-06,-.1058e-08, .1024e-09,
7 .1457e-01, .1533e-03, .3781e-06, .1704e-08, .1729e-10,
7 .1956e-01, .2225e-03, .4505e-06, .1604e-08, .5431e-10,
7 .2608e-01, .3434e-03, .1909e-05,-.7490e-09,-.1496e-09,
7 .3754e-01, .5465e-03, .7747e-06,-.1153e-07, .1822e-09,
7 .4898e-01, .8081e-03, .5735e-05,-.2267e-07,-.4589e-09,
7 .6929e-01, .9620e-03, .4940e-05, .1925e-07,-.1124e-09,
7 .3898e-01, .1387e-04, .6630e-06, .2901e-06, .3408e-08,
7 .6039e-01, .5644e-03, .3587e-05, .2115e-07, .6851e-10,
7 .8073e-01, .1069e-02, .1094e-04,-.5267e-07,-.1366e-08,
7 .1101e+00, .8703e-03, .2159e-05, .9095e-07, .1080e-08,
7 .1235e+00, .1856e-02, .1076e-04, .3682e-07, .9557e-09,
7 .1473e+00, .2219e-02, .9199e-05, .3796e-07, .2313e-09,
7 .1904e+00, .3097e-02, .1372e-04,-.7320e-08,-.1588e-09,
7 .1738e+00, .2593e-02, .1548e-04, .1122e-06, .9098e-09,
7 .1192e+00, .6719e-03,-.2408e-05, .1622e-06, .2470e-08 /
data ((( cl4n2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
4 .1620e-01, .3760e-03, .1555e-04, .8465e-07,-.1495e-08,
4 .1766e-01, .3802e-03, .1589e-04, .9102e-07,-.1498e-08,
4 .2024e-01, .3845e-03, .1629e-04, .9704e-07,-.1552e-08,
4 .2505e-01, .3976e-03, .1712e-04, .1034e-06,-.1738e-08,
4 .3340e-01, .4179e-03, .1849e-04, .1139e-06,-.2083e-08,
4 .4859e-01, .4045e-03, .1961e-04, .1492e-06,-.2299e-08,
4 .7190e-01, .4661e-03, .2342e-04, .1758e-06,-.3208e-08,
4 .1058e+00, .7485e-03, .3497e-04, .2034e-06,-.5264e-08,
4 .1748e+00, .9098e-03, .4576e-04, .3114e-06,-.7237e-08,
4 .2519e+00, .1917e-02, .8186e-04, .3116e-06,-.1317e-07,
4 .5367e+00, .3486e-02, .1509e-03, .5952e-06,-.2475e-07,
4 .7273e+00, .3655e-02, .1730e-03, .1023e-05,-.2671e-07,
4 .9565e+00, .5581e-02, .2450e-03, .1157e-05,-.3664e-07,
4 .1347e+01, .6687e-02, .3048e-03, .1604e-05,-.4693e-07,
4 .1861e+01, .8443e-02, .3864e-03, .2006e-05,-.6096e-07,
4 .2670e+01, .9704e-02, .4792e-03, .2994e-05,-.7905e-07,
4 .3719e+01, .1285e-01, .6459e-03, .4182e-05,-.1078e-06,
4 .5195e+01, .1667e-01, .8469e-03, .5414e-05,-.1472e-06,
4 .7028e+01, .2519e-01, .1195e-02, .6240e-05,-.2088e-06,
4 .9545e+01, .2938e-01, .1469e-02, .8643e-05,-.2665e-06,
4 .1259e+02, .4646e-01, .2168e-02, .1036e-04,-.3889e-06,
4 .1589e+02, .5661e-01, .2788e-02, .1632e-04,-.4872e-06,
4 .2043e+02, .7755e-01, .3832e-02, .2170e-04,-.6977e-06,
4 .2564e+02, .1230e+00, .5660e-02, .2517e-04,-.1028e-05,
4 .3234e+02, .1484e+00, .6985e-02, .3419e-04,-.1263e-05,
4 .3790e+02, .2113e+00, .9208e-02, .3412e-04,-.1608e-05,
4 .4388e+02, .1892e+00, .9240e-02, .5412e-04,-.1580e-05,
4 .4625e+02, .2689e+00, .1193e-01, .5198e-04,-.1974e-05,
5 .4318e+04, .1418e+00, .1003e-01, .9275e-04,-.2233e-05,
5 .4318e+04, .1418e+00, .1003e-01, .9270e-04,-.2233e-05,
5 .4318e+04, .1418e+00, .1002e-01, .9259e-04,-.2230e-05,
5 .4318e+04, .1412e+00, .9996e-02, .9248e-04,-.2223e-05,
5 .4318e+04, .1406e+00, .9959e-02, .9227e-04,-.2215e-05,
5 .4318e+04, .1399e+00, .9900e-02, .9164e-04,-.2201e-05,
5 .4316e+04, .1592e+00, .1031e-01, .8634e-04,-.2236e-05,
5 .4316e+04, .1558e+00, .1009e-01, .8454e-04,-.2184e-05,
5 .4315e+04, .1719e+00, .9392e-02, .6355e-04,-.1840e-05,
5 .4312e+04, .1950e+00, .9694e-02, .5348e-04,-.1835e-05,
5 .4308e+04, .2904e-01, .7855e-02, .1200e-03,-.2304e-05,
5 .4304e+04, .4598e-01, .7378e-02, .1014e-03,-.2051e-05,
5 .4297e+04, .1401e+00, .7409e-02, .7155e-04,-.7383e-06,
5 .4322e+04,-.6964e-04, .4620e-02, .8173e-04,-.1438e-05,
5 .4284e+04, .4315e+00, .1280e-01,-.2160e-04,-.1003e-05,
5 .4315e+04, .3181e+00, .1096e-01,-.2543e-04,-.2253e-05,
5 .4269e+04, .2094e+00, .3476e-02,-.5140e-04, .5782e-06,
5 .4254e+04, .2232e+00, .1824e-02,-.1244e-03, .1630e-06,
5 .4198e+04,-.4545e-01,-.8734e-02,-.1174e-03, .2717e-05,
5 .4130e+04,-.1855e+00,-.1492e-01,-.1358e-03, .3972e-05,
5 .4056e+04,-.4110e+00,-.2334e-01,-.1570e-03, .4981e-05,
5 .3958e+04,-.5072e+00,-.2852e-01,-.1901e-03, .6026e-05,
5 .3826e+04,-.4598e+00,-.3066e-01,-.2672e-03, .6667e-05,
5 .3676e+04,-.7537e+00,-.3949e-01,-.2379e-03, .7865e-05,
5 .3486e+04,-.8141e+00,-.4485e-01,-.3068e-03, .8862e-05,
5 .3248e+04,-.1064e+01,-.5512e-01,-.3304e-03, .1077e-04,
5 .2956e+04,-.9317e+00,-.4862e-01,-.3024e-03, .9323e-05,
5 .2602e+04,-.8178e+00,-.4460e-01,-.2999e-03, .8777e-05,
6 .8290e+03,-.8364e+00,-.5812e-02, .3615e-03,-.4432e-05,
6 .8502e+03,-.8577e+00,-.5960e-02, .3707e-03,-.4545e-05,
6 .8714e+03,-.8791e+00,-.6109e-02, .3796e-03,-.4658e-05,
6 .8925e+03,-.9001e+00,-.6257e-02, .3889e-03,-.4772e-05,
6 .9137e+03,-.9211e+00,-.6406e-02, .3977e-03,-.4881e-05,
6 .9349e+03,-.9425e+00,-.6586e-02, .4069e-03,-.4982e-05,
6 .9586e+03,-.1015e+01,-.8055e-02, .4259e-03,-.4925e-05,
6 .9794e+03,-.1029e+01,-.8113e-02, .4320e-03,-.5026e-05,
6 .9998e+03,-.1100e+01,-.7428e-02, .4842e-03,-.5758e-05,
6 .1024e+04,-.1194e+01,-.1019e-01, .4958e-03,-.5352e-05,
6 .1040e+04,-.7810e+00,-.1103e-01, .2385e-03,-.2393e-05,
6 .1062e+04,-.8583e+00,-.1347e-01, .2441e-03,-.2037e-05,
6 .1087e+04,-.1152e+01,-.1809e-01, .2653e-03,-.4513e-05,
6 .1010e+04,-.7724e+00,-.1559e-01, .1551e-03,-.8484e-06,
6 .1107e+04,-.2100e+01,-.4670e-01, .3709e-03,-.2603e-06,
6 .9789e+03,-.1784e+01,-.4803e-01, .2760e-03, .5488e-05,
6 .1055e+04,-.1506e+01,-.3308e-01, .2480e-03,-.1042e-05,
6 .1004e+04,-.1432e+01,-.4164e-01, .1765e-03, .5636e-05,
6 .1037e+04,-.8368e+00,-.1976e-01, .1043e-03,-.4025e-06,
6 .1055e+04,-.6883e+00,-.1283e-01, .1120e-03,-.2396e-05,
6 .1024e+04,-.1219e+00, .4948e-02, .1013e-03,-.4002e-05,
6 .9711e+03, .5349e-01, .1134e-01, .1025e-03,-.5099e-05,
6 .9103e+03,-.3251e+00, .5074e-02, .2656e-03,-.4155e-05,
6 .7860e+03, .5217e+00, .2157e-01, .2289e-04,-.4815e-05,
6 .6765e+03, .3535e+00, .2096e-01, .1599e-03,-.4326e-05,
6 .5914e+03, .6814e+00, .3913e-01, .2612e-03,-.8620e-05,
6 .5188e+03, .2468e+00, .1657e-01, .1198e-03,-.4389e-05,
6 .5422e+03, .1346e+00, .1451e-01, .1604e-03,-.4157e-05 /
data ((( cl4n2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 4) /
7 .1321e+03, .7948e+01,-.8159e-01,-.5938e-02, .8233e-04,
7 .1355e+03, .8151e+01,-.8368e-01,-.6090e-02, .8444e-04,
7 .1389e+03, .8355e+01,-.8573e-01,-.6242e-02, .8651e-04,
7 .1422e+03, .8554e+01,-.8781e-01,-.6390e-02, .8861e-04,
7 .1456e+03, .8753e+01,-.8982e-01,-.6538e-02, .9068e-04,
7 .1490e+03, .8948e+01,-.9179e-01,-.6685e-02, .9266e-04,
7 .1524e+03, .9131e+01,-.9366e-01,-.6821e-02, .9456e-04,
7 .1591e+03, .9234e+01,-.9682e-01,-.6931e-02, .9640e-04,
7 .1625e+03, .9358e+01,-.9790e-01,-.7021e-02, .9765e-04,
7 .1659e+03, .9400e+01,-.9794e-01,-.7045e-02, .9794e-04,
7 .1619e+03, .9172e+01,-.8915e-01,-.6771e-02, .9322e-04,
7 .1655e+03, .9029e+01,-.8411e-01,-.6612e-02, .9038e-04,
7 .1685e+03, .8556e+01,-.8202e-01,-.6293e-02, .8676e-04,
7 .1721e+03, .7973e+01,-.7438e-01,-.5825e-02, .8025e-04,
7 .1763e+03, .7203e+01,-.6424e-01,-.5215e-02, .7137e-04,
7 .1814e+03, .5985e+01,-.5888e-01,-.4402e-02, .6190e-04,
7 .1762e+03, .4949e+01,-.4484e-01,-.3571e-02, .4995e-04,
7 .1759e+03, .2821e+00, .1841e-01, .1798e-03,-.3340e-05,
7 .1623e+03, .6589e+00, .2672e-01, .7037e-04,-.4445e-05,
7 .1551e+03, .7374e+00, .2545e-01, .6673e-05,-.3398e-05,
7 .1580e+03, .6916e+00, .2269e-01,-.2301e-04,-.3051e-05,
7 .1929e+03, .6795e+00, .2861e-01, .4746e-04,-.6151e-05,
7 .2474e+03, .1285e+00, .1176e-01, .1170e-03,-.3258e-05,
7 .3195e+03,-.1806e-01, .4445e-02, .9056e-04,-.1448e-05,
7 .5272e+03, .6935e+00, .2488e-01,-.2470e-04,-.4822e-05,
7 .8747e+03, .1590e+00, .2786e-02,-.8886e-04,-.1078e-05,
7 .1258e+04, .9429e+00, .6505e-01, .4744e-03,-.1753e-04,
7 .1627e+04, .3053e+01, .1717e+00, .1060e-02,-.3869e-04 /
data ((( cl4ch4gh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
4 .1096e+01, .2310e-01, .1681e-03, .4733e-06, .1941e-08,
4 .1136e+01, .2379e-01, .1634e-03, .4269e-06, .2824e-08,
4 .1179e+01, .2427e-01, .1530e-03, .4072e-06, .4641e-08,
4 .1193e+01, .2388e-01, .1419e-03, .5534e-06, .7296e-08,
4 .1203e+01, .2692e-01, .2160e-03,-.1112e-06,-.8471e-08,
4 .1229e+01, .2760e-01, .2176e-03,-.2260e-06,-.8678e-08,
4 .1281e+01, .2583e-01, .1422e-03, .1790e-06, .6600e-08,
4 .1307e+01, .2609e-01, .1873e-03, .1594e-06,-.5950e-09,
4 .1425e+01, .2579e-01, .1866e-03, .3277e-06, .4706e-09,
4 .1583e+01, .2272e-01, .1715e-03, .8885e-06, .3369e-08,
4 .2361e+01, .2412e-01, .1471e-03, .9877e-06, .7524e-08,
4 .2881e+01, .2777e-01, .1715e-03, .3425e-06,-.1109e-08,
4 .3501e+01, .3516e-01, .2774e-03,-.5703e-06,-.1510e-07,
4 .4577e+01, .3878e-01, .2601e-03,-.3286e-06,-.1034e-07,
4 .6128e+01, .4098e-01, .1550e-03, .1311e-06, .1627e-07,
4 .7991e+01, .4586e-01, .3565e-03,-.4776e-07,-.1998e-07,
4 .1065e+02, .4788e-01, .2960e-03, .1461e-05,-.2506e-10,
4 .1419e+02, .6666e-01,-.1699e-03,-.8252e-06, .9559e-07,
4 .1913e+02, .7312e-01,-.4743e-03,-.1172e-06, .1234e-06,
4 .2502e+02, .7391e-01,-.5504e-05, .1373e-05, .3382e-07,
4 .3176e+02, .1002e+00,-.3554e-03,-.1273e-05, .6218e-07,
4 .3787e+02, .1461e+00, .2011e-02,-.6425e-05,-.3632e-06,
4 .4649e+02, .1169e+00, .5177e-03, .1107e-04,-.8000e-07,
4 .5425e+02, .1975e+00,-.1489e-02, .4356e-05, .2780e-06,
4 .6057e+02, .3105e+00,-.3002e-03,-.5329e-05, .3185e-07,
4 .6698e+02, .4088e+00, .1579e-02,-.1398e-04,-.4094e-06,
4 .7952e+02, .4740e+00,-.4577e-03,-.1291e-04,-.1226e-06,
4 .9281e+02, .6004e+00, .7437e-03, .2567e-05,-.3487e-06,
5 .9786e+00, .2040e-01, .1738e-03, .4389e-06,-.2768e-08,
5 .1004e+01, .2068e-01, .1828e-03, .4907e-06,-.3830e-08,
5 .1048e+01, .2138e-01, .1811e-03, .4596e-06,-.3454e-08,
5 .1088e+01, .2183e-01, .1826e-03, .5018e-06,-.3270e-08,
5 .1122e+01, .2161e-01, .1820e-03, .6424e-06,-.2104e-08,
5 .1156e+01, .2181e-01, .1996e-03, .7914e-06,-.3427e-08,
5 .1252e+01, .2199e-01, .1896e-03, .8436e-06,-.1632e-08,
5 .1432e+01, .2368e-01, .1779e-03, .5882e-06,-.5063e-09,
5 .1746e+01, .2522e-01, .1559e-03, .6181e-06, .4477e-08,
5 .2265e+01, .2936e-01, .1579e-03, .3376e-06, .4062e-08,
5 .3705e+01, .3664e-01, .2836e-03, .1438e-06,-.2073e-07,
5 .4701e+01, .4264e-01, .2044e-03,-.2859e-06,-.2649e-08,
5 .6059e+01, .4574e-01, .2041e-03, .2844e-06, .4512e-08,
5 .7892e+01, .5300e-01, .3454e-03, .2519e-06,-.1835e-07,
5 .1044e+02, .5644e-01, .5486e-03, .7408e-06,-.5217e-07,
5 .1452e+02, .5003e-01, .1783e-04, .3181e-05, .3761e-07,
5 .2021e+02, .4703e-01,-.2819e-03, .5344e-05, .9408e-07,
5 .2779e+02, .6722e-01, .4101e-03, .2523e-06,-.7055e-07,
5 .3830e+02, .5994e-01, .3532e-03, .3883e-05,-.5347e-07,
5 .5211e+02, .7564e-01, .9519e-03, .6363e-05,-.1331e-06,
5 .7325e+02, .9354e-01, .8316e-03, .9231e-05,-.1578e-06,
5 .1012e+03, .1247e+00,-.8787e-03, .1488e-04, .1186e-06,
5 .1390e+03, .1617e+00,-.1852e-02, .2158e-04,-.7873e-07,
5 .1856e+03, .3278e+00,-.4613e-02, .1210e-04, .2131e-06,
5 .2347e+03, .7926e+00,-.1409e-01,-.9124e-04, .2493e-05,
5 .2480e+03, .4930e+00, .1719e-01,-.3521e-04,-.2378e-05,
5 .2992e+03,-.8185e-01,-.9054e-04, .4075e-04, .8889e-06,
5 .3448e+03,-.4333e+00, .1140e-02, .3472e-04,-.4038e-08,
6 .7499e+04, .3301e+02,-.1043e+00, .1891e-03, .3386e-05,
6 .7499e+04, .3300e+02,-.1043e+00, .1891e-03, .3387e-05,
6 .7499e+04, .3300e+02,-.1043e+00, .1890e-03, .3388e-05,
6 .7499e+04, .3300e+02,-.1043e+00, .1891e-03, .3388e-05,
6 .7503e+04, .3299e+02,-.1043e+00, .1891e-03, .3391e-05,
6 .7503e+04, .3297e+02,-.1042e+00, .1891e-03, .3399e-05,
6 .7507e+04, .3294e+02,-.1043e+00, .1888e-03, .3423e-05,
6 .7511e+04, .3286e+02,-.1042e+00, .1870e-03, .3471e-05,
6 .7528e+04, .3270e+02,-.1038e+00, .1834e-03, .3558e-05,
6 .7556e+04, .3232e+02,-.1025e+00, .1808e-03, .3655e-05,
6 .7679e+04, .3084e+02,-.9852e-01, .1832e-03, .3934e-05,
6 .7770e+04, .2983e+02,-.9627e-01, .1744e-03, .4166e-05,
6 .7905e+04, .2842e+02,-.9311e-01, .1626e-03, .4469e-05,
6 .8102e+04, .2649e+02,-.8774e-01, .1453e-03, .4735e-05,
6 .8372e+04, .2395e+02,-.7757e-01, .1191e-03, .4535e-05,
6 .8733e+04, .2076e+02,-.6847e-01, .1018e-03, .4682e-05,
6 .9184e+04, .1689e+02,-.5473e-01, .1105e-03, .4207e-05,
6 .9709e+04, .1243e+02,-.3561e-01, .1756e-03, .2242e-05,
6 .1024e+05, .8097e+01,-.2905e-01, .1859e-03, .2139e-05,
6 .1065e+05, .3915e+01,-.1832e-01, .1590e-03, .2127e-05,
6 .1082e+05,-.2350e+00,-.1545e-01, .2089e-03, .2587e-05,
6 .1065e+05,-.3388e+01,-.1156e-01, .2040e-03, .2401e-05,
6 .1012e+05,-.5978e+01,-.1070e-01, .1821e-03, .3100e-05,
6 .9262e+04,-.7700e+01,-.1349e-03, .9426e-04, .2616e-05,
6 .8229e+04,-.9299e+01, .6195e-02, .8753e-04, .2862e-05,
6 .7171e+04,-.1017e+02, .2506e-01, .3221e-04, .1063e-05,
6 .6273e+04,-.1087e+02, .2609e-01, .8102e-04, .1024e-05,
6 .5568e+04,-.9922e+01, .1585e-01, .1157e-04, .1553e-05 /
data ((( cl4ch4gh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 4) /
7 .5674e+06,-.2007e+04, .4366e+01, .3331e-02, .8505e-04,
7 .5674e+06,-.2007e+04, .4365e+01, .3331e-02, .8532e-04,
7 .5674e+06,-.2007e+04, .4365e+01, .3331e-02, .8518e-04,
7 .5673e+06,-.2007e+04, .4365e+01, .3327e-02, .8515e-04,
7 .5673e+06,-.2007e+04, .4363e+01, .3330e-02, .8485e-04,
7 .5672e+06,-.2006e+04, .4363e+01, .3337e-02, .8430e-04,
7 .5667e+06,-.2002e+04, .4362e+01, .3340e-02, .8318e-04,
7 .5660e+06,-.1998e+04, .4358e+01, .3345e-02, .8089e-04,
7 .5644e+06,-.1989e+04, .4345e+01, .3371e-02, .7716e-04,
7 .5614e+06,-.1970e+04, .4325e+01, .3423e-02, .6883e-04,
7 .5505e+06,-.1899e+04, .4165e+01, .3597e-02, .5355e-04,
7 .5427e+06,-.1851e+04, .4041e+01, .4069e-02, .4364e-04,
7 .5314e+06,-.1782e+04, .3867e+01, .4617e-02, .2921e-04,
7 .5156e+06,-.1686e+04, .3585e+01, .5388e-02, .1377e-04,
7 .4936e+06,-.1558e+04, .3087e+01, .6377e-02, .1771e-04,
7 .4641e+06,-.1398e+04, .2681e+01, .6855e-02,-.1143e-05,
7 .4258e+06,-.1201e+04, .2001e+01, .5979e-02, .2325e-04,
7 .3789e+06,-.9749e+03, .1017e+01, .1782e-02, .1328e-03,
7 .3249e+06,-.7652e+03, .7250e+00, .5788e-03, .1367e-03,
7 .2691e+06,-.5748e+03, .4431e+00, .8966e-03, .1020e-03,
7 .2148e+06,-.4031e+03, .4589e+00,-.1924e-02, .7986e-04,
7 .1665e+06,-.2932e+03, .6191e+00,-.1676e-02, .4733e-04,
7 .1265e+06,-.2018e+03, .5167e+00,-.3127e-02, .5646e-04,
7 .9482e+05,-.1482e+03, .6125e+00,-.2638e-02, .2774e-04,
7 .7152e+05,-.1127e+03, .5589e+00,-.2149e-02, .1354e-04,
7 .5553e+05,-.8433e+02, .1211e+00,-.2836e-02, .5776e-04,
7 .4450e+05,-.7657e+02, .1541e+00,-.5967e-03, .1983e-04,
7 .3770e+05,-.6417e+02, .2410e+00, .3091e-03,-.5206e-05 /
c
c----------------------------------------------------------------------
c spectral region: 980-1100 cm^-1. gas: h2o, o3
c----------------------------------------------------------------------
c
data gwl5 / .59500, .27000 /
c
data (cl5f11(i), i = 1, 2) / 883.7207, 88.1605 /
data (cl5f12(i), i = 1, 2) / 1017.6614, 8.8146 /
c
data ((( cl5h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 2) /
1 .1199e-04, .3452e-06, .3698e-08, .1688e-10, .2669e-13,
1 .1776e-04, .5178e-06, .5692e-08, .2394e-10,-.9638e-15,
1 .2650e-04, .7678e-06, .8330e-08, .3730e-10, .3919e-13,
1 .3945e-04, .1140e-05, .1221e-07, .5509e-10, .8179e-13,
1 .5863e-04, .1697e-05, .1830e-07, .8018e-10, .7755e-13,
1 .8687e-04, .2499e-05, .2670e-07, .1238e-09, .2242e-12,
1 .1281e-03, .3732e-05, .4083e-07, .1763e-09, .7845e-13,
1 .1888e-03, .5512e-05, .6031e-07, .2707e-09, .2675e-12,
1 .2760e-03, .8048e-05, .8772e-07, .4009e-09, .5227e-12,
1 .3990e-03, .1166e-04, .1275e-06, .5941e-09, .9192e-12,
1 .5720e-03, .1687e-04, .1881e-06, .8442e-09, .5834e-12,
1 .8128e-03, .2387e-04, .2675e-06, .1277e-08, .1619e-11,
1 .1148e-02, .3365e-04, .3711e-06, .1627e-08, .9590e-12,
1 .1593e-02, .4704e-04, .5275e-06, .2319e-08, .8217e-12,
1 .2157e-02, .6330e-04, .7332e-06, .3460e-08, .8971e-12,
1 .2896e-02, .8347e-04, .9484e-06, .4549e-08, .3177e-11,
1 .3820e-02, .1071e-03, .1158e-05, .5380e-08, .5630e-11,
1 .4987e-02, .1364e-03, .1349e-05, .6183e-08, .1832e-10,
2 .1105e-04, .3303e-06, .3827e-08, .1485e-10,-.3545e-13,
2 .1649e-04, .4848e-06, .5454e-08, .2438e-10, .7586e-14,
2 .2440e-04, .7254e-06, .8353e-08, .3456e-10,-.4444e-13,
2 .3615e-04, .1091e-05, .1294e-07, .5181e-10,-.1218e-12,
2 .5385e-04, .1606e-05, .1879e-07, .8369e-10,-.4627e-13,
2 .8044e-04, .2408e-05, .2803e-07, .1162e-09,-.1638e-12,
2 .1199e-03, .3529e-05, .4009e-07, .1841e-09, .9172e-13,
2 .1801e-03, .5244e-05, .5750e-07, .2597e-09, .2938e-12,
2 .2675e-03, .7872e-05, .8875e-07, .4029e-09, .2491e-12,
2 .3930e-03, .1162e-04, .1349e-06, .6092e-09,-.1131e-12,
2 .5813e-03, .1676e-04, .1875e-06, .9503e-09, .1692e-11,
2 .8444e-03, .2467e-04, .2840e-06, .1246e-08,-.8799e-12,
2 .1225e-02, .3499e-04, .3994e-06, .2118e-08, .3382e-11,
2 .1822e-02, .5009e-04, .5195e-06, .2921e-08, .1109e-10,
2 .2649e-02, .7517e-04, .7642e-06, .3027e-08, .3209e-11,
2 .3729e-02, .1078e-03, .1124e-05, .3997e-08,-.4317e-11,
2 .4991e-02, .1468e-03, .1554e-05, .6573e-08, .8653e-11,
2 .6182e-02, .1898e-03, .2226e-05, .9410e-08,-.7934e-11 /
data ((( cl5o3(k,j,i), k = 1, 5), j = 1, 18), i = 1, 2) /
1 .7227e+01, .6737e-01, .2301e-03, .9636e-07,-.3997e-08,
1 .9629e+01, .8488e-01, .2596e-03,-.1467e-07,-.5302e-08,
1 .1295e+02, .1082e+00, .2804e-03,-.1549e-06,-.4808e-08,
1 .1755e+02, .1392e+00, .2985e-03,-.2718e-06,-.4402e-08,
1 .2382e+02, .1807e+00, .3017e-03,-.4668e-06,-.1571e-08,
1 .3224e+02, .2364e+00, .3046e-03,-.9947e-06, .7062e-09,
1 .4321e+02, .3102e+00, .3024e-03,-.1909e-05, .7458e-08,
1 .5702e+02, .4064e+00, .4323e-03,-.3237e-05,-.2147e-08,
1 .7388e+02, .5251e+00, .6050e-03,-.4465e-05,-.9082e-08,
1 .9364e+02, .6619e+00, .8856e-03,-.4863e-05,-.2401e-07,
1 .1161e+03, .8160e+00, .1052e-02,-.5650e-05,-.1708e-07,
1 .1419e+03, .9792e+00, .1153e-02,-.6110e-05,-.8594e-08,
1 .1716e+03, .1144e+01, .1234e-02,-.5189e-05,-.2551e-07,
1 .2053e+03, .1309e+01, .1311e-02,-.2540e-05,-.9645e-07,
1 .2413e+03, .1505e+01, .6268e-03,-.2568e-05,-.5036e-07,
1 .2762e+03, .1718e+01,-.2570e-03,-.1056e-05,-.1939e-07,
1 .3056e+03, .1961e+01,-.8495e-03,-.6960e-05, .2950e-07,
1 .3272e+03, .2169e+01,-.6410e-03,-.1738e-04, .3894e-07,
2 .1420e+03, .1113e+01, .3418e-02, .5459e-05, .4714e-07,
2 .1711e+03, .1199e+01, .3319e-02, .3513e-05, .4462e-07,
2 .2093e+03, .1323e+01, .3506e-02,-.1264e-05, .1046e-07,
2 .2597e+03, .1463e+01, .3852e-02,-.3441e-05,-.5330e-07,
2 .3260e+03, .1631e+01, .3808e-02,-.4302e-05,-.4033e-07,
2 .4122e+03, .1813e+01, .3875e-02,-.4645e-05,-.8157e-07,
2 .5227e+03, .1998e+01, .3714e-02,-.7030e-05,-.1000e-06,
2 .6645e+03, .2100e+01, .3737e-02,-.2429e-05,-.1654e-06,
2 .8466e+03, .2074e+01, .3199e-02, .5591e-05,-.2743e-06,
2 .1078e+04, .1932e+01,-.5908e-03, .1557e-04,-.2044e-07,
2 .1353e+04, .1757e+01,-.3764e-02, .1058e-04, .8142e-07,
2 .1656e+04, .1481e+01,-.5733e-02, .9746e-05, .3976e-07,
2 .1959e+04, .1076e+01,-.5487e-02, .1454e-04,-.1805e-06,
2 .2239e+04, .4363e+00,-.6362e-02, .2840e-04,-.1221e-06,
2 .2475e+04,-.2581e+00,-.5978e-02, .1979e-04,-.1271e-07,
2 .2664e+04,-.9293e+00,-.9063e-02, .2347e-04, .4743e-06,
2 .2803e+04,-.1565e+01,-.4884e-02, .3316e-04,-.3786e-06,
2 .2915e+04,-.2057e+01,-.4014e-02, .4109e-04,-.6772e-06 /
data ((( cl5cs(k,j,i), k = 1, 5), j = 1, 4), i = 1, 2) /
1 .4632e+01,-.1078e+00, .1342e-02,-.1431e-04, .8921e-07,
1 .6883e+01,-.1601e+00, .1991e-02,-.2127e-04, .1330e-06,
1 .1023e+02,-.2378e+00, .2957e-02,-.3161e-04, .1978e-06,
1 .1520e+02,-.3535e+00, .4395e-02,-.4686e-04, .2923e-06,
2 .4540e+01,-.1051e+00, .1301e-02,-.1384e-04, .8638e-07,
2 .6735e+01,-.1564e+00, .1939e-02,-.2051e-04, .1270e-06,
2 .9997e+01,-.2325e+00, .2885e-02,-.3044e-04, .1882e-06,
2 .1485e+02,-.3453e+00, .4284e-02,-.4530e-04, .2808e-06 /
data ((( cl5cf(k,j,i), k = 1, 5), j = 1, 4), i = 1, 2) /
1 .2729e-04,-.1128e-06, .4232e-09,-.1910e-11, .7769e-14,
1 .4053e-04,-.1672e-06, .6241e-09,-.2850e-11, .1225e-13,
1 .6017e-04,-.2479e-06, .9307e-09,-.4219e-11, .1739e-13,
1 .8929e-04,-.3675e-06, .1386e-08,-.6293e-11, .2534e-13,
2 .2415e-04,-.9788e-07, .3696e-09,-.1732e-11, .7413e-14,
2 .3575e-04,-.1453e-06, .5643e-09,-.2588e-11, .8712e-14,
2 .5297e-04,-.2160e-06, .8246e-09,-.3847e-11, .1521e-13,
2 .7852e-04,-.3215e-06, .1206e-08,-.5637e-11, .2550e-13 /
c
data gwl5gh / .06800, .04000, .02000, .00700 /
data ((( cl5h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 2) /
1-.7654e-07,-.4227e-10, .7509e-10, .2732e-13,-.1185e-13,
1-.2006e-07, .2266e-09, .3211e-10, .4164e-13,-.4422e-14,
1 .2940e-07, .8358e-09, .8166e-11, .2437e-13,-.2927e-16,
1 .5849e-07, .1670e-08, .1713e-10, .5471e-13,-.1257e-15,
1 .1186e-06, .3448e-08, .3590e-10, .9692e-13,-.5131e-15,
1 .2457e-06, .6849e-08, .6347e-10, .2321e-12, .7383e-15,
1 .4934e-06, .1358e-07, .1248e-09, .5416e-12, .2615e-14,
1 .1005e-05, .2888e-07, .2864e-09, .8145e-12,-.1790e-14,
1 .2063e-05, .5785e-07, .5505e-09, .1925e-11, .3449e-14,
1 .4126e-05, .1123e-06, .1066e-08, .5289e-11, .2494e-13,
1 .1213e-04, .3413e-06, .3351e-08, .1183e-10, .8867e-14,
1 .1827e-04, .5080e-06, .4635e-08, .1788e-10, .7838e-13,
1 .2686e-04, .7628e-06, .7242e-08, .2259e-10, .2242e-13,
1 .3961e-04, .1110e-05, .1056e-07, .3696e-10, .6435e-13,
1 .5720e-04, .1690e-05, .1799e-07, .4245e-10,-.3654e-12,
1 .8458e-04, .2599e-05, .2917e-07, .6167e-10,-.7969e-12,
1 .1284e-03, .3760e-05, .3775e-07, .1339e-09, .1346e-12,
1 .1771e-03, .5522e-05, .6646e-07, .2150e-09,-.1313e-11,
1 .2619e-03, .8018e-05, .9340e-07, .2641e-09,-.2127e-11,
1 .3956e-03, .1205e-04, .1389e-06, .3524e-09,-.3647e-11,
1 .5623e-03, .1707e-04, .1992e-06, .5093e-09,-.5530e-11,
1 .8228e-03, .2325e-04, .2358e-06, .9902e-09, .1748e-11,
1 .1191e-02, .3244e-04, .2971e-06, .1749e-08, .1240e-10,
1 .1610e-02, .4717e-04, .5064e-06, .1976e-08,-.3265e-12,
1 .2351e-02, .6762e-04, .6379e-06, .2052e-08, .4956e-11,
1 .3566e-02, .1057e-03, .9799e-06, .1821e-08,-.4604e-11,
1 .4778e-02, .1530e-03, .1767e-05, .1962e-08,-.7291e-10,
1 .6378e-02, .2029e-03, .2534e-05, .9835e-08,-.3423e-10,
2 .4716e+00, .1382e-01, .1508e-03, .6249e-06, .7696e-10,
2 .4737e+00, .1388e-01, .1515e-03, .6278e-06, .7874e-10,
2 .4758e+00, .1394e-01, .1521e-03, .6306e-06, .7832e-10,
2 .4779e+00, .1401e-01, .1528e-03, .6333e-06, .7815e-10,
2 .4800e+00, .1407e-01, .1535e-03, .6361e-06, .7898e-10,
2 .4821e+00, .1413e-01, .1541e-03, .6389e-06, .7892e-10,
2 .4841e+00, .1419e-01, .1548e-03, .6416e-06, .8011e-10,
2 .4862e+00, .1425e-01, .1555e-03, .6443e-06, .8048e-10,
2 .4882e+00, .1430e-01, .1560e-03, .6471e-06, .8212e-10,
2 .4902e+00, .1436e-01, .1567e-03, .6497e-06, .8495e-10,
2 .4915e+00, .1441e-01, .1572e-03, .6503e-06, .5395e-10,
2 .4933e+00, .1446e-01, .1577e-03, .6542e-06, .7476e-10,
2 .4955e+00, .1450e-01, .1578e-03, .6581e-06, .1603e-09,
2 .4970e+00, .1461e-01, .1602e-03, .6482e-06,-.2112e-09,
2 .4997e+00, .1461e-01, .1588e-03, .6692e-06, .2870e-09,
2 .5010e+00, .1462e-01, .1584e-03, .6711e-06, .3862e-09,
2 .5018e+00, .1474e-01, .1613e-03, .6482e-06,-.2112e-09,
2 .5019e+00, .1472e-01, .1606e-03, .6691e-06, .1435e-09,
2 .5009e+00, .1469e-01, .1604e-03, .6667e-06, .1074e-09,
2 .4986e+00, .1464e-01, .1600e-03, .6653e-06, .9096e-10,
2 .4943e+00, .1450e-01, .1586e-03, .6593e-06, .6827e-10,
2 .4860e+00, .1431e-01, .1577e-03, .6476e-06,-.1598e-09,
2 .4790e+00, .1403e-01, .1519e-03, .6259e-06, .1653e-09,
2 .4669e+00, .1377e-01, .1509e-03, .6118e-06,-.1115e-09,
2 .4504e+00, .1330e-01, .1455e-03, .5929e-06,-.2088e-10,
2 .4307e+00, .1271e-01, .1392e-03, .5669e-06,-.5525e-10,
2 .4018e+00, .1189e-01, .1308e-03, .5330e-06,-.8155e-10,
2 .3688e+00, .1094e-01, .1205e-03, .4936e-06,-.6727e-10 /
data ((( cl5h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 3, 4) /
3 .1975e-02, .8771e-04, .1749e-05, .1968e-07, .9965e-10,
3 .1976e-02, .8773e-04, .1749e-05, .1968e-07, .9966e-10,
3 .1977e-02, .8776e-04, .1749e-05, .1968e-07, .9966e-10,
3 .1979e-02, .8782e-04, .1749e-05, .1968e-07, .9966e-10,
3 .1984e-02, .8794e-04, .1750e-05, .1968e-07, .9967e-10,
3 .1993e-02, .8818e-04, .1752e-05, .1968e-07, .9970e-10,
3 .2012e-02, .8868e-04, .1754e-05, .1968e-07, .9980e-10,
3 .2035e-02, .8970e-04, .1776e-05, .1967e-07, .9737e-10,
3 .2097e-02, .9175e-04, .1805e-05, .1966e-07, .9501e-10,
3 .2226e-02, .9607e-04, .1862e-05, .1965e-07, .9057e-10,
3 .2728e-02, .1056e-03, .1768e-05, .2223e-07, .1534e-09,
3 .3097e-02, .1184e-03, .1895e-05, .1938e-07, .1089e-09,
3 .2434e-02, .1423e-03, .3039e-05, .1606e-07,-.7396e-10,
3 .3276e-02, .3815e-04,-.6392e-06, .4120e-07, .6979e-09,
3 .1292e-02, .1253e-03, .3249e-05, .1574e-08,-.3267e-09,
3 .1511e-02, .1822e-03, .4974e-05, .7616e-09,-.5322e-09,
3 .2065e-02, .3523e-05,-.2470e-06, .5055e-07, .7047e-09,
3 .2866e-02, .8566e-04, .1400e-05, .7920e-08,-.3194e-10,
3 .4800e-02, .1201e-03, .1055e-05, .1082e-07, .1046e-09,
3 .6333e-02, .1705e-03, .1582e-05,-.2512e-08,-.1049e-09,
3 .9130e-02, .2425e-03, .1998e-05, .9971e-08, .1034e-09,
3 .1613e-01, .3682e-03, .8668e-06, .1063e-07, .4306e-09,
3 .1386e-01, .4767e-03, .7866e-05, .3283e-07,-.2597e-09,
3 .1393e-01, .3021e-03, .2470e-05, .2731e-07, .2545e-09,
3 .1274e-01, .2569e-03, .2541e-05, .2895e-07, .1749e-09,
3 .4975e-02, .9229e-04, .1107e-05, .3766e-07, .4034e-09,
3 .6847e-02, .1176e-03, .1078e-05, .3656e-07, .4049e-09,
3 .8163e-02, .1578e-03, .1467e-05, .8812e-08, .8120e-12,
4 .1003e-03, .2113e-05, .1250e-07,-.7693e-11,-.1713e-12,
4 .1003e-03, .2115e-05, .1251e-07,-.7643e-11,-.1707e-12,
4 .1005e-03, .2119e-05, .1254e-07,-.7440e-11,-.1691e-12,
4 .1008e-03, .2127e-05, .1260e-07,-.7069e-11,-.1653e-12,
4 .1015e-03, .2144e-05, .1272e-07,-.6313e-11,-.1584e-12,
4 .1029e-03, .2177e-05, .1297e-07,-.4854e-11,-.1439e-12,
4 .1057e-03, .2244e-05, .1347e-07,-.1776e-11,-.1144e-12,
4 .1114e-03, .2382e-05, .1449e-07, .4365e-11,-.5653e-13,
4 .1229e-03, .2660e-05, .1656e-07, .1684e-10, .6300e-13,
4 .1463e-03, .3222e-05, .2065e-07, .4198e-10, .3147e-12,
4 .2351e-03, .5446e-05, .3916e-07, .1354e-09, .8846e-12,
4 .3027e-03, .7053e-05, .4966e-07, .2098e-09, .1853e-11,
4 .4006e-03, .9441e-05, .6829e-07, .3165e-09, .2729e-11,
4 .5457e-03, .1170e-04, .7246e-07, .1601e-08, .2115e-10,
4 .6958e-03, .2474e-04, .4081e-06, .6539e-09,-.2852e-10,
4 .9830e-03, .3472e-04, .5765e-06, .1280e-08,-.3606e-10,
4 .1416e-02, .5141e-04, .8230e-06, .1365e-08,-.5324e-10,
4 .2046e-02, .7889e-04, .1119e-05, .1223e-08,-.6010e-10,
4 .1965e-02, .1172e-03, .2723e-05, .1967e-08,-.2599e-09,
4 .2618e-02, .2531e-04, .8428e-07, .3269e-07, .4267e-09,
4 .3062e-02, .8200e-04, .1184e-05, .3648e-08,-.6129e-10,
4 .1906e-02, .2289e-04, .1368e-06, .1956e-07, .2512e-09,
4 .2480e-02, .3805e-04, .3607e-06, .9217e-08, .8740e-10,
4 .3818e-02, .3690e-04, .3426e-06, .7042e-08, .1646e-10,
4 .7511e-02, .9734e-04, .2720e-07, .4261e-09, .3096e-10,
4 .1132e-01, .1903e-03, .4145e-06,-.1841e-07,-.1902e-09,
4 .1293e-01, .2035e-03,-.2079e-06,-.1947e-07,-.9651e-10,
4 .1252e-01, .1719e-03,-.6563e-06,-.1314e-07, .1552e-10 /
data ((( cl5o3gh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 2) /
1 .1235e+04, .1437e+02, .3476e-01,-.1760e-03, .2748e-07,
1 .1244e+04, .1450e+02, .3664e-01,-.1823e-03,-.2837e-06,
1 .1256e+04, .1459e+02, .3672e-01,-.1763e-03,-.2575e-06,
1 .1267e+04, .1472e+02, .3858e-01,-.1803e-03,-.5642e-06,
1 .1277e+04, .1485e+02, .3967e-01,-.1827e-03,-.6947e-06,
1 .1292e+04, .1494e+02, .3904e-01,-.1772e-03,-.5306e-06,
1 .1309e+04, .1501e+02, .3750e-01,-.1704e-03,-.1571e-06,
1 .1330e+04, .1512e+02, .3972e-01,-.1833e-03,-.5111e-06,
1 .1365e+04, .1513e+02, .3958e-01,-.1923e-03,-.3143e-06,
1 .1427e+04, .1492e+02, .4083e-01,-.1917e-03,-.2172e-06,
1 .1668e+04, .1372e+02, .4072e-01,-.1408e-03,-.6785e-06,
1 .1853e+04, .1292e+02, .3722e-01,-.9009e-04,-.8662e-06,
1 .2117e+04, .1202e+02, .2847e-01,-.6750e-04,-.3243e-06,
1 .2484e+04, .1080e+02, .1706e-01,-.2108e-04, .3646e-06,
1 .2969e+04, .9694e+01, .5055e-02,-.4960e-04, .1103e-05,
1 .3579e+04, .8069e+01, .6587e-02,-.5096e-04,-.5986e-06,
1 .4328e+04, .5771e+01,-.7496e-02,-.1220e-04, .2698e-06,
1 .5148e+04, .3211e+01,-.4069e-02, .4743e-04,-.1966e-05,
1 .5954e+04, .1135e+01,-.9591e-02, .3693e-05,-.2039e-05,
1 .6605e+04,-.1389e+01,-.7061e-02, .4273e-04,-.2449e-05,
1 .7002e+04,-.3843e+01, .5711e-03, .3050e-04,-.2514e-05,
1 .7122e+04,-.6037e+01,-.1215e-01, .1899e-05, .1128e-05,
1 .6973e+04,-.7800e+01, .2080e-03,-.3970e-04, .1924e-06,
1 .6627e+04,-.9133e+01, .6821e-02, .4145e-04,-.5536e-06,
1 .6188e+04,-.9111e+01, .3886e-02, .2176e-04, .3929e-06,
1 .5749e+04,-.8867e+01, .7791e-02, .1619e-04, .2636e-06,
1 .5424e+04,-.9020e+01, .1058e-01, .4350e-04,-.1057e-07,
1 .5168e+04,-.9070e+01, .9129e-02, .4971e-04, .3295e-06,
2 .7157e+02, .8460e+00, .6690e-02,-.2680e-05,-.8151e-06,
2 .7449e+02, .8585e+00, .4937e-02, .1631e-05,-.4676e-06,
2 .7553e+02, .9243e+00, .5326e-02,-.7469e-05,-.5097e-06,
2 .7747e+02, .9323e+00, .3551e-02,-.4554e-05,-.1456e-06,
2 .7949e+02, .9316e+00, .2689e-02,-.3205e-05, .2839e-08,
2 .7936e+02, .9821e+00, .4394e-02,-.1273e-04,-.2897e-06,
2 .8052e+02, .1046e+01, .6462e-02,-.2437e-04,-.6985e-06,
2 .8358e+02, .1014e+01, .4208e-02,-.1568e-04,-.2126e-06,
2 .8608e+02, .1023e+01, .5603e-02,-.1633e-04,-.4437e-06,
2 .9581e+02, .1002e+01, .5243e-02,-.1903e-04,-.5671e-06,
2 .1127e+03, .9163e+00, .4838e-02,-.1098e-04,-.5042e-06,
2 .1285e+03, .9922e+00, .4078e-02,-.2246e-04,-.2863e-06,
2 .1508e+03, .9634e+00, .4752e-02,-.5648e-05,-.4935e-06,
2 .1786e+03, .1134e+01, .5403e-02,-.3748e-04,-.5169e-06,
2 .2172e+03, .9412e+00, .9844e-02,-.3387e-05,-.1518e-05,
2 .2727e+03, .8324e+00, .9425e-03, .2089e-04,-.1031e-07,
2 .3342e+03, .8265e+00, .4453e-02, .4150e-04,-.7344e-06,
2 .4196e+03, .1106e+01,-.1299e-01,-.7813e-05, .2289e-05,
2 .5050e+03, .1058e+01,-.1588e-01,-.6986e-05, .2980e-05,
2 .5807e+03, .1296e+01,-.8803e-02,-.6923e-04, .2207e-05,
2 .6610e+03, .1030e+01,-.8179e-02,-.4433e-05, .1702e-05,
2 .7302e+03, .9501e+00, .7137e-02, .4027e-04,-.1734e-05,
2 .8080e+03, .1145e+01,-.1154e-01, .5962e-04, .2895e-06,
2 .8706e+03, .2410e+01,-.1576e-01,-.1432e-03, .1547e-05,
2 .9180e+03, .2359e+01,-.4957e-02,-.8643e-04,-.6621e-06,
2 .9676e+03, .1970e+01, .1470e-01,-.1135e-03,-.2863e-05,
2 .1015e+04, .1572e+01,-.5877e-04,-.1230e-03, .9117e-06,
2 .1059e+04, .9647e+00,-.3888e-02,-.1913e-04, .1558e-05 /
data ((( cl5o3gh(k,j,i), k = 1, 5), j = 1, 28), i = 3, 4) /
3 .2169e+05, .7335e+02,-.4330e+00, .1545e-03, .1892e-05,
3 .2185e+05, .7391e+02,-.4363e+00, .1557e-03, .1912e-05,
3 .2202e+05, .7445e+02,-.4395e+00, .1569e-03, .1923e-05,
3 .2219e+05, .7499e+02,-.4427e+00, .1580e-03, .1927e-05,
3 .2236e+05, .7547e+02,-.4456e+00, .1591e-03, .1939e-05,
3 .2253e+05, .7590e+02,-.4484e+00, .1596e-03, .1956e-05,
3 .2272e+05, .7617e+02,-.4501e+00, .1599e-03, .1919e-05,
3 .2290e+05, .7612e+02,-.4499e+00, .1607e-03, .1741e-05,
3 .2313e+05, .7545e+02,-.4463e+00, .1577e-03, .1503e-05,
3 .2340e+05, .7348e+02,-.4362e+00, .1346e-03, .1458e-05,
3 .2398e+05, .6486e+02,-.4009e+00,-.8347e-04, .4101e-05,
3 .2441e+05, .5864e+02,-.3582e+00,-.1835e-03, .2996e-05,
3 .2493e+05, .4948e+02,-.2987e+00,-.1936e-03, .5015e-06,
3 .2553e+05, .3768e+02,-.2377e+00,-.1325e-03,-.2168e-05,
3 .2617e+05, .2330e+02,-.2049e+00,-.4649e-05, .8632e-06,
3 .2668e+05, .8568e+01,-.1820e+00, .5630e-04, .4441e-05,
3 .2677e+05,-.4442e+01,-.1110e+00,-.1121e-03, .5058e-06,
3 .2623e+05,-.1553e+02,-.8104e-01,-.1024e-03, .1870e-05,
3 .2487e+05,-.2402e+02,-.4247e-01, .1475e-03,-.6166e-06,
3 .2274e+05,-.2679e+02,-.3230e-01,-.2455e-04, .7648e-06,
3 .2003e+05,-.2667e+02,-.2679e-01,-.1149e-03, .2611e-05,
3 .1711e+05,-.2494e+02, .4987e-02,-.1531e-03, .4351e-06,
3 .1436e+05,-.2266e+02, .1446e-01,-.1134e-03, .7320e-06,
3 .1204e+05,-.1987e+02, .1266e-01,-.9089e-04, .1351e-05,
3 .1034e+05,-.1722e+02, .6935e-02,-.7658e-04, .1111e-05,
3 .9135e+04,-.1510e+02, .3963e-02,-.1003e-03, .8410e-06,
3 .8254e+04,-.1232e+02,-.1244e-02,-.2059e-03, .1421e-05,
3 .7687e+04,-.1028e+02, .2411e-02,-.3823e-03, .2191e-05,
4 .1576e+06,-.5123e+03, .4692e+00, .1804e-02,-.5527e-05,
4 .1576e+06,-.5122e+03, .4689e+00, .1804e-02,-.5497e-05,
4 .1576e+06,-.5122e+03, .4684e+00, .1802e-02,-.5441e-05,
4 .1576e+06,-.5119e+03, .4682e+00, .1804e-02,-.5473e-05,
4 .1575e+06,-.5116e+03, .4672e+00, .1804e-02,-.5457e-05,
4 .1574e+06,-.5110e+03, .4657e+00, .1806e-02,-.5507e-05,
4 .1572e+06,-.5096e+03, .4611e+00, .1810e-02,-.5291e-05,
4 .1568e+06,-.5070e+03, .4528e+00, .1807e-02,-.5027e-05,
4 .1558e+06,-.5016e+03, .4356e+00, .1805e-02,-.4340e-05,
4 .1539e+06,-.4910e+03, .4092e+00, .1793e-02,-.4169e-05,
4 .1471e+06,-.4547e+03, .3347e+00, .1817e-02,-.6128e-05,
4 .1426e+06,-.4299e+03, .2583e+00, .1659e-02,-.2025e-05,
4 .1362e+06,-.3969e+03, .1668e+00, .1383e-02, .3499e-05,
4 .1278e+06,-.3562e+03, .9654e-01, .9971e-03, .7272e-05,
4 .1169e+06,-.3081e+03, .9909e-01, .5652e-03,-.6837e-06,
4 .1039e+06,-.2565e+03, .1040e+00, .1636e-03,-.5338e-05,
4 .8923e+05,-.2060e+03, .2627e-01, .1960e-03, .4067e-05,
4 .7390e+05,-.1598e+03, .5783e-01,-.1043e-03,-.7839e-06,
4 .5917e+05,-.1206e+03, .4088e-01,-.6056e-03, .6282e-05,
4 .4623e+05,-.9289e+02, .5606e-01,-.3440e-03, .4447e-05,
4 .3570e+05,-.7021e+02, .7477e-01,-.2703e-03,-.6300e-06,
4 .2761e+05,-.5355e+02, .5410e-01,-.1901e-03,-.7134e-06,
4 .2162e+05,-.4037e+02, .4764e-01,-.3343e-03, .1002e-05,
4 .1745e+05,-.3323e+02, .4941e-01,-.2557e-03,-.7868e-07,
4 .1442e+05,-.2881e+02, .4497e-01,-.2317e-03, .1581e-05,
4 .1220e+05,-.2478e+02, .4946e-01,-.1645e-03,-.3950e-06,
4 .1060e+05,-.2295e+02, .4247e-01, .6230e-04,-.1118e-05,
4 .9390e+04,-.2105e+02, .2323e-01, .1997e-03,-.6701e-06 /
data ((( cl5csgh(k,j,i), k = 1, 5), j = 1, 4), i = 1, 2) /
1 .4348e+01,-.1005e+00, .1239e-02,-.1314e-04, .8208e-07,
1 .6415e+01,-.1484e+00, .1839e-02,-.1945e-04, .1202e-06,
1 .9472e+01,-.2190e+00, .2706e-02,-.2862e-04, .1775e-06,
1 .1399e+02,-.3238e+00, .3994e-02,-.4211e-04, .2608e-06,
2 .4281e+01,-.9904e-01, .1234e-02,-.1305e-04, .8016e-07,
2 .6346e+01,-.1463e+00, .1800e-02,-.1913e-04, .1202e-06,
2 .9353e+01,-.2154e+00, .2646e-02,-.2801e-04, .1754e-06,
2 .1375e+02,-.3143e+00, .3878e-02,-.4270e-04, .2755e-06 /
data ((( cl5cfgh(k,j,i), k = 1, 5), j = 1, 4), i = 1, 2) /
1 .2394e-04,-.9995e-07, .3865e-09,-.1762e-11, .6796e-14,
1 .3556e-04,-.1490e-06, .5572e-09,-.2571e-11, .1282e-13,
1 .5287e-04,-.2219e-06, .8228e-09,-.3875e-11, .2042e-13,
1 .7859e-04,-.3299e-06, .1299e-08,-.5788e-11, .1850e-13,
2 .2561e-04,-.1053e-06, .3964e-09,-.1842e-11, .6970e-14,
2 .3804e-04,-.1560e-06, .5589e-09,-.2537e-11, .1297e-13,
2 .5644e-04,-.2318e-06, .8781e-09,-.3557e-11, .8562e-14,
2 .8398e-04,-.3427e-06, .1217e-08,-.5530e-11, .2224e-13 /
c
c----------------------------------------------------------------------
c spectral region: 800-980 cm^-1. gas: h2o
c----------------------------------------------------------------------
c
data gwl6 / .93400, .06600 /
data ((( cl6h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 2) /
1 .9324e-05, .2588e-06, .2901e-08, .1569e-10, .3413e-13,
1 .1393e-04, .3869e-06, .4341e-08, .2347e-10, .5072e-13,
1 .2081e-04, .5786e-06, .6502e-08, .3511e-10, .7444e-13,
1 .3108e-04, .8649e-06, .9749e-08, .5251e-10, .1082e-12,
1 .4641e-04, .1293e-05, .1460e-07, .7857e-10, .1585e-12,
1 .6928e-04, .1933e-05, .2185e-07, .1176e-09, .2356e-12,
1 .1034e-03, .2887e-05, .3268e-07, .1759e-09, .3518e-12,
1 .1541e-03, .4306e-05, .4885e-07, .2638e-09, .5275e-12,
1 .2290e-03, .6408e-05, .7295e-07, .3954e-09, .7834e-12,
1 .3394e-03, .9497e-05, .1084e-06, .5924e-09, .1200e-11,
1 .5001e-03, .1399e-04, .1599e-06, .8853e-09, .1893e-11,
1 .7308e-03, .2039e-04, .2330e-06, .1305e-08, .2929e-11,
1 .1058e-02, .2939e-04, .3343e-06, .1882e-08, .4383e-11,
1 .1519e-02, .4193e-04, .4733e-06, .2654e-08, .6290e-11,
1 .2162e-02, .5943e-04, .6648e-06, .3682e-08, .8731e-11,
1 .3038e-02, .8319e-04, .9283e-06, .5084e-08, .1153e-10,
1 .4202e-02, .1143e-03, .1271e-05, .6947e-08, .1563e-10,
1 .5704e-02, .1548e-03, .1735e-05, .9313e-08, .1687e-10,
2 .5204e+00, .1354e-01, .1497e-03, .8721e-06, .2335e-08,
2 .5234e+00, .1361e-01, .1506e-03, .8776e-06, .2348e-08,
2 .5262e+00, .1370e-01, .1515e-03, .8830e-06, .2360e-08,
2 .5289e+00, .1378e-01, .1524e-03, .8882e-06, .2373e-08,
2 .5315e+00, .1385e-01, .1534e-03, .8935e-06, .2385e-08,
2 .5339e+00, .1392e-01, .1542e-03, .8984e-06, .2396e-08,
2 .5361e+00, .1398e-01, .1550e-03, .9030e-06, .2407e-08,
2 .5381e+00, .1404e-01, .1556e-03, .9071e-06, .2417e-08,
2 .5397e+00, .1408e-01, .1562e-03, .9102e-06, .2425e-08,
2 .5408e+00, .1411e-01, .1564e-03, .9121e-06, .2432e-08,
2 .5410e+00, .1410e-01, .1564e-03, .9122e-06, .2434e-08,
2 .5401e+00, .1408e-01, .1561e-03, .9100e-06, .2429e-08,
2 .5375e+00, .1400e-01, .1551e-03, .9048e-06, .2417e-08,
2 .5327e+00, .1386e-01, .1535e-03, .8962e-06, .2396e-08,
2 .5247e+00, .1364e-01, .1510e-03, .8831e-06, .2366e-08,
2 .5127e+00, .1330e-01, .1472e-03, .8633e-06, .2331e-08,
2 .4958e+00, .1284e-01, .1420e-03, .8352e-06, .2272e-08,
2 .4733e+00, .1221e-01, .1348e-03, .7982e-06, .2265e-08 /
data (( cl6f11(k,j), k = 1, 5), j = 1, 18) /
1 .1547e+04,-.2677e+01,-.6788e-01, .2795e-03, .1710e-05,
1 .1564e+04,-.2403e+01,-.7042e-01, .2716e-03, .1907e-05,
1 .1549e+04,-.1999e+01,-.7062e-01, .2605e-03, .1789e-05,
1 .1497e+04,-.1479e+01,-.6875e-01, .2412e-03, .1585e-05,
1 .1411e+04,-.9273e+00,-.6650e-01, .2186e-03, .1626e-05,
1 .1306e+04,-.4202e+00,-.6267e-01, .1866e-03, .1627e-05,
1 .1205e+04,-.1344e+00,-.5804e-01, .1640e-03, .1585e-05,
1 .1138e+04,-.8202e-01,-.5354e-01, .1527e-03, .1375e-05,
1 .1121e+04,-.1928e+00,-.5348e-01, .1548e-03, .1577e-05,
1 .1144e+04,-.2912e+00,-.5477e-01, .1606e-03, .1659e-05,
1 .1183e+04,-.3039e+00,-.5548e-01, .1622e-03, .1493e-05,
1 .1225e+04,-.3024e+00,-.5678e-01, .1669e-03, .1402e-05,
1 .1268e+04,-.2943e+00,-.5878e-01, .1725e-03, .1489e-05,
1 .1312e+04,-.2407e+00,-.6292e-01, .1687e-03, .1924e-05,
1 .1353e+04,-.1742e+00,-.6348e-01, .1600e-03, .1745e-05,
1 .1391e+04,-.1658e+00,-.6478e-01, .1647e-03, .1838e-05,
1 .1428e+04,-.1773e+00,-.6556e-01, .1785e-03, .1729e-05,
1 .1463e+04,-.2217e+00,-.6548e-01, .1957e-03, .1464e-05 /
data (( cl6f12(k,j), k = 1, 5), j = 1, 18) /
1 .1559e+04,-.1856e+01,-.5773e-01, .2207e-03, .9307e-06,
1 .1597e+04,-.1639e+01,-.6072e-01, .2219e-03, .1051e-05,
1 .1607e+04,-.1281e+01,-.6277e-01, .2142e-03, .1156e-05,
1 .1583e+04,-.8085e+00,-.6411e-01, .1993e-03, .1339e-05,
1 .1525e+04,-.2741e+00,-.6268e-01, .1777e-03, .1269e-05,
1 .1446e+04, .2273e+00,-.6063e-01, .1510e-03, .1342e-05,
1 .1367e+04, .5636e+00,-.5733e-01, .1246e-03, .1375e-05,
1 .1318e+04, .6595e+00,-.5531e-01, .1133e-03, .1451e-05,
1 .1314e+04, .5994e+00,-.5418e-01, .1146e-03, .1366e-05,
1 .1349e+04, .5042e+00,-.5472e-01, .1275e-03, .1263e-05,
1 .1401e+04, .4829e+00,-.5745e-01, .1366e-03, .1422e-05,
1 .1456e+04, .5088e+00,-.5996e-01, .1400e-03, .1512e-05,
1 .1512e+04, .5513e+00,-.6265e-01, .1413e-03, .1645e-05,
1 .1566e+04, .5434e+00,-.6337e-01, .1515e-03, .1422e-05,
1 .1623e+04, .5583e+00,-.6670e-01, .1581e-03, .1657e-05,
1 .1679e+04, .5669e+00,-.6879e-01, .1635e-03, .1630e-05,
1 .1735e+04, .6008e+00,-.7192e-01, .1671e-03, .1808e-05,
1 .1792e+04, .6597e+00,-.7569e-01, .1703e-03, .2070e-05 /
data (( cl6cs(k,j), k = 1, 5), j = 1, 4) /
1 .9152e+01,-.2226e+00, .2902e-02,-.3262e-04, .2090e-06,
1 .1367e+02,-.3324e+00, .4337e-02,-.4876e-04, .3123e-06,
1 .2041e+02,-.4966e+00, .6477e-02,-.7283e-04, .4668e-06,
1 .3049e+02,-.7414e+00, .9666e-02,-.1087e-03, .6967e-06 /
data (( cl6cf(k,j), k = 1, 5), j = 1, 4) /
1 .3069e-03,-.1325e-05, .4896e-08,-.1959e-10, .5344e-13,
1 .4570e-03,-.1972e-05, .7793e-08,-.3020e-10, .1881e-13,
1 .6816e-03,-.2940e-05, .1088e-07,-.4548e-10, .1635e-12,
1 .1015e-02,-.4344e-05, .1564e-07,-.7402e-10, .3410e-12 /
c
c----------------------------------------------------------------------
c spectral region: 540-800 cm^-1. gas: h2o, co2, n2o
c----------------------------------------------------------------------
c
data gwl7 / .14000, .23500, .24000 /
data cl7o3 / 6.73423, 10.96969, 42.10655 /
data ((( cl7h2ou(k,j,i), k = 1, 5), j = 1, 11), i = 1, 3) /
1 .3198e-03, .7010e-05, .5087e-07, .1823e-09, .8000e-12,
1 .4744e-03, .1039e-04, .7481e-07, .2733e-09, .1358e-11,
1 .7031e-03, .1544e-04, .1106e-06, .4005e-09, .2096e-11,
1 .1043e-02, .2301e-04, .1664e-06, .5895e-09, .2823e-11,
1 .1542e-02, .3408e-04, .2504e-06, .8968e-09, .3832e-11,
1 .2277e-02, .5052e-04, .3783e-06, .1336e-08, .4584e-11,
1 .3349e-02, .7481e-04, .5774e-06, .1984e-08, .4136e-11,
1 .4915e-02, .1107e-03, .8788e-06, .2888e-08, .2030e-11,
1 .7128e-02, .1599e-03, .1302e-05, .4852e-08, .4836e-11,
1 .1027e-01, .2335e-03, .2002e-05, .6551e-08,-.1648e-10,
1 .1473e-01, .3365e-03, .2992e-05, .9252e-08,-.4561e-10,
2 .3860e-02, .6592e-04, .4173e-06, .1467e-08, .2925e-11,
2 .5671e-02, .9710e-04, .6148e-06, .1939e-08, .1773e-11,
2 .8281e-02, .1405e-03, .9136e-06, .3551e-08, .6629e-11,
2 .1224e-01, .2051e-03, .1275e-05, .5589e-08, .2230e-10,
2 .1786e-01, .2895e-03, .1683e-05, .9969e-08, .6822e-10,
2 .2603e-01, .4244e-03, .2602e-05, .1281e-07, .5263e-10,
2 .3822e-01, .6217e-03, .3781e-05, .1670e-07, .4943e-10,
2 .5569e-01, .8796e-03, .4931e-05, .2712e-07, .1516e-09,
2 .8122e-01, .1300e-02, .7901e-05, .2939e-07,-.1662e-10,
2 .1186e+00, .1870e-02, .1121e-04, .3777e-07,-.1080e-09,
2 .1744e+00, .2704e-02, .1413e-04, .4233e-07,-.2056e-10,
3 .2535e-01, .4376e-03, .2415e-05, .5321e-08, .2793e-10,
3 .3648e-01, .6177e-03, .3550e-05, .7499e-08,-.8573e-11,
3 .5284e-01, .8857e-03, .4607e-05, .7056e-08, .1293e-10,
3 .7569e-01, .1249e-02, .5929e-05, .1228e-07, .1470e-09,
3 .1098e+00, .1771e-02, .7478e-05, .2647e-07, .4460e-09,
3 .1581e+00, .2472e-02, .9066e-05, .4093e-07, .8467e-09,
3 .2314e+00, .3685e-02, .1369e-04, .1789e-07, .7564e-09,
3 .3308e+00, .5356e-02, .2346e-04,-.5571e-08, .1889e-09,
3 .4624e+00, .7352e-02, .3650e-04, .3410e-07,-.1585e-09,
3 .6519e+00, .1004e-01, .3635e-04, .9474e-07, .2475e-08,
3 .9176e+00, .1456e-01, .6342e-04,-.2006e-08, .3091e-09 /
data (((( cl7h2od(k,l,j,i), k = 1, 5), l = 1, 5), j = 1, 7),
1 i = 1, 2) /
1 .2122e-01, .4754e-03, .3935e-05, .1405e-07,-.7501e-11,
1 .1206e-01, .2866e-03, .2068e-05, .3657e-08, .1041e-10,
1 .6465e-02, .1665e-03, .1387e-05, .1798e-08,-.2136e-10,
1 .3193e-02, .8096e-04, .7273e-06, .2920e-08, .8332e-11,
1 .1888e-02, .4747e-04, .3982e-06,-.1080e-09,-.1454e-10,
1 .3023e-01, .6682e-03, .5530e-05, .2168e-07, .8249e-12,
1 .1711e-01, .4164e-03, .3124e-05, .3919e-08,-.1459e-10,
1 .9017e-02, .2384e-03, .2100e-05, .2122e-08,-.5086e-10,
1 .4516e-02, .1140e-03, .1005e-05, .4126e-08, .1567e-10,
1 .2661e-02, .6773e-04, .6267e-06, .1011e-09,-.2749e-10,
1 .4278e-01, .9224e-03, .7342e-05, .3254e-07, .6124e-10,
1 .2396e-01, .5895e-03, .4432e-05, .5729e-08,-.9743e-11,
1 .1242e-01, .3331e-03, .3106e-05, .4000e-08,-.8491e-10,
1 .6415e-02, .1521e-03, .1074e-05, .6962e-08, .8110e-10,
1 .3739e-02, .9653e-04, .9598e-06, .2371e-09,-.4901e-10,
1 .6120e-01, .1324e-02, .9951e-05, .3875e-07, .9646e-10,
1 .3376e-01, .8242e-03, .6056e-05, .9813e-08, .2581e-10,
1 .1695e-01, .4537e-03, .4180e-05, .6927e-08,-.8408e-10,
1 .8837e-02, .2112e-03, .1434e-05, .8920e-08, .1169e-09,
1 .5242e-02, .1346e-03, .1358e-05, .9875e-09,-.6359e-10,
1 .8754e-01, .1892e-02, .1266e-04, .4015e-07, .2227e-09,
1 .4642e-01, .1137e-02, .8871e-05, .1865e-07, .1096e-11,
1 .2276e-01, .6006e-03, .5328e-05, .1010e-07,-.6748e-10,
1 .1207e-01, .3052e-03, .2477e-05, .7695e-08, .3896e-10,
1 .7335e-02, .1780e-03, .1611e-05, .3203e-08,-.3384e-10,
1 .1204e+00, .2525e-02, .1520e-04, .4697e-07, .4019e-09,
1 .6313e-01, .1528e-02, .1087e-04, .2288e-07, .1257e-09,
1 .2950e-01, .8041e-03, .7944e-05, .1390e-07,-.2084e-09,
1 .1603e-01, .3958e-03, .3219e-05, .1115e-07, .5508e-10,
1 .1018e-01, .2421e-03, .2095e-05, .5623e-08,-.1446e-10,
1 .1625e+00, .3545e-02, .2246e-04, .1677e-07,-.1586e-09,
1 .8242e-01, .2086e-02, .1565e-04, .1280e-07,-.1366e-09,
1 .3755e-01, .9723e-03, .8996e-05, .3195e-07, .2688e-10,
1 .2144e-01, .5492e-03, .5077e-05, .9584e-08,-.9889e-10,
1 .1378e-01, .3173e-03, .2807e-05, .1019e-07,-.4310e-11,
2 .2502e+00, .3828e-02, .2098e-04, .6728e-07,-.2163e-09,
2 .1351e+00, .2202e-02, .1169e-04, .2027e-07,-.3301e-10,
2 .7174e-01, .1160e-02, .5519e-05, .1603e-07, .1577e-09,
2 .3879e-01, .6627e-03, .4357e-05, .1218e-07,-.3509e-10,
2 .2402e-01, .4150e-03, .2207e-05, .5301e-08, .2091e-10,
2 .3564e+00, .5352e-02, .2909e-04, .1161e-06,-.1663e-09,
2 .1949e+00, .3118e-02, .1478e-04, .2446e-07, .1307e-09,
2 .1038e+00, .1665e-02, .7581e-05, .1688e-07, .1882e-09,
2 .5596e-01, .9185e-03, .5313e-05, .2023e-07, .7491e-10,
2 .3445e-01, .5925e-03, .3029e-05, .6692e-08, .3801e-10,
2 .5083e+00, .7692e-02, .3604e-04, .1088e-06, .1514e-09,
2 .2792e+00, .4398e-02, .2038e-04, .2957e-07, .4913e-10,
2 .1498e+00, .2363e-02, .1009e-04, .2250e-07, .2980e-09,
2 .8048e-01, .1288e-02, .6713e-05, .2666e-07, .1613e-09,
2 .4856e-01, .8429e-03, .4527e-05, .6941e-08,-.5864e-11,
2 .7258e+00, .1116e-01, .4425e-04, .7730e-07, .7876e-09,
2 .3979e+00, .6172e-02, .2732e-04, .4212e-07, .5499e-10,
2 .2161e+00, .3366e-02, .1360e-04, .2253e-07, .3647e-09,
2 .1146e+00, .1853e-02, .9905e-05, .2338e-07, .2420e-10,
2 .6742e-01, .1155e-02, .6134e-05, .1191e-07, .2888e-10,
2 .1030e+01, .1615e-01, .5639e-04, .1022e-06, .2680e-08,
2 .5701e+00, .9025e-02, .3124e-04,-.5345e-08, .1152e-08,
2 .3057e+00, .4857e-02, .2139e-04, .9328e-08, .1029e-09,
2 .1600e+00, .2521e-02, .1453e-04, .4003e-07,-.1410e-09,
2 .9516e-01, .1618e-02, .7903e-05, .7070e-08, .2683e-10,
2 .1405e+01, .2295e-01, .9099e-04,-.2412e-07, .1033e-08,
2 .7993e+00, .1288e-01, .4976e-04,-.1862e-07, .1021e-08,
2 .4242e+00, .6613e-02, .2929e-04, .4863e-07, .4837e-09,
2 .2273e+00, .3429e-02, .1564e-04, .4485e-07, .1848e-09,
2 .1359e+00, .2303e-02, .1000e-04, .2450e-08, .1606e-09,
2 .1910e+01, .3128e-01, .1092e-03, .5854e-07, .6144e-08,
2 .1107e+01, .1746e-01, .6235e-04, .5236e-07, .2686e-08,
2 .5959e+00, .9343e-02, .3786e-04,-.3029e-07, .1286e-09,
2 .3203e+00, .4732e-02, .1825e-04, .3272e-07, .2774e-09,
2 .1935e+00, .3265e-02, .1215e-04,-.1320e-07, .3797e-09 /
data (((( cl7h2od(k,l,j,i), k = 1, 5), l = 1, 5), j = 1, 7),
1 i = 3, 3) /
3 .1288e+01, .1982e-01, .7932e-04, .1506e-06, .2769e-08,
3 .6732e+00, .1075e-01, .5420e-04,-.1191e-07,-.1135e-08,
3 .3483e+00, .5282e-02, .2187e-04, .1975e-07, .2887e-09,
3 .1959e+00, .3065e-02, .1492e-04,-.1861e-08,-.3155e-09,
3 .1173e+00, .1856e-02, .8988e-05,-.1027e-07,-.2508e-09,
3 .1793e+01, .2778e-01, .1076e-03, .2464e-07, .2382e-08,
3 .9374e+00, .1489e-01, .7284e-04,-.2248e-07,-.1285e-08,
3 .4796e+00, .7298e-02, .3483e-04, .1079e-07,-.6009e-09,
3 .2739e+00, .4303e-02, .2221e-04,-.6108e-08,-.6761e-09,
3 .1680e+00, .2540e-02, .1009e-04, .5848e-08, .1792e-09,
3 .2479e+01, .3818e-01, .1255e-03,-.9731e-07, .6012e-08,
3 .1302e+01, .1940e-01, .7569e-04, .1666e-06, .2569e-08,
3 .6647e+00, .9983e-02, .4455e-04, .6638e-08,-.4726e-09,
3 .3882e+00, .5991e-02, .2640e-04,-.2330e-07,-.4318e-09,
3 .2409e+00, .3575e-02, .1264e-04, .2199e-07, .6260e-09,
3 .3448e+01, .5463e-01, .2772e-03,-.6672e-06,-.1532e-07,
3 .1791e+01, .2708e-01, .1157e-03, .4916e-07, .2512e-09,
3 .9230e+00, .1424e-01, .7422e-04,-.7568e-07,-.3182e-08,
3 .5445e+00, .8268e-02, .3229e-04, .3190e-08, .4198e-09,
3 .3417e+00, .5074e-02, .1897e-04, .2249e-07, .5607e-09,
3 .4601e+01, .6643e-01, .3080e-03, .1927e-06,-.4891e-08,
3 .2428e+01, .3692e-01, .1684e-03, .1351e-06, .2882e-09,
3 .1278e+01, .1882e-01, .8434e-04, .1643e-06, .3421e-09,
3 .7541e+00, .1167e-01, .5045e-04,-.3429e-07,-.4394e-09,
3 .4761e+00, .7213e-02, .3041e-04,-.8801e-08,-.1827e-09,
3 .6015e+01, .8087e-01, .3583e-03, .1619e-05, .7963e-08,
3 .3308e+01, .4919e-01, .2322e-03,-.2056e-07,-.6857e-08,
3 .1731e+01, .2596e-01, .1057e-03, .7529e-08, .5775e-09,
3 .1015e+01, .1601e-01, .8324e-04,-.2715e-07,-.2508e-08,
3 .6430e+00, .9946e-02, .4431e-04,-.4379e-07,-.8073e-09,
3 .7170e+01, .9746e-01, .5182e-03,-.5037e-06,-.3281e-07,
3 .4311e+01, .6002e-01, .2196e-03, .1687e-06, .2666e-08,
3 .2263e+01, .3324e-01, .1076e-03, .8376e-07, .6195e-08,
3 .1332e+01, .2104e-01, .1020e-03, .6250e-07,-.5010e-09,
3 .8303e+00, .1303e-01, .6471e-04,-.3176e-07,-.1833e-08 /
data ((( cl7co2u(k,j,i), k = 1, 5), j = 1, 11), i = 1, 3) /
1 .4904e-04, .1609e-05, .2180e-07, .1390e-09, .3177e-12,
1 .7290e-04, .2394e-05, .3248e-07, .2065e-09, .4603e-12,
1 .1084e-03, .3562e-05, .4835e-07, .3072e-09, .6805e-12,
1 .1610e-03, .5291e-05, .7169e-07, .4570e-09, .1049e-11,
1 .2392e-03, .7867e-05, .1064e-06, .6785e-09, .1588e-11,
1 .3543e-03, .1167e-04, .1582e-06, .1010e-08, .2369e-11,
1 .5234e-03, .1727e-04, .2351e-06, .1505e-08, .3491e-11,
1 .7692e-03, .2538e-04, .3466e-06, .2250e-08, .5443e-11,
1 .1124e-02, .3697e-04, .5026e-06, .3334e-08, .9072e-11,
1 .1623e-02, .5275e-04, .7100e-06, .4932e-08, .1625e-10,
1 .2316e-02, .7453e-04, .9939e-06, .6987e-08, .2446e-10,
2 .1502e-02, .3778e-04, .3395e-06, .1011e-08,-.1556e-11,
2 .2199e-02, .5550e-04, .5037e-06, .1546e-08,-.2156e-11,
2 .3214e-02, .8127e-04, .7393e-06, .2358e-08,-.2031e-11,
2 .4677e-02, .1182e-03, .1078e-05, .3660e-08,-.2471e-12,
2 .6791e-02, .1719e-03, .1570e-05, .5437e-08, .1264e-11,
2 .9799e-02, .2477e-03, .2266e-05, .8090e-08, .4361e-11,
2 .1406e-01, .3540e-03, .3248e-05, .1193e-07, .7723e-11,
2 .2007e-01, .5033e-03, .4602e-05, .1701e-07, .1187e-10,
2 .2856e-01, .7077e-03, .6282e-05, .2422e-07, .4679e-10,
2 .4034e-01, .9965e-03, .8614e-05, .3165e-07, .7316e-10,
2 .5625e-01, .1394e-02, .1197e-04, .4058e-07, .7027e-10,
3 .2543e-01, .5185e-03, .3802e-05, .8871e-08,-.1849e-10,
3 .3643e-01, .7330e-03, .5302e-05, .1280e-07,-.2020e-10,
3 .5234e-01, .1039e-02, .7422e-05, .1805e-07,-.2737e-10,
3 .7547e-01, .1478e-02, .1027e-04, .2461e-07,-.2592e-10,
3 .1088e+00, .2103e-02, .1412e-04, .3220e-07,-.1723e-10,
3 .1566e+00, .3000e-02, .1945e-04, .4064e-07,-.3222e-11,
3 .2244e+00, .4274e-02, .2712e-04, .4915e-07,-.3124e-10,
3 .3186e+00, .6048e-02, .3849e-04, .5988e-07,-.2055e-09,
3 .4479e+00, .8441e-02, .5385e-04, .8065e-07,-.4098e-09,
3 .6230e+00, .1159e-01, .7311e-04, .1143e-06,-.5444e-09,
3 .8571e+00, .1568e-01, .9611e-04, .1568e-06,-.5048e-09 /
data (((( cl7co2d(k,l,j,i), k = 1, 5), l = 1, 5), j = 1, 7),
1 i = 1, 2) /
1 .3255e-02, .1040e-03, .1387e-05, .9581e-08, .3107e-10,
1 .4614e-02, .1308e-03, .1606e-05, .1133e-07, .3897e-10,
1 .8000e-02, .2025e-03, .2015e-05, .1305e-07, .6382e-10,
1 .1608e-01, .4327e-03, .4148e-05, .8855e-08,-.7839e-10,
1 .3006e-01, .7894e-03, .7339e-05, .4311e-07, .2559e-09,
1 .4549e-02, .1443e-03, .1895e-05, .1271e-07, .3962e-10,
1 .6526e-02, .1809e-03, .2151e-05, .1538e-07, .5875e-10,
1 .1145e-01, .2827e-03, .2617e-05, .1811e-07, .1158e-09,
1 .2264e-01, .6134e-03, .5976e-05, .1229e-07,-.1286e-09,
1 .4252e-01, .1115e-02, .9811e-05, .5431e-07, .3797e-09,
1 .6295e-02, .1988e-03, .2587e-05, .1663e-07, .4580e-10,
1 .9195e-02, .2505e-03, .2872e-05, .1991e-07, .7763e-10,
1 .1628e-01, .3991e-03, .3504e-05, .2247e-07, .1547e-09,
1 .3086e-01, .8906e-03, .1019e-04, .1209e-07,-.4987e-09,
1 .5926e-01, .1522e-02, .1236e-04, .7739e-07, .7260e-09,
1 .8550e-02, .2658e-03, .3428e-05, .2218e-07, .6261e-10,
1 .1271e-01, .3464e-03, .3894e-05, .2481e-07, .8621e-10,
1 .2267e-01, .5632e-03, .5213e-05, .2786e-07, .1182e-09,
1 .4263e-01, .1203e-02, .1377e-04, .2406e-07,-.6019e-09,
1 .8037e-01, .2070e-02, .1694e-04, .9654e-07, .8452e-09,
1 .1140e-01, .3506e-03, .4551e-05, .2893e-07, .6920e-10,
1 .1743e-01, .4719e-03, .5160e-05, .3007e-07, .9235e-10,
1 .3140e-01, .7874e-03, .7397e-05, .3604e-07, .1089e-09,
1 .5772e-01, .1532e-02, .1545e-04, .5578e-07,-.1105e-09,
1 .1060e+00, .2889e-02, .2743e-04, .1007e-06, .1655e-09,
1 .1514e-01, .4601e-03, .5967e-05, .3708e-07, .7576e-10,
1 .2354e-01, .6282e-03, .6910e-05, .3900e-07, .9360e-10,
1 .4317e-01, .1064e-02, .8955e-05, .4370e-07, .2462e-09,
1 .7690e-01, .2072e-02, .2034e-04, .6934e-07,-.8692e-10,
1 .1381e+00, .3797e-02, .3719e-04, .1078e-06,-.3219e-09,
1 .1979e-01, .5740e-03, .7208e-05, .4868e-07, .1467e-09,
1 .3168e-01, .8015e-03, .8039e-05, .5036e-07, .2217e-09,
1 .5674e-01, .1496e-02, .1408e-04, .3696e-07,-.1705e-09,
1 .9986e-01, .2547e-02, .2090e-04, .1060e-06, .8137e-09,
1 .1824e+00, .5133e-02, .4785e-04, .9002e-07,-.5910e-09,
2 .7750e-01, .1926e-02, .1647e-04, .5152e-07, .5789e-10,
2 .9252e-01, .2176e-02, .1805e-04, .5697e-07, .4090e-10,
2 .1256e+00, .2757e-02, .2200e-04, .6171e-07,-.7270e-10,
2 .1997e+00, .3954e-02, .2617e-04, .6572e-07, .1797e-09,
2 .3415e+00, .6298e-02, .4389e-04, .1357e-06, .8247e-10,
2 .1051e+00, .2611e-02, .2185e-04, .6654e-07, .1234e-09,
2 .1264e+00, .2955e-02, .2427e-04, .7624e-07, .6777e-10,
2 .1737e+00, .3761e-02, .2920e-04, .8313e-07,-.2525e-10,
2 .2793e+00, .5549e-02, .3784e-04, .6902e-07,-.2349e-09,
2 .4851e+00, .8731e-02, .5836e-04, .1805e-06, .1464e-09,
2 .1393e+00, .3468e-02, .2892e-04, .8188e-07, .1027e-09,
2 .1688e+00, .3947e-02, .3179e-04, .9314e-07, .8401e-10,
2 .2355e+00, .5063e-02, .3872e-04, .1004e-06,-.1287e-09,
2 .3871e+00, .7623e-02, .5141e-04, .8296e-07,-.4458e-09,
2 .6934e+00, .1205e-01, .7024e-04, .2347e-06, .1293e-08,
2 .1789e+00, .4491e-02, .3824e-04, .9838e-07,-.7182e-10,
2 .2207e+00, .5185e-02, .4150e-04, .1067e-06,-.1754e-10,
2 .3149e+00, .6732e-02, .5003e-04, .1184e-06,-.1814e-09,
2 .5358e+00, .1028e-01, .6192e-04, .1167e-06, .4598e-09,
2 .9829e+00, .1710e-01, .9858e-04, .2107e-06, .2801e-09,
2 .2253e+00, .5681e-02, .4891e-04, .1097e-06,-.3620e-09,
2 .2837e+00, .6655e-02, .5329e-04, .1255e-06,-.2267e-09,
2 .4190e+00, .8860e-02, .6180e-04, .1329e-06, .3621e-10,
2 .7333e+00, .1419e-01, .8173e-04, .7045e-07, .3811e-09,
2 .1347e+01, .2269e-01, .1314e-03, .3965e-06, .8550e-09,
2 .2805e+00, .7112e-02, .6151e-04, .1254e-06,-.6195e-09,
2 .3568e+00, .8458e-02, .6798e-04, .1356e-06,-.5463e-09,
2 .5474e+00, .1172e-01, .8464e-04, .1108e-06,-.1226e-08,
2 .9699e+00, .1876e-01, .1179e-03, .1239e-06,-.7090e-09,
2 .1815e+01, .2923e-01, .1676e-03, .5291e-06,-.3456e-09,
2 .3383e+00, .8644e-02, .7789e-04, .1622e-06,-.1140e-08,
2 .4362e+00, .1044e-01, .8731e-04, .1638e-06,-.1184e-08,
2 .6993e+00, .1458e-01, .1057e-03, .2338e-06,-.7636e-09,
2 .1276e+01, .2441e-01, .1581e-03, .1820e-06,-.1661e-08,
2 .2438e+01, .3783e-01, .2135e-03, .7464e-06,-.1470e-08 /
data (((( cl7co2d(k,l,j,i), k = 1, 5), l = 1, 5), j = 1, 7),
1 i = 3, 3) /
3 .1167e+01, .2108e-01, .1237e-03, .1746e-06,-.5044e-09,
3 .1275e+01, .2281e-01, .1314e-03, .1947e-06,-.2232e-09,
3 .1486e+01, .2643e-01, .1517e-03, .1999e-06,-.5959e-09,
3 .1876e+01, .3241e-01, .1728e-03, .2616e-06, .1049e-08,
3 .2672e+01, .4497e-01, .2296e-03, .3947e-06, .2269e-08,
3 .1565e+01, .2793e-01, .1598e-03, .1901e-06,-.6590e-09,
3 .1712e+01, .3031e-01, .1698e-03, .2092e-06,-.3258e-09,
3 .2002e+01, .3520e-01, .1958e-03, .2216e-06,-.5193e-09,
3 .2531e+01, .4308e-01, .2237e-03, .3119e-06, .1414e-08,
3 .3605e+01, .6133e-01, .3406e-03, .2296e-06,-.4799e-08,
3 .2059e+01, .3596e-01, .2083e-03, .2687e-06,-.1859e-08,
3 .2258e+01, .3921e-01, .2210e-03, .2619e-06,-.1513e-08,
3 .2658e+01, .4551e-01, .2468e-03, .3205e-06,-.4218e-09,
3 .3371e+01, .5604e-01, .2877e-03, .4227e-06, .1310e-08,
3 .4826e+01, .8129e-01, .4636e-03,-.4164e-07,-.1377e-07,
3 .2713e+01, .4529e-01, .2301e-03, .3232e-06, .9465e-09,
3 .2984e+01, .4978e-01, .2522e-03, .2712e-06, .4486e-10,
3 .3523e+01, .5791e-01, .2817e-03, .3919e-06, .2269e-08,
3 .4482e+01, .7323e-01, .3860e-03, .2529e-06,-.5461e-08,
3 .6493e+01, .1068e+00, .5665e-03,-.1502e-06,-.1384e-07,
3 .3571e+01, .5797e-01, .2707e-03, .1700e-06, .1403e-09,
3 .3929e+01, .6345e-01, .3014e-03, .1354e-06,-.1783e-08,
3 .4642e+01, .7465e-01, .3501e-03, .1434e-06,-.1217e-08,
3 .5959e+01, .9345e-01, .4426e-03, .4426e-06,-.1279e-08,
3 .8688e+01, .1389e+00, .6834e-03, .9559e-07,-.8553e-08,
3 .4648e+01, .7368e-01, .3137e-03,-.4722e-07,-.3984e-10,
3 .5107e+01, .7983e-01, .3357e-03, .7199e-07, .1513e-08,
3 .6056e+01, .9394e-01, .3957e-03, .1422e-06, .1723e-08,
3 .7848e+01, .1185e+00, .4563e-03, .5001e-06, .1056e-07,
3 .1153e+02, .1781e+00, .8249e-03, .7612e-06,-.1393e-08,
3 .5932e+01, .9222e-01, .3615e-03,-.1798e-06, .1687e-08,
3 .6475e+01, .9998e-01, .4053e-03,-.2179e-06,-.1145e-08,
3 .7702e+01, .1173e+00, .4919e-03,-.2205e-06,-.5892e-08,
3 .9986e+01, .1478e+00, .5509e-03, .9207e-07, .5696e-08,
3 .1490e+02, .2225e+00, .9115e-03, .1485e-05, .1755e-07 /
data ((( cl7n2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 3) /
1 .8148e+01, .6224e-01,-.6846e-05, .8974e-06,-.1033e-07,
1 .8569e+01, .5923e-01,-.2197e-03, .1540e-05, .2055e-07,
1 .8595e+01, .5385e-01, .9093e-04, .2294e-05,-.3993e-07,
1 .8493e+01, .5052e-01, .7328e-04, .2659e-05,-.3395e-07,
1 .8262e+01, .5293e-01, .4829e-04, .2444e-05,-.3916e-07,
1 .2851e+01, .3480e-01,-.2800e-03, .2200e-05, .7293e-07,
1 .2402e+00, .2234e-01, .4712e-03,-.1211e-05,-.5834e-07,
1 .4541e-06,-.1642e-02,-.1274e-04, .1800e-05, .2353e-07,
1 .7088e+02, .6289e-01,-.3661e-03,-.1058e-04, .6882e-07,
1 .7146e+02, .5148e-01,-.2175e-02,-.7261e-05, .4022e-06,
1 .7222e+02, .5624e-01,-.3356e-02,-.6034e-05, .6318e-06,
1 .7151e+02, .6882e-01,-.2565e-02,-.8649e-05, .4939e-06,
1 .7125e+02, .5410e-01,-.2167e-02,-.3899e-05, .4233e-06,
1 .6901e+02, .4248e-01,-.2437e-03,-.1897e-05, .2292e-07,
1 .6882e+02, .4244e-01,-.3063e-03,-.1245e-05, .5215e-07,
1 .6875e+02, .4644e-01,-.3614e-03,-.6424e-06, .1553e-07,
1 .6881e+02, .5214e-01,-.8226e-03,-.1206e-05, .9614e-07,
1 .6805e+02, .4206e-01, .3248e-04,-.2236e-06,-.4353e-07,
2 .6773e+02, .8675e-02, .7651e-03, .7847e-05,-.2072e-06,
2 .6716e+02,-.3277e-02, .1549e-02, .1192e-04,-.3432e-06,
2 .6753e+02,-.1385e-01, .9365e-03, .1319e-04,-.2467e-06,
2 .6835e+02, .4620e-01,-.1182e-02,-.5638e-06, .1417e-06,
2 .6910e+02, .5163e-01,-.2238e-02,-.4520e-05, .3301e-06,
2 .7478e+02,-.2364e-01, .4374e-03,-.1608e-04, .1748e-06,
2 .7907e+02,-.9706e-01, .2127e-02,-.1112e-04,-.4416e-07,
2 .7849e+02,-.1590e+00, .1819e-02,-.1825e-04, .1549e-06,
2 .6858e+02,-.5489e-01,-.7813e-03,-.6064e-05, .2038e-07,
2 .6793e+02,-.4994e-01, .1092e-02,-.8056e-05,-.3065e-06,
2 .6735e+02,-.5123e-01, .2120e-02,-.1049e-04,-.4897e-06,
2 .6755e+02,-.7535e-01, .1401e-02,-.6042e-05,-.3070e-06,
2 .6710e+02,-.6120e-01, .1357e-02,-.1065e-04,-.2607e-06,
2 .6881e+02,-.6613e-01, .3396e-03,-.6639e-05,-.7716e-07,
2 .6842e+02,-.8067e-01, .9989e-03,-.7063e-05,-.1821e-06,
2 .6894e+02,-.1055e+00, .4917e-03,-.4542e-05,-.3555e-07,
2 .6933e+02,-.1360e+00, .2122e-03, .9095e-06, .3528e-07,
2 .6921e+02,-.1299e+00,-.3193e-03,-.1333e-05, .1396e-06,
3 .6960e+02,-.1035e+00,-.7535e-03,-.1370e-04, .2759e-06,
3 .7043e+02,-.1215e+00,-.8825e-03,-.1325e-04, .2538e-06,
3 .7121e+02,-.9202e-01,-.7159e-03,-.1855e-04, .2607e-06,
3 .7159e+02,-.1447e+00, .2173e-02,-.3401e-05,-.2737e-06,
3 .7222e+02,-.1597e+00, .2804e-02, .2141e-05,-.3354e-06,
3 .7228e+02,-.7875e-01, .7600e-03, .7517e-05,-.2978e-06,
3 .7343e+02, .6232e-01,-.2491e-02, .2471e-05,-.1817e-07,
3 .7093e+02, .1434e+00,-.1984e-02, .1068e-04,-.1890e-06,
3 .3796e+02,-.1229e+00,-.2486e-02, .1433e-04, .7759e-06,
3 .3777e+02,-.1362e+00,-.1047e-02, .1180e-04, .4308e-06,
3 .3299e+02,-.1797e+00, .4029e-02, .1912e-04,-.4397e-06,
3 .3463e+02,-.1706e+00, .3305e-02, .1638e-04,-.4226e-06,
3 .3749e+02,-.1884e+00, .2247e-02, .1759e-04,-.3439e-06,
3 .4033e+02,-.2198e+00, .1481e-03, .1389e-04, .1807e-06,
3 .4189e+02,-.1422e+00,-.7959e-03, .6407e-05, .2982e-06,
3 .4265e+02,-.1239e+00,-.6592e-03, .4956e-05, .1783e-06,
3 .4278e+02,-.6256e-01, .1423e-02,-.4515e-05,-.2905e-06,
3 .4492e+02,-.6168e-01, .4466e-03, .4091e-05,-.1330e-06 /
data (((( cl7cs(k,l,j,i), k = 1, 5), l = 1, 5), j = 1, 4),
1 i = 1, 3) /
1 .1396e+02,-.2899e+00, .3004e-02,-.2032e-04, .7639e-07,
1 .1353e+02,-.2584e+00, .2485e-02,-.2471e-04, .1733e-06,
1 .1257e+02,-.2425e+00, .2678e-02,-.2986e-04, .1957e-06,
1 .1220e+02,-.2489e+00, .2698e-02,-.4082e-04, .3670e-06,
1 .1250e+02,-.2966e+00, .4165e-02,-.4513e-04, .2460e-06,
1 .2076e+02,-.4239e+00, .4211e-02,-.2978e-04, .1392e-06,
1 .1980e+02,-.3811e+00, .3767e-02,-.3469e-04, .2172e-06,
1 .1832e+02,-.3536e+00, .3858e-02,-.4568e-04, .3246e-06,
1 .1781e+02,-.3669e+00, .4217e-02,-.6134e-04, .5105e-06,
1 .1853e+02,-.4439e+00, .6060e-02,-.6637e-04, .3895e-06,
1 .3051e+02,-.6205e+00, .6107e-02,-.4250e-04, .1959e-06,
1 .2883e+02,-.5561e+00, .5442e-02,-.4706e-04, .2801e-06,
1 .2641e+02,-.5175e+00, .5890e-02,-.6928e-04, .4738e-06,
1 .2575e+02,-.5494e+00, .6783e-02,-.9038e-04, .6733e-06,
1 .2749e+02,-.6635e+00, .8844e-02,-.9781e-04, .6089e-06,
1 .4463e+02,-.8951e+00, .8654e-02,-.6029e-04, .2823e-06,
1 .4156e+02,-.7814e+00, .7533e-02,-.7295e-04, .4848e-06,
1 .3793e+02,-.7457e+00, .8307e-02,-.1079e-03, .8356e-06,
1 .3743e+02,-.8170e+00, .1082e-01,-.1344e-03, .8735e-06,
1 .4082e+02,-.9914e+00, .1288e-01,-.1441e-03, .9500e-06,
2 .3576e+02,-.7950e+00, .9379e-02,-.1004e-03, .6593e-06,
2 .3695e+02,-.8510e+00, .1037e-01,-.9624e-04, .5167e-06,
2 .3768e+02,-.8574e+00, .1002e-01,-.9300e-04, .5332e-06,
2 .3653e+02,-.8198e+00, .9766e-02,-.8351e-04, .3882e-06,
2 .3441e+02,-.7423e+00, .8193e-02,-.7873e-04, .4911e-06,
2 .5297e+02,-.1176e+01, .1408e-01,-.1506e-03, .9642e-06,
2 .5513e+02,-.1255e+01, .1508e-01,-.1464e-03, .8476e-06,
2 .5620e+02,-.1271e+01, .1481e-01,-.1387e-03, .8010e-06,
2 .5408e+02,-.1219e+01, .1447e-01,-.1224e-03, .5719e-06,
2 .5082e+02,-.1091e+01, .1205e-01,-.1176e-03, .7357e-06,
2 .7874e+02,-.1749e+01, .2121e-01,-.2258e-03, .1406e-05,
2 .8230e+02,-.1860e+01, .2225e-01,-.2246e-03, .1361e-05,
2 .8369e+02,-.1886e+01, .2197e-01,-.2060e-03, .1185e-05,
2 .8068e+02,-.1803e+01, .2095e-01,-.1809e-03, .9093e-06,
2 .7519e+02,-.1597e+01, .1758e-01,-.1773e-03, .1140e-05,
2 .1172e+03,-.2615e+01, .3219e-01,-.3423e-03, .2103e-05,
2 .1231e+03,-.2805e+01, .3371e-01,-.3281e-03, .1912e-05,
2 .1248e+03,-.2812e+01, .3300e-01,-.3006e-03, .1622e-05,
2 .1202e+03,-.2669e+01, .3020e-01,-.2658e-03, .1463e-05,
2 .1111e+03,-.2337e+01, .2557e-01,-.2674e-03, .1780e-05,
3 .3100e+02,-.6945e+00, .8494e-02,-.8672e-04, .5088e-06,
3 .3181e+02,-.7074e+00, .8455e-02,-.8803e-04, .5462e-06,
3 .3326e+02,-.7418e+00, .8828e-02,-.8823e-04, .5238e-06,
3 .3536e+02,-.7839e+00, .9161e-02,-.8986e-04, .5339e-06,
3 .3711e+02,-.8247e+00, .9616e-02,-.9420e-04, .5646e-06,
3 .4620e+02,-.1045e+01, .1277e-01,-.1280e-03, .7438e-06,
3 .4726e+02,-.1059e+01, .1273e-01,-.1299e-03, .7868e-06,
3 .4936e+02,-.1106e+01, .1326e-01,-.1290e-03, .7332e-06,
3 .5266e+02,-.1160e+01, .1345e-01,-.1343e-03, .8198e-06,
3 .5515e+02,-.1228e+01, .1445e-01,-.1392e-03, .8026e-06,
3 .6904e+02,-.1562e+01, .1886e-01,-.1902e-03, .1144e-05,
3 .7050e+02,-.1592e+01, .1925e-01,-.1900e-03, .1102e-05,
3 .7362e+02,-.1645e+01, .1947e-01,-.1898e-03, .1105e-05,
3 .7804e+02,-.1715e+01, .1994e-01,-.2001e-03, .1228e-05,
3 .8155e+02,-.1825e+01, .2167e-01,-.2044e-03, .1135e-05,
3 .1034e+03,-.2340e+01, .2796e-01,-.2808e-03, .1696e-05,
3 .1056e+03,-.2374e+01, .2853e-01,-.2854e-03, .1686e-05,
3 .1099e+03,-.2444e+01, .2875e-01,-.2822e-03, .1675e-05,
3 .1153e+03,-.2530e+01, .2960e-01,-.2994e-03, .1835e-05,
3 .1201e+03,-.2705e+01, .3262e-01,-.2964e-03, .1525e-05 /
data (((( cl7cf(k,l,j,i), k = 1, 5), l = 1, 5), j = 1, 4),
1 i = 1, 3) /
1 .2721e-01,-.5029e-04,-.7229e-06, .1343e-07,-.1062e-09,
1 .2194e-01, .7539e-04,-.1816e-05, .7955e-09, .1054e-09,
1 .1344e-01, .1345e-03,-.6031e-06,-.4300e-08,-.3154e-10,
1 .6618e-02, .9637e-04,-.1803e-05,-.6878e-08, .3614e-09,
1 .1711e-02, .3592e-04, .1396e-05,-.3379e-08,-.1991e-09,
1 .4055e-01,-.5527e-04,-.1803e-05, .1873e-07,-.4836e-10,
1 .3142e-01, .1157e-03,-.2265e-05, .3978e-08, .5934e-10,
1 .1852e-01, .1935e-03,-.1201e-05,-.7214e-08, .4518e-10,
1 .8721e-02, .1498e-03,-.1686e-05,-.1406e-07, .3448e-09,
1 .2531e-02, .2676e-04, .1288e-05,-.7368e-09,-.1513e-09,
1 .5893e-01,-.6185e-04,-.2884e-05, .2840e-07,-.6746e-10,
1 .4433e-01, .1868e-03,-.3518e-05, .1134e-07, .5021e-10,
1 .2432e-01, .2755e-03,-.9316e-06,-.1096e-07,-.1363e-10,
1 .1031e-01, .1906e-03,-.8226e-06,-.1849e-07, .2199e-09,
1 .3749e-02, .7716e-05, .9610e-06, .4006e-08,-.5038e-10,
1 .8478e-01,-.2040e-04,-.4858e-05, .3770e-07,-.7883e-10,
1 .6069e-01, .3674e-03,-.5458e-05, .3683e-08, .1553e-09,
1 .3107e-01, .3821e-03,-.2662e-05,-.1749e-07, .3548e-09,
1 .1220e-01, .2782e-03, .1685e-05,-.3191e-07,-.2148e-09,
1 .5567e-02,-.3440e-04, .3315e-07, .1223e-07, .1653e-09,
2 .7821e-01,-.5032e-03, .1815e-05,-.1798e-07, .2725e-09,
2 .8295e-01,-.6342e-03, .3803e-05,-.6655e-09,-.1459e-09,
2 .8570e-01,-.6197e-03, .1921e-05, .2405e-08, .8082e-10,
2 .8002e-01,-.4733e-03, .2838e-05, .3014e-08,-.3074e-09,
2 .7042e-01,-.3041e-03,-.4697e-06, .1385e-08, .1470e-09,
2 .1157e+00,-.7264e-03, .3596e-05,-.3150e-07, .2669e-09,
2 .1245e+00,-.9118e-03, .4689e-05,-.9272e-08,-.2104e-10,
2 .1285e+00,-.8969e-03, .2715e-05,-.2958e-09, .1281e-09,
2 .1180e+00,-.7211e-03, .3951e-05, .1018e-07,-.3941e-09,
2 .1035e+00,-.4199e-03,-.6634e-06,-.3520e-08, .1953e-09,
2 .1723e+00,-.1062e-02, .6825e-05,-.5327e-07, .1619e-09,
2 .1871e+00,-.1329e-02, .6384e-05,-.2777e-07, .1529e-09,
2 .1920e+00,-.1307e-02, .4023e-05,-.4661e-08, .1563e-09,
2 .1769e+00,-.1041e-02, .4307e-05, .1321e-07,-.3727e-09,
2 .1526e+00,-.5553e-03,-.1259e-05,-.1704e-07, .3511e-09,
2 .2566e+00,-.1644e-02, .1261e-04,-.7588e-07, .5754e-10,
2 .2816e+00,-.2071e-02, .1010e-04,-.2053e-07, .1099e-09,
2 .2876e+00,-.1907e-02, .7436e-05,-.7658e-08,-.1866e-09,
2 .2645e+00,-.1549e-02, .2845e-05, .2773e-07, .1846e-10,
2 .2245e+00,-.7345e-03,-.2852e-05,-.4225e-07, .7253e-09,
3 .5417e-01,-.2528e-03, .2038e-05,-.1069e-07,-.9237e-10,
3 .5733e-01,-.2676e-03, .1178e-05,-.1113e-07, .6626e-10,
3 .6326e-01,-.3189e-03, .1382e-05,-.8199e-08, .2497e-11,
3 .7192e-01,-.3792e-03, .1203e-05,-.6301e-08, .3709e-10,
3 .7876e-01,-.4561e-03, .1581e-05,-.7160e-08, .7944e-10,
3 .8131e-01,-.4257e-03, .2970e-05,-.9726e-08,-.1144e-09,
3 .8526e-01,-.4267e-03, .2139e-05,-.1287e-07, .3529e-10,
3 .9381e-01,-.4804e-03, .2577e-05,-.8269e-08,-.1095e-09,
3 .1076e+00,-.5418e-03, .1434e-05,-.1212e-07, .1226e-09,
3 .1173e+00,-.6765e-03, .3044e-05,-.9734e-08,-.1606e-10,
3 .1230e+00,-.6759e-03, .3263e-05,-.9553e-08, .4656e-10,
3 .1282e+00,-.6832e-03, .3999e-05,-.9516e-08,-.1161e-09,
3 .1408e+00,-.7172e-03, .3002e-05,-.8244e-08,-.4856e-10,
3 .1592e+00,-.7890e-03, .2233e-05,-.1915e-07, .2194e-09,
3 .1729e+00,-.1016e-02, .5181e-05,-.9115e-08,-.1553e-09,
3 .1872e+00,-.1039e-02, .3510e-05,-.1482e-07, .1817e-09,
3 .1948e+00,-.1027e-02, .5437e-05,-.2273e-07,-.9952e-10,
3 .2118e+00,-.1057e-02, .3727e-05,-.1216e-07, .8117e-10,
3 .2342e+00,-.1121e-02, .4051e-05,-.3507e-07, .2993e-09,
3 .2527e+00,-.1504e-02, .9940e-05,-.1262e-08,-.7234e-09 /
c
data gwl7gh / .18200, .13600, .05000, .01270, .00300, .00100,
1 .00030 /
data cl7o3gh / 40.73849, 43.96434 /
data ((( cl7h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
4 .3979e-03, .1309e-04, .2319e-06, .2275e-08, .9044e-11,
4 .5975e-03, .1801e-04, .3143e-06, .2752e-08, .6934e-11,
4 .9489e-03, .2967e-04, .5084e-06, .3076e-08,-.5444e-11,
4 .1616e-02, .4305e-04, .6158e-06, .3792e-08, .1404e-11,
4 .2657e-02, .6118e-04, .7583e-06, .5784e-08, .2172e-10,
4 .4296e-02, .8016e-04, .8953e-06, .8844e-08, .4875e-10,
4 .7236e-02, .1351e-03, .1344e-05, .8520e-08, .3701e-10,
4 .1304e-01, .1880e-03, .1277e-05, .1610e-07, .1506e-09,
4 .2337e-01, .3183e-03, .1052e-05, .1674e-07, .3188e-09,
4 .4154e-01, .5183e-03, .2804e-05, .2479e-07, .2173e-09,
4 .1062e+00, .1367e-02, .7187e-05,-.9725e-08,-.2056e-09,
4 .1507e+00, .1994e-02, .1516e-04,-.3444e-07,-.1388e-08,
4 .2212e+00, .2635e-02, .1612e-04, .2766e-08,-.9770e-09,
4 .3162e+00, .3718e-02, .1361e-04, .2238e-07, .6228e-09,
4 .4491e+00, .5330e-02, .1967e-04, .1130e-07, .9380e-09,
4 .6229e+00, .6924e-02, .2318e-04, .7405e-07, .1877e-08,
4 .8901e+00, .1036e-01, .5791e-04,-.1261e-06,-.4170e-08,
4 .1264e+01, .1329e-01, .5246e-04, .8264e-07, .8006e-09,
4 .1837e+01, .1838e-01, .1531e-04, .1192e-06, .9628e-08,
4 .2553e+01, .2565e-01, .1345e-03, .2501e-06,-.7128e-08,
4 .3616e+01, .3494e-01, .1811e-03, .1876e-06,-.9945e-08,
4 .5193e+01, .4251e-01, .2234e-03, .1113e-05,-.1956e-07,
4 .7291e+01, .5548e-01, .2691e-03, .2257e-05,-.2823e-07,
4 .9882e+01, .8229e-01,-.3997e-03, .2539e-05, .7505e-07,
4 .1040e+02, .1364e+00, .2396e-03,-.2653e-05,-.8985e-08,
4 .9481e+01, .1431e+00, .1698e-03,-.1884e-05, .4727e-07,
4 .7102e+01, .1382e+00, .8000e-03,-.4169e-05,-.5986e-07,
4 .4817e+01, .1006e+00, .4971e-03, .1741e-05, .3680e-07,
5 .3073e-01, .1060e-02, .1685e-04, .2057e-06, .1376e-08,
5 .3250e-01, .1081e-02, .1674e-04, .2063e-06, .1410e-08,
5 .3729e-01, .1104e-02, .1512e-04, .2029e-06, .1591e-08,
5 .4358e-01, .1219e-02, .1567e-04, .1915e-06, .1457e-08,
5 .5140e-01, .1576e-02, .2414e-04, .1799e-06, .3830e-09,
5 .6843e-01, .1849e-02, .2645e-04, .1623e-06,-.7235e-10,
5 .9013e-01, .2220e-02, .2932e-04, .1516e-06,-.2603e-09,
5 .1477e+00, .2575e-02, .1313e-04, .2283e-06, .3220e-08,
5 .2275e+00, .3596e-02, .1003e-04, .2908e-06, .5134e-08,
5 .3341e+00, .5577e-02, .2436e-04, .2137e-06, .4207e-08,
5 .6167e+00, .9654e-02, .8056e-04, .2617e-06,-.1574e-08,
5 .8408e+00, .1139e-01, .7003e-04, .4346e-06, .2950e-08,
5 .1122e+01, .1629e-01, .1129e-03, .1767e-06,-.1711e-08,
5 .1604e+01, .2096e-01, .1567e-03, .4008e-06,-.8837e-08,
5 .2256e+01, .3159e-01, .2720e-03, .2558e-06,-.2096e-07,
5 .3228e+01, .3908e-01, .2333e-03, .1666e-05, .1700e-08,
5 .4433e+01, .5401e-01, .8836e-04, .1209e-05, .3277e-07,
5 .6214e+01, .7139e-01, .2844e-03, .8659e-06,-.8975e-08,
5 .8883e+01, .1214e+00, .4692e-03,-.3952e-05,-.4179e-07,
5 .1070e+02, .1283e+00, .1178e-02, .1746e-05,-.1318e-06,
5 .1423e+02, .1890e+00, .2108e-04,-.1841e-05, .4531e-07,
5 .1308e+02, .2516e+00, .1488e-02,-.8041e-05,-.1593e-06,
5 .1082e+02, .2402e+00, .4970e-03,-.3117e-05, .1181e-06,
5 .5873e+01, .2170e+00, .2438e-02,-.6079e-05,-.1877e-06,
5 .2984e+01, .1027e+00, .1260e-02, .7025e-05, .2700e-07,
5 .1567e+01, .6182e-01, .1249e-02, .4508e-05,-.6663e-07,
5 .1627e+01, .2983e-01, .1840e-03, .5014e-05, .6238e-07,
5 .1814e+01, .4301e-01, .3540e-03,-.6079e-06,-.2215e-07,
6 .2679e+01, .8688e-01, .1266e-02, .5835e-05,-.2292e-07,
6 .2674e+01, .9032e-01, .1363e-02, .5089e-05,-.4266e-07,
6 .2907e+01, .9037e-01, .1116e-02, .5038e-05,-.1392e-08,
6 .3053e+01, .8953e-01, .9663e-03, .5114e-05, .2324e-07,
6 .3393e+01, .9585e-01, .9985e-03, .3540e-05, .1842e-08,
6 .3641e+01, .8739e-01, .8533e-03, .6089e-05, .3778e-07,
6 .3979e+01, .8723e-01, .8792e-03, .6312e-05, .2811e-07,
6 .4731e+01, .1070e+00, .1184e-02, .4556e-05,-.2335e-07,
6 .5910e+01, .1202e+00, .1488e-02, .3533e-05,-.9056e-07,
6 .8394e+01, .1517e+00, .1013e-02, .3045e-05, .9213e-08,
6 .1445e+02, .2547e+00, .9205e-03,-.6289e-05, .2503e-07,
6 .1641e+02, .2691e+00, .2174e-02,-.5779e-05,-.2074e-06,
6 .1824e+02, .2805e+00, .2827e-02, .1470e-05,-.1362e-06,
6 .2484e+02, .2895e+00, .2182e-02, .2012e-04, .9200e-07,
6 .3228e+02, .2715e+00,-.7519e-03, .2783e-04, .4698e-06,
6 .4015e+02, .4094e+00, .2015e-03, .1272e-04, .1433e-06,
6 .4570e+02, .6543e+00, .2055e-02,-.6647e-05,-.8492e-07,
6 .4541e+02, .7479e+00, .4208e-03,-.8566e-05, .3976e-06,
6 .3539e+02, .6533e+00, .2515e-02, .8626e-05, .2095e-06,
6 .2673e+02, .6560e+00, .2446e-02, .1054e-05, .3383e-06,
6 .1179e+02, .4299e+00, .5160e-02, .1176e-04,-.1008e-06,
6 .6849e+01, .1998e+00, .1027e-02, .2448e-04, .4590e-06,
6 .2467e+01, .1354e+00, .3275e-02, .7239e-05,-.2512e-06,
6 .2487e+01, .4085e-01, .3215e-03, .1424e-04, .1790e-06,
6 .2652e+01, .5485e-01, .4623e-03, .9730e-06,-.4515e-10,
6 .2757e+01, .5373e-01, .5512e-03, .1454e-05,-.1937e-07,
6 .2587e+01, .5036e-01, .5962e-03, .2420e-05,-.1868e-07,
6 .1840e+01, .2508e-01, .5036e-03, .6535e-05, .1483e-07 /
data ((( cl7h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 4) /
7 .2162e+03, .3719e+01, .1760e-01, .6433e-04, .9080e-06,
7 .2162e+03, .3706e+01, .1721e-01, .6730e-04, .9864e-06,
7 .2152e+03, .3705e+01, .1822e-01, .6752e-04, .8199e-06,
7 .2146e+03, .3707e+01, .1880e-01, .6733e-04, .7229e-06,
7 .2131e+03, .3677e+01, .1858e-01, .7369e-04, .8188e-06,
7 .2121e+03, .3715e+01, .1902e-01, .5693e-04, .7750e-06,
7 .2106e+03, .4204e+01, .3293e-01,-.4423e-04,-.2055e-05,
7 .2228e+03, .3967e+01, .2013e-01,-.7162e-05,-.1466e-06,
7 .2174e+03, .3899e+01, .1884e-01,-.3389e-05, .1150e-06,
7 .2271e+03, .3934e+01, .2140e-01, .1457e-04,-.1974e-06,
7 .2004e+03, .3456e+01, .2094e-01, .5202e-04,-.1874e-06,
7 .1905e+03, .3366e+01, .1588e-01, .4846e-04, .7028e-06,
7 .1803e+03, .3253e+01, .1270e-01, .2200e-04, .4645e-06,
7 .1488e+03, .3143e+01, .1470e-01,-.5471e-04,-.3892e-06,
7 .1114e+03, .3069e+01, .2493e-01,-.8397e-04,-.1775e-05,
7 .6775e+02, .2405e+01, .2132e-01,-.4006e-04,-.7314e-06,
7 .2845e+02, .1198e+01, .1481e-01, .4502e-04,-.6451e-07,
7 .3587e+01, .5628e+00, .1903e-01, .5347e-04,-.1599e-05,
7 .3853e+01, .2854e+00, .8946e-02, .3495e-04,-.6220e-06,
7 .4115e+01, .3230e-01,-.1339e-03, .9949e-06, .1713e-07,
7 .4514e+01, .4306e-01, .1045e-03,-.3784e-06,-.3653e-07,
7 .5037e+01, .5328e-01,-.1313e-03,-.1217e-05, .4063e-08,
7 .5058e+01, .6589e-01,-.4212e-04,-.1356e-05, .1604e-07,
7 .4487e+01, .6287e-01, .1931e-03, .7326e-06,-.1275e-08,
7 .4122e+01, .6398e-01,-.1124e-04,-.3712e-06, .1871e-07,
7 .3504e+01, .7436e-01,-.1268e-03,-.3277e-05, .5389e-07,
7 .2483e+01, .7784e-01, .3708e-03,-.4513e-05,-.1066e-07,
7 .3159e+01, .7310e-01,-.2678e-03,-.6098e-05, .5793e-07 /
data ((( cl7co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
4 .7533e-03, .1759e-04, .2086e-06, .1701e-08, .7958e-11,
4 .1240e-02, .2724e-04, .3004e-06, .1972e-08, .6215e-11,
4 .2071e-02, .4233e-04, .4310e-06, .2389e-08, .4750e-11,
4 .3501e-02, .6658e-04, .6299e-06, .3096e-08, .3672e-11,
4 .6005e-02, .1055e-03, .9128e-06, .4268e-08, .6298e-11,
4 .1045e-01, .1707e-03, .1361e-05, .5896e-08, .7869e-11,
4 .1848e-01, .2775e-03, .2017e-05, .8748e-08, .1520e-10,
4 .3312e-01, .4599e-03, .3097e-05, .1267e-07, .9837e-11,
4 .6036e-01, .7744e-03, .4852e-05, .1960e-07,-.1083e-10,
4 .1122e+00, .1343e-02, .7612e-05, .2884e-07,-.5713e-10,
4 .2939e+00, .3218e-02, .1513e-04, .5520e-07,-.1293e-09,
4 .4231e+00, .4509e-02, .1931e-04, .7009e-07,-.8888e-10,
4 .6096e+00, .6369e-02, .2573e-04, .8445e-07,-.1876e-09,
4 .8783e+00, .8991e-02, .3577e-04, .1071e-06,-.5840e-09,
4 .1263e+01, .1267e-01, .4923e-04, .1465e-06,-.1119e-08,
4 .1814e+01, .1777e-01, .6644e-04, .2139e-06,-.1677e-08,
4 .2595e+01, .2469e-01, .8332e-04, .3488e-06,-.1476e-08,
4 .3695e+01, .3432e-01, .1039e-03, .4822e-06,-.1712e-08,
4 .5231e+01, .4768e-01, .1220e-03, .5797e-06,-.1247e-08,
4 .7349e+01, .6585e-01, .1372e-03, .6522e-06, .3123e-10,
4 .1022e+02, .8967e-01, .1715e-03, .7535e-06,-.1828e-08,
4 .1416e+02, .1201e+00, .1571e-03, .8937e-06, .1947e-08,
4 .1954e+02, .1614e+00, .9713e-04, .7591e-06, .7562e-08,
4 .2670e+02, .2189e+00, .1658e-04, .3104e-06, .1403e-07,
4 .3583e+02, .2967e+00,-.1940e-03,-.3044e-06, .3986e-07,
4 .4628e+02, .4074e+00,-.2678e-03,-.3593e-05, .4834e-07,
4 .5626e+02, .5270e+00, .2664e-03,-.7034e-05, .6535e-08,
4 .6676e+02, .6160e+00, .3844e-03,-.6498e-05, .1904e-07,
5 .5221e-01, .1805e-02, .2934e-04, .2960e-06, .1506e-08,
5 .6099e-01, .1958e-02, .3034e-04, .2919e-06, .1428e-08,
5 .7430e-01, .2183e-02, .3210e-04, .2900e-06, .1305e-08,
5 .9564e-01, .2507e-02, .3425e-04, .2939e-06, .1267e-08,
5 .1308e+00, .2982e-02, .3636e-04, .3019e-06, .1392e-08,
5 .1887e+00, .3740e-02, .4048e-04, .3122e-06, .1437e-08,
5 .2868e+00, .4941e-02, .4705e-04, .3218e-06, .1375e-08,
5 .4563e+00, .6876e-02, .5772e-04, .3267e-06, .1108e-08,
5 .7576e+00, .9984e-02, .7128e-04, .3349e-06, .1147e-08,
5 .1301e+01, .1510e-01, .9173e-04, .3467e-06, .1288e-08,
5 .3084e+01, .3015e-01, .1499e-03, .3736e-06, .1305e-08,
5 .4287e+01, .3959e-01, .1842e-03, .3846e-06, .1300e-08,
5 .5989e+01, .5211e-01, .2223e-03, .4357e-06, .2183e-08,
5 .8378e+01, .6927e-01, .2770e-03, .4164e-06, .2439e-08,
5 .1174e+02, .9184e-01, .3309e-03, .4309e-06, .5361e-08,
5 .1644e+02, .1224e+00, .3954e-03, .2477e-06, .8943e-08,
5 .2294e+02, .1624e+00, .5228e-03,-.4672e-07, .4298e-08,
5 .3187e+02, .2121e+00, .6170e-03,-.3082e-06, .1099e-07,
5 .4400e+02, .2719e+00, .6996e-03,-.8778e-06, .2000e-07,
5 .6025e+02, .3486e+00, .8769e-03,-.2275e-05, .1487e-07,
5 .8148e+02, .4338e+00, .1275e-02,-.2286e-05,-.2183e-07,
5 .1091e+03, .5291e+00, .1301e-02,-.1092e-05,-.1145e-07,
5 .1433e+03, .6458e+00, .1046e-02,-.2897e-05, .3588e-07,
5 .1827e+03, .7671e+00, .1326e-02,-.8701e-05, .4600e-07,
5 .2277e+03, .8028e+00, .2318e-02,-.7950e-05,-.1857e-07,
5 .2850e+03, .7545e+00, .2500e-02,-.8734e-05, .3775e-07,
5 .3618e+03, .6011e+00, .2124e-02,-.7617e-05, .1066e-06,
5 .4619e+03, .3803e+00, .2990e-02,-.7075e-05,-.9234e-07,
6 .4780e+01, .1369e+00, .1601e-02, .8635e-05, .1564e-07,
6 .4916e+01, .1363e+00, .1576e-02, .8748e-05, .1836e-07,
6 .5166e+01, .1368e+00, .1545e-02, .8726e-05, .2062e-07,
6 .5579e+01, .1392e+00, .1525e-02, .8545e-05, .1990e-07,
6 .6258e+01, .1443e+00, .1500e-02, .8234e-05, .1968e-07,
6 .7359e+01, .1546e+00, .1495e-02, .7704e-05, .1741e-07,
6 .9122e+01, .1720e+00, .1526e-02, .7079e-05, .1276e-07,
6 .1195e+02, .1972e+00, .1548e-02, .6922e-05, .1710e-07,
6 .1663e+02, .2384e+00, .1626e-02, .6359e-05, .1751e-07,
6 .2454e+02, .3044e+00, .1758e-02, .5424e-05, .1714e-07,
6 .4848e+02, .4761e+00, .2260e-02, .4878e-05, .3592e-09,
6 .6383e+02, .5736e+00, .2499e-02, .4589e-05,-.7953e-08,
6 .8489e+02, .6976e+00, .2668e-02, .3466e-05,-.5880e-08,
6 .1134e+03, .8629e+00, .2916e-02, .3468e-06, .2279e-08,
6 .1520e+03, .1073e+01, .3294e-02,-.2331e-05, .2682e-07,
6 .2033e+03, .1319e+01, .4290e-02,-.2585e-05,-.5028e-07,
6 .2706e+03, .1592e+01, .5192e-02, .7664e-06,-.1258e-06,
6 .3575e+03, .1906e+01, .4917e-02, .9025e-05,-.6084e-07,
6 .4645e+03, .2358e+01, .4227e-02, .5232e-05,-.2967e-07,
6 .5874e+03, .2909e+01, .2957e-02,-.1132e-04, .1926e-06,
6 .7166e+03, .3404e+01, .3177e-02,-.3915e-04, .4958e-06,
6 .8538e+03, .3568e+01, .8872e-02,-.6325e-04, .7559e-07,
6 .1026e+04, .3023e+01, .1190e-01,-.2772e-04,-.1500e-06,
6 .1264e+04, .2224e+01, .8202e-02,-.7830e-05, .6620e-07,
6 .1558e+04, .1497e+01, .5592e-02,-.1036e-04,-.8107e-07,
6 .1876e+04, .6267e+00, .2353e-02, .7971e-05,-.2378e-07,
6 .2159e+04,-.1868e+00,-.2069e-03, .1924e-04,-.8951e-07,
6 .2348e+04,-.8938e+00,-.4795e-02, .1456e-04, .5410e-06 /
data ((( cl7co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 6) /
7 .2615e+03, .5304e+01, .3627e-01, .5074e-04,-.3389e-06,
7 .2617e+03, .5303e+01, .3639e-01, .5039e-04,-.3520e-06,
7 .2623e+03, .5296e+01, .3652e-01, .5041e-04,-.3596e-06,
7 .2639e+03, .5276e+01, .3662e-01, .5097e-04,-.3578e-06,
7 .2679e+03, .5237e+01, .3681e-01, .5271e-04,-.3778e-06,
7 .2771e+03, .5164e+01, .3685e-01, .5950e-04,-.4241e-06,
7 .2978e+03, .5056e+01, .3443e-01, .7421e-04,-.1410e-06,
7 .3368e+03, .5065e+01, .3200e-01, .7296e-04, .2043e-07,
7 .4073e+03, .5236e+01, .2858e-01, .5791e-04, .2245e-06,
7 .5211e+03, .5557e+01, .3079e-01, .5554e-04,-.4996e-06,
7 .8666e+03, .6459e+01, .2403e-01, .7457e-04, .3639e-06,
7 .1085e+04, .7166e+01, .1887e-01, .4120e-04, .8569e-06,
7 .1368e+04, .8129e+01, .1834e-01, .8641e-05, .6606e-06,
7 .1734e+04, .9322e+01, .2297e-01, .3645e-05,-.7712e-06,
7 .2203e+04, .1051e+02, .1850e-01, .7040e-04,-.9868e-06,
7 .2771e+04, .1259e+02, .4016e-02,-.1628e-04, .7452e-06,
7 .3414e+04, .1509e+02,-.3010e-02,-.1970e-03, .2855e-05,
7 .4135e+04, .1642e+02, .2275e-01,-.3437e-03, .4329e-06,
7 .5048e+04, .1487e+02, .3174e-01,-.2763e-03, .5903e-06,
7 .6264e+04, .1120e+02, .3591e-01,-.1358e-03,-.9681e-06,
7 .7830e+04, .6923e+01, .1644e-01, .2735e-04,-.1368e-05,
7 .9576e+04, .3529e+01,-.2416e-01, .1569e-03, .4027e-06,
7 .1108e+05, .2838e+01,-.4676e-01, .2050e-04, .5772e-06,
7 .1185e+05, .2034e+01,-.4604e-01, .4265e-04, .1925e-06,
7 .1169e+05, .6925e+00,-.5102e-01, .2157e-04, .1562e-05,
7 .1066e+05,-.1466e+00,-.3748e-01,-.8924e-05, .9231e-06,
7 .9231e+04,-.8276e+00,-.3130e-01, .5709e-04, .1299e-05,
7 .7788e+04, .9468e+00,-.1446e-01,-.1953e-04, .2703e-06,
8 .4476e+04, .5788e+02, .1918e+00,-.2188e-03,-.1428e-05,
8 .4477e+04, .5788e+02, .1916e+00,-.2194e-03,-.1407e-05,
8 .4479e+04, .5788e+02, .1915e+00,-.2201e-03,-.1383e-05,
8 .4482e+04, .5787e+02, .1913e+00,-.2214e-03,-.1367e-05,
8 .4488e+04, .5785e+02, .1912e+00,-.2248e-03,-.1350e-05,
8 .4500e+04, .5781e+02, .1915e+00,-.2427e-03,-.1268e-05,
8 .4525e+04, .5766e+02, .1989e+00,-.2801e-03,-.2176e-05,
8 .4590e+04, .5682e+02, .2049e+00,-.2793e-03,-.2457e-05,
8 .4758e+04, .5483e+02, .2150e+00,-.1972e-03,-.3812e-05,
8 .5198e+04, .5185e+02, .1836e+00,-.6698e-04,-.7395e-06,
8 .6666e+04, .4913e+02, .1324e+00,-.1569e-03,-.7295e-06,
8 .7490e+04, .4931e+02, .1489e+00,-.2815e-03,-.5456e-05,
8 .8585e+04, .4861e+02, .9724e-01,-.2913e-03, .3049e-05,
8 .9957e+04, .4754e+02, .7270e-01,-.7409e-03, .8337e-05,
8 .1172e+05, .4459e+02, .1294e+00,-.1470e-02, .5003e-05,
8 .1419e+05, .3088e+02, .2149e+00,-.9643e-03,-.3364e-05,
8 .1783e+05, .8358e+01, .1741e+00, .9848e-04,-.2619e-05,
8 .2259e+05,-.1332e+02, .6490e-01, .5333e-03, .1723e-05,
8 .2785e+05,-.2933e+02,-.2199e-01, .5109e-03, .3031e-05,
8 .3240e+05,-.3835e+02,-.5586e-01, .4911e-03,-.6266e-06,
8 .3522e+05,-.4264e+02,-.1567e+00, .6481e-03, .6558e-05,
8 .3537e+05,-.3794e+02,-.1826e+00, .4845e-03, .5126e-05,
8 .3304e+05,-.2947e+02,-.1975e+00, .6451e-03, .4877e-05,
8 .2958e+05,-.1716e+02,-.1930e+00, .3573e-03, .2223e-05,
8 .2679e+05,-.5498e+01,-.1766e+00, .2773e-03, .1864e-05,
8 .2521e+05, .1577e+01,-.1613e+00, .1568e-03, .3465e-05,
8 .2448e+05, .4568e+01,-.1126e+00,-.1242e-03, .2870e-06,
8 .2433e+05,-.1987e+01,-.1213e+00, .1448e-03, .3506e-05,
9 .4412e+05, .3472e+03,-.2846e+00,-.6166e-02, .8124e-05,
9 .4413e+05, .3471e+03,-.2844e+00,-.6166e-02, .8085e-05,
9 .4414e+05, .3471e+03,-.2841e+00,-.6166e-02, .8041e-05,
9 .4415e+05, .3469e+03,-.2836e+00,-.6166e-02, .7975e-05,
9 .4419e+05, .3466e+03,-.2833e+00,-.6166e-02, .7981e-05,
9 .4426e+05, .3460e+03,-.2828e+00,-.6177e-02, .8074e-05,
9 .4441e+05, .3448e+03,-.2810e+00,-.6204e-02, .8058e-05,
9 .4472e+05, .3423e+03,-.2720e+00,-.6254e-02, .6958e-05,
9 .4535e+05, .3371e+03,-.2607e+00,-.6429e-02, .7590e-05,
9 .4661e+05, .3246e+03,-.2078e+00,-.6677e-02, .7502e-05,
9 .5167e+05, .2660e+03,-.5957e-01,-.6248e-02, .8927e-05,
9 .5572e+05, .2209e+03,-.9796e-01,-.5173e-02, .2121e-04,
9 .6149e+05, .1612e+03,-.9377e-01,-.3597e-02, .1533e-04,
9 .6919e+05, .9042e+02,-.1655e+00,-.2015e-02, .1561e-04,
9 .7826e+05, .1096e+02,-.2393e+00, .1775e-02,-.5753e-05,
9 .8635e+05,-.3982e+02,-.4361e+00, .1924e-02, .1590e-04,
9 .9097e+05,-.6474e+02,-.3228e+00, .6485e-04,-.1016e-04,
9 .9124e+05,-.7755e+02,-.5427e+00,-.6166e-03, .3452e-04,
9 .8580e+05,-.7678e+02,-.3057e+00,-.1002e-02, .1055e-04,
9 .7662e+05,-.8212e+02,-.3641e+00,-.2757e-03, .3060e-04,
9 .6534e+05,-.7810e+02,-.1041e+00,-.4618e-03, .8734e-05,
9 .5522e+05,-.8662e+02, .5203e-01,-.1841e-03, .1274e-05,
9 .4858e+05,-.1007e+03, .9983e-01, .5084e-04,-.8371e-06,
9 .4488e+05,-.1080e+03, .6578e-02, .3111e-03, .1139e-04,
9 .4150e+05,-.1065e+03, .1077e+00,-.9938e-04, .4886e-06,
9 .3871e+05,-.1083e+03, .1047e+00, .5064e-03,-.4781e-06,
9 .3633e+05,-.1004e+03, .1903e-01, .5945e-03, .5293e-05,
9 .3363e+05,-.8354e+02,-.1288e-01, .4747e-03, .1656e-05 /
data ((( cl7co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 7, 7) /
a .5140e+06,-.1411e+04,-.1048e+01, .1654e-01, .1947e-04,
a .5140e+06,-.1411e+04,-.1047e+01, .1652e-01, .1922e-04,
a .5140e+06,-.1411e+04,-.1047e+01, .1654e-01, .1930e-04,
a .5140e+06,-.1410e+04,-.1050e+01, .1654e-01, .1964e-04,
a .5136e+06,-.1409e+04,-.1054e+01, .1654e-01, .2006e-04,
a .5132e+06,-.1407e+04,-.1056e+01, .1656e-01, .2031e-04,
a .5120e+06,-.1402e+04,-.1066e+01, .1660e-01, .2123e-04,
a .5100e+06,-.1392e+04,-.1083e+01, .1665e-01, .2266e-04,
a .5056e+06,-.1372e+04,-.1124e+01, .1678e-01, .2670e-04,
a .4968e+06,-.1331e+04,-.1149e+01, .1651e-01, .2540e-04,
a .4664e+06,-.1185e+04,-.1219e+01, .1504e-01, .1425e-04,
a .4456e+06,-.1085e+04,-.1202e+01, .1347e-01, .5864e-05,
a .4172e+06,-.9484e+03,-.1014e+01, .1018e-01,-.1949e-04,
a .3803e+06,-.7892e+03,-.8996e+00, .8948e-02,-.2216e-04,
a .3355e+06,-.6040e+03,-.1064e+01, .2726e-02, .5016e-04,
a .2868e+06,-.4540e+03,-.9408e+00, .9592e-03, .2099e-04,
a .2383e+06,-.3363e+03,-.9800e+00, .2306e-02, .5124e-04,
a .1916e+06,-.2437e+03,-.3055e+00, .3395e-02,-.4324e-04,
a .1512e+06,-.1799e+03,-.5340e+00, .3604e-02, .6332e-06,
a .1164e+06,-.1153e+03,-.2437e+00, .9536e-03,-.1570e-04,
a .8864e+05,-.8796e+02,-.1052e+00,-.3615e-03,-.8576e-05,
a .6732e+05,-.7572e+02,-.5404e-01,-.9768e-03, .1252e-04,
a .5116e+05,-.7624e+02, .1354e+00,-.2120e-02, .2058e-04,
a .4036e+05,-.1004e+03, .5168e+00,-.1731e-02,-.5504e-05,
a .3519e+05,-.1283e+03, .3094e+00, .2044e-03, .1278e-04,
a .3240e+05,-.1182e+03, .1915e+00,-.1668e-03, .1033e-05,
a .2966e+05,-.9956e+02, .9680e-01, .1245e-03, .1818e-05,
a .2662e+05,-.7916e+02, .2546e-01, .3327e-03, .1057e-05 /
c
data gwl8 / .09800, .27720, .22500, .20600, .12500, .05300 /
data ((( cl8h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 4) /
1 .3229e-03, .4497e-05, .2238e-07, .1178e-09, .6098e-12,
1 .4900e-03, .6826e-05, .3397e-07, .1787e-09, .9256e-12,
1 .7434e-03, .1036e-04, .5152e-07, .2711e-09, .1406e-11,
1 .1127e-02, .1571e-04, .7807e-07, .4108e-09, .2145e-11,
1 .1708e-02, .2381e-04, .1181e-06, .6211e-09, .3287e-11,
1 .2588e-02, .3608e-04, .1787e-06, .9398e-09, .5027e-11,
1 .3918e-02, .5465e-04, .2702e-06, .1421e-08, .7680e-11,
1 .5931e-02, .8277e-04, .4081e-06, .2146e-08, .1183e-10,
1 .8965e-02, .1252e-03, .6172e-06, .3235e-08, .1795e-10,
1 .1354e-01, .1893e-03, .9381e-06, .4878e-08, .2651e-10,
1 .2044e-01, .2859e-03, .1427e-05, .7366e-08, .3840e-10,
1 .3081e-01, .4309e-03, .2152e-05, .1118e-07, .5852e-10,
1 .4640e-01, .6479e-03, .3221e-05, .1699e-07, .9206e-10,
1 .6971e-01, .9730e-03, .4778e-05, .2551e-07, .1489e-09,
1 .1044e+00, .1458e-02, .7169e-05, .3796e-07, .2206e-09,
1 .1558e+00, .2172e-02, .1060e-04, .5747e-07, .3551e-09,
1 .2314e+00, .3216e-02, .1582e-04, .8670e-07, .5066e-09,
1 .3426e+00, .4692e-02, .2161e-04, .1347e-06, .1031e-08,
2 .2104e-02, .3167e-04, .1722e-06, .2633e-09,-.1578e-11,
2 .3167e-02, .4767e-04, .2592e-06, .3958e-09,-.2383e-11,
2 .4764e-02, .7173e-04, .3905e-06, .5944e-09,-.3642e-11,
2 .7163e-02, .1079e-03, .5888e-06, .8916e-09,-.5679e-11,
2 .1077e-01, .1623e-03, .8888e-06, .1334e-08,-.9037e-11,
2 .1618e-01, .2442e-03, .1342e-05, .2002e-08,-.1440e-10,
2 .2430e-01, .3669e-03, .2023e-05, .3027e-08,-.2209e-10,
2 .3649e-01, .5507e-03, .3042e-05, .4617e-08,-.3314e-10,
2 .5474e-01, .8258e-03, .4574e-05, .7060e-08,-.4968e-10,
2 .8204e-01, .1238e-02, .6861e-05, .1084e-07,-.7308e-10,
2 .1228e+00, .1851e-02, .1022e-04, .1654e-07,-.9934e-10,
2 .1835e+00, .2766e-02, .1527e-04, .2466e-07,-.1446e-09,
2 .2736e+00, .4125e-02, .2279e-04, .3703e-07,-.2095e-09,
2 .4068e+00, .6129e-02, .3408e-04, .5640e-07,-.3322e-09,
2 .6032e+00, .9050e-02, .5009e-04, .8847e-07,-.4121e-09,
2 .8918e+00, .1329e-01, .7219e-04, .1369e-06,-.3589e-09,
2 .1312e+01, .1948e-01, .1064e-03, .1939e-06,-.7568e-09,
2 .1923e+01, .2839e-01, .1537e-03, .2804e-06,-.1043e-08,
3 .7446e-02, .1111e-03, .6046e-06, .8289e-09,-.4900e-11,
3 .1119e-01, .1671e-03, .9134e-06, .1258e-08,-.7887e-11,
3 .1682e-01, .2510e-03, .1373e-05, .1945e-08,-.1124e-10,
3 .2526e-01, .3770e-03, .2061e-05, .2983e-08,-.1581e-10,
3 .3794e-01, .5659e-03, .3090e-05, .4602e-08,-.2153e-10,
3 .5695e-01, .8488e-03, .4629e-05, .7068e-08,-.2907e-10,
3 .8540e-01, .1272e-02, .6943e-05, .1085e-07,-.4262e-10,
3 .1279e+00, .1903e-02, .1036e-04, .1674e-07,-.5470e-10,
3 .1915e+00, .2846e-02, .1543e-04, .2488e-07,-.7320e-10,
3 .2860e+00, .4248e-02, .2294e-04, .3714e-07,-.9169e-10,
3 .4261e+00, .6327e-02, .3436e-04, .5581e-07,-.1570e-09,
3 .6330e+00, .9376e-02, .5132e-04, .8718e-07,-.2525e-09,
3 .9376e+00, .1384e-01, .7570e-04, .1350e-06,-.3252e-09,
3 .1385e+01, .2027e-01, .1078e-03, .2157e-06, .1516e-09,
3 .2038e+01, .2969e-01, .1553e-03, .2960e-06, .2982e-09,
3 .2984e+01, .4326e-01, .2229e-03, .3967e-06, .3153e-09,
3 .4333e+01, .6276e-01, .3264e-03, .5118e-06,-.9117e-09,
3 .6276e+01, .9074e-01, .4698e-03, .6813e-06,-.1851e-08,
4 .3967e-01, .6059e-03, .3125e-05, .2384e-08,-.3299e-10,
4 .5947e-01, .9066e-03, .4649e-05, .3729e-08,-.4392e-10,
4 .8910e-01, .1356e-02, .6930e-05, .5633e-08,-.6395e-10,
4 .1335e+00, .2026e-02, .1038e-04, .8408e-08,-.1025e-09,
4 .1998e+00, .3029e-02, .1547e-04, .1266e-07,-.1495e-09,
4 .2991e+00, .4525e-02, .2298e-04, .1888e-07,-.2122e-09,
4 .4470e+00, .6756e-02, .3422e-04, .2749e-07,-.3131e-09,
4 .6667e+00, .1007e-01, .5103e-04, .4005e-07,-.4745e-09,
4 .9922e+00, .1498e-01, .7611e-04, .6001e-07,-.7425e-09,
4 .1472e+01, .2220e-01, .1135e-03, .8729e-07,-.1228e-08,
4 .2175e+01, .3269e-01, .1657e-03, .1423e-06,-.1472e-08,
4 .3201e+01, .4791e-01, .2404e-03, .2029e-06,-.1948e-08,
4 .4684e+01, .6978e-01, .3502e-03, .2804e-06,-.3323e-08,
4 .6810e+01, .1010e+00, .5049e-03, .3511e-06,-.5520e-08,
4 .9836e+01, .1453e+00, .7112e-03, .4555e-06,-.6331e-08,
4 .1413e+02, .2078e+00, .9918e-03, .6837e-06,-.4149e-08,
4 .2014e+02, .2960e+00, .1430e-02, .7609e-06,-.1040e-07,
4 .2842e+02, .4146e+00, .2034e-02, .1088e-05,-.2282e-07 /
data ((( cl8h2o(k,j,i), k = 1, 5), j = 1, 18), i = 5, 6) /
5 .3133e+00, .4523e-02, .1887e-04, .6784e-09,-.1336e-09,
5 .4679e+00, .6729e-02, .2771e-04, .4290e-09,-.1794e-09,
5 .6987e+00, .1002e-01, .4070e-04,-.3248e-08,-.2409e-09,
5 .1043e+01, .1493e-01, .5981e-04,-.8776e-08,-.3005e-09,
5 .1555e+01, .2224e-01, .8850e-04,-.2206e-07,-.4725e-09,
5 .2316e+01, .3304e-01, .1310e-03,-.2990e-07,-.6487e-09,
5 .3444e+01, .4901e-01, .1929e-03,-.3852e-07,-.7544e-09,
5 .5109e+01, .7250e-01, .2833e-03,-.6448e-07,-.1062e-08,
5 .7551e+01, .1068e+00, .4147e-03,-.9567e-07,-.1432e-08,
5 .1111e+02, .1566e+00, .6031e-03,-.1274e-06,-.2022e-08,
5 .1629e+02, .2283e+00, .8610e-03,-.2567e-06,-.2455e-08,
5 .2374e+02, .3310e+00, .1219e-02,-.5411e-06,-.3350e-08,
5 .3439e+02, .4767e+00, .1697e-02,-.8358e-06, .3353e-09,
5 .4947e+02, .6840e+00, .2392e-02,-.1672e-05,-.1353e-08,
5 .7058e+02, .9732e+00, .3392e-02,-.3087e-05,-.1572e-07,
5 .9985e+02, .1362e+01, .4450e-02,-.5045e-05,-.8712e-08,
5 .1385e+03, .1876e+01, .5845e-02,-.7922e-05,-.8375e-08,
5 .1862e+03, .2526e+01, .7113e-02,-.1443e-04, .1020e-06,
6 .4125e+01, .6340e-01, .2952e-03, .1065e-06,-.1185e-08,
6 .6031e+01, .9171e-01, .4119e-03, .7714e-07,-.8214e-09,
6 .8805e+01, .1326e+00, .5964e-03, .6948e-07,-.3100e-08,
6 .1286e+02, .1918e+00, .8694e-03, .6308e-07,-.8493e-08,
6 .1881e+02, .2766e+00, .1203e-02, .1540e-06,-.7264e-08,
6 .2745e+02, .3997e+00, .1704e-02, .9639e-07,-.9601e-08,
6 .3991e+02, .5767e+00, .2445e-02,-.1334e-06,-.2008e-07,
6 .5792e+02, .8290e+00, .3401e-02,-.6853e-06,-.2564e-07,
6 .8363e+02, .1189e+01, .4774e-02,-.1636e-05,-.3909e-07,
6 .1201e+03, .1697e+01, .6539e-02,-.3083e-05,-.2372e-07,
6 .1711e+03, .2415e+01, .9242e-02,-.6990e-05,-.6165e-07,
6 .2423e+03, .3393e+01, .1259e-01,-.1152e-04,-.7322e-07,
6 .3363e+03, .4678e+01, .1776e-01,-.1541e-04,-.2280e-06,
6 .4560e+03, .6299e+01, .2211e-01,-.1754e-04, .2881e-07,
6 .5923e+03, .8286e+01, .3171e-01,-.3971e-04,-.4238e-06,
6 .7342e+03, .1019e+02, .3986e-01,-.2432e-04,-.4088e-06,
6 .8676e+03, .1207e+02, .4605e-01,-.3246e-04,-.1283e-06,
6 .9753e+03, .1367e+02, .5930e-01,-.3330e-04,-.1258e-05 /
data ((( cl8cs(k,j,i), k = 1, 5), j = 1, 6), i = 1, 4) /
1 .1958e+02,-.3684e+00, .3532e-02,-.3134e-04, .2012e-06,
1 .2926e+02,-.5510e+00, .5292e-02,-.4673e-04, .2975e-06,
1 .4370e+02,-.8226e+00, .7933e-02,-.6982e-04, .4380e-06,
1 .6527e+02,-.1228e+01, .1187e-01,-.1047e-03, .6543e-06,
1 .9733e+02,-.1834e+01, .1790e-01,-.1567e-03, .9477e-06,
1 .1451e+03,-.2736e+01, .2682e-01,-.2359e-03, .1418e-05,
2 .3586e+02,-.6042e+00, .5778e-02,-.4229e-04, .1921e-06,
2 .5342e+02,-.9044e+00, .8585e-02,-.6263e-04, .2978e-06,
2 .7956e+02,-.1359e+01, .1262e-01,-.9174e-04, .4884e-06,
2 .1182e+03,-.2029e+01, .1914e-01,-.1372e-03, .6773e-06,
2 .1757e+03,-.3030e+01, .2900e-01,-.2041e-03, .9247e-06,
2 .2602e+03,-.4514e+01, .4452e-01,-.3055e-03, .1167e-05,
3 .5001e+02,-.8113e+00, .6838e-02,-.4663e-04, .2328e-06,
3 .7453e+02,-.1204e+01, .1025e-01,-.7046e-04, .3336e-06,
3 .1113e+03,-.1778e+01, .1539e-01,-.1082e-03, .4612e-06,
3 .1660e+03,-.2640e+01, .2245e-01,-.1629e-03, .7655e-06,
3 .2476e+03,-.3897e+01, .3187e-01,-.2468e-03, .1418e-05,
3 .3716e+03,-.5824e+01, .4584e-01,-.3619e-03, .2344e-05,
4 .6183e+02,-.9639e+00, .7972e-02,-.5661e-04, .2868e-06,
4 .9171e+02,-.1422e+01, .1168e-01,-.8534e-04, .4554e-06,
4 .1360e+03,-.2116e+01, .1763e-01,-.1259e-03, .6335e-06,
4 .2019e+03,-.3151e+01, .2653e-01,-.1855e-03, .9002e-06,
4 .2994e+03,-.4715e+01, .4125e-01,-.2715e-03, .1029e-05,
4 .4415e+03,-.7029e+01, .6260e-01,-.4001e-03, .1380e-05 /
data ((( cl8cf(k,j,i), k = 1, 5), j = 1, 6), i = 1, 4) /
1 .7421e-01,-.3174e-03,-.5260e-06,-.6845e-08, .2739e-09,
1 .1109e+00,-.4750e-03,-.7115e-06,-.9775e-08, .3891e-09,
1 .1654e+00,-.7022e-03,-.8033e-06,-.1512e-07, .5245e-09,
1 .2468e+00,-.1038e-02,-.1078e-05,-.2435e-07, .7631e-09,
1 .3669e+00,-.1544e-02,-.2402e-06,-.3858e-07, .8937e-09,
1 .5456e+00,-.2285e-02, .4113e-06,-.6651e-07, .1243e-08,
2 .1866e+00,-.7713e-03, .5633e-05,-.1263e-07,-.1169e-09,
2 .2774e+00,-.1212e-02, .7367e-05,-.7826e-08, .5910e-10,
2 .4119e+00,-.1990e-02, .7048e-05, .2037e-07, .8969e-09,
2 .6094e+00,-.2981e-02, .1407e-04, .2701e-07, .6895e-09,
2 .9005e+00,-.4492e-02, .2643e-04, .3653e-07,-.9039e-10,
2 .1322e+01,-.6669e-02, .5356e-04, .3722e-07,-.2687e-08,
3 .3532e+00,-.2106e-02, .5403e-05,-.5615e-08, .2486e-09,
3 .5256e+00,-.3043e-02, .9467e-05,-.2657e-07, .4013e-10,
3 .7843e+00,-.4225e-02, .1746e-04,-.9593e-07,-.8149e-09,
3 .1169e+01,-.6121e-02, .1969e-04,-.1723e-06,-.3055e-09,
3 .1741e+01,-.8663e-02, .1045e-04,-.2977e-06, .2924e-08,
3 .2618e+01,-.1294e-01,-.2893e-05,-.3646e-06, .6870e-08,
4 .5280e+00,-.3273e-02, .1221e-04,-.8300e-07, .5134e-09,
4 .7823e+00,-.4740e-02, .1606e-04,-.1407e-06, .1188e-08,
4 .1158e+01,-.7080e-02, .2810e-04,-.1972e-06, .1164e-08,
4 .1717e+01,-.1065e-01, .4674e-04,-.2611e-06, .1267e-08,
4 .2543e+01,-.1624e-01, .9264e-04,-.3372e-06,-.1986e-08,
4 .3728e+01,-.2473e-01, .1575e-03,-.4391e-06,-.4979e-08 /
c
data gwl8gh / .01500, .00062, .00018 /
data ((( cl8h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
1 .1238e+03, .3729e+01, .4546e-01, .1800e-03,-.5574e-06,
1 .1259e+03, .3788e+01, .4616e-01, .1826e-03,-.5685e-06,
1 .1281e+03, .3850e+01, .4689e-01, .1850e-03,-.5824e-06,
1 .1308e+03, .3919e+01, .4766e-01, .1871e-03,-.6020e-06,
1 .1344e+03, .4001e+01, .4850e-01, .1886e-03,-.6330e-06,
1 .1398e+03, .4109e+01, .4949e-01, .1891e-03,-.6805e-06,
1 .1489e+03, .4261e+01, .5046e-01, .1896e-03,-.7030e-06,
1 .1657e+03, .4519e+01, .5168e-01, .1851e-03,-.7526e-06,
1 .1971e+03, .4993e+01, .5469e-01, .1743e-03,-.1071e-05,
1 .2595e+03, .5883e+01, .5851e-01, .1511e-03,-.1484e-05,
1 .4676e+03, .8664e+01, .6072e-01, .1174e-03,-.6198e-06,
1 .6148e+03, .1073e+02, .6252e-01, .8393e-04, .6668e-08,
1 .8135e+03, .1345e+02, .6976e-01, .8291e-04, .3736e-06,
1 .1074e+04, .1702e+02, .8706e-01, .9267e-04,-.4359e-06,
1 .1424e+04, .2180e+02, .1051e+00, .6227e-04,-.9664e-06,
1 .1872e+04, .2771e+02, .1266e+00, .1050e-03,-.5847e-06,
1 .2434e+04, .3583e+02, .1612e+00,-.4468e-04,-.2449e-05,
1 .3117e+04, .4481e+02, .1813e+00,-.9744e-04,-.1081e-05,
1 .3859e+04, .5436e+02, .2064e+00,-.7528e-04, .1488e-06,
1 .4619e+04, .6568e+02, .2608e+00,-.2598e-03,-.2915e-05,
1 .5327e+04, .7536e+02, .3107e+00,-.1966e-03,-.4716e-05,
1 .5951e+04, .8367e+02, .3174e+00,-.2324e-03,-.1596e-05,
1 .6375e+04, .9020e+02, .3439e+00,-.3226e-03,-.2788e-05,
1 .6576e+04, .9363e+02, .3532e+00,-.2514e-03,-.1234e-06,
1 .6512e+04, .9342e+02, .3676e+00,-.4642e-04, .1030e-05,
1 .6245e+04, .9136e+02, .4084e+00, .2778e-05,-.4842e-05,
1 .5874e+04, .8886e+02, .4384e+00,-.5382e-04,-.9002e-05,
1 .5436e+04, .8482e+02, .4088e+00,-.7221e-04,-.3601e-05,
2 .4196e+05, .7703e+03, .4408e+01, .2918e-02,-.5111e-04,
2 .4255e+05, .7812e+03, .4468e+01, .2964e-02,-.5162e-04,
2 .4316e+05, .7920e+03, .4527e+01, .3016e-02,-.5174e-04,
2 .4377e+05, .8029e+03, .4582e+01, .3080e-02,-.5133e-04,
2 .4441e+05, .8137e+03, .4630e+01, .3168e-02,-.4987e-04,
2 .4510e+05, .8246e+03, .4665e+01, .3300e-02,-.4627e-04,
2 .4589e+05, .8362e+03, .4678e+01, .3467e-02,-.3965e-04,
2 .4689e+05, .8471e+03, .4644e+01, .3832e-02,-.2528e-04,
2 .4834e+05, .8587e+03, .4478e+01, .4506e-02, .1044e-04,
2 .5064e+05, .8720e+03, .4122e+01, .5793e-02, .7756e-04,
2 .5617e+05, .9023e+03, .4322e+01, .8086e-02, .4080e-04,
2 .5969e+05, .9258e+03, .4981e+01, .1003e-01,-.6854e-04,
2 .6446e+05, .9628e+03, .5034e+01, .1001e-01,-.7544e-04,
2 .7071e+05, .1019e+04, .4418e+01, .7884e-02, .1396e-04,
2 .7731e+05, .1091e+04, .4082e+01, .4058e-02, .5513e-04,
2 .8343e+05, .1160e+04, .3898e+01,-.4203e-03, .5483e-04,
2 .8752e+05, .1227e+04, .3976e+01,-.5464e-02, .4088e-04,
2 .8794e+05, .1239e+04, .4270e+01,-.8613e-02,-.5020e-04,
2 .8597e+05, .1240e+04, .4687e+01,-.1000e-01,-.1007e-03,
2 .8158e+05, .1165e+04, .4020e+01,-.6421e-03, .6572e-04,
2 .7379e+05, .1068e+04, .3222e+01,-.2272e-03, .1897e-03,
2 .6323e+05, .9605e+03, .4888e+01, .4098e-02,-.5693e-04,
2 .5446e+05, .8831e+03, .5626e+01, .3937e-02,-.1589e-03,
2 .4699e+05, .8218e+03, .5864e+01, .1437e-02,-.2067e-03,
2 .4138e+05, .7694e+03, .5271e+01,-.4315e-02,-.1818e-03,
2 .3608e+05, .6972e+03, .4007e+01,-.6729e-02,-.3734e-04,
2 .3122e+05, .5862e+03, .2734e+01,-.5396e-02, .4385e-04,
2 .2676e+05, .4905e+03, .2289e+01,-.5190e-02,-.1373e-04,
3 .5876e+06, .8786e+04, .3326e+02,-.5493e-01,-.2312e-03,
3 .5953e+06, .8901e+04, .3370e+02,-.5574e-01,-.2357e-03,
3 .6029e+06, .9017e+04, .3415e+02,-.5639e-01,-.2395e-03,
3 .6106e+06, .9132e+04, .3461e+02,-.5719e-01,-.2462e-03,
3 .6182e+06, .9248e+04, .3508e+02,-.5798e-01,-.2547e-03,
3 .6255e+06, .9355e+04, .3559e+02,-.5890e-01,-.2690e-03,
3 .6325e+06, .9471e+04, .3619e+02,-.6002e-01,-.2983e-03,
3 .6386e+06, .9570e+04, .3695e+02,-.6154e-01,-.3523e-03,
3 .6430e+06, .9668e+04, .3804e+02,-.6379e-01,-.4585e-03,
3 .6441e+06, .9741e+04, .3977e+02,-.6758e-01,-.6683e-03,
3 .6324e+06, .9675e+04, .3994e+02,-.7624e-01,-.6359e-03,
3 .6275e+06, .9648e+04, .3841e+02,-.8242e-01,-.3230e-03,
3 .6164e+06, .9548e+04, .3859e+02,-.8507e-01,-.3512e-03,
3 .5966e+06, .9336e+04, .4030e+02,-.8175e-01,-.6161e-03,
3 .5674e+06, .8972e+04, .4104e+02,-.6873e-01,-.7410e-03,
3 .5276e+06, .8485e+04, .4094e+02,-.5921e-01,-.7990e-03,
3 .4773e+06, .7741e+04, .3869e+02,-.2918e-01,-.6078e-03,
3 .4207e+06, .7007e+04, .3671e+02,-.1289e-01,-.4289e-03,
3 .3608e+06, .6161e+04, .3337e+02,-.8575e-02,-.3672e-03,
3 .3035e+06, .5357e+04, .3087e+02,-.2419e-01,-.6899e-03,
3 .2577e+06, .4701e+04, .2882e+02,-.3025e-01,-.9580e-03,
3 .2206e+06, .4102e+04, .2169e+02,-.4117e-01,-.3724e-03,
3 .1843e+06, .3408e+04, .1533e+02,-.3191e-01, .1304e-03,
3 .1503e+06, .2756e+04, .1227e+02,-.2889e-01,-.2608e-04,
3 .1215e+06, .2193e+04, .9605e+01,-.1932e-01,-.6223e-04,
3 .9916e+05, .1780e+04, .7285e+01,-.1978e-01,-.7329e-04,
3 .7702e+05, .1408e+04, .6071e+01,-.1547e-01,-.8183e-04,
3 .5669e+05, .1049e+04, .4697e+01,-.1063e-01,-.6367e-04 /
c
c----------------------------------------------------------------------
c spectral region: 0-340 cm^-1. gas: h2o
c----------------------------------------------------------------------
c
data gwl9 / .31030, .21554, .19500, .14000 /
data ((( cl9h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 4) /
1 .4226e-01, .6101e-04,-.5452e-06, .2917e-08,-.8187e-11,
1 .6312e-01, .9117e-04,-.8123e-06, .4352e-08,-.1261e-10,
1 .9429e-01, .1361e-03,-.1215e-05, .6531e-08,-.1799e-10,
1 .1409e+00, .2025e-03,-.1819e-05, .9890e-08,-.2549e-10,
1 .2103e+00, .3016e-03,-.2717e-05, .1489e-07,-.3764e-10,
1 .3140e+00, .4486e-03,-.4078e-05, .2248e-07,-.5288e-10,
1 .4685e+00, .6674e-03,-.6145e-05, .3394e-07,-.7046e-10,
1 .6987e+00, .9916e-03,-.9316e-05, .5116e-07,-.8603e-10,
1 .1041e+01, .1477e-02,-.1405e-04, .7613e-07,-.1176e-09,
1 .1551e+01, .2199e-02,-.2109e-04, .1127e-06,-.1699e-09,
1 .2305e+01, .3266e-02,-.3159e-04, .1670e-06,-.2355e-09,
1 .3424e+01, .4807e-02,-.4743e-04, .2530e-06,-.3121e-09,
1 .5076e+01, .7066e-02,-.7225e-04, .3774e-06,-.1824e-09,
1 .7508e+01, .1036e-01,-.1111e-03, .5618e-06, .2550e-09,
1 .1108e+02, .1516e-01,-.1650e-03, .8310e-06, .2776e-09,
1 .1631e+02, .2183e-01,-.2425e-03, .1277e-05,-.4663e-09,
1 .2397e+02, .3125e-01,-.3851e-03, .1953e-05, .2786e-08,
1 .3504e+02, .4459e-01,-.6395e-03, .2839e-05, .1592e-07,
2 .2546e+00, .1815e-03,-.2208e-05, .2111e-08,-.1561e-10,
2 .3800e+00, .2695e-03,-.3286e-05, .3314e-08,-.2203e-10,
2 .5673e+00, .3995e-03,-.4889e-05, .5241e-08,-.3276e-10,
2 .8468e+00, .5921e-03,-.7336e-05, .8258e-08,-.4111e-10,
2 .1263e+01, .8762e-03,-.1088e-04, .1268e-07,-.7659e-10,
2 .1883e+01, .1300e-02,-.1613e-04, .1870e-07,-.1449e-09,
2 .2807e+01, .1937e-02,-.2426e-04, .2562e-07,-.1964e-09,
2 .4180e+01, .2891e-02,-.3614e-04, .3357e-07,-.3073e-09,
2 .6216e+01, .4325e-02,-.5375e-04, .4035e-07,-.4175e-09,
2 .9238e+01, .6420e-02,-.7875e-04, .4805e-07,-.7080e-09,
2 .1369e+02, .9538e-02,-.1166e-03, .4148e-07,-.9143e-09,
2 .2023e+02, .1414e-01,-.1726e-03, .3111e-09,-.8711e-09,
2 .2978e+02, .2082e-01,-.2275e-03,-.1247e-06,-.4911e-08,
2 .4370e+02, .2936e-01,-.2826e-03,-.1437e-06,-.1470e-07,
2 .6396e+02, .3982e-01,-.4087e-03, .1061e-06,-.2130e-07,
2 .9322e+02, .5274e-01,-.6560e-03, .3482e-06,-.1457e-07,
2 .1352e+03, .6623e-01,-.1059e-02, .6230e-06,-.2214e-08,
2 .1954e+03, .9042e-01,-.1357e-02,-.3471e-06,-.3964e-07,
3 .9075e+00, .2349e-03,-.4012e-05, .1157e-07, .7962e-10,
3 .1352e+01, .3354e-03,-.6038e-05, .1817e-07, .1270e-09,
3 .2015e+01, .4793e-03,-.9052e-05, .2765e-07, .1831e-09,
3 .3002e+01, .6835e-03,-.1364e-04, .4185e-07, .2676e-09,
3 .4472e+01, .9851e-03,-.2063e-04, .6109e-07, .4010e-09,
3 .6654e+01, .1432e-02,-.3124e-04, .8690e-07, .6321e-09,
3 .9898e+01, .2095e-02,-.4652e-04, .1206e-06, .9307e-09,
3 .1469e+02, .2980e-02,-.6872e-04, .1737e-06, .1423e-08,
3 .2176e+02, .4122e-02,-.9926e-04, .2522e-06, .1794e-08,
3 .3212e+02, .5504e-02,-.1445e-03, .3404e-06, .3016e-08,
3 .4721e+02, .6684e-02,-.1736e-03, .4461e-06,-.7950e-09,
3 .6916e+02, .4844e-02,-.1773e-03, .1003e-05,-.1243e-07,
3 .1010e+03,-.3009e-02,-.2229e-03, .2370e-05,-.2420e-07,
3 .1471e+03,-.2144e-01,-.3871e-03, .4663e-05,-.2618e-07,
3 .2134e+03,-.5700e-01,-.8083e-03, .7471e-05,-.2514e-08,
3 .3089e+03,-.1087e+00,-.1370e-02, .9538e-05, .4948e-08,
3 .4442e+03,-.1908e+00,-.1056e-02, .1380e-04,-.1654e-06,
3 .6328e+03,-.3826e+00,-.1620e-02, .3299e-04,-.2052e-06,
4 .3629e+01,-.7787e-03,-.6976e-05, .1193e-06,-.5476e-09,
4 .5397e+01,-.1244e-02,-.1101e-04, .1756e-06,-.8064e-09,
4 .8026e+01,-.1968e-02,-.1715e-04, .2604e-06,-.1219e-08,
4 .1193e+02,-.2999e-02,-.2528e-04, .3702e-06,-.2060e-08,
4 .1771e+02,-.4487e-02,-.4061e-04, .5268e-06,-.2565e-08,
4 .2627e+02,-.6705e-02,-.6518e-04, .7423e-06,-.2699e-08,
4 .3884e+02,-.1013e-01,-.8749e-04, .1037e-05,-.5258e-08,
4 .5724e+02,-.1537e-01,-.1224e-03, .1402e-05,-.7379e-08,
4 .8397e+02,-.2451e-01,-.1376e-03, .1964e-05,-.1405e-07,
4 .1227e+03,-.4169e-01,-.1280e-03, .3161e-05,-.2905e-07,
4 .1785e+03,-.7371e-01,-.1371e-03, .5716e-05,-.5114e-07,
4 .2589e+03,-.1257e+00,-.4193e-03, .9398e-05,-.4654e-07,
4 .3743e+03,-.2045e+00,-.1390e-02, .1334e-04, .5155e-07,
4 .5382e+03,-.2915e+00,-.2555e-02, .1103e-04, .1227e-06,
4 .7683e+03,-.4207e+00,-.1761e-02, .1120e-04,-.1680e-06,
4 .1087e+04,-.7028e+00,-.2430e-02, .3252e-04,-.2404e-06,
4 .1518e+04,-.1012e+01,-.7249e-02, .3761e-04, .1481e-06,
4 .2063e+04,-.1267e+01,-.7527e-02, .1644e-04,-.2221e-06 /
data ((( cl9cs(k,j,i), k = 1, 5), j = 1, 6), i = 1, 4) /
1 .1166e+03,-.1766e+01, .1400e-01,-.9902e-04, .5646e-06,
1 .1730e+03,-.2609e+01, .2048e-01,-.1482e-03, .8792e-06,
1 .2571e+03,-.3825e+01, .2895e-01,-.2303e-03, .1611e-05,
1 .3826e+03,-.5674e+01, .4231e-01,-.3452e-03, .2522e-05,
1 .5680e+03,-.8350e+01, .6093e-01,-.5280e-03, .4119e-05,
1 .8396e+03,-.1230e+02, .8937e-01,-.7953e-03, .6324e-05,
2 .2341e+03,-.4082e+01, .3964e-01,-.3025e-03, .1407e-05,
2 .3497e+03,-.6110e+01, .5917e-01,-.4487e-03, .2090e-05,
2 .5217e+03,-.9141e+01, .8852e-01,-.6579e-03, .2952e-05,
2 .7755e+03,-.1357e+02, .1309e+00,-.9772e-03, .4503e-05,
2 .1152e+04,-.2029e+02, .1982e+00,-.1404e-02, .5673e-05,
2 .1716e+04,-.3034e+02, .3007e+00,-.2035e-02, .6973e-05,
3 .2553e+03,-.4445e+01, .4359e-01,-.4011e-03, .2437e-05,
3 .3800e+03,-.6617e+01, .6517e-01,-.6000e-03, .3624e-05,
3 .5659e+03,-.9905e+01, .9936e-01,-.8851e-03, .4962e-05,
3 .8467e+03,-.1487e+02, .1509e+00,-.1302e-02, .6830e-05,
3 .1269e+04,-.2221e+02, .2221e+00,-.1981e-02, .1118e-04,
3 .1898e+04,-.3310e+02, .3270e+00,-.2980e-02, .1758e-04,
4 .2682e+03,-.4700e+01, .4697e-01,-.4274e-03, .2521e-05,
4 .4004e+03,-.7039e+01, .7080e-01,-.6350e-03, .3636e-05,
4 .5980e+03,-.1053e+02, .1062e+00,-.9540e-03, .5472e-05,
4 .8897e+03,-.1567e+02, .1591e+00,-.1442e-02, .8254e-05,
4 .1319e+04,-.2341e+02, .2417e+00,-.2111e-02, .1116e-04,
4 .1955e+04,-.3458e+02, .3462e+00,-.3158e-02, .1903e-04 /
data ((( cl9cf(k,j,i), k = 1, 5), j = 1, 6), i = 1, 4) /
1 .3948e+01,-.1931e-01, .3552e-04,-.5027e-06, .9660e-08,
1 .5835e+01,-.2758e-01, .3790e-04,-.8682e-06, .1676e-07,
1 .8634e+01,-.3825e-01,-.2193e-04,-.1821e-05, .4119e-07,
1 .1281e+02,-.5589e-01,-.8400e-04,-.2935e-05, .6985e-07,
1 .1896e+02,-.7819e-01,-.2426e-03,-.5361e-05, .1255e-06,
1 .2779e+02,-.1116e+00,-.3913e-03,-.8869e-05, .1948e-06,
2 .1200e+02,-.9434e-01, .6079e-03,-.1841e-05,-.1235e-07,
2 .1796e+02,-.1419e+00, .8872e-03,-.2595e-05,-.1581e-07,
2 .2682e+02,-.2126e+00, .1297e-02,-.3450e-05,-.2306e-07,
2 .3985e+02,-.3150e+00, .1836e-02,-.5104e-05,-.1777e-07,
2 .5911e+02,-.4745e+00, .2918e-02,-.5347e-05,-.7086e-07,
2 .8774e+02,-.7101e+00, .4880e-02,-.5460e-05,-.2140e-06,
3 .1354e+02,-.1043e+00, .5425e-03,-.4045e-05, .2942e-07,
3 .2015e+02,-.1553e+00, .8368e-03,-.6041e-05, .4049e-07,
3 .2999e+02,-.2340e+00, .1429e-02,-.8531e-05, .2462e-07,
3 .4484e+02,-.3526e+00, .2331e-02,-.1189e-04,-.4458e-08,
3 .6743e+02,-.5260e+00, .3208e-02,-.1884e-04, .5220e-07,
3 .1012e+03,-.7764e+00, .4308e-02,-.3073e-04, .1633e-06,
4 .1442e+02,-.1125e+00, .6521e-03,-.3817e-05, .1981e-07,
4 .2152e+02,-.1690e+00, .1026e-02,-.5605e-05, .2030e-07,
4 .3214e+02,-.2538e+00, .1542e-02,-.8381e-05, .3521e-07,
4 .4779e+02,-.3767e+00, .2389e-02,-.1346e-04, .4555e-07,
4 .7062e+02,-.5673e+00, .4024e-02,-.1808e-04,-.2171e-07,
4 .1047e+03,-.8481e+00, .5019e-02,-.2529e-04, .1479e-06 /
c
data gwl9gh / .08000, .05000, .00800, .00094, .00019, .00003 /
data ((( cl9h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
5 .1189e-01, .8033e-05,-.6385e-07, .2642e-09, .3063e-11,
5 .2393e-01, .1606e-04,-.1259e-06, .3615e-09, .5371e-11,
5 .4807e-01, .3218e-04,-.1752e-06, .2064e-09,-.2419e-11,
5 .9646e-01, .6140e-04,-.1156e-06, .5331e-10,-.4231e-10,
5 .1936e+00, .1096e-03,-.1202e-06, .9577e-09,-.8929e-10,
5 .3887e+00, .1807e-03,-.2764e-06, .5614e-08,-.1281e-09,
5 .7812e+00, .2805e-03,-.9748e-06, .1664e-07,-.1473e-09,
5 .1571e+01, .4071e-03,-.2464e-05, .3803e-07,-.2193e-09,
5 .3160e+01, .4679e-03,-.5703e-05, .8494e-07,-.4061e-09,
5 .6356e+01, .3292e-03,-.1362e-04, .1664e-06,-.7436e-09,
5 .1826e+02,-.9463e-03,-.4659e-04, .4466e-06,-.2670e-08,
5 .2705e+02,-.1970e-02,-.7248e-04, .6245e-06,-.3709e-08,
5 .4005e+02,-.3823e-02,-.1166e-03, .8934e-06,-.4207e-08,
5 .5918e+02,-.6456e-02,-.1708e-03, .1134e-05,-.6114e-08,
5 .8717e+02,-.1031e-01,-.2243e-03, .1313e-05,-.1105e-07,
5 .1280e+03,-.1973e-01,-.2872e-03, .1942e-05,-.1862e-07,
5 .1871e+03,-.3641e-01,-.3462e-03, .2902e-05,-.3248e-07,
5 .2722e+03,-.7492e-01,-.4067e-03, .5809e-05,-.5395e-07,
5 .3942e+03,-.1439e+00,-.5441e-03, .1108e-04,-.9498e-07,
5 .5692e+03,-.2606e+00,-.1439e-02, .1907e-04,-.4731e-07,
5 .8190e+03,-.4329e+00,-.3509e-02, .2691e-04, .1211e-06,
5 .1172e+04,-.6517e+00,-.4980e-02, .2611e-04, .1083e-06,
5 .1665e+04,-.1030e+01,-.3794e-02, .4164e-04,-.4559e-06,
5 .2345e+04,-.1756e+01,-.7346e-02, .9487e-04,-.4119e-06,
5 .3246e+04,-.2487e+01,-.1621e-01, .1023e-03, .1653e-06,
5 .4341e+04,-.3216e+01,-.1522e-01, .7815e-04,-.5541e-06,
5 .5545e+04,-.4277e+01,-.7660e-02, .1870e-03,-.2722e-05,
5 .6763e+04,-.4141e+01,-.4154e-01, .8076e-04, .2662e-05,
6 .4305e+00, .3161e-02, .1746e-04, .9764e-07, .3996e-09,
6 .7599e+00, .4495e-02, .2078e-04, .1243e-06, .4571e-09,
6 .1363e+01, .6564e-02, .2335e-04, .1351e-06, .6532e-09,
6 .2479e+01, .9605e-02, .2449e-04, .1530e-06, .1117e-08,
6 .4566e+01, .1414e-01, .2753e-04, .1936e-06, .9333e-09,
6 .8525e+01, .2076e-01, .2243e-04, .2845e-06, .1622e-08,
6 .1607e+02, .3052e-01, .1895e-04, .3518e-06,-.1335e-08,
6 .3061e+02, .4421e-01,-.4170e-05, .6186e-06,-.5155e-08,
6 .5867e+02, .6587e-01,-.1254e-03, .2684e-06, .1537e-08,
6 .1131e+03, .9347e-01,-.4256e-03,-.3949e-06, .2888e-07,
6 .3032e+03, .1242e+00,-.2503e-03, .8244e-06,-.6356e-07,
6 .4377e+03, .1122e+00,-.1440e-03, .4225e-05,-.1285e-06,
6 .6310e+03, .3900e-01,-.3976e-03, .1431e-04,-.1646e-06,
6 .9078e+03,-.8215e-01,-.1018e-02, .2577e-04,-.1927e-06,
6 .1307e+04,-.2744e+00,-.2323e-02, .4191e-04,-.2083e-06,
6 .1880e+04,-.5997e+00,-.5883e-02, .6281e-04,-.5534e-07,
6 .2697e+04,-.9574e+00,-.1055e-01, .6398e-04, .7040e-07,
6 .3849e+04,-.1573e+01,-.1371e-01, .9501e-04,-.3864e-06,
6 .5464e+04,-.2523e+01,-.2299e-01, .1431e-03,-.2625e-06,
6 .7645e+04,-.3584e+01,-.3692e-01, .1610e-03,-.2000e-06,
6 .1044e+05,-.5018e+01,-.3813e-01, .1942e-03,-.2101e-05,
6 .1379e+05,-.7395e+01,-.5262e-01, .4428e-03,-.3657e-05,
6 .1752e+05,-.7635e+01,-.1170e+00, .2848e-03, .3984e-05,
6 .2124e+05,-.8251e+01,-.1104e+00, .1503e-03, .2151e-06,
6 .2453e+05,-.1158e+02,-.8440e-01, .2243e-03,-.3439e-05,
6 .2707e+05,-.1349e+02,-.1654e+00,-.1111e-04, .1140e-04,
6 .2831e+05,-.1490e+02,-.7166e-01,-.1424e-03, .6813e-06,
6 .2847e+05,-.1807e+02,-.2165e-01,-.2007e-03,-.2902e-05,
7 .6099e+03, .7817e+01, .4070e-01, .1169e-03,-.3335e-06,
7 .6402e+03, .7733e+01, .4121e-01, .1208e-03,-.3984e-06,
7 .6962e+03, .7564e+01, .4096e-01, .1317e-03,-.4466e-06,
7 .8011e+03, .7361e+01, .3831e-01, .1482e-03,-.4137e-06,
7 .9790e+03, .7284e+01, .3362e-01, .1448e-03,-.1560e-06,
7 .1278e+04, .7135e+01, .2383e-01, .1754e-03, .1057e-05,
7 .1779e+04, .7101e+01, .2331e-01, .1808e-03, .5076e-06,
7 .2630e+04, .7231e+01, .1379e-01, .2154e-03, .2451e-05,
7 .4099e+04, .7726e+01,-.9201e-02, .1460e-03, .5437e-05,
7 .6644e+04, .7222e+01,-.7209e-02, .2517e-03, .2655e-05,
7 .1469e+05, .4748e+01, .4023e-01, .4281e-03,-.1120e-04,
7 .2021e+05, .1874e+01, .1824e-02, .6068e-03,-.7271e-05,
7 .2809e+05,-.1604e+01,-.9092e-01, .7971e-03, .2654e-05,
7 .3901e+05,-.8209e+01,-.1128e+00, .1302e-02,-.6675e-05,
7 .5371e+05,-.1471e+02,-.1666e+00, .1328e-02,-.1126e-04,
7 .7237e+05,-.3177e+02,-.2566e+00, .2354e-02,-.1280e-04,
7 .9439e+05,-.4523e+02,-.3673e+00, .3028e-02,-.2408e-04,
7 .1185e+06,-.4731e+02,-.8933e+00, .1770e-02, .5301e-04,
7 .1421e+06,-.6197e+02,-.6393e+00, .2076e-02,-.7348e-05,
7 .1627e+06,-.8442e+02,-.6084e+00, .2413e-02,-.8757e-05,
7 .1778e+06,-.9687e+02,-.8941e+00, .1762e-02, .4770e-04,
7 .1849e+06,-.9453e+02,-.1786e+00, .4813e-03,-.4317e-04,
7 .1853e+06,-.9769e+02,-.2466e-01,-.6269e-03,-.4343e-04,
7 .1787e+06,-.1168e+03,-.4092e+00, .2030e-03, .5138e-04,
7 .1655e+06,-.1111e+03,-.2212e+00, .1342e-04, .4497e-04,
7 .1475e+06,-.8839e+02, .7246e+00,-.7165e-03,-.7844e-04,
7 .1295e+06,-.5339e+02, .2270e+00,-.3102e-02, .1701e-04,
7 .1112e+06,-.2827e+02, .2234e+00,-.1780e-02,-.5194e-05 /
data ((( cl9h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 6) /
8 .2282e+06, .2322e+04, .5714e+01,-.3761e-01,-.3151e-03,
8 .2296e+06, .2334e+04, .5747e+01,-.3775e-01,-.3161e-03,
8 .2312e+06, .2345e+04, .5791e+01,-.3783e-01,-.3171e-03,
8 .2331e+06, .2352e+04, .5865e+01,-.3775e-01,-.3188e-03,
8 .2359e+06, .2350e+04, .5975e+01,-.3706e-01,-.3216e-03,
8 .2410e+06, .2333e+04, .6160e+01,-.3621e-01,-.3337e-03,
8 .2509e+06, .2300e+04, .5864e+01,-.3760e-01,-.2564e-03,
8 .2712e+06, .2210e+04, .5542e+01,-.3522e-01,-.2389e-03,
8 .3125e+06, .2047e+04, .3513e+01,-.2898e-01,-.3194e-04,
8 .3887e+06, .1756e+04, .2574e+01,-.1444e-01,-.1193e-03,
8 .6162e+06, .1170e+04,-.1032e+01, .1116e-02,-.1318e-03,
8 .7345e+06, .8614e+03, .1080e+00, .2579e-01,-.4213e-03,
8 .8733e+06, .6992e+03,-.5564e+01, .4154e-02, .4235e-03,
8 .1012e+07, .4598e+03,-.6980e+01,-.5912e-02, .6048e-03,
8 .1131e+07,-.5627e+02,-.4413e+01, .2644e-01, .2096e-03,
8 .1228e+07,-.2410e+03,-.8442e+01, .3193e-02, .7231e-03,
8 .1279e+07,-.4451e+03,-.4661e+01, .6349e-02, .2112e-03,
8 .1276e+07,-.6033e+03, .3384e+01, .1265e-01,-.9195e-03,
8 .1234e+07,-.4116e+03,-.2972e+01,-.3335e-01, .4665e-03,
8 .1148e+07,-.4610e+03,-.4323e+01,-.2588e-01, .7519e-03,
8 .1026e+07,-.4768e+03, .7506e+00,-.1789e-01, .9226e-05,
8 .8869e+06,-.3862e+03,-.2371e+00,-.2820e-01, .3429e-03,
8 .7349e+06,-.2595e+03, .2788e+01,-.2175e-01,-.3169e-04,
8 .5951e+06, .1444e+01, .5039e+01,-.2911e-01,-.4986e-03,
8 .4756e+06, .1935e+03, .2978e+01,-.3445e-01,-.2903e-03,
8 .3819e+06, .1285e+03,-.2575e+01,-.1307e-01, .4107e-03,
8 .3039e+06,-.3683e+02,-.2901e+01, .1221e-01, .3292e-03,
8 .2372e+06,-.3331e+02,-.6236e+00, .1030e-01, .7012e-04,
9 .8912e+07, .1888e+05,-.2018e+03, .2427e+00, .2538e-02,
9 .8961e+07, .1897e+05,-.2030e+03, .2430e+00, .2589e-02,
9 .9009e+07, .1904e+05,-.2044e+03, .2421e+00, .2702e-02,
9 .9058e+07, .1907e+05,-.2059e+03, .2410e+00, .2868e-02,
9 .9106e+07, .1903e+05,-.2078e+03, .2456e+00, .3077e-02,
9 .9155e+07, .1883e+05,-.2105e+03, .2553e+00, .3488e-02,
9 .9210e+07, .1827e+05,-.2120e+03, .2897e+00, .3898e-02,
9 .9252e+07, .1717e+05,-.2138e+03, .3222e+00, .5106e-02,
9 .9267e+07, .1509e+05,-.2053e+03, .3561e+00, .6120e-02,
9 .9146e+07, .1137e+05,-.1615e+03, .4325e+00, .4301e-02,
9 .8346e+07, .6656e+04,-.4017e+02, .3709e-01, .8325e-05,
9 .7973e+07, .4554e+04,-.4539e+01,-.1428e+00,-.1672e-02,
9 .7540e+07, .2223e+04, .3524e+02,-.2751e+00,-.5174e-02,
9 .7117e+07,-.1772e+03, .5044e+02,-.2482e+00,-.7386e-02,
9 .6698e+07,-.1730e+04, .1359e+02,-.3353e+00,-.2502e-02,
9 .6106e+07,-.3671e+04, .1312e+02,-.5376e-01,-.2398e-02,
9 .5318e+07,-.2869e+04, .2268e+02,-.1105e+00,-.1642e-02,
9 .4486e+07,-.2202e+04, .1947e+02,-.1024e+00,-.4577e-03,
9 .3682e+07,-.2441e+04, .2543e+02, .7032e-01,-.2329e-02,
9 .2939e+07,-.7348e+03, .2495e+02,-.6691e-01,-.2004e-02,
9 .2317e+07, .1401e+03, .1250e+02,-.1234e+00,-.4546e-03,
9 .1823e+07,-.5861e+02,-.4110e+01,-.4951e-01, .1516e-02,
9 .1417e+07,-.5177e+03,-.2440e+01, .2654e-01, .6276e-03,
9 .1067e+07,-.5562e+03, .7921e+01, .4415e-01,-.6922e-03,
9 .8017e+06,-.4462e+03, .6757e+01, .3992e-01,-.3595e-03,
9 .5893e+06,-.2117e+01, .1586e+02,-.1702e-02,-.2042e-02,
9 .4313e+06, .4256e+03, .1230e+02,-.5361e-01,-.1591e-02,
9 .3157e+06, .4554e+03, .3390e+01,-.4530e-01,-.1535e-03,
a .6301e+08,-.3184e+06, .1060e+04,-.2921e+00,-.1112e-01,
a .6337e+08,-.3201e+06, .1066e+04,-.2934e+00,-.1139e-01,
a .6368e+08,-.3217e+06, .1074e+04,-.2921e+00,-.1189e-01,
a .6398e+08,-.3228e+06, .1084e+04,-.3109e+00,-.1286e-01,
a .6422e+08,-.3233e+06, .1095e+04,-.3827e+00,-.1372e-01,
a .6427e+08,-.3223e+06, .1111e+04,-.5298e+00,-.1554e-01,
a .6395e+08,-.3184e+06, .1135e+04,-.7931e+00,-.1905e-01,
a .6311e+08,-.3087e+06, .1165e+04,-.1223e+01,-.2563e-01,
a .6104e+08,-.2882e+06, .1178e+04,-.1770e+01,-.3596e-01,
a .5722e+08,-.2463e+06, .9214e+03,-.2642e+01,-.2202e-01,
a .4622e+08,-.1555e+06, .1512e+03,-.3459e+00, .4365e-02,
a .4032e+08,-.1143e+06,-.1324e+03, .3485e-01, .2109e-01,
a .3365e+08,-.8049e+05,-.2025e+03, .1247e+01, .1580e-01,
a .2677e+08,-.5099e+05,-.2342e+03, .1098e+01, .2610e-01,
a .2033e+08,-.2543e+05,-.6168e+02, .5573e+00, .1124e-01,
a .1517e+08,-.7334e+04, .9473e+02,-.6639e+00,-.3270e-02,
a .1174e+08,-.4546e+04,-.2513e+02,-.5757e+00, .9035e-02,
a .9169e+07,-.3423e+04,-.9998e+02,-.5366e+00, .1603e-01,
a .6818e+07,-.2781e+04,-.4965e+01,-.3910e+00, .2521e-02,
a .4979e+07,-.4028e+04, .5020e+02, .3666e-01,-.6955e-02,
a .3584e+07,-.3114e+04, .5436e+02, .2033e+00,-.5940e-02,
a .2553e+07,-.9871e+03, .3126e+02,-.1372e-01,-.2165e-02,
a .1803e+07, .2082e+03, .3012e+00,-.1819e+00, .2786e-02,
a .1270e+07, .6351e+03,-.2304e+02,-.2116e+00, .5869e-02,
a .8807e+06, .5995e+03,-.2112e+02,-.1497e+00, .5022e-02,
a .6069e+06, .3525e+03,-.1520e+02,-.3614e-01, .4058e-02,
a .4196e+06, .4041e+03,-.4181e+01,-.1160e-01, .1868e-02,
a .2939e+06, .3951e+03, .1880e+01,-.3537e-02, .3566e-03 /
end block data ckdlw