/[MITgcm]/MITgcm/pkg/fizhi/h2o-tran3.h
ViewVC logotype

Annotation of /MITgcm/pkg/fizhi/h2o-tran3.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.2 - (hide annotations) (download)
Mon Oct 8 23:42:14 2007 UTC (16 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint65, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59k, checkpoint59j, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y, HEAD
Changes since 1.1: +3 -0 lines
File MIME type: text/plain 
add cvs $Header:$ or $Name:$ if they were missing
1 jmc 1.2 C $Header: $
2     C $Name: $
3    
4 molod 1.1 data ((h11(ip,iw,1),iw=1,31),ip= 1, 1)/
5     & 0.6160E-04, 0.9815E-04, 0.1474E-03, 0.2092E-03, 0.2823E-03,
6     & 0.3662E-03, 0.4615E-03, 0.5710E-03, 0.6998E-03, 0.8554E-03,
7     & 0.1049E-02, 0.1295E-02, 0.1612E-02, 0.2021E-02, 0.2548E-02,
8     & 0.3230E-02, 0.4123E-02, 0.5306E-02, 0.6887E-02, 0.9021E-02,
9     & 0.1193E-01, 0.1590E-01, 0.2135E-01, 0.2885E-01, 0.3914E-01,
10     & 0.5317E-01, 0.7223E-01, 0.9800E-01, 0.1326E+00, 0.1783E+00,
11     & 0.2373E+00/
12     data ((h12(ip,iw,1),iw=1,31),ip= 1, 1)/
13     & -0.2021E-06, -0.3628E-06, -0.5891E-06, -0.8735E-06, -0.1204E-05,
14     & -0.1579E-05, -0.2002E-05, -0.2494E-05, -0.3093E-05, -0.3852E-05,
15     & -0.4835E-05, -0.6082E-05, -0.7591E-05, -0.9332E-05, -0.1128E-04,
16     & -0.1347E-04, -0.1596E-04, -0.1890E-04, -0.2241E-04, -0.2672E-04,
17     & -0.3208E-04, -0.3884E-04, -0.4747E-04, -0.5854E-04, -0.7272E-04,
18     & -0.9092E-04, -0.1146E-03, -0.1458E-03, -0.1877E-03, -0.2435E-03,
19     & -0.3159E-03/
20     data ((h13(ip,iw,1),iw=1,31),ip= 1, 1)/
21     & 0.5907E-09, 0.8541E-09, 0.1095E-08, 0.1272E-08, 0.1297E-08,
22     & 0.1105E-08, 0.6788E-09, -0.5585E-10, -0.1147E-08, -0.2746E-08,
23     & -0.5001E-08, -0.7715E-08, -0.1037E-07, -0.1227E-07, -0.1287E-07,
24     & -0.1175E-07, -0.8517E-08, -0.2920E-08, 0.4786E-08, 0.1407E-07,
25     & 0.2476E-07, 0.3781E-07, 0.5633E-07, 0.8578E-07, 0.1322E-06,
26     & 0.2013E-06, 0.3006E-06, 0.4409E-06, 0.6343E-06, 0.8896E-06,
27     & 0.1216E-05/
28     data ((h11(ip,iw,1),iw=1,31),ip= 2, 2)/
29     & 0.6166E-04, 0.9828E-04, 0.1477E-03, 0.2097E-03, 0.2833E-03,
30     & 0.3680E-03, 0.4648E-03, 0.5768E-03, 0.7101E-03, 0.8736E-03,
31     & 0.1080E-02, 0.1348E-02, 0.1700E-02, 0.2162E-02, 0.2767E-02,
32     & 0.3563E-02, 0.4621E-02, 0.6039E-02, 0.7953E-02, 0.1056E-01,
33     & 0.1412E-01, 0.1901E-01, 0.2574E-01, 0.3498E-01, 0.4763E-01,
34     & 0.6484E-01, 0.8815E-01, 0.1196E+00, 0.1614E+00, 0.2157E+00,
35     & 0.2844E+00/
36     data ((h12(ip,iw,1),iw=1,31),ip= 2, 2)/
37     & -0.2017E-06, -0.3620E-06, -0.5878E-06, -0.8713E-06, -0.1201E-05,
38     & -0.1572E-05, -0.1991E-05, -0.2476E-05, -0.3063E-05, -0.3808E-05,
39     & -0.4776E-05, -0.6011E-05, -0.7516E-05, -0.9272E-05, -0.1127E-04,
40     & -0.1355E-04, -0.1620E-04, -0.1936E-04, -0.2321E-04, -0.2797E-04,
41     & -0.3399E-04, -0.4171E-04, -0.5172E-04, -0.6471E-04, -0.8150E-04,
42     & -0.1034E-03, -0.1321E-03, -0.1705E-03, -0.2217E-03, -0.2889E-03,
43     & -0.3726E-03/
44     data ((h13(ip,iw,1),iw=1,31),ip= 2, 2)/
45     & 0.5894E-09, 0.8519E-09, 0.1092E-08, 0.1267E-08, 0.1289E-08,
46     & 0.1093E-08, 0.6601E-09, -0.7831E-10, -0.1167E-08, -0.2732E-08,
47     & -0.4864E-08, -0.7334E-08, -0.9581E-08, -0.1097E-07, -0.1094E-07,
48     & -0.8999E-08, -0.4669E-08, 0.2391E-08, 0.1215E-07, 0.2424E-07,
49     & 0.3877E-07, 0.5711E-07, 0.8295E-07, 0.1218E-06, 0.1793E-06,
50     & 0.2621E-06, 0.3812E-06, 0.5508E-06, 0.7824E-06, 0.1085E-05,
51     & 0.1462E-05/
52     data ((h11(ip,iw,1),iw=1,31),ip= 3, 3)/
53     & 0.6175E-04, 0.9849E-04, 0.1481E-03, 0.2106E-03, 0.2849E-03,
54     & 0.3708E-03, 0.4698E-03, 0.5857E-03, 0.7257E-03, 0.9006E-03,
55     & 0.1126E-02, 0.1425E-02, 0.1823E-02, 0.2353E-02, 0.3059E-02,
56     & 0.4002E-02, 0.5270E-02, 0.6984E-02, 0.9316E-02, 0.1251E-01,
57     & 0.1689E-01, 0.2292E-01, 0.3123E-01, 0.4262E-01, 0.5814E-01,
58     & 0.7921E-01, 0.1077E+00, 0.1458E+00, 0.1957E+00, 0.2595E+00,
59     & 0.3380E+00/
60     data ((h12(ip,iw,1),iw=1,31),ip= 3, 3)/
61     & -0.2011E-06, -0.3609E-06, -0.5859E-06, -0.8680E-06, -0.1195E-05,
62     & -0.1563E-05, -0.1975E-05, -0.2450E-05, -0.3024E-05, -0.3755E-05,
63     & -0.4711E-05, -0.5941E-05, -0.7455E-05, -0.9248E-05, -0.1132E-04,
64     & -0.1373E-04, -0.1659E-04, -0.2004E-04, -0.2431E-04, -0.2966E-04,
65     & -0.3653E-04, -0.4549E-04, -0.5724E-04, -0.7259E-04, -0.9265E-04,
66     & -0.1191E-03, -0.1543E-03, -0.2013E-03, -0.2633E-03, -0.3421E-03,
67     & -0.4350E-03/
68     data ((h13(ip,iw,1),iw=1,31),ip= 3, 3)/
69     & 0.5872E-09, 0.8484E-09, 0.1087E-08, 0.1259E-08, 0.1279E-08,
70     & 0.1077E-08, 0.6413E-09, -0.9334E-10, -0.1161E-08, -0.2644E-08,
71     & -0.4588E-08, -0.6709E-08, -0.8474E-08, -0.9263E-08, -0.8489E-08,
72     & -0.5553E-08, 0.1203E-09, 0.9035E-08, 0.2135E-07, 0.3689E-07,
73     & 0.5610E-07, 0.8097E-07, 0.1155E-06, 0.1649E-06, 0.2350E-06,
74     & 0.3353E-06, 0.4806E-06, 0.6858E-06, 0.9617E-06, 0.1315E-05,
75     & 0.1741E-05/
76     data ((h11(ip,iw,1),iw=1,31),ip= 4, 4)/
77     & 0.6189E-04, 0.9882E-04, 0.1488E-03, 0.2119E-03, 0.2873E-03,
78     & 0.3752E-03, 0.4776E-03, 0.5993E-03, 0.7490E-03, 0.9403E-03,
79     & 0.1192E-02, 0.1531E-02, 0.1990E-02, 0.2610E-02, 0.3446E-02,
80     & 0.4576E-02, 0.6109E-02, 0.8196E-02, 0.1105E-01, 0.1498E-01,
81     & 0.2039E-01, 0.2785E-01, 0.3809E-01, 0.5209E-01, 0.7112E-01,
82     & 0.9688E-01, 0.1315E+00, 0.1773E+00, 0.2363E+00, 0.3100E+00,
83     & 0.3976E+00/
84     data ((h12(ip,iw,1),iw=1,31),ip= 4, 4)/
85     & -0.2001E-06, -0.3592E-06, -0.5829E-06, -0.8631E-06, -0.1187E-05,
86     & -0.1549E-05, -0.1953E-05, -0.2415E-05, -0.2975E-05, -0.3694E-05,
87     & -0.4645E-05, -0.5882E-05, -0.7425E-05, -0.9279E-05, -0.1147E-04,
88     & -0.1406E-04, -0.1717E-04, -0.2100E-04, -0.2580E-04, -0.3191E-04,
89     & -0.3989E-04, -0.5042E-04, -0.6432E-04, -0.8261E-04, -0.1068E-03,
90     & -0.1389E-03, -0.1820E-03, -0.2391E-03, -0.3127E-03, -0.4021E-03,
91     & -0.5002E-03/
92     data ((h13(ip,iw,1),iw=1,31),ip= 4, 4)/
93     & 0.5838E-09, 0.8426E-09, 0.1081E-08, 0.1249E-08, 0.1267E-08,
94     & 0.1062E-08, 0.6313E-09, -0.8241E-10, -0.1094E-08, -0.2436E-08,
95     & -0.4100E-08, -0.5786E-08, -0.6992E-08, -0.7083E-08, -0.5405E-08,
96     & -0.1259E-08, 0.6099E-08, 0.1732E-07, 0.3276E-07, 0.5256E-07,
97     & 0.7756E-07, 0.1103E-06, 0.1547E-06, 0.2159E-06, 0.3016E-06,
98     & 0.4251E-06, 0.6033E-06, 0.8499E-06, 0.1175E-05, 0.1579E-05,
99     & 0.2044E-05/
100     data ((h11(ip,iw,1),iw=1,31),ip= 5, 5)/
101     & 0.6211E-04, 0.9932E-04, 0.1499E-03, 0.2140E-03, 0.2911E-03,
102     & 0.3820E-03, 0.4895E-03, 0.6196E-03, 0.7834E-03, 0.9973E-03,
103     & 0.1285E-02, 0.1678E-02, 0.2216E-02, 0.2951E-02, 0.3953E-02,
104     & 0.5319E-02, 0.7186E-02, 0.9743E-02, 0.1326E-01, 0.1811E-01,
105     & 0.2479E-01, 0.3400E-01, 0.4662E-01, 0.6379E-01, 0.8708E-01,
106     & 0.1185E+00, 0.1603E+00, 0.2147E+00, 0.2835E+00, 0.3667E+00,
107     & 0.4620E+00/
108     data ((h12(ip,iw,1),iw=1,31),ip= 5, 5)/
109     & -0.1987E-06, -0.3565E-06, -0.5784E-06, -0.8557E-06, -0.1175E-05,
110     & -0.1530E-05, -0.1923E-05, -0.2372E-05, -0.2919E-05, -0.3631E-05,
111     & -0.4587E-05, -0.5848E-05, -0.7442E-05, -0.9391E-05, -0.1173E-04,
112     & -0.1455E-04, -0.1801E-04, -0.2232E-04, -0.2779E-04, -0.3489E-04,
113     & -0.4428E-04, -0.5678E-04, -0.7333E-04, -0.9530E-04, -0.1246E-03,
114     & -0.1639E-03, -0.2164E-03, -0.2848E-03, -0.3697E-03, -0.4665E-03,
115     & -0.5646E-03/
116     data ((h13(ip,iw,1),iw=1,31),ip= 5, 5)/
117     & 0.5785E-09, 0.8338E-09, 0.1071E-08, 0.1239E-08, 0.1256E-08,
118     & 0.1057E-08, 0.6480E-09, -0.1793E-10, -0.9278E-09, -0.2051E-08,
119     & -0.3337E-08, -0.4514E-08, -0.5067E-08, -0.4328E-08, -0.1545E-08,
120     & 0.4100E-08, 0.1354E-07, 0.2762E-07, 0.4690E-07, 0.7190E-07,
121     & 0.1040E-06, 0.1459E-06, 0.2014E-06, 0.2764E-06, 0.3824E-06,
122     & 0.5359E-06, 0.7532E-06, 0.1047E-05, 0.1424E-05, 0.1873E-05,
123     & 0.2356E-05/
124     data ((h11(ip,iw,1),iw=1,31),ip= 6, 6)/
125     & 0.6246E-04, 0.1001E-03, 0.1515E-03, 0.2171E-03, 0.2970E-03,
126     & 0.3924E-03, 0.5072E-03, 0.6495E-03, 0.8329E-03, 0.1078E-02,
127     & 0.1413E-02, 0.1876E-02, 0.2516E-02, 0.3399E-02, 0.4612E-02,
128     & 0.6276E-02, 0.8562E-02, 0.1171E-01, 0.1605E-01, 0.2205E-01,
129     & 0.3032E-01, 0.4167E-01, 0.5717E-01, 0.7821E-01, 0.1067E+00,
130     & 0.1447E+00, 0.1948E+00, 0.2586E+00, 0.3372E+00, 0.4290E+00,
131     & 0.5295E+00/
132     data ((h12(ip,iw,1),iw=1,31),ip= 6, 6)/
133     & -0.1964E-06, -0.3526E-06, -0.5717E-06, -0.8451E-06, -0.1158E-05,
134     & -0.1504E-05, -0.1886E-05, -0.2322E-05, -0.2861E-05, -0.3576E-05,
135     & -0.4552E-05, -0.5856E-05, -0.7529E-05, -0.9609E-05, -0.1216E-04,
136     & -0.1528E-04, -0.1916E-04, -0.2408E-04, -0.3043E-04, -0.3880E-04,
137     & -0.4997E-04, -0.6488E-04, -0.8474E-04, -0.1113E-03, -0.1471E-03,
138     & -0.1950E-03, -0.2583E-03, -0.3384E-03, -0.4326E-03, -0.5319E-03,
139     & -0.6244E-03/
140     data ((h13(ip,iw,1),iw=1,31),ip= 6, 6)/
141     & 0.5713E-09, 0.8263E-09, 0.1060E-08, 0.1226E-08, 0.1252E-08,
142     & 0.1076E-08, 0.7149E-09, 0.1379E-09, -0.6043E-09, -0.1417E-08,
143     & -0.2241E-08, -0.2830E-08, -0.2627E-08, -0.8950E-09, 0.3231E-08,
144     & 0.1075E-07, 0.2278E-07, 0.4037E-07, 0.6439E-07, 0.9576E-07,
145     & 0.1363E-06, 0.1886E-06, 0.2567E-06, 0.3494E-06, 0.4821E-06,
146     & 0.6719E-06, 0.9343E-06, 0.1280E-05, 0.1705E-05, 0.2184E-05,
147     & 0.2651E-05/
148     data ((h11(ip,iw,1),iw=1,31),ip= 7, 7)/
149     & 0.6299E-04, 0.1013E-03, 0.1541E-03, 0.2220E-03, 0.3058E-03,
150     & 0.4078E-03, 0.5334E-03, 0.6928E-03, 0.9032E-03, 0.1190E-02,
151     & 0.1587E-02, 0.2140E-02, 0.2912E-02, 0.3982E-02, 0.5460E-02,
152     & 0.7500E-02, 0.1031E-01, 0.1420E-01, 0.1958E-01, 0.2700E-01,
153     & 0.3721E-01, 0.5118E-01, 0.7019E-01, 0.9593E-01, 0.1305E+00,
154     & 0.1763E+00, 0.2354E+00, 0.3091E+00, 0.3969E+00, 0.4952E+00,
155     & 0.5978E+00/
156     data ((h12(ip,iw,1),iw=1,31),ip= 7, 7)/
157     & -0.1932E-06, -0.3467E-06, -0.5623E-06, -0.8306E-06, -0.1136E-05,
158     & -0.1472E-05, -0.1842E-05, -0.2269E-05, -0.2807E-05, -0.3539E-05,
159     & -0.4553E-05, -0.5925E-05, -0.7710E-05, -0.9968E-05, -0.1278E-04,
160     & -0.1629E-04, -0.2073E-04, -0.2644E-04, -0.3392E-04, -0.4390E-04,
161     & -0.5727E-04, -0.7516E-04, -0.9916E-04, -0.1315E-03, -0.1752E-03,
162     & -0.2333E-03, -0.3082E-03, -0.3988E-03, -0.4982E-03, -0.5947E-03,
163     & -0.6764E-03/
164     data ((h13(ip,iw,1),iw=1,31),ip= 7, 7)/
165     & 0.5612E-09, 0.8116E-09, 0.1048E-08, 0.1222E-08, 0.1270E-08,
166     & 0.1141E-08, 0.8732E-09, 0.4336E-09, -0.6548E-10, -0.4774E-09,
167     & -0.7556E-09, -0.6577E-09, 0.4377E-09, 0.3359E-08, 0.9159E-08,
168     & 0.1901E-07, 0.3422E-07, 0.5616E-07, 0.8598E-07, 0.1251E-06,
169     & 0.1752E-06, 0.2392E-06, 0.3228E-06, 0.4389E-06, 0.6049E-06,
170     & 0.8370E-06, 0.1150E-05, 0.1547E-05, 0.2012E-05, 0.2493E-05,
171     & 0.2913E-05/
172     data ((h11(ip,iw,1),iw=1,31),ip= 8, 8)/
173     & 0.6378E-04, 0.1032E-03, 0.1579E-03, 0.2293E-03, 0.3190E-03,
174     & 0.4305E-03, 0.5712E-03, 0.7541E-03, 0.1001E-02, 0.1342E-02,
175     & 0.1819E-02, 0.2489E-02, 0.3427E-02, 0.4734E-02, 0.6548E-02,
176     & 0.9059E-02, 0.1254E-01, 0.1735E-01, 0.2401E-01, 0.3318E-01,
177     & 0.4577E-01, 0.6292E-01, 0.8620E-01, 0.1176E+00, 0.1594E+00,
178     & 0.2139E+00, 0.2827E+00, 0.3660E+00, 0.4614E+00, 0.5634E+00,
179     & 0.6649E+00/
180     data ((h12(ip,iw,1),iw=1,31),ip= 8, 8)/
181     & -0.1885E-06, -0.3385E-06, -0.5493E-06, -0.8114E-06, -0.1109E-05,
182     & -0.1436E-05, -0.1796E-05, -0.2219E-05, -0.2770E-05, -0.3535E-05,
183     & -0.4609E-05, -0.6077E-05, -0.8016E-05, -0.1051E-04, -0.1367E-04,
184     & -0.1768E-04, -0.2283E-04, -0.2955E-04, -0.3849E-04, -0.5046E-04,
185     & -0.6653E-04, -0.8813E-04, -0.1173E-03, -0.1569E-03, -0.2100E-03,
186     & -0.2794E-03, -0.3656E-03, -0.4637E-03, -0.5629E-03, -0.6512E-03,
187     & -0.7167E-03/
188     data ((h13(ip,iw,1),iw=1,31),ip= 8, 8)/
189     & 0.5477E-09, 0.8000E-09, 0.1039E-08, 0.1234E-08, 0.1331E-08,
190     & 0.1295E-08, 0.1160E-08, 0.9178E-09, 0.7535E-09, 0.8301E-09,
191     & 0.1184E-08, 0.2082E-08, 0.4253E-08, 0.8646E-08, 0.1650E-07,
192     & 0.2920E-07, 0.4834E-07, 0.7564E-07, 0.1125E-06, 0.1606E-06,
193     & 0.2216E-06, 0.2992E-06, 0.4031E-06, 0.5493E-06, 0.7549E-06,
194     & 0.1035E-05, 0.1400E-05, 0.1843E-05, 0.2327E-05, 0.2774E-05,
195     & 0.3143E-05/
196     data ((h11(ip,iw,1),iw=1,31),ip= 9, 9)/
197     & 0.6495E-04, 0.1059E-03, 0.1635E-03, 0.2400E-03, 0.3381E-03,
198     & 0.4631E-03, 0.6246E-03, 0.8394E-03, 0.1134E-02, 0.1546E-02,
199     & 0.2126E-02, 0.2944E-02, 0.4093E-02, 0.5699E-02, 0.7934E-02,
200     & 0.1104E-01, 0.1535E-01, 0.2131E-01, 0.2956E-01, 0.4089E-01,
201     & 0.5636E-01, 0.7739E-01, 0.1058E+00, 0.1439E+00, 0.1939E+00,
202     & 0.2578E+00, 0.3364E+00, 0.4283E+00, 0.5290E+00, 0.6314E+00,
203     & 0.7292E+00/
204     data ((h12(ip,iw,1),iw=1,31),ip= 9, 9)/
205     & -0.1822E-06, -0.3274E-06, -0.5325E-06, -0.7881E-06, -0.1079E-05,
206     & -0.1398E-05, -0.1754E-05, -0.2184E-05, -0.2763E-05, -0.3581E-05,
207     & -0.4739E-05, -0.6341E-05, -0.8484E-05, -0.1128E-04, -0.1490E-04,
208     & -0.1955E-04, -0.2561E-04, -0.3364E-04, -0.4438E-04, -0.5881E-04,
209     & -0.7822E-04, -0.1045E-03, -0.1401E-03, -0.1884E-03, -0.2523E-03,
210     & -0.3335E-03, -0.4289E-03, -0.5296E-03, -0.6231E-03, -0.6980E-03,
211     & -0.7406E-03/
212     data ((h13(ip,iw,1),iw=1,31),ip= 9, 9)/
213     & 0.5334E-09, 0.7859E-09, 0.1043E-08, 0.1279E-08, 0.1460E-08,
214     & 0.1560E-08, 0.1618E-08, 0.1657E-08, 0.1912E-08, 0.2569E-08,
215     & 0.3654E-08, 0.5509E-08, 0.8964E-08, 0.1518E-07, 0.2560E-07,
216     & 0.4178E-07, 0.6574E-07, 0.9958E-07, 0.1449E-06, 0.2031E-06,
217     & 0.2766E-06, 0.3718E-06, 0.5022E-06, 0.6849E-06, 0.9360E-06,
218     & 0.1268E-05, 0.1683E-05, 0.2157E-05, 0.2625E-05, 0.3020E-05,
219     & 0.3364E-05/
220     data ((h11(ip,iw,1),iw=1,31),ip=10,10)/
221     & 0.6661E-04, 0.1098E-03, 0.1716E-03, 0.2554E-03, 0.3653E-03,
222     & 0.5088E-03, 0.6986E-03, 0.9557E-03, 0.1313E-02, 0.1816E-02,
223     & 0.2527E-02, 0.3532E-02, 0.4947E-02, 0.6929E-02, 0.9694E-02,
224     & 0.1354E-01, 0.1888E-01, 0.2628E-01, 0.3647E-01, 0.5043E-01,
225     & 0.6941E-01, 0.9514E-01, 0.1297E+00, 0.1755E+00, 0.2347E+00,
226     & 0.3084E+00, 0.3962E+00, 0.4947E+00, 0.5974E+00, 0.6973E+00,
227     & 0.7898E+00/
228     data ((h12(ip,iw,1),iw=1,31),ip=10,10)/
229     & -0.1742E-06, -0.3134E-06, -0.5121E-06, -0.7619E-06, -0.1048E-05,
230     & -0.1364E-05, -0.1725E-05, -0.2177E-05, -0.2801E-05, -0.3694E-05,
231     & -0.4969E-05, -0.6748E-05, -0.9161E-05, -0.1236E-04, -0.1655E-04,
232     & -0.2203E-04, -0.2927E-04, -0.3894E-04, -0.5192E-04, -0.6936E-04,
233     & -0.9294E-04, -0.1250E-03, -0.1686E-03, -0.2271E-03, -0.3027E-03,
234     & -0.3944E-03, -0.4951E-03, -0.5928E-03, -0.6755E-03, -0.7309E-03,
235     & -0.7417E-03/
236     data ((h13(ip,iw,1),iw=1,31),ip=10,10)/
237     & 0.5179E-09, 0.7789E-09, 0.1071E-08, 0.1382E-08, 0.1690E-08,
238     & 0.1979E-08, 0.2297E-08, 0.2704E-08, 0.3466E-08, 0.4794E-08,
239     & 0.6746E-08, 0.9739E-08, 0.1481E-07, 0.2331E-07, 0.3679E-07,
240     & 0.5726E-07, 0.8716E-07, 0.1289E-06, 0.1837E-06, 0.2534E-06,
241     & 0.3424E-06, 0.4609E-06, 0.6245E-06, 0.8495E-06, 0.1151E-05,
242     & 0.1536E-05, 0.1991E-05, 0.2468E-05, 0.2891E-05, 0.3245E-05,
243     & 0.3580E-05/
244     data ((h11(ip,iw,1),iw=1,31),ip=11,11)/
245     & 0.6888E-04, 0.1151E-03, 0.1828E-03, 0.2766E-03, 0.4028E-03,
246     & 0.5713E-03, 0.7987E-03, 0.1111E-02, 0.1548E-02, 0.2167E-02,
247     & 0.3044E-02, 0.4285E-02, 0.6035E-02, 0.8490E-02, 0.1192E-01,
248     & 0.1670E-01, 0.2333E-01, 0.3249E-01, 0.4506E-01, 0.6220E-01,
249     & 0.8546E-01, 0.1168E+00, 0.1587E+00, 0.2131E+00, 0.2820E+00,
250     & 0.3653E+00, 0.4609E+00, 0.5630E+00, 0.6645E+00, 0.7599E+00,
251     & 0.8458E+00/
252     data ((h12(ip,iw,1),iw=1,31),ip=11,11)/
253     & -0.1647E-06, -0.2974E-06, -0.4900E-06, -0.7358E-06, -0.1022E-05,
254     & -0.1344E-05, -0.1721E-05, -0.2212E-05, -0.2901E-05, -0.3896E-05,
255     & -0.5327E-05, -0.7342E-05, -0.1011E-04, -0.1382E-04, -0.1875E-04,
256     & -0.2530E-04, -0.3403E-04, -0.4573E-04, -0.6145E-04, -0.8264E-04,
257     & -0.1114E-03, -0.1507E-03, -0.2039E-03, -0.2737E-03, -0.3607E-03,
258     & -0.4599E-03, -0.5604E-03, -0.6497E-03, -0.7161E-03, -0.7443E-03,
259     & -0.7133E-03/
260     data ((h13(ip,iw,1),iw=1,31),ip=11,11)/
261     & 0.5073E-09, 0.7906E-09, 0.1134E-08, 0.1560E-08, 0.2046E-08,
262     & 0.2589E-08, 0.3254E-08, 0.4107E-08, 0.5481E-08, 0.7602E-08,
263     & 0.1059E-07, 0.1501E-07, 0.2210E-07, 0.3334E-07, 0.5055E-07,
264     & 0.7629E-07, 0.1134E-06, 0.1642E-06, 0.2298E-06, 0.3133E-06,
265     & 0.4225E-06, 0.5709E-06, 0.7739E-06, 0.1047E-05, 0.1401E-05,
266     & 0.1833E-05, 0.2308E-05, 0.2753E-05, 0.3125E-05, 0.3467E-05,
267     & 0.3748E-05/
268     data ((h11(ip,iw,1),iw=1,31),ip=12,12)/
269     & 0.7179E-04, 0.1221E-03, 0.1975E-03, 0.3049E-03, 0.4529E-03,
270     & 0.6547E-03, 0.9312E-03, 0.1315E-02, 0.1855E-02, 0.2620E-02,
271     & 0.3705E-02, 0.5243E-02, 0.7414E-02, 0.1046E-01, 0.1472E-01,
272     & 0.2065E-01, 0.2888E-01, 0.4019E-01, 0.5566E-01, 0.7668E-01,
273     & 0.1051E+00, 0.1432E+00, 0.1932E+00, 0.2571E+00, 0.3358E+00,
274     & 0.4278E+00, 0.5285E+00, 0.6310E+00, 0.7289E+00, 0.8184E+00,
275     & 0.8954E+00/
276     data ((h12(ip,iw,1),iw=1,31),ip=12,12)/
277     & -0.1548E-06, -0.2808E-06, -0.4683E-06, -0.7142E-06, -0.1008E-05,
278     & -0.1347E-05, -0.1758E-05, -0.2306E-05, -0.3083E-05, -0.4214E-05,
279     & -0.5851E-05, -0.8175E-05, -0.1140E-04, -0.1577E-04, -0.2166E-04,
280     & -0.2955E-04, -0.4014E-04, -0.5434E-04, -0.7343E-04, -0.9931E-04,
281     & -0.1346E-03, -0.1826E-03, -0.2467E-03, -0.3283E-03, -0.4246E-03,
282     & -0.5264E-03, -0.6211E-03, -0.6970E-03, -0.7402E-03, -0.7316E-03,
283     & -0.6486E-03/
284     data ((h13(ip,iw,1),iw=1,31),ip=12,12)/
285     & 0.5078E-09, 0.8244E-09, 0.1255E-08, 0.1826E-08, 0.2550E-08,
286     & 0.3438E-08, 0.4532E-08, 0.5949E-08, 0.8041E-08, 0.1110E-07,
287     & 0.1534E-07, 0.2157E-07, 0.3116E-07, 0.4570E-07, 0.6747E-07,
288     & 0.9961E-07, 0.1451E-06, 0.2061E-06, 0.2843E-06, 0.3855E-06,
289     & 0.5213E-06, 0.7060E-06, 0.9544E-06, 0.1280E-05, 0.1684E-05,
290     & 0.2148E-05, 0.2609E-05, 0.3002E-05, 0.3349E-05, 0.3670E-05,
291     & 0.3780E-05/
292     data ((h11(ip,iw,1),iw=1,31),ip=13,13)/
293     & 0.7529E-04, 0.1306E-03, 0.2160E-03, 0.3410E-03, 0.5175E-03,
294     & 0.7626E-03, 0.1103E-02, 0.1577E-02, 0.2246E-02, 0.3196E-02,
295     & 0.4544E-02, 0.6455E-02, 0.9152E-02, 0.1294E-01, 0.1823E-01,
296     & 0.2560E-01, 0.3577E-01, 0.4971E-01, 0.6870E-01, 0.9443E-01,
297     & 0.1290E+00, 0.1748E+00, 0.2340E+00, 0.3078E+00, 0.3956E+00,
298     & 0.4942E+00, 0.5969E+00, 0.6970E+00, 0.7896E+00, 0.8714E+00,
299     & 0.9364E+00/
300     data ((h12(ip,iw,1),iw=1,31),ip=13,13)/
301     & -0.1461E-06, -0.2663E-06, -0.4512E-06, -0.7027E-06, -0.1014E-05,
302     & -0.1387E-05, -0.1851E-05, -0.2478E-05, -0.3373E-05, -0.4682E-05,
303     & -0.6588E-05, -0.9311E-05, -0.1311E-04, -0.1834E-04, -0.2544E-04,
304     & -0.3502E-04, -0.4789E-04, -0.6515E-04, -0.8846E-04, -0.1202E-03,
305     & -0.1635E-03, -0.2217E-03, -0.2975E-03, -0.3897E-03, -0.4913E-03,
306     & -0.5902E-03, -0.6740E-03, -0.7302E-03, -0.7415E-03, -0.6858E-03,
307     & -0.5447E-03/
308     data ((h13(ip,iw,1),iw=1,31),ip=13,13)/
309     & 0.5236E-09, 0.8873E-09, 0.1426E-08, 0.2193E-08, 0.3230E-08,
310     & 0.4555E-08, 0.6200E-08, 0.8298E-08, 0.1126E-07, 0.1544E-07,
311     & 0.2130E-07, 0.2978E-07, 0.4239E-07, 0.6096E-07, 0.8829E-07,
312     & 0.1280E-06, 0.1830E-06, 0.2555E-06, 0.3493E-06, 0.4740E-06,
313     & 0.6431E-06, 0.8701E-06, 0.1169E-05, 0.1547E-05, 0.1992E-05,
314     & 0.2460E-05, 0.2877E-05, 0.3230E-05, 0.3569E-05, 0.3782E-05,
315     & 0.3591E-05/
316     data ((h11(ip,iw,1),iw=1,31),ip=14,14)/
317     & 0.7911E-04, 0.1403E-03, 0.2378E-03, 0.3847E-03, 0.5973E-03,
318     & 0.8978E-03, 0.1319E-02, 0.1909E-02, 0.2741E-02, 0.3923E-02,
319     & 0.5600E-02, 0.7977E-02, 0.1133E-01, 0.1604E-01, 0.2262E-01,
320     & 0.3174E-01, 0.4429E-01, 0.6143E-01, 0.8469E-01, 0.1161E+00,
321     & 0.1579E+00, 0.2124E+00, 0.2813E+00, 0.3647E+00, 0.4603E+00,
322     & 0.5625E+00, 0.6641E+00, 0.7596E+00, 0.8456E+00, 0.9170E+00,
323     & 0.9670E+00/
324     data ((h12(ip,iw,1),iw=1,31),ip=14,14)/
325     & -0.1402E-06, -0.2569E-06, -0.4428E-06, -0.7076E-06, -0.1051E-05,
326     & -0.1478E-05, -0.2019E-05, -0.2752E-05, -0.3802E-05, -0.5343E-05,
327     & -0.7594E-05, -0.1082E-04, -0.1536E-04, -0.2166E-04, -0.3028E-04,
328     & -0.4195E-04, -0.5761E-04, -0.7867E-04, -0.1072E-03, -0.1462E-03,
329     & -0.1990E-03, -0.2687E-03, -0.3559E-03, -0.4558E-03, -0.5572E-03,
330     & -0.6476E-03, -0.7150E-03, -0.7439E-03, -0.7133E-03, -0.6015E-03,
331     & -0.4089E-03/
332     data ((h13(ip,iw,1),iw=1,31),ip=14,14)/
333     & 0.5531E-09, 0.9757E-09, 0.1644E-08, 0.2650E-08, 0.4074E-08,
334     & 0.5957E-08, 0.8314E-08, 0.1128E-07, 0.1528E-07, 0.2087E-07,
335     & 0.2874E-07, 0.4002E-07, 0.5631E-07, 0.7981E-07, 0.1139E-06,
336     & 0.1621E-06, 0.2275E-06, 0.3136E-06, 0.4280E-06, 0.5829E-06,
337     & 0.7917E-06, 0.1067E-05, 0.1419E-05, 0.1844E-05, 0.2310E-05,
338     & 0.2747E-05, 0.3113E-05, 0.3455E-05, 0.3739E-05, 0.3715E-05,
339     & 0.3125E-05/
340     data ((h11(ip,iw,1),iw=1,31),ip=15,15)/
341     & 0.8292E-04, 0.1503E-03, 0.2614E-03, 0.4345E-03, 0.6915E-03,
342     & 0.1061E-02, 0.1584E-02, 0.2320E-02, 0.3359E-02, 0.4831E-02,
343     & 0.6920E-02, 0.9877E-02, 0.1405E-01, 0.1990E-01, 0.2805E-01,
344     & 0.3933E-01, 0.5477E-01, 0.7579E-01, 0.1042E+00, 0.1423E+00,
345     & 0.1924E+00, 0.2564E+00, 0.3351E+00, 0.4271E+00, 0.5280E+00,
346     & 0.6306E+00, 0.7286E+00, 0.8182E+00, 0.8952E+00, 0.9530E+00,
347     & 0.9864E+00/
348     data ((h12(ip,iw,1),iw=1,31),ip=15,15)/
349     & -0.1378E-06, -0.2542E-06, -0.4461E-06, -0.7333E-06, -0.1125E-05,
350     & -0.1630E-05, -0.2281E-05, -0.3159E-05, -0.4410E-05, -0.6246E-05,
351     & -0.8933E-05, -0.1280E-04, -0.1826E-04, -0.2589E-04, -0.3639E-04,
352     & -0.5059E-04, -0.6970E-04, -0.9552E-04, -0.1307E-03, -0.1784E-03,
353     & -0.2422E-03, -0.3237E-03, -0.4203E-03, -0.5227E-03, -0.6184E-03,
354     & -0.6953E-03, -0.7395E-03, -0.7315E-03, -0.6487E-03, -0.4799E-03,
355     & -0.2625E-03/
356     data ((h13(ip,iw,1),iw=1,31),ip=15,15)/
357     & 0.5891E-09, 0.1074E-08, 0.1885E-08, 0.3167E-08, 0.5051E-08,
358     & 0.7631E-08, 0.1092E-07, 0.1500E-07, 0.2032E-07, 0.2769E-07,
359     & 0.3810E-07, 0.5279E-07, 0.7361E-07, 0.1032E-06, 0.1450E-06,
360     & 0.2026E-06, 0.2798E-06, 0.3832E-06, 0.5242E-06, 0.7159E-06,
361     & 0.9706E-06, 0.1299E-05, 0.1701E-05, 0.2159E-05, 0.2612E-05,
362     & 0.2998E-05, 0.3341E-05, 0.3661E-05, 0.3775E-05, 0.3393E-05,
363     & 0.2384E-05/
364     data ((h11(ip,iw,1),iw=1,31),ip=16,16)/
365     & 0.8637E-04, 0.1598E-03, 0.2853E-03, 0.4876E-03, 0.7970E-03,
366     & 0.1251E-02, 0.1901E-02, 0.2820E-02, 0.4118E-02, 0.5955E-02,
367     & 0.8557E-02, 0.1224E-01, 0.1742E-01, 0.2467E-01, 0.3476E-01,
368     & 0.4864E-01, 0.6759E-01, 0.9332E-01, 0.1280E+00, 0.1738E+00,
369     & 0.2330E+00, 0.3069E+00, 0.3949E+00, 0.4935E+00, 0.5964E+00,
370     & 0.6965E+00, 0.7893E+00, 0.8713E+00, 0.9363E+00, 0.9780E+00,
371     & 0.9961E+00/
372     data ((h12(ip,iw,1),iw=1,31),ip=16,16)/
373     & -0.1383E-06, -0.2577E-06, -0.4608E-06, -0.7793E-06, -0.1237E-05,
374     & -0.1850E-05, -0.2652E-05, -0.3728E-05, -0.5244E-05, -0.7451E-05,
375     & -0.1067E-04, -0.1532E-04, -0.2193E-04, -0.3119E-04, -0.4395E-04,
376     & -0.6126E-04, -0.8466E-04, -0.1164E-03, -0.1596E-03, -0.2177E-03,
377     & -0.2933E-03, -0.3855E-03, -0.4874E-03, -0.5870E-03, -0.6718E-03,
378     & -0.7290E-03, -0.7411E-03, -0.6859E-03, -0.5450E-03, -0.3353E-03,
379     & -0.1363E-03/
380     data ((h13(ip,iw,1),iw=1,31),ip=16,16)/
381     & 0.6217E-09, 0.1165E-08, 0.2116E-08, 0.3685E-08, 0.6101E-08,
382     & 0.9523E-08, 0.1400E-07, 0.1959E-07, 0.2668E-07, 0.3629E-07,
383     & 0.4982E-07, 0.6876E-07, 0.9523E-07, 0.1321E-06, 0.1825E-06,
384     & 0.2505E-06, 0.3420E-06, 0.4677E-06, 0.6416E-06, 0.8760E-06,
385     & 0.1183E-05, 0.1565E-05, 0.2010E-05, 0.2472E-05, 0.2882E-05,
386     & 0.3229E-05, 0.3564E-05, 0.3777E-05, 0.3589E-05, 0.2786E-05,
387     & 0.1487E-05/
388     data ((h11(ip,iw,1),iw=1,31),ip=17,17)/
389     & 0.8925E-04, 0.1682E-03, 0.3074E-03, 0.5403E-03, 0.9085E-03,
390     & 0.1463E-02, 0.2268E-02, 0.3416E-02, 0.5040E-02, 0.7333E-02,
391     & 0.1057E-01, 0.1515E-01, 0.2157E-01, 0.3055E-01, 0.4297E-01,
392     & 0.6001E-01, 0.8323E-01, 0.1146E+00, 0.1565E+00, 0.2111E+00,
393     & 0.2801E+00, 0.3636E+00, 0.4594E+00, 0.5618E+00, 0.6636E+00,
394     & 0.7592E+00, 0.8454E+00, 0.9169E+00, 0.9669E+00, 0.9923E+00,
395     & 0.9995E+00/
396     data ((h12(ip,iw,1),iw=1,31),ip=17,17)/
397     & -0.1405E-06, -0.2649E-06, -0.4829E-06, -0.8398E-06, -0.1379E-05,
398     & -0.2132E-05, -0.3138E-05, -0.4487E-05, -0.6353E-05, -0.9026E-05,
399     & -0.1290E-04, -0.1851E-04, -0.2650E-04, -0.3772E-04, -0.5319E-04,
400     & -0.7431E-04, -0.1031E-03, -0.1422E-03, -0.1951E-03, -0.2648E-03,
401     & -0.3519E-03, -0.4518E-03, -0.5537E-03, -0.6449E-03, -0.7133E-03,
402     & -0.7432E-03, -0.7133E-03, -0.6018E-03, -0.4092E-03, -0.1951E-03,
403     & -0.5345E-04/
404     data ((h13(ip,iw,1),iw=1,31),ip=17,17)/
405     & 0.6457E-09, 0.1235E-08, 0.2303E-08, 0.4149E-08, 0.7120E-08,
406     & 0.1152E-07, 0.1749E-07, 0.2508E-07, 0.3462E-07, 0.4718E-07,
407     & 0.6452E-07, 0.8874E-07, 0.1222E-06, 0.1675E-06, 0.2276E-06,
408     & 0.3076E-06, 0.4174E-06, 0.5714E-06, 0.7837E-06, 0.1067E-05,
409     & 0.1428E-05, 0.1859E-05, 0.2327E-05, 0.2760E-05, 0.3122E-05,
410     & 0.3458E-05, 0.3739E-05, 0.3715E-05, 0.3126E-05, 0.1942E-05,
411     & 0.6977E-06/
412     data ((h11(ip,iw,1),iw=1,31),ip=18,18)/
413     & 0.9151E-04, 0.1750E-03, 0.3265E-03, 0.5891E-03, 0.1020E-02,
414     & 0.1688E-02, 0.2679E-02, 0.4109E-02, 0.6138E-02, 0.9002E-02,
415     & 0.1304E-01, 0.1871E-01, 0.2667E-01, 0.3773E-01, 0.5299E-01,
416     & 0.7386E-01, 0.1022E+00, 0.1403E+00, 0.1905E+00, 0.2546E+00,
417     & 0.3335E+00, 0.4258E+00, 0.5269E+00, 0.6297E+00, 0.7280E+00,
418     & 0.8178E+00, 0.8950E+00, 0.9529E+00, 0.9864E+00, 0.9983E+00,
419     & 0.1000E+01/
420     data ((h12(ip,iw,1),iw=1,31),ip=18,18)/
421     & -0.1431E-06, -0.2731E-06, -0.5072E-06, -0.9057E-06, -0.1537E-05,
422     & -0.2460E-05, -0.3733E-05, -0.5449E-05, -0.7786E-05, -0.1106E-04,
423     & -0.1574E-04, -0.2249E-04, -0.3212E-04, -0.4564E-04, -0.6438E-04,
424     & -0.9019E-04, -0.1256E-03, -0.1737E-03, -0.2378E-03, -0.3196E-03,
425     & -0.4163E-03, -0.5191E-03, -0.6154E-03, -0.6931E-03, -0.7384E-03,
426     & -0.7313E-03, -0.6492E-03, -0.4805E-03, -0.2629E-03, -0.8897E-04,
427     & -0.1432E-04/
428     data ((h13(ip,iw,1),iw=1,31),ip=18,18)/
429     & 0.6607E-09, 0.1282E-08, 0.2441E-08, 0.4522E-08, 0.8027E-08,
430     & 0.1348E-07, 0.2122E-07, 0.3139E-07, 0.4435E-07, 0.6095E-07,
431     & 0.8319E-07, 0.1139E-06, 0.1557E-06, 0.2107E-06, 0.2819E-06,
432     & 0.3773E-06, 0.5107E-06, 0.6982E-06, 0.9542E-06, 0.1290E-05,
433     & 0.1703E-05, 0.2170E-05, 0.2628E-05, 0.3013E-05, 0.3352E-05,
434     & 0.3669E-05, 0.3780E-05, 0.3397E-05, 0.2386E-05, 0.1062E-05,
435     & 0.2216E-06/
436     data ((h11(ip,iw,1),iw=1,31),ip=19,19)/
437     & 0.9320E-04, 0.1803E-03, 0.3422E-03, 0.6317E-03, 0.1124E-02,
438     & 0.1915E-02, 0.3121E-02, 0.4890E-02, 0.7421E-02, 0.1100E-01,
439     & 0.1602E-01, 0.2306E-01, 0.3288E-01, 0.4647E-01, 0.6515E-01,
440     & 0.9066E-01, 0.1252E+00, 0.1710E+00, 0.2304E+00, 0.3045E+00,
441     & 0.3928E+00, 0.4918E+00, 0.5951E+00, 0.6956E+00, 0.7887E+00,
442     & 0.8709E+00, 0.9361E+00, 0.9780E+00, 0.9961E+00, 0.9999E+00,
443     & 0.1000E+01/
444     data ((h12(ip,iw,1),iw=1,31),ip=19,19)/
445     & -0.1454E-06, -0.2805E-06, -0.5296E-06, -0.9685E-06, -0.1695E-05,
446     & -0.2812E-05, -0.4412E-05, -0.6606E-05, -0.9573E-05, -0.1363E-04,
447     & -0.1932E-04, -0.2743E-04, -0.3897E-04, -0.5520E-04, -0.7787E-04,
448     & -0.1094E-03, -0.1529E-03, -0.2117E-03, -0.2880E-03, -0.3809E-03,
449     & -0.4834E-03, -0.5836E-03, -0.6692E-03, -0.7275E-03, -0.7408E-03,
450     & -0.6865E-03, -0.5459E-03, -0.3360E-03, -0.1365E-03, -0.2935E-04,
451     & -0.2173E-05/
452     data ((h13(ip,iw,1),iw=1,31),ip=19,19)/
453     & 0.6693E-09, 0.1312E-08, 0.2538E-08, 0.4802E-08, 0.8778E-08,
454     & 0.1528E-07, 0.2501E-07, 0.3836E-07, 0.5578E-07, 0.7806E-07,
455     & 0.1069E-06, 0.1456E-06, 0.1970E-06, 0.2631E-06, 0.3485E-06,
456     & 0.4642E-06, 0.6268E-06, 0.8526E-06, 0.1157E-05, 0.1545E-05,
457     & 0.2002E-05, 0.2478E-05, 0.2897E-05, 0.3245E-05, 0.3578E-05,
458     & 0.3789E-05, 0.3598E-05, 0.2792E-05, 0.1489E-05, 0.4160E-06,
459     & 0.3843E-07/
460     data ((h11(ip,iw,1),iw=1,31),ip=20,20)/
461     & 0.9443E-04, 0.1843E-03, 0.3545E-03, 0.6669E-03, 0.1217E-02,
462     & 0.2133E-02, 0.3577E-02, 0.5742E-02, 0.8880E-02, 0.1333E-01,
463     & 0.1958E-01, 0.2830E-01, 0.4039E-01, 0.5705E-01, 0.7988E-01,
464     & 0.1110E+00, 0.1526E+00, 0.2072E+00, 0.2764E+00, 0.3604E+00,
465     & 0.4567E+00, 0.5597E+00, 0.6620E+00, 0.7581E+00, 0.8447E+00,
466     & 0.9165E+00, 0.9668E+00, 0.9923E+00, 0.9995E+00, 0.1000E+01,
467     & 0.1000E+01/
468     data ((h12(ip,iw,1),iw=1,31),ip=20,20)/
469     & -0.1472E-06, -0.2866E-06, -0.5485E-06, -0.1024E-05, -0.1842E-05,
470     & -0.3160E-05, -0.5136E-05, -0.7922E-05, -0.1171E-04, -0.1682E-04,
471     & -0.2381E-04, -0.3355E-04, -0.4729E-04, -0.6673E-04, -0.9417E-04,
472     & -0.1327E-03, -0.1858E-03, -0.2564E-03, -0.3449E-03, -0.4463E-03,
473     & -0.5495E-03, -0.6420E-03, -0.7116E-03, -0.7427E-03, -0.7139E-03,
474     & -0.6031E-03, -0.4104E-03, -0.1957E-03, -0.5358E-04, -0.6176E-05,
475     & -0.1347E-06/
476     data ((h13(ip,iw,1),iw=1,31),ip=20,20)/
477     & 0.6750E-09, 0.1332E-08, 0.2602E-08, 0.5003E-08, 0.9367E-08,
478     & 0.1684E-07, 0.2863E-07, 0.4566E-07, 0.6865E-07, 0.9861E-07,
479     & 0.1368E-06, 0.1856E-06, 0.2479E-06, 0.3274E-06, 0.4315E-06,
480     & 0.5739E-06, 0.7710E-06, 0.1040E-05, 0.1394E-05, 0.1829E-05,
481     & 0.2309E-05, 0.2759E-05, 0.3131E-05, 0.3472E-05, 0.3755E-05,
482     & 0.3730E-05, 0.3138E-05, 0.1948E-05, 0.6994E-06, 0.1022E-06,
483     & 0.2459E-08/
484     data ((h11(ip,iw,1),iw=1,31),ip=21,21)/
485     & 0.9530E-04, 0.1872E-03, 0.3638E-03, 0.6949E-03, 0.1295E-02,
486     & 0.2330E-02, 0.4022E-02, 0.6633E-02, 0.1049E-01, 0.1601E-01,
487     & 0.2378E-01, 0.3456E-01, 0.4941E-01, 0.6980E-01, 0.9765E-01,
488     & 0.1353E+00, 0.1852E+00, 0.2494E+00, 0.3287E+00, 0.4216E+00,
489     & 0.5234E+00, 0.6272E+00, 0.7261E+00, 0.8166E+00, 0.8943E+00,
490     & 0.9526E+00, 0.9863E+00, 0.9983E+00, 0.1000E+01, 0.1000E+01,
491     & 0.1000E+01/
492     data ((h12(ip,iw,1),iw=1,31),ip=21,21)/
493     & -0.1487E-06, -0.2912E-06, -0.5636E-06, -0.1069E-05, -0.1969E-05,
494     & -0.3483E-05, -0.5858E-05, -0.9334E-05, -0.1416E-04, -0.2067E-04,
495     & -0.2936E-04, -0.4113E-04, -0.5750E-04, -0.8072E-04, -0.1139E-03,
496     & -0.1606E-03, -0.2246E-03, -0.3076E-03, -0.4067E-03, -0.5121E-03,
497     & -0.6110E-03, -0.6909E-03, -0.7378E-03, -0.7321E-03, -0.6509E-03,
498     & -0.4825E-03, -0.2641E-03, -0.8936E-04, -0.1436E-04, -0.5966E-06,
499     & 0.0000E+00/
500     data ((h13(ip,iw,1),iw=1,31),ip=21,21)/
501     & 0.6777E-09, 0.1344E-08, 0.2643E-08, 0.5138E-08, 0.9798E-08,
502     & 0.1809E-07, 0.3185E-07, 0.5285E-07, 0.8249E-07, 0.1222E-06,
503     & 0.1730E-06, 0.2351E-06, 0.3111E-06, 0.4078E-06, 0.5366E-06,
504     & 0.7117E-06, 0.9495E-06, 0.1266E-05, 0.1667E-05, 0.2132E-05,
505     & 0.2600E-05, 0.3001E-05, 0.3354E-05, 0.3679E-05, 0.3796E-05,
506     & 0.3414E-05, 0.2399E-05, 0.1067E-05, 0.2222E-06, 0.1075E-07,
507     & 0.0000E+00/
508     data ((h11(ip,iw,1),iw=1,31),ip=22,22)/
509     & 0.9589E-04, 0.1893E-03, 0.3706E-03, 0.7162E-03, 0.1357E-02,
510     & 0.2500E-02, 0.4434E-02, 0.7523E-02, 0.1220E-01, 0.1900E-01,
511     & 0.2860E-01, 0.4190E-01, 0.6015E-01, 0.8508E-01, 0.1189E+00,
512     & 0.1643E+00, 0.2233E+00, 0.2976E+00, 0.3865E+00, 0.4865E+00,
513     & 0.5909E+00, 0.6925E+00, 0.7866E+00, 0.8696E+00, 0.9355E+00,
514     & 0.9778E+00, 0.9961E+00, 0.9999E+00, 0.1000E+01, 0.1000E+01,
515     & 0.1000E+01/
516     data ((h12(ip,iw,1),iw=1,31),ip=22,22)/
517     & -0.1496E-06, -0.2947E-06, -0.5749E-06, -0.1105E-05, -0.2074E-05,
518     & -0.3763E-05, -0.6531E-05, -0.1076E-04, -0.1682E-04, -0.2509E-04,
519     & -0.3605E-04, -0.5049E-04, -0.7012E-04, -0.9787E-04, -0.1378E-03,
520     & -0.1939E-03, -0.2695E-03, -0.3641E-03, -0.4703E-03, -0.5750E-03,
521     & -0.6648E-03, -0.7264E-03, -0.7419E-03, -0.6889E-03, -0.5488E-03,
522     & -0.3382E-03, -0.1375E-03, -0.2951E-04, -0.2174E-05, 0.0000E+00,
523     & 0.0000E+00/
524     data ((h13(ip,iw,1),iw=1,31),ip=22,22)/
525     & 0.6798E-09, 0.1350E-08, 0.2667E-08, 0.5226E-08, 0.1010E-07,
526     & 0.1903E-07, 0.3455E-07, 0.5951E-07, 0.9658E-07, 0.1479E-06,
527     & 0.2146E-06, 0.2951E-06, 0.3903E-06, 0.5101E-06, 0.6693E-06,
528     & 0.8830E-06, 0.1168E-05, 0.1532E-05, 0.1968E-05, 0.2435E-05,
529     & 0.2859E-05, 0.3222E-05, 0.3572E-05, 0.3797E-05, 0.3615E-05,
530     & 0.2811E-05, 0.1500E-05, 0.4185E-06, 0.3850E-07, 0.0000E+00,
531     & 0.0000E+00/
532     data ((h11(ip,iw,1),iw=1,31),ip=23,23)/
533     & 0.9629E-04, 0.1907E-03, 0.3755E-03, 0.7321E-03, 0.1406E-02,
534     & 0.2639E-02, 0.4796E-02, 0.8368E-02, 0.1394E-01, 0.2221E-01,
535     & 0.3400E-01, 0.5037E-01, 0.7279E-01, 0.1033E+00, 0.1442E+00,
536     & 0.1983E+00, 0.2673E+00, 0.3516E+00, 0.4489E+00, 0.5533E+00,
537     & 0.6572E+00, 0.7547E+00, 0.8425E+00, 0.9153E+00, 0.9663E+00,
538     & 0.9922E+00, 0.9995E+00, 0.1000E+01, 0.1000E+01, 0.1000E+01,
539     & 0.1000E+01/
540     data ((h12(ip,iw,1),iw=1,31),ip=23,23)/
541     & -0.1503E-06, -0.2971E-06, -0.5832E-06, -0.1131E-05, -0.2154E-05,
542     & -0.3992E-05, -0.7122E-05, -0.1211E-04, -0.1954E-04, -0.2995E-04,
543     & -0.4380E-04, -0.6183E-04, -0.8577E-04, -0.1191E-03, -0.1668E-03,
544     & -0.2333E-03, -0.3203E-03, -0.4237E-03, -0.5324E-03, -0.6318E-03,
545     & -0.7075E-03, -0.7429E-03, -0.7168E-03, -0.6071E-03, -0.4139E-03,
546     & -0.1976E-03, -0.5410E-04, -0.6215E-05, -0.1343E-06, 0.0000E+00,
547     & 0.0000E+00/
548     data ((h13(ip,iw,1),iw=1,31),ip=23,23)/
549     & 0.6809E-09, 0.1356E-08, 0.2683E-08, 0.5287E-08, 0.1030E-07,
550     & 0.1971E-07, 0.3665E-07, 0.6528E-07, 0.1100E-06, 0.1744E-06,
551     & 0.2599E-06, 0.3650E-06, 0.4887E-06, 0.6398E-06, 0.8358E-06,
552     & 0.1095E-05, 0.1429E-05, 0.1836E-05, 0.2286E-05, 0.2716E-05,
553     & 0.3088E-05, 0.3444E-05, 0.3748E-05, 0.3740E-05, 0.3157E-05,
554     & 0.1966E-05, 0.7064E-06, 0.1030E-06, 0.2456E-08, 0.0000E+00,
555     & 0.0000E+00/
556     data ((h11(ip,iw,1),iw=1,31),ip=24,24)/
557     & 0.9655E-04, 0.1917E-03, 0.3789E-03, 0.7436E-03, 0.1442E-02,
558     & 0.2748E-02, 0.5100E-02, 0.9128E-02, 0.1563E-01, 0.2553E-01,
559     & 0.3987E-01, 0.5994E-01, 0.8746E-01, 0.1246E+00, 0.1739E+00,
560     & 0.2376E+00, 0.3170E+00, 0.4107E+00, 0.5141E+00, 0.6198E+00,
561     & 0.7208E+00, 0.8130E+00, 0.8923E+00, 0.9517E+00, 0.9860E+00,
562     & 0.9983E+00, 0.1000E+01, 0.1000E+01, 0.1000E+01, 0.1000E+01,
563     & 0.1000E+01/
564     data ((h12(ip,iw,1),iw=1,31),ip=24,24)/
565     & -0.1508E-06, -0.2989E-06, -0.5892E-06, -0.1151E-05, -0.2216E-05,
566     & -0.4175E-05, -0.7619E-05, -0.1333E-04, -0.2217E-04, -0.3497E-04,
567     & -0.5238E-04, -0.7513E-04, -0.1049E-03, -0.1455E-03, -0.2021E-03,
568     & -0.2790E-03, -0.3757E-03, -0.4839E-03, -0.5902E-03, -0.6794E-03,
569     & -0.7344E-03, -0.7341E-03, -0.6557E-03, -0.4874E-03, -0.2674E-03,
570     & -0.9059E-04, -0.1455E-04, -0.5986E-06, 0.0000E+00, 0.0000E+00,
571     & 0.0000E+00/
572     data ((h13(ip,iw,1),iw=1,31),ip=24,24)/
573     & 0.6812E-09, 0.1356E-08, 0.2693E-08, 0.5328E-08, 0.1045E-07,
574     & 0.2021E-07, 0.3826E-07, 0.6994E-07, 0.1218E-06, 0.1997E-06,
575     & 0.3069E-06, 0.4428E-06, 0.6064E-06, 0.8015E-06, 0.1043E-05,
576     & 0.1351E-05, 0.1733E-05, 0.2168E-05, 0.2598E-05, 0.2968E-05,
577     & 0.3316E-05, 0.3662E-05, 0.3801E-05, 0.3433E-05, 0.2422E-05,
578     & 0.1081E-05, 0.2256E-06, 0.1082E-07, 0.0000E+00, 0.0000E+00,
579     & 0.0000E+00/
580     data ((h11(ip,iw,1),iw=1,31),ip=25,25)/
581     & 0.9672E-04, 0.1923E-03, 0.3813E-03, 0.7518E-03, 0.1469E-02,
582     & 0.2832E-02, 0.5343E-02, 0.9779E-02, 0.1719E-01, 0.2882E-01,
583     & 0.4606E-01, 0.7051E-01, 0.1042E+00, 0.1493E+00, 0.2081E+00,
584     & 0.2824E+00, 0.3720E+00, 0.4736E+00, 0.5803E+00, 0.6844E+00,
585     & 0.7810E+00, 0.8663E+00, 0.9339E+00, 0.9772E+00, 0.9960E+00,
586     & 0.9999E+00, 0.1000E+01, 0.1000E+01, 0.1000E+01, 0.1000E+01,
587     & 0.1000E+01/
588     data ((h12(ip,iw,1),iw=1,31),ip=25,25)/
589     & -0.1511E-06, -0.3001E-06, -0.5934E-06, -0.1166E-05, -0.2263E-05,
590     & -0.4319E-05, -0.8028E-05, -0.1438E-04, -0.2460E-04, -0.3991E-04,
591     & -0.6138E-04, -0.9005E-04, -0.1278E-03, -0.1778E-03, -0.2447E-03,
592     & -0.3313E-03, -0.4342E-03, -0.5424E-03, -0.6416E-03, -0.7146E-03,
593     & -0.7399E-03, -0.6932E-03, -0.5551E-03, -0.3432E-03, -0.1398E-03,
594     & -0.3010E-04, -0.2229E-05, 0.0000E+00, 0.0000E+00, 0.0000E+00,
595     & 0.0000E+00/
596     data ((h13(ip,iw,1),iw=1,31),ip=25,25)/
597     & 0.6815E-09, 0.1358E-08, 0.2698E-08, 0.5355E-08, 0.1054E-07,
598     & 0.2056E-07, 0.3942E-07, 0.7349E-07, 0.1315E-06, 0.2226E-06,
599     & 0.3537E-06, 0.5266E-06, 0.7407E-06, 0.9958E-06, 0.1296E-05,
600     & 0.1657E-05, 0.2077E-05, 0.2512E-05, 0.2893E-05, 0.3216E-05,
601     & 0.3562E-05, 0.3811E-05, 0.3644E-05, 0.2841E-05, 0.1524E-05,
602     & 0.4276E-06, 0.3960E-07, 0.0000E+00, 0.0000E+00, 0.0000E+00,
603     & 0.0000E+00/
604     data ((h11(ip,iw,1),iw=1,31),ip=26,26)/
605     & 0.9682E-04, 0.1928E-03, 0.3829E-03, 0.7576E-03, 0.1489E-02,
606     & 0.2894E-02, 0.5533E-02, 0.1031E-01, 0.1856E-01, 0.3195E-01,
607     & 0.5237E-01, 0.8187E-01, 0.1227E+00, 0.1771E+00, 0.2468E+00,
608     & 0.3321E+00, 0.4312E+00, 0.5384E+00, 0.6455E+00, 0.7463E+00,
609     & 0.8372E+00, 0.9126E+00, 0.9652E+00, 0.9919E+00, 0.9994E+00,
610     & 0.1000E+01, 0.1000E+01, 0.1000E+01, 0.1000E+01, 0.1000E+01,
611     & 0.1000E+01/
612     data ((h12(ip,iw,1),iw=1,31),ip=26,26)/
613     & -0.1513E-06, -0.3009E-06, -0.5966E-06, -0.1176E-05, -0.2299E-05,
614     & -0.4430E-05, -0.8352E-05, -0.1526E-04, -0.2674E-04, -0.4454E-04,
615     & -0.7042E-04, -0.1062E-03, -0.1540E-03, -0.2163E-03, -0.2951E-03,
616     & -0.3899E-03, -0.4948E-03, -0.5983E-03, -0.6846E-03, -0.7332E-03,
617     & -0.7182E-03, -0.6142E-03, -0.4209E-03, -0.2014E-03, -0.5530E-04,
618     & -0.6418E-05, -0.1439E-06, 0.0000E+00, 0.0000E+00, 0.0000E+00,
619     & 0.0000E+00/
620     data ((h13(ip,iw,1),iw=1,31),ip=26,26)/
621     & 0.6817E-09, 0.1359E-08, 0.2702E-08, 0.5374E-08, 0.1061E-07,
622     & 0.2079E-07, 0.4022E-07, 0.7610E-07, 0.1392E-06, 0.2428E-06,
623     & 0.3992E-06, 0.6149E-06, 0.8893E-06, 0.1220E-05, 0.1599E-05,
624     & 0.2015E-05, 0.2453E-05, 0.2853E-05, 0.3173E-05, 0.3488E-05,
625     & 0.3792E-05, 0.3800E-05, 0.3210E-05, 0.2002E-05, 0.7234E-06,
626     & 0.1068E-06, 0.2646E-08, 0.0000E+00, 0.0000E+00, 0.0000E+00,
627     & 0.0000E+00/
628     data ((h21(ip,iw,1),iw=1,31),ip= 1, 1)/
629     & 0.3920E-05, 0.7617E-05, 0.1455E-04, 0.2706E-04, 0.4855E-04,
630     & 0.8315E-04, 0.1349E-03, 0.2063E-03, 0.2984E-03, 0.4109E-03,
631     & 0.5422E-03, 0.6896E-03, 0.8537E-03, 0.1041E-02, 0.1262E-02,
632     & 0.1534E-02, 0.1870E-02, 0.2286E-02, 0.2803E-02, 0.3444E-02,
633     & 0.4242E-02, 0.5244E-02, 0.6511E-02, 0.8138E-02, 0.1027E-01,
634     & 0.1312E-01, 0.1697E-01, 0.2222E-01, 0.2941E-01, 0.3923E-01,
635     & 0.5258E-01/
636     data ((h22(ip,iw,1),iw=1,31),ip= 1, 1)/
637     & -0.5622E-07, -0.1071E-06, -0.1983E-06, -0.3533E-06, -0.5991E-06,
638     & -0.9592E-06, -0.1444E-05, -0.2049E-05, -0.2764E-05, -0.3577E-05,
639     & -0.4469E-05, -0.5467E-05, -0.6654E-05, -0.8137E-05, -0.1002E-04,
640     & -0.1237E-04, -0.1528E-04, -0.1884E-04, -0.2310E-04, -0.2809E-04,
641     & -0.3396E-04, -0.4098E-04, -0.4960E-04, -0.6058E-04, -0.7506E-04,
642     & -0.9451E-04, -0.1207E-03, -0.1558E-03, -0.2026E-03, -0.2648E-03,
643     & -0.3468E-03/
644     data ((h23(ip,iw,1),iw=1,31),ip= 1, 1)/
645     & -0.2195E-09, -0.4031E-09, -0.7043E-09, -0.1153E-08, -0.1737E-08,
646     & -0.2395E-08, -0.3020E-08, -0.3549E-08, -0.4034E-08, -0.4421E-08,
647     & -0.4736E-08, -0.5681E-08, -0.8289E-08, -0.1287E-07, -0.1873E-07,
648     & -0.2523E-07, -0.3223E-07, -0.3902E-07, -0.4409E-07, -0.4699E-07,
649     & -0.4782E-07, -0.4705E-07, -0.4657E-07, -0.4885E-07, -0.5550E-07,
650     & -0.6619E-07, -0.7656E-07, -0.8027E-07, -0.7261E-07, -0.4983E-07,
651     & -0.1101E-07/
652     data ((h21(ip,iw,1),iw=1,31),ip= 2, 2)/
653     & 0.3920E-05, 0.7617E-05, 0.1455E-04, 0.2706E-04, 0.4856E-04,
654     & 0.8318E-04, 0.1349E-03, 0.2065E-03, 0.2986E-03, 0.4114E-03,
655     & 0.5431E-03, 0.6912E-03, 0.8566E-03, 0.1046E-02, 0.1272E-02,
656     & 0.1552E-02, 0.1902E-02, 0.2342E-02, 0.2899E-02, 0.3605E-02,
657     & 0.4501E-02, 0.5648E-02, 0.7129E-02, 0.9063E-02, 0.1163E-01,
658     & 0.1509E-01, 0.1980E-01, 0.2626E-01, 0.3510E-01, 0.4717E-01,
659     & 0.6351E-01/
660     data ((h22(ip,iw,1),iw=1,31),ip= 2, 2)/
661     & -0.5622E-07, -0.1071E-06, -0.1983E-06, -0.3534E-06, -0.5992E-06,
662     & -0.9594E-06, -0.1445E-05, -0.2050E-05, -0.2766E-05, -0.3580E-05,
663     & -0.4476E-05, -0.5479E-05, -0.6677E-05, -0.8179E-05, -0.1009E-04,
664     & -0.1251E-04, -0.1553E-04, -0.1928E-04, -0.2384E-04, -0.2930E-04,
665     & -0.3588E-04, -0.4393E-04, -0.5403E-04, -0.6714E-04, -0.8458E-04,
666     & -0.1082E-03, -0.1400E-03, -0.1829E-03, -0.2401E-03, -0.3157E-03,
667     & -0.4147E-03/
668     data ((h23(ip,iw,1),iw=1,31),ip= 2, 2)/
669     & -0.2195E-09, -0.4032E-09, -0.7046E-09, -0.1153E-08, -0.1738E-08,
670     & -0.2395E-08, -0.3021E-08, -0.3550E-08, -0.4035E-08, -0.4423E-08,
671     & -0.4740E-08, -0.5692E-08, -0.8314E-08, -0.1292E-07, -0.1882E-07,
672     & -0.2536E-07, -0.3242E-07, -0.3927E-07, -0.4449E-07, -0.4767E-07,
673     & -0.4889E-07, -0.4857E-07, -0.4860E-07, -0.5132E-07, -0.5847E-07,
674     & -0.6968E-07, -0.8037E-07, -0.8400E-07, -0.7521E-07, -0.4830E-07,
675     & -0.7562E-09/
676     data ((h21(ip,iw,1),iw=1,31),ip= 3, 3)/
677     & 0.3920E-05, 0.7617E-05, 0.1455E-04, 0.2707E-04, 0.4858E-04,
678     & 0.8322E-04, 0.1350E-03, 0.2066E-03, 0.2990E-03, 0.4122E-03,
679     & 0.5444E-03, 0.6937E-03, 0.8611E-03, 0.1054E-02, 0.1287E-02,
680     & 0.1579E-02, 0.1949E-02, 0.2424E-02, 0.3037E-02, 0.3829E-02,
681     & 0.4854E-02, 0.6190E-02, 0.7942E-02, 0.1026E-01, 0.1338E-01,
682     & 0.1761E-01, 0.2340E-01, 0.3134E-01, 0.4223E-01, 0.5703E-01,
683     & 0.7694E-01/
684     data ((h22(ip,iw,1),iw=1,31),ip= 3, 3)/
685     & -0.5622E-07, -0.1071E-06, -0.1983E-06, -0.3535E-06, -0.5994E-06,
686     & -0.9599E-06, -0.1446E-05, -0.2052E-05, -0.2769E-05, -0.3586E-05,
687     & -0.4487E-05, -0.5499E-05, -0.6712E-05, -0.8244E-05, -0.1021E-04,
688     & -0.1272E-04, -0.1591E-04, -0.1992E-04, -0.2489E-04, -0.3097E-04,
689     & -0.3845E-04, -0.4782E-04, -0.5982E-04, -0.7558E-04, -0.9674E-04,
690     & -0.1254E-03, -0.1644E-03, -0.2167E-03, -0.2863E-03, -0.3777E-03,
691     & -0.4959E-03/
692     data ((h23(ip,iw,1),iw=1,31),ip= 3, 3)/
693     & -0.2196E-09, -0.4033E-09, -0.7048E-09, -0.1154E-08, -0.1739E-08,
694     & -0.2396E-08, -0.3022E-08, -0.3551E-08, -0.4036E-08, -0.4425E-08,
695     & -0.4746E-08, -0.5710E-08, -0.8354E-08, -0.1300E-07, -0.1894E-07,
696     & -0.2554E-07, -0.3265E-07, -0.3958E-07, -0.4502E-07, -0.4859E-07,
697     & -0.5030E-07, -0.5053E-07, -0.5104E-07, -0.5427E-07, -0.6204E-07,
698     & -0.7388E-07, -0.8477E-07, -0.8760E-07, -0.7545E-07, -0.4099E-07,
699     & 0.2046E-07/
700     data ((h21(ip,iw,1),iw=1,31),ip= 4, 4)/
701     & 0.3919E-05, 0.7618E-05, 0.1455E-04, 0.2708E-04, 0.4860E-04,
702     & 0.8327E-04, 0.1352E-03, 0.2070E-03, 0.2997E-03, 0.4134E-03,
703     & 0.5466E-03, 0.6976E-03, 0.8682E-03, 0.1067E-02, 0.1310E-02,
704     & 0.1619E-02, 0.2020E-02, 0.2543E-02, 0.3232E-02, 0.4136E-02,
705     & 0.5328E-02, 0.6906E-02, 0.9004E-02, 0.1182E-01, 0.1562E-01,
706     & 0.2081E-01, 0.2794E-01, 0.3773E-01, 0.5111E-01, 0.6919E-01,
707     & 0.9329E-01/
708     data ((h22(ip,iw,1),iw=1,31),ip= 4, 4)/
709     & -0.5623E-07, -0.1071E-06, -0.1984E-06, -0.3536E-06, -0.5997E-06,
710     & -0.9606E-06, -0.1447E-05, -0.2055E-05, -0.2775E-05, -0.3596E-05,
711     & -0.4504E-05, -0.5529E-05, -0.6768E-05, -0.8345E-05, -0.1039E-04,
712     & -0.1304E-04, -0.1645E-04, -0.2082E-04, -0.2633E-04, -0.3322E-04,
713     & -0.4187E-04, -0.5292E-04, -0.6730E-04, -0.8640E-04, -0.1122E-03,
714     & -0.1472E-03, -0.1948E-03, -0.2585E-03, -0.3428E-03, -0.4523E-03,
715     & -0.5915E-03/
716     data ((h23(ip,iw,1),iw=1,31),ip= 4, 4)/
717     & -0.2196E-09, -0.4034E-09, -0.7050E-09, -0.1154E-08, -0.1740E-08,
718     & -0.2398E-08, -0.3024E-08, -0.3552E-08, -0.4037E-08, -0.4428E-08,
719     & -0.4756E-08, -0.5741E-08, -0.8418E-08, -0.1310E-07, -0.1910E-07,
720     & -0.2575E-07, -0.3293E-07, -0.3998E-07, -0.4572E-07, -0.4980E-07,
721     & -0.5211E-07, -0.5287E-07, -0.5390E-07, -0.5782E-07, -0.6650E-07,
722     & -0.7892E-07, -0.8940E-07, -0.8980E-07, -0.7119E-07, -0.2452E-07,
723     & 0.5823E-07/
724     data ((h21(ip,iw,1),iw=1,31),ip= 5, 5)/
725     & 0.3919E-05, 0.7618E-05, 0.1455E-04, 0.2709E-04, 0.4863E-04,
726     & 0.8337E-04, 0.1354E-03, 0.2075E-03, 0.3007E-03, 0.4152E-03,
727     & 0.5500E-03, 0.7038E-03, 0.8793E-03, 0.1086E-02, 0.1345E-02,
728     & 0.1680E-02, 0.2123E-02, 0.2712E-02, 0.3500E-02, 0.4552E-02,
729     & 0.5958E-02, 0.7844E-02, 0.1038E-01, 0.1381E-01, 0.1847E-01,
730     & 0.2487E-01, 0.3366E-01, 0.4572E-01, 0.6209E-01, 0.8406E-01,
731     & 0.1130E+00/
732     data ((h22(ip,iw,1),iw=1,31),ip= 5, 5)/
733     & -0.5623E-07, -0.1071E-06, -0.1985E-06, -0.3538E-06, -0.6002E-06,
734     & -0.9618E-06, -0.1450E-05, -0.2059E-05, -0.2783E-05, -0.3611E-05,
735     & -0.4531E-05, -0.5577E-05, -0.6855E-05, -0.8499E-05, -0.1066E-04,
736     & -0.1351E-04, -0.1723E-04, -0.2207E-04, -0.2829E-04, -0.3621E-04,
737     & -0.4636E-04, -0.5954E-04, -0.7690E-04, -0.1002E-03, -0.1317E-03,
738     & -0.1746E-03, -0.2326E-03, -0.3099E-03, -0.4111E-03, -0.5407E-03,
739     & -0.7020E-03/
740     data ((h23(ip,iw,1),iw=1,31),ip= 5, 5)/
741     & -0.2197E-09, -0.4037E-09, -0.7054E-09, -0.1155E-08, -0.1741E-08,
742     & -0.2401E-08, -0.3027E-08, -0.3553E-08, -0.4039E-08, -0.4431E-08,
743     & -0.4775E-08, -0.5784E-08, -0.8506E-08, -0.1326E-07, -0.1931E-07,
744     & -0.2600E-07, -0.3324E-07, -0.4048E-07, -0.4666E-07, -0.5137E-07,
745     & -0.5428E-07, -0.5558E-07, -0.5730E-07, -0.6228E-07, -0.7197E-07,
746     & -0.8455E-07, -0.9347E-07, -0.8867E-07, -0.5945E-07, 0.5512E-08,
747     & 0.1209E-06/
748     data ((h21(ip,iw,1),iw=1,31),ip= 6, 6)/
749     & 0.3919E-05, 0.7619E-05, 0.1456E-04, 0.2710E-04, 0.4868E-04,
750     & 0.8351E-04, 0.1357E-03, 0.2082E-03, 0.3022E-03, 0.4181E-03,
751     & 0.5554E-03, 0.7134E-03, 0.8963E-03, 0.1117E-02, 0.1397E-02,
752     & 0.1770E-02, 0.2270E-02, 0.2947E-02, 0.3865E-02, 0.5107E-02,
753     & 0.6787E-02, 0.9062E-02, 0.1215E-01, 0.1634E-01, 0.2209E-01,
754     & 0.2999E-01, 0.4083E-01, 0.5563E-01, 0.7559E-01, 0.1021E+00,
755     & 0.1364E+00/
756     data ((h22(ip,iw,1),iw=1,31),ip= 6, 6)/
757     & -0.5624E-07, -0.1072E-06, -0.1986E-06, -0.3541E-06, -0.6010E-06,
758     & -0.9636E-06, -0.1453E-05, -0.2067E-05, -0.2796E-05, -0.3634E-05,
759     & -0.4572E-05, -0.5652E-05, -0.6987E-05, -0.8733E-05, -0.1107E-04,
760     & -0.1418E-04, -0.1832E-04, -0.2378E-04, -0.3092E-04, -0.4017E-04,
761     & -0.5221E-04, -0.6806E-04, -0.8916E-04, -0.1176E-03, -0.1562E-03,
762     & -0.2087E-03, -0.2793E-03, -0.3724E-03, -0.4928E-03, -0.6440E-03,
763     & -0.8270E-03/
764     data ((h23(ip,iw,1),iw=1,31),ip= 6, 6)/
765     & -0.2198E-09, -0.4040E-09, -0.7061E-09, -0.1156E-08, -0.1744E-08,
766     & -0.2405E-08, -0.3032E-08, -0.3556E-08, -0.4040E-08, -0.4444E-08,
767     & -0.4800E-08, -0.5848E-08, -0.8640E-08, -0.1346E-07, -0.1957E-07,
768     & -0.2627E-07, -0.3357E-07, -0.4114E-07, -0.4793E-07, -0.5330E-07,
769     & -0.5676E-07, -0.5873E-07, -0.6152E-07, -0.6783E-07, -0.7834E-07,
770     & -0.9023E-07, -0.9530E-07, -0.8162E-07, -0.3634E-07, 0.5638E-07,
771     & 0.2189E-06/
772     data ((h21(ip,iw,1),iw=1,31),ip= 7, 7)/
773     & 0.3919E-05, 0.7620E-05, 0.1457E-04, 0.2713E-04, 0.4877E-04,
774     & 0.8374E-04, 0.1363E-03, 0.2095E-03, 0.3047E-03, 0.4227E-03,
775     & 0.5637E-03, 0.7282E-03, 0.9224E-03, 0.1162E-02, 0.1475E-02,
776     & 0.1898E-02, 0.2475E-02, 0.3267E-02, 0.4354E-02, 0.5839E-02,
777     & 0.7866E-02, 0.1063E-01, 0.1440E-01, 0.1957E-01, 0.2666E-01,
778     & 0.3641E-01, 0.4975E-01, 0.6784E-01, 0.9201E-01, 0.1236E+00,
779     & 0.1639E+00/
780     data ((h22(ip,iw,1),iw=1,31),ip= 7, 7)/
781     & -0.5626E-07, -0.1072E-06, -0.1987E-06, -0.3545E-06, -0.6022E-06,
782     & -0.9665E-06, -0.1460E-05, -0.2078E-05, -0.2817E-05, -0.3671E-05,
783     & -0.4637E-05, -0.5767E-05, -0.7188E-05, -0.9080E-05, -0.1165E-04,
784     & -0.1513E-04, -0.1981E-04, -0.2609E-04, -0.3441E-04, -0.4534E-04,
785     & -0.5978E-04, -0.7897E-04, -0.1047E-03, -0.1396E-03, -0.1870E-03,
786     & -0.2510E-03, -0.3363E-03, -0.4475E-03, -0.5888E-03, -0.7621E-03,
787     & -0.9647E-03/
788     data ((h23(ip,iw,1),iw=1,31),ip= 7, 7)/
789     & -0.2200E-09, -0.4045E-09, -0.7071E-09, -0.1159E-08, -0.1748E-08,
790     & -0.2411E-08, -0.3040E-08, -0.3561E-08, -0.4046E-08, -0.4455E-08,
791     & -0.4839E-08, -0.5941E-08, -0.8815E-08, -0.1371E-07, -0.1983E-07,
792     & -0.2652E-07, -0.3400E-07, -0.4207E-07, -0.4955E-07, -0.5554E-07,
793     & -0.5966E-07, -0.6261E-07, -0.6688E-07, -0.7454E-07, -0.8521E-07,
794     & -0.9470E-07, -0.9275E-07, -0.6525E-07, 0.3686E-08, 0.1371E-06,
795     & 0.3623E-06/
796     data ((h21(ip,iw,1),iw=1,31),ip= 8, 8)/
797     & 0.3919E-05, 0.7622E-05, 0.1458E-04, 0.2717E-04, 0.4890E-04,
798     & 0.8410E-04, 0.1372E-03, 0.2114E-03, 0.3085E-03, 0.4298E-03,
799     & 0.5765E-03, 0.7508E-03, 0.9618E-03, 0.1229E-02, 0.1586E-02,
800     & 0.2077E-02, 0.2757E-02, 0.3697E-02, 0.5000E-02, 0.6794E-02,
801     & 0.9260E-02, 0.1264E-01, 0.1728E-01, 0.2365E-01, 0.3242E-01,
802     & 0.4444E-01, 0.6080E-01, 0.8278E-01, 0.1118E+00, 0.1491E+00,
803     & 0.1956E+00/
804     data ((h22(ip,iw,1),iw=1,31),ip= 8, 8)/
805     & -0.5628E-07, -0.1073E-06, -0.1990E-06, -0.3553E-06, -0.6042E-06,
806     & -0.9710E-06, -0.1469E-05, -0.2096E-05, -0.2849E-05, -0.3728E-05,
807     & -0.4738E-05, -0.5942E-05, -0.7490E-05, -0.9586E-05, -0.1247E-04,
808     & -0.1644E-04, -0.2184E-04, -0.2916E-04, -0.3898E-04, -0.5205E-04,
809     & -0.6948E-04, -0.9285E-04, -0.1244E-03, -0.1672E-03, -0.2251E-03,
810     & -0.3028E-03, -0.4051E-03, -0.5365E-03, -0.6998E-03, -0.8940E-03,
811     & -0.1112E-02/
812     data ((h23(ip,iw,1),iw=1,31),ip= 8, 8)/
813     & -0.2204E-09, -0.4052E-09, -0.7088E-09, -0.1162E-08, -0.1755E-08,
814     & -0.2422E-08, -0.3053E-08, -0.3572E-08, -0.4052E-08, -0.4474E-08,
815     & -0.4898E-08, -0.6082E-08, -0.9046E-08, -0.1400E-07, -0.2009E-07,
816     & -0.2683E-07, -0.3463E-07, -0.4334E-07, -0.5153E-07, -0.5811E-07,
817     & -0.6305E-07, -0.6749E-07, -0.7346E-07, -0.8208E-07, -0.9173E-07,
818     & -0.9603E-07, -0.8264E-07, -0.3505E-07, 0.6878E-07, 0.2586E-06,
819     & 0.5530E-06/
820     data ((h21(ip,iw,1),iw=1,31),ip= 9, 9)/
821     & 0.3919E-05, 0.7625E-05, 0.1459E-04, 0.2723E-04, 0.4910E-04,
822     & 0.8465E-04, 0.1385E-03, 0.2143E-03, 0.3143E-03, 0.4407E-03,
823     & 0.5960E-03, 0.7850E-03, 0.1020E-02, 0.1326E-02, 0.1744E-02,
824     & 0.2324E-02, 0.3135E-02, 0.4267E-02, 0.5845E-02, 0.8031E-02,
825     & 0.1105E-01, 0.1520E-01, 0.2093E-01, 0.2880E-01, 0.3962E-01,
826     & 0.5440E-01, 0.7435E-01, 0.1009E+00, 0.1353E+00, 0.1787E+00,
827     & 0.2317E+00/
828     data ((h22(ip,iw,1),iw=1,31),ip= 9, 9)/
829     & -0.5630E-07, -0.1074E-06, -0.1994E-06, -0.3564E-06, -0.6072E-06,
830     & -0.9779E-06, -0.1484E-05, -0.2124E-05, -0.2900E-05, -0.3817E-05,
831     & -0.4891E-05, -0.6205E-05, -0.7931E-05, -0.1031E-04, -0.1362E-04,
832     & -0.1821E-04, -0.2454E-04, -0.3320E-04, -0.4493E-04, -0.6068E-04,
833     & -0.8186E-04, -0.1104E-03, -0.1491E-03, -0.2016E-03, -0.2722E-03,
834     & -0.3658E-03, -0.4873E-03, -0.6404E-03, -0.8253E-03, -0.1037E-02,
835     & -0.1267E-02/
836     data ((h23(ip,iw,1),iw=1,31),ip= 9, 9)/
837     & -0.2207E-09, -0.4061E-09, -0.7117E-09, -0.1169E-08, -0.1767E-08,
838     & -0.2439E-08, -0.3074E-08, -0.3588E-08, -0.4062E-08, -0.4510E-08,
839     & -0.4983E-08, -0.6261E-08, -0.9324E-08, -0.1430E-07, -0.2036E-07,
840     & -0.2725E-07, -0.3561E-07, -0.4505E-07, -0.5384E-07, -0.6111E-07,
841     & -0.6731E-07, -0.7355E-07, -0.8112E-07, -0.8978E-07, -0.9616E-07,
842     & -0.9157E-07, -0.6114E-07, 0.1622E-07, 0.1694E-06, 0.4277E-06,
843     & 0.7751E-06/
844     data ((h21(ip,iw,1),iw=1,31),ip=10,10)/
845     & 0.3919E-05, 0.7629E-05, 0.1462E-04, 0.2733E-04, 0.4940E-04,
846     & 0.8549E-04, 0.1406E-03, 0.2188E-03, 0.3232E-03, 0.4572E-03,
847     & 0.6253E-03, 0.8354E-03, 0.1105E-02, 0.1464E-02, 0.1960E-02,
848     & 0.2657E-02, 0.3637E-02, 0.5014E-02, 0.6942E-02, 0.9622E-02,
849     & 0.1333E-01, 0.1846E-01, 0.2553E-01, 0.3526E-01, 0.4859E-01,
850     & 0.6667E-01, 0.9084E-01, 0.1225E+00, 0.1629E+00, 0.2127E+00,
851     & 0.2721E+00/
852     data ((h22(ip,iw,1),iw=1,31),ip=10,10)/
853     & -0.5636E-07, -0.1076E-06, -0.2000E-06, -0.3582E-06, -0.6119E-06,
854     & -0.9888E-06, -0.1507E-05, -0.2168E-05, -0.2978E-05, -0.3952E-05,
855     & -0.5122E-05, -0.6592E-05, -0.8565E-05, -0.1132E-04, -0.1518E-04,
856     & -0.2060E-04, -0.2811E-04, -0.3848E-04, -0.5261E-04, -0.7173E-04,
857     & -0.9758E-04, -0.1326E-03, -0.1801E-03, -0.2442E-03, -0.3296E-03,
858     & -0.4415E-03, -0.5840E-03, -0.7591E-03, -0.9636E-03, -0.1189E-02,
859     & -0.1427E-02/
860     data ((h23(ip,iw,1),iw=1,31),ip=10,10)/
861     & -0.2214E-09, -0.4080E-09, -0.7156E-09, -0.1178E-08, -0.1784E-08,
862     & -0.2466E-08, -0.3105E-08, -0.3617E-08, -0.4087E-08, -0.4563E-08,
863     & -0.5110E-08, -0.6492E-08, -0.9643E-08, -0.1461E-07, -0.2069E-07,
864     & -0.2796E-07, -0.3702E-07, -0.4717E-07, -0.5662E-07, -0.6484E-07,
865     & -0.7271E-07, -0.8079E-07, -0.8928E-07, -0.9634E-07, -0.9625E-07,
866     & -0.7776E-07, -0.2242E-07, 0.9745E-07, 0.3152E-06, 0.6388E-06,
867     & 0.9992E-06/
868     data ((h21(ip,iw,1),iw=1,31),ip=11,11)/
869     & 0.3919E-05, 0.7639E-05, 0.1466E-04, 0.2748E-04, 0.4986E-04,
870     & 0.8675E-04, 0.1437E-03, 0.2255E-03, 0.3365E-03, 0.4816E-03,
871     & 0.6682E-03, 0.9082E-03, 0.1224E-02, 0.1653E-02, 0.2253E-02,
872     & 0.3099E-02, 0.4296E-02, 0.5984E-02, 0.8352E-02, 0.1165E-01,
873     & 0.1623E-01, 0.2257E-01, 0.3132E-01, 0.4333E-01, 0.5968E-01,
874     & 0.8166E-01, 0.1107E+00, 0.1481E+00, 0.1947E+00, 0.2509E+00,
875     & 0.3170E+00/
876     data ((h22(ip,iw,1),iw=1,31),ip=11,11)/
877     & -0.5645E-07, -0.1079E-06, -0.2009E-06, -0.3610E-06, -0.6190E-06,
878     & -0.1005E-05, -0.1541E-05, -0.2235E-05, -0.3096E-05, -0.4155E-05,
879     & -0.5463E-05, -0.7150E-05, -0.9453E-05, -0.1269E-04, -0.1728E-04,
880     & -0.2375E-04, -0.3279E-04, -0.4531E-04, -0.6246E-04, -0.8579E-04,
881     & -0.1175E-03, -0.1604E-03, -0.2186E-03, -0.2964E-03, -0.3990E-03,
882     & -0.5311E-03, -0.6957E-03, -0.8916E-03, -0.1112E-02, -0.1346E-02,
883     & -0.1590E-02/
884     data ((h23(ip,iw,1),iw=1,31),ip=11,11)/
885     & -0.2225E-09, -0.4104E-09, -0.7217E-09, -0.1192E-08, -0.1811E-08,
886     & -0.2509E-08, -0.3155E-08, -0.3668E-08, -0.4138E-08, -0.4650E-08,
887     & -0.5296E-08, -0.6785E-08, -0.9991E-08, -0.1494E-07, -0.2122E-07,
888     & -0.2911E-07, -0.3895E-07, -0.4979E-07, -0.6002E-07, -0.6964E-07,
889     & -0.7935E-07, -0.8887E-07, -0.9699E-07, -0.9967E-07, -0.8883E-07,
890     & -0.4988E-07, 0.4156E-07, 0.2197E-06, 0.5081E-06, 0.8667E-06,
891     & 0.1212E-05/
892     data ((h21(ip,iw,1),iw=1,31),ip=12,12)/
893     & 0.3920E-05, 0.7649E-05, 0.1472E-04, 0.2768E-04, 0.5051E-04,
894     & 0.8856E-04, 0.1481E-03, 0.2352E-03, 0.3557E-03, 0.5169E-03,
895     & 0.7295E-03, 0.1010E-02, 0.1388E-02, 0.1909E-02, 0.2640E-02,
896     & 0.3678E-02, 0.5151E-02, 0.7231E-02, 0.1015E-01, 0.1423E-01,
897     & 0.1990E-01, 0.2775E-01, 0.3856E-01, 0.5333E-01, 0.7328E-01,
898     & 0.9980E-01, 0.1343E+00, 0.1778E+00, 0.2308E+00, 0.2936E+00,
899     & 0.3667E+00/
900     data ((h22(ip,iw,1),iw=1,31),ip=12,12)/
901     & -0.5658E-07, -0.1083E-06, -0.2023E-06, -0.3650E-06, -0.6295E-06,
902     & -0.1030E-05, -0.1593E-05, -0.2334E-05, -0.3273E-05, -0.4455E-05,
903     & -0.5955E-05, -0.7935E-05, -0.1067E-04, -0.1455E-04, -0.2007E-04,
904     & -0.2788E-04, -0.3885E-04, -0.5409E-04, -0.7503E-04, -0.1036E-03,
905     & -0.1425E-03, -0.1951E-03, -0.2660E-03, -0.3598E-03, -0.4817E-03,
906     & -0.6355E-03, -0.8218E-03, -0.1035E-02, -0.1267E-02, -0.1508E-02,
907     & -0.1755E-02/
908     data ((h23(ip,iw,1),iw=1,31),ip=12,12)/
909     & -0.2241E-09, -0.4142E-09, -0.7312E-09, -0.1214E-08, -0.1854E-08,
910     & -0.2578E-08, -0.3250E-08, -0.3765E-08, -0.4238E-08, -0.4809E-08,
911     & -0.5553E-08, -0.7132E-08, -0.1035E-07, -0.1538E-07, -0.2211E-07,
912     & -0.3079E-07, -0.4142E-07, -0.5303E-07, -0.6437E-07, -0.7566E-07,
913     & -0.8703E-07, -0.9700E-07, -0.1025E-06, -0.9718E-07, -0.6973E-07,
914     & -0.5265E-09, 0.1413E-06, 0.3895E-06, 0.7321E-06, 0.1085E-05,
915     & 0.1449E-05/
916     data ((h21(ip,iw,1),iw=1,31),ip=13,13)/
917     & 0.3920E-05, 0.7668E-05, 0.1480E-04, 0.2798E-04, 0.5143E-04,
918     & 0.9106E-04, 0.1542E-03, 0.2488E-03, 0.3827E-03, 0.5661E-03,
919     & 0.8143E-03, 0.1150E-02, 0.1608E-02, 0.2246E-02, 0.3147E-02,
920     & 0.4428E-02, 0.6248E-02, 0.8823E-02, 0.1244E-01, 0.1750E-01,
921     & 0.2452E-01, 0.3424E-01, 0.4756E-01, 0.6564E-01, 0.8981E-01,
922     & 0.1215E+00, 0.1619E+00, 0.2118E+00, 0.2713E+00, 0.3409E+00,
923     & 0.4215E+00/
924     data ((h22(ip,iw,1),iw=1,31),ip=13,13)/
925     & -0.5677E-07, -0.1090E-06, -0.2043E-06, -0.3709E-06, -0.6448E-06,
926     & -0.1066E-05, -0.1669E-05, -0.2480E-05, -0.3532E-05, -0.4887E-05,
927     & -0.6650E-05, -0.9017E-05, -0.1232E-04, -0.1701E-04, -0.2372E-04,
928     & -0.3325E-04, -0.4664E-04, -0.6528E-04, -0.9095E-04, -0.1260E-03,
929     & -0.1737E-03, -0.2381E-03, -0.3238E-03, -0.4359E-03, -0.5789E-03,
930     & -0.7549E-03, -0.9607E-03, -0.1188E-02, -0.1427E-02, -0.1674E-02,
931     & -0.1914E-02/
932     data ((h23(ip,iw,1),iw=1,31),ip=13,13)/
933     & -0.2262E-09, -0.4191E-09, -0.7441E-09, -0.1244E-08, -0.1916E-08,
934     & -0.2687E-08, -0.3407E-08, -0.3947E-08, -0.4432E-08, -0.5059E-08,
935     & -0.5896E-08, -0.7538E-08, -0.1079E-07, -0.1606E-07, -0.2346E-07,
936     & -0.3305E-07, -0.4459E-07, -0.5720E-07, -0.6999E-07, -0.8300E-07,
937     & -0.9536E-07, -0.1039E-06, -0.1036E-06, -0.8526E-07, -0.3316E-07,
938     & 0.7909E-07, 0.2865E-06, 0.6013E-06, 0.9580E-06, 0.1303E-05,
939     & 0.1792E-05/
940     data ((h21(ip,iw,1),iw=1,31),ip=14,14)/
941     & 0.3923E-05, 0.7691E-05, 0.1491E-04, 0.2836E-04, 0.5261E-04,
942     & 0.9432E-04, 0.1623E-03, 0.2667E-03, 0.4187E-03, 0.6323E-03,
943     & 0.9278E-03, 0.1334E-02, 0.1897E-02, 0.2685E-02, 0.3800E-02,
944     & 0.5388E-02, 0.7646E-02, 0.1084E-01, 0.1533E-01, 0.2160E-01,
945     & 0.3031E-01, 0.4231E-01, 0.5866E-01, 0.8064E-01, 0.1097E+00,
946     & 0.1471E+00, 0.1938E+00, 0.2501E+00, 0.3163E+00, 0.3932E+00,
947     & 0.4810E+00/
948     data ((h22(ip,iw,1),iw=1,31),ip=14,14)/
949     & -0.5703E-07, -0.1098E-06, -0.2071E-06, -0.3788E-06, -0.6657E-06,
950     & -0.1116E-05, -0.1776E-05, -0.2687E-05, -0.3898E-05, -0.5493E-05,
951     & -0.7607E-05, -0.1048E-04, -0.1450E-04, -0.2024E-04, -0.2845E-04,
952     & -0.4014E-04, -0.5658E-04, -0.7947E-04, -0.1110E-03, -0.1541E-03,
953     & -0.2125E-03, -0.2907E-03, -0.3936E-03, -0.5261E-03, -0.6912E-03,
954     & -0.8880E-03, -0.1109E-02, -0.1346E-02, -0.1591E-02, -0.1837E-02,
955     & -0.2054E-02/
956     data ((h23(ip,iw,1),iw=1,31),ip=14,14)/
957     & -0.2288E-09, -0.4265E-09, -0.7627E-09, -0.1289E-08, -0.2011E-08,
958     & -0.2861E-08, -0.3673E-08, -0.4288E-08, -0.4812E-08, -0.5475E-08,
959     & -0.6365E-08, -0.8052E-08, -0.1142E-07, -0.1711E-07, -0.2533E-07,
960     & -0.3597E-07, -0.4862E-07, -0.6259E-07, -0.7708E-07, -0.9150E-07,
961     & -0.1035E-06, -0.1079E-06, -0.9742E-07, -0.5928E-07, 0.2892E-07,
962     & 0.1998E-06, 0.4789E-06, 0.8298E-06, 0.1172E-05, 0.1583E-05,
963     & 0.2329E-05/
964     data ((h21(ip,iw,1),iw=1,31),ip=15,15)/
965     & 0.3928E-05, 0.7724E-05, 0.1504E-04, 0.2883E-04, 0.5403E-04,
966     & 0.9826E-04, 0.1722E-03, 0.2891E-03, 0.4644E-03, 0.7172E-03,
967     & 0.1074E-02, 0.1572E-02, 0.2267E-02, 0.3245E-02, 0.4632E-02,
968     & 0.6606E-02, 0.9411E-02, 0.1338E-01, 0.1896E-01, 0.2674E-01,
969     & 0.3751E-01, 0.5227E-01, 0.7222E-01, 0.9875E-01, 0.1332E+00,
970     & 0.1768E+00, 0.2299E+00, 0.2927E+00, 0.3660E+00, 0.4504E+00,
971     & 0.5444E+00/
972     data ((h22(ip,iw,1),iw=1,31),ip=15,15)/
973     & -0.5736E-07, -0.1109E-06, -0.2106E-06, -0.3890E-06, -0.6928E-06,
974     & -0.1181E-05, -0.1917E-05, -0.2965E-05, -0.4396E-05, -0.6315E-05,
975     & -0.8891E-05, -0.1242E-04, -0.1736E-04, -0.2442E-04, -0.3454E-04,
976     & -0.4892E-04, -0.6916E-04, -0.9735E-04, -0.1362E-03, -0.1891E-03,
977     & -0.2602E-03, -0.3545E-03, -0.4768E-03, -0.6310E-03, -0.8179E-03,
978     & -0.1032E-02, -0.1265E-02, -0.1508E-02, -0.1757E-02, -0.1989E-02,
979     & -0.2159E-02/
980     data ((h23(ip,iw,1),iw=1,31),ip=15,15)/
981     & -0.2321E-09, -0.4350E-09, -0.7861E-09, -0.1347E-08, -0.2144E-08,
982     & -0.3120E-08, -0.4107E-08, -0.4892E-08, -0.5511E-08, -0.6164E-08,
983     & -0.7054E-08, -0.8811E-08, -0.1240E-07, -0.1862E-07, -0.2773E-07,
984     & -0.3957E-07, -0.5371E-07, -0.6939E-07, -0.8564E-07, -0.1006E-06,
985     & -0.1100E-06, -0.1066E-06, -0.8018E-07, -0.1228E-07, 0.1263E-06,
986     & 0.3678E-06, 0.7022E-06, 0.1049E-05, 0.1411E-05, 0.2015E-05,
987     & 0.3099E-05/
988     data ((h21(ip,iw,1),iw=1,31),ip=16,16)/
989     & 0.2064E-05, 0.4104E-05, 0.8141E-05, 0.1607E-04, 0.3145E-04,
990     & 0.6080E-04, 0.1153E-03, 0.2129E-03, 0.3802E-03, 0.6538E-03,
991     & 0.1078E-02, 0.1699E-02, 0.2576E-02, 0.3805E-02, 0.5540E-02,
992     & 0.8004E-02, 0.1149E-01, 0.1640E-01, 0.2329E-01, 0.3290E-01,
993     & 0.4622E-01, 0.6441E-01, 0.8888E-01, 0.1210E+00, 0.1622E+00,
994     & 0.2132E+00, 0.2745E+00, 0.3470E+00, 0.4317E+00, 0.5286E+00,
995     & 0.6335E+00/
996     data ((h22(ip,iw,1),iw=1,31),ip=16,16)/
997     & -0.3122E-07, -0.6175E-07, -0.1214E-06, -0.2361E-06, -0.4518E-06,
998     & -0.8438E-06, -0.1524E-05, -0.2643E-05, -0.4380E-05, -0.6922E-05,
999     & -0.1042E-04, -0.1504E-04, -0.2125E-04, -0.2987E-04, -0.4200E-04,
1000     & -0.5923E-04, -0.8383E-04, -0.1186E-03, -0.1670E-03, -0.2328E-03,
1001     & -0.3204E-03, -0.4347E-03, -0.5802E-03, -0.7595E-03, -0.9703E-03,
1002     & -0.1205E-02, -0.1457E-02, -0.1720E-02, -0.1980E-02, -0.2191E-02,
1003     & -0.2290E-02/
1004     data ((h23(ip,iw,1),iw=1,31),ip=16,16)/
1005     & -0.1376E-09, -0.2699E-09, -0.5220E-09, -0.9897E-09, -0.1819E-08,
1006     & -0.3186E-08, -0.5224E-08, -0.7896E-08, -0.1090E-07, -0.1349E-07,
1007     & -0.1443E-07, -0.1374E-07, -0.1386E-07, -0.1673E-07, -0.2237E-07,
1008     & -0.3248E-07, -0.5050E-07, -0.7743E-07, -0.1097E-06, -0.1369E-06,
1009     & -0.1463E-06, -0.1268E-06, -0.6424E-07, 0.5941E-07, 0.2742E-06,
1010     & 0.5924E-06, 0.9445E-06, 0.1286E-05, 0.1819E-05, 0.2867E-05,
1011     & 0.4527E-05/
1012     data ((h21(ip,iw,1),iw=1,31),ip=17,17)/
1013     & 0.2452E-05, 0.4881E-05, 0.9693E-05, 0.1918E-04, 0.3768E-04,
1014     & 0.7322E-04, 0.1399E-03, 0.2607E-03, 0.4694E-03, 0.8102E-03,
1015     & 0.1334E-02, 0.2098E-02, 0.3180E-02, 0.4710E-02, 0.6879E-02,
1016     & 0.9952E-02, 0.1429E-01, 0.2038E-01, 0.2894E-01, 0.4085E-01,
1017     & 0.5722E-01, 0.7939E-01, 0.1088E+00, 0.1468E+00, 0.1945E+00,
1018     & 0.2524E+00, 0.3210E+00, 0.4017E+00, 0.4948E+00, 0.5978E+00,
1019     & 0.7040E+00/
1020     data ((h22(ip,iw,1),iw=1,31),ip=17,17)/
1021     & -0.3547E-07, -0.7029E-07, -0.1386E-06, -0.2709E-06, -0.5218E-06,
1022     & -0.9840E-06, -0.1799E-05, -0.3156E-05, -0.5272E-05, -0.8357E-05,
1023     & -0.1260E-04, -0.1827E-04, -0.2598E-04, -0.3667E-04, -0.5169E-04,
1024     & -0.7312E-04, -0.1037E-03, -0.1467E-03, -0.2060E-03, -0.2857E-03,
1025     & -0.3907E-03, -0.5257E-03, -0.6940E-03, -0.8954E-03, -0.1124E-02,
1026     & -0.1371E-02, -0.1632E-02, -0.1897E-02, -0.2131E-02, -0.2275E-02,
1027     & -0.2265E-02/
1028     data ((h23(ip,iw,1),iw=1,31),ip=17,17)/
1029     & -0.1482E-09, -0.2910E-09, -0.5667E-09, -0.1081E-08, -0.2005E-08,
1030     & -0.3554E-08, -0.5902E-08, -0.8925E-08, -0.1209E-07, -0.1448E-07,
1031     & -0.1536E-07, -0.1565E-07, -0.1763E-07, -0.2088E-07, -0.2564E-07,
1032     & -0.3635E-07, -0.5791E-07, -0.8907E-07, -0.1213E-06, -0.1418E-06,
1033     & -0.1397E-06, -0.1000E-06, -0.4427E-08, 0.1713E-06, 0.4536E-06,
1034     & 0.8086E-06, 0.1153E-05, 0.1588E-05, 0.2437E-05, 0.3905E-05,
1035     & 0.5874E-05/
1036     data ((h21(ip,iw,1),iw=1,31),ip=18,18)/
1037     & 0.2878E-05, 0.5733E-05, 0.1140E-04, 0.2258E-04, 0.4446E-04,
1038     & 0.8668E-04, 0.1664E-03, 0.3120E-03, 0.5656E-03, 0.9812E-03,
1039     & 0.1621E-02, 0.2559E-02, 0.3902E-02, 0.5812E-02, 0.8522E-02,
1040     & 0.1235E-01, 0.1773E-01, 0.2530E-01, 0.3590E-01, 0.5058E-01,
1041     & 0.7059E-01, 0.9736E-01, 0.1323E+00, 0.1767E+00, 0.2312E+00,
1042     & 0.2962E+00, 0.3728E+00, 0.4619E+00, 0.5623E+00, 0.6685E+00,
1043     & 0.7716E+00/
1044     data ((h22(ip,iw,1),iw=1,31),ip=18,18)/
1045     & -0.4064E-07, -0.8066E-07, -0.1593E-06, -0.3124E-06, -0.6049E-06,
1046     & -0.1148E-05, -0.2118E-05, -0.3751E-05, -0.6314E-05, -0.1006E-04,
1047     & -0.1526E-04, -0.2232E-04, -0.3196E-04, -0.4525E-04, -0.6394E-04,
1048     & -0.9058E-04, -0.1284E-03, -0.1812E-03, -0.2533E-03, -0.3493E-03,
1049     & -0.4740E-03, -0.6315E-03, -0.8228E-03, -0.1044E-02, -0.1286E-02,
1050     & -0.1544E-02, -0.1810E-02, -0.2061E-02, -0.2243E-02, -0.2291E-02,
1051     & -0.2152E-02/
1052     data ((h23(ip,iw,1),iw=1,31),ip=18,18)/
1053     & -0.1630E-09, -0.3213E-09, -0.6266E-09, -0.1201E-08, -0.2248E-08,
1054     & -0.4030E-08, -0.6770E-08, -0.1033E-07, -0.1392E-07, -0.1640E-07,
1055     & -0.1768E-07, -0.1932E-07, -0.2229E-07, -0.2508E-07, -0.2940E-07,
1056     & -0.4200E-07, -0.6717E-07, -0.1002E-06, -0.1286E-06, -0.1402E-06,
1057     & -0.1216E-06, -0.5487E-07, 0.8418E-07, 0.3246E-06, 0.6610E-06,
1058     & 0.1013E-05, 0.1394E-05, 0.2073E-05, 0.3337E-05, 0.5175E-05,
1059     & 0.7255E-05/
1060     data ((h21(ip,iw,1),iw=1,31),ip=19,19)/
1061     & 0.3282E-05, 0.6539E-05, 0.1300E-04, 0.2578E-04, 0.5085E-04,
1062     & 0.9936E-04, 0.1914E-03, 0.3608E-03, 0.6586E-03, 0.1153E-02,
1063     & 0.1924E-02, 0.3074E-02, 0.4742E-02, 0.7126E-02, 0.1051E-01,
1064     & 0.1526E-01, 0.2195E-01, 0.3133E-01, 0.4441E-01, 0.6238E-01,
1065     & 0.8664E-01, 0.1186E+00, 0.1597E+00, 0.2108E+00, 0.2723E+00,
1066     & 0.3450E+00, 0.4300E+00, 0.5272E+00, 0.6324E+00, 0.7378E+00,
1067     & 0.8330E+00/
1068     data ((h22(ip,iw,1),iw=1,31),ip=19,19)/
1069     & -0.4629E-07, -0.9195E-07, -0.1819E-06, -0.3572E-06, -0.6936E-06,
1070     & -0.1323E-05, -0.2456E-05, -0.4385E-05, -0.7453E-05, -0.1200E-04,
1071     & -0.1843E-04, -0.2731E-04, -0.3943E-04, -0.5606E-04, -0.7936E-04,
1072     & -0.1123E-03, -0.1588E-03, -0.2231E-03, -0.3101E-03, -0.4247E-03,
1073     & -0.5713E-03, -0.7522E-03, -0.9651E-03, -0.1202E-02, -0.1456E-02,
1074     & -0.1721E-02, -0.1983E-02, -0.2196E-02, -0.2296E-02, -0.2224E-02,
1075     & -0.1952E-02/
1076     data ((h23(ip,iw,1),iw=1,31),ip=19,19)/
1077     & -0.1827E-09, -0.3607E-09, -0.7057E-09, -0.1359E-08, -0.2552E-08,
1078     & -0.4615E-08, -0.7854E-08, -0.1218E-07, -0.1670E-07, -0.2008E-07,
1079     & -0.2241E-07, -0.2516E-07, -0.2796E-07, -0.3015E-07, -0.3506E-07,
1080     & -0.4958E-07, -0.7627E-07, -0.1070E-06, -0.1289E-06, -0.1286E-06,
1081     & -0.8843E-07, 0.1492E-07, 0.2118E-06, 0.5155E-06, 0.8665E-06,
1082     & 0.1220E-05, 0.1765E-05, 0.2825E-05, 0.4498E-05, 0.6563E-05,
1083     & 0.8422E-05/
1084     data ((h21(ip,iw,1),iw=1,31),ip=20,20)/
1085     & 0.3608E-05, 0.7189E-05, 0.1430E-04, 0.2837E-04, 0.5601E-04,
1086     & 0.1097E-03, 0.2120E-03, 0.4017E-03, 0.7396E-03, 0.1311E-02,
1087     & 0.2226E-02, 0.3624E-02, 0.5685E-02, 0.8652E-02, 0.1286E-01,
1088     & 0.1878E-01, 0.2709E-01, 0.3868E-01, 0.5471E-01, 0.7654E-01,
1089     & 0.1057E+00, 0.1435E+00, 0.1912E+00, 0.2492E+00, 0.3181E+00,
1090     & 0.3990E+00, 0.4926E+00, 0.5960E+00, 0.7027E+00, 0.8027E+00,
1091     & 0.8852E+00/
1092     data ((h22(ip,iw,1),iw=1,31),ip=20,20)/
1093     & -0.5164E-07, -0.1026E-06, -0.2031E-06, -0.3994E-06, -0.7771E-06,
1094     & -0.1488E-05, -0.2776E-05, -0.5001E-05, -0.8610E-05, -0.1411E-04,
1095     & -0.2209E-04, -0.3328E-04, -0.4860E-04, -0.6954E-04, -0.9861E-04,
1096     & -0.1393E-03, -0.1961E-03, -0.2738E-03, -0.3778E-03, -0.5132E-03,
1097     & -0.6831E-03, -0.8868E-03, -0.1118E-02, -0.1368E-02, -0.1632E-02,
1098     & -0.1899E-02, -0.2136E-02, -0.2282E-02, -0.2273E-02, -0.2067E-02,
1099     & -0.1679E-02/
1100     data ((h23(ip,iw,1),iw=1,31),ip=20,20)/
1101     & -0.2058E-09, -0.4066E-09, -0.7967E-09, -0.1539E-08, -0.2904E-08,
1102     & -0.5293E-08, -0.9116E-08, -0.1447E-07, -0.2058E-07, -0.2608E-07,
1103     & -0.3053E-07, -0.3418E-07, -0.3619E-07, -0.3766E-07, -0.4313E-07,
1104     & -0.5817E-07, -0.8299E-07, -0.1072E-06, -0.1195E-06, -0.1031E-06,
1105     & -0.3275E-07, 0.1215E-06, 0.3835E-06, 0.7220E-06, 0.1062E-05,
1106     & 0.1504E-05, 0.2367E-05, 0.3854E-05, 0.5842E-05, 0.7875E-05,
1107     & 0.9082E-05/
1108     data ((h21(ip,iw,1),iw=1,31),ip=21,21)/
1109     & 0.3827E-05, 0.7626E-05, 0.1518E-04, 0.3013E-04, 0.5955E-04,
1110     & 0.1169E-03, 0.2268E-03, 0.4325E-03, 0.8046E-03, 0.1449E-02,
1111     & 0.2512E-02, 0.4185E-02, 0.6707E-02, 0.1038E-01, 0.1561E-01,
1112     & 0.2298E-01, 0.3328E-01, 0.4754E-01, 0.6708E-01, 0.9340E-01,
1113     & 0.1280E+00, 0.1722E+00, 0.2267E+00, 0.2918E+00, 0.3688E+00,
1114     & 0.4584E+00, 0.5594E+00, 0.6662E+00, 0.7700E+00, 0.8597E+00,
1115     & 0.9266E+00/
1116     data ((h22(ip,iw,1),iw=1,31),ip=21,21)/
1117     & -0.5584E-07, -0.1110E-06, -0.2198E-06, -0.4329E-06, -0.8444E-06,
1118     & -0.1623E-05, -0.3049E-05, -0.5551E-05, -0.9714E-05, -0.1627E-04,
1119     & -0.2609E-04, -0.4015E-04, -0.5955E-04, -0.8603E-04, -0.1223E-03,
1120     & -0.1724E-03, -0.2413E-03, -0.3346E-03, -0.4578E-03, -0.6155E-03,
1121     & -0.8087E-03, -0.1033E-02, -0.1279E-02, -0.1540E-02, -0.1811E-02,
1122     & -0.2065E-02, -0.2251E-02, -0.2301E-02, -0.2163E-02, -0.1828E-02,
1123     & -0.1365E-02/
1124     data ((h23(ip,iw,1),iw=1,31),ip=21,21)/
1125     & -0.2274E-09, -0.4498E-09, -0.8814E-09, -0.1708E-08, -0.3247E-08,
1126     & -0.5972E-08, -0.1045E-07, -0.1707E-07, -0.2545E-07, -0.3440E-07,
1127     & -0.4259E-07, -0.4822E-07, -0.5004E-07, -0.5061E-07, -0.5485E-07,
1128     & -0.6687E-07, -0.8483E-07, -0.9896E-07, -0.9646E-07, -0.5557E-07,
1129     & 0.5765E-07, 0.2752E-06, 0.5870E-06, 0.9188E-06, 0.1291E-05,
1130     & 0.1971E-05, 0.3251E-05, 0.5115E-05, 0.7221E-05, 0.8825E-05,
1131     & 0.9032E-05/
1132     data ((h21(ip,iw,1),iw=1,31),ip=22,22)/
1133     & 0.3938E-05, 0.7849E-05, 0.1563E-04, 0.3105E-04, 0.6149E-04,
1134     & 0.1210E-03, 0.2361E-03, 0.4537E-03, 0.8543E-03, 0.1565E-02,
1135     & 0.2774E-02, 0.4739E-02, 0.7781E-02, 0.1229E-01, 0.1877E-01,
1136     & 0.2791E-01, 0.4064E-01, 0.5812E-01, 0.8180E-01, 0.1132E+00,
1137     & 0.1539E+00, 0.2047E+00, 0.2662E+00, 0.3391E+00, 0.4247E+00,
1138     & 0.5226E+00, 0.6287E+00, 0.7351E+00, 0.8311E+00, 0.9066E+00,
1139     & 0.9569E+00/
1140     data ((h22(ip,iw,1),iw=1,31),ip=22,22)/
1141     & -0.5833E-07, -0.1160E-06, -0.2300E-06, -0.4540E-06, -0.8885E-06,
1142     & -0.1718E-05, -0.3256E-05, -0.6010E-05, -0.1072E-04, -0.1838E-04,
1143     & -0.3026E-04, -0.4772E-04, -0.7223E-04, -0.1057E-03, -0.1512E-03,
1144     & -0.2128E-03, -0.2961E-03, -0.4070E-03, -0.5514E-03, -0.7320E-03,
1145     & -0.9467E-03, -0.1187E-02, -0.1446E-02, -0.1717E-02, -0.1985E-02,
1146     & -0.2203E-02, -0.2307E-02, -0.2237E-02, -0.1965E-02, -0.1532E-02,
1147     & -0.1044E-02/
1148     data ((h23(ip,iw,1),iw=1,31),ip=22,22)/
1149     & -0.2426E-09, -0.4805E-09, -0.9447E-09, -0.1841E-08, -0.3519E-08,
1150     & -0.6565E-08, -0.1172E-07, -0.1979E-07, -0.3095E-07, -0.4443E-07,
1151     & -0.5821E-07, -0.6868E-07, -0.7282E-07, -0.7208E-07, -0.7176E-07,
1152     & -0.7562E-07, -0.8110E-07, -0.7934E-07, -0.5365E-07, 0.2483E-07,
1153     & 0.1959E-06, 0.4731E-06, 0.7954E-06, 0.1123E-05, 0.1652E-05,
1154     & 0.2711E-05, 0.4402E-05, 0.6498E-05, 0.8392E-05, 0.9154E-05,
1155     & 0.8261E-05/
1156     data ((h21(ip,iw,1),iw=1,31),ip=23,23)/
1157     & 0.3973E-05, 0.7921E-05, 0.1578E-04, 0.3139E-04, 0.6229E-04,
1158     & 0.1231E-03, 0.2414E-03, 0.4680E-03, 0.8923E-03, 0.1663E-02,
1159     & 0.3011E-02, 0.5268E-02, 0.8869E-02, 0.1434E-01, 0.2230E-01,
1160     & 0.3359E-01, 0.4924E-01, 0.7057E-01, 0.9908E-01, 0.1363E+00,
1161     & 0.1834E+00, 0.2411E+00, 0.3100E+00, 0.3913E+00, 0.4856E+00,
1162     & 0.5901E+00, 0.6981E+00, 0.7994E+00, 0.8832E+00, 0.9424E+00,
1163     & 0.9773E+00/
1164     data ((h22(ip,iw,1),iw=1,31),ip=23,23)/
1165     & -0.5929E-07, -0.1180E-06, -0.2344E-06, -0.4638E-06, -0.9118E-06,
1166     & -0.1775E-05, -0.3401E-05, -0.6375E-05, -0.1160E-04, -0.2039E-04,
1167     & -0.3444E-04, -0.5575E-04, -0.8641E-04, -0.1287E-03, -0.1856E-03,
1168     & -0.2615E-03, -0.3618E-03, -0.4928E-03, -0.6594E-03, -0.8621E-03,
1169     & -0.1095E-02, -0.1349E-02, -0.1618E-02, -0.1894E-02, -0.2140E-02,
1170     & -0.2293E-02, -0.2290E-02, -0.2085E-02, -0.1696E-02, -0.1212E-02,
1171     & -0.7506E-03/
1172     data ((h23(ip,iw,1),iw=1,31),ip=23,23)/
1173     & -0.2496E-09, -0.4954E-09, -0.9780E-09, -0.1915E-08, -0.3697E-08,
1174     & -0.6991E-08, -0.1279E-07, -0.2231E-07, -0.3653E-07, -0.5541E-07,
1175     & -0.7688E-07, -0.9614E-07, -0.1069E-06, -0.1065E-06, -0.9866E-07,
1176     & -0.8740E-07, -0.7192E-07, -0.4304E-07, 0.1982E-07, 0.1525E-06,
1177     & 0.3873E-06, 0.6947E-06, 0.1000E-05, 0.1409E-05, 0.2253E-05,
1178     & 0.3739E-05, 0.5744E-05, 0.7812E-05, 0.9067E-05, 0.8746E-05,
1179     & 0.6940E-05/
1180     data ((h21(ip,iw,1),iw=1,31),ip=24,24)/
1181     & 0.3978E-05, 0.7933E-05, 0.1581E-04, 0.3149E-04, 0.6260E-04,
1182     & 0.1240E-03, 0.2445E-03, 0.4777E-03, 0.9213E-03, 0.1743E-02,
1183     & 0.3217E-02, 0.5756E-02, 0.9929E-02, 0.1644E-01, 0.2612E-01,
1184     & 0.3995E-01, 0.5910E-01, 0.8497E-01, 0.1190E+00, 0.1626E+00,
1185     & 0.2165E+00, 0.2813E+00, 0.3583E+00, 0.4485E+00, 0.5505E+00,
1186     & 0.6590E+00, 0.7646E+00, 0.8562E+00, 0.9245E+00, 0.9676E+00,
1187     & 0.9897E+00/
1188     data ((h22(ip,iw,1),iw=1,31),ip=24,24)/
1189     & -0.5950E-07, -0.1185E-06, -0.2358E-06, -0.4678E-06, -0.9235E-06,
1190     & -0.1810E-05, -0.3503E-05, -0.6664E-05, -0.1236E-04, -0.2223E-04,
1191     & -0.3849E-04, -0.6396E-04, -0.1017E-03, -0.1545E-03, -0.2257E-03,
1192     & -0.3192E-03, -0.4399E-03, -0.5933E-03, -0.7824E-03, -0.1005E-02,
1193     & -0.1251E-02, -0.1516E-02, -0.1794E-02, -0.2060E-02, -0.2257E-02,
1194     & -0.2318E-02, -0.2186E-02, -0.1853E-02, -0.1386E-02, -0.9021E-03,
1195     & -0.5050E-03/
1196     data ((h23(ip,iw,1),iw=1,31),ip=24,24)/
1197     & -0.2515E-09, -0.5001E-09, -0.9904E-09, -0.1951E-08, -0.3800E-08,
1198     & -0.7288E-08, -0.1362E-07, -0.2452E-07, -0.4184E-07, -0.6663E-07,
1199     & -0.9770E-07, -0.1299E-06, -0.1533E-06, -0.1584E-06, -0.1425E-06,
1200     & -0.1093E-06, -0.5972E-07, 0.1426E-07, 0.1347E-06, 0.3364E-06,
1201     & 0.6209E-06, 0.9169E-06, 0.1243E-05, 0.1883E-05, 0.3145E-05,
1202     & 0.5011E-05, 0.7136E-05, 0.8785E-05, 0.9048E-05, 0.7686E-05,
1203     & 0.5368E-05/
1204     data ((h21(ip,iw,1),iw=1,31),ip=25,25)/
1205     & 0.3978E-05, 0.7934E-05, 0.1582E-04, 0.3153E-04, 0.6275E-04,
1206     & 0.1246E-03, 0.2466E-03, 0.4847E-03, 0.9432E-03, 0.1808E-02,
1207     & 0.3392E-02, 0.6189E-02, 0.1092E-01, 0.1852E-01, 0.3009E-01,
1208     & 0.4683E-01, 0.7008E-01, 0.1012E+00, 0.1416E+00, 0.1920E+00,
1209     & 0.2531E+00, 0.3258E+00, 0.4115E+00, 0.5102E+00, 0.6180E+00,
1210     & 0.7267E+00, 0.8252E+00, 0.9030E+00, 0.9550E+00, 0.9838E+00,
1211     & 0.9965E+00/
1212     data ((h22(ip,iw,1),iw=1,31),ip=25,25)/
1213     & -0.5953E-07, -0.1187E-06, -0.2363E-06, -0.4697E-06, -0.9304E-06,
1214     & -0.1833E-05, -0.3578E-05, -0.6889E-05, -0.1299E-04, -0.2384E-04,
1215     & -0.4227E-04, -0.7201E-04, -0.1174E-03, -0.1825E-03, -0.2710E-03,
1216     & -0.3861E-03, -0.5313E-03, -0.7095E-03, -0.9203E-03, -0.1158E-02,
1217     & -0.1417E-02, -0.1691E-02, -0.1968E-02, -0.2200E-02, -0.2320E-02,
1218     & -0.2263E-02, -0.1998E-02, -0.1563E-02, -0.1068E-02, -0.6300E-03,
1219     & -0.3174E-03/
1220     data ((h23(ip,iw,1),iw=1,31),ip=25,25)/
1221     & -0.2520E-09, -0.5016E-09, -0.9963E-09, -0.1971E-08, -0.3867E-08,
1222     & -0.7500E-08, -0.1427E-07, -0.2634E-07, -0.4656E-07, -0.7753E-07,
1223     & -0.1196E-06, -0.1683E-06, -0.2113E-06, -0.2309E-06, -0.2119E-06,
1224     & -0.1518E-06, -0.5200E-07, 0.9274E-07, 0.2973E-06, 0.5714E-06,
1225     & 0.8687E-06, 0.1152E-05, 0.1621E-05, 0.2634E-05, 0.4310E-05,
1226     & 0.6418E-05, 0.8347E-05, 0.9162E-05, 0.8319E-05, 0.6209E-05,
1227     & 0.3844E-05/
1228     data ((h21(ip,iw,1),iw=1,31),ip=26,26)/
1229     & 0.3976E-05, 0.7932E-05, 0.1582E-04, 0.3154E-04, 0.6284E-04,
1230     & 0.1250E-03, 0.2479E-03, 0.4896E-03, 0.9592E-03, 0.1857E-02,
1231     & 0.3532E-02, 0.6558E-02, 0.1181E-01, 0.2048E-01, 0.3402E-01,
1232     & 0.5399E-01, 0.8188E-01, 0.1190E+00, 0.1664E+00, 0.2243E+00,
1233     & 0.2933E+00, 0.3747E+00, 0.4695E+00, 0.5755E+00, 0.6858E+00,
1234     & 0.7903E+00, 0.8773E+00, 0.9391E+00, 0.9758E+00, 0.9934E+00,
1235     & 0.9996E+00/
1236     data ((h22(ip,iw,1),iw=1,31),ip=26,26)/
1237     & -0.5954E-07, -0.1187E-06, -0.2366E-06, -0.4709E-06, -0.9349E-06,
1238     & -0.1849E-05, -0.3632E-05, -0.7058E-05, -0.1350E-04, -0.2521E-04,
1239     & -0.4564E-04, -0.7958E-04, -0.1329E-03, -0.2114E-03, -0.3200E-03,
1240     & -0.4611E-03, -0.6353E-03, -0.8409E-03, -0.1072E-02, -0.1324E-02,
1241     & -0.1592E-02, -0.1871E-02, -0.2127E-02, -0.2297E-02, -0.2312E-02,
1242     & -0.2123E-02, -0.1738E-02, -0.1247E-02, -0.7744E-03, -0.4117E-03,
1243     & -0.1850E-03/
1244     data ((h23(ip,iw,1),iw=1,31),ip=26,26)/
1245     & -0.2522E-09, -0.5025E-09, -0.9997E-09, -0.1983E-08, -0.3912E-08,
1246     & -0.7650E-08, -0.1474E-07, -0.2777E-07, -0.5055E-07, -0.8745E-07,
1247     & -0.1414E-06, -0.2095E-06, -0.2790E-06, -0.3241E-06, -0.3135E-06,
1248     & -0.2269E-06, -0.5896E-07, 0.1875E-06, 0.4996E-06, 0.8299E-06,
1249     & 0.1115E-05, 0.1467E-05, 0.2236E-05, 0.3672E-05, 0.5668E-05,
1250     & 0.7772E-05, 0.9094E-05, 0.8827E-05, 0.7041E-05, 0.4638E-05,
1251     & 0.2539E-05/
1252     data ((h81(ip,iw,1),iw=1,31),ip= 1, 1)/
1253     & 0.1342E-04, 0.2640E-04, 0.5137E-04, 0.9829E-04, 0.1832E-03,
1254     & 0.3284E-03, 0.5585E-03, 0.8907E-03, 0.1327E-02, 0.1856E-02,
1255     & 0.2461E-02, 0.3138E-02, 0.3898E-02, 0.4766E-02, 0.5783E-02,
1256     & 0.7007E-02, 0.8521E-02, 0.1041E-01, 0.1278E-01, 0.1570E-01,
1257     & 0.1928E-01, 0.2361E-01, 0.2884E-01, 0.3520E-01, 0.4305E-01,
1258     & 0.5286E-01, 0.6531E-01, 0.8127E-01, 0.1019E+00, 0.1287E+00,
1259     & 0.1632E+00/
1260     data ((h82(ip,iw,1),iw=1,31),ip= 1, 1)/
1261     & -0.5685E-08, -0.1331E-07, -0.3249E-07, -0.8137E-07, -0.2048E-06,
1262     & -0.4973E-06, -0.1118E-05, -0.2246E-05, -0.3982E-05, -0.6290E-05,
1263     & -0.9040E-05, -0.1215E-04, -0.1567E-04, -0.1970E-04, -0.2449E-04,
1264     & -0.3046E-04, -0.3798E-04, -0.4725E-04, -0.5831E-04, -0.7123E-04,
1265     & -0.8605E-04, -0.1028E-03, -0.1212E-03, -0.1413E-03, -0.1635E-03,
1266     & -0.1884E-03, -0.2160E-03, -0.2461E-03, -0.2778E-03, -0.3098E-03,
1267     & -0.3411E-03/
1268     data ((h83(ip,iw,1),iw=1,31),ip= 1, 1)/
1269     & 0.2169E-10, 0.5237E-10, 0.1296E-09, 0.3204E-09, 0.7665E-09,
1270     & 0.1691E-08, 0.3222E-08, 0.5110E-08, 0.6779E-08, 0.7681E-08,
1271     & 0.7378E-08, 0.5836E-08, 0.3191E-08, -0.1491E-08, -0.1022E-07,
1272     & -0.2359E-07, -0.3957E-07, -0.5553E-07, -0.6927E-07, -0.7849E-07,
1273     & -0.8139E-07, -0.7853E-07, -0.7368E-07, -0.7220E-07, -0.7780E-07,
1274     & -0.9091E-07, -0.1038E-06, -0.9929E-07, -0.5422E-07, 0.5379E-07,
1275     & 0.2350E-06/
1276     data ((h81(ip,iw,1),iw=1,31),ip= 2, 2)/
1277     & 0.1342E-04, 0.2640E-04, 0.5137E-04, 0.9829E-04, 0.1832E-03,
1278     & 0.3284E-03, 0.5586E-03, 0.8908E-03, 0.1327E-02, 0.1856E-02,
1279     & 0.2462E-02, 0.3140E-02, 0.3902E-02, 0.4774E-02, 0.5797E-02,
1280     & 0.7033E-02, 0.8570E-02, 0.1050E-01, 0.1294E-01, 0.1599E-01,
1281     & 0.1979E-01, 0.2448E-01, 0.3024E-01, 0.3738E-01, 0.4633E-01,
1282     & 0.5766E-01, 0.7218E-01, 0.9096E-01, 0.1154E+00, 0.1471E+00,
1283     & 0.1880E+00/
1284     data ((h82(ip,iw,1),iw=1,31),ip= 2, 2)/
1285     & -0.5684E-08, -0.1331E-07, -0.3248E-07, -0.8133E-07, -0.2047E-06,
1286     & -0.4971E-06, -0.1117E-05, -0.2245E-05, -0.3981E-05, -0.6287E-05,
1287     & -0.9035E-05, -0.1215E-04, -0.1565E-04, -0.1967E-04, -0.2444E-04,
1288     & -0.3036E-04, -0.3780E-04, -0.4694E-04, -0.5779E-04, -0.7042E-04,
1289     & -0.8491E-04, -0.1013E-03, -0.1196E-03, -0.1399E-03, -0.1625E-03,
1290     & -0.1879E-03, -0.2163E-03, -0.2474E-03, -0.2803E-03, -0.3140E-03,
1291     & -0.3478E-03/
1292     data ((h83(ip,iw,1),iw=1,31),ip= 2, 2)/
1293     & 0.2168E-10, 0.5242E-10, 0.1295E-09, 0.3201E-09, 0.7662E-09,
1294     & 0.1690E-08, 0.3220E-08, 0.5106E-08, 0.6776E-08, 0.7673E-08,
1295     & 0.7362E-08, 0.5808E-08, 0.3138E-08, -0.1595E-08, -0.1041E-07,
1296     & -0.2390E-07, -0.4010E-07, -0.5636E-07, -0.7045E-07, -0.7972E-07,
1297     & -0.8178E-07, -0.7677E-07, -0.6876E-07, -0.6381E-07, -0.6583E-07,
1298     & -0.7486E-07, -0.8229E-07, -0.7017E-07, -0.1497E-07, 0.1051E-06,
1299     & 0.2990E-06/
1300     data ((h81(ip,iw,1),iw=1,31),ip= 3, 3)/
1301     & 0.1342E-04, 0.2640E-04, 0.5137E-04, 0.9830E-04, 0.1832E-03,
1302     & 0.3285E-03, 0.5587E-03, 0.8911E-03, 0.1328E-02, 0.1857E-02,
1303     & 0.2465E-02, 0.3144E-02, 0.3909E-02, 0.4787E-02, 0.5820E-02,
1304     & 0.7075E-02, 0.8646E-02, 0.1064E-01, 0.1319E-01, 0.1643E-01,
1305     & 0.2053E-01, 0.2569E-01, 0.3215E-01, 0.4028E-01, 0.5059E-01,
1306     & 0.6380E-01, 0.8088E-01, 0.1031E+00, 0.1321E+00, 0.1698E+00,
1307     & 0.2179E+00/
1308     data ((h82(ip,iw,1),iw=1,31),ip= 3, 3)/
1309     & -0.5682E-08, -0.1330E-07, -0.3247E-07, -0.8129E-07, -0.2046E-06,
1310     & -0.4968E-06, -0.1117E-05, -0.2244E-05, -0.3978E-05, -0.6283E-05,
1311     & -0.9027E-05, -0.1213E-04, -0.1563E-04, -0.1963E-04, -0.2436E-04,
1312     & -0.3021E-04, -0.3754E-04, -0.4649E-04, -0.5709E-04, -0.6940E-04,
1313     & -0.8359E-04, -0.9986E-04, -0.1182E-03, -0.1388E-03, -0.1620E-03,
1314     & -0.1882E-03, -0.2175E-03, -0.2498E-03, -0.2843E-03, -0.3203E-03,
1315     & -0.3573E-03/
1316     data ((h83(ip,iw,1),iw=1,31),ip= 3, 3)/
1317     & 0.2167E-10, 0.5238E-10, 0.1294E-09, 0.3198E-09, 0.7656E-09,
1318     & 0.1688E-08, 0.3217E-08, 0.5104E-08, 0.6767E-08, 0.7661E-08,
1319     & 0.7337E-08, 0.5764E-08, 0.3051E-08, -0.1752E-08, -0.1068E-07,
1320     & -0.2436E-07, -0.4081E-07, -0.5740E-07, -0.7165E-07, -0.8046E-07,
1321     & -0.8082E-07, -0.7289E-07, -0.6141E-07, -0.5294E-07, -0.5134E-07,
1322     & -0.5552E-07, -0.5609E-07, -0.3464E-07, 0.3275E-07, 0.1669E-06,
1323     & 0.3745E-06/
1324     data ((h81(ip,iw,1),iw=1,31),ip= 4, 4)/
1325     & 0.1342E-04, 0.2640E-04, 0.5138E-04, 0.9830E-04, 0.1832E-03,
1326     & 0.3286E-03, 0.5589E-03, 0.8915E-03, 0.1329E-02, 0.1859E-02,
1327     & 0.2468E-02, 0.3150E-02, 0.3920E-02, 0.4806E-02, 0.5855E-02,
1328     & 0.7140E-02, 0.8763E-02, 0.1085E-01, 0.1356E-01, 0.1707E-01,
1329     & 0.2158E-01, 0.2736E-01, 0.3471E-01, 0.4407E-01, 0.5608E-01,
1330     & 0.7161E-01, 0.9184E-01, 0.1183E+00, 0.1528E+00, 0.1973E+00,
1331     & 0.2537E+00/
1332     data ((h82(ip,iw,1),iw=1,31),ip= 4, 4)/
1333     & -0.5680E-08, -0.1329E-07, -0.3243E-07, -0.8121E-07, -0.2044E-06,
1334     & -0.4963E-06, -0.1115E-05, -0.2242E-05, -0.3974E-05, -0.6276E-05,
1335     & -0.9015E-05, -0.1211E-04, -0.1559E-04, -0.1956E-04, -0.2423E-04,
1336     & -0.2999E-04, -0.3716E-04, -0.4588E-04, -0.5618E-04, -0.6818E-04,
1337     & -0.8218E-04, -0.9847E-04, -0.1171E-03, -0.1382E-03, -0.1621E-03,
1338     & -0.1892E-03, -0.2197E-03, -0.2535E-03, -0.2902E-03, -0.3293E-03,
1339     & -0.3700E-03/
1340     data ((h83(ip,iw,1),iw=1,31),ip= 4, 4)/
1341     & 0.2166E-10, 0.5229E-10, 0.1294E-09, 0.3193E-09, 0.7644E-09,
1342     & 0.1686E-08, 0.3213E-08, 0.5092E-08, 0.6753E-08, 0.7640E-08,
1343     & 0.7302E-08, 0.5696E-08, 0.2917E-08, -0.1984E-08, -0.1108E-07,
1344     & -0.2497E-07, -0.4171E-07, -0.5849E-07, -0.7254E-07, -0.8017E-07,
1345     & -0.7802E-07, -0.6662E-07, -0.5153E-07, -0.3961E-07, -0.3387E-07,
1346     & -0.3219E-07, -0.2426E-07, 0.8700E-08, 0.9027E-07, 0.2400E-06,
1347     & 0.4623E-06/
1348     data ((h81(ip,iw,1),iw=1,31),ip= 5, 5)/
1349     & 0.1342E-04, 0.2640E-04, 0.5138E-04, 0.9832E-04, 0.1833E-03,
1350     & 0.3287E-03, 0.5591E-03, 0.8922E-03, 0.1330E-02, 0.1862E-02,
1351     & 0.2473E-02, 0.3159E-02, 0.3937E-02, 0.4837E-02, 0.5911E-02,
1352     & 0.7240E-02, 0.8943E-02, 0.1117E-01, 0.1411E-01, 0.1798E-01,
1353     & 0.2304E-01, 0.2961E-01, 0.3807E-01, 0.4896E-01, 0.6308E-01,
1354     & 0.8148E-01, 0.1056E+00, 0.1371E+00, 0.1780E+00, 0.2303E+00,
1355     & 0.2958E+00/
1356     data ((h82(ip,iw,1),iw=1,31),ip= 5, 5)/
1357     & -0.5675E-08, -0.1328E-07, -0.3239E-07, -0.8110E-07, -0.2040E-06,
1358     & -0.4954E-06, -0.1114E-05, -0.2238E-05, -0.3968E-05, -0.6265E-05,
1359     & -0.8996E-05, -0.1208E-04, -0.1553E-04, -0.1945E-04, -0.2404E-04,
1360     & -0.2966E-04, -0.3663E-04, -0.4508E-04, -0.5508E-04, -0.6686E-04,
1361     & -0.8082E-04, -0.9732E-04, -0.1165E-03, -0.1382E-03, -0.1630E-03,
1362     & -0.1913E-03, -0.2234E-03, -0.2593E-03, -0.2989E-03, -0.3417E-03,
1363     & -0.3857E-03/
1364     data ((h83(ip,iw,1),iw=1,31),ip= 5, 5)/
1365     & 0.2163E-10, 0.5209E-10, 0.1291E-09, 0.3186E-09, 0.7626E-09,
1366     & 0.1682E-08, 0.3203E-08, 0.5078E-08, 0.6730E-08, 0.7606E-08,
1367     & 0.7246E-08, 0.5592E-08, 0.2735E-08, -0.2325E-08, -0.1162E-07,
1368     & -0.2576E-07, -0.4268E-07, -0.5938E-07, -0.7262E-07, -0.7827E-07,
1369     & -0.7297E-07, -0.5786E-07, -0.3930E-07, -0.2373E-07, -0.1295E-07,
1370     & -0.3728E-08, 0.1465E-07, 0.6114E-07, 0.1590E-06, 0.3257E-06,
1371     & 0.5622E-06/
1372     data ((h81(ip,iw,1),iw=1,31),ip= 6, 6)/
1373     & 0.1342E-04, 0.2640E-04, 0.5139E-04, 0.9834E-04, 0.1833E-03,
1374     & 0.3288E-03, 0.5596E-03, 0.8932E-03, 0.1332E-02, 0.1866E-02,
1375     & 0.2481E-02, 0.3174E-02, 0.3963E-02, 0.4885E-02, 0.5997E-02,
1376     & 0.7394E-02, 0.9215E-02, 0.1164E-01, 0.1489E-01, 0.1924E-01,
1377     & 0.2501E-01, 0.3258E-01, 0.4243E-01, 0.5523E-01, 0.7195E-01,
1378     & 0.9387E-01, 0.1226E+00, 0.1601E+00, 0.2084E+00, 0.2695E+00,
1379     & 0.3446E+00/
1380     data ((h82(ip,iw,1),iw=1,31),ip= 6, 6)/
1381     & -0.5671E-08, -0.1326E-07, -0.3234E-07, -0.8091E-07, -0.2035E-06,
1382     & -0.4941E-06, -0.1111E-05, -0.2232E-05, -0.3958E-05, -0.6247E-05,
1383     & -0.8966E-05, -0.1202E-04, -0.1544E-04, -0.1929E-04, -0.2377E-04,
1384     & -0.2921E-04, -0.3593E-04, -0.4409E-04, -0.5385E-04, -0.6555E-04,
1385     & -0.7965E-04, -0.9656E-04, -0.1163E-03, -0.1390E-03, -0.1649E-03,
1386     & -0.1947E-03, -0.2288E-03, -0.2675E-03, -0.3109E-03, -0.3575E-03,
1387     & -0.4039E-03/
1388     data ((h83(ip,iw,1),iw=1,31),ip= 6, 6)/
1389     & 0.2155E-10, 0.5188E-10, 0.1288E-09, 0.3175E-09, 0.7599E-09,
1390     & 0.1675E-08, 0.3190E-08, 0.5059E-08, 0.6699E-08, 0.7551E-08,
1391     & 0.7154E-08, 0.5435E-08, 0.2452E-08, -0.2802E-08, -0.1235E-07,
1392     & -0.2668E-07, -0.4353E-07, -0.5962E-07, -0.7134E-07, -0.7435E-07,
1393     & -0.6551E-07, -0.4676E-07, -0.2475E-07, -0.4876E-08, 0.1235E-07,
1394     & 0.3092E-07, 0.6192E-07, 0.1243E-06, 0.2400E-06, 0.4247E-06,
1395     & 0.6755E-06/
1396     data ((h81(ip,iw,1),iw=1,31),ip= 7, 7)/
1397     & 0.1342E-04, 0.2640E-04, 0.5139E-04, 0.9837E-04, 0.1834E-03,
1398     & 0.3291E-03, 0.5603E-03, 0.8949E-03, 0.1336E-02, 0.1873E-02,
1399     & 0.2494E-02, 0.3198E-02, 0.4005E-02, 0.4960E-02, 0.6130E-02,
1400     & 0.7628E-02, 0.9618E-02, 0.1232E-01, 0.1599E-01, 0.2097E-01,
1401     & 0.2764E-01, 0.3646E-01, 0.4803E-01, 0.6319E-01, 0.8312E-01,
1402     & 0.1093E+00, 0.1436E+00, 0.1881E+00, 0.2448E+00, 0.3153E+00,
1403     & 0.4001E+00/
1404     data ((h82(ip,iw,1),iw=1,31),ip= 7, 7)/
1405     & -0.5665E-08, -0.1322E-07, -0.3224E-07, -0.8063E-07, -0.2027E-06,
1406     & -0.4921E-06, -0.1106E-05, -0.2223E-05, -0.3942E-05, -0.6220E-05,
1407     & -0.8920E-05, -0.1194E-04, -0.1530E-04, -0.1905E-04, -0.2337E-04,
1408     & -0.2860E-04, -0.3505E-04, -0.4296E-04, -0.5259E-04, -0.6439E-04,
1409     & -0.7884E-04, -0.9635E-04, -0.1170E-03, -0.1407E-03, -0.1681E-03,
1410     & -0.1998E-03, -0.2366E-03, -0.2790E-03, -0.3265E-03, -0.3763E-03,
1411     & -0.4235E-03/
1412     data ((h83(ip,iw,1),iw=1,31),ip= 7, 7)/
1413     & 0.2157E-10, 0.5178E-10, 0.1283E-09, 0.3162E-09, 0.7558E-09,
1414     & 0.1665E-08, 0.3169E-08, 0.5027E-08, 0.6645E-08, 0.7472E-08,
1415     & 0.7017E-08, 0.5212E-08, 0.2059E-08, -0.3443E-08, -0.1321E-07,
1416     & -0.2754E-07, -0.4389E-07, -0.5869E-07, -0.6825E-07, -0.6819E-07,
1417     & -0.5570E-07, -0.3343E-07, -0.7592E-08, 0.1778E-07, 0.4322E-07,
1418     & 0.7330E-07, 0.1190E-06, 0.1993E-06, 0.3348E-06, 0.5376E-06,
1419     & 0.8030E-06/
1420     data ((h81(ip,iw,1),iw=1,31),ip= 8, 8)/
1421     & 0.1342E-04, 0.2641E-04, 0.5141E-04, 0.9842E-04, 0.1836E-03,
1422     & 0.3295E-03, 0.5614E-03, 0.8975E-03, 0.1341E-02, 0.1884E-02,
1423     & 0.2514E-02, 0.3234E-02, 0.4071E-02, 0.5075E-02, 0.6332E-02,
1424     & 0.7976E-02, 0.1021E-01, 0.1328E-01, 0.1751E-01, 0.2329E-01,
1425     & 0.3109E-01, 0.4146E-01, 0.5517E-01, 0.7325E-01, 0.9710E-01,
1426     & 0.1284E+00, 0.1693E+00, 0.2217E+00, 0.2876E+00, 0.3679E+00,
1427     & 0.4616E+00/
1428     data ((h82(ip,iw,1),iw=1,31),ip= 8, 8)/
1429     & -0.5652E-08, -0.1318E-07, -0.3210E-07, -0.8018E-07, -0.2014E-06,
1430     & -0.4888E-06, -0.1099E-05, -0.2210E-05, -0.3918E-05, -0.6179E-05,
1431     & -0.8849E-05, -0.1182E-04, -0.1509E-04, -0.1871E-04, -0.2284E-04,
1432     & -0.2782E-04, -0.3403E-04, -0.4177E-04, -0.5145E-04, -0.6354E-04,
1433     & -0.7853E-04, -0.9681E-04, -0.1185E-03, -0.1437E-03, -0.1729E-03,
1434     & -0.2072E-03, -0.2475E-03, -0.2942E-03, -0.3457E-03, -0.3973E-03,
1435     & -0.4434E-03/
1436     data ((h83(ip,iw,1),iw=1,31),ip= 8, 8)/
1437     & 0.2153E-10, 0.5151E-10, 0.1273E-09, 0.3136E-09, 0.7488E-09,
1438     & 0.1649E-08, 0.3142E-08, 0.4980E-08, 0.6559E-08, 0.7346E-08,
1439     & 0.6813E-08, 0.4884E-08, 0.1533E-08, -0.4209E-08, -0.1409E-07,
1440     & -0.2801E-07, -0.4320E-07, -0.5614E-07, -0.6312E-07, -0.5976E-07,
1441     & -0.4369E-07, -0.1775E-07, 0.1280E-07, 0.4534E-07, 0.8106E-07,
1442     & 0.1246E-06, 0.1874E-06, 0.2873E-06, 0.4433E-06, 0.6651E-06,
1443     & 0.9477E-06/
1444     data ((h81(ip,iw,1),iw=1,31),ip= 9, 9)/
1445     & 0.1342E-04, 0.2641E-04, 0.5143E-04, 0.9849E-04, 0.1838E-03,
1446     & 0.3302E-03, 0.5631E-03, 0.9016E-03, 0.1350E-02, 0.1901E-02,
1447     & 0.2546E-02, 0.3292E-02, 0.4171E-02, 0.5250E-02, 0.6634E-02,
1448     & 0.8486E-02, 0.1104E-01, 0.1460E-01, 0.1955E-01, 0.2635E-01,
1449     & 0.3555E-01, 0.4786E-01, 0.6421E-01, 0.8588E-01, 0.1145E+00,
1450     & 0.1519E+00, 0.2003E+00, 0.2615E+00, 0.3372E+00, 0.4269E+00,
1451     & 0.5281E+00/
1452     data ((h82(ip,iw,1),iw=1,31),ip= 9, 9)/
1453     & -0.5629E-08, -0.1310E-07, -0.3186E-07, -0.7948E-07, -0.1995E-06,
1454     & -0.4837E-06, -0.1088E-05, -0.2188E-05, -0.3880E-05, -0.6115E-05,
1455     & -0.8743E-05, -0.1165E-04, -0.1480E-04, -0.1824E-04, -0.2216E-04,
1456     & -0.2691E-04, -0.3293E-04, -0.4067E-04, -0.5057E-04, -0.6314E-04,
1457     & -0.7885E-04, -0.9813E-04, -0.1212E-03, -0.1482E-03, -0.1799E-03,
1458     & -0.2175E-03, -0.2622E-03, -0.3135E-03, -0.3678E-03, -0.4193E-03,
1459     & -0.4627E-03/
1460     data ((h83(ip,iw,1),iw=1,31),ip= 9, 9)/
1461     & 0.2121E-10, 0.5076E-10, 0.1257E-09, 0.3091E-09, 0.7379E-09,
1462     & 0.1623E-08, 0.3097E-08, 0.4904E-08, 0.6453E-08, 0.7168E-08,
1463     & 0.6534E-08, 0.4458E-08, 0.8932E-09, -0.5026E-08, -0.1469E-07,
1464     & -0.2765E-07, -0.4103E-07, -0.5169E-07, -0.5585E-07, -0.4913E-07,
1465     & -0.2954E-07, 0.6372E-09, 0.3738E-07, 0.7896E-07, 0.1272E-06,
1466     & 0.1867E-06, 0.2682E-06, 0.3895E-06, 0.5672E-06, 0.8091E-06,
1467     & 0.1114E-05/
1468     data ((h81(ip,iw,1),iw=1,31),ip=10,10)/
1469     & 0.1343E-04, 0.2642E-04, 0.5147E-04, 0.9861E-04, 0.1842E-03,
1470     & 0.3312E-03, 0.5658E-03, 0.9080E-03, 0.1364E-02, 0.1928E-02,
1471     & 0.2595E-02, 0.3379E-02, 0.4325E-02, 0.5513E-02, 0.7077E-02,
1472     & 0.9215E-02, 0.1220E-01, 0.1640E-01, 0.2226E-01, 0.3032E-01,
1473     & 0.4127E-01, 0.5598E-01, 0.7559E-01, 0.1016E+00, 0.1359E+00,
1474     & 0.1804E+00, 0.2372E+00, 0.3081E+00, 0.3935E+00, 0.4916E+00,
1475     & 0.5975E+00/
1476     data ((h82(ip,iw,1),iw=1,31),ip=10,10)/
1477     & -0.5597E-08, -0.1300E-07, -0.3148E-07, -0.7838E-07, -0.1964E-06,
1478     & -0.4759E-06, -0.1071E-05, -0.2155E-05, -0.3822E-05, -0.6019E-05,
1479     & -0.8586E-05, -0.1139E-04, -0.1439E-04, -0.1764E-04, -0.2134E-04,
1480     & -0.2591E-04, -0.3188E-04, -0.3978E-04, -0.5011E-04, -0.6334E-04,
1481     & -0.7998E-04, -0.1006E-03, -0.1253E-03, -0.1547E-03, -0.1895E-03,
1482     & -0.2315E-03, -0.2811E-03, -0.3363E-03, -0.3917E-03, -0.4413E-03,
1483     & -0.4809E-03/
1484     data ((h83(ip,iw,1),iw=1,31),ip=10,10)/
1485     & 0.2109E-10, 0.5017E-10, 0.1235E-09, 0.3021E-09, 0.7217E-09,
1486     & 0.1585E-08, 0.3028E-08, 0.4796E-08, 0.6285E-08, 0.6910E-08,
1487     & 0.6178E-08, 0.3945E-08, 0.2436E-09, -0.5632E-08, -0.1464E-07,
1488     & -0.2596E-07, -0.3707E-07, -0.4527E-07, -0.4651E-07, -0.3644E-07,
1489     & -0.1296E-07, 0.2250E-07, 0.6722E-07, 0.1202E-06, 0.1831E-06,
1490     & 0.2605E-06, 0.3627E-06, 0.5062E-06, 0.7064E-06, 0.9725E-06,
1491     & 0.1304E-05/
1492     data ((h81(ip,iw,1),iw=1,31),ip=11,11)/
1493     & 0.1343E-04, 0.2644E-04, 0.5152E-04, 0.9878E-04, 0.1847E-03,
1494     & 0.3328E-03, 0.5701E-03, 0.9179E-03, 0.1385E-02, 0.1969E-02,
1495     & 0.2671E-02, 0.3513E-02, 0.4554E-02, 0.5900E-02, 0.7713E-02,
1496     & 0.1023E-01, 0.1379E-01, 0.1879E-01, 0.2578E-01, 0.3542E-01,
1497     & 0.4854E-01, 0.6622E-01, 0.8983E-01, 0.1211E+00, 0.1619E+00,
1498     & 0.2145E+00, 0.2807E+00, 0.3614E+00, 0.4559E+00, 0.5603E+00,
1499     & 0.6675E+00/
1500     data ((h82(ip,iw,1),iw=1,31),ip=11,11)/
1501     & -0.5538E-08, -0.1280E-07, -0.3089E-07, -0.7667E-07, -0.1917E-06,
1502     & -0.4642E-06, -0.1045E-05, -0.2106E-05, -0.3736E-05, -0.5878E-05,
1503     & -0.8363E-05, -0.1104E-04, -0.1387E-04, -0.1692E-04, -0.2044E-04,
1504     & -0.2493E-04, -0.3101E-04, -0.3926E-04, -0.5020E-04, -0.6429E-04,
1505     & -0.8213E-04, -0.1044E-03, -0.1314E-03, -0.1637E-03, -0.2027E-03,
1506     & -0.2498E-03, -0.3042E-03, -0.3617E-03, -0.4163E-03, -0.4625E-03,
1507     & -0.4969E-03/
1508     data ((h83(ip,iw,1),iw=1,31),ip=11,11)/
1509     & 0.2067E-10, 0.4903E-10, 0.1200E-09, 0.2917E-09, 0.6965E-09,
1510     & 0.1532E-08, 0.2925E-08, 0.4632E-08, 0.6054E-08, 0.6590E-08,
1511     & 0.5746E-08, 0.3436E-08, -0.2251E-09, -0.5703E-08, -0.1344E-07,
1512     & -0.2256E-07, -0.3120E-07, -0.3690E-07, -0.3520E-07, -0.2164E-07,
1513     & 0.6510E-08, 0.4895E-07, 0.1037E-06, 0.1702E-06, 0.2502E-06,
1514     & 0.3472E-06, 0.4710E-06, 0.6379E-06, 0.8633E-06, 0.1159E-05,
1515     & 0.1514E-05/
1516     data ((h81(ip,iw,1),iw=1,31),ip=12,12)/
1517     & 0.1344E-04, 0.2647E-04, 0.5161E-04, 0.9906E-04, 0.1856E-03,
1518     & 0.3353E-03, 0.5765E-03, 0.9331E-03, 0.1417E-02, 0.2032E-02,
1519     & 0.2785E-02, 0.3712E-02, 0.4892E-02, 0.6456E-02, 0.8604E-02,
1520     & 0.1162E-01, 0.1590E-01, 0.2192E-01, 0.3033E-01, 0.4193E-01,
1521     & 0.5774E-01, 0.7906E-01, 0.1075E+00, 0.1449E+00, 0.1934E+00,
1522     & 0.2549E+00, 0.3309E+00, 0.4213E+00, 0.5232E+00, 0.6308E+00,
1523     & 0.7348E+00/
1524     data ((h82(ip,iw,1),iw=1,31),ip=12,12)/
1525     & -0.5476E-08, -0.1257E-07, -0.3008E-07, -0.7418E-07, -0.1848E-06,
1526     & -0.4468E-06, -0.1006E-05, -0.2032E-05, -0.3611E-05, -0.5679E-05,
1527     & -0.8058E-05, -0.1059E-04, -0.1324E-04, -0.1612E-04, -0.1956E-04,
1528     & -0.2411E-04, -0.3046E-04, -0.3925E-04, -0.5098E-04, -0.6619E-04,
1529     & -0.8562E-04, -0.1100E-03, -0.1399E-03, -0.1761E-03, -0.2202E-03,
1530     & -0.2726E-03, -0.3306E-03, -0.3885E-03, -0.4404E-03, -0.4820E-03,
1531     & -0.5082E-03/
1532     data ((h83(ip,iw,1),iw=1,31),ip=12,12)/
1533     & 0.2041E-10, 0.4771E-10, 0.1149E-09, 0.2782E-09, 0.6614E-09,
1534     & 0.1451E-08, 0.2778E-08, 0.4401E-08, 0.5736E-08, 0.6189E-08,
1535     & 0.5315E-08, 0.3087E-08, -0.2518E-09, -0.4806E-08, -0.1071E-07,
1536     & -0.1731E-07, -0.2346E-07, -0.2659E-07, -0.2184E-07, -0.4261E-08,
1537     & 0.2975E-07, 0.8112E-07, 0.1484E-06, 0.2308E-06, 0.3296E-06,
1538     & 0.4475E-06, 0.5942E-06, 0.7859E-06, 0.1041E-05, 0.1369E-05,
1539     & 0.1726E-05/
1540     data ((h81(ip,iw,1),iw=1,31),ip=13,13)/
1541     & 0.1345E-04, 0.2650E-04, 0.5173E-04, 0.9947E-04, 0.1868E-03,
1542     & 0.3389E-03, 0.5861E-03, 0.9559E-03, 0.1466E-02, 0.2125E-02,
1543     & 0.2955E-02, 0.4004E-02, 0.5376E-02, 0.7235E-02, 0.9824E-02,
1544     & 0.1348E-01, 0.1866E-01, 0.2596E-01, 0.3613E-01, 0.5016E-01,
1545     & 0.6929E-01, 0.9504E-01, 0.1292E+00, 0.1738E+00, 0.2309E+00,
1546     & 0.3021E+00, 0.3880E+00, 0.4868E+00, 0.5936E+00, 0.7003E+00,
1547     & 0.7964E+00/
1548     data ((h82(ip,iw,1),iw=1,31),ip=13,13)/
1549     & -0.5362E-08, -0.1223E-07, -0.2895E-07, -0.7071E-07, -0.1748E-06,
1550     & -0.4219E-06, -0.9516E-06, -0.1928E-05, -0.3436E-05, -0.5409E-05,
1551     & -0.7666E-05, -0.1005E-04, -0.1254E-04, -0.1533E-04, -0.1880E-04,
1552     & -0.2358E-04, -0.3038E-04, -0.3988E-04, -0.5264E-04, -0.6934E-04,
1553     & -0.9083E-04, -0.1179E-03, -0.1515E-03, -0.1927E-03, -0.2424E-03,
1554     & -0.2994E-03, -0.3591E-03, -0.4155E-03, -0.4634E-03, -0.4982E-03,
1555     & -0.5096E-03/
1556     data ((h83(ip,iw,1),iw=1,31),ip=13,13)/
1557     & 0.1976E-10, 0.4551E-10, 0.1086E-09, 0.2601E-09, 0.6126E-09,
1558     & 0.1345E-08, 0.2583E-08, 0.4112E-08, 0.5365E-08, 0.5796E-08,
1559     & 0.5031E-08, 0.3182E-08, 0.5970E-09, -0.2547E-08, -0.6172E-08,
1560     & -0.1017E-07, -0.1388E-07, -0.1430E-07, -0.6118E-08, 0.1624E-07,
1561     & 0.5791E-07, 0.1205E-06, 0.2025E-06, 0.3032E-06, 0.4225E-06,
1562     & 0.5619E-06, 0.7322E-06, 0.9528E-06, 0.1243E-05, 0.1592E-05,
1563     & 0.1904E-05/
1564     data ((h81(ip,iw,1),iw=1,31),ip=14,14)/
1565     & 0.1346E-04, 0.2655E-04, 0.5192E-04, 0.1001E-03, 0.1887E-03,
1566     & 0.3442E-03, 0.6001E-03, 0.9892E-03, 0.1536E-02, 0.2262E-02,
1567     & 0.3200E-02, 0.4420E-02, 0.6053E-02, 0.8300E-02, 0.1146E-01,
1568     & 0.1592E-01, 0.2224E-01, 0.3112E-01, 0.4348E-01, 0.6051E-01,
1569     & 0.8369E-01, 0.1147E+00, 0.1556E+00, 0.2084E+00, 0.2749E+00,
1570     & 0.3561E+00, 0.4511E+00, 0.5562E+00, 0.6644E+00, 0.7655E+00,
1571     & 0.8499E+00/
1572     data ((h82(ip,iw,1),iw=1,31),ip=14,14)/
1573     & -0.5210E-08, -0.1172E-07, -0.2731E-07, -0.6598E-07, -0.1615E-06,
1574     & -0.3880E-06, -0.8769E-06, -0.1787E-05, -0.3204E-05, -0.5066E-05,
1575     & -0.7197E-05, -0.9451E-05, -0.1185E-04, -0.1465E-04, -0.1831E-04,
1576     & -0.2346E-04, -0.3088E-04, -0.4132E-04, -0.5545E-04, -0.7410E-04,
1577     & -0.9820E-04, -0.1288E-03, -0.1670E-03, -0.2140E-03, -0.2692E-03,
1578     & -0.3293E-03, -0.3886E-03, -0.4417E-03, -0.4840E-03, -0.5073E-03,
1579     & -0.4944E-03/
1580     data ((h83(ip,iw,1),iw=1,31),ip=14,14)/
1581     & 0.1880E-10, 0.4271E-10, 0.9966E-10, 0.2352E-09, 0.5497E-09,
1582     & 0.1205E-08, 0.2334E-08, 0.3765E-08, 0.4993E-08, 0.5532E-08,
1583     & 0.5148E-08, 0.4055E-08, 0.2650E-08, 0.1326E-08, 0.2019E-09,
1584     & -0.1124E-08, -0.2234E-08, 0.2827E-09, 0.1247E-07, 0.4102E-07,
1585     & 0.9228E-07, 0.1682E-06, 0.2676E-06, 0.3885E-06, 0.5286E-06,
1586     & 0.6904E-06, 0.8871E-06, 0.1142E-05, 0.1466E-05, 0.1800E-05,
1587     & 0.2004E-05/
1588     data ((h81(ip,iw,1),iw=1,31),ip=15,15)/
1589     & 0.1348E-04, 0.2663E-04, 0.5216E-04, 0.1009E-03, 0.1912E-03,
1590     & 0.3515E-03, 0.6196E-03, 0.1036E-02, 0.1637E-02, 0.2456E-02,
1591     & 0.3544E-02, 0.4996E-02, 0.6973E-02, 0.9722E-02, 0.1360E-01,
1592     & 0.1908E-01, 0.2681E-01, 0.3766E-01, 0.5272E-01, 0.7343E-01,
1593     & 0.1015E+00, 0.1388E+00, 0.1874E+00, 0.2492E+00, 0.3257E+00,
1594     & 0.4165E+00, 0.5191E+00, 0.6275E+00, 0.7324E+00, 0.8235E+00,
1595     & 0.8939E+00/
1596     data ((h82(ip,iw,1),iw=1,31),ip=15,15)/
1597     & -0.5045E-08, -0.1113E-07, -0.2540E-07, -0.6008E-07, -0.1449E-06,
1598     & -0.3457E-06, -0.7826E-06, -0.1609E-05, -0.2920E-05, -0.4665E-05,
1599     & -0.6691E-05, -0.8868E-05, -0.1127E-04, -0.1422E-04, -0.1820E-04,
1600     & -0.2389E-04, -0.3213E-04, -0.4380E-04, -0.5975E-04, -0.8092E-04,
1601     & -0.1083E-03, -0.1433E-03, -0.1873E-03, -0.2402E-03, -0.2997E-03,
1602     & -0.3607E-03, -0.4178E-03, -0.4662E-03, -0.4994E-03, -0.5028E-03,
1603     & -0.4563E-03/
1604     data ((h83(ip,iw,1),iw=1,31),ip=15,15)/
1605     & 0.1804E-10, 0.3983E-10, 0.9045E-10, 0.2080E-09, 0.4786E-09,
1606     & 0.1046E-08, 0.2052E-08, 0.3413E-08, 0.4704E-08, 0.5565E-08,
1607     & 0.5887E-08, 0.5981E-08, 0.6202E-08, 0.6998E-08, 0.8493E-08,
1608     & 0.1002E-07, 0.1184E-07, 0.1780E-07, 0.3483E-07, 0.7122E-07,
1609     & 0.1341E-06, 0.2259E-06, 0.3446E-06, 0.4866E-06, 0.6486E-06,
1610     & 0.8343E-06, 0.1063E-05, 0.1356E-05, 0.1690E-05, 0.1951E-05,
1611     & 0.2005E-05/
1612     data ((h81(ip,iw,1),iw=1,31),ip=16,16)/
1613     & 0.1351E-04, 0.2672E-04, 0.5247E-04, 0.1019E-03, 0.1944E-03,
1614     & 0.3609E-03, 0.6451E-03, 0.1098E-02, 0.1772E-02, 0.2718E-02,
1615     & 0.4009E-02, 0.5767E-02, 0.8190E-02, 0.1158E-01, 0.1636E-01,
1616     & 0.2311E-01, 0.3260E-01, 0.4586E-01, 0.6425E-01, 0.8940E-01,
1617     & 0.1232E+00, 0.1678E+00, 0.2251E+00, 0.2967E+00, 0.3831E+00,
1618     & 0.4825E+00, 0.5901E+00, 0.6976E+00, 0.7946E+00, 0.8725E+00,
1619     & 0.9285E+00/
1620     data ((h82(ip,iw,1),iw=1,31),ip=16,16)/
1621     & -0.4850E-08, -0.1045E-07, -0.2334E-07, -0.5367E-07, -0.1265E-06,
1622     & -0.2980E-06, -0.6750E-06, -0.1406E-05, -0.2601E-05, -0.4239E-05,
1623     & -0.6201E-05, -0.8389E-05, -0.1091E-04, -0.1413E-04, -0.1859E-04,
1624     & -0.2500E-04, -0.3432E-04, -0.4761E-04, -0.6595E-04, -0.9030E-04,
1625     & -0.1219E-03, -0.1624E-03, -0.2126E-03, -0.2708E-03, -0.3327E-03,
1626     & -0.3926E-03, -0.4458E-03, -0.4871E-03, -0.5045E-03, -0.4777E-03,
1627     & -0.3954E-03/
1628     data ((h83(ip,iw,1),iw=1,31),ip=16,16)/
1629     & 0.1717E-10, 0.3723E-10, 0.8093E-10, 0.1817E-09, 0.4100E-09,
1630     & 0.8932E-09, 0.1791E-08, 0.3126E-08, 0.4634E-08, 0.6095E-08,
1631     & 0.7497E-08, 0.9170E-08, 0.1136E-07, 0.1453E-07, 0.1892E-07,
1632     & 0.2369E-07, 0.2909E-07, 0.3922E-07, 0.6232E-07, 0.1083E-06,
1633     & 0.1847E-06, 0.2943E-06, 0.4336E-06, 0.5970E-06, 0.7815E-06,
1634     & 0.9959E-06, 0.1263E-05, 0.1583E-05, 0.1880E-05, 0.2009E-05,
1635     & 0.1914E-05/
1636     data ((h81(ip,iw,1),iw=1,31),ip=17,17)/
1637     & 0.1353E-04, 0.2681E-04, 0.5283E-04, 0.1031E-03, 0.1981E-03,
1638     & 0.3721E-03, 0.6761E-03, 0.1176E-02, 0.1943E-02, 0.3055E-02,
1639     & 0.4612E-02, 0.6766E-02, 0.9760E-02, 0.1396E-01, 0.1986E-01,
1640     & 0.2818E-01, 0.3984E-01, 0.5609E-01, 0.7850E-01, 0.1090E+00,
1641     & 0.1495E+00, 0.2023E+00, 0.2691E+00, 0.3508E+00, 0.4465E+00,
1642     & 0.5524E+00, 0.6613E+00, 0.7633E+00, 0.8485E+00, 0.9119E+00,
1643     & 0.9543E+00/
1644     data ((h82(ip,iw,1),iw=1,31),ip=17,17)/
1645     & -0.4673E-08, -0.9862E-08, -0.2135E-07, -0.4753E-07, -0.1087E-06,
1646     & -0.2512E-06, -0.5671E-06, -0.1199E-05, -0.2281E-05, -0.3842E-05,
1647     & -0.5804E-05, -0.8110E-05, -0.1088E-04, -0.1452E-04, -0.1961E-04,
1648     & -0.2696E-04, -0.3768E-04, -0.5311E-04, -0.7444E-04, -0.1028E-03,
1649     & -0.1397E-03, -0.1865E-03, -0.2427E-03, -0.3047E-03, -0.3667E-03,
1650     & -0.4237E-03, -0.4712E-03, -0.5003E-03, -0.4921E-03, -0.4286E-03,
1651     & -0.3188E-03/
1652     data ((h83(ip,iw,1),iw=1,31),ip=17,17)/
1653     & 0.1653E-10, 0.3436E-10, 0.7431E-10, 0.1605E-09, 0.3548E-09,
1654     & 0.7723E-09, 0.1595E-08, 0.2966E-08, 0.4849E-08, 0.7169E-08,
1655     & 0.1003E-07, 0.1366E-07, 0.1825E-07, 0.2419E-07, 0.3186E-07,
1656     & 0.4068E-07, 0.5064E-07, 0.6618E-07, 0.9684E-07, 0.1536E-06,
1657     & 0.2450E-06, 0.3730E-06, 0.5328E-06, 0.7184E-06, 0.9291E-06,
1658     & 0.1180E-05, 0.1484E-05, 0.1798E-05, 0.1992E-05, 0.1968E-05,
1659     & 0.1736E-05/
1660     data ((h81(ip,iw,1),iw=1,31),ip=18,18)/
1661     & 0.1356E-04, 0.2691E-04, 0.5318E-04, 0.1043E-03, 0.2020E-03,
1662     & 0.3841E-03, 0.7100E-03, 0.1263E-02, 0.2144E-02, 0.3464E-02,
1663     & 0.5359E-02, 0.8019E-02, 0.1174E-01, 0.1694E-01, 0.2426E-01,
1664     & 0.3451E-01, 0.4883E-01, 0.6870E-01, 0.9593E-01, 0.1326E+00,
1665     & 0.1809E+00, 0.2428E+00, 0.3196E+00, 0.4112E+00, 0.5147E+00,
1666     & 0.6239E+00, 0.7297E+00, 0.8217E+00, 0.8928E+00, 0.9421E+00,
1667     & 0.9726E+00/
1668     data ((h82(ip,iw,1),iw=1,31),ip=18,18)/
1669     & -0.4532E-08, -0.9395E-08, -0.1978E-07, -0.4272E-07, -0.9442E-07,
1670     & -0.2124E-06, -0.4747E-06, -0.1017E-05, -0.2003E-05, -0.3524E-05,
1671     & -0.5567E-05, -0.8108E-05, -0.1127E-04, -0.1547E-04, -0.2138E-04,
1672     & -0.2996E-04, -0.4251E-04, -0.6059E-04, -0.8563E-04, -0.1190E-03,
1673     & -0.1623E-03, -0.2156E-03, -0.2767E-03, -0.3403E-03, -0.4006E-03,
1674     & -0.4530E-03, -0.4912E-03, -0.4995E-03, -0.4563E-03, -0.3592E-03,
1675     & -0.2383E-03/
1676     data ((h83(ip,iw,1),iw=1,31),ip=18,18)/
1677     & 0.1593E-10, 0.3276E-10, 0.6896E-10, 0.1476E-09, 0.3190E-09,
1678     & 0.6944E-09, 0.1474E-08, 0.2935E-08, 0.5300E-08, 0.8697E-08,
1679     & 0.1336E-07, 0.1946E-07, 0.2707E-07, 0.3637E-07, 0.4800E-07,
1680     & 0.6187E-07, 0.7806E-07, 0.1008E-06, 0.1404E-06, 0.2089E-06,
1681     & 0.3153E-06, 0.4613E-06, 0.6416E-06, 0.8506E-06, 0.1095E-05,
1682     & 0.1387E-05, 0.1708E-05, 0.1956E-05, 0.2003E-05, 0.1836E-05,
1683     & 0.1483E-05/
1684     data ((h81(ip,iw,1),iw=1,31),ip=19,19)/
1685     & 0.1358E-04, 0.2700E-04, 0.5350E-04, 0.1054E-03, 0.2057E-03,
1686     & 0.3955E-03, 0.7434E-03, 0.1353E-02, 0.2361E-02, 0.3928E-02,
1687     & 0.6237E-02, 0.9531E-02, 0.1416E-01, 0.2063E-01, 0.2968E-01,
1688     & 0.4233E-01, 0.5990E-01, 0.8412E-01, 0.1170E+00, 0.1608E+00,
1689     & 0.2177E+00, 0.2894E+00, 0.3764E+00, 0.4768E+00, 0.5855E+00,
1690     & 0.6941E+00, 0.7921E+00, 0.8710E+00, 0.9276E+00, 0.9641E+00,
1691     & 0.9846E+00/
1692     data ((h82(ip,iw,1),iw=1,31),ip=19,19)/
1693     & -0.4448E-08, -0.9085E-08, -0.1877E-07, -0.3946E-07, -0.8472E-07,
1694     & -0.1852E-06, -0.4074E-06, -0.8791E-06, -0.1789E-05, -0.3314E-05,
1695     & -0.5521E-05, -0.8425E-05, -0.1215E-04, -0.1711E-04, -0.2407E-04,
1696     & -0.3421E-04, -0.4905E-04, -0.7032E-04, -0.9985E-04, -0.1394E-03,
1697     & -0.1897E-03, -0.2491E-03, -0.3132E-03, -0.3763E-03, -0.4332E-03,
1698     & -0.4786E-03, -0.5005E-03, -0.4775E-03, -0.3970E-03, -0.2794E-03,
1699     & -0.1652E-03/
1700     data ((h83(ip,iw,1),iw=1,31),ip=19,19)/
1701     & 0.1566E-10, 0.3219E-10, 0.6635E-10, 0.1400E-09, 0.2999E-09,
1702     & 0.6513E-09, 0.1406E-08, 0.2953E-08, 0.5789E-08, 0.1037E-07,
1703     & 0.1709E-07, 0.2623E-07, 0.3777E-07, 0.5159E-07, 0.6823E-07,
1704     & 0.8864E-07, 0.1134E-06, 0.1461E-06, 0.1960E-06, 0.2761E-06,
1705     & 0.3962E-06, 0.5583E-06, 0.7580E-06, 0.9957E-06, 0.1282E-05,
1706     & 0.1607E-05, 0.1898E-05, 0.2020E-05, 0.1919E-05, 0.1623E-05,
1707     & 0.1171E-05/
1708     data ((h81(ip,iw,1),iw=1,31),ip=20,20)/
1709     & 0.1360E-04, 0.2707E-04, 0.5375E-04, 0.1063E-03, 0.2087E-03,
1710     & 0.4052E-03, 0.7731E-03, 0.1437E-02, 0.2575E-02, 0.4414E-02,
1711     & 0.7212E-02, 0.1128E-01, 0.1704E-01, 0.2509E-01, 0.3631E-01,
1712     & 0.5188E-01, 0.7338E-01, 0.1028E+00, 0.1422E+00, 0.1940E+00,
1713     & 0.2603E+00, 0.3422E+00, 0.4387E+00, 0.5459E+00, 0.6563E+00,
1714     & 0.7597E+00, 0.8461E+00, 0.9105E+00, 0.9536E+00, 0.9791E+00,
1715     & 0.9920E+00/
1716     data ((h82(ip,iw,1),iw=1,31),ip=20,20)/
1717     & -0.4403E-08, -0.8896E-08, -0.1818E-07, -0.3751E-07, -0.7880E-07,
1718     & -0.1683E-06, -0.3640E-06, -0.7852E-06, -0.1640E-05, -0.3191E-05,
1719     & -0.5634E-05, -0.9046E-05, -0.1355E-04, -0.1953E-04, -0.2786E-04,
1720     & -0.3995E-04, -0.5752E-04, -0.8256E-04, -0.1174E-03, -0.1638E-03,
1721     & -0.2211E-03, -0.2854E-03, -0.3507E-03, -0.4116E-03, -0.4633E-03,
1722     & -0.4966E-03, -0.4921E-03, -0.4309E-03, -0.3215E-03, -0.2016E-03,
1723     & -0.1061E-03/
1724     data ((h83(ip,iw,1),iw=1,31),ip=20,20)/
1725     & 0.1551E-10, 0.3147E-10, 0.6419E-10, 0.1356E-09, 0.2860E-09,
1726     & 0.6178E-09, 0.1353E-08, 0.2934E-08, 0.6095E-08, 0.1174E-07,
1727     & 0.2067E-07, 0.3346E-07, 0.5014E-07, 0.7024E-07, 0.9377E-07,
1728     & 0.1226E-06, 0.1592E-06, 0.2056E-06, 0.2678E-06, 0.3584E-06,
1729     & 0.4892E-06, 0.6651E-06, 0.8859E-06, 0.1160E-05, 0.1488E-05,
1730     & 0.1814E-05, 0.2010E-05, 0.1984E-05, 0.1748E-05, 0.1338E-05,
1731     & 0.8445E-06/
1732     data ((h81(ip,iw,1),iw=1,31),ip=21,21)/
1733     & 0.1361E-04, 0.2711E-04, 0.5393E-04, 0.1070E-03, 0.2110E-03,
1734     & 0.4129E-03, 0.7973E-03, 0.1508E-02, 0.2769E-02, 0.4886E-02,
1735     & 0.8229E-02, 0.1322E-01, 0.2037E-01, 0.3038E-01, 0.4427E-01,
1736     & 0.6342E-01, 0.8963E-01, 0.1250E+00, 0.1720E+00, 0.2327E+00,
1737     & 0.3089E+00, 0.4007E+00, 0.5052E+00, 0.6163E+00, 0.7241E+00,
1738     & 0.8179E+00, 0.8905E+00, 0.9408E+00, 0.9720E+00, 0.9887E+00,
1739     & 0.9961E+00/
1740     data ((h82(ip,iw,1),iw=1,31),ip=21,21)/
1741     & -0.4379E-08, -0.8801E-08, -0.1782E-07, -0.3642E-07, -0.7536E-07,
1742     & -0.1581E-06, -0.3366E-06, -0.7227E-06, -0.1532E-05, -0.3106E-05,
1743     & -0.5810E-05, -0.9862E-05, -0.1540E-04, -0.2279E-04, -0.3292E-04,
1744     & -0.4738E-04, -0.6817E-04, -0.9765E-04, -0.1384E-03, -0.1918E-03,
1745     & -0.2551E-03, -0.3226E-03, -0.3876E-03, -0.4452E-03, -0.4883E-03,
1746     & -0.5005E-03, -0.4598E-03, -0.3633E-03, -0.2416E-03, -0.1349E-03,
1747     & -0.6278E-04/
1748     data ((h83(ip,iw,1),iw=1,31),ip=21,21)/
1749     & 0.1542E-10, 0.3111E-10, 0.6345E-10, 0.1310E-09, 0.2742E-09,
1750     & 0.5902E-09, 0.1289E-08, 0.2826E-08, 0.6103E-08, 0.1250E-07,
1751     & 0.2355E-07, 0.4041E-07, 0.6347E-07, 0.9217E-07, 0.1256E-06,
1752     & 0.1658E-06, 0.2175E-06, 0.2824E-06, 0.3607E-06, 0.4614E-06,
1753     & 0.6004E-06, 0.7880E-06, 0.1034E-05, 0.1349E-05, 0.1698E-05,
1754     & 0.1965E-05, 0.2021E-05, 0.1857E-05, 0.1500E-05, 0.1015E-05,
1755     & 0.5467E-06/
1756     data ((h81(ip,iw,1),iw=1,31),ip=22,22)/
1757     & 0.1362E-04, 0.2714E-04, 0.5405E-04, 0.1074E-03, 0.2127E-03,
1758     & 0.4187E-03, 0.8159E-03, 0.1565E-02, 0.2933E-02, 0.5314E-02,
1759     & 0.9222E-02, 0.1525E-01, 0.2406E-01, 0.3649E-01, 0.5367E-01,
1760     & 0.7717E-01, 0.1090E+00, 0.1514E+00, 0.2067E+00, 0.2770E+00,
1761     & 0.3633E+00, 0.4640E+00, 0.5742E+00, 0.6853E+00, 0.7859E+00,
1762     & 0.8670E+00, 0.9253E+00, 0.9629E+00, 0.9842E+00, 0.9942E+00,
1763     & 0.9983E+00/
1764     data ((h82(ip,iw,1),iw=1,31),ip=22,22)/
1765     & -0.4366E-08, -0.8749E-08, -0.1761E-07, -0.3578E-07, -0.7322E-07,
1766     & -0.1517E-06, -0.3189E-06, -0.6785E-06, -0.1446E-05, -0.3014E-05,
1767     & -0.5933E-05, -0.1069E-04, -0.1755E-04, -0.2683E-04, -0.3936E-04,
1768     & -0.5675E-04, -0.8137E-04, -0.1160E-03, -0.1630E-03, -0.2223E-03,
1769     & -0.2899E-03, -0.3589E-03, -0.4230E-03, -0.4755E-03, -0.5031E-03,
1770     & -0.4834E-03, -0.4036E-03, -0.2849E-03, -0.1687E-03, -0.8356E-04,
1771     & -0.3388E-04/
1772     data ((h83(ip,iw,1),iw=1,31),ip=22,22)/
1773     & 0.1536E-10, 0.3086E-10, 0.6248E-10, 0.1288E-09, 0.2664E-09,
1774     & 0.5637E-09, 0.1222E-08, 0.2680E-08, 0.5899E-08, 0.1262E-07,
1775     & 0.2527E-07, 0.4621E-07, 0.7678E-07, 0.1165E-06, 0.1640E-06,
1776     & 0.2199E-06, 0.2904E-06, 0.3783E-06, 0.4787E-06, 0.5925E-06,
1777     & 0.7377E-06, 0.9389E-06, 0.1216E-05, 0.1560E-05, 0.1879E-05,
1778     & 0.2025E-05, 0.1940E-05, 0.1650E-05, 0.1194E-05, 0.6981E-06,
1779     & 0.3103E-06/
1780     data ((h81(ip,iw,1),iw=1,31),ip=23,23)/
1781     & 0.1362E-04, 0.2716E-04, 0.5413E-04, 0.1077E-03, 0.2139E-03,
1782     & 0.4228E-03, 0.8295E-03, 0.1609E-02, 0.3063E-02, 0.5676E-02,
1783     & 0.1013E-01, 0.1726E-01, 0.2799E-01, 0.4332E-01, 0.6452E-01,
1784     & 0.9328E-01, 0.1317E+00, 0.1820E+00, 0.2467E+00, 0.3270E+00,
1785     & 0.4228E+00, 0.5308E+00, 0.6434E+00, 0.7499E+00, 0.8395E+00,
1786     & 0.9065E+00, 0.9515E+00, 0.9782E+00, 0.9916E+00, 0.9973E+00,
1787     & 0.9993E+00/
1788     data ((h82(ip,iw,1),iw=1,31),ip=23,23)/
1789     & -0.4359E-08, -0.8720E-08, -0.1749E-07, -0.3527E-07, -0.7175E-07,
1790     & -0.1473E-06, -0.3062E-06, -0.6451E-06, -0.1372E-05, -0.2902E-05,
1791     & -0.5936E-05, -0.1133E-04, -0.1971E-04, -0.3143E-04, -0.4715E-04,
1792     & -0.6833E-04, -0.9759E-04, -0.1379E-03, -0.1907E-03, -0.2542E-03,
1793     & -0.3239E-03, -0.3935E-03, -0.4559E-03, -0.4991E-03, -0.5009E-03,
1794     & -0.4414E-03, -0.3306E-03, -0.2077E-03, -0.1093E-03, -0.4754E-04,
1795     & -0.1642E-04/
1796     data ((h83(ip,iw,1),iw=1,31),ip=23,23)/
1797     & 0.1531E-10, 0.3070E-10, 0.6184E-10, 0.1257E-09, 0.2578E-09,
1798     & 0.5451E-09, 0.1159E-08, 0.2526E-08, 0.5585E-08, 0.1225E-07,
1799     & 0.2576E-07, 0.5017E-07, 0.8855E-07, 0.1417E-06, 0.2078E-06,
1800     & 0.2858E-06, 0.3802E-06, 0.4946E-06, 0.6226E-06, 0.7572E-06,
1801     & 0.9137E-06, 0.1133E-05, 0.1438E-05, 0.1772E-05, 0.1994E-05,
1802     & 0.1994E-05, 0.1779E-05, 0.1375E-05, 0.8711E-06, 0.4273E-06,
1803     & 0.1539E-06/
1804     data ((h81(ip,iw,1),iw=1,31),ip=24,24)/
1805     & 0.1362E-04, 0.2717E-04, 0.5417E-04, 0.1079E-03, 0.2146E-03,
1806     & 0.4256E-03, 0.8393E-03, 0.1641E-02, 0.3163E-02, 0.5968E-02,
1807     & 0.1092E-01, 0.1915E-01, 0.3195E-01, 0.5066E-01, 0.7669E-01,
1808     & 0.1117E+00, 0.1578E+00, 0.2173E+00, 0.2919E+00, 0.3824E+00,
1809     & 0.4867E+00, 0.5992E+00, 0.7100E+00, 0.8076E+00, 0.8838E+00,
1810     & 0.9370E+00, 0.9702E+00, 0.9880E+00, 0.9959E+00, 0.9988E+00,
1811     & 0.9998E+00/
1812     data ((h82(ip,iw,1),iw=1,31),ip=24,24)/
1813     & -0.4354E-08, -0.8703E-08, -0.1742E-07, -0.3499E-07, -0.7074E-07,
1814     & -0.1441E-06, -0.2971E-06, -0.6195E-06, -0.1309E-05, -0.2780E-05,
1815     & -0.5823E-05, -0.1165E-04, -0.2152E-04, -0.3616E-04, -0.5604E-04,
1816     & -0.8230E-04, -0.1173E-03, -0.1635E-03, -0.2211E-03, -0.2868E-03,
1817     & -0.3567E-03, -0.4260E-03, -0.4844E-03, -0.5097E-03, -0.4750E-03,
1818     & -0.3779E-03, -0.2522E-03, -0.1409E-03, -0.6540E-04, -0.2449E-04,
1819     & -0.6948E-05/
1820     data ((h83(ip,iw,1),iw=1,31),ip=24,24)/
1821     & 0.1529E-10, 0.3060E-10, 0.6142E-10, 0.1241E-09, 0.2535E-09,
1822     & 0.5259E-09, 0.1107E-08, 0.2383E-08, 0.5243E-08, 0.1161E-07,
1823     & 0.2523E-07, 0.5188E-07, 0.9757E-07, 0.1657E-06, 0.2553E-06,
1824     & 0.3629E-06, 0.4878E-06, 0.6323E-06, 0.7923E-06, 0.9575E-06,
1825     & 0.1139E-05, 0.1381E-05, 0.1687E-05, 0.1952E-05, 0.2029E-05,
1826     & 0.1890E-05, 0.1552E-05, 0.1062E-05, 0.5728E-06, 0.2280E-06,
1827     & 0.6762E-07/
1828     data ((h81(ip,iw,1),iw=1,31),ip=25,25)/
1829     & 0.1363E-04, 0.2718E-04, 0.5420E-04, 0.1080E-03, 0.2151E-03,
1830     & 0.4275E-03, 0.8461E-03, 0.1664E-02, 0.3237E-02, 0.6195E-02,
1831     & 0.1156E-01, 0.2080E-01, 0.3573E-01, 0.5818E-01, 0.8981E-01,
1832     & 0.1323E+00, 0.1874E+00, 0.2570E+00, 0.3423E+00, 0.4425E+00,
1833     & 0.5534E+00, 0.6669E+00, 0.7714E+00, 0.8568E+00, 0.9191E+00,
1834     & 0.9597E+00, 0.9828E+00, 0.9938E+00, 0.9981E+00, 0.9996E+00,
1835     & 0.1000E+01/
1836     data ((h82(ip,iw,1),iw=1,31),ip=25,25)/
1837     & -0.4352E-08, -0.8693E-08, -0.1738E-07, -0.3483E-07, -0.7006E-07,
1838     & -0.1423E-06, -0.2905E-06, -0.6008E-06, -0.1258E-05, -0.2663E-05,
1839     & -0.5638E-05, -0.1165E-04, -0.2270E-04, -0.4044E-04, -0.6554E-04,
1840     & -0.9855E-04, -0.1407E-03, -0.1928E-03, -0.2534E-03, -0.3197E-03,
1841     & -0.3890E-03, -0.4563E-03, -0.5040E-03, -0.4998E-03, -0.4249E-03,
1842     & -0.3025E-03, -0.1794E-03, -0.8860E-04, -0.3575E-04, -0.1122E-04,
1843     & -0.2506E-05/
1844     data ((h83(ip,iw,1),iw=1,31),ip=25,25)/
1845     & 0.1527E-10, 0.3053E-10, 0.6115E-10, 0.1230E-09, 0.2492E-09,
1846     & 0.5149E-09, 0.1068E-08, 0.2268E-08, 0.4932E-08, 0.1089E-07,
1847     & 0.2408E-07, 0.5156E-07, 0.1028E-06, 0.1859E-06, 0.3028E-06,
1848     & 0.4476E-06, 0.6124E-06, 0.7932E-06, 0.9879E-06, 0.1194E-05,
1849     & 0.1417E-05, 0.1673E-05, 0.1929E-05, 0.2064E-05, 0.1997E-05,
1850     & 0.1725E-05, 0.1267E-05, 0.7464E-06, 0.3312E-06, 0.1066E-06,
1851     & 0.2718E-07/
1852     data ((h81(ip,iw,1),iw=1,31),ip=26,26)/
1853     & 0.1363E-04, 0.2719E-04, 0.5422E-04, 0.1081E-03, 0.2154E-03,
1854     & 0.4287E-03, 0.8506E-03, 0.1680E-02, 0.3291E-02, 0.6364E-02,
1855     & 0.1206E-01, 0.2218E-01, 0.3912E-01, 0.6544E-01, 0.1033E+00,
1856     & 0.1544E+00, 0.2198E+00, 0.3008E+00, 0.3970E+00, 0.5060E+00,
1857     & 0.6209E+00, 0.7311E+00, 0.8254E+00, 0.8972E+00, 0.9462E+00,
1858     & 0.9757E+00, 0.9907E+00, 0.9970E+00, 0.9992E+00, 0.9999E+00,
1859     & 0.1000E+01/
1860     data ((h82(ip,iw,1),iw=1,31),ip=26,26)/
1861     & -0.4351E-08, -0.8688E-08, -0.1736E-07, -0.3473E-07, -0.6966E-07,
1862     & -0.1405E-06, -0.2857E-06, -0.5867E-06, -0.1218E-05, -0.2563E-05,
1863     & -0.5435E-05, -0.1144E-04, -0.2321E-04, -0.4379E-04, -0.7487E-04,
1864     & -0.1163E-03, -0.1670E-03, -0.2250E-03, -0.2876E-03, -0.3535E-03,
1865     & -0.4215E-03, -0.4826E-03, -0.5082E-03, -0.4649E-03, -0.3564E-03,
1866     & -0.2264E-03, -0.1188E-03, -0.5128E-04, -0.1758E-04, -0.4431E-05,
1867     & -0.7275E-06/
1868     data ((h83(ip,iw,1),iw=1,31),ip=26,26)/
1869     & 0.1525E-10, 0.3048E-10, 0.6097E-10, 0.1223E-09, 0.2466E-09,
1870     & 0.5021E-09, 0.1032E-08, 0.2195E-08, 0.4688E-08, 0.1027E-07,
1871     & 0.2279E-07, 0.4999E-07, 0.1046E-06, 0.2009E-06, 0.3460E-06,
1872     & 0.5335E-06, 0.7478E-06, 0.9767E-06, 0.1216E-05, 0.1469E-05,
1873     & 0.1735E-05, 0.1977E-05, 0.2121E-05, 0.2103E-05, 0.1902E-05,
1874     & 0.1495E-05, 0.9541E-06, 0.4681E-06, 0.1672E-06, 0.4496E-07,
1875     & 0.9859E-08/
  ViewVC Help
Powered by ViewVC 1.1.22