Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:40:40 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
9a6b9d7b6d Andr*0001       data ((h11(ip,iw,1),iw=1,31),ip= 1, 1)/
                0002      &  0.6160E-04,  0.9815E-04,  0.1474E-03,  0.2092E-03,  0.2823E-03,
                0003      &  0.3662E-03,  0.4615E-03,  0.5710E-03,  0.6998E-03,  0.8554E-03,
                0004      &  0.1049E-02,  0.1295E-02,  0.1612E-02,  0.2021E-02,  0.2548E-02,
                0005      &  0.3230E-02,  0.4123E-02,  0.5306E-02,  0.6887E-02,  0.9021E-02,
                0006      &  0.1193E-01,  0.1590E-01,  0.2135E-01,  0.2885E-01,  0.3914E-01,
                0007      &  0.5317E-01,  0.7223E-01,  0.9800E-01,  0.1326E+00,  0.1783E+00,
                0008      &  0.2373E+00/
                0009       data ((h12(ip,iw,1),iw=1,31),ip= 1, 1)/
                0010      & -0.2021E-06, -0.3628E-06, -0.5891E-06, -0.8735E-06, -0.1204E-05,
                0011      & -0.1579E-05, -0.2002E-05, -0.2494E-05, -0.3093E-05, -0.3852E-05,
                0012      & -0.4835E-05, -0.6082E-05, -0.7591E-05, -0.9332E-05, -0.1128E-04,
                0013      & -0.1347E-04, -0.1596E-04, -0.1890E-04, -0.2241E-04, -0.2672E-04,
                0014      & -0.3208E-04, -0.3884E-04, -0.4747E-04, -0.5854E-04, -0.7272E-04,
                0015      & -0.9092E-04, -0.1146E-03, -0.1458E-03, -0.1877E-03, -0.2435E-03,
                0016      & -0.3159E-03/
                0017       data ((h13(ip,iw,1),iw=1,31),ip= 1, 1)/
                0018      &  0.5907E-09,  0.8541E-09,  0.1095E-08,  0.1272E-08,  0.1297E-08,
                0019      &  0.1105E-08,  0.6788E-09, -0.5585E-10, -0.1147E-08, -0.2746E-08,
                0020      & -0.5001E-08, -0.7715E-08, -0.1037E-07, -0.1227E-07, -0.1287E-07,
                0021      & -0.1175E-07, -0.8517E-08, -0.2920E-08,  0.4786E-08,  0.1407E-07,
                0022      &  0.2476E-07,  0.3781E-07,  0.5633E-07,  0.8578E-07,  0.1322E-06,
                0023      &  0.2013E-06,  0.3006E-06,  0.4409E-06,  0.6343E-06,  0.8896E-06,
                0024      &  0.1216E-05/
                0025       data ((h11(ip,iw,1),iw=1,31),ip= 2, 2)/
                0026      &  0.6166E-04,  0.9828E-04,  0.1477E-03,  0.2097E-03,  0.2833E-03,
                0027      &  0.3680E-03,  0.4648E-03,  0.5768E-03,  0.7101E-03,  0.8736E-03,
                0028      &  0.1080E-02,  0.1348E-02,  0.1700E-02,  0.2162E-02,  0.2767E-02,
                0029      &  0.3563E-02,  0.4621E-02,  0.6039E-02,  0.7953E-02,  0.1056E-01,
                0030      &  0.1412E-01,  0.1901E-01,  0.2574E-01,  0.3498E-01,  0.4763E-01,
                0031      &  0.6484E-01,  0.8815E-01,  0.1196E+00,  0.1614E+00,  0.2157E+00,
                0032      &  0.2844E+00/
                0033       data ((h12(ip,iw,1),iw=1,31),ip= 2, 2)/
                0034      & -0.2017E-06, -0.3620E-06, -0.5878E-06, -0.8713E-06, -0.1201E-05,
                0035      & -0.1572E-05, -0.1991E-05, -0.2476E-05, -0.3063E-05, -0.3808E-05,
                0036      & -0.4776E-05, -0.6011E-05, -0.7516E-05, -0.9272E-05, -0.1127E-04,
                0037      & -0.1355E-04, -0.1620E-04, -0.1936E-04, -0.2321E-04, -0.2797E-04,
                0038      & -0.3399E-04, -0.4171E-04, -0.5172E-04, -0.6471E-04, -0.8150E-04,
                0039      & -0.1034E-03, -0.1321E-03, -0.1705E-03, -0.2217E-03, -0.2889E-03,
                0040      & -0.3726E-03/
                0041       data ((h13(ip,iw,1),iw=1,31),ip= 2, 2)/
                0042      &  0.5894E-09,  0.8519E-09,  0.1092E-08,  0.1267E-08,  0.1289E-08,
                0043      &  0.1093E-08,  0.6601E-09, -0.7831E-10, -0.1167E-08, -0.2732E-08,
                0044      & -0.4864E-08, -0.7334E-08, -0.9581E-08, -0.1097E-07, -0.1094E-07,
                0045      & -0.8999E-08, -0.4669E-08,  0.2391E-08,  0.1215E-07,  0.2424E-07,
                0046      &  0.3877E-07,  0.5711E-07,  0.8295E-07,  0.1218E-06,  0.1793E-06,
                0047      &  0.2621E-06,  0.3812E-06,  0.5508E-06,  0.7824E-06,  0.1085E-05,
                0048      &  0.1462E-05/
                0049       data ((h11(ip,iw,1),iw=1,31),ip= 3, 3)/
                0050      &  0.6175E-04,  0.9849E-04,  0.1481E-03,  0.2106E-03,  0.2849E-03,
                0051      &  0.3708E-03,  0.4698E-03,  0.5857E-03,  0.7257E-03,  0.9006E-03,
                0052      &  0.1126E-02,  0.1425E-02,  0.1823E-02,  0.2353E-02,  0.3059E-02,
                0053      &  0.4002E-02,  0.5270E-02,  0.6984E-02,  0.9316E-02,  0.1251E-01,
                0054      &  0.1689E-01,  0.2292E-01,  0.3123E-01,  0.4262E-01,  0.5814E-01,
                0055      &  0.7921E-01,  0.1077E+00,  0.1458E+00,  0.1957E+00,  0.2595E+00,
                0056      &  0.3380E+00/
                0057       data ((h12(ip,iw,1),iw=1,31),ip= 3, 3)/
                0058      & -0.2011E-06, -0.3609E-06, -0.5859E-06, -0.8680E-06, -0.1195E-05,
                0059      & -0.1563E-05, -0.1975E-05, -0.2450E-05, -0.3024E-05, -0.3755E-05,
                0060      & -0.4711E-05, -0.5941E-05, -0.7455E-05, -0.9248E-05, -0.1132E-04,
                0061      & -0.1373E-04, -0.1659E-04, -0.2004E-04, -0.2431E-04, -0.2966E-04,
                0062      & -0.3653E-04, -0.4549E-04, -0.5724E-04, -0.7259E-04, -0.9265E-04,
                0063      & -0.1191E-03, -0.1543E-03, -0.2013E-03, -0.2633E-03, -0.3421E-03,
                0064      & -0.4350E-03/
                0065       data ((h13(ip,iw,1),iw=1,31),ip= 3, 3)/
                0066      &  0.5872E-09,  0.8484E-09,  0.1087E-08,  0.1259E-08,  0.1279E-08,
                0067      &  0.1077E-08,  0.6413E-09, -0.9334E-10, -0.1161E-08, -0.2644E-08,
                0068      & -0.4588E-08, -0.6709E-08, -0.8474E-08, -0.9263E-08, -0.8489E-08,
                0069      & -0.5553E-08,  0.1203E-09,  0.9035E-08,  0.2135E-07,  0.3689E-07,
                0070      &  0.5610E-07,  0.8097E-07,  0.1155E-06,  0.1649E-06,  0.2350E-06,
                0071      &  0.3353E-06,  0.4806E-06,  0.6858E-06,  0.9617E-06,  0.1315E-05,
                0072      &  0.1741E-05/
                0073       data ((h11(ip,iw,1),iw=1,31),ip= 4, 4)/
                0074      &  0.6189E-04,  0.9882E-04,  0.1488E-03,  0.2119E-03,  0.2873E-03,
                0075      &  0.3752E-03,  0.4776E-03,  0.5993E-03,  0.7490E-03,  0.9403E-03,
                0076      &  0.1192E-02,  0.1531E-02,  0.1990E-02,  0.2610E-02,  0.3446E-02,
                0077      &  0.4576E-02,  0.6109E-02,  0.8196E-02,  0.1105E-01,  0.1498E-01,
                0078      &  0.2039E-01,  0.2785E-01,  0.3809E-01,  0.5209E-01,  0.7112E-01,
                0079      &  0.9688E-01,  0.1315E+00,  0.1773E+00,  0.2363E+00,  0.3100E+00,
                0080      &  0.3976E+00/
                0081       data ((h12(ip,iw,1),iw=1,31),ip= 4, 4)/
                0082      & -0.2001E-06, -0.3592E-06, -0.5829E-06, -0.8631E-06, -0.1187E-05,
                0083      & -0.1549E-05, -0.1953E-05, -0.2415E-05, -0.2975E-05, -0.3694E-05,
                0084      & -0.4645E-05, -0.5882E-05, -0.7425E-05, -0.9279E-05, -0.1147E-04,
                0085      & -0.1406E-04, -0.1717E-04, -0.2100E-04, -0.2580E-04, -0.3191E-04,
                0086      & -0.3989E-04, -0.5042E-04, -0.6432E-04, -0.8261E-04, -0.1068E-03,
                0087      & -0.1389E-03, -0.1820E-03, -0.2391E-03, -0.3127E-03, -0.4021E-03,
                0088      & -0.5002E-03/
                0089       data ((h13(ip,iw,1),iw=1,31),ip= 4, 4)/
                0090      &  0.5838E-09,  0.8426E-09,  0.1081E-08,  0.1249E-08,  0.1267E-08,
                0091      &  0.1062E-08,  0.6313E-09, -0.8241E-10, -0.1094E-08, -0.2436E-08,
                0092      & -0.4100E-08, -0.5786E-08, -0.6992E-08, -0.7083E-08, -0.5405E-08,
                0093      & -0.1259E-08,  0.6099E-08,  0.1732E-07,  0.3276E-07,  0.5256E-07,
                0094      &  0.7756E-07,  0.1103E-06,  0.1547E-06,  0.2159E-06,  0.3016E-06,
                0095      &  0.4251E-06,  0.6033E-06,  0.8499E-06,  0.1175E-05,  0.1579E-05,
                0096      &  0.2044E-05/
                0097       data ((h11(ip,iw,1),iw=1,31),ip= 5, 5)/
                0098      &  0.6211E-04,  0.9932E-04,  0.1499E-03,  0.2140E-03,  0.2911E-03,
                0099      &  0.3820E-03,  0.4895E-03,  0.6196E-03,  0.7834E-03,  0.9973E-03,
                0100      &  0.1285E-02,  0.1678E-02,  0.2216E-02,  0.2951E-02,  0.3953E-02,
                0101      &  0.5319E-02,  0.7186E-02,  0.9743E-02,  0.1326E-01,  0.1811E-01,
                0102      &  0.2479E-01,  0.3400E-01,  0.4662E-01,  0.6379E-01,  0.8708E-01,
                0103      &  0.1185E+00,  0.1603E+00,  0.2147E+00,  0.2835E+00,  0.3667E+00,
                0104      &  0.4620E+00/
                0105       data ((h12(ip,iw,1),iw=1,31),ip= 5, 5)/
                0106      & -0.1987E-06, -0.3565E-06, -0.5784E-06, -0.8557E-06, -0.1175E-05,
                0107      & -0.1530E-05, -0.1923E-05, -0.2372E-05, -0.2919E-05, -0.3631E-05,
                0108      & -0.4587E-05, -0.5848E-05, -0.7442E-05, -0.9391E-05, -0.1173E-04,
                0109      & -0.1455E-04, -0.1801E-04, -0.2232E-04, -0.2779E-04, -0.3489E-04,
                0110      & -0.4428E-04, -0.5678E-04, -0.7333E-04, -0.9530E-04, -0.1246E-03,
                0111      & -0.1639E-03, -0.2164E-03, -0.2848E-03, -0.3697E-03, -0.4665E-03,
                0112      & -0.5646E-03/
                0113       data ((h13(ip,iw,1),iw=1,31),ip= 5, 5)/
                0114      &  0.5785E-09,  0.8338E-09,  0.1071E-08,  0.1239E-08,  0.1256E-08,
                0115      &  0.1057E-08,  0.6480E-09, -0.1793E-10, -0.9278E-09, -0.2051E-08,
                0116      & -0.3337E-08, -0.4514E-08, -0.5067E-08, -0.4328E-08, -0.1545E-08,
                0117      &  0.4100E-08,  0.1354E-07,  0.2762E-07,  0.4690E-07,  0.7190E-07,
                0118      &  0.1040E-06,  0.1459E-06,  0.2014E-06,  0.2764E-06,  0.3824E-06,
                0119      &  0.5359E-06,  0.7532E-06,  0.1047E-05,  0.1424E-05,  0.1873E-05,
                0120      &  0.2356E-05/
                0121       data ((h11(ip,iw,1),iw=1,31),ip= 6, 6)/
                0122      &  0.6246E-04,  0.1001E-03,  0.1515E-03,  0.2171E-03,  0.2970E-03,
                0123      &  0.3924E-03,  0.5072E-03,  0.6495E-03,  0.8329E-03,  0.1078E-02,
                0124      &  0.1413E-02,  0.1876E-02,  0.2516E-02,  0.3399E-02,  0.4612E-02,
                0125      &  0.6276E-02,  0.8562E-02,  0.1171E-01,  0.1605E-01,  0.2205E-01,
                0126      &  0.3032E-01,  0.4167E-01,  0.5717E-01,  0.7821E-01,  0.1067E+00,
                0127      &  0.1447E+00,  0.1948E+00,  0.2586E+00,  0.3372E+00,  0.4290E+00,
                0128      &  0.5295E+00/
                0129       data ((h12(ip,iw,1),iw=1,31),ip= 6, 6)/
                0130      & -0.1964E-06, -0.3526E-06, -0.5717E-06, -0.8451E-06, -0.1158E-05,
                0131      & -0.1504E-05, -0.1886E-05, -0.2322E-05, -0.2861E-05, -0.3576E-05,
                0132      & -0.4552E-05, -0.5856E-05, -0.7529E-05, -0.9609E-05, -0.1216E-04,
                0133      & -0.1528E-04, -0.1916E-04, -0.2408E-04, -0.3043E-04, -0.3880E-04,
                0134      & -0.4997E-04, -0.6488E-04, -0.8474E-04, -0.1113E-03, -0.1471E-03,
                0135      & -0.1950E-03, -0.2583E-03, -0.3384E-03, -0.4326E-03, -0.5319E-03,
                0136      & -0.6244E-03/
                0137       data ((h13(ip,iw,1),iw=1,31),ip= 6, 6)/
                0138      &  0.5713E-09,  0.8263E-09,  0.1060E-08,  0.1226E-08,  0.1252E-08,
                0139      &  0.1076E-08,  0.7149E-09,  0.1379E-09, -0.6043E-09, -0.1417E-08,
                0140      & -0.2241E-08, -0.2830E-08, -0.2627E-08, -0.8950E-09,  0.3231E-08,
                0141      &  0.1075E-07,  0.2278E-07,  0.4037E-07,  0.6439E-07,  0.9576E-07,
                0142      &  0.1363E-06,  0.1886E-06,  0.2567E-06,  0.3494E-06,  0.4821E-06,
                0143      &  0.6719E-06,  0.9343E-06,  0.1280E-05,  0.1705E-05,  0.2184E-05,
                0144      &  0.2651E-05/
                0145       data ((h11(ip,iw,1),iw=1,31),ip= 7, 7)/
                0146      &  0.6299E-04,  0.1013E-03,  0.1541E-03,  0.2220E-03,  0.3058E-03,
                0147      &  0.4078E-03,  0.5334E-03,  0.6928E-03,  0.9032E-03,  0.1190E-02,
                0148      &  0.1587E-02,  0.2140E-02,  0.2912E-02,  0.3982E-02,  0.5460E-02,
                0149      &  0.7500E-02,  0.1031E-01,  0.1420E-01,  0.1958E-01,  0.2700E-01,
                0150      &  0.3721E-01,  0.5118E-01,  0.7019E-01,  0.9593E-01,  0.1305E+00,
                0151      &  0.1763E+00,  0.2354E+00,  0.3091E+00,  0.3969E+00,  0.4952E+00,
                0152      &  0.5978E+00/
                0153       data ((h12(ip,iw,1),iw=1,31),ip= 7, 7)/
                0154      & -0.1932E-06, -0.3467E-06, -0.5623E-06, -0.8306E-06, -0.1136E-05,
                0155      & -0.1472E-05, -0.1842E-05, -0.2269E-05, -0.2807E-05, -0.3539E-05,
                0156      & -0.4553E-05, -0.5925E-05, -0.7710E-05, -0.9968E-05, -0.1278E-04,
                0157      & -0.1629E-04, -0.2073E-04, -0.2644E-04, -0.3392E-04, -0.4390E-04,
                0158      & -0.5727E-04, -0.7516E-04, -0.9916E-04, -0.1315E-03, -0.1752E-03,
                0159      & -0.2333E-03, -0.3082E-03, -0.3988E-03, -0.4982E-03, -0.5947E-03,
                0160      & -0.6764E-03/
                0161       data ((h13(ip,iw,1),iw=1,31),ip= 7, 7)/
                0162      &  0.5612E-09,  0.8116E-09,  0.1048E-08,  0.1222E-08,  0.1270E-08,
                0163      &  0.1141E-08,  0.8732E-09,  0.4336E-09, -0.6548E-10, -0.4774E-09,
                0164      & -0.7556E-09, -0.6577E-09,  0.4377E-09,  0.3359E-08,  0.9159E-08,
                0165      &  0.1901E-07,  0.3422E-07,  0.5616E-07,  0.8598E-07,  0.1251E-06,
                0166      &  0.1752E-06,  0.2392E-06,  0.3228E-06,  0.4389E-06,  0.6049E-06,
                0167      &  0.8370E-06,  0.1150E-05,  0.1547E-05,  0.2012E-05,  0.2493E-05,
                0168      &  0.2913E-05/
                0169       data ((h11(ip,iw,1),iw=1,31),ip= 8, 8)/
                0170      &  0.6378E-04,  0.1032E-03,  0.1579E-03,  0.2293E-03,  0.3190E-03,
                0171      &  0.4305E-03,  0.5712E-03,  0.7541E-03,  0.1001E-02,  0.1342E-02,
                0172      &  0.1819E-02,  0.2489E-02,  0.3427E-02,  0.4734E-02,  0.6548E-02,
                0173      &  0.9059E-02,  0.1254E-01,  0.1735E-01,  0.2401E-01,  0.3318E-01,
                0174      &  0.4577E-01,  0.6292E-01,  0.8620E-01,  0.1176E+00,  0.1594E+00,
                0175      &  0.2139E+00,  0.2827E+00,  0.3660E+00,  0.4614E+00,  0.5634E+00,
                0176      &  0.6649E+00/
                0177       data ((h12(ip,iw,1),iw=1,31),ip= 8, 8)/
                0178      & -0.1885E-06, -0.3385E-06, -0.5493E-06, -0.8114E-06, -0.1109E-05,
                0179      & -0.1436E-05, -0.1796E-05, -0.2219E-05, -0.2770E-05, -0.3535E-05,
                0180      & -0.4609E-05, -0.6077E-05, -0.8016E-05, -0.1051E-04, -0.1367E-04,
                0181      & -0.1768E-04, -0.2283E-04, -0.2955E-04, -0.3849E-04, -0.5046E-04,
                0182      & -0.6653E-04, -0.8813E-04, -0.1173E-03, -0.1569E-03, -0.2100E-03,
                0183      & -0.2794E-03, -0.3656E-03, -0.4637E-03, -0.5629E-03, -0.6512E-03,
                0184      & -0.7167E-03/
                0185       data ((h13(ip,iw,1),iw=1,31),ip= 8, 8)/
                0186      &  0.5477E-09,  0.8000E-09,  0.1039E-08,  0.1234E-08,  0.1331E-08,
                0187      &  0.1295E-08,  0.1160E-08,  0.9178E-09,  0.7535E-09,  0.8301E-09,
                0188      &  0.1184E-08,  0.2082E-08,  0.4253E-08,  0.8646E-08,  0.1650E-07,
                0189      &  0.2920E-07,  0.4834E-07,  0.7564E-07,  0.1125E-06,  0.1606E-06,
                0190      &  0.2216E-06,  0.2992E-06,  0.4031E-06,  0.5493E-06,  0.7549E-06,
                0191      &  0.1035E-05,  0.1400E-05,  0.1843E-05,  0.2327E-05,  0.2774E-05,
                0192      &  0.3143E-05/
                0193       data ((h11(ip,iw,1),iw=1,31),ip= 9, 9)/
                0194      &  0.6495E-04,  0.1059E-03,  0.1635E-03,  0.2400E-03,  0.3381E-03,
                0195      &  0.4631E-03,  0.6246E-03,  0.8394E-03,  0.1134E-02,  0.1546E-02,
                0196      &  0.2126E-02,  0.2944E-02,  0.4093E-02,  0.5699E-02,  0.7934E-02,
                0197      &  0.1104E-01,  0.1535E-01,  0.2131E-01,  0.2956E-01,  0.4089E-01,
                0198      &  0.5636E-01,  0.7739E-01,  0.1058E+00,  0.1439E+00,  0.1939E+00,
                0199      &  0.2578E+00,  0.3364E+00,  0.4283E+00,  0.5290E+00,  0.6314E+00,
                0200      &  0.7292E+00/
                0201       data ((h12(ip,iw,1),iw=1,31),ip= 9, 9)/
                0202      & -0.1822E-06, -0.3274E-06, -0.5325E-06, -0.7881E-06, -0.1079E-05,
                0203      & -0.1398E-05, -0.1754E-05, -0.2184E-05, -0.2763E-05, -0.3581E-05,
                0204      & -0.4739E-05, -0.6341E-05, -0.8484E-05, -0.1128E-04, -0.1490E-04,
                0205      & -0.1955E-04, -0.2561E-04, -0.3364E-04, -0.4438E-04, -0.5881E-04,
                0206      & -0.7822E-04, -0.1045E-03, -0.1401E-03, -0.1884E-03, -0.2523E-03,
                0207      & -0.3335E-03, -0.4289E-03, -0.5296E-03, -0.6231E-03, -0.6980E-03,
                0208      & -0.7406E-03/
                0209       data ((h13(ip,iw,1),iw=1,31),ip= 9, 9)/
                0210      &  0.5334E-09,  0.7859E-09,  0.1043E-08,  0.1279E-08,  0.1460E-08,
                0211      &  0.1560E-08,  0.1618E-08,  0.1657E-08,  0.1912E-08,  0.2569E-08,
                0212      &  0.3654E-08,  0.5509E-08,  0.8964E-08,  0.1518E-07,  0.2560E-07,
                0213      &  0.4178E-07,  0.6574E-07,  0.9958E-07,  0.1449E-06,  0.2031E-06,
                0214      &  0.2766E-06,  0.3718E-06,  0.5022E-06,  0.6849E-06,  0.9360E-06,
                0215      &  0.1268E-05,  0.1683E-05,  0.2157E-05,  0.2625E-05,  0.3020E-05,
                0216      &  0.3364E-05/
                0217       data ((h11(ip,iw,1),iw=1,31),ip=10,10)/
                0218      &  0.6661E-04,  0.1098E-03,  0.1716E-03,  0.2554E-03,  0.3653E-03,
                0219      &  0.5088E-03,  0.6986E-03,  0.9557E-03,  0.1313E-02,  0.1816E-02,
                0220      &  0.2527E-02,  0.3532E-02,  0.4947E-02,  0.6929E-02,  0.9694E-02,
                0221      &  0.1354E-01,  0.1888E-01,  0.2628E-01,  0.3647E-01,  0.5043E-01,
                0222      &  0.6941E-01,  0.9514E-01,  0.1297E+00,  0.1755E+00,  0.2347E+00,
                0223      &  0.3084E+00,  0.3962E+00,  0.4947E+00,  0.5974E+00,  0.6973E+00,
                0224      &  0.7898E+00/
                0225       data ((h12(ip,iw,1),iw=1,31),ip=10,10)/
                0226      & -0.1742E-06, -0.3134E-06, -0.5121E-06, -0.7619E-06, -0.1048E-05,
                0227      & -0.1364E-05, -0.1725E-05, -0.2177E-05, -0.2801E-05, -0.3694E-05,
                0228      & -0.4969E-05, -0.6748E-05, -0.9161E-05, -0.1236E-04, -0.1655E-04,
                0229      & -0.2203E-04, -0.2927E-04, -0.3894E-04, -0.5192E-04, -0.6936E-04,
                0230      & -0.9294E-04, -0.1250E-03, -0.1686E-03, -0.2271E-03, -0.3027E-03,
                0231      & -0.3944E-03, -0.4951E-03, -0.5928E-03, -0.6755E-03, -0.7309E-03,
                0232      & -0.7417E-03/
                0233       data ((h13(ip,iw,1),iw=1,31),ip=10,10)/
                0234      &  0.5179E-09,  0.7789E-09,  0.1071E-08,  0.1382E-08,  0.1690E-08,
                0235      &  0.1979E-08,  0.2297E-08,  0.2704E-08,  0.3466E-08,  0.4794E-08,
                0236      &  0.6746E-08,  0.9739E-08,  0.1481E-07,  0.2331E-07,  0.3679E-07,
                0237      &  0.5726E-07,  0.8716E-07,  0.1289E-06,  0.1837E-06,  0.2534E-06,
                0238      &  0.3424E-06,  0.4609E-06,  0.6245E-06,  0.8495E-06,  0.1151E-05,
                0239      &  0.1536E-05,  0.1991E-05,  0.2468E-05,  0.2891E-05,  0.3245E-05,
                0240      &  0.3580E-05/
                0241       data ((h11(ip,iw,1),iw=1,31),ip=11,11)/
                0242      &  0.6888E-04,  0.1151E-03,  0.1828E-03,  0.2766E-03,  0.4028E-03,
                0243      &  0.5713E-03,  0.7987E-03,  0.1111E-02,  0.1548E-02,  0.2167E-02,
                0244      &  0.3044E-02,  0.4285E-02,  0.6035E-02,  0.8490E-02,  0.1192E-01,
                0245      &  0.1670E-01,  0.2333E-01,  0.3249E-01,  0.4506E-01,  0.6220E-01,
                0246      &  0.8546E-01,  0.1168E+00,  0.1587E+00,  0.2131E+00,  0.2820E+00,
                0247      &  0.3653E+00,  0.4609E+00,  0.5630E+00,  0.6645E+00,  0.7599E+00,
                0248      &  0.8458E+00/
                0249       data ((h12(ip,iw,1),iw=1,31),ip=11,11)/
                0250      & -0.1647E-06, -0.2974E-06, -0.4900E-06, -0.7358E-06, -0.1022E-05,
                0251      & -0.1344E-05, -0.1721E-05, -0.2212E-05, -0.2901E-05, -0.3896E-05,
                0252      & -0.5327E-05, -0.7342E-05, -0.1011E-04, -0.1382E-04, -0.1875E-04,
                0253      & -0.2530E-04, -0.3403E-04, -0.4573E-04, -0.6145E-04, -0.8264E-04,
                0254      & -0.1114E-03, -0.1507E-03, -0.2039E-03, -0.2737E-03, -0.3607E-03,
                0255      & -0.4599E-03, -0.5604E-03, -0.6497E-03, -0.7161E-03, -0.7443E-03,
                0256      & -0.7133E-03/
                0257       data ((h13(ip,iw,1),iw=1,31),ip=11,11)/
                0258      &  0.5073E-09,  0.7906E-09,  0.1134E-08,  0.1560E-08,  0.2046E-08,
                0259      &  0.2589E-08,  0.3254E-08,  0.4107E-08,  0.5481E-08,  0.7602E-08,
                0260      &  0.1059E-07,  0.1501E-07,  0.2210E-07,  0.3334E-07,  0.5055E-07,
                0261      &  0.7629E-07,  0.1134E-06,  0.1642E-06,  0.2298E-06,  0.3133E-06,
                0262      &  0.4225E-06,  0.5709E-06,  0.7739E-06,  0.1047E-05,  0.1401E-05,
                0263      &  0.1833E-05,  0.2308E-05,  0.2753E-05,  0.3125E-05,  0.3467E-05,
                0264      &  0.3748E-05/
                0265       data ((h11(ip,iw,1),iw=1,31),ip=12,12)/
                0266      &  0.7179E-04,  0.1221E-03,  0.1975E-03,  0.3049E-03,  0.4529E-03,
                0267      &  0.6547E-03,  0.9312E-03,  0.1315E-02,  0.1855E-02,  0.2620E-02,
                0268      &  0.3705E-02,  0.5243E-02,  0.7414E-02,  0.1046E-01,  0.1472E-01,
                0269      &  0.2065E-01,  0.2888E-01,  0.4019E-01,  0.5566E-01,  0.7668E-01,
                0270      &  0.1051E+00,  0.1432E+00,  0.1932E+00,  0.2571E+00,  0.3358E+00,
                0271      &  0.4278E+00,  0.5285E+00,  0.6310E+00,  0.7289E+00,  0.8184E+00,
                0272      &  0.8954E+00/
                0273       data ((h12(ip,iw,1),iw=1,31),ip=12,12)/
                0274      & -0.1548E-06, -0.2808E-06, -0.4683E-06, -0.7142E-06, -0.1008E-05,
                0275      & -0.1347E-05, -0.1758E-05, -0.2306E-05, -0.3083E-05, -0.4214E-05,
                0276      & -0.5851E-05, -0.8175E-05, -0.1140E-04, -0.1577E-04, -0.2166E-04,
                0277      & -0.2955E-04, -0.4014E-04, -0.5434E-04, -0.7343E-04, -0.9931E-04,
                0278      & -0.1346E-03, -0.1826E-03, -0.2467E-03, -0.3283E-03, -0.4246E-03,
                0279      & -0.5264E-03, -0.6211E-03, -0.6970E-03, -0.7402E-03, -0.7316E-03,
                0280      & -0.6486E-03/
                0281       data ((h13(ip,iw,1),iw=1,31),ip=12,12)/
                0282      &  0.5078E-09,  0.8244E-09,  0.1255E-08,  0.1826E-08,  0.2550E-08,
                0283      &  0.3438E-08,  0.4532E-08,  0.5949E-08,  0.8041E-08,  0.1110E-07,
                0284      &  0.1534E-07,  0.2157E-07,  0.3116E-07,  0.4570E-07,  0.6747E-07,
                0285      &  0.9961E-07,  0.1451E-06,  0.2061E-06,  0.2843E-06,  0.3855E-06,
                0286      &  0.5213E-06,  0.7060E-06,  0.9544E-06,  0.1280E-05,  0.1684E-05,
                0287      &  0.2148E-05,  0.2609E-05,  0.3002E-05,  0.3349E-05,  0.3670E-05,
                0288      &  0.3780E-05/
                0289       data ((h11(ip,iw,1),iw=1,31),ip=13,13)/
                0290      &  0.7529E-04,  0.1306E-03,  0.2160E-03,  0.3410E-03,  0.5175E-03,
                0291      &  0.7626E-03,  0.1103E-02,  0.1577E-02,  0.2246E-02,  0.3196E-02,
                0292      &  0.4544E-02,  0.6455E-02,  0.9152E-02,  0.1294E-01,  0.1823E-01,
                0293      &  0.2560E-01,  0.3577E-01,  0.4971E-01,  0.6870E-01,  0.9443E-01,
                0294      &  0.1290E+00,  0.1748E+00,  0.2340E+00,  0.3078E+00,  0.3956E+00,
                0295      &  0.4942E+00,  0.5969E+00,  0.6970E+00,  0.7896E+00,  0.8714E+00,
                0296      &  0.9364E+00/
                0297       data ((h12(ip,iw,1),iw=1,31),ip=13,13)/
                0298      & -0.1461E-06, -0.2663E-06, -0.4512E-06, -0.7027E-06, -0.1014E-05,
                0299      & -0.1387E-05, -0.1851E-05, -0.2478E-05, -0.3373E-05, -0.4682E-05,
                0300      & -0.6588E-05, -0.9311E-05, -0.1311E-04, -0.1834E-04, -0.2544E-04,
                0301      & -0.3502E-04, -0.4789E-04, -0.6515E-04, -0.8846E-04, -0.1202E-03,
                0302      & -0.1635E-03, -0.2217E-03, -0.2975E-03, -0.3897E-03, -0.4913E-03,
                0303      & -0.5902E-03, -0.6740E-03, -0.7302E-03, -0.7415E-03, -0.6858E-03,
                0304      & -0.5447E-03/
                0305       data ((h13(ip,iw,1),iw=1,31),ip=13,13)/
                0306      &  0.5236E-09,  0.8873E-09,  0.1426E-08,  0.2193E-08,  0.3230E-08,
                0307      &  0.4555E-08,  0.6200E-08,  0.8298E-08,  0.1126E-07,  0.1544E-07,
                0308      &  0.2130E-07,  0.2978E-07,  0.4239E-07,  0.6096E-07,  0.8829E-07,
                0309      &  0.1280E-06,  0.1830E-06,  0.2555E-06,  0.3493E-06,  0.4740E-06,
                0310      &  0.6431E-06,  0.8701E-06,  0.1169E-05,  0.1547E-05,  0.1992E-05,
                0311      &  0.2460E-05,  0.2877E-05,  0.3230E-05,  0.3569E-05,  0.3782E-05,
                0312      &  0.3591E-05/
                0313       data ((h11(ip,iw,1),iw=1,31),ip=14,14)/
                0314      &  0.7911E-04,  0.1403E-03,  0.2378E-03,  0.3847E-03,  0.5973E-03,
                0315      &  0.8978E-03,  0.1319E-02,  0.1909E-02,  0.2741E-02,  0.3923E-02,
                0316      &  0.5600E-02,  0.7977E-02,  0.1133E-01,  0.1604E-01,  0.2262E-01,
                0317      &  0.3174E-01,  0.4429E-01,  0.6143E-01,  0.8469E-01,  0.1161E+00,
                0318      &  0.1579E+00,  0.2124E+00,  0.2813E+00,  0.3647E+00,  0.4603E+00,
                0319      &  0.5625E+00,  0.6641E+00,  0.7596E+00,  0.8456E+00,  0.9170E+00,
                0320      &  0.9670E+00/
                0321       data ((h12(ip,iw,1),iw=1,31),ip=14,14)/
                0322      & -0.1402E-06, -0.2569E-06, -0.4428E-06, -0.7076E-06, -0.1051E-05,
                0323      & -0.1478E-05, -0.2019E-05, -0.2752E-05, -0.3802E-05, -0.5343E-05,
                0324      & -0.7594E-05, -0.1082E-04, -0.1536E-04, -0.2166E-04, -0.3028E-04,
                0325      & -0.4195E-04, -0.5761E-04, -0.7867E-04, -0.1072E-03, -0.1462E-03,
                0326      & -0.1990E-03, -0.2687E-03, -0.3559E-03, -0.4558E-03, -0.5572E-03,
                0327      & -0.6476E-03, -0.7150E-03, -0.7439E-03, -0.7133E-03, -0.6015E-03,
                0328      & -0.4089E-03/
                0329       data ((h13(ip,iw,1),iw=1,31),ip=14,14)/
                0330      &  0.5531E-09,  0.9757E-09,  0.1644E-08,  0.2650E-08,  0.4074E-08,
                0331      &  0.5957E-08,  0.8314E-08,  0.1128E-07,  0.1528E-07,  0.2087E-07,
                0332      &  0.2874E-07,  0.4002E-07,  0.5631E-07,  0.7981E-07,  0.1139E-06,
                0333      &  0.1621E-06,  0.2275E-06,  0.3136E-06,  0.4280E-06,  0.5829E-06,
                0334      &  0.7917E-06,  0.1067E-05,  0.1419E-05,  0.1844E-05,  0.2310E-05,
                0335      &  0.2747E-05,  0.3113E-05,  0.3455E-05,  0.3739E-05,  0.3715E-05,
                0336      &  0.3125E-05/
                0337       data ((h11(ip,iw,1),iw=1,31),ip=15,15)/
                0338      &  0.8292E-04,  0.1503E-03,  0.2614E-03,  0.4345E-03,  0.6915E-03,
                0339      &  0.1061E-02,  0.1584E-02,  0.2320E-02,  0.3359E-02,  0.4831E-02,
                0340      &  0.6920E-02,  0.9877E-02,  0.1405E-01,  0.1990E-01,  0.2805E-01,
                0341      &  0.3933E-01,  0.5477E-01,  0.7579E-01,  0.1042E+00,  0.1423E+00,
                0342      &  0.1924E+00,  0.2564E+00,  0.3351E+00,  0.4271E+00,  0.5280E+00,
                0343      &  0.6306E+00,  0.7286E+00,  0.8182E+00,  0.8952E+00,  0.9530E+00,
                0344      &  0.9864E+00/
                0345       data ((h12(ip,iw,1),iw=1,31),ip=15,15)/
                0346      & -0.1378E-06, -0.2542E-06, -0.4461E-06, -0.7333E-06, -0.1125E-05,
                0347      & -0.1630E-05, -0.2281E-05, -0.3159E-05, -0.4410E-05, -0.6246E-05,
                0348      & -0.8933E-05, -0.1280E-04, -0.1826E-04, -0.2589E-04, -0.3639E-04,
                0349      & -0.5059E-04, -0.6970E-04, -0.9552E-04, -0.1307E-03, -0.1784E-03,
                0350      & -0.2422E-03, -0.3237E-03, -0.4203E-03, -0.5227E-03, -0.6184E-03,
                0351      & -0.6953E-03, -0.7395E-03, -0.7315E-03, -0.6487E-03, -0.4799E-03,
                0352      & -0.2625E-03/
                0353       data ((h13(ip,iw,1),iw=1,31),ip=15,15)/
                0354      &  0.5891E-09,  0.1074E-08,  0.1885E-08,  0.3167E-08,  0.5051E-08,
                0355      &  0.7631E-08,  0.1092E-07,  0.1500E-07,  0.2032E-07,  0.2769E-07,
                0356      &  0.3810E-07,  0.5279E-07,  0.7361E-07,  0.1032E-06,  0.1450E-06,
                0357      &  0.2026E-06,  0.2798E-06,  0.3832E-06,  0.5242E-06,  0.7159E-06,
                0358      &  0.9706E-06,  0.1299E-05,  0.1701E-05,  0.2159E-05,  0.2612E-05,
                0359      &  0.2998E-05,  0.3341E-05,  0.3661E-05,  0.3775E-05,  0.3393E-05,
                0360      &  0.2384E-05/
                0361       data ((h11(ip,iw,1),iw=1,31),ip=16,16)/
                0362      &  0.8637E-04,  0.1598E-03,  0.2853E-03,  0.4876E-03,  0.7970E-03,
                0363      &  0.1251E-02,  0.1901E-02,  0.2820E-02,  0.4118E-02,  0.5955E-02,
                0364      &  0.8557E-02,  0.1224E-01,  0.1742E-01,  0.2467E-01,  0.3476E-01,
                0365      &  0.4864E-01,  0.6759E-01,  0.9332E-01,  0.1280E+00,  0.1738E+00,
                0366      &  0.2330E+00,  0.3069E+00,  0.3949E+00,  0.4935E+00,  0.5964E+00,
                0367      &  0.6965E+00,  0.7893E+00,  0.8713E+00,  0.9363E+00,  0.9780E+00,
                0368      &  0.9961E+00/
                0369       data ((h12(ip,iw,1),iw=1,31),ip=16,16)/
                0370      & -0.1383E-06, -0.2577E-06, -0.4608E-06, -0.7793E-06, -0.1237E-05,
                0371      & -0.1850E-05, -0.2652E-05, -0.3728E-05, -0.5244E-05, -0.7451E-05,
                0372      & -0.1067E-04, -0.1532E-04, -0.2193E-04, -0.3119E-04, -0.4395E-04,
                0373      & -0.6126E-04, -0.8466E-04, -0.1164E-03, -0.1596E-03, -0.2177E-03,
                0374      & -0.2933E-03, -0.3855E-03, -0.4874E-03, -0.5870E-03, -0.6718E-03,
                0375      & -0.7290E-03, -0.7411E-03, -0.6859E-03, -0.5450E-03, -0.3353E-03,
                0376      & -0.1363E-03/
                0377       data ((h13(ip,iw,1),iw=1,31),ip=16,16)/
                0378      &  0.6217E-09,  0.1165E-08,  0.2116E-08,  0.3685E-08,  0.6101E-08,
                0379      &  0.9523E-08,  0.1400E-07,  0.1959E-07,  0.2668E-07,  0.3629E-07,
                0380      &  0.4982E-07,  0.6876E-07,  0.9523E-07,  0.1321E-06,  0.1825E-06,
                0381      &  0.2505E-06,  0.3420E-06,  0.4677E-06,  0.6416E-06,  0.8760E-06,
                0382      &  0.1183E-05,  0.1565E-05,  0.2010E-05,  0.2472E-05,  0.2882E-05,
                0383      &  0.3229E-05,  0.3564E-05,  0.3777E-05,  0.3589E-05,  0.2786E-05,
                0384      &  0.1487E-05/
                0385       data ((h11(ip,iw,1),iw=1,31),ip=17,17)/
                0386      &  0.8925E-04,  0.1682E-03,  0.3074E-03,  0.5403E-03,  0.9085E-03,
                0387      &  0.1463E-02,  0.2268E-02,  0.3416E-02,  0.5040E-02,  0.7333E-02,
                0388      &  0.1057E-01,  0.1515E-01,  0.2157E-01,  0.3055E-01,  0.4297E-01,
                0389      &  0.6001E-01,  0.8323E-01,  0.1146E+00,  0.1565E+00,  0.2111E+00,
                0390      &  0.2801E+00,  0.3636E+00,  0.4594E+00,  0.5618E+00,  0.6636E+00,
                0391      &  0.7592E+00,  0.8454E+00,  0.9169E+00,  0.9669E+00,  0.9923E+00,
                0392      &  0.9995E+00/
                0393       data ((h12(ip,iw,1),iw=1,31),ip=17,17)/
                0394      & -0.1405E-06, -0.2649E-06, -0.4829E-06, -0.8398E-06, -0.1379E-05,
                0395      & -0.2132E-05, -0.3138E-05, -0.4487E-05, -0.6353E-05, -0.9026E-05,
                0396      & -0.1290E-04, -0.1851E-04, -0.2650E-04, -0.3772E-04, -0.5319E-04,
                0397      & -0.7431E-04, -0.1031E-03, -0.1422E-03, -0.1951E-03, -0.2648E-03,
                0398      & -0.3519E-03, -0.4518E-03, -0.5537E-03, -0.6449E-03, -0.7133E-03,
                0399      & -0.7432E-03, -0.7133E-03, -0.6018E-03, -0.4092E-03, -0.1951E-03,
                0400      & -0.5345E-04/
                0401       data ((h13(ip,iw,1),iw=1,31),ip=17,17)/
                0402      &  0.6457E-09,  0.1235E-08,  0.2303E-08,  0.4149E-08,  0.7120E-08,
                0403      &  0.1152E-07,  0.1749E-07,  0.2508E-07,  0.3462E-07,  0.4718E-07,
                0404      &  0.6452E-07,  0.8874E-07,  0.1222E-06,  0.1675E-06,  0.2276E-06,
                0405      &  0.3076E-06,  0.4174E-06,  0.5714E-06,  0.7837E-06,  0.1067E-05,
                0406      &  0.1428E-05,  0.1859E-05,  0.2327E-05,  0.2760E-05,  0.3122E-05,
                0407      &  0.3458E-05,  0.3739E-05,  0.3715E-05,  0.3126E-05,  0.1942E-05,
                0408      &  0.6977E-06/
                0409       data ((h11(ip,iw,1),iw=1,31),ip=18,18)/
                0410      &  0.9151E-04,  0.1750E-03,  0.3265E-03,  0.5891E-03,  0.1020E-02,
                0411      &  0.1688E-02,  0.2679E-02,  0.4109E-02,  0.6138E-02,  0.9002E-02,
                0412      &  0.1304E-01,  0.1871E-01,  0.2667E-01,  0.3773E-01,  0.5299E-01,
                0413      &  0.7386E-01,  0.1022E+00,  0.1403E+00,  0.1905E+00,  0.2546E+00,
                0414      &  0.3335E+00,  0.4258E+00,  0.5269E+00,  0.6297E+00,  0.7280E+00,
                0415      &  0.8178E+00,  0.8950E+00,  0.9529E+00,  0.9864E+00,  0.9983E+00,
                0416      &  0.1000E+01/
                0417       data ((h12(ip,iw,1),iw=1,31),ip=18,18)/
                0418      & -0.1431E-06, -0.2731E-06, -0.5072E-06, -0.9057E-06, -0.1537E-05,
                0419      & -0.2460E-05, -0.3733E-05, -0.5449E-05, -0.7786E-05, -0.1106E-04,
                0420      & -0.1574E-04, -0.2249E-04, -0.3212E-04, -0.4564E-04, -0.6438E-04,
                0421      & -0.9019E-04, -0.1256E-03, -0.1737E-03, -0.2378E-03, -0.3196E-03,
                0422      & -0.4163E-03, -0.5191E-03, -0.6154E-03, -0.6931E-03, -0.7384E-03,
                0423      & -0.7313E-03, -0.6492E-03, -0.4805E-03, -0.2629E-03, -0.8897E-04,
                0424      & -0.1432E-04/
                0425       data ((h13(ip,iw,1),iw=1,31),ip=18,18)/
                0426      &  0.6607E-09,  0.1282E-08,  0.2441E-08,  0.4522E-08,  0.8027E-08,
                0427      &  0.1348E-07,  0.2122E-07,  0.3139E-07,  0.4435E-07,  0.6095E-07,
                0428      &  0.8319E-07,  0.1139E-06,  0.1557E-06,  0.2107E-06,  0.2819E-06,
                0429      &  0.3773E-06,  0.5107E-06,  0.6982E-06,  0.9542E-06,  0.1290E-05,
                0430      &  0.1703E-05,  0.2170E-05,  0.2628E-05,  0.3013E-05,  0.3352E-05,
                0431      &  0.3669E-05,  0.3780E-05,  0.3397E-05,  0.2386E-05,  0.1062E-05,
                0432      &  0.2216E-06/
                0433       data ((h11(ip,iw,1),iw=1,31),ip=19,19)/
                0434      &  0.9320E-04,  0.1803E-03,  0.3422E-03,  0.6317E-03,  0.1124E-02,
                0435      &  0.1915E-02,  0.3121E-02,  0.4890E-02,  0.7421E-02,  0.1100E-01,
                0436      &  0.1602E-01,  0.2306E-01,  0.3288E-01,  0.4647E-01,  0.6515E-01,
                0437      &  0.9066E-01,  0.1252E+00,  0.1710E+00,  0.2304E+00,  0.3045E+00,
                0438      &  0.3928E+00,  0.4918E+00,  0.5951E+00,  0.6956E+00,  0.7887E+00,
                0439      &  0.8709E+00,  0.9361E+00,  0.9780E+00,  0.9961E+00,  0.9999E+00,
                0440      &  0.1000E+01/
                0441       data ((h12(ip,iw,1),iw=1,31),ip=19,19)/
                0442      & -0.1454E-06, -0.2805E-06, -0.5296E-06, -0.9685E-06, -0.1695E-05,
                0443      & -0.2812E-05, -0.4412E-05, -0.6606E-05, -0.9573E-05, -0.1363E-04,
                0444      & -0.1932E-04, -0.2743E-04, -0.3897E-04, -0.5520E-04, -0.7787E-04,
                0445      & -0.1094E-03, -0.1529E-03, -0.2117E-03, -0.2880E-03, -0.3809E-03,
                0446      & -0.4834E-03, -0.5836E-03, -0.6692E-03, -0.7275E-03, -0.7408E-03,
                0447      & -0.6865E-03, -0.5459E-03, -0.3360E-03, -0.1365E-03, -0.2935E-04,
                0448      & -0.2173E-05/
                0449       data ((h13(ip,iw,1),iw=1,31),ip=19,19)/
                0450      &  0.6693E-09,  0.1312E-08,  0.2538E-08,  0.4802E-08,  0.8778E-08,
                0451      &  0.1528E-07,  0.2501E-07,  0.3836E-07,  0.5578E-07,  0.7806E-07,
                0452      &  0.1069E-06,  0.1456E-06,  0.1970E-06,  0.2631E-06,  0.3485E-06,
                0453      &  0.4642E-06,  0.6268E-06,  0.8526E-06,  0.1157E-05,  0.1545E-05,
                0454      &  0.2002E-05,  0.2478E-05,  0.2897E-05,  0.3245E-05,  0.3578E-05,
                0455      &  0.3789E-05,  0.3598E-05,  0.2792E-05,  0.1489E-05,  0.4160E-06,
                0456      &  0.3843E-07/
                0457       data ((h11(ip,iw,1),iw=1,31),ip=20,20)/
                0458      &  0.9443E-04,  0.1843E-03,  0.3545E-03,  0.6669E-03,  0.1217E-02,
                0459      &  0.2133E-02,  0.3577E-02,  0.5742E-02,  0.8880E-02,  0.1333E-01,
                0460      &  0.1958E-01,  0.2830E-01,  0.4039E-01,  0.5705E-01,  0.7988E-01,
                0461      &  0.1110E+00,  0.1526E+00,  0.2072E+00,  0.2764E+00,  0.3604E+00,
                0462      &  0.4567E+00,  0.5597E+00,  0.6620E+00,  0.7581E+00,  0.8447E+00,
                0463      &  0.9165E+00,  0.9668E+00,  0.9923E+00,  0.9995E+00,  0.1000E+01,
                0464      &  0.1000E+01/
                0465       data ((h12(ip,iw,1),iw=1,31),ip=20,20)/
                0466      & -0.1472E-06, -0.2866E-06, -0.5485E-06, -0.1024E-05, -0.1842E-05,
                0467      & -0.3160E-05, -0.5136E-05, -0.7922E-05, -0.1171E-04, -0.1682E-04,
                0468      & -0.2381E-04, -0.3355E-04, -0.4729E-04, -0.6673E-04, -0.9417E-04,
                0469      & -0.1327E-03, -0.1858E-03, -0.2564E-03, -0.3449E-03, -0.4463E-03,
                0470      & -0.5495E-03, -0.6420E-03, -0.7116E-03, -0.7427E-03, -0.7139E-03,
                0471      & -0.6031E-03, -0.4104E-03, -0.1957E-03, -0.5358E-04, -0.6176E-05,
                0472      & -0.1347E-06/
                0473       data ((h13(ip,iw,1),iw=1,31),ip=20,20)/
                0474      &  0.6750E-09,  0.1332E-08,  0.2602E-08,  0.5003E-08,  0.9367E-08,
                0475      &  0.1684E-07,  0.2863E-07,  0.4566E-07,  0.6865E-07,  0.9861E-07,
                0476      &  0.1368E-06,  0.1856E-06,  0.2479E-06,  0.3274E-06,  0.4315E-06,
                0477      &  0.5739E-06,  0.7710E-06,  0.1040E-05,  0.1394E-05,  0.1829E-05,
                0478      &  0.2309E-05,  0.2759E-05,  0.3131E-05,  0.3472E-05,  0.3755E-05,
                0479      &  0.3730E-05,  0.3138E-05,  0.1948E-05,  0.6994E-06,  0.1022E-06,
                0480      &  0.2459E-08/
                0481       data ((h11(ip,iw,1),iw=1,31),ip=21,21)/
                0482      &  0.9530E-04,  0.1872E-03,  0.3638E-03,  0.6949E-03,  0.1295E-02,
                0483      &  0.2330E-02,  0.4022E-02,  0.6633E-02,  0.1049E-01,  0.1601E-01,
                0484      &  0.2378E-01,  0.3456E-01,  0.4941E-01,  0.6980E-01,  0.9765E-01,
                0485      &  0.1353E+00,  0.1852E+00,  0.2494E+00,  0.3287E+00,  0.4216E+00,
                0486      &  0.5234E+00,  0.6272E+00,  0.7261E+00,  0.8166E+00,  0.8943E+00,
                0487      &  0.9526E+00,  0.9863E+00,  0.9983E+00,  0.1000E+01,  0.1000E+01,
                0488      &  0.1000E+01/
                0489       data ((h12(ip,iw,1),iw=1,31),ip=21,21)/
                0490      & -0.1487E-06, -0.2912E-06, -0.5636E-06, -0.1069E-05, -0.1969E-05,
                0491      & -0.3483E-05, -0.5858E-05, -0.9334E-05, -0.1416E-04, -0.2067E-04,
                0492      & -0.2936E-04, -0.4113E-04, -0.5750E-04, -0.8072E-04, -0.1139E-03,
                0493      & -0.1606E-03, -0.2246E-03, -0.3076E-03, -0.4067E-03, -0.5121E-03,
                0494      & -0.6110E-03, -0.6909E-03, -0.7378E-03, -0.7321E-03, -0.6509E-03,
                0495      & -0.4825E-03, -0.2641E-03, -0.8936E-04, -0.1436E-04, -0.5966E-06,
                0496      &  0.0000E+00/
                0497       data ((h13(ip,iw,1),iw=1,31),ip=21,21)/
                0498      &  0.6777E-09,  0.1344E-08,  0.2643E-08,  0.5138E-08,  0.9798E-08,
                0499      &  0.1809E-07,  0.3185E-07,  0.5285E-07,  0.8249E-07,  0.1222E-06,
                0500      &  0.1730E-06,  0.2351E-06,  0.3111E-06,  0.4078E-06,  0.5366E-06,
                0501      &  0.7117E-06,  0.9495E-06,  0.1266E-05,  0.1667E-05,  0.2132E-05,
                0502      &  0.2600E-05,  0.3001E-05,  0.3354E-05,  0.3679E-05,  0.3796E-05,
                0503      &  0.3414E-05,  0.2399E-05,  0.1067E-05,  0.2222E-06,  0.1075E-07,
                0504      &  0.0000E+00/
                0505       data ((h11(ip,iw,1),iw=1,31),ip=22,22)/
                0506      &  0.9589E-04,  0.1893E-03,  0.3706E-03,  0.7162E-03,  0.1357E-02,
                0507      &  0.2500E-02,  0.4434E-02,  0.7523E-02,  0.1220E-01,  0.1900E-01,
                0508      &  0.2860E-01,  0.4190E-01,  0.6015E-01,  0.8508E-01,  0.1189E+00,
                0509      &  0.1643E+00,  0.2233E+00,  0.2976E+00,  0.3865E+00,  0.4865E+00,
                0510      &  0.5909E+00,  0.6925E+00,  0.7866E+00,  0.8696E+00,  0.9355E+00,
                0511      &  0.9778E+00,  0.9961E+00,  0.9999E+00,  0.1000E+01,  0.1000E+01,
                0512      &  0.1000E+01/
                0513       data ((h12(ip,iw,1),iw=1,31),ip=22,22)/
                0514      & -0.1496E-06, -0.2947E-06, -0.5749E-06, -0.1105E-05, -0.2074E-05,
                0515      & -0.3763E-05, -0.6531E-05, -0.1076E-04, -0.1682E-04, -0.2509E-04,
                0516      & -0.3605E-04, -0.5049E-04, -0.7012E-04, -0.9787E-04, -0.1378E-03,
                0517      & -0.1939E-03, -0.2695E-03, -0.3641E-03, -0.4703E-03, -0.5750E-03,
                0518      & -0.6648E-03, -0.7264E-03, -0.7419E-03, -0.6889E-03, -0.5488E-03,
                0519      & -0.3382E-03, -0.1375E-03, -0.2951E-04, -0.2174E-05,  0.0000E+00,
                0520      &  0.0000E+00/
                0521       data ((h13(ip,iw,1),iw=1,31),ip=22,22)/
                0522      &  0.6798E-09,  0.1350E-08,  0.2667E-08,  0.5226E-08,  0.1010E-07,
                0523      &  0.1903E-07,  0.3455E-07,  0.5951E-07,  0.9658E-07,  0.1479E-06,
                0524      &  0.2146E-06,  0.2951E-06,  0.3903E-06,  0.5101E-06,  0.6693E-06,
                0525      &  0.8830E-06,  0.1168E-05,  0.1532E-05,  0.1968E-05,  0.2435E-05,
                0526      &  0.2859E-05,  0.3222E-05,  0.3572E-05,  0.3797E-05,  0.3615E-05,
                0527      &  0.2811E-05,  0.1500E-05,  0.4185E-06,  0.3850E-07,  0.0000E+00,
                0528      &  0.0000E+00/
                0529       data ((h11(ip,iw,1),iw=1,31),ip=23,23)/
                0530      &  0.9629E-04,  0.1907E-03,  0.3755E-03,  0.7321E-03,  0.1406E-02,
                0531      &  0.2639E-02,  0.4796E-02,  0.8368E-02,  0.1394E-01,  0.2221E-01,
                0532      &  0.3400E-01,  0.5037E-01,  0.7279E-01,  0.1033E+00,  0.1442E+00,
                0533      &  0.1983E+00,  0.2673E+00,  0.3516E+00,  0.4489E+00,  0.5533E+00,
                0534      &  0.6572E+00,  0.7547E+00,  0.8425E+00,  0.9153E+00,  0.9663E+00,
                0535      &  0.9922E+00,  0.9995E+00,  0.1000E+01,  0.1000E+01,  0.1000E+01,
                0536      &  0.1000E+01/
                0537       data ((h12(ip,iw,1),iw=1,31),ip=23,23)/
                0538      & -0.1503E-06, -0.2971E-06, -0.5832E-06, -0.1131E-05, -0.2154E-05,
                0539      & -0.3992E-05, -0.7122E-05, -0.1211E-04, -0.1954E-04, -0.2995E-04,
                0540      & -0.4380E-04, -0.6183E-04, -0.8577E-04, -0.1191E-03, -0.1668E-03,
                0541      & -0.2333E-03, -0.3203E-03, -0.4237E-03, -0.5324E-03, -0.6318E-03,
                0542      & -0.7075E-03, -0.7429E-03, -0.7168E-03, -0.6071E-03, -0.4139E-03,
                0543      & -0.1976E-03, -0.5410E-04, -0.6215E-05, -0.1343E-06,  0.0000E+00,
                0544      &  0.0000E+00/
                0545       data ((h13(ip,iw,1),iw=1,31),ip=23,23)/
                0546      &  0.6809E-09,  0.1356E-08,  0.2683E-08,  0.5287E-08,  0.1030E-07,
                0547      &  0.1971E-07,  0.3665E-07,  0.6528E-07,  0.1100E-06,  0.1744E-06,
                0548      &  0.2599E-06,  0.3650E-06,  0.4887E-06,  0.6398E-06,  0.8358E-06,
                0549      &  0.1095E-05,  0.1429E-05,  0.1836E-05,  0.2286E-05,  0.2716E-05,
                0550      &  0.3088E-05,  0.3444E-05,  0.3748E-05,  0.3740E-05,  0.3157E-05,
                0551      &  0.1966E-05,  0.7064E-06,  0.1030E-06,  0.2456E-08,  0.0000E+00,
                0552      &  0.0000E+00/
                0553       data ((h11(ip,iw,1),iw=1,31),ip=24,24)/
                0554      &  0.9655E-04,  0.1917E-03,  0.3789E-03,  0.7436E-03,  0.1442E-02,
                0555      &  0.2748E-02,  0.5100E-02,  0.9128E-02,  0.1563E-01,  0.2553E-01,
                0556      &  0.3987E-01,  0.5994E-01,  0.8746E-01,  0.1246E+00,  0.1739E+00,
                0557      &  0.2376E+00,  0.3170E+00,  0.4107E+00,  0.5141E+00,  0.6198E+00,
                0558      &  0.7208E+00,  0.8130E+00,  0.8923E+00,  0.9517E+00,  0.9860E+00,
                0559      &  0.9983E+00,  0.1000E+01,  0.1000E+01,  0.1000E+01,  0.1000E+01,
                0560      &  0.1000E+01/
                0561       data ((h12(ip,iw,1),iw=1,31),ip=24,24)/
                0562      & -0.1508E-06, -0.2989E-06, -0.5892E-06, -0.1151E-05, -0.2216E-05,
                0563      & -0.4175E-05, -0.7619E-05, -0.1333E-04, -0.2217E-04, -0.3497E-04,
                0564      & -0.5238E-04, -0.7513E-04, -0.1049E-03, -0.1455E-03, -0.2021E-03,
                0565      & -0.2790E-03, -0.3757E-03, -0.4839E-03, -0.5902E-03, -0.6794E-03,
                0566      & -0.7344E-03, -0.7341E-03, -0.6557E-03, -0.4874E-03, -0.2674E-03,
                0567      & -0.9059E-04, -0.1455E-04, -0.5986E-06,  0.0000E+00,  0.0000E+00,
                0568      &  0.0000E+00/
                0569       data ((h13(ip,iw,1),iw=1,31),ip=24,24)/
                0570      &  0.6812E-09,  0.1356E-08,  0.2693E-08,  0.5328E-08,  0.1045E-07,
                0571      &  0.2021E-07,  0.3826E-07,  0.6994E-07,  0.1218E-06,  0.1997E-06,
                0572      &  0.3069E-06,  0.4428E-06,  0.6064E-06,  0.8015E-06,  0.1043E-05,
                0573      &  0.1351E-05,  0.1733E-05,  0.2168E-05,  0.2598E-05,  0.2968E-05,
                0574      &  0.3316E-05,  0.3662E-05,  0.3801E-05,  0.3433E-05,  0.2422E-05,
                0575      &  0.1081E-05,  0.2256E-06,  0.1082E-07,  0.0000E+00,  0.0000E+00,
                0576      &  0.0000E+00/
                0577       data ((h11(ip,iw,1),iw=1,31),ip=25,25)/
                0578      &  0.9672E-04,  0.1923E-03,  0.3813E-03,  0.7518E-03,  0.1469E-02,
                0579      &  0.2832E-02,  0.5343E-02,  0.9779E-02,  0.1719E-01,  0.2882E-01,
                0580      &  0.4606E-01,  0.7051E-01,  0.1042E+00,  0.1493E+00,  0.2081E+00,
                0581      &  0.2824E+00,  0.3720E+00,  0.4736E+00,  0.5803E+00,  0.6844E+00,
                0582      &  0.7810E+00,  0.8663E+00,  0.9339E+00,  0.9772E+00,  0.9960E+00,
                0583      &  0.9999E+00,  0.1000E+01,  0.1000E+01,  0.1000E+01,  0.1000E+01,
                0584      &  0.1000E+01/
                0585       data ((h12(ip,iw,1),iw=1,31),ip=25,25)/
                0586      & -0.1511E-06, -0.3001E-06, -0.5934E-06, -0.1166E-05, -0.2263E-05,
                0587      & -0.4319E-05, -0.8028E-05, -0.1438E-04, -0.2460E-04, -0.3991E-04,
                0588      & -0.6138E-04, -0.9005E-04, -0.1278E-03, -0.1778E-03, -0.2447E-03,
                0589      & -0.3313E-03, -0.4342E-03, -0.5424E-03, -0.6416E-03, -0.7146E-03,
                0590      & -0.7399E-03, -0.6932E-03, -0.5551E-03, -0.3432E-03, -0.1398E-03,
                0591      & -0.3010E-04, -0.2229E-05,  0.0000E+00,  0.0000E+00,  0.0000E+00,
                0592      &  0.0000E+00/
                0593       data ((h13(ip,iw,1),iw=1,31),ip=25,25)/
                0594      &  0.6815E-09,  0.1358E-08,  0.2698E-08,  0.5355E-08,  0.1054E-07,
                0595      &  0.2056E-07,  0.3942E-07,  0.7349E-07,  0.1315E-06,  0.2226E-06,
                0596      &  0.3537E-06,  0.5266E-06,  0.7407E-06,  0.9958E-06,  0.1296E-05,
                0597      &  0.1657E-05,  0.2077E-05,  0.2512E-05,  0.2893E-05,  0.3216E-05,
                0598      &  0.3562E-05,  0.3811E-05,  0.3644E-05,  0.2841E-05,  0.1524E-05,
                0599      &  0.4276E-06,  0.3960E-07,  0.0000E+00,  0.0000E+00,  0.0000E+00,
                0600      &  0.0000E+00/
                0601       data ((h11(ip,iw,1),iw=1,31),ip=26,26)/
                0602      &  0.9682E-04,  0.1928E-03,  0.3829E-03,  0.7576E-03,  0.1489E-02,
                0603      &  0.2894E-02,  0.5533E-02,  0.1031E-01,  0.1856E-01,  0.3195E-01,
                0604      &  0.5237E-01,  0.8187E-01,  0.1227E+00,  0.1771E+00,  0.2468E+00,
                0605      &  0.3321E+00,  0.4312E+00,  0.5384E+00,  0.6455E+00,  0.7463E+00,
                0606      &  0.8372E+00,  0.9126E+00,  0.9652E+00,  0.9919E+00,  0.9994E+00,
                0607      &  0.1000E+01,  0.1000E+01,  0.1000E+01,  0.1000E+01,  0.1000E+01,
                0608      &  0.1000E+01/
                0609       data ((h12(ip,iw,1),iw=1,31),ip=26,26)/
                0610      & -0.1513E-06, -0.3009E-06, -0.5966E-06, -0.1176E-05, -0.2299E-05,
                0611      & -0.4430E-05, -0.8352E-05, -0.1526E-04, -0.2674E-04, -0.4454E-04,
                0612      & -0.7042E-04, -0.1062E-03, -0.1540E-03, -0.2163E-03, -0.2951E-03,
                0613      & -0.3899E-03, -0.4948E-03, -0.5983E-03, -0.6846E-03, -0.7332E-03,
                0614      & -0.7182E-03, -0.6142E-03, -0.4209E-03, -0.2014E-03, -0.5530E-04,
                0615      & -0.6418E-05, -0.1439E-06,  0.0000E+00,  0.0000E+00,  0.0000E+00,
                0616      &  0.0000E+00/
                0617       data ((h13(ip,iw,1),iw=1,31),ip=26,26)/
                0618      &  0.6817E-09,  0.1359E-08,  0.2702E-08,  0.5374E-08,  0.1061E-07,
                0619      &  0.2079E-07,  0.4022E-07,  0.7610E-07,  0.1392E-06,  0.2428E-06,
                0620      &  0.3992E-06,  0.6149E-06,  0.8893E-06,  0.1220E-05,  0.1599E-05,
                0621      &  0.2015E-05,  0.2453E-05,  0.2853E-05,  0.3173E-05,  0.3488E-05,
                0622      &  0.3792E-05,  0.3800E-05,  0.3210E-05,  0.2002E-05,  0.7234E-06,
                0623      &  0.1068E-06,  0.2646E-08,  0.0000E+00,  0.0000E+00,  0.0000E+00,
                0624      &  0.0000E+00/
                0625       data ((h21(ip,iw,1),iw=1,31),ip= 1, 1)/
                0626      &  0.3920E-05,  0.7617E-05,  0.1455E-04,  0.2706E-04,  0.4855E-04,
                0627      &  0.8315E-04,  0.1349E-03,  0.2063E-03,  0.2984E-03,  0.4109E-03,
                0628      &  0.5422E-03,  0.6896E-03,  0.8537E-03,  0.1041E-02,  0.1262E-02,
                0629      &  0.1534E-02,  0.1870E-02,  0.2286E-02,  0.2803E-02,  0.3444E-02,
                0630      &  0.4242E-02,  0.5244E-02,  0.6511E-02,  0.8138E-02,  0.1027E-01,
                0631      &  0.1312E-01,  0.1697E-01,  0.2222E-01,  0.2941E-01,  0.3923E-01,
                0632      &  0.5258E-01/
                0633       data ((h22(ip,iw,1),iw=1,31),ip= 1, 1)/
                0634      & -0.5622E-07, -0.1071E-06, -0.1983E-06, -0.3533E-06, -0.5991E-06,
                0635      & -0.9592E-06, -0.1444E-05, -0.2049E-05, -0.2764E-05, -0.3577E-05,
                0636      & -0.4469E-05, -0.5467E-05, -0.6654E-05, -0.8137E-05, -0.1002E-04,
                0637      & -0.1237E-04, -0.1528E-04, -0.1884E-04, -0.2310E-04, -0.2809E-04,
                0638      & -0.3396E-04, -0.4098E-04, -0.4960E-04, -0.6058E-04, -0.7506E-04,
                0639      & -0.9451E-04, -0.1207E-03, -0.1558E-03, -0.2026E-03, -0.2648E-03,
                0640      & -0.3468E-03/
                0641       data ((h23(ip,iw,1),iw=1,31),ip= 1, 1)/
                0642      & -0.2195E-09, -0.4031E-09, -0.7043E-09, -0.1153E-08, -0.1737E-08,
                0643      & -0.2395E-08, -0.3020E-08, -0.3549E-08, -0.4034E-08, -0.4421E-08,
                0644      & -0.4736E-08, -0.5681E-08, -0.8289E-08, -0.1287E-07, -0.1873E-07,
                0645      & -0.2523E-07, -0.3223E-07, -0.3902E-07, -0.4409E-07, -0.4699E-07,
                0646      & -0.4782E-07, -0.4705E-07, -0.4657E-07, -0.4885E-07, -0.5550E-07,
                0647      & -0.6619E-07, -0.7656E-07, -0.8027E-07, -0.7261E-07, -0.4983E-07,
                0648      & -0.1101E-07/
                0649       data ((h21(ip,iw,1),iw=1,31),ip= 2, 2)/
                0650      &  0.3920E-05,  0.7617E-05,  0.1455E-04,  0.2706E-04,  0.4856E-04,
                0651      &  0.8318E-04,  0.1349E-03,  0.2065E-03,  0.2986E-03,  0.4114E-03,
                0652      &  0.5431E-03,  0.6912E-03,  0.8566E-03,  0.1046E-02,  0.1272E-02,
                0653      &  0.1552E-02,  0.1902E-02,  0.2342E-02,  0.2899E-02,  0.3605E-02,
                0654      &  0.4501E-02,  0.5648E-02,  0.7129E-02,  0.9063E-02,  0.1163E-01,
                0655      &  0.1509E-01,  0.1980E-01,  0.2626E-01,  0.3510E-01,  0.4717E-01,
                0656      &  0.6351E-01/
                0657       data ((h22(ip,iw,1),iw=1,31),ip= 2, 2)/
                0658      & -0.5622E-07, -0.1071E-06, -0.1983E-06, -0.3534E-06, -0.5992E-06,
                0659      & -0.9594E-06, -0.1445E-05, -0.2050E-05, -0.2766E-05, -0.3580E-05,
                0660      & -0.4476E-05, -0.5479E-05, -0.6677E-05, -0.8179E-05, -0.1009E-04,
                0661      & -0.1251E-04, -0.1553E-04, -0.1928E-04, -0.2384E-04, -0.2930E-04,
                0662      & -0.3588E-04, -0.4393E-04, -0.5403E-04, -0.6714E-04, -0.8458E-04,
                0663      & -0.1082E-03, -0.1400E-03, -0.1829E-03, -0.2401E-03, -0.3157E-03,
                0664      & -0.4147E-03/
                0665       data ((h23(ip,iw,1),iw=1,31),ip= 2, 2)/
                0666      & -0.2195E-09, -0.4032E-09, -0.7046E-09, -0.1153E-08, -0.1738E-08,
                0667      & -0.2395E-08, -0.3021E-08, -0.3550E-08, -0.4035E-08, -0.4423E-08,
                0668      & -0.4740E-08, -0.5692E-08, -0.8314E-08, -0.1292E-07, -0.1882E-07,
                0669      & -0.2536E-07, -0.3242E-07, -0.3927E-07, -0.4449E-07, -0.4767E-07,
                0670      & -0.4889E-07, -0.4857E-07, -0.4860E-07, -0.5132E-07, -0.5847E-07,
                0671      & -0.6968E-07, -0.8037E-07, -0.8400E-07, -0.7521E-07, -0.4830E-07,
                0672      & -0.7562E-09/
                0673       data ((h21(ip,iw,1),iw=1,31),ip= 3, 3)/
                0674      &  0.3920E-05,  0.7617E-05,  0.1455E-04,  0.2707E-04,  0.4858E-04,
                0675      &  0.8322E-04,  0.1350E-03,  0.2066E-03,  0.2990E-03,  0.4122E-03,
                0676      &  0.5444E-03,  0.6937E-03,  0.8611E-03,  0.1054E-02,  0.1287E-02,
                0677      &  0.1579E-02,  0.1949E-02,  0.2424E-02,  0.3037E-02,  0.3829E-02,
                0678      &  0.4854E-02,  0.6190E-02,  0.7942E-02,  0.1026E-01,  0.1338E-01,
                0679      &  0.1761E-01,  0.2340E-01,  0.3134E-01,  0.4223E-01,  0.5703E-01,
                0680      &  0.7694E-01/
                0681       data ((h22(ip,iw,1),iw=1,31),ip= 3, 3)/
                0682      & -0.5622E-07, -0.1071E-06, -0.1983E-06, -0.3535E-06, -0.5994E-06,
                0683      & -0.9599E-06, -0.1446E-05, -0.2052E-05, -0.2769E-05, -0.3586E-05,
                0684      & -0.4487E-05, -0.5499E-05, -0.6712E-05, -0.8244E-05, -0.1021E-04,
                0685      & -0.1272E-04, -0.1591E-04, -0.1992E-04, -0.2489E-04, -0.3097E-04,
                0686      & -0.3845E-04, -0.4782E-04, -0.5982E-04, -0.7558E-04, -0.9674E-04,
                0687      & -0.1254E-03, -0.1644E-03, -0.2167E-03, -0.2863E-03, -0.3777E-03,
                0688      & -0.4959E-03/
                0689       data ((h23(ip,iw,1),iw=1,31),ip= 3, 3)/
                0690      & -0.2196E-09, -0.4033E-09, -0.7048E-09, -0.1154E-08, -0.1739E-08,
                0691      & -0.2396E-08, -0.3022E-08, -0.3551E-08, -0.4036E-08, -0.4425E-08,
                0692      & -0.4746E-08, -0.5710E-08, -0.8354E-08, -0.1300E-07, -0.1894E-07,
                0693      & -0.2554E-07, -0.3265E-07, -0.3958E-07, -0.4502E-07, -0.4859E-07,
                0694      & -0.5030E-07, -0.5053E-07, -0.5104E-07, -0.5427E-07, -0.6204E-07,
                0695      & -0.7388E-07, -0.8477E-07, -0.8760E-07, -0.7545E-07, -0.4099E-07,
                0696      &  0.2046E-07/
                0697       data ((h21(ip,iw,1),iw=1,31),ip= 4, 4)/
                0698      &  0.3919E-05,  0.7618E-05,  0.1455E-04,  0.2708E-04,  0.4860E-04,
                0699      &  0.8327E-04,  0.1352E-03,  0.2070E-03,  0.2997E-03,  0.4134E-03,
                0700      &  0.5466E-03,  0.6976E-03,  0.8682E-03,  0.1067E-02,  0.1310E-02,
                0701      &  0.1619E-02,  0.2020E-02,  0.2543E-02,  0.3232E-02,  0.4136E-02,
                0702      &  0.5328E-02,  0.6906E-02,  0.9004E-02,  0.1182E-01,  0.1562E-01,
                0703      &  0.2081E-01,  0.2794E-01,  0.3773E-01,  0.5111E-01,  0.6919E-01,
                0704      &  0.9329E-01/
                0705       data ((h22(ip,iw,1),iw=1,31),ip= 4, 4)/
                0706      & -0.5623E-07, -0.1071E-06, -0.1984E-06, -0.3536E-06, -0.5997E-06,
                0707      & -0.9606E-06, -0.1447E-05, -0.2055E-05, -0.2775E-05, -0.3596E-05,
                0708      & -0.4504E-05, -0.5529E-05, -0.6768E-05, -0.8345E-05, -0.1039E-04,
                0709      & -0.1304E-04, -0.1645E-04, -0.2082E-04, -0.2633E-04, -0.3322E-04,
                0710      & -0.4187E-04, -0.5292E-04, -0.6730E-04, -0.8640E-04, -0.1122E-03,
                0711      & -0.1472E-03, -0.1948E-03, -0.2585E-03, -0.3428E-03, -0.4523E-03,
                0712      & -0.5915E-03/
                0713       data ((h23(ip,iw,1),iw=1,31),ip= 4, 4)/
                0714      & -0.2196E-09, -0.4034E-09, -0.7050E-09, -0.1154E-08, -0.1740E-08,
                0715      & -0.2398E-08, -0.3024E-08, -0.3552E-08, -0.4037E-08, -0.4428E-08,
                0716      & -0.4756E-08, -0.5741E-08, -0.8418E-08, -0.1310E-07, -0.1910E-07,
                0717      & -0.2575E-07, -0.3293E-07, -0.3998E-07, -0.4572E-07, -0.4980E-07,
                0718      & -0.5211E-07, -0.5287E-07, -0.5390E-07, -0.5782E-07, -0.6650E-07,
                0719      & -0.7892E-07, -0.8940E-07, -0.8980E-07, -0.7119E-07, -0.2452E-07,
                0720      &  0.5823E-07/
                0721       data ((h21(ip,iw,1),iw=1,31),ip= 5, 5)/
                0722      &  0.3919E-05,  0.7618E-05,  0.1455E-04,  0.2709E-04,  0.4863E-04,
                0723      &  0.8337E-04,  0.1354E-03,  0.2075E-03,  0.3007E-03,  0.4152E-03,
                0724      &  0.5500E-03,  0.7038E-03,  0.8793E-03,  0.1086E-02,  0.1345E-02,
                0725      &  0.1680E-02,  0.2123E-02,  0.2712E-02,  0.3500E-02,  0.4552E-02,
                0726      &  0.5958E-02,  0.7844E-02,  0.1038E-01,  0.1381E-01,  0.1847E-01,
                0727      &  0.2487E-01,  0.3366E-01,  0.4572E-01,  0.6209E-01,  0.8406E-01,
                0728      &  0.1130E+00/
                0729       data ((h22(ip,iw,1),iw=1,31),ip= 5, 5)/
                0730      & -0.5623E-07, -0.1071E-06, -0.1985E-06, -0.3538E-06, -0.6002E-06,
                0731      & -0.9618E-06, -0.1450E-05, -0.2059E-05, -0.2783E-05, -0.3611E-05,
                0732      & -0.4531E-05, -0.5577E-05, -0.6855E-05, -0.8499E-05, -0.1066E-04,
                0733      & -0.1351E-04, -0.1723E-04, -0.2207E-04, -0.2829E-04, -0.3621E-04,
                0734      & -0.4636E-04, -0.5954E-04, -0.7690E-04, -0.1002E-03, -0.1317E-03,
                0735      & -0.1746E-03, -0.2326E-03, -0.3099E-03, -0.4111E-03, -0.5407E-03,
                0736      & -0.7020E-03/
                0737       data ((h23(ip,iw,1),iw=1,31),ip= 5, 5)/
                0738      & -0.2197E-09, -0.4037E-09, -0.7054E-09, -0.1155E-08, -0.1741E-08,
                0739      & -0.2401E-08, -0.3027E-08, -0.3553E-08, -0.4039E-08, -0.4431E-08,
                0740      & -0.4775E-08, -0.5784E-08, -0.8506E-08, -0.1326E-07, -0.1931E-07,
                0741      & -0.2600E-07, -0.3324E-07, -0.4048E-07, -0.4666E-07, -0.5137E-07,
                0742      & -0.5428E-07, -0.5558E-07, -0.5730E-07, -0.6228E-07, -0.7197E-07,
                0743      & -0.8455E-07, -0.9347E-07, -0.8867E-07, -0.5945E-07,  0.5512E-08,
                0744      &  0.1209E-06/
                0745       data ((h21(ip,iw,1),iw=1,31),ip= 6, 6)/
                0746      &  0.3919E-05,  0.7619E-05,  0.1456E-04,  0.2710E-04,  0.4868E-04,
                0747      &  0.8351E-04,  0.1357E-03,  0.2082E-03,  0.3022E-03,  0.4181E-03,
                0748      &  0.5554E-03,  0.7134E-03,  0.8963E-03,  0.1117E-02,  0.1397E-02,
                0749      &  0.1770E-02,  0.2270E-02,  0.2947E-02,  0.3865E-02,  0.5107E-02,
                0750      &  0.6787E-02,  0.9062E-02,  0.1215E-01,  0.1634E-01,  0.2209E-01,
                0751      &  0.2999E-01,  0.4083E-01,  0.5563E-01,  0.7559E-01,  0.1021E+00,
                0752      &  0.1364E+00/
                0753       data ((h22(ip,iw,1),iw=1,31),ip= 6, 6)/
                0754      & -0.5624E-07, -0.1072E-06, -0.1986E-06, -0.3541E-06, -0.6010E-06,
                0755      & -0.9636E-06, -0.1453E-05, -0.2067E-05, -0.2796E-05, -0.3634E-05,
                0756      & -0.4572E-05, -0.5652E-05, -0.6987E-05, -0.8733E-05, -0.1107E-04,
                0757      & -0.1418E-04, -0.1832E-04, -0.2378E-04, -0.3092E-04, -0.4017E-04,
                0758      & -0.5221E-04, -0.6806E-04, -0.8916E-04, -0.1176E-03, -0.1562E-03,
                0759      & -0.2087E-03, -0.2793E-03, -0.3724E-03, -0.4928E-03, -0.6440E-03,
                0760      & -0.8270E-03/
                0761       data ((h23(ip,iw,1),iw=1,31),ip= 6, 6)/
                0762      & -0.2198E-09, -0.4040E-09, -0.7061E-09, -0.1156E-08, -0.1744E-08,
                0763      & -0.2405E-08, -0.3032E-08, -0.3556E-08, -0.4040E-08, -0.4444E-08,
                0764      & -0.4800E-08, -0.5848E-08, -0.8640E-08, -0.1346E-07, -0.1957E-07,
                0765      & -0.2627E-07, -0.3357E-07, -0.4114E-07, -0.4793E-07, -0.5330E-07,
                0766      & -0.5676E-07, -0.5873E-07, -0.6152E-07, -0.6783E-07, -0.7834E-07,
                0767      & -0.9023E-07, -0.9530E-07, -0.8162E-07, -0.3634E-07,  0.5638E-07,
                0768      &  0.2189E-06/
                0769       data ((h21(ip,iw,1),iw=1,31),ip= 7, 7)/
                0770      &  0.3919E-05,  0.7620E-05,  0.1457E-04,  0.2713E-04,  0.4877E-04,
                0771      &  0.8374E-04,  0.1363E-03,  0.2095E-03,  0.3047E-03,  0.4227E-03,
                0772      &  0.5637E-03,  0.7282E-03,  0.9224E-03,  0.1162E-02,  0.1475E-02,
                0773      &  0.1898E-02,  0.2475E-02,  0.3267E-02,  0.4354E-02,  0.5839E-02,
                0774      &  0.7866E-02,  0.1063E-01,  0.1440E-01,  0.1957E-01,  0.2666E-01,
                0775      &  0.3641E-01,  0.4975E-01,  0.6784E-01,  0.9201E-01,  0.1236E+00,
                0776      &  0.1639E+00/
                0777       data ((h22(ip,iw,1),iw=1,31),ip= 7, 7)/
                0778      & -0.5626E-07, -0.1072E-06, -0.1987E-06, -0.3545E-06, -0.6022E-06,
                0779      & -0.9665E-06, -0.1460E-05, -0.2078E-05, -0.2817E-05, -0.3671E-05,
                0780      & -0.4637E-05, -0.5767E-05, -0.7188E-05, -0.9080E-05, -0.1165E-04,
                0781      & -0.1513E-04, -0.1981E-04, -0.2609E-04, -0.3441E-04, -0.4534E-04,
                0782      & -0.5978E-04, -0.7897E-04, -0.1047E-03, -0.1396E-03, -0.1870E-03,
                0783      & -0.2510E-03, -0.3363E-03, -0.4475E-03, -0.5888E-03, -0.7621E-03,
                0784      & -0.9647E-03/
                0785       data ((h23(ip,iw,1),iw=1,31),ip= 7, 7)/
                0786      & -0.2200E-09, -0.4045E-09, -0.7071E-09, -0.1159E-08, -0.1748E-08,
                0787      & -0.2411E-08, -0.3040E-08, -0.3561E-08, -0.4046E-08, -0.4455E-08,
                0788      & -0.4839E-08, -0.5941E-08, -0.8815E-08, -0.1371E-07, -0.1983E-07,
                0789      & -0.2652E-07, -0.3400E-07, -0.4207E-07, -0.4955E-07, -0.5554E-07,
                0790      & -0.5966E-07, -0.6261E-07, -0.6688E-07, -0.7454E-07, -0.8521E-07,
                0791      & -0.9470E-07, -0.9275E-07, -0.6525E-07,  0.3686E-08,  0.1371E-06,
                0792      &  0.3623E-06/
                0793       data ((h21(ip,iw,1),iw=1,31),ip= 8, 8)/
                0794      &  0.3919E-05,  0.7622E-05,  0.1458E-04,  0.2717E-04,  0.4890E-04,
                0795      &  0.8410E-04,  0.1372E-03,  0.2114E-03,  0.3085E-03,  0.4298E-03,
                0796      &  0.5765E-03,  0.7508E-03,  0.9618E-03,  0.1229E-02,  0.1586E-02,
                0797      &  0.2077E-02,  0.2757E-02,  0.3697E-02,  0.5000E-02,  0.6794E-02,
                0798      &  0.9260E-02,  0.1264E-01,  0.1728E-01,  0.2365E-01,  0.3242E-01,
                0799      &  0.4444E-01,  0.6080E-01,  0.8278E-01,  0.1118E+00,  0.1491E+00,
                0800      &  0.1956E+00/
                0801       data ((h22(ip,iw,1),iw=1,31),ip= 8, 8)/
                0802      & -0.5628E-07, -0.1073E-06, -0.1990E-06, -0.3553E-06, -0.6042E-06,
                0803      & -0.9710E-06, -0.1469E-05, -0.2096E-05, -0.2849E-05, -0.3728E-05,
                0804      & -0.4738E-05, -0.5942E-05, -0.7490E-05, -0.9586E-05, -0.1247E-04,
                0805      & -0.1644E-04, -0.2184E-04, -0.2916E-04, -0.3898E-04, -0.5205E-04,
                0806      & -0.6948E-04, -0.9285E-04, -0.1244E-03, -0.1672E-03, -0.2251E-03,
                0807      & -0.3028E-03, -0.4051E-03, -0.5365E-03, -0.6998E-03, -0.8940E-03,
                0808      & -0.1112E-02/
                0809       data ((h23(ip,iw,1),iw=1,31),ip= 8, 8)/
                0810      & -0.2204E-09, -0.4052E-09, -0.7088E-09, -0.1162E-08, -0.1755E-08,
                0811      & -0.2422E-08, -0.3053E-08, -0.3572E-08, -0.4052E-08, -0.4474E-08,
                0812      & -0.4898E-08, -0.6082E-08, -0.9046E-08, -0.1400E-07, -0.2009E-07,
                0813      & -0.2683E-07, -0.3463E-07, -0.4334E-07, -0.5153E-07, -0.5811E-07,
                0814      & -0.6305E-07, -0.6749E-07, -0.7346E-07, -0.8208E-07, -0.9173E-07,
                0815      & -0.9603E-07, -0.8264E-07, -0.3505E-07,  0.6878E-07,  0.2586E-06,
                0816      &  0.5530E-06/
                0817       data ((h21(ip,iw,1),iw=1,31),ip= 9, 9)/
                0818      &  0.3919E-05,  0.7625E-05,  0.1459E-04,  0.2723E-04,  0.4910E-04,
                0819      &  0.8465E-04,  0.1385E-03,  0.2143E-03,  0.3143E-03,  0.4407E-03,
                0820      &  0.5960E-03,  0.7850E-03,  0.1020E-02,  0.1326E-02,  0.1744E-02,
                0821      &  0.2324E-02,  0.3135E-02,  0.4267E-02,  0.5845E-02,  0.8031E-02,
                0822      &  0.1105E-01,  0.1520E-01,  0.2093E-01,  0.2880E-01,  0.3962E-01,
                0823      &  0.5440E-01,  0.7435E-01,  0.1009E+00,  0.1353E+00,  0.1787E+00,
                0824      &  0.2317E+00/
                0825       data ((h22(ip,iw,1),iw=1,31),ip= 9, 9)/
                0826      & -0.5630E-07, -0.1074E-06, -0.1994E-06, -0.3564E-06, -0.6072E-06,
                0827      & -0.9779E-06, -0.1484E-05, -0.2124E-05, -0.2900E-05, -0.3817E-05,
                0828      & -0.4891E-05, -0.6205E-05, -0.7931E-05, -0.1031E-04, -0.1362E-04,
                0829      & -0.1821E-04, -0.2454E-04, -0.3320E-04, -0.4493E-04, -0.6068E-04,
                0830      & -0.8186E-04, -0.1104E-03, -0.1491E-03, -0.2016E-03, -0.2722E-03,
                0831      & -0.3658E-03, -0.4873E-03, -0.6404E-03, -0.8253E-03, -0.1037E-02,
                0832      & -0.1267E-02/
                0833       data ((h23(ip,iw,1),iw=1,31),ip= 9, 9)/
                0834      & -0.2207E-09, -0.4061E-09, -0.7117E-09, -0.1169E-08, -0.1767E-08,
                0835      & -0.2439E-08, -0.3074E-08, -0.3588E-08, -0.4062E-08, -0.4510E-08,
                0836      & -0.4983E-08, -0.6261E-08, -0.9324E-08, -0.1430E-07, -0.2036E-07,
                0837      & -0.2725E-07, -0.3561E-07, -0.4505E-07, -0.5384E-07, -0.6111E-07,
                0838      & -0.6731E-07, -0.7355E-07, -0.8112E-07, -0.8978E-07, -0.9616E-07,
                0839      & -0.9157E-07, -0.6114E-07,  0.1622E-07,  0.1694E-06,  0.4277E-06,
                0840      &  0.7751E-06/
                0841       data ((h21(ip,iw,1),iw=1,31),ip=10,10)/
                0842      &  0.3919E-05,  0.7629E-05,  0.1462E-04,  0.2733E-04,  0.4940E-04,
                0843      &  0.8549E-04,  0.1406E-03,  0.2188E-03,  0.3232E-03,  0.4572E-03,
                0844      &  0.6253E-03,  0.8354E-03,  0.1105E-02,  0.1464E-02,  0.1960E-02,
                0845      &  0.2657E-02,  0.3637E-02,  0.5014E-02,  0.6942E-02,  0.9622E-02,
                0846      &  0.1333E-01,  0.1846E-01,  0.2553E-01,  0.3526E-01,  0.4859E-01,
                0847      &  0.6667E-01,  0.9084E-01,  0.1225E+00,  0.1629E+00,  0.2127E+00,
                0848      &  0.2721E+00/
                0849       data ((h22(ip,iw,1),iw=1,31),ip=10,10)/
                0850      & -0.5636E-07, -0.1076E-06, -0.2000E-06, -0.3582E-06, -0.6119E-06,
                0851      & -0.9888E-06, -0.1507E-05, -0.2168E-05, -0.2978E-05, -0.3952E-05,
                0852      & -0.5122E-05, -0.6592E-05, -0.8565E-05, -0.1132E-04, -0.1518E-04,
                0853      & -0.2060E-04, -0.2811E-04, -0.3848E-04, -0.5261E-04, -0.7173E-04,
                0854      & -0.9758E-04, -0.1326E-03, -0.1801E-03, -0.2442E-03, -0.3296E-03,
                0855      & -0.4415E-03, -0.5840E-03, -0.7591E-03, -0.9636E-03, -0.1189E-02,
                0856      & -0.1427E-02/
                0857       data ((h23(ip,iw,1),iw=1,31),ip=10,10)/
                0858      & -0.2214E-09, -0.4080E-09, -0.7156E-09, -0.1178E-08, -0.1784E-08,
                0859      & -0.2466E-08, -0.3105E-08, -0.3617E-08, -0.4087E-08, -0.4563E-08,
                0860      & -0.5110E-08, -0.6492E-08, -0.9643E-08, -0.1461E-07, -0.2069E-07,
                0861      & -0.2796E-07, -0.3702E-07, -0.4717E-07, -0.5662E-07, -0.6484E-07,
                0862      & -0.7271E-07, -0.8079E-07, -0.8928E-07, -0.9634E-07, -0.9625E-07,
                0863      & -0.7776E-07, -0.2242E-07,  0.9745E-07,  0.3152E-06,  0.6388E-06,
                0864      &  0.9992E-06/
                0865       data ((h21(ip,iw,1),iw=1,31),ip=11,11)/
                0866      &  0.3919E-05,  0.7639E-05,  0.1466E-04,  0.2748E-04,  0.4986E-04,
                0867      &  0.8675E-04,  0.1437E-03,  0.2255E-03,  0.3365E-03,  0.4816E-03,
                0868      &  0.6682E-03,  0.9082E-03,  0.1224E-02,  0.1653E-02,  0.2253E-02,
                0869      &  0.3099E-02,  0.4296E-02,  0.5984E-02,  0.8352E-02,  0.1165E-01,
                0870      &  0.1623E-01,  0.2257E-01,  0.3132E-01,  0.4333E-01,  0.5968E-01,
                0871      &  0.8166E-01,  0.1107E+00,  0.1481E+00,  0.1947E+00,  0.2509E+00,
                0872      &  0.3170E+00/
                0873       data ((h22(ip,iw,1),iw=1,31),ip=11,11)/
                0874      & -0.5645E-07, -0.1079E-06, -0.2009E-06, -0.3610E-06, -0.6190E-06,
                0875      & -0.1005E-05, -0.1541E-05, -0.2235E-05, -0.3096E-05, -0.4155E-05,
                0876      & -0.5463E-05, -0.7150E-05, -0.9453E-05, -0.1269E-04, -0.1728E-04,
                0877      & -0.2375E-04, -0.3279E-04, -0.4531E-04, -0.6246E-04, -0.8579E-04,
                0878      & -0.1175E-03, -0.1604E-03, -0.2186E-03, -0.2964E-03, -0.3990E-03,
                0879      & -0.5311E-03, -0.6957E-03, -0.8916E-03, -0.1112E-02, -0.1346E-02,
                0880      & -0.1590E-02/
                0881       data ((h23(ip,iw,1),iw=1,31),ip=11,11)/
                0882      & -0.2225E-09, -0.4104E-09, -0.7217E-09, -0.1192E-08, -0.1811E-08,
                0883      & -0.2509E-08, -0.3155E-08, -0.3668E-08, -0.4138E-08, -0.4650E-08,
                0884      & -0.5296E-08, -0.6785E-08, -0.9991E-08, -0.1494E-07, -0.2122E-07,
                0885      & -0.2911E-07, -0.3895E-07, -0.4979E-07, -0.6002E-07, -0.6964E-07,
                0886      & -0.7935E-07, -0.8887E-07, -0.9699E-07, -0.9967E-07, -0.8883E-07,
                0887      & -0.4988E-07,  0.4156E-07,  0.2197E-06,  0.5081E-06,  0.8667E-06,
                0888      &  0.1212E-05/
                0889       data ((h21(ip,iw,1),iw=1,31),ip=12,12)/
                0890      &  0.3920E-05,  0.7649E-05,  0.1472E-04,  0.2768E-04,  0.5051E-04,
                0891      &  0.8856E-04,  0.1481E-03,  0.2352E-03,  0.3557E-03,  0.5169E-03,
                0892      &  0.7295E-03,  0.1010E-02,  0.1388E-02,  0.1909E-02,  0.2640E-02,
                0893      &  0.3678E-02,  0.5151E-02,  0.7231E-02,  0.1015E-01,  0.1423E-01,
                0894      &  0.1990E-01,  0.2775E-01,  0.3856E-01,  0.5333E-01,  0.7328E-01,
                0895      &  0.9980E-01,  0.1343E+00,  0.1778E+00,  0.2308E+00,  0.2936E+00,
                0896      &  0.3667E+00/
                0897       data ((h22(ip,iw,1),iw=1,31),ip=12,12)/
                0898      & -0.5658E-07, -0.1083E-06, -0.2023E-06, -0.3650E-06, -0.6295E-06,
                0899      & -0.1030E-05, -0.1593E-05, -0.2334E-05, -0.3273E-05, -0.4455E-05,
                0900      & -0.5955E-05, -0.7935E-05, -0.1067E-04, -0.1455E-04, -0.2007E-04,
                0901      & -0.2788E-04, -0.3885E-04, -0.5409E-04, -0.7503E-04, -0.1036E-03,
                0902      & -0.1425E-03, -0.1951E-03, -0.2660E-03, -0.3598E-03, -0.4817E-03,
                0903      & -0.6355E-03, -0.8218E-03, -0.1035E-02, -0.1267E-02, -0.1508E-02,
                0904      & -0.1755E-02/
                0905       data ((h23(ip,iw,1),iw=1,31),ip=12,12)/
                0906      & -0.2241E-09, -0.4142E-09, -0.7312E-09, -0.1214E-08, -0.1854E-08,
                0907      & -0.2578E-08, -0.3250E-08, -0.3765E-08, -0.4238E-08, -0.4809E-08,
                0908      & -0.5553E-08, -0.7132E-08, -0.1035E-07, -0.1538E-07, -0.2211E-07,
                0909      & -0.3079E-07, -0.4142E-07, -0.5303E-07, -0.6437E-07, -0.7566E-07,
                0910      & -0.8703E-07, -0.9700E-07, -0.1025E-06, -0.9718E-07, -0.6973E-07,
                0911      & -0.5265E-09,  0.1413E-06,  0.3895E-06,  0.7321E-06,  0.1085E-05,
                0912      &  0.1449E-05/
                0913       data ((h21(ip,iw,1),iw=1,31),ip=13,13)/
                0914      &  0.3920E-05,  0.7668E-05,  0.1480E-04,  0.2798E-04,  0.5143E-04,
                0915      &  0.9106E-04,  0.1542E-03,  0.2488E-03,  0.3827E-03,  0.5661E-03,
                0916      &  0.8143E-03,  0.1150E-02,  0.1608E-02,  0.2246E-02,  0.3147E-02,
                0917      &  0.4428E-02,  0.6248E-02,  0.8823E-02,  0.1244E-01,  0.1750E-01,
                0918      &  0.2452E-01,  0.3424E-01,  0.4756E-01,  0.6564E-01,  0.8981E-01,
                0919      &  0.1215E+00,  0.1619E+00,  0.2118E+00,  0.2713E+00,  0.3409E+00,
                0920      &  0.4215E+00/
                0921       data ((h22(ip,iw,1),iw=1,31),ip=13,13)/
                0922      & -0.5677E-07, -0.1090E-06, -0.2043E-06, -0.3709E-06, -0.6448E-06,
                0923      & -0.1066E-05, -0.1669E-05, -0.2480E-05, -0.3532E-05, -0.4887E-05,
                0924      & -0.6650E-05, -0.9017E-05, -0.1232E-04, -0.1701E-04, -0.2372E-04,
                0925      & -0.3325E-04, -0.4664E-04, -0.6528E-04, -0.9095E-04, -0.1260E-03,
                0926      & -0.1737E-03, -0.2381E-03, -0.3238E-03, -0.4359E-03, -0.5789E-03,
                0927      & -0.7549E-03, -0.9607E-03, -0.1188E-02, -0.1427E-02, -0.1674E-02,
                0928      & -0.1914E-02/
                0929       data ((h23(ip,iw,1),iw=1,31),ip=13,13)/
                0930      & -0.2262E-09, -0.4191E-09, -0.7441E-09, -0.1244E-08, -0.1916E-08,
                0931      & -0.2687E-08, -0.3407E-08, -0.3947E-08, -0.4432E-08, -0.5059E-08,
                0932      & -0.5896E-08, -0.7538E-08, -0.1079E-07, -0.1606E-07, -0.2346E-07,
                0933      & -0.3305E-07, -0.4459E-07, -0.5720E-07, -0.6999E-07, -0.8300E-07,
                0934      & -0.9536E-07, -0.1039E-06, -0.1036E-06, -0.8526E-07, -0.3316E-07,
                0935      &  0.7909E-07,  0.2865E-06,  0.6013E-06,  0.9580E-06,  0.1303E-05,
                0936      &  0.1792E-05/
                0937       data ((h21(ip,iw,1),iw=1,31),ip=14,14)/
                0938      &  0.3923E-05,  0.7691E-05,  0.1491E-04,  0.2836E-04,  0.5261E-04,
                0939      &  0.9432E-04,  0.1623E-03,  0.2667E-03,  0.4187E-03,  0.6323E-03,
                0940      &  0.9278E-03,  0.1334E-02,  0.1897E-02,  0.2685E-02,  0.3800E-02,
                0941      &  0.5388E-02,  0.7646E-02,  0.1084E-01,  0.1533E-01,  0.2160E-01,
                0942      &  0.3031E-01,  0.4231E-01,  0.5866E-01,  0.8064E-01,  0.1097E+00,
                0943      &  0.1471E+00,  0.1938E+00,  0.2501E+00,  0.3163E+00,  0.3932E+00,
                0944      &  0.4810E+00/
                0945       data ((h22(ip,iw,1),iw=1,31),ip=14,14)/
                0946      & -0.5703E-07, -0.1098E-06, -0.2071E-06, -0.3788E-06, -0.6657E-06,
                0947      & -0.1116E-05, -0.1776E-05, -0.2687E-05, -0.3898E-05, -0.5493E-05,
                0948      & -0.7607E-05, -0.1048E-04, -0.1450E-04, -0.2024E-04, -0.2845E-04,
                0949      & -0.4014E-04, -0.5658E-04, -0.7947E-04, -0.1110E-03, -0.1541E-03,
                0950      & -0.2125E-03, -0.2907E-03, -0.3936E-03, -0.5261E-03, -0.6912E-03,
                0951      & -0.8880E-03, -0.1109E-02, -0.1346E-02, -0.1591E-02, -0.1837E-02,
                0952      & -0.2054E-02/
                0953       data ((h23(ip,iw,1),iw=1,31),ip=14,14)/
                0954      & -0.2288E-09, -0.4265E-09, -0.7627E-09, -0.1289E-08, -0.2011E-08,
                0955      & -0.2861E-08, -0.3673E-08, -0.4288E-08, -0.4812E-08, -0.5475E-08,
                0956      & -0.6365E-08, -0.8052E-08, -0.1142E-07, -0.1711E-07, -0.2533E-07,
                0957      & -0.3597E-07, -0.4862E-07, -0.6259E-07, -0.7708E-07, -0.9150E-07,
                0958      & -0.1035E-06, -0.1079E-06, -0.9742E-07, -0.5928E-07,  0.2892E-07,
                0959      &  0.1998E-06,  0.4789E-06,  0.8298E-06,  0.1172E-05,  0.1583E-05,
                0960      &  0.2329E-05/
                0961       data ((h21(ip,iw,1),iw=1,31),ip=15,15)/
                0962      &  0.3928E-05,  0.7724E-05,  0.1504E-04,  0.2883E-04,  0.5403E-04,
                0963      &  0.9826E-04,  0.1722E-03,  0.2891E-03,  0.4644E-03,  0.7172E-03,
                0964      &  0.1074E-02,  0.1572E-02,  0.2267E-02,  0.3245E-02,  0.4632E-02,
                0965      &  0.6606E-02,  0.9411E-02,  0.1338E-01,  0.1896E-01,  0.2674E-01,
                0966      &  0.3751E-01,  0.5227E-01,  0.7222E-01,  0.9875E-01,  0.1332E+00,
                0967      &  0.1768E+00,  0.2299E+00,  0.2927E+00,  0.3660E+00,  0.4504E+00,
                0968      &  0.5444E+00/
                0969       data ((h22(ip,iw,1),iw=1,31),ip=15,15)/
                0970      & -0.5736E-07, -0.1109E-06, -0.2106E-06, -0.3890E-06, -0.6928E-06,
                0971      & -0.1181E-05, -0.1917E-05, -0.2965E-05, -0.4396E-05, -0.6315E-05,
                0972      & -0.8891E-05, -0.1242E-04, -0.1736E-04, -0.2442E-04, -0.3454E-04,
                0973      & -0.4892E-04, -0.6916E-04, -0.9735E-04, -0.1362E-03, -0.1891E-03,
                0974      & -0.2602E-03, -0.3545E-03, -0.4768E-03, -0.6310E-03, -0.8179E-03,
                0975      & -0.1032E-02, -0.1265E-02, -0.1508E-02, -0.1757E-02, -0.1989E-02,
                0976      & -0.2159E-02/
                0977       data ((h23(ip,iw,1),iw=1,31),ip=15,15)/
                0978      & -0.2321E-09, -0.4350E-09, -0.7861E-09, -0.1347E-08, -0.2144E-08,
                0979      & -0.3120E-08, -0.4107E-08, -0.4892E-08, -0.5511E-08, -0.6164E-08,
                0980      & -0.7054E-08, -0.8811E-08, -0.1240E-07, -0.1862E-07, -0.2773E-07,
                0981      & -0.3957E-07, -0.5371E-07, -0.6939E-07, -0.8564E-07, -0.1006E-06,
                0982      & -0.1100E-06, -0.1066E-06, -0.8018E-07, -0.1228E-07,  0.1263E-06,
                0983      &  0.3678E-06,  0.7022E-06,  0.1049E-05,  0.1411E-05,  0.2015E-05,
                0984      &  0.3099E-05/
                0985       data ((h21(ip,iw,1),iw=1,31),ip=16,16)/
                0986      &  0.2064E-05,  0.4104E-05,  0.8141E-05,  0.1607E-04,  0.3145E-04,
                0987      &  0.6080E-04,  0.1153E-03,  0.2129E-03,  0.3802E-03,  0.6538E-03,
                0988      &  0.1078E-02,  0.1699E-02,  0.2576E-02,  0.3805E-02,  0.5540E-02,
                0989      &  0.8004E-02,  0.1149E-01,  0.1640E-01,  0.2329E-01,  0.3290E-01,
                0990      &  0.4622E-01,  0.6441E-01,  0.8888E-01,  0.1210E+00,  0.1622E+00,
                0991      &  0.2132E+00,  0.2745E+00,  0.3470E+00,  0.4317E+00,  0.5286E+00,
                0992      &  0.6335E+00/
                0993       data ((h22(ip,iw,1),iw=1,31),ip=16,16)/
                0994      & -0.3122E-07, -0.6175E-07, -0.1214E-06, -0.2361E-06, -0.4518E-06,
                0995      & -0.8438E-06, -0.1524E-05, -0.2643E-05, -0.4380E-05, -0.6922E-05,
                0996      & -0.1042E-04, -0.1504E-04, -0.2125E-04, -0.2987E-04, -0.4200E-04,
                0997      & -0.5923E-04, -0.8383E-04, -0.1186E-03, -0.1670E-03, -0.2328E-03,
                0998      & -0.3204E-03, -0.4347E-03, -0.5802E-03, -0.7595E-03, -0.9703E-03,
                0999      & -0.1205E-02, -0.1457E-02, -0.1720E-02, -0.1980E-02, -0.2191E-02,
                1000      & -0.2290E-02/
                1001       data ((h23(ip,iw,1),iw=1,31),ip=16,16)/
                1002      & -0.1376E-09, -0.2699E-09, -0.5220E-09, -0.9897E-09, -0.1819E-08,
                1003      & -0.3186E-08, -0.5224E-08, -0.7896E-08, -0.1090E-07, -0.1349E-07,
                1004      & -0.1443E-07, -0.1374E-07, -0.1386E-07, -0.1673E-07, -0.2237E-07,
                1005      & -0.3248E-07, -0.5050E-07, -0.7743E-07, -0.1097E-06, -0.1369E-06,
                1006      & -0.1463E-06, -0.1268E-06, -0.6424E-07,  0.5941E-07,  0.2742E-06,
                1007      &  0.5924E-06,  0.9445E-06,  0.1286E-05,  0.1819E-05,  0.2867E-05,
                1008      &  0.4527E-05/
                1009       data ((h21(ip,iw,1),iw=1,31),ip=17,17)/
                1010      &  0.2452E-05,  0.4881E-05,  0.9693E-05,  0.1918E-04,  0.3768E-04,
                1011      &  0.7322E-04,  0.1399E-03,  0.2607E-03,  0.4694E-03,  0.8102E-03,
                1012      &  0.1334E-02,  0.2098E-02,  0.3180E-02,  0.4710E-02,  0.6879E-02,
                1013      &  0.9952E-02,  0.1429E-01,  0.2038E-01,  0.2894E-01,  0.4085E-01,
                1014      &  0.5722E-01,  0.7939E-01,  0.1088E+00,  0.1468E+00,  0.1945E+00,
                1015      &  0.2524E+00,  0.3210E+00,  0.4017E+00,  0.4948E+00,  0.5978E+00,
                1016      &  0.7040E+00/
                1017       data ((h22(ip,iw,1),iw=1,31),ip=17,17)/
                1018      & -0.3547E-07, -0.7029E-07, -0.1386E-06, -0.2709E-06, -0.5218E-06,
                1019      & -0.9840E-06, -0.1799E-05, -0.3156E-05, -0.5272E-05, -0.8357E-05,
                1020      & -0.1260E-04, -0.1827E-04, -0.2598E-04, -0.3667E-04, -0.5169E-04,
                1021      & -0.7312E-04, -0.1037E-03, -0.1467E-03, -0.2060E-03, -0.2857E-03,
                1022      & -0.3907E-03, -0.5257E-03, -0.6940E-03, -0.8954E-03, -0.1124E-02,
                1023      & -0.1371E-02, -0.1632E-02, -0.1897E-02, -0.2131E-02, -0.2275E-02,
                1024      & -0.2265E-02/
                1025       data ((h23(ip,iw,1),iw=1,31),ip=17,17)/
                1026      & -0.1482E-09, -0.2910E-09, -0.5667E-09, -0.1081E-08, -0.2005E-08,
                1027      & -0.3554E-08, -0.5902E-08, -0.8925E-08, -0.1209E-07, -0.1448E-07,
                1028      & -0.1536E-07, -0.1565E-07, -0.1763E-07, -0.2088E-07, -0.2564E-07,
                1029      & -0.3635E-07, -0.5791E-07, -0.8907E-07, -0.1213E-06, -0.1418E-06,
                1030      & -0.1397E-06, -0.1000E-06, -0.4427E-08,  0.1713E-06,  0.4536E-06,
                1031      &  0.8086E-06,  0.1153E-05,  0.1588E-05,  0.2437E-05,  0.3905E-05,
                1032      &  0.5874E-05/
                1033       data ((h21(ip,iw,1),iw=1,31),ip=18,18)/
                1034      &  0.2878E-05,  0.5733E-05,  0.1140E-04,  0.2258E-04,  0.4446E-04,
                1035      &  0.8668E-04,  0.1664E-03,  0.3120E-03,  0.5656E-03,  0.9812E-03,
                1036      &  0.1621E-02,  0.2559E-02,  0.3902E-02,  0.5812E-02,  0.8522E-02,
                1037      &  0.1235E-01,  0.1773E-01,  0.2530E-01,  0.3590E-01,  0.5058E-01,
                1038      &  0.7059E-01,  0.9736E-01,  0.1323E+00,  0.1767E+00,  0.2312E+00,
                1039      &  0.2962E+00,  0.3728E+00,  0.4619E+00,  0.5623E+00,  0.6685E+00,
                1040      &  0.7716E+00/
                1041       data ((h22(ip,iw,1),iw=1,31),ip=18,18)/
                1042      & -0.4064E-07, -0.8066E-07, -0.1593E-06, -0.3124E-06, -0.6049E-06,
                1043      & -0.1148E-05, -0.2118E-05, -0.3751E-05, -0.6314E-05, -0.1006E-04,
                1044      & -0.1526E-04, -0.2232E-04, -0.3196E-04, -0.4525E-04, -0.6394E-04,
                1045      & -0.9058E-04, -0.1284E-03, -0.1812E-03, -0.2533E-03, -0.3493E-03,
                1046      & -0.4740E-03, -0.6315E-03, -0.8228E-03, -0.1044E-02, -0.1286E-02,
                1047      & -0.1544E-02, -0.1810E-02, -0.2061E-02, -0.2243E-02, -0.2291E-02,
                1048      & -0.2152E-02/
                1049       data ((h23(ip,iw,1),iw=1,31),ip=18,18)/
                1050      & -0.1630E-09, -0.3213E-09, -0.6266E-09, -0.1201E-08, -0.2248E-08,
                1051      & -0.4030E-08, -0.6770E-08, -0.1033E-07, -0.1392E-07, -0.1640E-07,
                1052      & -0.1768E-07, -0.1932E-07, -0.2229E-07, -0.2508E-07, -0.2940E-07,
                1053      & -0.4200E-07, -0.6717E-07, -0.1002E-06, -0.1286E-06, -0.1402E-06,
                1054      & -0.1216E-06, -0.5487E-07,  0.8418E-07,  0.3246E-06,  0.6610E-06,
                1055      &  0.1013E-05,  0.1394E-05,  0.2073E-05,  0.3337E-05,  0.5175E-05,
                1056      &  0.7255E-05/
                1057       data ((h21(ip,iw,1),iw=1,31),ip=19,19)/
                1058      &  0.3282E-05,  0.6539E-05,  0.1300E-04,  0.2578E-04,  0.5085E-04,
                1059      &  0.9936E-04,  0.1914E-03,  0.3608E-03,  0.6586E-03,  0.1153E-02,
                1060      &  0.1924E-02,  0.3074E-02,  0.4742E-02,  0.7126E-02,  0.1051E-01,
                1061      &  0.1526E-01,  0.2195E-01,  0.3133E-01,  0.4441E-01,  0.6238E-01,
                1062      &  0.8664E-01,  0.1186E+00,  0.1597E+00,  0.2108E+00,  0.2723E+00,
                1063      &  0.3450E+00,  0.4300E+00,  0.5272E+00,  0.6324E+00,  0.7378E+00,
                1064      &  0.8330E+00/
                1065       data ((h22(ip,iw,1),iw=1,31),ip=19,19)/
                1066      & -0.4629E-07, -0.9195E-07, -0.1819E-06, -0.3572E-06, -0.6936E-06,
                1067      & -0.1323E-05, -0.2456E-05, -0.4385E-05, -0.7453E-05, -0.1200E-04,
                1068      & -0.1843E-04, -0.2731E-04, -0.3943E-04, -0.5606E-04, -0.7936E-04,
                1069      & -0.1123E-03, -0.1588E-03, -0.2231E-03, -0.3101E-03, -0.4247E-03,
                1070      & -0.5713E-03, -0.7522E-03, -0.9651E-03, -0.1202E-02, -0.1456E-02,
                1071      & -0.1721E-02, -0.1983E-02, -0.2196E-02, -0.2296E-02, -0.2224E-02,
                1072      & -0.1952E-02/
                1073       data ((h23(ip,iw,1),iw=1,31),ip=19,19)/
                1074      & -0.1827E-09, -0.3607E-09, -0.7057E-09, -0.1359E-08, -0.2552E-08,
                1075      & -0.4615E-08, -0.7854E-08, -0.1218E-07, -0.1670E-07, -0.2008E-07,
                1076      & -0.2241E-07, -0.2516E-07, -0.2796E-07, -0.3015E-07, -0.3506E-07,
                1077      & -0.4958E-07, -0.7627E-07, -0.1070E-06, -0.1289E-06, -0.1286E-06,
                1078      & -0.8843E-07,  0.1492E-07,  0.2118E-06,  0.5155E-06,  0.8665E-06,
                1079      &  0.1220E-05,  0.1765E-05,  0.2825E-05,  0.4498E-05,  0.6563E-05,
                1080      &  0.8422E-05/
                1081       data ((h21(ip,iw,1),iw=1,31),ip=20,20)/
                1082      &  0.3608E-05,  0.7189E-05,  0.1430E-04,  0.2837E-04,  0.5601E-04,
                1083      &  0.1097E-03,  0.2120E-03,  0.4017E-03,  0.7396E-03,  0.1311E-02,
                1084      &  0.2226E-02,  0.3624E-02,  0.5685E-02,  0.8652E-02,  0.1286E-01,
                1085      &  0.1878E-01,  0.2709E-01,  0.3868E-01,  0.5471E-01,  0.7654E-01,
                1086      &  0.1057E+00,  0.1435E+00,  0.1912E+00,  0.2492E+00,  0.3181E+00,
                1087      &  0.3990E+00,  0.4926E+00,  0.5960E+00,  0.7027E+00,  0.8027E+00,
                1088      &  0.8852E+00/
                1089       data ((h22(ip,iw,1),iw=1,31),ip=20,20)/
                1090      & -0.5164E-07, -0.1026E-06, -0.2031E-06, -0.3994E-06, -0.7771E-06,
                1091      & -0.1488E-05, -0.2776E-05, -0.5001E-05, -0.8610E-05, -0.1411E-04,
                1092      & -0.2209E-04, -0.3328E-04, -0.4860E-04, -0.6954E-04, -0.9861E-04,
                1093      & -0.1393E-03, -0.1961E-03, -0.2738E-03, -0.3778E-03, -0.5132E-03,
                1094      & -0.6831E-03, -0.8868E-03, -0.1118E-02, -0.1368E-02, -0.1632E-02,
                1095      & -0.1899E-02, -0.2136E-02, -0.2282E-02, -0.2273E-02, -0.2067E-02,
                1096      & -0.1679E-02/
                1097       data ((h23(ip,iw,1),iw=1,31),ip=20,20)/
                1098      & -0.2058E-09, -0.4066E-09, -0.7967E-09, -0.1539E-08, -0.2904E-08,
                1099      & -0.5293E-08, -0.9116E-08, -0.1447E-07, -0.2058E-07, -0.2608E-07,
                1100      & -0.3053E-07, -0.3418E-07, -0.3619E-07, -0.3766E-07, -0.4313E-07,
                1101      & -0.5817E-07, -0.8299E-07, -0.1072E-06, -0.1195E-06, -0.1031E-06,
                1102      & -0.3275E-07,  0.1215E-06,  0.3835E-06,  0.7220E-06,  0.1062E-05,
                1103      &  0.1504E-05,  0.2367E-05,  0.3854E-05,  0.5842E-05,  0.7875E-05,
                1104      &  0.9082E-05/
                1105       data ((h21(ip,iw,1),iw=1,31),ip=21,21)/
                1106      &  0.3827E-05,  0.7626E-05,  0.1518E-04,  0.3013E-04,  0.5955E-04,
                1107      &  0.1169E-03,  0.2268E-03,  0.4325E-03,  0.8046E-03,  0.1449E-02,
                1108      &  0.2512E-02,  0.4185E-02,  0.6707E-02,  0.1038E-01,  0.1561E-01,
                1109      &  0.2298E-01,  0.3328E-01,  0.4754E-01,  0.6708E-01,  0.9340E-01,
                1110      &  0.1280E+00,  0.1722E+00,  0.2267E+00,  0.2918E+00,  0.3688E+00,
                1111      &  0.4584E+00,  0.5594E+00,  0.6662E+00,  0.7700E+00,  0.8597E+00,
                1112      &  0.9266E+00/
                1113       data ((h22(ip,iw,1),iw=1,31),ip=21,21)/
                1114      & -0.5584E-07, -0.1110E-06, -0.2198E-06, -0.4329E-06, -0.8444E-06,
                1115      & -0.1623E-05, -0.3049E-05, -0.5551E-05, -0.9714E-05, -0.1627E-04,
                1116      & -0.2609E-04, -0.4015E-04, -0.5955E-04, -0.8603E-04, -0.1223E-03,
                1117      & -0.1724E-03, -0.2413E-03, -0.3346E-03, -0.4578E-03, -0.6155E-03,
                1118      & -0.8087E-03, -0.1033E-02, -0.1279E-02, -0.1540E-02, -0.1811E-02,
                1119      & -0.2065E-02, -0.2251E-02, -0.2301E-02, -0.2163E-02, -0.1828E-02,
                1120      & -0.1365E-02/
                1121       data ((h23(ip,iw,1),iw=1,31),ip=21,21)/
                1122      & -0.2274E-09, -0.4498E-09, -0.8814E-09, -0.1708E-08, -0.3247E-08,
                1123      & -0.5972E-08, -0.1045E-07, -0.1707E-07, -0.2545E-07, -0.3440E-07,
                1124      & -0.4259E-07, -0.4822E-07, -0.5004E-07, -0.5061E-07, -0.5485E-07,
                1125      & -0.6687E-07, -0.8483E-07, -0.9896E-07, -0.9646E-07, -0.5557E-07,
                1126      &  0.5765E-07,  0.2752E-06,  0.5870E-06,  0.9188E-06,  0.1291E-05,
                1127      &  0.1971E-05,  0.3251E-05,  0.5115E-05,  0.7221E-05,  0.8825E-05,
                1128      &  0.9032E-05/
                1129       data ((h21(ip,iw,1),iw=1,31),ip=22,22)/
                1130      &  0.3938E-05,  0.7849E-05,  0.1563E-04,  0.3105E-04,  0.6149E-04,
                1131      &  0.1210E-03,  0.2361E-03,  0.4537E-03,  0.8543E-03,  0.1565E-02,
                1132      &  0.2774E-02,  0.4739E-02,  0.7781E-02,  0.1229E-01,  0.1877E-01,
                1133      &  0.2791E-01,  0.4064E-01,  0.5812E-01,  0.8180E-01,  0.1132E+00,
                1134      &  0.1539E+00,  0.2047E+00,  0.2662E+00,  0.3391E+00,  0.4247E+00,
                1135      &  0.5226E+00,  0.6287E+00,  0.7351E+00,  0.8311E+00,  0.9066E+00,
                1136      &  0.9569E+00/
                1137       data ((h22(ip,iw,1),iw=1,31),ip=22,22)/
                1138      & -0.5833E-07, -0.1160E-06, -0.2300E-06, -0.4540E-06, -0.8885E-06,
                1139      & -0.1718E-05, -0.3256E-05, -0.6010E-05, -0.1072E-04, -0.1838E-04,
                1140      & -0.3026E-04, -0.4772E-04, -0.7223E-04, -0.1057E-03, -0.1512E-03,
                1141      & -0.2128E-03, -0.2961E-03, -0.4070E-03, -0.5514E-03, -0.7320E-03,
                1142      & -0.9467E-03, -0.1187E-02, -0.1446E-02, -0.1717E-02, -0.1985E-02,
                1143      & -0.2203E-02, -0.2307E-02, -0.2237E-02, -0.1965E-02, -0.1532E-02,
                1144      & -0.1044E-02/
                1145       data ((h23(ip,iw,1),iw=1,31),ip=22,22)/
                1146      & -0.2426E-09, -0.4805E-09, -0.9447E-09, -0.1841E-08, -0.3519E-08,
                1147      & -0.6565E-08, -0.1172E-07, -0.1979E-07, -0.3095E-07, -0.4443E-07,
                1148      & -0.5821E-07, -0.6868E-07, -0.7282E-07, -0.7208E-07, -0.7176E-07,
                1149      & -0.7562E-07, -0.8110E-07, -0.7934E-07, -0.5365E-07,  0.2483E-07,
                1150      &  0.1959E-06,  0.4731E-06,  0.7954E-06,  0.1123E-05,  0.1652E-05,
                1151      &  0.2711E-05,  0.4402E-05,  0.6498E-05,  0.8392E-05,  0.9154E-05,
                1152      &  0.8261E-05/
                1153       data ((h21(ip,iw,1),iw=1,31),ip=23,23)/
                1154      &  0.3973E-05,  0.7921E-05,  0.1578E-04,  0.3139E-04,  0.6229E-04,
                1155      &  0.1231E-03,  0.2414E-03,  0.4680E-03,  0.8923E-03,  0.1663E-02,
                1156      &  0.3011E-02,  0.5268E-02,  0.8869E-02,  0.1434E-01,  0.2230E-01,
                1157      &  0.3359E-01,  0.4924E-01,  0.7057E-01,  0.9908E-01,  0.1363E+00,
                1158      &  0.1834E+00,  0.2411E+00,  0.3100E+00,  0.3913E+00,  0.4856E+00,
                1159      &  0.5901E+00,  0.6981E+00,  0.7994E+00,  0.8832E+00,  0.9424E+00,
                1160      &  0.9773E+00/
                1161       data ((h22(ip,iw,1),iw=1,31),ip=23,23)/
                1162      & -0.5929E-07, -0.1180E-06, -0.2344E-06, -0.4638E-06, -0.9118E-06,
                1163      & -0.1775E-05, -0.3401E-05, -0.6375E-05, -0.1160E-04, -0.2039E-04,
                1164      & -0.3444E-04, -0.5575E-04, -0.8641E-04, -0.1287E-03, -0.1856E-03,
                1165      & -0.2615E-03, -0.3618E-03, -0.4928E-03, -0.6594E-03, -0.8621E-03,
                1166      & -0.1095E-02, -0.1349E-02, -0.1618E-02, -0.1894E-02, -0.2140E-02,
                1167      & -0.2293E-02, -0.2290E-02, -0.2085E-02, -0.1696E-02, -0.1212E-02,
                1168      & -0.7506E-03/
                1169       data ((h23(ip,iw,1),iw=1,31),ip=23,23)/
                1170      & -0.2496E-09, -0.4954E-09, -0.9780E-09, -0.1915E-08, -0.3697E-08,
                1171      & -0.6991E-08, -0.1279E-07, -0.2231E-07, -0.3653E-07, -0.5541E-07,
                1172      & -0.7688E-07, -0.9614E-07, -0.1069E-06, -0.1065E-06, -0.9866E-07,
                1173      & -0.8740E-07, -0.7192E-07, -0.4304E-07,  0.1982E-07,  0.1525E-06,
                1174      &  0.3873E-06,  0.6947E-06,  0.1000E-05,  0.1409E-05,  0.2253E-05,
                1175      &  0.3739E-05,  0.5744E-05,  0.7812E-05,  0.9067E-05,  0.8746E-05,
                1176      &  0.6940E-05/
                1177       data ((h21(ip,iw,1),iw=1,31),ip=24,24)/
                1178      &  0.3978E-05,  0.7933E-05,  0.1581E-04,  0.3149E-04,  0.6260E-04,
                1179      &  0.1240E-03,  0.2445E-03,  0.4777E-03,  0.9213E-03,  0.1743E-02,
                1180      &  0.3217E-02,  0.5756E-02,  0.9929E-02,  0.1644E-01,  0.2612E-01,
                1181      &  0.3995E-01,  0.5910E-01,  0.8497E-01,  0.1190E+00,  0.1626E+00,
                1182      &  0.2165E+00,  0.2813E+00,  0.3583E+00,  0.4485E+00,  0.5505E+00,
                1183      &  0.6590E+00,  0.7646E+00,  0.8562E+00,  0.9245E+00,  0.9676E+00,
                1184      &  0.9897E+00/
                1185       data ((h22(ip,iw,1),iw=1,31),ip=24,24)/
                1186      & -0.5950E-07, -0.1185E-06, -0.2358E-06, -0.4678E-06, -0.9235E-06,
                1187      & -0.1810E-05, -0.3503E-05, -0.6664E-05, -0.1236E-04, -0.2223E-04,
                1188      & -0.3849E-04, -0.6396E-04, -0.1017E-03, -0.1545E-03, -0.2257E-03,
                1189      & -0.3192E-03, -0.4399E-03, -0.5933E-03, -0.7824E-03, -0.1005E-02,
                1190      & -0.1251E-02, -0.1516E-02, -0.1794E-02, -0.2060E-02, -0.2257E-02,
                1191      & -0.2318E-02, -0.2186E-02, -0.1853E-02, -0.1386E-02, -0.9021E-03,
                1192      & -0.5050E-03/
                1193       data ((h23(ip,iw,1),iw=1,31),ip=24,24)/
                1194      & -0.2515E-09, -0.5001E-09, -0.9904E-09, -0.1951E-08, -0.3800E-08,
                1195      & -0.7288E-08, -0.1362E-07, -0.2452E-07, -0.4184E-07, -0.6663E-07,
                1196      & -0.9770E-07, -0.1299E-06, -0.1533E-06, -0.1584E-06, -0.1425E-06,
                1197      & -0.1093E-06, -0.5972E-07,  0.1426E-07,  0.1347E-06,  0.3364E-06,
                1198      &  0.6209E-06,  0.9169E-06,  0.1243E-05,  0.1883E-05,  0.3145E-05,
                1199      &  0.5011E-05,  0.7136E-05,  0.8785E-05,  0.9048E-05,  0.7686E-05,
                1200      &  0.5368E-05/
                1201       data ((h21(ip,iw,1),iw=1,31),ip=25,25)/
                1202      &  0.3978E-05,  0.7934E-05,  0.1582E-04,  0.3153E-04,  0.6275E-04,
                1203      &  0.1246E-03,  0.2466E-03,  0.4847E-03,  0.9432E-03,  0.1808E-02,
                1204      &  0.3392E-02,  0.6189E-02,  0.1092E-01,  0.1852E-01,  0.3009E-01,
                1205      &  0.4683E-01,  0.7008E-01,  0.1012E+00,  0.1416E+00,  0.1920E+00,
                1206      &  0.2531E+00,  0.3258E+00,  0.4115E+00,  0.5102E+00,  0.6180E+00,
                1207      &  0.7267E+00,  0.8252E+00,  0.9030E+00,  0.9550E+00,  0.9838E+00,
                1208      &  0.9965E+00/
                1209       data ((h22(ip,iw,1),iw=1,31),ip=25,25)/
                1210      & -0.5953E-07, -0.1187E-06, -0.2363E-06, -0.4697E-06, -0.9304E-06,
                1211      & -0.1833E-05, -0.3578E-05, -0.6889E-05, -0.1299E-04, -0.2384E-04,
                1212      & -0.4227E-04, -0.7201E-04, -0.1174E-03, -0.1825E-03, -0.2710E-03,
                1213      & -0.3861E-03, -0.5313E-03, -0.7095E-03, -0.9203E-03, -0.1158E-02,
                1214      & -0.1417E-02, -0.1691E-02, -0.1968E-02, -0.2200E-02, -0.2320E-02,
                1215      & -0.2263E-02, -0.1998E-02, -0.1563E-02, -0.1068E-02, -0.6300E-03,
                1216      & -0.3174E-03/
                1217       data ((h23(ip,iw,1),iw=1,31),ip=25,25)/
                1218      & -0.2520E-09, -0.5016E-09, -0.9963E-09, -0.1971E-08, -0.3867E-08,
                1219      & -0.7500E-08, -0.1427E-07, -0.2634E-07, -0.4656E-07, -0.7753E-07,
                1220      & -0.1196E-06, -0.1683E-06, -0.2113E-06, -0.2309E-06, -0.2119E-06,
                1221      & -0.1518E-06, -0.5200E-07,  0.9274E-07,  0.2973E-06,  0.5714E-06,
                1222      &  0.8687E-06,  0.1152E-05,  0.1621E-05,  0.2634E-05,  0.4310E-05,
                1223      &  0.6418E-05,  0.8347E-05,  0.9162E-05,  0.8319E-05,  0.6209E-05,
                1224      &  0.3844E-05/
                1225       data ((h21(ip,iw,1),iw=1,31),ip=26,26)/
                1226      &  0.3976E-05,  0.7932E-05,  0.1582E-04,  0.3154E-04,  0.6284E-04,
                1227      &  0.1250E-03,  0.2479E-03,  0.4896E-03,  0.9592E-03,  0.1857E-02,
                1228      &  0.3532E-02,  0.6558E-02,  0.1181E-01,  0.2048E-01,  0.3402E-01,
                1229      &  0.5399E-01,  0.8188E-01,  0.1190E+00,  0.1664E+00,  0.2243E+00,
                1230      &  0.2933E+00,  0.3747E+00,  0.4695E+00,  0.5755E+00,  0.6858E+00,
                1231      &  0.7903E+00,  0.8773E+00,  0.9391E+00,  0.9758E+00,  0.9934E+00,
                1232      &  0.9996E+00/
                1233       data ((h22(ip,iw,1),iw=1,31),ip=26,26)/
                1234      & -0.5954E-07, -0.1187E-06, -0.2366E-06, -0.4709E-06, -0.9349E-06,
                1235      & -0.1849E-05, -0.3632E-05, -0.7058E-05, -0.1350E-04, -0.2521E-04,
                1236      & -0.4564E-04, -0.7958E-04, -0.1329E-03, -0.2114E-03, -0.3200E-03,
                1237      & -0.4611E-03, -0.6353E-03, -0.8409E-03, -0.1072E-02, -0.1324E-02,
                1238      & -0.1592E-02, -0.1871E-02, -0.2127E-02, -0.2297E-02, -0.2312E-02,
                1239      & -0.2123E-02, -0.1738E-02, -0.1247E-02, -0.7744E-03, -0.4117E-03,
                1240      & -0.1850E-03/
                1241       data ((h23(ip,iw,1),iw=1,31),ip=26,26)/
                1242      & -0.2522E-09, -0.5025E-09, -0.9997E-09, -0.1983E-08, -0.3912E-08,
                1243      & -0.7650E-08, -0.1474E-07, -0.2777E-07, -0.5055E-07, -0.8745E-07,
                1244      & -0.1414E-06, -0.2095E-06, -0.2790E-06, -0.3241E-06, -0.3135E-06,
                1245      & -0.2269E-06, -0.5896E-07,  0.1875E-06,  0.4996E-06,  0.8299E-06,
                1246      &  0.1115E-05,  0.1467E-05,  0.2236E-05,  0.3672E-05,  0.5668E-05,
                1247      &  0.7772E-05,  0.9094E-05,  0.8827E-05,  0.7041E-05,  0.4638E-05,
                1248      &  0.2539E-05/
                1249       data ((h81(ip,iw,1),iw=1,31),ip= 1, 1)/
                1250      &  0.1342E-04,  0.2640E-04,  0.5137E-04,  0.9829E-04,  0.1832E-03,
                1251      &  0.3284E-03,  0.5585E-03,  0.8907E-03,  0.1327E-02,  0.1856E-02,
                1252      &  0.2461E-02,  0.3138E-02,  0.3898E-02,  0.4766E-02,  0.5783E-02,
                1253      &  0.7007E-02,  0.8521E-02,  0.1041E-01,  0.1278E-01,  0.1570E-01,
                1254      &  0.1928E-01,  0.2361E-01,  0.2884E-01,  0.3520E-01,  0.4305E-01,
                1255      &  0.5286E-01,  0.6531E-01,  0.8127E-01,  0.1019E+00,  0.1287E+00,
                1256      &  0.1632E+00/
                1257       data ((h82(ip,iw,1),iw=1,31),ip= 1, 1)/
                1258      & -0.5685E-08, -0.1331E-07, -0.3249E-07, -0.8137E-07, -0.2048E-06,
                1259      & -0.4973E-06, -0.1118E-05, -0.2246E-05, -0.3982E-05, -0.6290E-05,
                1260      & -0.9040E-05, -0.1215E-04, -0.1567E-04, -0.1970E-04, -0.2449E-04,
                1261      & -0.3046E-04, -0.3798E-04, -0.4725E-04, -0.5831E-04, -0.7123E-04,
                1262      & -0.8605E-04, -0.1028E-03, -0.1212E-03, -0.1413E-03, -0.1635E-03,
                1263      & -0.1884E-03, -0.2160E-03, -0.2461E-03, -0.2778E-03, -0.3098E-03,
                1264      & -0.3411E-03/
                1265       data ((h83(ip,iw,1),iw=1,31),ip= 1, 1)/
                1266      &  0.2169E-10,  0.5237E-10,  0.1296E-09,  0.3204E-09,  0.7665E-09,
                1267      &  0.1691E-08,  0.3222E-08,  0.5110E-08,  0.6779E-08,  0.7681E-08,
                1268      &  0.7378E-08,  0.5836E-08,  0.3191E-08, -0.1491E-08, -0.1022E-07,
                1269      & -0.2359E-07, -0.3957E-07, -0.5553E-07, -0.6927E-07, -0.7849E-07,
                1270      & -0.8139E-07, -0.7853E-07, -0.7368E-07, -0.7220E-07, -0.7780E-07,
                1271      & -0.9091E-07, -0.1038E-06, -0.9929E-07, -0.5422E-07,  0.5379E-07,
                1272      &  0.2350E-06/
                1273       data ((h81(ip,iw,1),iw=1,31),ip= 2, 2)/
                1274      &  0.1342E-04,  0.2640E-04,  0.5137E-04,  0.9829E-04,  0.1832E-03,
                1275      &  0.3284E-03,  0.5586E-03,  0.8908E-03,  0.1327E-02,  0.1856E-02,
                1276      &  0.2462E-02,  0.3140E-02,  0.3902E-02,  0.4774E-02,  0.5797E-02,
                1277      &  0.7033E-02,  0.8570E-02,  0.1050E-01,  0.1294E-01,  0.1599E-01,
                1278      &  0.1979E-01,  0.2448E-01,  0.3024E-01,  0.3738E-01,  0.4633E-01,
                1279      &  0.5766E-01,  0.7218E-01,  0.9096E-01,  0.1154E+00,  0.1471E+00,
                1280      &  0.1880E+00/
                1281       data ((h82(ip,iw,1),iw=1,31),ip= 2, 2)/
                1282      & -0.5684E-08, -0.1331E-07, -0.3248E-07, -0.8133E-07, -0.2047E-06,
                1283      & -0.4971E-06, -0.1117E-05, -0.2245E-05, -0.3981E-05, -0.6287E-05,
                1284      & -0.9035E-05, -0.1215E-04, -0.1565E-04, -0.1967E-04, -0.2444E-04,
                1285      & -0.3036E-04, -0.3780E-04, -0.4694E-04, -0.5779E-04, -0.7042E-04,
                1286      & -0.8491E-04, -0.1013E-03, -0.1196E-03, -0.1399E-03, -0.1625E-03,
                1287      & -0.1879E-03, -0.2163E-03, -0.2474E-03, -0.2803E-03, -0.3140E-03,
                1288      & -0.3478E-03/
                1289       data ((h83(ip,iw,1),iw=1,31),ip= 2, 2)/
                1290      &  0.2168E-10,  0.5242E-10,  0.1295E-09,  0.3201E-09,  0.7662E-09,
                1291      &  0.1690E-08,  0.3220E-08,  0.5106E-08,  0.6776E-08,  0.7673E-08,
                1292      &  0.7362E-08,  0.5808E-08,  0.3138E-08, -0.1595E-08, -0.1041E-07,
                1293      & -0.2390E-07, -0.4010E-07, -0.5636E-07, -0.7045E-07, -0.7972E-07,
                1294      & -0.8178E-07, -0.7677E-07, -0.6876E-07, -0.6381E-07, -0.6583E-07,
                1295      & -0.7486E-07, -0.8229E-07, -0.7017E-07, -0.1497E-07,  0.1051E-06,
                1296      &  0.2990E-06/
                1297       data ((h81(ip,iw,1),iw=1,31),ip= 3, 3)/
                1298      &  0.1342E-04,  0.2640E-04,  0.5137E-04,  0.9830E-04,  0.1832E-03,
                1299      &  0.3285E-03,  0.5587E-03,  0.8911E-03,  0.1328E-02,  0.1857E-02,
                1300      &  0.2465E-02,  0.3144E-02,  0.3909E-02,  0.4787E-02,  0.5820E-02,
                1301      &  0.7075E-02,  0.8646E-02,  0.1064E-01,  0.1319E-01,  0.1643E-01,
                1302      &  0.2053E-01,  0.2569E-01,  0.3215E-01,  0.4028E-01,  0.5059E-01,
                1303      &  0.6380E-01,  0.8088E-01,  0.1031E+00,  0.1321E+00,  0.1698E+00,
                1304      &  0.2179E+00/
                1305       data ((h82(ip,iw,1),iw=1,31),ip= 3, 3)/
                1306      & -0.5682E-08, -0.1330E-07, -0.3247E-07, -0.8129E-07, -0.2046E-06,
                1307      & -0.4968E-06, -0.1117E-05, -0.2244E-05, -0.3978E-05, -0.6283E-05,
                1308      & -0.9027E-05, -0.1213E-04, -0.1563E-04, -0.1963E-04, -0.2436E-04,
                1309      & -0.3021E-04, -0.3754E-04, -0.4649E-04, -0.5709E-04, -0.6940E-04,
                1310      & -0.8359E-04, -0.9986E-04, -0.1182E-03, -0.1388E-03, -0.1620E-03,
                1311      & -0.1882E-03, -0.2175E-03, -0.2498E-03, -0.2843E-03, -0.3203E-03,
                1312      & -0.3573E-03/
                1313       data ((h83(ip,iw,1),iw=1,31),ip= 3, 3)/
                1314      &  0.2167E-10,  0.5238E-10,  0.1294E-09,  0.3198E-09,  0.7656E-09,
                1315      &  0.1688E-08,  0.3217E-08,  0.5104E-08,  0.6767E-08,  0.7661E-08,
                1316      &  0.7337E-08,  0.5764E-08,  0.3051E-08, -0.1752E-08, -0.1068E-07,
                1317      & -0.2436E-07, -0.4081E-07, -0.5740E-07, -0.7165E-07, -0.8046E-07,
                1318      & -0.8082E-07, -0.7289E-07, -0.6141E-07, -0.5294E-07, -0.5134E-07,
                1319      & -0.5552E-07, -0.5609E-07, -0.3464E-07,  0.3275E-07,  0.1669E-06,
                1320      &  0.3745E-06/
                1321       data ((h81(ip,iw,1),iw=1,31),ip= 4, 4)/
                1322      &  0.1342E-04,  0.2640E-04,  0.5138E-04,  0.9830E-04,  0.1832E-03,
                1323      &  0.3286E-03,  0.5589E-03,  0.8915E-03,  0.1329E-02,  0.1859E-02,
                1324      &  0.2468E-02,  0.3150E-02,  0.3920E-02,  0.4806E-02,  0.5855E-02,
                1325      &  0.7140E-02,  0.8763E-02,  0.1085E-01,  0.1356E-01,  0.1707E-01,
                1326      &  0.2158E-01,  0.2736E-01,  0.3471E-01,  0.4407E-01,  0.5608E-01,
                1327      &  0.7161E-01,  0.9184E-01,  0.1183E+00,  0.1528E+00,  0.1973E+00,
                1328      &  0.2537E+00/
                1329       data ((h82(ip,iw,1),iw=1,31),ip= 4, 4)/
                1330      & -0.5680E-08, -0.1329E-07, -0.3243E-07, -0.8121E-07, -0.2044E-06,
                1331      & -0.4963E-06, -0.1115E-05, -0.2242E-05, -0.3974E-05, -0.6276E-05,
                1332      & -0.9015E-05, -0.1211E-04, -0.1559E-04, -0.1956E-04, -0.2423E-04,
                1333      & -0.2999E-04, -0.3716E-04, -0.4588E-04, -0.5618E-04, -0.6818E-04,
                1334      & -0.8218E-04, -0.9847E-04, -0.1171E-03, -0.1382E-03, -0.1621E-03,
                1335      & -0.1892E-03, -0.2197E-03, -0.2535E-03, -0.2902E-03, -0.3293E-03,
                1336      & -0.3700E-03/
                1337       data ((h83(ip,iw,1),iw=1,31),ip= 4, 4)/
                1338      &  0.2166E-10,  0.5229E-10,  0.1294E-09,  0.3193E-09,  0.7644E-09,
                1339      &  0.1686E-08,  0.3213E-08,  0.5092E-08,  0.6753E-08,  0.7640E-08,
                1340      &  0.7302E-08,  0.5696E-08,  0.2917E-08, -0.1984E-08, -0.1108E-07,
                1341      & -0.2497E-07, -0.4171E-07, -0.5849E-07, -0.7254E-07, -0.8017E-07,
                1342      & -0.7802E-07, -0.6662E-07, -0.5153E-07, -0.3961E-07, -0.3387E-07,
                1343      & -0.3219E-07, -0.2426E-07,  0.8700E-08,  0.9027E-07,  0.2400E-06,
                1344      &  0.4623E-06/
                1345       data ((h81(ip,iw,1),iw=1,31),ip= 5, 5)/
                1346      &  0.1342E-04,  0.2640E-04,  0.5138E-04,  0.9832E-04,  0.1833E-03,
                1347      &  0.3287E-03,  0.5591E-03,  0.8922E-03,  0.1330E-02,  0.1862E-02,
                1348      &  0.2473E-02,  0.3159E-02,  0.3937E-02,  0.4837E-02,  0.5911E-02,
                1349      &  0.7240E-02,  0.8943E-02,  0.1117E-01,  0.1411E-01,  0.1798E-01,
                1350      &  0.2304E-01,  0.2961E-01,  0.3807E-01,  0.4896E-01,  0.6308E-01,
                1351      &  0.8148E-01,  0.1056E+00,  0.1371E+00,  0.1780E+00,  0.2303E+00,
                1352      &  0.2958E+00/
                1353       data ((h82(ip,iw,1),iw=1,31),ip= 5, 5)/
                1354      & -0.5675E-08, -0.1328E-07, -0.3239E-07, -0.8110E-07, -0.2040E-06,
                1355      & -0.4954E-06, -0.1114E-05, -0.2238E-05, -0.3968E-05, -0.6265E-05,
                1356      & -0.8996E-05, -0.1208E-04, -0.1553E-04, -0.1945E-04, -0.2404E-04,
                1357      & -0.2966E-04, -0.3663E-04, -0.4508E-04, -0.5508E-04, -0.6686E-04,
                1358      & -0.8082E-04, -0.9732E-04, -0.1165E-03, -0.1382E-03, -0.1630E-03,
                1359      & -0.1913E-03, -0.2234E-03, -0.2593E-03, -0.2989E-03, -0.3417E-03,
                1360      & -0.3857E-03/
                1361       data ((h83(ip,iw,1),iw=1,31),ip= 5, 5)/
                1362      &  0.2163E-10,  0.5209E-10,  0.1291E-09,  0.3186E-09,  0.7626E-09,
                1363      &  0.1682E-08,  0.3203E-08,  0.5078E-08,  0.6730E-08,  0.7606E-08,
                1364      &  0.7246E-08,  0.5592E-08,  0.2735E-08, -0.2325E-08, -0.1162E-07,
                1365      & -0.2576E-07, -0.4268E-07, -0.5938E-07, -0.7262E-07, -0.7827E-07,
                1366      & -0.7297E-07, -0.5786E-07, -0.3930E-07, -0.2373E-07, -0.1295E-07,
                1367      & -0.3728E-08,  0.1465E-07,  0.6114E-07,  0.1590E-06,  0.3257E-06,
                1368      &  0.5622E-06/
                1369       data ((h81(ip,iw,1),iw=1,31),ip= 6, 6)/
                1370      &  0.1342E-04,  0.2640E-04,  0.5139E-04,  0.9834E-04,  0.1833E-03,
                1371      &  0.3288E-03,  0.5596E-03,  0.8932E-03,  0.1332E-02,  0.1866E-02,
                1372      &  0.2481E-02,  0.3174E-02,  0.3963E-02,  0.4885E-02,  0.5997E-02,
                1373      &  0.7394E-02,  0.9215E-02,  0.1164E-01,  0.1489E-01,  0.1924E-01,
                1374      &  0.2501E-01,  0.3258E-01,  0.4243E-01,  0.5523E-01,  0.7195E-01,
                1375      &  0.9387E-01,  0.1226E+00,  0.1601E+00,  0.2084E+00,  0.2695E+00,
                1376      &  0.3446E+00/
                1377       data ((h82(ip,iw,1),iw=1,31),ip= 6, 6)/
                1378      & -0.5671E-08, -0.1326E-07, -0.3234E-07, -0.8091E-07, -0.2035E-06,
                1379      & -0.4941E-06, -0.1111E-05, -0.2232E-05, -0.3958E-05, -0.6247E-05,
                1380      & -0.8966E-05, -0.1202E-04, -0.1544E-04, -0.1929E-04, -0.2377E-04,
                1381      & -0.2921E-04, -0.3593E-04, -0.4409E-04, -0.5385E-04, -0.6555E-04,
                1382      & -0.7965E-04, -0.9656E-04, -0.1163E-03, -0.1390E-03, -0.1649E-03,
                1383      & -0.1947E-03, -0.2288E-03, -0.2675E-03, -0.3109E-03, -0.3575E-03,
                1384      & -0.4039E-03/
                1385       data ((h83(ip,iw,1),iw=1,31),ip= 6, 6)/
                1386      &  0.2155E-10,  0.5188E-10,  0.1288E-09,  0.3175E-09,  0.7599E-09,
                1387      &  0.1675E-08,  0.3190E-08,  0.5059E-08,  0.6699E-08,  0.7551E-08,
                1388      &  0.7154E-08,  0.5435E-08,  0.2452E-08, -0.2802E-08, -0.1235E-07,
                1389      & -0.2668E-07, -0.4353E-07, -0.5962E-07, -0.7134E-07, -0.7435E-07,
                1390      & -0.6551E-07, -0.4676E-07, -0.2475E-07, -0.4876E-08,  0.1235E-07,
                1391      &  0.3092E-07,  0.6192E-07,  0.1243E-06,  0.2400E-06,  0.4247E-06,
                1392      &  0.6755E-06/
                1393       data ((h81(ip,iw,1),iw=1,31),ip= 7, 7)/
                1394      &  0.1342E-04,  0.2640E-04,  0.5139E-04,  0.9837E-04,  0.1834E-03,
                1395      &  0.3291E-03,  0.5603E-03,  0.8949E-03,  0.1336E-02,  0.1873E-02,
                1396      &  0.2494E-02,  0.3198E-02,  0.4005E-02,  0.4960E-02,  0.6130E-02,
                1397      &  0.7628E-02,  0.9618E-02,  0.1232E-01,  0.1599E-01,  0.2097E-01,
                1398      &  0.2764E-01,  0.3646E-01,  0.4803E-01,  0.6319E-01,  0.8312E-01,
                1399      &  0.1093E+00,  0.1436E+00,  0.1881E+00,  0.2448E+00,  0.3153E+00,
                1400      &  0.4001E+00/
                1401       data ((h82(ip,iw,1),iw=1,31),ip= 7, 7)/
                1402      & -0.5665E-08, -0.1322E-07, -0.3224E-07, -0.8063E-07, -0.2027E-06,
                1403      & -0.4921E-06, -0.1106E-05, -0.2223E-05, -0.3942E-05, -0.6220E-05,
                1404      & -0.8920E-05, -0.1194E-04, -0.1530E-04, -0.1905E-04, -0.2337E-04,
                1405      & -0.2860E-04, -0.3505E-04, -0.4296E-04, -0.5259E-04, -0.6439E-04,
                1406      & -0.7884E-04, -0.9635E-04, -0.1170E-03, -0.1407E-03, -0.1681E-03,
                1407      & -0.1998E-03, -0.2366E-03, -0.2790E-03, -0.3265E-03, -0.3763E-03,
                1408      & -0.4235E-03/
                1409       data ((h83(ip,iw,1),iw=1,31),ip= 7, 7)/
                1410      &  0.2157E-10,  0.5178E-10,  0.1283E-09,  0.3162E-09,  0.7558E-09,
                1411      &  0.1665E-08,  0.3169E-08,  0.5027E-08,  0.6645E-08,  0.7472E-08,
                1412      &  0.7017E-08,  0.5212E-08,  0.2059E-08, -0.3443E-08, -0.1321E-07,
                1413      & -0.2754E-07, -0.4389E-07, -0.5869E-07, -0.6825E-07, -0.6819E-07,
                1414      & -0.5570E-07, -0.3343E-07, -0.7592E-08,  0.1778E-07,  0.4322E-07,
                1415      &  0.7330E-07,  0.1190E-06,  0.1993E-06,  0.3348E-06,  0.5376E-06,
                1416      &  0.8030E-06/
                1417       data ((h81(ip,iw,1),iw=1,31),ip= 8, 8)/
                1418      &  0.1342E-04,  0.2641E-04,  0.5141E-04,  0.9842E-04,  0.1836E-03,
                1419      &  0.3295E-03,  0.5614E-03,  0.8975E-03,  0.1341E-02,  0.1884E-02,
                1420      &  0.2514E-02,  0.3234E-02,  0.4071E-02,  0.5075E-02,  0.6332E-02,
                1421      &  0.7976E-02,  0.1021E-01,  0.1328E-01,  0.1751E-01,  0.2329E-01,
                1422      &  0.3109E-01,  0.4146E-01,  0.5517E-01,  0.7325E-01,  0.9710E-01,
                1423      &  0.1284E+00,  0.1693E+00,  0.2217E+00,  0.2876E+00,  0.3679E+00,
                1424      &  0.4616E+00/
                1425       data ((h82(ip,iw,1),iw=1,31),ip= 8, 8)/
                1426      & -0.5652E-08, -0.1318E-07, -0.3210E-07, -0.8018E-07, -0.2014E-06,
                1427      & -0.4888E-06, -0.1099E-05, -0.2210E-05, -0.3918E-05, -0.6179E-05,
                1428      & -0.8849E-05, -0.1182E-04, -0.1509E-04, -0.1871E-04, -0.2284E-04,
                1429      & -0.2782E-04, -0.3403E-04, -0.4177E-04, -0.5145E-04, -0.6354E-04,
                1430      & -0.7853E-04, -0.9681E-04, -0.1185E-03, -0.1437E-03, -0.1729E-03,
                1431      & -0.2072E-03, -0.2475E-03, -0.2942E-03, -0.3457E-03, -0.3973E-03,
                1432      & -0.4434E-03/
                1433       data ((h83(ip,iw,1),iw=1,31),ip= 8, 8)/
                1434      &  0.2153E-10,  0.5151E-10,  0.1273E-09,  0.3136E-09,  0.7488E-09,
                1435      &  0.1649E-08,  0.3142E-08,  0.4980E-08,  0.6559E-08,  0.7346E-08,
                1436      &  0.6813E-08,  0.4884E-08,  0.1533E-08, -0.4209E-08, -0.1409E-07,
                1437      & -0.2801E-07, -0.4320E-07, -0.5614E-07, -0.6312E-07, -0.5976E-07,
                1438      & -0.4369E-07, -0.1775E-07,  0.1280E-07,  0.4534E-07,  0.8106E-07,
                1439      &  0.1246E-06,  0.1874E-06,  0.2873E-06,  0.4433E-06,  0.6651E-06,
                1440      &  0.9477E-06/
                1441       data ((h81(ip,iw,1),iw=1,31),ip= 9, 9)/
                1442      &  0.1342E-04,  0.2641E-04,  0.5143E-04,  0.9849E-04,  0.1838E-03,
                1443      &  0.3302E-03,  0.5631E-03,  0.9016E-03,  0.1350E-02,  0.1901E-02,
                1444      &  0.2546E-02,  0.3292E-02,  0.4171E-02,  0.5250E-02,  0.6634E-02,
                1445      &  0.8486E-02,  0.1104E-01,  0.1460E-01,  0.1955E-01,  0.2635E-01,
                1446      &  0.3555E-01,  0.4786E-01,  0.6421E-01,  0.8588E-01,  0.1145E+00,
                1447      &  0.1519E+00,  0.2003E+00,  0.2615E+00,  0.3372E+00,  0.4269E+00,
                1448      &  0.5281E+00/
                1449       data ((h82(ip,iw,1),iw=1,31),ip= 9, 9)/
                1450      & -0.5629E-08, -0.1310E-07, -0.3186E-07, -0.7948E-07, -0.1995E-06,
                1451      & -0.4837E-06, -0.1088E-05, -0.2188E-05, -0.3880E-05, -0.6115E-05,
                1452      & -0.8743E-05, -0.1165E-04, -0.1480E-04, -0.1824E-04, -0.2216E-04,
                1453      & -0.2691E-04, -0.3293E-04, -0.4067E-04, -0.5057E-04, -0.6314E-04,
                1454      & -0.7885E-04, -0.9813E-04, -0.1212E-03, -0.1482E-03, -0.1799E-03,
                1455      & -0.2175E-03, -0.2622E-03, -0.3135E-03, -0.3678E-03, -0.4193E-03,
                1456      & -0.4627E-03/
                1457       data ((h83(ip,iw,1),iw=1,31),ip= 9, 9)/
                1458      &  0.2121E-10,  0.5076E-10,  0.1257E-09,  0.3091E-09,  0.7379E-09,
                1459      &  0.1623E-08,  0.3097E-08,  0.4904E-08,  0.6453E-08,  0.7168E-08,
                1460      &  0.6534E-08,  0.4458E-08,  0.8932E-09, -0.5026E-08, -0.1469E-07,
                1461      & -0.2765E-07, -0.4103E-07, -0.5169E-07, -0.5585E-07, -0.4913E-07,
                1462      & -0.2954E-07,  0.6372E-09,  0.3738E-07,  0.7896E-07,  0.1272E-06,
                1463      &  0.1867E-06,  0.2682E-06,  0.3895E-06,  0.5672E-06,  0.8091E-06,
                1464      &  0.1114E-05/
                1465       data ((h81(ip,iw,1),iw=1,31),ip=10,10)/
                1466      &  0.1343E-04,  0.2642E-04,  0.5147E-04,  0.9861E-04,  0.1842E-03,
                1467      &  0.3312E-03,  0.5658E-03,  0.9080E-03,  0.1364E-02,  0.1928E-02,
                1468      &  0.2595E-02,  0.3379E-02,  0.4325E-02,  0.5513E-02,  0.7077E-02,
                1469      &  0.9215E-02,  0.1220E-01,  0.1640E-01,  0.2226E-01,  0.3032E-01,
                1470      &  0.4127E-01,  0.5598E-01,  0.7559E-01,  0.1016E+00,  0.1359E+00,
                1471      &  0.1804E+00,  0.2372E+00,  0.3081E+00,  0.3935E+00,  0.4916E+00,
                1472      &  0.5975E+00/
                1473       data ((h82(ip,iw,1),iw=1,31),ip=10,10)/
                1474      & -0.5597E-08, -0.1300E-07, -0.3148E-07, -0.7838E-07, -0.1964E-06,
                1475      & -0.4759E-06, -0.1071E-05, -0.2155E-05, -0.3822E-05, -0.6019E-05,
                1476      & -0.8586E-05, -0.1139E-04, -0.1439E-04, -0.1764E-04, -0.2134E-04,
                1477      & -0.2591E-04, -0.3188E-04, -0.3978E-04, -0.5011E-04, -0.6334E-04,
                1478      & -0.7998E-04, -0.1006E-03, -0.1253E-03, -0.1547E-03, -0.1895E-03,
                1479      & -0.2315E-03, -0.2811E-03, -0.3363E-03, -0.3917E-03, -0.4413E-03,
                1480      & -0.4809E-03/
                1481       data ((h83(ip,iw,1),iw=1,31),ip=10,10)/
                1482      &  0.2109E-10,  0.5017E-10,  0.1235E-09,  0.3021E-09,  0.7217E-09,
                1483      &  0.1585E-08,  0.3028E-08,  0.4796E-08,  0.6285E-08,  0.6910E-08,
                1484      &  0.6178E-08,  0.3945E-08,  0.2436E-09, -0.5632E-08, -0.1464E-07,
                1485      & -0.2596E-07, -0.3707E-07, -0.4527E-07, -0.4651E-07, -0.3644E-07,
                1486      & -0.1296E-07,  0.2250E-07,  0.6722E-07,  0.1202E-06,  0.1831E-06,
                1487      &  0.2605E-06,  0.3627E-06,  0.5062E-06,  0.7064E-06,  0.9725E-06,
                1488      &  0.1304E-05/
                1489       data ((h81(ip,iw,1),iw=1,31),ip=11,11)/
                1490      &  0.1343E-04,  0.2644E-04,  0.5152E-04,  0.9878E-04,  0.1847E-03,
                1491      &  0.3328E-03,  0.5701E-03,  0.9179E-03,  0.1385E-02,  0.1969E-02,
                1492      &  0.2671E-02,  0.3513E-02,  0.4554E-02,  0.5900E-02,  0.7713E-02,
                1493      &  0.1023E-01,  0.1379E-01,  0.1879E-01,  0.2578E-01,  0.3542E-01,
                1494      &  0.4854E-01,  0.6622E-01,  0.8983E-01,  0.1211E+00,  0.1619E+00,
                1495      &  0.2145E+00,  0.2807E+00,  0.3614E+00,  0.4559E+00,  0.5603E+00,
                1496      &  0.6675E+00/
                1497       data ((h82(ip,iw,1),iw=1,31),ip=11,11)/
                1498      & -0.5538E-08, -0.1280E-07, -0.3089E-07, -0.7667E-07, -0.1917E-06,
                1499      & -0.4642E-06, -0.1045E-05, -0.2106E-05, -0.3736E-05, -0.5878E-05,
                1500      & -0.8363E-05, -0.1104E-04, -0.1387E-04, -0.1692E-04, -0.2044E-04,
                1501      & -0.2493E-04, -0.3101E-04, -0.3926E-04, -0.5020E-04, -0.6429E-04,
                1502      & -0.8213E-04, -0.1044E-03, -0.1314E-03, -0.1637E-03, -0.2027E-03,
                1503      & -0.2498E-03, -0.3042E-03, -0.3617E-03, -0.4163E-03, -0.4625E-03,
                1504      & -0.4969E-03/
                1505       data ((h83(ip,iw,1),iw=1,31),ip=11,11)/
                1506      &  0.2067E-10,  0.4903E-10,  0.1200E-09,  0.2917E-09,  0.6965E-09,
                1507      &  0.1532E-08,  0.2925E-08,  0.4632E-08,  0.6054E-08,  0.6590E-08,
                1508      &  0.5746E-08,  0.3436E-08, -0.2251E-09, -0.5703E-08, -0.1344E-07,
                1509      & -0.2256E-07, -0.3120E-07, -0.3690E-07, -0.3520E-07, -0.2164E-07,
                1510      &  0.6510E-08,  0.4895E-07,  0.1037E-06,  0.1702E-06,  0.2502E-06,
                1511      &  0.3472E-06,  0.4710E-06,  0.6379E-06,  0.8633E-06,  0.1159E-05,
                1512      &  0.1514E-05/
                1513       data ((h81(ip,iw,1),iw=1,31),ip=12,12)/
                1514      &  0.1344E-04,  0.2647E-04,  0.5161E-04,  0.9906E-04,  0.1856E-03,
                1515      &  0.3353E-03,  0.5765E-03,  0.9331E-03,  0.1417E-02,  0.2032E-02,
                1516      &  0.2785E-02,  0.3712E-02,  0.4892E-02,  0.6456E-02,  0.8604E-02,
                1517      &  0.1162E-01,  0.1590E-01,  0.2192E-01,  0.3033E-01,  0.4193E-01,
                1518      &  0.5774E-01,  0.7906E-01,  0.1075E+00,  0.1449E+00,  0.1934E+00,
                1519      &  0.2549E+00,  0.3309E+00,  0.4213E+00,  0.5232E+00,  0.6308E+00,
                1520      &  0.7348E+00/
                1521       data ((h82(ip,iw,1),iw=1,31),ip=12,12)/
                1522      & -0.5476E-08, -0.1257E-07, -0.3008E-07, -0.7418E-07, -0.1848E-06,
                1523      & -0.4468E-06, -0.1006E-05, -0.2032E-05, -0.3611E-05, -0.5679E-05,
                1524      & -0.8058E-05, -0.1059E-04, -0.1324E-04, -0.1612E-04, -0.1956E-04,
                1525      & -0.2411E-04, -0.3046E-04, -0.3925E-04, -0.5098E-04, -0.6619E-04,
                1526      & -0.8562E-04, -0.1100E-03, -0.1399E-03, -0.1761E-03, -0.2202E-03,
                1527      & -0.2726E-03, -0.3306E-03, -0.3885E-03, -0.4404E-03, -0.4820E-03,
                1528      & -0.5082E-03/
                1529       data ((h83(ip,iw,1),iw=1,31),ip=12,12)/
                1530      &  0.2041E-10,  0.4771E-10,  0.1149E-09,  0.2782E-09,  0.6614E-09,
                1531      &  0.1451E-08,  0.2778E-08,  0.4401E-08,  0.5736E-08,  0.6189E-08,
                1532      &  0.5315E-08,  0.3087E-08, -0.2518E-09, -0.4806E-08, -0.1071E-07,
                1533      & -0.1731E-07, -0.2346E-07, -0.2659E-07, -0.2184E-07, -0.4261E-08,
                1534      &  0.2975E-07,  0.8112E-07,  0.1484E-06,  0.2308E-06,  0.3296E-06,
                1535      &  0.4475E-06,  0.5942E-06,  0.7859E-06,  0.1041E-05,  0.1369E-05,
                1536      &  0.1726E-05/
                1537       data ((h81(ip,iw,1),iw=1,31),ip=13,13)/
                1538      &  0.1345E-04,  0.2650E-04,  0.5173E-04,  0.9947E-04,  0.1868E-03,
                1539      &  0.3389E-03,  0.5861E-03,  0.9559E-03,  0.1466E-02,  0.2125E-02,
                1540      &  0.2955E-02,  0.4004E-02,  0.5376E-02,  0.7235E-02,  0.9824E-02,
                1541      &  0.1348E-01,  0.1866E-01,  0.2596E-01,  0.3613E-01,  0.5016E-01,
                1542      &  0.6929E-01,  0.9504E-01,  0.1292E+00,  0.1738E+00,  0.2309E+00,
                1543      &  0.3021E+00,  0.3880E+00,  0.4868E+00,  0.5936E+00,  0.7003E+00,
                1544      &  0.7964E+00/
                1545       data ((h82(ip,iw,1),iw=1,31),ip=13,13)/
                1546      & -0.5362E-08, -0.1223E-07, -0.2895E-07, -0.7071E-07, -0.1748E-06,
                1547      & -0.4219E-06, -0.9516E-06, -0.1928E-05, -0.3436E-05, -0.5409E-05,
                1548      & -0.7666E-05, -0.1005E-04, -0.1254E-04, -0.1533E-04, -0.1880E-04,
                1549      & -0.2358E-04, -0.3038E-04, -0.3988E-04, -0.5264E-04, -0.6934E-04,
                1550      & -0.9083E-04, -0.1179E-03, -0.1515E-03, -0.1927E-03, -0.2424E-03,
                1551      & -0.2994E-03, -0.3591E-03, -0.4155E-03, -0.4634E-03, -0.4982E-03,
                1552      & -0.5096E-03/
                1553       data ((h83(ip,iw,1),iw=1,31),ip=13,13)/
                1554      &  0.1976E-10,  0.4551E-10,  0.1086E-09,  0.2601E-09,  0.6126E-09,
                1555      &  0.1345E-08,  0.2583E-08,  0.4112E-08,  0.5365E-08,  0.5796E-08,
                1556      &  0.5031E-08,  0.3182E-08,  0.5970E-09, -0.2547E-08, -0.6172E-08,
                1557      & -0.1017E-07, -0.1388E-07, -0.1430E-07, -0.6118E-08,  0.1624E-07,
                1558      &  0.5791E-07,  0.1205E-06,  0.2025E-06,  0.3032E-06,  0.4225E-06,
                1559      &  0.5619E-06,  0.7322E-06,  0.9528E-06,  0.1243E-05,  0.1592E-05,
                1560      &  0.1904E-05/
                1561       data ((h81(ip,iw,1),iw=1,31),ip=14,14)/
                1562      &  0.1346E-04,  0.2655E-04,  0.5192E-04,  0.1001E-03,  0.1887E-03,
                1563      &  0.3442E-03,  0.6001E-03,  0.9892E-03,  0.1536E-02,  0.2262E-02,
                1564      &  0.3200E-02,  0.4420E-02,  0.6053E-02,  0.8300E-02,  0.1146E-01,
                1565      &  0.1592E-01,  0.2224E-01,  0.3112E-01,  0.4348E-01,  0.6051E-01,
                1566      &  0.8369E-01,  0.1147E+00,  0.1556E+00,  0.2084E+00,  0.2749E+00,
                1567      &  0.3561E+00,  0.4511E+00,  0.5562E+00,  0.6644E+00,  0.7655E+00,
                1568      &  0.8499E+00/
                1569       data ((h82(ip,iw,1),iw=1,31),ip=14,14)/
                1570      & -0.5210E-08, -0.1172E-07, -0.2731E-07, -0.6598E-07, -0.1615E-06,
                1571      & -0.3880E-06, -0.8769E-06, -0.1787E-05, -0.3204E-05, -0.5066E-05,
                1572      & -0.7197E-05, -0.9451E-05, -0.1185E-04, -0.1465E-04, -0.1831E-04,
                1573      & -0.2346E-04, -0.3088E-04, -0.4132E-04, -0.5545E-04, -0.7410E-04,
                1574      & -0.9820E-04, -0.1288E-03, -0.1670E-03, -0.2140E-03, -0.2692E-03,
                1575      & -0.3293E-03, -0.3886E-03, -0.4417E-03, -0.4840E-03, -0.5073E-03,
                1576      & -0.4944E-03/
                1577       data ((h83(ip,iw,1),iw=1,31),ip=14,14)/
                1578      &  0.1880E-10,  0.4271E-10,  0.9966E-10,  0.2352E-09,  0.5497E-09,
                1579      &  0.1205E-08,  0.2334E-08,  0.3765E-08,  0.4993E-08,  0.5532E-08,
                1580      &  0.5148E-08,  0.4055E-08,  0.2650E-08,  0.1326E-08,  0.2019E-09,
                1581      & -0.1124E-08, -0.2234E-08,  0.2827E-09,  0.1247E-07,  0.4102E-07,
                1582      &  0.9228E-07,  0.1682E-06,  0.2676E-06,  0.3885E-06,  0.5286E-06,
                1583      &  0.6904E-06,  0.8871E-06,  0.1142E-05,  0.1466E-05,  0.1800E-05,
                1584      &  0.2004E-05/
                1585       data ((h81(ip,iw,1),iw=1,31),ip=15,15)/
                1586      &  0.1348E-04,  0.2663E-04,  0.5216E-04,  0.1009E-03,  0.1912E-03,
                1587      &  0.3515E-03,  0.6196E-03,  0.1036E-02,  0.1637E-02,  0.2456E-02,
                1588      &  0.3544E-02,  0.4996E-02,  0.6973E-02,  0.9722E-02,  0.1360E-01,
                1589      &  0.1908E-01,  0.2681E-01,  0.3766E-01,  0.5272E-01,  0.7343E-01,
                1590      &  0.1015E+00,  0.1388E+00,  0.1874E+00,  0.2492E+00,  0.3257E+00,
                1591      &  0.4165E+00,  0.5191E+00,  0.6275E+00,  0.7324E+00,  0.8235E+00,
                1592      &  0.8939E+00/
                1593       data ((h82(ip,iw,1),iw=1,31),ip=15,15)/
                1594      & -0.5045E-08, -0.1113E-07, -0.2540E-07, -0.6008E-07, -0.1449E-06,
                1595      & -0.3457E-06, -0.7826E-06, -0.1609E-05, -0.2920E-05, -0.4665E-05,
                1596      & -0.6691E-05, -0.8868E-05, -0.1127E-04, -0.1422E-04, -0.1820E-04,
                1597      & -0.2389E-04, -0.3213E-04, -0.4380E-04, -0.5975E-04, -0.8092E-04,
                1598      & -0.1083E-03, -0.1433E-03, -0.1873E-03, -0.2402E-03, -0.2997E-03,
                1599      & -0.3607E-03, -0.4178E-03, -0.4662E-03, -0.4994E-03, -0.5028E-03,
                1600      & -0.4563E-03/
                1601       data ((h83(ip,iw,1),iw=1,31),ip=15,15)/
                1602      &  0.1804E-10,  0.3983E-10,  0.9045E-10,  0.2080E-09,  0.4786E-09,
                1603      &  0.1046E-08,  0.2052E-08,  0.3413E-08,  0.4704E-08,  0.5565E-08,
                1604      &  0.5887E-08,  0.5981E-08,  0.6202E-08,  0.6998E-08,  0.8493E-08,
                1605      &  0.1002E-07,  0.1184E-07,  0.1780E-07,  0.3483E-07,  0.7122E-07,
                1606      &  0.1341E-06,  0.2259E-06,  0.3446E-06,  0.4866E-06,  0.6486E-06,
                1607      &  0.8343E-06,  0.1063E-05,  0.1356E-05,  0.1690E-05,  0.1951E-05,
                1608      &  0.2005E-05/
                1609       data ((h81(ip,iw,1),iw=1,31),ip=16,16)/
                1610      &  0.1351E-04,  0.2672E-04,  0.5247E-04,  0.1019E-03,  0.1944E-03,
                1611      &  0.3609E-03,  0.6451E-03,  0.1098E-02,  0.1772E-02,  0.2718E-02,
                1612      &  0.4009E-02,  0.5767E-02,  0.8190E-02,  0.1158E-01,  0.1636E-01,
                1613      &  0.2311E-01,  0.3260E-01,  0.4586E-01,  0.6425E-01,  0.8940E-01,
                1614      &  0.1232E+00,  0.1678E+00,  0.2251E+00,  0.2967E+00,  0.3831E+00,
                1615      &  0.4825E+00,  0.5901E+00,  0.6976E+00,  0.7946E+00,  0.8725E+00,
                1616      &  0.9285E+00/
                1617       data ((h82(ip,iw,1),iw=1,31),ip=16,16)/
                1618      & -0.4850E-08, -0.1045E-07, -0.2334E-07, -0.5367E-07, -0.1265E-06,
                1619      & -0.2980E-06, -0.6750E-06, -0.1406E-05, -0.2601E-05, -0.4239E-05,
                1620      & -0.6201E-05, -0.8389E-05, -0.1091E-04, -0.1413E-04, -0.1859E-04,
                1621      & -0.2500E-04, -0.3432E-04, -0.4761E-04, -0.6595E-04, -0.9030E-04,
                1622      & -0.1219E-03, -0.1624E-03, -0.2126E-03, -0.2708E-03, -0.3327E-03,
                1623      & -0.3926E-03, -0.4458E-03, -0.4871E-03, -0.5045E-03, -0.4777E-03,
                1624      & -0.3954E-03/
                1625       data ((h83(ip,iw,1),iw=1,31),ip=16,16)/
                1626      &  0.1717E-10,  0.3723E-10,  0.8093E-10,  0.1817E-09,  0.4100E-09,
                1627      &  0.8932E-09,  0.1791E-08,  0.3126E-08,  0.4634E-08,  0.6095E-08,
                1628      &  0.7497E-08,  0.9170E-08,  0.1136E-07,  0.1453E-07,  0.1892E-07,
                1629      &  0.2369E-07,  0.2909E-07,  0.3922E-07,  0.6232E-07,  0.1083E-06,
                1630      &  0.1847E-06,  0.2943E-06,  0.4336E-06,  0.5970E-06,  0.7815E-06,
                1631      &  0.9959E-06,  0.1263E-05,  0.1583E-05,  0.1880E-05,  0.2009E-05,
                1632      &  0.1914E-05/
                1633       data ((h81(ip,iw,1),iw=1,31),ip=17,17)/
                1634      &  0.1353E-04,  0.2681E-04,  0.5283E-04,  0.1031E-03,  0.1981E-03,
                1635      &  0.3721E-03,  0.6761E-03,  0.1176E-02,  0.1943E-02,  0.3055E-02,
                1636      &  0.4612E-02,  0.6766E-02,  0.9760E-02,  0.1396E-01,  0.1986E-01,
                1637      &  0.2818E-01,  0.3984E-01,  0.5609E-01,  0.7850E-01,  0.1090E+00,
                1638      &  0.1495E+00,  0.2023E+00,  0.2691E+00,  0.3508E+00,  0.4465E+00,
                1639      &  0.5524E+00,  0.6613E+00,  0.7633E+00,  0.8485E+00,  0.9119E+00,
                1640      &  0.9543E+00/
                1641       data ((h82(ip,iw,1),iw=1,31),ip=17,17)/
                1642      & -0.4673E-08, -0.9862E-08, -0.2135E-07, -0.4753E-07, -0.1087E-06,
                1643      & -0.2512E-06, -0.5671E-06, -0.1199E-05, -0.2281E-05, -0.3842E-05,
                1644      & -0.5804E-05, -0.8110E-05, -0.1088E-04, -0.1452E-04, -0.1961E-04,
                1645      & -0.2696E-04, -0.3768E-04, -0.5311E-04, -0.7444E-04, -0.1028E-03,
                1646      & -0.1397E-03, -0.1865E-03, -0.2427E-03, -0.3047E-03, -0.3667E-03,
                1647      & -0.4237E-03, -0.4712E-03, -0.5003E-03, -0.4921E-03, -0.4286E-03,
                1648      & -0.3188E-03/
                1649       data ((h83(ip,iw,1),iw=1,31),ip=17,17)/
                1650      &  0.1653E-10,  0.3436E-10,  0.7431E-10,  0.1605E-09,  0.3548E-09,
                1651      &  0.7723E-09,  0.1595E-08,  0.2966E-08,  0.4849E-08,  0.7169E-08,
                1652      &  0.1003E-07,  0.1366E-07,  0.1825E-07,  0.2419E-07,  0.3186E-07,
                1653      &  0.4068E-07,  0.5064E-07,  0.6618E-07,  0.9684E-07,  0.1536E-06,
                1654      &  0.2450E-06,  0.3730E-06,  0.5328E-06,  0.7184E-06,  0.9291E-06,
                1655      &  0.1180E-05,  0.1484E-05,  0.1798E-05,  0.1992E-05,  0.1968E-05,
                1656      &  0.1736E-05/
                1657       data ((h81(ip,iw,1),iw=1,31),ip=18,18)/
                1658      &  0.1356E-04,  0.2691E-04,  0.5318E-04,  0.1043E-03,  0.2020E-03,
                1659      &  0.3841E-03,  0.7100E-03,  0.1263E-02,  0.2144E-02,  0.3464E-02,
                1660      &  0.5359E-02,  0.8019E-02,  0.1174E-01,  0.1694E-01,  0.2426E-01,
                1661      &  0.3451E-01,  0.4883E-01,  0.6870E-01,  0.9593E-01,  0.1326E+00,
                1662      &  0.1809E+00,  0.2428E+00,  0.3196E+00,  0.4112E+00,  0.5147E+00,
                1663      &  0.6239E+00,  0.7297E+00,  0.8217E+00,  0.8928E+00,  0.9421E+00,
                1664      &  0.9726E+00/
                1665       data ((h82(ip,iw,1),iw=1,31),ip=18,18)/
                1666      & -0.4532E-08, -0.9395E-08, -0.1978E-07, -0.4272E-07, -0.9442E-07,
                1667      & -0.2124E-06, -0.4747E-06, -0.1017E-05, -0.2003E-05, -0.3524E-05,
                1668      & -0.5567E-05, -0.8108E-05, -0.1127E-04, -0.1547E-04, -0.2138E-04,
                1669      & -0.2996E-04, -0.4251E-04, -0.6059E-04, -0.8563E-04, -0.1190E-03,
                1670      & -0.1623E-03, -0.2156E-03, -0.2767E-03, -0.3403E-03, -0.4006E-03,
                1671      & -0.4530E-03, -0.4912E-03, -0.4995E-03, -0.4563E-03, -0.3592E-03,
                1672      & -0.2383E-03/
                1673       data ((h83(ip,iw,1),iw=1,31),ip=18,18)/
                1674      &  0.1593E-10,  0.3276E-10,  0.6896E-10,  0.1476E-09,  0.3190E-09,
                1675      &  0.6944E-09,  0.1474E-08,  0.2935E-08,  0.5300E-08,  0.8697E-08,
                1676      &  0.1336E-07,  0.1946E-07,  0.2707E-07,  0.3637E-07,  0.4800E-07,
                1677      &  0.6187E-07,  0.7806E-07,  0.1008E-06,  0.1404E-06,  0.2089E-06,
                1678      &  0.3153E-06,  0.4613E-06,  0.6416E-06,  0.8506E-06,  0.1095E-05,
                1679      &  0.1387E-05,  0.1708E-05,  0.1956E-05,  0.2003E-05,  0.1836E-05,
                1680      &  0.1483E-05/
                1681       data ((h81(ip,iw,1),iw=1,31),ip=19,19)/
                1682      &  0.1358E-04,  0.2700E-04,  0.5350E-04,  0.1054E-03,  0.2057E-03,
                1683      &  0.3955E-03,  0.7434E-03,  0.1353E-02,  0.2361E-02,  0.3928E-02,
                1684      &  0.6237E-02,  0.9531E-02,  0.1416E-01,  0.2063E-01,  0.2968E-01,
                1685      &  0.4233E-01,  0.5990E-01,  0.8412E-01,  0.1170E+00,  0.1608E+00,
                1686      &  0.2177E+00,  0.2894E+00,  0.3764E+00,  0.4768E+00,  0.5855E+00,
                1687      &  0.6941E+00,  0.7921E+00,  0.8710E+00,  0.9276E+00,  0.9641E+00,
                1688      &  0.9846E+00/
                1689       data ((h82(ip,iw,1),iw=1,31),ip=19,19)/
                1690      & -0.4448E-08, -0.9085E-08, -0.1877E-07, -0.3946E-07, -0.8472E-07,
                1691      & -0.1852E-06, -0.4074E-06, -0.8791E-06, -0.1789E-05, -0.3314E-05,
                1692      & -0.5521E-05, -0.8425E-05, -0.1215E-04, -0.1711E-04, -0.2407E-04,
                1693      & -0.3421E-04, -0.4905E-04, -0.7032E-04, -0.9985E-04, -0.1394E-03,
                1694      & -0.1897E-03, -0.2491E-03, -0.3132E-03, -0.3763E-03, -0.4332E-03,
                1695      & -0.4786E-03, -0.5005E-03, -0.4775E-03, -0.3970E-03, -0.2794E-03,
                1696      & -0.1652E-03/
                1697       data ((h83(ip,iw,1),iw=1,31),ip=19,19)/
                1698      &  0.1566E-10,  0.3219E-10,  0.6635E-10,  0.1400E-09,  0.2999E-09,
                1699      &  0.6513E-09,  0.1406E-08,  0.2953E-08,  0.5789E-08,  0.1037E-07,
                1700      &  0.1709E-07,  0.2623E-07,  0.3777E-07,  0.5159E-07,  0.6823E-07,
                1701      &  0.8864E-07,  0.1134E-06,  0.1461E-06,  0.1960E-06,  0.2761E-06,
                1702      &  0.3962E-06,  0.5583E-06,  0.7580E-06,  0.9957E-06,  0.1282E-05,
                1703      &  0.1607E-05,  0.1898E-05,  0.2020E-05,  0.1919E-05,  0.1623E-05,
                1704      &  0.1171E-05/
                1705       data ((h81(ip,iw,1),iw=1,31),ip=20,20)/
                1706      &  0.1360E-04,  0.2707E-04,  0.5375E-04,  0.1063E-03,  0.2087E-03,
                1707      &  0.4052E-03,  0.7731E-03,  0.1437E-02,  0.2575E-02,  0.4414E-02,
                1708      &  0.7212E-02,  0.1128E-01,  0.1704E-01,  0.2509E-01,  0.3631E-01,
                1709      &  0.5188E-01,  0.7338E-01,  0.1028E+00,  0.1422E+00,  0.1940E+00,
                1710      &  0.2603E+00,  0.3422E+00,  0.4387E+00,  0.5459E+00,  0.6563E+00,
                1711      &  0.7597E+00,  0.8461E+00,  0.9105E+00,  0.9536E+00,  0.9791E+00,
                1712      &  0.9920E+00/
                1713       data ((h82(ip,iw,1),iw=1,31),ip=20,20)/
                1714      & -0.4403E-08, -0.8896E-08, -0.1818E-07, -0.3751E-07, -0.7880E-07,
                1715      & -0.1683E-06, -0.3640E-06, -0.7852E-06, -0.1640E-05, -0.3191E-05,
                1716      & -0.5634E-05, -0.9046E-05, -0.1355E-04, -0.1953E-04, -0.2786E-04,
                1717      & -0.3995E-04, -0.5752E-04, -0.8256E-04, -0.1174E-03, -0.1638E-03,
                1718      & -0.2211E-03, -0.2854E-03, -0.3507E-03, -0.4116E-03, -0.4633E-03,
                1719      & -0.4966E-03, -0.4921E-03, -0.4309E-03, -0.3215E-03, -0.2016E-03,
                1720      & -0.1061E-03/
                1721       data ((h83(ip,iw,1),iw=1,31),ip=20,20)/
                1722      &  0.1551E-10,  0.3147E-10,  0.6419E-10,  0.1356E-09,  0.2860E-09,
                1723      &  0.6178E-09,  0.1353E-08,  0.2934E-08,  0.6095E-08,  0.1174E-07,
                1724      &  0.2067E-07,  0.3346E-07,  0.5014E-07,  0.7024E-07,  0.9377E-07,
                1725      &  0.1226E-06,  0.1592E-06,  0.2056E-06,  0.2678E-06,  0.3584E-06,
                1726      &  0.4892E-06,  0.6651E-06,  0.8859E-06,  0.1160E-05,  0.1488E-05,
                1727      &  0.1814E-05,  0.2010E-05,  0.1984E-05,  0.1748E-05,  0.1338E-05,
                1728      &  0.8445E-06/
                1729       data ((h81(ip,iw,1),iw=1,31),ip=21,21)/
                1730      &  0.1361E-04,  0.2711E-04,  0.5393E-04,  0.1070E-03,  0.2110E-03,
                1731      &  0.4129E-03,  0.7973E-03,  0.1508E-02,  0.2769E-02,  0.4886E-02,
                1732      &  0.8229E-02,  0.1322E-01,  0.2037E-01,  0.3038E-01,  0.4427E-01,
                1733      &  0.6342E-01,  0.8963E-01,  0.1250E+00,  0.1720E+00,  0.2327E+00,
                1734      &  0.3089E+00,  0.4007E+00,  0.5052E+00,  0.6163E+00,  0.7241E+00,
                1735      &  0.8179E+00,  0.8905E+00,  0.9408E+00,  0.9720E+00,  0.9887E+00,
                1736      &  0.9961E+00/
                1737       data ((h82(ip,iw,1),iw=1,31),ip=21,21)/
                1738      & -0.4379E-08, -0.8801E-08, -0.1782E-07, -0.3642E-07, -0.7536E-07,
                1739      & -0.1581E-06, -0.3366E-06, -0.7227E-06, -0.1532E-05, -0.3106E-05,
                1740      & -0.5810E-05, -0.9862E-05, -0.1540E-04, -0.2279E-04, -0.3292E-04,
                1741      & -0.4738E-04, -0.6817E-04, -0.9765E-04, -0.1384E-03, -0.1918E-03,
                1742      & -0.2551E-03, -0.3226E-03, -0.3876E-03, -0.4452E-03, -0.4883E-03,
                1743      & -0.5005E-03, -0.4598E-03, -0.3633E-03, -0.2416E-03, -0.1349E-03,
                1744      & -0.6278E-04/
                1745       data ((h83(ip,iw,1),iw=1,31),ip=21,21)/
                1746      &  0.1542E-10,  0.3111E-10,  0.6345E-10,  0.1310E-09,  0.2742E-09,
                1747      &  0.5902E-09,  0.1289E-08,  0.2826E-08,  0.6103E-08,  0.1250E-07,
                1748      &  0.2355E-07,  0.4041E-07,  0.6347E-07,  0.9217E-07,  0.1256E-06,
                1749      &  0.1658E-06,  0.2175E-06,  0.2824E-06,  0.3607E-06,  0.4614E-06,
                1750      &  0.6004E-06,  0.7880E-06,  0.1034E-05,  0.1349E-05,  0.1698E-05,
                1751      &  0.1965E-05,  0.2021E-05,  0.1857E-05,  0.1500E-05,  0.1015E-05,
                1752      &  0.5467E-06/
                1753       data ((h81(ip,iw,1),iw=1,31),ip=22,22)/
                1754      &  0.1362E-04,  0.2714E-04,  0.5405E-04,  0.1074E-03,  0.2127E-03,
                1755      &  0.4187E-03,  0.8159E-03,  0.1565E-02,  0.2933E-02,  0.5314E-02,
                1756      &  0.9222E-02,  0.1525E-01,  0.2406E-01,  0.3649E-01,  0.5367E-01,
                1757      &  0.7717E-01,  0.1090E+00,  0.1514E+00,  0.2067E+00,  0.2770E+00,
                1758      &  0.3633E+00,  0.4640E+00,  0.5742E+00,  0.6853E+00,  0.7859E+00,
                1759      &  0.8670E+00,  0.9253E+00,  0.9629E+00,  0.9842E+00,  0.9942E+00,
                1760      &  0.9983E+00/
                1761       data ((h82(ip,iw,1),iw=1,31),ip=22,22)/
                1762      & -0.4366E-08, -0.8749E-08, -0.1761E-07, -0.3578E-07, -0.7322E-07,
                1763      & -0.1517E-06, -0.3189E-06, -0.6785E-06, -0.1446E-05, -0.3014E-05,
                1764      & -0.5933E-05, -0.1069E-04, -0.1755E-04, -0.2683E-04, -0.3936E-04,
                1765      & -0.5675E-04, -0.8137E-04, -0.1160E-03, -0.1630E-03, -0.2223E-03,
                1766      & -0.2899E-03, -0.3589E-03, -0.4230E-03, -0.4755E-03, -0.5031E-03,
                1767      & -0.4834E-03, -0.4036E-03, -0.2849E-03, -0.1687E-03, -0.8356E-04,
                1768      & -0.3388E-04/
                1769       data ((h83(ip,iw,1),iw=1,31),ip=22,22)/
                1770      &  0.1536E-10,  0.3086E-10,  0.6248E-10,  0.1288E-09,  0.2664E-09,
                1771      &  0.5637E-09,  0.1222E-08,  0.2680E-08,  0.5899E-08,  0.1262E-07,
                1772      &  0.2527E-07,  0.4621E-07,  0.7678E-07,  0.1165E-06,  0.1640E-06,
                1773      &  0.2199E-06,  0.2904E-06,  0.3783E-06,  0.4787E-06,  0.5925E-06,
                1774      &  0.7377E-06,  0.9389E-06,  0.1216E-05,  0.1560E-05,  0.1879E-05,
                1775      &  0.2025E-05,  0.1940E-05,  0.1650E-05,  0.1194E-05,  0.6981E-06,
                1776      &  0.3103E-06/
                1777       data ((h81(ip,iw,1),iw=1,31),ip=23,23)/
                1778      &  0.1362E-04,  0.2716E-04,  0.5413E-04,  0.1077E-03,  0.2139E-03,
                1779      &  0.4228E-03,  0.8295E-03,  0.1609E-02,  0.3063E-02,  0.5676E-02,
                1780      &  0.1013E-01,  0.1726E-01,  0.2799E-01,  0.4332E-01,  0.6452E-01,
                1781      &  0.9328E-01,  0.1317E+00,  0.1820E+00,  0.2467E+00,  0.3270E+00,
                1782      &  0.4228E+00,  0.5308E+00,  0.6434E+00,  0.7499E+00,  0.8395E+00,
                1783      &  0.9065E+00,  0.9515E+00,  0.9782E+00,  0.9916E+00,  0.9973E+00,
                1784      &  0.9993E+00/
                1785       data ((h82(ip,iw,1),iw=1,31),ip=23,23)/
                1786      & -0.4359E-08, -0.8720E-08, -0.1749E-07, -0.3527E-07, -0.7175E-07,
                1787      & -0.1473E-06, -0.3062E-06, -0.6451E-06, -0.1372E-05, -0.2902E-05,
                1788      & -0.5936E-05, -0.1133E-04, -0.1971E-04, -0.3143E-04, -0.4715E-04,
                1789      & -0.6833E-04, -0.9759E-04, -0.1379E-03, -0.1907E-03, -0.2542E-03,
                1790      & -0.3239E-03, -0.3935E-03, -0.4559E-03, -0.4991E-03, -0.5009E-03,
                1791      & -0.4414E-03, -0.3306E-03, -0.2077E-03, -0.1093E-03, -0.4754E-04,
                1792      & -0.1642E-04/
                1793       data ((h83(ip,iw,1),iw=1,31),ip=23,23)/
                1794      &  0.1531E-10,  0.3070E-10,  0.6184E-10,  0.1257E-09,  0.2578E-09,
                1795      &  0.5451E-09,  0.1159E-08,  0.2526E-08,  0.5585E-08,  0.1225E-07,
                1796      &  0.2576E-07,  0.5017E-07,  0.8855E-07,  0.1417E-06,  0.2078E-06,
                1797      &  0.2858E-06,  0.3802E-06,  0.4946E-06,  0.6226E-06,  0.7572E-06,
                1798      &  0.9137E-06,  0.1133E-05,  0.1438E-05,  0.1772E-05,  0.1994E-05,
                1799      &  0.1994E-05,  0.1779E-05,  0.1375E-05,  0.8711E-06,  0.4273E-06,
                1800      &  0.1539E-06/
                1801       data ((h81(ip,iw,1),iw=1,31),ip=24,24)/
                1802      &  0.1362E-04,  0.2717E-04,  0.5417E-04,  0.1079E-03,  0.2146E-03,
                1803      &  0.4256E-03,  0.8393E-03,  0.1641E-02,  0.3163E-02,  0.5968E-02,
                1804      &  0.1092E-01,  0.1915E-01,  0.3195E-01,  0.5066E-01,  0.7669E-01,
                1805      &  0.1117E+00,  0.1578E+00,  0.2173E+00,  0.2919E+00,  0.3824E+00,
                1806      &  0.4867E+00,  0.5992E+00,  0.7100E+00,  0.8076E+00,  0.8838E+00,
                1807      &  0.9370E+00,  0.9702E+00,  0.9880E+00,  0.9959E+00,  0.9988E+00,
                1808      &  0.9998E+00/
                1809       data ((h82(ip,iw,1),iw=1,31),ip=24,24)/
                1810      & -0.4354E-08, -0.8703E-08, -0.1742E-07, -0.3499E-07, -0.7074E-07,
                1811      & -0.1441E-06, -0.2971E-06, -0.6195E-06, -0.1309E-05, -0.2780E-05,
                1812      & -0.5823E-05, -0.1165E-04, -0.2152E-04, -0.3616E-04, -0.5604E-04,
                1813      & -0.8230E-04, -0.1173E-03, -0.1635E-03, -0.2211E-03, -0.2868E-03,
                1814      & -0.3567E-03, -0.4260E-03, -0.4844E-03, -0.5097E-03, -0.4750E-03,
                1815      & -0.3779E-03, -0.2522E-03, -0.1409E-03, -0.6540E-04, -0.2449E-04,
                1816      & -0.6948E-05/
                1817       data ((h83(ip,iw,1),iw=1,31),ip=24,24)/
                1818      &  0.1529E-10,  0.3060E-10,  0.6142E-10,  0.1241E-09,  0.2535E-09,
                1819      &  0.5259E-09,  0.1107E-08,  0.2383E-08,  0.5243E-08,  0.1161E-07,
                1820      &  0.2523E-07,  0.5188E-07,  0.9757E-07,  0.1657E-06,  0.2553E-06,
                1821      &  0.3629E-06,  0.4878E-06,  0.6323E-06,  0.7923E-06,  0.9575E-06,
                1822      &  0.1139E-05,  0.1381E-05,  0.1687E-05,  0.1952E-05,  0.2029E-05,
                1823      &  0.1890E-05,  0.1552E-05,  0.1062E-05,  0.5728E-06,  0.2280E-06,
                1824      &  0.6762E-07/
                1825       data ((h81(ip,iw,1),iw=1,31),ip=25,25)/
                1826      &  0.1363E-04,  0.2718E-04,  0.5420E-04,  0.1080E-03,  0.2151E-03,
                1827      &  0.4275E-03,  0.8461E-03,  0.1664E-02,  0.3237E-02,  0.6195E-02,
                1828      &  0.1156E-01,  0.2080E-01,  0.3573E-01,  0.5818E-01,  0.8981E-01,
                1829      &  0.1323E+00,  0.1874E+00,  0.2570E+00,  0.3423E+00,  0.4425E+00,
                1830      &  0.5534E+00,  0.6669E+00,  0.7714E+00,  0.8568E+00,  0.9191E+00,
                1831      &  0.9597E+00,  0.9828E+00,  0.9938E+00,  0.9981E+00,  0.9996E+00,
                1832      &  0.1000E+01/
                1833       data ((h82(ip,iw,1),iw=1,31),ip=25,25)/
                1834      & -0.4352E-08, -0.8693E-08, -0.1738E-07, -0.3483E-07, -0.7006E-07,
                1835      & -0.1423E-06, -0.2905E-06, -0.6008E-06, -0.1258E-05, -0.2663E-05,
                1836      & -0.5638E-05, -0.1165E-04, -0.2270E-04, -0.4044E-04, -0.6554E-04,
                1837      & -0.9855E-04, -0.1407E-03, -0.1928E-03, -0.2534E-03, -0.3197E-03,
                1838      & -0.3890E-03, -0.4563E-03, -0.5040E-03, -0.4998E-03, -0.4249E-03,
                1839      & -0.3025E-03, -0.1794E-03, -0.8860E-04, -0.3575E-04, -0.1122E-04,
                1840      & -0.2506E-05/
                1841       data ((h83(ip,iw,1),iw=1,31),ip=25,25)/
                1842      &  0.1527E-10,  0.3053E-10,  0.6115E-10,  0.1230E-09,  0.2492E-09,
                1843      &  0.5149E-09,  0.1068E-08,  0.2268E-08,  0.4932E-08,  0.1089E-07,
                1844      &  0.2408E-07,  0.5156E-07,  0.1028E-06,  0.1859E-06,  0.3028E-06,
                1845      &  0.4476E-06,  0.6124E-06,  0.7932E-06,  0.9879E-06,  0.1194E-05,
                1846      &  0.1417E-05,  0.1673E-05,  0.1929E-05,  0.2064E-05,  0.1997E-05,
                1847      &  0.1725E-05,  0.1267E-05,  0.7464E-06,  0.3312E-06,  0.1066E-06,
                1848      &  0.2718E-07/
                1849       data ((h81(ip,iw,1),iw=1,31),ip=26,26)/
                1850      &  0.1363E-04,  0.2719E-04,  0.5422E-04,  0.1081E-03,  0.2154E-03,
                1851      &  0.4287E-03,  0.8506E-03,  0.1680E-02,  0.3291E-02,  0.6364E-02,
                1852      &  0.1206E-01,  0.2218E-01,  0.3912E-01,  0.6544E-01,  0.1033E+00,
                1853      &  0.1544E+00,  0.2198E+00,  0.3008E+00,  0.3970E+00,  0.5060E+00,
                1854      &  0.6209E+00,  0.7311E+00,  0.8254E+00,  0.8972E+00,  0.9462E+00,
                1855      &  0.9757E+00,  0.9907E+00,  0.9970E+00,  0.9992E+00,  0.9999E+00,
                1856      &  0.1000E+01/
                1857       data ((h82(ip,iw,1),iw=1,31),ip=26,26)/
                1858      & -0.4351E-08, -0.8688E-08, -0.1736E-07, -0.3473E-07, -0.6966E-07,
                1859      & -0.1405E-06, -0.2857E-06, -0.5867E-06, -0.1218E-05, -0.2563E-05,
                1860      & -0.5435E-05, -0.1144E-04, -0.2321E-04, -0.4379E-04, -0.7487E-04,
                1861      & -0.1163E-03, -0.1670E-03, -0.2250E-03, -0.2876E-03, -0.3535E-03,
                1862      & -0.4215E-03, -0.4826E-03, -0.5082E-03, -0.4649E-03, -0.3564E-03,
                1863      & -0.2264E-03, -0.1188E-03, -0.5128E-04, -0.1758E-04, -0.4431E-05,
                1864      & -0.7275E-06/
                1865       data ((h83(ip,iw,1),iw=1,31),ip=26,26)/
                1866      &  0.1525E-10,  0.3048E-10,  0.6097E-10,  0.1223E-09,  0.2466E-09,
                1867      &  0.5021E-09,  0.1032E-08,  0.2195E-08,  0.4688E-08,  0.1027E-07,
                1868      &  0.2279E-07,  0.4999E-07,  0.1046E-06,  0.2009E-06,  0.3460E-06,
                1869      &  0.5335E-06,  0.7478E-06,  0.9767E-06,  0.1216E-05,  0.1469E-05,
                1870      &  0.1735E-05,  0.1977E-05,  0.2121E-05,  0.2103E-05,  0.1902E-05,
                1871      &  0.1495E-05,  0.9541E-06,  0.4681E-06,  0.1672E-06,  0.4496E-07,
                1872      &  0.9859E-08/