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

Annotation of /MITgcm/pkg/fizhi/co2-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 ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/
5     & 0.1351E-03, 0.2245E-03, 0.3475E-03, 0.5039E-03, 0.7055E-03,
6     & 0.9798E-03, 0.1366E-02, 0.1909E-02, 0.2632E-02, 0.3554E-02,
7     & 0.4701E-02, 0.6144E-02, 0.7957E-02, 0.1024E-01, 0.1311E-01,
8     & 0.1674E-01, 0.2133E-01, 0.2708E-01, 0.3420E-01, 0.4293E-01,
9     & 0.5361E-01, 0.6667E-01, 0.8274E-01, 0.1026E+00/
10     data ((c2(ip,iw,1),iw=1,24),ip= 1, 1)/
11     & -0.2878E-06, -0.6295E-06, -0.1270E-05, -0.2323E-05, -0.3910E-05,
12     & -0.6235E-05, -0.9527E-05, -0.1391E-04, -0.1947E-04, -0.2652E-04,
13     & -0.3568E-04, -0.4777E-04, -0.6363E-04, -0.8414E-04, -0.1102E-03,
14     & -0.1425E-03, -0.1822E-03, -0.2301E-03, -0.2869E-03, -0.3534E-03,
15     & -0.4305E-03, -0.5188E-03, -0.6173E-03, -0.7229E-03/
16     data ((c3(ip,iw,1),iw=1,24),ip= 1, 1)/
17     & -0.2369E-09, -0.5453E-09, -0.1434E-08, -0.3513E-08, -0.7277E-08,
18     & -0.1283E-07, -0.1983E-07, -0.2838E-07, -0.4075E-07, -0.6115E-07,
19     & -0.9201E-07, -0.1325E-06, -0.1844E-06, -0.2534E-06, -0.3430E-06,
20     & -0.4550E-06, -0.5896E-06, -0.7434E-06, -0.9121E-06, -0.1096E-05,
21     & -0.1298E-05, -0.1508E-05, -0.1689E-05, -0.1773E-05/
22     data ((c1(ip,iw,1),iw=1,24),ip= 2, 2)/
23     & 0.1352E-03, 0.2245E-03, 0.3477E-03, 0.5043E-03, 0.7067E-03,
24     & 0.9816E-03, 0.1370E-02, 0.1913E-02, 0.2642E-02, 0.3571E-02,
25     & 0.4735E-02, 0.6202E-02, 0.8060E-02, 0.1041E-01, 0.1340E-01,
26     & 0.1721E-01, 0.2206E-01, 0.2814E-01, 0.3574E-01, 0.4513E-01,
27     & 0.5671E-01, 0.7100E-01, 0.8878E-01, 0.1109E+00/
28     data ((c2(ip,iw,1),iw=1,24),ip= 2, 2)/
29     & -0.2875E-06, -0.6289E-06, -0.1269E-05, -0.2321E-05, -0.3907E-05,
30     & -0.6229E-05, -0.9516E-05, -0.1389E-04, -0.1944E-04, -0.2646E-04,
31     & -0.3559E-04, -0.4762E-04, -0.6340E-04, -0.8384E-04, -0.1098E-03,
32     & -0.1423E-03, -0.1824E-03, -0.2309E-03, -0.2887E-03, -0.3566E-03,
33     & -0.4355E-03, -0.5260E-03, -0.6274E-03, -0.7367E-03/
34     data ((c3(ip,iw,1),iw=1,24),ip= 2, 2)/
35     & -0.2382E-09, -0.5476E-09, -0.1437E-08, -0.3520E-08, -0.7291E-08,
36     & -0.1286E-07, -0.1989E-07, -0.2849E-07, -0.4093E-07, -0.6144E-07,
37     & -0.9241E-07, -0.1330E-06, -0.1852E-06, -0.2542E-06, -0.3435E-06,
38     & -0.4549E-06, -0.5891E-06, -0.7427E-06, -0.9114E-06, -0.1096E-05,
39     & -0.1298E-05, -0.1509E-05, -0.1689E-05, -0.1772E-05/
40     data ((c1(ip,iw,1),iw=1,24),ip= 3, 3)/
41     & 0.1353E-03, 0.2246E-03, 0.3481E-03, 0.5053E-03, 0.7082E-03,
42     & 0.9840E-03, 0.1374E-02, 0.1922E-02, 0.2658E-02, 0.3598E-02,
43     & 0.4784E-02, 0.6291E-02, 0.8214E-02, 0.1067E-01, 0.1382E-01,
44     & 0.1785E-01, 0.2300E-01, 0.2953E-01, 0.3772E-01, 0.4793E-01,
45     & 0.6065E-01, 0.7654E-01, 0.9642E-01, 0.1213E+00/
46     data ((c2(ip,iw,1),iw=1,24),ip= 3, 3)/
47     & -0.2871E-06, -0.6279E-06, -0.1267E-05, -0.2318E-05, -0.3901E-05,
48     & -0.6219E-05, -0.9500E-05, -0.1386E-04, -0.1939E-04, -0.2639E-04,
49     & -0.3547E-04, -0.4743E-04, -0.6313E-04, -0.8354E-04, -0.1096E-03,
50     & -0.1425E-03, -0.1831E-03, -0.2325E-03, -0.2916E-03, -0.3613E-03,
51     & -0.4425E-03, -0.5361E-03, -0.6412E-03, -0.7550E-03/
52     data ((c3(ip,iw,1),iw=1,24),ip= 3, 3)/
53     & -0.2404E-09, -0.5516E-09, -0.1443E-08, -0.3531E-08, -0.7310E-08,
54     & -0.1290E-07, -0.1997E-07, -0.2865E-07, -0.4121E-07, -0.6185E-07,
55     & -0.9295E-07, -0.1337E-06, -0.1860E-06, -0.2549E-06, -0.3438E-06,
56     & -0.4547E-06, -0.5888E-06, -0.7424E-06, -0.9114E-06, -0.1097E-05,
57     & -0.1300E-05, -0.1511E-05, -0.1691E-05, -0.1771E-05/
58     data ((c1(ip,iw,1),iw=1,24),ip= 4, 4)/
59     & 0.1355E-03, 0.2251E-03, 0.3488E-03, 0.5064E-03, 0.7099E-03,
60     & 0.9880E-03, 0.1381E-02, 0.1935E-02, 0.2680E-02, 0.3641E-02,
61     & 0.4860E-02, 0.6423E-02, 0.8440E-02, 0.1104E-01, 0.1439E-01,
62     & 0.1871E-01, 0.2426E-01, 0.3132E-01, 0.4027E-01, 0.5152E-01,
63     & 0.6649E-01, 0.8448E-01, 0.1071E+00, 0.1353E+00/
64     data ((c2(ip,iw,1),iw=1,24),ip= 4, 4)/
65     & -0.2865E-06, -0.6264E-06, -0.1264E-05, -0.2313E-05, -0.3892E-05,
66     & -0.6204E-05, -0.9474E-05, -0.1382E-04, -0.1932E-04, -0.2628E-04,
67     & -0.3530E-04, -0.4720E-04, -0.6286E-04, -0.8333E-04, -0.1097E-03,
68     & -0.1430E-03, -0.1845E-03, -0.2352E-03, -0.2960E-03, -0.3681E-03,
69     & -0.4523E-03, -0.5496E-03, -0.6595E-03, -0.7790E-03/
70     data ((c3(ip,iw,1),iw=1,24),ip= 4, 4)/
71     & -0.2433E-09, -0.5580E-09, -0.1454E-08, -0.3550E-08, -0.7345E-08,
72     & -0.1296E-07, -0.2010E-07, -0.2889E-07, -0.4159E-07, -0.6239E-07,
73     & -0.9360E-07, -0.1345E-06, -0.1867E-06, -0.2554E-06, -0.3439E-06,
74     & -0.4548E-06, -0.5890E-06, -0.7429E-06, -0.9127E-06, -0.1099E-05,
75     & -0.1304E-05, -0.1516E-05, -0.1693E-05, -0.1770E-05/
76     data ((c1(ip,iw,1),iw=1,24),ip= 5, 5)/
77     & 0.1355E-03, 0.2255E-03, 0.3496E-03, 0.5084E-03, 0.7138E-03,
78     & 0.9945E-03, 0.1392E-02, 0.1955E-02, 0.2718E-02, 0.3707E-02,
79     & 0.4975E-02, 0.6620E-02, 0.8760E-02, 0.1154E-01, 0.1514E-01,
80     & 0.1983E-01, 0.2587E-01, 0.3363E-01, 0.4353E-01, 0.5611E-01,
81     & 0.7208E-01, 0.9233E-01, 0.1179E+00, 0.1497E+00/
82     data ((c2(ip,iw,1),iw=1,24),ip= 5, 5)/
83     & -0.2854E-06, -0.6241E-06, -0.1260E-05, -0.2305E-05, -0.3878E-05,
84     & -0.6181E-05, -0.9435E-05, -0.1375E-04, -0.1922E-04, -0.2613E-04,
85     & -0.3510E-04, -0.4696E-04, -0.6265E-04, -0.8334E-04, -0.1102E-03,
86     & -0.1443E-03, -0.1870E-03, -0.2393E-03, -0.3025E-03, -0.3775E-03,
87     & -0.4656E-03, -0.5678E-03, -0.6835E-03, -0.8098E-03/
88     data ((c3(ip,iw,1),iw=1,24),ip= 5, 5)/
89     & -0.2485E-09, -0.5672E-09, -0.1468E-08, -0.3577E-08, -0.7395E-08,
90     & -0.1306E-07, -0.2029E-07, -0.2923E-07, -0.4213E-07, -0.6307E-07,
91     & -0.9429E-07, -0.1351E-06, -0.1872E-06, -0.2557E-06, -0.3442E-06,
92     & -0.4553E-06, -0.5899E-06, -0.7447E-06, -0.9163E-06, -0.1105E-05,
93     & -0.1311E-05, -0.1522E-05, -0.1697E-05, -0.1766E-05/
94     data ((c1(ip,iw,1),iw=1,24),ip= 6, 6)/
95     & 0.1357E-03, 0.2260E-03, 0.3509E-03, 0.5112E-03, 0.7192E-03,
96     & 0.1004E-02, 0.1411E-02, 0.1987E-02, 0.2774E-02, 0.3804E-02,
97     & 0.5144E-02, 0.6901E-02, 0.9206E-02, 0.1222E-01, 0.1616E-01,
98     & 0.2129E-01, 0.2797E-01, 0.3660E-01, 0.4771E-01, 0.6193E-01,
99     & 0.8015E-01, 0.1033E+00, 0.1325E+00, 0.1684E+00/
100     data ((c2(ip,iw,1),iw=1,24),ip= 6, 6)/
101     & -0.2837E-06, -0.6203E-06, -0.1252E-05, -0.2292E-05, -0.3857E-05,
102     & -0.6146E-05, -0.9377E-05, -0.1366E-04, -0.1909E-04, -0.2596E-04,
103     & -0.3489E-04, -0.4676E-04, -0.6263E-04, -0.8372E-04, -0.1113E-03,
104     & -0.1465E-03, -0.1908E-03, -0.2454E-03, -0.3115E-03, -0.3903E-03,
105     & -0.4833E-03, -0.5915E-03, -0.7144E-03, -0.8483E-03/
106     data ((c3(ip,iw,1),iw=1,24),ip= 6, 6)/
107     & -0.2557E-09, -0.5835E-09, -0.1495E-08, -0.3619E-08, -0.7472E-08,
108     & -0.1320E-07, -0.2055E-07, -0.2970E-07, -0.4281E-07, -0.6379E-07,
109     & -0.9492E-07, -0.1356E-06, -0.1876E-06, -0.2561E-06, -0.3451E-06,
110     & -0.4568E-06, -0.5924E-06, -0.7489E-06, -0.9229E-06, -0.1114E-05,
111     & -0.1321E-05, -0.1531E-05, -0.1700E-05, -0.1756E-05/
112     data ((c1(ip,iw,1),iw=1,24),ip= 7, 7)/
113     & 0.1362E-03, 0.2271E-03, 0.3531E-03, 0.5157E-03, 0.7280E-03,
114     & 0.1020E-02, 0.1438E-02, 0.2035E-02, 0.2858E-02, 0.3951E-02,
115     & 0.5388E-02, 0.7294E-02, 0.9811E-02, 0.1312E-01, 0.1747E-01,
116     & 0.2319E-01, 0.3066E-01, 0.4040E-01, 0.5301E-01, 0.6930E-01,
117     & 0.9024E-01, 0.1168E+00, 0.1501E+00, 0.1906E+00/
118     data ((c2(ip,iw,1),iw=1,24),ip= 7, 7)/
119     & -0.2811E-06, -0.6147E-06, -0.1241E-05, -0.2272E-05, -0.3825E-05,
120     & -0.6093E-05, -0.9294E-05, -0.1354E-04, -0.1893E-04, -0.2577E-04,
121     & -0.3472E-04, -0.4672E-04, -0.6292E-04, -0.8464E-04, -0.1132E-03,
122     & -0.1500E-03, -0.1964E-03, -0.2539E-03, -0.3237E-03, -0.4074E-03,
123     & -0.5065E-03, -0.6222E-03, -0.7532E-03, -0.8955E-03/
124     data ((c3(ip,iw,1),iw=1,24),ip= 7, 7)/
125     & -0.2673E-09, -0.6022E-09, -0.1531E-08, -0.3682E-08, -0.7588E-08,
126     & -0.1342E-07, -0.2092E-07, -0.3030E-07, -0.4357E-07, -0.6448E-07,
127     & -0.9533E-07, -0.1359E-06, -0.1879E-06, -0.2570E-06, -0.3470E-06,
128     & -0.4598E-06, -0.5971E-06, -0.7563E-06, -0.9334E-06, -0.1127E-05,
129     & -0.1336E-05, -0.1543E-05, -0.1701E-05, -0.1738E-05/
130     data ((c1(ip,iw,1),iw=1,24),ip= 8, 8)/
131     & 0.1367E-03, 0.2287E-03, 0.3567E-03, 0.5233E-03, 0.7412E-03,
132     & 0.1044E-02, 0.1481E-02, 0.2108E-02, 0.2985E-02, 0.4162E-02,
133     & 0.5733E-02, 0.7831E-02, 0.1062E-01, 0.1431E-01, 0.1919E-01,
134     & 0.2564E-01, 0.3411E-01, 0.4522E-01, 0.5971E-01, 0.7855E-01,
135     & 0.1027E+00, 0.1333E+00, 0.1709E+00, 0.2161E+00/
136     data ((c2(ip,iw,1),iw=1,24),ip= 8, 8)/
137     & -0.2770E-06, -0.6058E-06, -0.1224E-05, -0.2243E-05, -0.3777E-05,
138     & -0.6018E-05, -0.9181E-05, -0.1339E-04, -0.1876E-04, -0.2561E-04,
139     & -0.3467E-04, -0.4695E-04, -0.6370E-04, -0.8635E-04, -0.1163E-03,
140     & -0.1551E-03, -0.2043E-03, -0.2654E-03, -0.3400E-03, -0.4299E-03,
141     & -0.5366E-03, -0.6609E-03, -0.8010E-03, -0.9521E-03/
142     data ((c3(ip,iw,1),iw=1,24),ip= 8, 8)/
143     & -0.2845E-09, -0.6367E-09, -0.1591E-08, -0.3779E-08, -0.7752E-08,
144     & -0.1370E-07, -0.2140E-07, -0.3101E-07, -0.4437E-07, -0.6498E-07,
145     & -0.9551E-07, -0.1360E-06, -0.1887E-06, -0.2590E-06, -0.3503E-06,
146     & -0.4650E-06, -0.6052E-06, -0.7681E-06, -0.9488E-06, -0.1145E-05,
147     & -0.1354E-05, -0.1555E-05, -0.1698E-05, -0.1701E-05/
148     data ((c1(ip,iw,1),iw=1,24),ip= 9, 9)/
149     & 0.1374E-03, 0.2312E-03, 0.3621E-03, 0.5340E-03, 0.7620E-03,
150     & 0.1081E-02, 0.1543E-02, 0.2217E-02, 0.3167E-02, 0.4462E-02,
151     & 0.6208E-02, 0.8552E-02, 0.1169E-01, 0.1585E-01, 0.2140E-01,
152     & 0.2875E-01, 0.3848E-01, 0.5131E-01, 0.6814E-01, 0.9002E-01,
153     & 0.1180E+00, 0.1530E+00, 0.1954E+00, 0.2449E+00/
154     data ((c2(ip,iw,1),iw=1,24),ip= 9, 9)/
155     & -0.2709E-06, -0.5925E-06, -0.1198E-05, -0.2199E-05, -0.3708E-05,
156     & -0.5913E-05, -0.9036E-05, -0.1322E-04, -0.1861E-04, -0.2556E-04,
157     & -0.3486E-04, -0.4760E-04, -0.6516E-04, -0.8909E-04, -0.1210E-03,
158     & -0.1624E-03, -0.2151E-03, -0.2808E-03, -0.3615E-03, -0.4590E-03,
159     & -0.5747E-03, -0.7088E-03, -0.8585E-03, -0.1018E-02/
160     data ((c3(ip,iw,1),iw=1,24),ip= 9, 9)/
161     & -0.3119E-09, -0.6873E-09, -0.1676E-08, -0.3915E-08, -0.7973E-08,
162     & -0.1407E-07, -0.2200E-07, -0.3179E-07, -0.4505E-07, -0.6522E-07,
163     & -0.9551E-07, -0.1364E-06, -0.1902E-06, -0.2622E-06, -0.3557E-06,
164     & -0.4735E-06, -0.6178E-06, -0.7853E-06, -0.9700E-06, -0.1169E-05,
165     & -0.1377E-05, -0.1567E-05, -0.1683E-05, -0.1631E-05/
166     data ((c1(ip,iw,1),iw=1,24),ip=10,10)/
167     & 0.1392E-03, 0.2348E-03, 0.3702E-03, 0.5508E-03, 0.7933E-03,
168     & 0.1136E-02, 0.1638E-02, 0.2373E-02, 0.3424E-02, 0.4876E-02,
169     & 0.6847E-02, 0.9503E-02, 0.1307E-01, 0.1785E-01, 0.2423E-01,
170     & 0.3271E-01, 0.4401E-01, 0.5896E-01, 0.7865E-01, 0.1041E+00,
171     & 0.1364E+00, 0.1760E+00, 0.2232E+00, 0.2766E+00/
172     data ((c2(ip,iw,1),iw=1,24),ip=10,10)/
173     & -0.2620E-06, -0.5728E-06, -0.1161E-05, -0.2136E-05, -0.3612E-05,
174     & -0.5777E-05, -0.8867E-05, -0.1306E-04, -0.1854E-04, -0.2572E-04,
175     & -0.3543E-04, -0.4887E-04, -0.6756E-04, -0.9321E-04, -0.1275E-03,
176     & -0.1723E-03, -0.2295E-03, -0.3011E-03, -0.3894E-03, -0.4960E-03,
177     & -0.6220E-03, -0.7665E-03, -0.9259E-03, -0.1095E-02/
178     data ((c3(ip,iw,1),iw=1,24),ip=10,10)/
179     & -0.3497E-09, -0.7575E-09, -0.1791E-08, -0.4091E-08, -0.8254E-08,
180     & -0.1452E-07, -0.2265E-07, -0.3255E-07, -0.4557E-07, -0.6530E-07,
181     & -0.9557E-07, -0.1374E-06, -0.1930E-06, -0.2675E-06, -0.3644E-06,
182     & -0.4866E-06, -0.6362E-06, -0.8090E-06, -0.9981E-06, -0.1199E-05,
183     & -0.1402E-05, -0.1574E-05, -0.1643E-05, -0.1506E-05/
184     data ((c1(ip,iw,1),iw=1,24),ip=11,11)/
185     & 0.1415E-03, 0.2407E-03, 0.3830E-03, 0.5767E-03, 0.8399E-03,
186     & 0.1215E-02, 0.1770E-02, 0.2593E-02, 0.3780E-02, 0.5432E-02,
187     & 0.7687E-02, 0.1074E-01, 0.1486E-01, 0.2040E-01, 0.2779E-01,
188     & 0.3771E-01, 0.5094E-01, 0.6853E-01, 0.9159E-01, 0.1212E+00,
189     & 0.1581E+00, 0.2027E+00, 0.2542E+00, 0.3105E+00/
190     data ((c2(ip,iw,1),iw=1,24),ip=11,11)/
191     & -0.2494E-06, -0.5450E-06, -0.1108E-05, -0.2049E-05, -0.3485E-05,
192     & -0.5612E-05, -0.8695E-05, -0.1296E-04, -0.1865E-04, -0.2620E-04,
193     & -0.3654E-04, -0.5099E-04, -0.7121E-04, -0.9909E-04, -0.1365E-03,
194     & -0.1855E-03, -0.2483E-03, -0.3274E-03, -0.4248E-03, -0.5421E-03,
195     & -0.6794E-03, -0.8346E-03, -0.1003E-02, -0.1181E-02/
196     data ((c3(ip,iw,1),iw=1,24),ip=11,11)/
197     & -0.3973E-09, -0.8499E-09, -0.1944E-08, -0.4319E-08, -0.8596E-08,
198     & -0.1501E-07, -0.2332E-07, -0.3326E-07, -0.4600E-07, -0.6541E-07,
199     & -0.9592E-07, -0.1392E-06, -0.1975E-06, -0.2757E-06, -0.3774E-06,
200     & -0.5057E-06, -0.6614E-06, -0.8401E-06, -0.1034E-05, -0.1235E-05,
201     & -0.1427E-05, -0.1565E-05, -0.1560E-05, -0.1310E-05/
202     data ((c1(ip,iw,1),iw=1,24),ip=12,12)/
203     & 0.1447E-03, 0.2485E-03, 0.4014E-03, 0.6132E-03, 0.9064E-03,
204     & 0.1329E-02, 0.1957E-02, 0.2893E-02, 0.4254E-02, 0.6163E-02,
205     & 0.8779E-02, 0.1233E-01, 0.1714E-01, 0.2360E-01, 0.3229E-01,
206     & 0.4395E-01, 0.5959E-01, 0.8032E-01, 0.1073E+00, 0.1415E+00,
207     & 0.1834E+00, 0.2327E+00, 0.2877E+00, 0.3456E+00/
208     data ((c2(ip,iw,1),iw=1,24),ip=12,12)/
209     & -0.2326E-06, -0.5076E-06, -0.1037E-05, -0.1935E-05, -0.3329E-05,
210     & -0.5433E-05, -0.8553E-05, -0.1298E-04, -0.1902E-04, -0.2716E-04,
211     & -0.3840E-04, -0.5421E-04, -0.7643E-04, -0.1071E-03, -0.1485E-03,
212     & -0.2028E-03, -0.2727E-03, -0.3608E-03, -0.4689E-03, -0.5981E-03,
213     & -0.7471E-03, -0.9128E-03, -0.1091E-02, -0.1276E-02/
214     data ((c3(ip,iw,1),iw=1,24),ip=12,12)/
215     & -0.4576E-09, -0.9621E-09, -0.2122E-08, -0.4569E-08, -0.8941E-08,
216     & -0.1550E-07, -0.2398E-07, -0.3404E-07, -0.4663E-07, -0.6577E-07,
217     & -0.9677E-07, -0.1421E-06, -0.2042E-06, -0.2878E-06, -0.3962E-06,
218     & -0.5318E-06, -0.6946E-06, -0.8798E-06, -0.1078E-05, -0.1275E-05,
219     & -0.1445E-05, -0.1523E-05, -0.1413E-05, -0.1030E-05/
220     data ((c1(ip,iw,1),iw=1,24),ip=13,13)/
221     & 0.1489E-03, 0.2594E-03, 0.4266E-03, 0.6643E-03, 0.9988E-03,
222     & 0.1484E-02, 0.2207E-02, 0.3289E-02, 0.4870E-02, 0.7102E-02,
223     & 0.1017E-01, 0.1434E-01, 0.1998E-01, 0.2759E-01, 0.3787E-01,
224     & 0.5171E-01, 0.7026E-01, 0.9468E-01, 0.1261E+00, 0.1652E+00,
225     & 0.2120E+00, 0.2653E+00, 0.3228E+00, 0.3813E+00/
226     data ((c2(ip,iw,1),iw=1,24),ip=13,13)/
227     & -0.2120E-06, -0.4613E-06, -0.9487E-06, -0.1798E-05, -0.3153E-05,
228     & -0.5260E-05, -0.8480E-05, -0.1319E-04, -0.1976E-04, -0.2876E-04,
229     & -0.4125E-04, -0.5885E-04, -0.8357E-04, -0.1178E-03, -0.1640E-03,
230     & -0.2250E-03, -0.3036E-03, -0.4023E-03, -0.5226E-03, -0.6643E-03,
231     & -0.8250E-03, -0.1001E-02, -0.1187E-02, -0.1378E-02/
232     data ((c3(ip,iw,1),iw=1,24),ip=13,13)/
233     & -0.5223E-09, -0.1082E-08, -0.2314E-08, -0.4826E-08, -0.9255E-08,
234     & -0.1596E-07, -0.2472E-07, -0.3507E-07, -0.4774E-07, -0.6677E-07,
235     & -0.9841E-07, -0.1466E-06, -0.2141E-06, -0.3049E-06, -0.4219E-06,
236     & -0.5662E-06, -0.7370E-06, -0.9290E-06, -0.1129E-05, -0.1315E-05,
237     & -0.1441E-05, -0.1427E-05, -0.1184E-05, -0.6731E-06/
238     data ((c1(ip,iw,1),iw=1,24),ip=14,14)/
239     & 0.1548E-03, 0.2736E-03, 0.4596E-03, 0.7322E-03, 0.1121E-02,
240     & 0.1687E-02, 0.2533E-02, 0.3797E-02, 0.5652E-02, 0.8280E-02,
241     & 0.1190E-01, 0.1682E-01, 0.2350E-01, 0.3253E-01, 0.4475E-01,
242     & 0.6125E-01, 0.8322E-01, 0.1118E+00, 0.1481E+00, 0.1922E+00,
243     & 0.2436E+00, 0.2999E+00, 0.3584E+00, 0.4165E+00/
244     data ((c2(ip,iw,1),iw=1,24),ip=14,14)/
245     & -0.1896E-06, -0.4100E-06, -0.8500E-06, -0.1645E-05, -0.2972E-05,
246     & -0.5116E-05, -0.8508E-05, -0.1363E-04, -0.2097E-04, -0.3115E-04,
247     & -0.4531E-04, -0.6517E-04, -0.9298E-04, -0.1315E-03, -0.1837E-03,
248     & -0.2528E-03, -0.3417E-03, -0.4525E-03, -0.5860E-03, -0.7405E-03,
249     & -0.9123E-03, -0.1097E-02, -0.1290E-02, -0.1482E-02/
250     data ((c3(ip,iw,1),iw=1,24),ip=14,14)/
251     & -0.5738E-09, -0.1185E-08, -0.2465E-08, -0.5015E-08, -0.9502E-08,
252     & -0.1640E-07, -0.2567E-07, -0.3675E-07, -0.4990E-07, -0.6893E-07,
253     & -0.1014E-06, -0.1533E-06, -0.2278E-06, -0.3278E-06, -0.4553E-06,
254     & -0.6098E-06, -0.7899E-06, -0.9876E-06, -0.1184E-05, -0.1342E-05,
255     & -0.1393E-05, -0.1254E-05, -0.8703E-06, -0.2593E-06/
256     data ((c1(ip,iw,1),iw=1,24),ip=15,15)/
257     & 0.1607E-03, 0.2905E-03, 0.4995E-03, 0.8160E-03, 0.1276E-02,
258     & 0.1948E-02, 0.2944E-02, 0.4430E-02, 0.6613E-02, 0.9717E-02,
259     & 0.1401E-01, 0.1984E-01, 0.2776E-01, 0.3854E-01, 0.5316E-01,
260     & 0.7280E-01, 0.9871E-01, 0.1320E+00, 0.1733E+00, 0.2222E+00,
261     & 0.2772E+00, 0.3354E+00, 0.3940E+00, 0.4516E+00/
262     data ((c2(ip,iw,1),iw=1,24),ip=15,15)/
263     & -0.1689E-06, -0.3610E-06, -0.7531E-06, -0.1495E-05, -0.2803E-05,
264     & -0.5013E-05, -0.8646E-05, -0.1433E-04, -0.2270E-04, -0.3446E-04,
265     & -0.5077E-04, -0.7342E-04, -0.1049E-03, -0.1486E-03, -0.2080E-03,
266     & -0.2866E-03, -0.3873E-03, -0.5115E-03, -0.6586E-03, -0.8256E-03,
267     & -0.1008E-02, -0.1201E-02, -0.1398E-02, -0.1583E-02/
268     data ((c3(ip,iw,1),iw=1,24),ip=15,15)/
269     & -0.6063E-09, -0.1245E-08, -0.2559E-08, -0.5110E-08, -0.9652E-08,
270     & -0.1685E-07, -0.2693E-07, -0.3933E-07, -0.5373E-07, -0.7330E-07,
271     & -0.1066E-06, -0.1625E-06, -0.2453E-06, -0.3564E-06, -0.4963E-06,
272     & -0.6636E-06, -0.8532E-06, -0.1054E-05, -0.1236E-05, -0.1339E-05,
273     & -0.1280E-05, -0.9947E-06, -0.4862E-06, 0.1889E-06/
274     data ((c1(ip,iw,1),iw=1,24),ip=16,16)/
275     & 0.1674E-03, 0.3079E-03, 0.5438E-03, 0.9124E-03, 0.1462E-02,
276     & 0.2264E-02, 0.3445E-02, 0.5196E-02, 0.7763E-02, 0.1142E-01,
277     & 0.1651E-01, 0.2345E-01, 0.3292E-01, 0.4580E-01, 0.6327E-01,
278     & 0.8657E-01, 0.1169E+00, 0.1551E+00, 0.2014E+00, 0.2545E+00,
279     & 0.3120E+00, 0.3707E+00, 0.4288E+00, 0.4863E+00/
280     data ((c2(ip,iw,1),iw=1,24),ip=16,16)/
281     & -0.1533E-06, -0.3224E-06, -0.6725E-06, -0.1365E-05, -0.2657E-05,
282     & -0.4953E-05, -0.8878E-05, -0.1525E-04, -0.2490E-04, -0.3866E-04,
283     & -0.5766E-04, -0.8372E-04, -0.1197E-03, -0.1695E-03, -0.2372E-03,
284     & -0.3266E-03, -0.4401E-03, -0.5783E-03, -0.7390E-03, -0.9180E-03,
285     & -0.1110E-02, -0.1309E-02, -0.1503E-02, -0.1676E-02/
286     data ((c3(ip,iw,1),iw=1,24),ip=16,16)/
287     & -0.6109E-09, -0.1253E-08, -0.2555E-08, -0.5100E-08, -0.9703E-08,
288     & -0.1729E-07, -0.2846E-07, -0.4291E-07, -0.5988E-07, -0.8135E-07,
289     & -0.1158E-06, -0.1750E-06, -0.2657E-06, -0.3890E-06, -0.5438E-06,
290     & -0.7262E-06, -0.9256E-06, -0.1122E-05, -0.1269E-05, -0.1284E-05,
291     & -0.1086E-05, -0.6553E-06, -0.5588E-07, 0.6660E-06/
292     data ((c1(ip,iw,1),iw=1,24),ip=17,17)/
293     & 0.1731E-03, 0.3250E-03, 0.5875E-03, 0.1015E-02, 0.1670E-02,
294     & 0.2632E-02, 0.4039E-02, 0.6099E-02, 0.9102E-02, 0.1340E-01,
295     & 0.1942E-01, 0.2769E-01, 0.3902E-01, 0.5447E-01, 0.7526E-01,
296     & 0.1027E+00, 0.1377E+00, 0.1810E+00, 0.2318E+00, 0.2881E+00,
297     & 0.3467E+00, 0.4050E+00, 0.4628E+00, 0.5209E+00/
298     data ((c2(ip,iw,1),iw=1,24),ip=17,17)/
299     & -0.1436E-06, -0.2978E-06, -0.6179E-06, -0.1270E-05, -0.2546E-05,
300     & -0.4927E-05, -0.9164E-05, -0.1628E-04, -0.2740E-04, -0.4353E-04,
301     & -0.6579E-04, -0.9606E-04, -0.1375E-03, -0.1943E-03, -0.2712E-03,
302     & -0.3722E-03, -0.4993E-03, -0.6515E-03, -0.8255E-03, -0.1016E-02,
303     & -0.1217E-02, -0.1417E-02, -0.1602E-02, -0.1757E-02/
304     data ((c3(ip,iw,1),iw=1,24),ip=17,17)/
305     & -0.6015E-09, -0.1225E-08, -0.2489E-08, -0.4978E-08, -0.9608E-08,
306     & -0.1756E-07, -0.2993E-07, -0.4715E-07, -0.6853E-07, -0.9454E-07,
307     & -0.1314E-06, -0.1920E-06, -0.2877E-06, -0.4222E-06, -0.5940E-06,
308     & -0.7936E-06, -0.1002E-05, -0.1181E-05, -0.1262E-05, -0.1156E-05,
309     & -0.8086E-06, -0.2604E-06, 0.4056E-06, 0.1164E-05/
310     data ((c1(ip,iw,1),iw=1,24),ip=18,18)/
311     & 0.1778E-03, 0.3392E-03, 0.6274E-03, 0.1113E-02, 0.1885E-02,
312     & 0.3041E-02, 0.4719E-02, 0.7141E-02, 0.1064E-01, 0.1565E-01,
313     & 0.2273E-01, 0.3260E-01, 0.4618E-01, 0.6463E-01, 0.8923E-01,
314     & 0.1212E+00, 0.1612E+00, 0.2092E+00, 0.2638E+00, 0.3219E+00,
315     & 0.3804E+00, 0.4384E+00, 0.4963E+00, 0.5550E+00/
316     data ((c2(ip,iw,1),iw=1,24),ip=18,18)/
317     & -0.1390E-06, -0.2850E-06, -0.5878E-06, -0.1213E-05, -0.2477E-05,
318     & -0.4934E-05, -0.9466E-05, -0.1731E-04, -0.2990E-04, -0.4860E-04,
319     & -0.7471E-04, -0.1102E-03, -0.1582E-03, -0.2230E-03, -0.3098E-03,
320     & -0.4228E-03, -0.5632E-03, -0.7291E-03, -0.9158E-03, -0.1117E-02,
321     & -0.1323E-02, -0.1519E-02, -0.1689E-02, -0.1824E-02/
322     data ((c3(ip,iw,1),iw=1,24),ip=18,18)/
323     & -0.5875E-09, -0.1187E-08, -0.2392E-08, -0.4777E-08, -0.9321E-08,
324     & -0.1745E-07, -0.3091E-07, -0.5121E-07, -0.7879E-07, -0.1130E-06,
325     & -0.1555E-06, -0.2161E-06, -0.3110E-06, -0.4527E-06, -0.6400E-06,
326     & -0.8571E-06, -0.1069E-05, -0.1209E-05, -0.1193E-05, -0.9472E-06,
327     & -0.4712E-06, 0.1597E-06, 0.8892E-06, 0.1671E-05/
328     data ((c1(ip,iw,1),iw=1,24),ip=19,19)/
329     & 0.1816E-03, 0.3503E-03, 0.6601E-03, 0.1202E-02, 0.2092E-02,
330     & 0.3464E-02, 0.5463E-02, 0.8315E-02, 0.1238E-01, 0.1818E-01,
331     & 0.2647E-01, 0.3819E-01, 0.5445E-01, 0.7641E-01, 0.1053E+00,
332     & 0.1421E+00, 0.1871E+00, 0.2392E+00, 0.2963E+00, 0.3548E+00,
333     & 0.4128E+00, 0.4706E+00, 0.5291E+00, 0.5883E+00/
334     data ((c2(ip,iw,1),iw=1,24),ip=19,19)/
335     & -0.1371E-06, -0.2799E-06, -0.5756E-06, -0.1190E-05, -0.2455E-05,
336     & -0.4982E-05, -0.9770E-05, -0.1824E-04, -0.3214E-04, -0.5332E-04,
337     & -0.8371E-04, -0.1255E-03, -0.1814E-03, -0.2555E-03, -0.3528E-03,
338     & -0.4774E-03, -0.6306E-03, -0.8095E-03, -0.1008E-02, -0.1218E-02,
339     & -0.1424E-02, -0.1610E-02, -0.1763E-02, -0.1875E-02/
340     data ((c3(ip,iw,1),iw=1,24),ip=19,19)/
341     & -0.5739E-09, -0.1144E-08, -0.2283E-08, -0.4524E-08, -0.8848E-08,
342     & -0.1686E-07, -0.3096E-07, -0.5411E-07, -0.8876E-07, -0.1343E-06,
343     & -0.1880E-06, -0.2511E-06, -0.3405E-06, -0.4800E-06, -0.6756E-06,
344     & -0.9041E-06, -0.1105E-05, -0.1184E-05, -0.1049E-05, -0.6701E-06,
345     & -0.1061E-06, 0.5899E-06, 0.1376E-05, 0.2160E-05/
346     data ((c1(ip,iw,1),iw=1,24),ip=20,20)/
347     & 0.1839E-03, 0.3589E-03, 0.6856E-03, 0.1273E-02, 0.2273E-02,
348     & 0.3867E-02, 0.6233E-02, 0.9594E-02, 0.1432E-01, 0.2104E-01,
349     & 0.3071E-01, 0.4452E-01, 0.6383E-01, 0.8977E-01, 0.1234E+00,
350     & 0.1651E+00, 0.2147E+00, 0.2701E+00, 0.3280E+00, 0.3861E+00,
351     & 0.4436E+00, 0.5017E+00, 0.5611E+00, 0.6202E+00/
352     data ((c2(ip,iw,1),iw=1,24),ip=20,20)/
353     & -0.1368E-06, -0.2791E-06, -0.5744E-06, -0.1192E-05, -0.2475E-05,
354     & -0.5078E-05, -0.1008E-04, -0.1903E-04, -0.3392E-04, -0.5726E-04,
355     & -0.9202E-04, -0.1409E-03, -0.2063E-03, -0.2912E-03, -0.3997E-03,
356     & -0.5357E-03, -0.7004E-03, -0.8911E-03, -0.1100E-02, -0.1314E-02,
357     & -0.1514E-02, -0.1687E-02, -0.1822E-02, -0.1908E-02/
358     data ((c3(ip,iw,1),iw=1,24),ip=20,20)/
359     & -0.5617E-09, -0.1109E-08, -0.2184E-08, -0.4264E-08, -0.8251E-08,
360     & -0.1582E-07, -0.3000E-07, -0.5536E-07, -0.9656E-07, -0.1549E-06,
361     & -0.2254E-06, -0.2999E-06, -0.3855E-06, -0.5114E-06, -0.6982E-06,
362     & -0.9171E-06, -0.1082E-05, -0.1078E-05, -0.8280E-06, -0.3561E-06,
363     & 0.2636E-06, 0.1015E-05, 0.1836E-05, 0.2588E-05/
364     data ((c1(ip,iw,1),iw=1,24),ip=21,21)/
365     & 0.1858E-03, 0.3646E-03, 0.7036E-03, 0.1327E-02, 0.2420E-02,
366     & 0.4219E-02, 0.6972E-02, 0.1093E-01, 0.1645E-01, 0.2427E-01,
367     & 0.3551E-01, 0.5167E-01, 0.7431E-01, 0.1047E+00, 0.1433E+00,
368     & 0.1901E+00, 0.2436E+00, 0.3006E+00, 0.3584E+00, 0.4157E+00,
369     & 0.4732E+00, 0.5321E+00, 0.5917E+00, 0.6501E+00/
370     data ((c2(ip,iw,1),iw=1,24),ip=21,21)/
371     & -0.1371E-06, -0.2803E-06, -0.5786E-06, -0.1206E-05, -0.2522E-05,
372     & -0.5211E-05, -0.1040E-04, -0.1969E-04, -0.3522E-04, -0.6021E-04,
373     & -0.9890E-04, -0.1552E-03, -0.2312E-03, -0.3285E-03, -0.4496E-03,
374     & -0.5973E-03, -0.7728E-03, -0.9733E-03, -0.1188E-02, -0.1399E-02,
375     & -0.1590E-02, -0.1748E-02, -0.1862E-02, -0.1922E-02/
376     data ((c3(ip,iw,1),iw=1,24),ip=21,21)/
377     & -0.5521E-09, -0.1082E-08, -0.2100E-08, -0.4025E-08, -0.7661E-08,
378     & -0.1462E-07, -0.2837E-07, -0.5493E-07, -0.1013E-06, -0.1716E-06,
379     & -0.2627E-06, -0.3609E-06, -0.4548E-06, -0.5617E-06, -0.7128E-06,
380     & -0.8814E-06, -0.9684E-06, -0.8687E-06, -0.5417E-06, -0.3260E-07,
381     & 0.6298E-06, 0.1417E-05, 0.2233E-05, 0.2884E-05/
382     data ((c1(ip,iw,1),iw=1,24),ip=22,22)/
383     & 0.1871E-03, 0.3685E-03, 0.7157E-03, 0.1365E-02, 0.2529E-02,
384     & 0.4505E-02, 0.7628E-02, 0.1223E-01, 0.1874E-01, 0.2790E-01,
385     & 0.4097E-01, 0.5971E-01, 0.8593E-01, 0.1209E+00, 0.1648E+00,
386     & 0.2163E+00, 0.2727E+00, 0.3303E+00, 0.3871E+00, 0.4436E+00,
387     & 0.5017E+00, 0.5611E+00, 0.6205E+00, 0.6771E+00/
388     data ((c2(ip,iw,1),iw=1,24),ip=22,22)/
389     & -0.1377E-06, -0.2818E-06, -0.5836E-06, -0.1222E-05, -0.2570E-05,
390     & -0.5339E-05, -0.1069E-04, -0.2019E-04, -0.3606E-04, -0.6211E-04,
391     & -0.1038E-03, -0.1666E-03, -0.2537E-03, -0.3653E-03, -0.5012E-03,
392     & -0.6623E-03, -0.8484E-03, -0.1055E-02, -0.1268E-02, -0.1470E-02,
393     & -0.1649E-02, -0.1790E-02, -0.1882E-02, -0.1920E-02/
394     data ((c3(ip,iw,1),iw=1,24),ip=22,22)/
395     & -0.5464E-09, -0.1064E-08, -0.2050E-08, -0.3874E-08, -0.7265E-08,
396     & -0.1373E-07, -0.2688E-07, -0.5376E-07, -0.1035E-06, -0.1833E-06,
397     & -0.2955E-06, -0.4267E-06, -0.5474E-06, -0.6443E-06, -0.7332E-06,
398     & -0.7933E-06, -0.7465E-06, -0.5424E-06, -0.1941E-06, 0.3078E-06,
399     & 0.9845E-06, 0.1771E-05, 0.2515E-05, 0.2962E-05/
400     data ((c1(ip,iw,1),iw=1,24),ip=23,23)/
401     & 0.1881E-03, 0.3708E-03, 0.7240E-03, 0.1391E-02, 0.2608E-02,
402     & 0.4720E-02, 0.8168E-02, 0.1342E-01, 0.2104E-01, 0.3186E-01,
403     & 0.4714E-01, 0.6879E-01, 0.9877E-01, 0.1384E+00, 0.1872E+00,
404     & 0.2428E+00, 0.3009E+00, 0.3583E+00, 0.4141E+00, 0.4706E+00,
405     & 0.5291E+00, 0.5885E+00, 0.6466E+00, 0.7007E+00/
406     data ((c2(ip,iw,1),iw=1,24),ip=23,23)/
407     & -0.1374E-06, -0.2821E-06, -0.5849E-06, -0.1227E-05, -0.2587E-05,
408     & -0.5392E-05, -0.1082E-04, -0.2043E-04, -0.3640E-04, -0.6291E-04,
409     & -0.1064E-03, -0.1742E-03, -0.2713E-03, -0.3983E-03, -0.5523E-03,
410     & -0.7302E-03, -0.9280E-03, -0.1135E-02, -0.1338E-02, -0.1526E-02,
411     & -0.1690E-02, -0.1811E-02, -0.1880E-02, -0.1904E-02/
412     data ((c3(ip,iw,1),iw=1,24),ip=23,23)/
413     & -0.5505E-09, -0.1066E-08, -0.2044E-08, -0.3856E-08, -0.7199E-08,
414     & -0.1353E-07, -0.2638E-07, -0.5316E-07, -0.1044E-06, -0.1908E-06,
415     & -0.3207E-06, -0.4858E-06, -0.6471E-06, -0.7512E-06, -0.7676E-06,
416     & -0.6661E-06, -0.4252E-06, -0.1067E-06, 0.2334E-06, 0.6913E-06,
417     & 0.1330E-05, 0.2055E-05, 0.2617E-05, 0.2760E-05/
418     data ((c1(ip,iw,1),iw=1,24),ip=24,24)/
419     & 0.1885E-03, 0.3726E-03, 0.7298E-03, 0.1409E-02, 0.2663E-02,
420     & 0.4883E-02, 0.8600E-02, 0.1446E-01, 0.2327E-01, 0.3600E-01,
421     & 0.5400E-01, 0.7901E-01, 0.1130E+00, 0.1571E+00, 0.2099E+00,
422     & 0.2683E+00, 0.3273E+00, 0.3841E+00, 0.4398E+00, 0.4968E+00,
423     & 0.5551E+00, 0.6137E+00, 0.6693E+00, 0.7204E+00/
424     data ((c2(ip,iw,1),iw=1,24),ip=24,24)/
425     & -0.1372E-06, -0.2802E-06, -0.5797E-06, -0.1212E-05, -0.2549E-05,
426     & -0.5312E-05, -0.1068E-04, -0.2023E-04, -0.3609E-04, -0.6255E-04,
427     & -0.1068E-03, -0.1777E-03, -0.2830E-03, -0.4252E-03, -0.6004E-03,
428     & -0.8005E-03, -0.1011E-02, -0.1213E-02, -0.1399E-02, -0.1569E-02,
429     & -0.1712E-02, -0.1809E-02, -0.1858E-02, -0.1883E-02/
430     data ((c3(ip,iw,1),iw=1,24),ip=24,24)/
431     & -0.5589E-09, -0.1071E-08, -0.2083E-08, -0.3965E-08, -0.7465E-08,
432     & -0.1408E-07, -0.2720E-07, -0.5414E-07, -0.1061E-06, -0.1958E-06,
433     & -0.3365E-06, -0.5263E-06, -0.7236E-06, -0.8420E-06, -0.7920E-06,
434     & -0.5166E-06, -0.5606E-07, 0.4032E-06, 0.7697E-06, 0.1160E-05,
435     & 0.1692E-05, 0.2251E-05, 0.2483E-05, 0.2295E-05/
436     data ((c1(ip,iw,1),iw=1,24),ip=25,25)/
437     & 0.1885E-03, 0.3737E-03, 0.7339E-03, 0.1423E-02, 0.2707E-02,
438     & 0.5013E-02, 0.8960E-02, 0.1537E-01, 0.2532E-01, 0.4018E-01,
439     & 0.6137E-01, 0.9035E-01, 0.1286E+00, 0.1766E+00, 0.2324E+00,
440     & 0.2916E+00, 0.3503E+00, 0.4075E+00, 0.4644E+00, 0.5221E+00,
441     & 0.5800E+00, 0.6362E+00, 0.6882E+00, 0.7365E+00/
442     data ((c2(ip,iw,1),iw=1,24),ip=25,25)/
443     & -0.1366E-06, -0.2772E-06, -0.5687E-06, -0.1179E-05, -0.2458E-05,
444     & -0.5093E-05, -0.1024E-04, -0.1950E-04, -0.3503E-04, -0.6107E-04,
445     & -0.1053E-03, -0.1782E-03, -0.2902E-03, -0.4470E-03, -0.6455E-03,
446     & -0.8715E-03, -0.1095E-02, -0.1290E-02, -0.1458E-02, -0.1604E-02,
447     & -0.1716E-02, -0.1783E-02, -0.1821E-02, -0.1862E-02/
448     data ((c3(ip,iw,1),iw=1,24),ip=25,25)/
449     & -0.5574E-09, -0.1099E-08, -0.2136E-08, -0.4136E-08, -0.7893E-08,
450     & -0.1505E-07, -0.2894E-07, -0.5650E-07, -0.1084E-06, -0.1986E-06,
451     & -0.3416E-06, -0.5381E-06, -0.7439E-06, -0.8545E-06, -0.7482E-06,
452     & -0.3541E-06, 0.2762E-06, 0.9306E-06, 0.1416E-05, 0.1754E-05,
453     & 0.2105E-05, 0.2343E-05, 0.2113E-05, 0.1689E-05/
454     data ((c1(ip,iw,1),iw=1,24),ip=26,26)/
455     & 0.1887E-03, 0.3748E-03, 0.7374E-03, 0.1435E-02, 0.2746E-02,
456     & 0.5129E-02, 0.9279E-02, 0.1618E-01, 0.2721E-01, 0.4419E-01,
457     & 0.6889E-01, 0.1025E+00, 0.1454E+00, 0.1968E+00, 0.2536E+00,
458     & 0.3116E+00, 0.3694E+00, 0.4282E+00, 0.4874E+00, 0.5461E+00,
459     & 0.6029E+00, 0.6556E+00, 0.7034E+00, 0.7496E+00/
460     data ((c2(ip,iw,1),iw=1,24),ip=26,26)/
461     & -0.1351E-06, -0.2730E-06, -0.5547E-06, -0.1136E-05, -0.2337E-05,
462     & -0.4789E-05, -0.9589E-05, -0.1836E-04, -0.3337E-04, -0.5890E-04,
463     & -0.1031E-03, -0.1781E-03, -0.2974E-03, -0.4696E-03, -0.6912E-03,
464     & -0.9400E-03, -0.1174E-02, -0.1368E-02, -0.1521E-02, -0.1635E-02,
465     & -0.1706E-02, -0.1742E-02, -0.1779E-02, -0.1846E-02/
466     data ((c3(ip,iw,1),iw=1,24),ip=26,26)/
467     & -0.5597E-09, -0.1126E-08, -0.2190E-08, -0.4298E-08, -0.8333E-08,
468     & -0.1610E-07, -0.3092E-07, -0.5912E-07, -0.1108E-06, -0.1982E-06,
469     & -0.3334E-06, -0.5129E-06, -0.6865E-06, -0.7484E-06, -0.5999E-06,
470     & -0.1961E-06, 0.5028E-06, 0.1395E-05, 0.2125E-05, 0.2489E-05,
471     & 0.2584E-05, 0.2312E-05, 0.1587E-05, 0.1122E-05/
  ViewVC Help
Powered by ViewVC 1.1.22