Back to home page

MITgcm

 
 

    


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

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
9a6b9d7b6d Andr*0001       data ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/
                0002      &  0.1351E-03,  0.2245E-03,  0.3475E-03,  0.5039E-03,  0.7055E-03,
                0003      &  0.9798E-03,  0.1366E-02,  0.1909E-02,  0.2632E-02,  0.3554E-02,
                0004      &  0.4701E-02,  0.6144E-02,  0.7957E-02,  0.1024E-01,  0.1311E-01,
                0005      &  0.1674E-01,  0.2133E-01,  0.2708E-01,  0.3420E-01,  0.4293E-01,
                0006      &  0.5361E-01,  0.6667E-01,  0.8274E-01,  0.1026E+00/
                0007       data ((c2(ip,iw,1),iw=1,24),ip= 1, 1)/
                0008      & -0.2878E-06, -0.6295E-06, -0.1270E-05, -0.2323E-05, -0.3910E-05,
                0009      & -0.6235E-05, -0.9527E-05, -0.1391E-04, -0.1947E-04, -0.2652E-04,
                0010      & -0.3568E-04, -0.4777E-04, -0.6363E-04, -0.8414E-04, -0.1102E-03,
                0011      & -0.1425E-03, -0.1822E-03, -0.2301E-03, -0.2869E-03, -0.3534E-03,
                0012      & -0.4305E-03, -0.5188E-03, -0.6173E-03, -0.7229E-03/
                0013       data ((c3(ip,iw,1),iw=1,24),ip= 1, 1)/
                0014      & -0.2369E-09, -0.5453E-09, -0.1434E-08, -0.3513E-08, -0.7277E-08,
                0015      & -0.1283E-07, -0.1983E-07, -0.2838E-07, -0.4075E-07, -0.6115E-07,
                0016      & -0.9201E-07, -0.1325E-06, -0.1844E-06, -0.2534E-06, -0.3430E-06,
                0017      & -0.4550E-06, -0.5896E-06, -0.7434E-06, -0.9121E-06, -0.1096E-05,
                0018      & -0.1298E-05, -0.1508E-05, -0.1689E-05, -0.1773E-05/
                0019       data ((c1(ip,iw,1),iw=1,24),ip= 2, 2)/
                0020      &  0.1352E-03,  0.2245E-03,  0.3477E-03,  0.5043E-03,  0.7067E-03,
                0021      &  0.9816E-03,  0.1370E-02,  0.1913E-02,  0.2642E-02,  0.3571E-02,
                0022      &  0.4735E-02,  0.6202E-02,  0.8060E-02,  0.1041E-01,  0.1340E-01,
                0023      &  0.1721E-01,  0.2206E-01,  0.2814E-01,  0.3574E-01,  0.4513E-01,
                0024      &  0.5671E-01,  0.7100E-01,  0.8878E-01,  0.1109E+00/
                0025       data ((c2(ip,iw,1),iw=1,24),ip= 2, 2)/
                0026      & -0.2875E-06, -0.6289E-06, -0.1269E-05, -0.2321E-05, -0.3907E-05,
                0027      & -0.6229E-05, -0.9516E-05, -0.1389E-04, -0.1944E-04, -0.2646E-04,
                0028      & -0.3559E-04, -0.4762E-04, -0.6340E-04, -0.8384E-04, -0.1098E-03,
                0029      & -0.1423E-03, -0.1824E-03, -0.2309E-03, -0.2887E-03, -0.3566E-03,
                0030      & -0.4355E-03, -0.5260E-03, -0.6274E-03, -0.7367E-03/
                0031       data ((c3(ip,iw,1),iw=1,24),ip= 2, 2)/
                0032      & -0.2382E-09, -0.5476E-09, -0.1437E-08, -0.3520E-08, -0.7291E-08,
                0033      & -0.1286E-07, -0.1989E-07, -0.2849E-07, -0.4093E-07, -0.6144E-07,
                0034      & -0.9241E-07, -0.1330E-06, -0.1852E-06, -0.2542E-06, -0.3435E-06,
                0035      & -0.4549E-06, -0.5891E-06, -0.7427E-06, -0.9114E-06, -0.1096E-05,
                0036      & -0.1298E-05, -0.1509E-05, -0.1689E-05, -0.1772E-05/
                0037       data ((c1(ip,iw,1),iw=1,24),ip= 3, 3)/
                0038      &  0.1353E-03,  0.2246E-03,  0.3481E-03,  0.5053E-03,  0.7082E-03,
                0039      &  0.9840E-03,  0.1374E-02,  0.1922E-02,  0.2658E-02,  0.3598E-02,
                0040      &  0.4784E-02,  0.6291E-02,  0.8214E-02,  0.1067E-01,  0.1382E-01,
                0041      &  0.1785E-01,  0.2300E-01,  0.2953E-01,  0.3772E-01,  0.4793E-01,
                0042      &  0.6065E-01,  0.7654E-01,  0.9642E-01,  0.1213E+00/
                0043       data ((c2(ip,iw,1),iw=1,24),ip= 3, 3)/
                0044      & -0.2871E-06, -0.6279E-06, -0.1267E-05, -0.2318E-05, -0.3901E-05,
                0045      & -0.6219E-05, -0.9500E-05, -0.1386E-04, -0.1939E-04, -0.2639E-04,
                0046      & -0.3547E-04, -0.4743E-04, -0.6313E-04, -0.8354E-04, -0.1096E-03,
                0047      & -0.1425E-03, -0.1831E-03, -0.2325E-03, -0.2916E-03, -0.3613E-03,
                0048      & -0.4425E-03, -0.5361E-03, -0.6412E-03, -0.7550E-03/
                0049       data ((c3(ip,iw,1),iw=1,24),ip= 3, 3)/
                0050      & -0.2404E-09, -0.5516E-09, -0.1443E-08, -0.3531E-08, -0.7310E-08,
                0051      & -0.1290E-07, -0.1997E-07, -0.2865E-07, -0.4121E-07, -0.6185E-07,
                0052      & -0.9295E-07, -0.1337E-06, -0.1860E-06, -0.2549E-06, -0.3438E-06,
                0053      & -0.4547E-06, -0.5888E-06, -0.7424E-06, -0.9114E-06, -0.1097E-05,
                0054      & -0.1300E-05, -0.1511E-05, -0.1691E-05, -0.1771E-05/
                0055       data ((c1(ip,iw,1),iw=1,24),ip= 4, 4)/
                0056      &  0.1355E-03,  0.2251E-03,  0.3488E-03,  0.5064E-03,  0.7099E-03,
                0057      &  0.9880E-03,  0.1381E-02,  0.1935E-02,  0.2680E-02,  0.3641E-02,
                0058      &  0.4860E-02,  0.6423E-02,  0.8440E-02,  0.1104E-01,  0.1439E-01,
                0059      &  0.1871E-01,  0.2426E-01,  0.3132E-01,  0.4027E-01,  0.5152E-01,
                0060      &  0.6649E-01,  0.8448E-01,  0.1071E+00,  0.1353E+00/
                0061       data ((c2(ip,iw,1),iw=1,24),ip= 4, 4)/
                0062      & -0.2865E-06, -0.6264E-06, -0.1264E-05, -0.2313E-05, -0.3892E-05,
                0063      & -0.6204E-05, -0.9474E-05, -0.1382E-04, -0.1932E-04, -0.2628E-04,
                0064      & -0.3530E-04, -0.4720E-04, -0.6286E-04, -0.8333E-04, -0.1097E-03,
                0065      & -0.1430E-03, -0.1845E-03, -0.2352E-03, -0.2960E-03, -0.3681E-03,
                0066      & -0.4523E-03, -0.5496E-03, -0.6595E-03, -0.7790E-03/
                0067       data ((c3(ip,iw,1),iw=1,24),ip= 4, 4)/
                0068      & -0.2433E-09, -0.5580E-09, -0.1454E-08, -0.3550E-08, -0.7345E-08,
                0069      & -0.1296E-07, -0.2010E-07, -0.2889E-07, -0.4159E-07, -0.6239E-07,
                0070      & -0.9360E-07, -0.1345E-06, -0.1867E-06, -0.2554E-06, -0.3439E-06,
                0071      & -0.4548E-06, -0.5890E-06, -0.7429E-06, -0.9127E-06, -0.1099E-05,
                0072      & -0.1304E-05, -0.1516E-05, -0.1693E-05, -0.1770E-05/
                0073       data ((c1(ip,iw,1),iw=1,24),ip= 5, 5)/
                0074      &  0.1355E-03,  0.2255E-03,  0.3496E-03,  0.5084E-03,  0.7138E-03,
                0075      &  0.9945E-03,  0.1392E-02,  0.1955E-02,  0.2718E-02,  0.3707E-02,
                0076      &  0.4975E-02,  0.6620E-02,  0.8760E-02,  0.1154E-01,  0.1514E-01,
                0077      &  0.1983E-01,  0.2587E-01,  0.3363E-01,  0.4353E-01,  0.5611E-01,
                0078      &  0.7208E-01,  0.9233E-01,  0.1179E+00,  0.1497E+00/
                0079       data ((c2(ip,iw,1),iw=1,24),ip= 5, 5)/
                0080      & -0.2854E-06, -0.6241E-06, -0.1260E-05, -0.2305E-05, -0.3878E-05,
                0081      & -0.6181E-05, -0.9435E-05, -0.1375E-04, -0.1922E-04, -0.2613E-04,
                0082      & -0.3510E-04, -0.4696E-04, -0.6265E-04, -0.8334E-04, -0.1102E-03,
                0083      & -0.1443E-03, -0.1870E-03, -0.2393E-03, -0.3025E-03, -0.3775E-03,
                0084      & -0.4656E-03, -0.5678E-03, -0.6835E-03, -0.8098E-03/
                0085       data ((c3(ip,iw,1),iw=1,24),ip= 5, 5)/
                0086      & -0.2485E-09, -0.5672E-09, -0.1468E-08, -0.3577E-08, -0.7395E-08,
                0087      & -0.1306E-07, -0.2029E-07, -0.2923E-07, -0.4213E-07, -0.6307E-07,
                0088      & -0.9429E-07, -0.1351E-06, -0.1872E-06, -0.2557E-06, -0.3442E-06,
                0089      & -0.4553E-06, -0.5899E-06, -0.7447E-06, -0.9163E-06, -0.1105E-05,
                0090      & -0.1311E-05, -0.1522E-05, -0.1697E-05, -0.1766E-05/
                0091       data ((c1(ip,iw,1),iw=1,24),ip= 6, 6)/
                0092      &  0.1357E-03,  0.2260E-03,  0.3509E-03,  0.5112E-03,  0.7192E-03,
                0093      &  0.1004E-02,  0.1411E-02,  0.1987E-02,  0.2774E-02,  0.3804E-02,
                0094      &  0.5144E-02,  0.6901E-02,  0.9206E-02,  0.1222E-01,  0.1616E-01,
                0095      &  0.2129E-01,  0.2797E-01,  0.3660E-01,  0.4771E-01,  0.6193E-01,
                0096      &  0.8015E-01,  0.1033E+00,  0.1325E+00,  0.1684E+00/
                0097       data ((c2(ip,iw,1),iw=1,24),ip= 6, 6)/
                0098      & -0.2837E-06, -0.6203E-06, -0.1252E-05, -0.2292E-05, -0.3857E-05,
                0099      & -0.6146E-05, -0.9377E-05, -0.1366E-04, -0.1909E-04, -0.2596E-04,
                0100      & -0.3489E-04, -0.4676E-04, -0.6263E-04, -0.8372E-04, -0.1113E-03,
                0101      & -0.1465E-03, -0.1908E-03, -0.2454E-03, -0.3115E-03, -0.3903E-03,
                0102      & -0.4833E-03, -0.5915E-03, -0.7144E-03, -0.8483E-03/
                0103       data ((c3(ip,iw,1),iw=1,24),ip= 6, 6)/
                0104      & -0.2557E-09, -0.5835E-09, -0.1495E-08, -0.3619E-08, -0.7472E-08,
                0105      & -0.1320E-07, -0.2055E-07, -0.2970E-07, -0.4281E-07, -0.6379E-07,
                0106      & -0.9492E-07, -0.1356E-06, -0.1876E-06, -0.2561E-06, -0.3451E-06,
                0107      & -0.4568E-06, -0.5924E-06, -0.7489E-06, -0.9229E-06, -0.1114E-05,
                0108      & -0.1321E-05, -0.1531E-05, -0.1700E-05, -0.1756E-05/
                0109       data ((c1(ip,iw,1),iw=1,24),ip= 7, 7)/
                0110      &  0.1362E-03,  0.2271E-03,  0.3531E-03,  0.5157E-03,  0.7280E-03,
                0111      &  0.1020E-02,  0.1438E-02,  0.2035E-02,  0.2858E-02,  0.3951E-02,
                0112      &  0.5388E-02,  0.7294E-02,  0.9811E-02,  0.1312E-01,  0.1747E-01,
                0113      &  0.2319E-01,  0.3066E-01,  0.4040E-01,  0.5301E-01,  0.6930E-01,
                0114      &  0.9024E-01,  0.1168E+00,  0.1501E+00,  0.1906E+00/
                0115       data ((c2(ip,iw,1),iw=1,24),ip= 7, 7)/
                0116      & -0.2811E-06, -0.6147E-06, -0.1241E-05, -0.2272E-05, -0.3825E-05,
                0117      & -0.6093E-05, -0.9294E-05, -0.1354E-04, -0.1893E-04, -0.2577E-04,
                0118      & -0.3472E-04, -0.4672E-04, -0.6292E-04, -0.8464E-04, -0.1132E-03,
                0119      & -0.1500E-03, -0.1964E-03, -0.2539E-03, -0.3237E-03, -0.4074E-03,
                0120      & -0.5065E-03, -0.6222E-03, -0.7532E-03, -0.8955E-03/
                0121       data ((c3(ip,iw,1),iw=1,24),ip= 7, 7)/
                0122      & -0.2673E-09, -0.6022E-09, -0.1531E-08, -0.3682E-08, -0.7588E-08,
                0123      & -0.1342E-07, -0.2092E-07, -0.3030E-07, -0.4357E-07, -0.6448E-07,
                0124      & -0.9533E-07, -0.1359E-06, -0.1879E-06, -0.2570E-06, -0.3470E-06,
                0125      & -0.4598E-06, -0.5971E-06, -0.7563E-06, -0.9334E-06, -0.1127E-05,
                0126      & -0.1336E-05, -0.1543E-05, -0.1701E-05, -0.1738E-05/
                0127       data ((c1(ip,iw,1),iw=1,24),ip= 8, 8)/
                0128      &  0.1367E-03,  0.2287E-03,  0.3567E-03,  0.5233E-03,  0.7412E-03,
                0129      &  0.1044E-02,  0.1481E-02,  0.2108E-02,  0.2985E-02,  0.4162E-02,
                0130      &  0.5733E-02,  0.7831E-02,  0.1062E-01,  0.1431E-01,  0.1919E-01,
                0131      &  0.2564E-01,  0.3411E-01,  0.4522E-01,  0.5971E-01,  0.7855E-01,
                0132      &  0.1027E+00,  0.1333E+00,  0.1709E+00,  0.2161E+00/
                0133       data ((c2(ip,iw,1),iw=1,24),ip= 8, 8)/
                0134      & -0.2770E-06, -0.6058E-06, -0.1224E-05, -0.2243E-05, -0.3777E-05,
                0135      & -0.6018E-05, -0.9181E-05, -0.1339E-04, -0.1876E-04, -0.2561E-04,
                0136      & -0.3467E-04, -0.4695E-04, -0.6370E-04, -0.8635E-04, -0.1163E-03,
                0137      & -0.1551E-03, -0.2043E-03, -0.2654E-03, -0.3400E-03, -0.4299E-03,
                0138      & -0.5366E-03, -0.6609E-03, -0.8010E-03, -0.9521E-03/
                0139       data ((c3(ip,iw,1),iw=1,24),ip= 8, 8)/
                0140      & -0.2845E-09, -0.6367E-09, -0.1591E-08, -0.3779E-08, -0.7752E-08,
                0141      & -0.1370E-07, -0.2140E-07, -0.3101E-07, -0.4437E-07, -0.6498E-07,
                0142      & -0.9551E-07, -0.1360E-06, -0.1887E-06, -0.2590E-06, -0.3503E-06,
                0143      & -0.4650E-06, -0.6052E-06, -0.7681E-06, -0.9488E-06, -0.1145E-05,
                0144      & -0.1354E-05, -0.1555E-05, -0.1698E-05, -0.1701E-05/
                0145       data ((c1(ip,iw,1),iw=1,24),ip= 9, 9)/
                0146      &  0.1374E-03,  0.2312E-03,  0.3621E-03,  0.5340E-03,  0.7620E-03,
                0147      &  0.1081E-02,  0.1543E-02,  0.2217E-02,  0.3167E-02,  0.4462E-02,
                0148      &  0.6208E-02,  0.8552E-02,  0.1169E-01,  0.1585E-01,  0.2140E-01,
                0149      &  0.2875E-01,  0.3848E-01,  0.5131E-01,  0.6814E-01,  0.9002E-01,
                0150      &  0.1180E+00,  0.1530E+00,  0.1954E+00,  0.2449E+00/
                0151       data ((c2(ip,iw,1),iw=1,24),ip= 9, 9)/
                0152      & -0.2709E-06, -0.5925E-06, -0.1198E-05, -0.2199E-05, -0.3708E-05,
                0153      & -0.5913E-05, -0.9036E-05, -0.1322E-04, -0.1861E-04, -0.2556E-04,
                0154      & -0.3486E-04, -0.4760E-04, -0.6516E-04, -0.8909E-04, -0.1210E-03,
                0155      & -0.1624E-03, -0.2151E-03, -0.2808E-03, -0.3615E-03, -0.4590E-03,
                0156      & -0.5747E-03, -0.7088E-03, -0.8585E-03, -0.1018E-02/
                0157       data ((c3(ip,iw,1),iw=1,24),ip= 9, 9)/
                0158      & -0.3119E-09, -0.6873E-09, -0.1676E-08, -0.3915E-08, -0.7973E-08,
                0159      & -0.1407E-07, -0.2200E-07, -0.3179E-07, -0.4505E-07, -0.6522E-07,
                0160      & -0.9551E-07, -0.1364E-06, -0.1902E-06, -0.2622E-06, -0.3557E-06,
                0161      & -0.4735E-06, -0.6178E-06, -0.7853E-06, -0.9700E-06, -0.1169E-05,
                0162      & -0.1377E-05, -0.1567E-05, -0.1683E-05, -0.1631E-05/
                0163       data ((c1(ip,iw,1),iw=1,24),ip=10,10)/
                0164      &  0.1392E-03,  0.2348E-03,  0.3702E-03,  0.5508E-03,  0.7933E-03,
                0165      &  0.1136E-02,  0.1638E-02,  0.2373E-02,  0.3424E-02,  0.4876E-02,
                0166      &  0.6847E-02,  0.9503E-02,  0.1307E-01,  0.1785E-01,  0.2423E-01,
                0167      &  0.3271E-01,  0.4401E-01,  0.5896E-01,  0.7865E-01,  0.1041E+00,
                0168      &  0.1364E+00,  0.1760E+00,  0.2232E+00,  0.2766E+00/
                0169       data ((c2(ip,iw,1),iw=1,24),ip=10,10)/
                0170      & -0.2620E-06, -0.5728E-06, -0.1161E-05, -0.2136E-05, -0.3612E-05,
                0171      & -0.5777E-05, -0.8867E-05, -0.1306E-04, -0.1854E-04, -0.2572E-04,
                0172      & -0.3543E-04, -0.4887E-04, -0.6756E-04, -0.9321E-04, -0.1275E-03,
                0173      & -0.1723E-03, -0.2295E-03, -0.3011E-03, -0.3894E-03, -0.4960E-03,
                0174      & -0.6220E-03, -0.7665E-03, -0.9259E-03, -0.1095E-02/
                0175       data ((c3(ip,iw,1),iw=1,24),ip=10,10)/
                0176      & -0.3497E-09, -0.7575E-09, -0.1791E-08, -0.4091E-08, -0.8254E-08,
                0177      & -0.1452E-07, -0.2265E-07, -0.3255E-07, -0.4557E-07, -0.6530E-07,
                0178      & -0.9557E-07, -0.1374E-06, -0.1930E-06, -0.2675E-06, -0.3644E-06,
                0179      & -0.4866E-06, -0.6362E-06, -0.8090E-06, -0.9981E-06, -0.1199E-05,
                0180      & -0.1402E-05, -0.1574E-05, -0.1643E-05, -0.1506E-05/
                0181       data ((c1(ip,iw,1),iw=1,24),ip=11,11)/
                0182      &  0.1415E-03,  0.2407E-03,  0.3830E-03,  0.5767E-03,  0.8399E-03,
                0183      &  0.1215E-02,  0.1770E-02,  0.2593E-02,  0.3780E-02,  0.5432E-02,
                0184      &  0.7687E-02,  0.1074E-01,  0.1486E-01,  0.2040E-01,  0.2779E-01,
                0185      &  0.3771E-01,  0.5094E-01,  0.6853E-01,  0.9159E-01,  0.1212E+00,
                0186      &  0.1581E+00,  0.2027E+00,  0.2542E+00,  0.3105E+00/
                0187       data ((c2(ip,iw,1),iw=1,24),ip=11,11)/
                0188      & -0.2494E-06, -0.5450E-06, -0.1108E-05, -0.2049E-05, -0.3485E-05,
                0189      & -0.5612E-05, -0.8695E-05, -0.1296E-04, -0.1865E-04, -0.2620E-04,
                0190      & -0.3654E-04, -0.5099E-04, -0.7121E-04, -0.9909E-04, -0.1365E-03,
                0191      & -0.1855E-03, -0.2483E-03, -0.3274E-03, -0.4248E-03, -0.5421E-03,
                0192      & -0.6794E-03, -0.8346E-03, -0.1003E-02, -0.1181E-02/
                0193       data ((c3(ip,iw,1),iw=1,24),ip=11,11)/
                0194      & -0.3973E-09, -0.8499E-09, -0.1944E-08, -0.4319E-08, -0.8596E-08,
                0195      & -0.1501E-07, -0.2332E-07, -0.3326E-07, -0.4600E-07, -0.6541E-07,
                0196      & -0.9592E-07, -0.1392E-06, -0.1975E-06, -0.2757E-06, -0.3774E-06,
                0197      & -0.5057E-06, -0.6614E-06, -0.8401E-06, -0.1034E-05, -0.1235E-05,
                0198      & -0.1427E-05, -0.1565E-05, -0.1560E-05, -0.1310E-05/
                0199       data ((c1(ip,iw,1),iw=1,24),ip=12,12)/
                0200      &  0.1447E-03,  0.2485E-03,  0.4014E-03,  0.6132E-03,  0.9064E-03,
                0201      &  0.1329E-02,  0.1957E-02,  0.2893E-02,  0.4254E-02,  0.6163E-02,
                0202      &  0.8779E-02,  0.1233E-01,  0.1714E-01,  0.2360E-01,  0.3229E-01,
                0203      &  0.4395E-01,  0.5959E-01,  0.8032E-01,  0.1073E+00,  0.1415E+00,
                0204      &  0.1834E+00,  0.2327E+00,  0.2877E+00,  0.3456E+00/
                0205       data ((c2(ip,iw,1),iw=1,24),ip=12,12)/
                0206      & -0.2326E-06, -0.5076E-06, -0.1037E-05, -0.1935E-05, -0.3329E-05,
                0207      & -0.5433E-05, -0.8553E-05, -0.1298E-04, -0.1902E-04, -0.2716E-04,
                0208      & -0.3840E-04, -0.5421E-04, -0.7643E-04, -0.1071E-03, -0.1485E-03,
                0209      & -0.2028E-03, -0.2727E-03, -0.3608E-03, -0.4689E-03, -0.5981E-03,
                0210      & -0.7471E-03, -0.9128E-03, -0.1091E-02, -0.1276E-02/
                0211       data ((c3(ip,iw,1),iw=1,24),ip=12,12)/
                0212      & -0.4576E-09, -0.9621E-09, -0.2122E-08, -0.4569E-08, -0.8941E-08,
                0213      & -0.1550E-07, -0.2398E-07, -0.3404E-07, -0.4663E-07, -0.6577E-07,
                0214      & -0.9677E-07, -0.1421E-06, -0.2042E-06, -0.2878E-06, -0.3962E-06,
                0215      & -0.5318E-06, -0.6946E-06, -0.8798E-06, -0.1078E-05, -0.1275E-05,
                0216      & -0.1445E-05, -0.1523E-05, -0.1413E-05, -0.1030E-05/
                0217       data ((c1(ip,iw,1),iw=1,24),ip=13,13)/
                0218      &  0.1489E-03,  0.2594E-03,  0.4266E-03,  0.6643E-03,  0.9988E-03,
                0219      &  0.1484E-02,  0.2207E-02,  0.3289E-02,  0.4870E-02,  0.7102E-02,
                0220      &  0.1017E-01,  0.1434E-01,  0.1998E-01,  0.2759E-01,  0.3787E-01,
                0221      &  0.5171E-01,  0.7026E-01,  0.9468E-01,  0.1261E+00,  0.1652E+00,
                0222      &  0.2120E+00,  0.2653E+00,  0.3228E+00,  0.3813E+00/
                0223       data ((c2(ip,iw,1),iw=1,24),ip=13,13)/
                0224      & -0.2120E-06, -0.4613E-06, -0.9487E-06, -0.1798E-05, -0.3153E-05,
                0225      & -0.5260E-05, -0.8480E-05, -0.1319E-04, -0.1976E-04, -0.2876E-04,
                0226      & -0.4125E-04, -0.5885E-04, -0.8357E-04, -0.1178E-03, -0.1640E-03,
                0227      & -0.2250E-03, -0.3036E-03, -0.4023E-03, -0.5226E-03, -0.6643E-03,
                0228      & -0.8250E-03, -0.1001E-02, -0.1187E-02, -0.1378E-02/
                0229       data ((c3(ip,iw,1),iw=1,24),ip=13,13)/
                0230      & -0.5223E-09, -0.1082E-08, -0.2314E-08, -0.4826E-08, -0.9255E-08,
                0231      & -0.1596E-07, -0.2472E-07, -0.3507E-07, -0.4774E-07, -0.6677E-07,
                0232      & -0.9841E-07, -0.1466E-06, -0.2141E-06, -0.3049E-06, -0.4219E-06,
                0233      & -0.5662E-06, -0.7370E-06, -0.9290E-06, -0.1129E-05, -0.1315E-05,
                0234      & -0.1441E-05, -0.1427E-05, -0.1184E-05, -0.6731E-06/
                0235       data ((c1(ip,iw,1),iw=1,24),ip=14,14)/
                0236      &  0.1548E-03,  0.2736E-03,  0.4596E-03,  0.7322E-03,  0.1121E-02,
                0237      &  0.1687E-02,  0.2533E-02,  0.3797E-02,  0.5652E-02,  0.8280E-02,
                0238      &  0.1190E-01,  0.1682E-01,  0.2350E-01,  0.3253E-01,  0.4475E-01,
                0239      &  0.6125E-01,  0.8322E-01,  0.1118E+00,  0.1481E+00,  0.1922E+00,
                0240      &  0.2436E+00,  0.2999E+00,  0.3584E+00,  0.4165E+00/
                0241       data ((c2(ip,iw,1),iw=1,24),ip=14,14)/
                0242      & -0.1896E-06, -0.4100E-06, -0.8500E-06, -0.1645E-05, -0.2972E-05,
                0243      & -0.5116E-05, -0.8508E-05, -0.1363E-04, -0.2097E-04, -0.3115E-04,
                0244      & -0.4531E-04, -0.6517E-04, -0.9298E-04, -0.1315E-03, -0.1837E-03,
                0245      & -0.2528E-03, -0.3417E-03, -0.4525E-03, -0.5860E-03, -0.7405E-03,
                0246      & -0.9123E-03, -0.1097E-02, -0.1290E-02, -0.1482E-02/
                0247       data ((c3(ip,iw,1),iw=1,24),ip=14,14)/
                0248      & -0.5738E-09, -0.1185E-08, -0.2465E-08, -0.5015E-08, -0.9502E-08,
                0249      & -0.1640E-07, -0.2567E-07, -0.3675E-07, -0.4990E-07, -0.6893E-07,
                0250      & -0.1014E-06, -0.1533E-06, -0.2278E-06, -0.3278E-06, -0.4553E-06,
                0251      & -0.6098E-06, -0.7899E-06, -0.9876E-06, -0.1184E-05, -0.1342E-05,
                0252      & -0.1393E-05, -0.1254E-05, -0.8703E-06, -0.2593E-06/
                0253       data ((c1(ip,iw,1),iw=1,24),ip=15,15)/
                0254      &  0.1607E-03,  0.2905E-03,  0.4995E-03,  0.8160E-03,  0.1276E-02,
                0255      &  0.1948E-02,  0.2944E-02,  0.4430E-02,  0.6613E-02,  0.9717E-02,
                0256      &  0.1401E-01,  0.1984E-01,  0.2776E-01,  0.3854E-01,  0.5316E-01,
                0257      &  0.7280E-01,  0.9871E-01,  0.1320E+00,  0.1733E+00,  0.2222E+00,
                0258      &  0.2772E+00,  0.3354E+00,  0.3940E+00,  0.4516E+00/
                0259       data ((c2(ip,iw,1),iw=1,24),ip=15,15)/
                0260      & -0.1689E-06, -0.3610E-06, -0.7531E-06, -0.1495E-05, -0.2803E-05,
                0261      & -0.5013E-05, -0.8646E-05, -0.1433E-04, -0.2270E-04, -0.3446E-04,
                0262      & -0.5077E-04, -0.7342E-04, -0.1049E-03, -0.1486E-03, -0.2080E-03,
                0263      & -0.2866E-03, -0.3873E-03, -0.5115E-03, -0.6586E-03, -0.8256E-03,
                0264      & -0.1008E-02, -0.1201E-02, -0.1398E-02, -0.1583E-02/
                0265       data ((c3(ip,iw,1),iw=1,24),ip=15,15)/
                0266      & -0.6063E-09, -0.1245E-08, -0.2559E-08, -0.5110E-08, -0.9652E-08,
                0267      & -0.1685E-07, -0.2693E-07, -0.3933E-07, -0.5373E-07, -0.7330E-07,
                0268      & -0.1066E-06, -0.1625E-06, -0.2453E-06, -0.3564E-06, -0.4963E-06,
                0269      & -0.6636E-06, -0.8532E-06, -0.1054E-05, -0.1236E-05, -0.1339E-05,
                0270      & -0.1280E-05, -0.9947E-06, -0.4862E-06,  0.1889E-06/
                0271       data ((c1(ip,iw,1),iw=1,24),ip=16,16)/
                0272      &  0.1674E-03,  0.3079E-03,  0.5438E-03,  0.9124E-03,  0.1462E-02,
                0273      &  0.2264E-02,  0.3445E-02,  0.5196E-02,  0.7763E-02,  0.1142E-01,
                0274      &  0.1651E-01,  0.2345E-01,  0.3292E-01,  0.4580E-01,  0.6327E-01,
                0275      &  0.8657E-01,  0.1169E+00,  0.1551E+00,  0.2014E+00,  0.2545E+00,
                0276      &  0.3120E+00,  0.3707E+00,  0.4288E+00,  0.4863E+00/
                0277       data ((c2(ip,iw,1),iw=1,24),ip=16,16)/
                0278      & -0.1533E-06, -0.3224E-06, -0.6725E-06, -0.1365E-05, -0.2657E-05,
                0279      & -0.4953E-05, -0.8878E-05, -0.1525E-04, -0.2490E-04, -0.3866E-04,
                0280      & -0.5766E-04, -0.8372E-04, -0.1197E-03, -0.1695E-03, -0.2372E-03,
                0281      & -0.3266E-03, -0.4401E-03, -0.5783E-03, -0.7390E-03, -0.9180E-03,
                0282      & -0.1110E-02, -0.1309E-02, -0.1503E-02, -0.1676E-02/
                0283       data ((c3(ip,iw,1),iw=1,24),ip=16,16)/
                0284      & -0.6109E-09, -0.1253E-08, -0.2555E-08, -0.5100E-08, -0.9703E-08,
                0285      & -0.1729E-07, -0.2846E-07, -0.4291E-07, -0.5988E-07, -0.8135E-07,
                0286      & -0.1158E-06, -0.1750E-06, -0.2657E-06, -0.3890E-06, -0.5438E-06,
                0287      & -0.7262E-06, -0.9256E-06, -0.1122E-05, -0.1269E-05, -0.1284E-05,
                0288      & -0.1086E-05, -0.6553E-06, -0.5588E-07,  0.6660E-06/
                0289       data ((c1(ip,iw,1),iw=1,24),ip=17,17)/
                0290      &  0.1731E-03,  0.3250E-03,  0.5875E-03,  0.1015E-02,  0.1670E-02,
                0291      &  0.2632E-02,  0.4039E-02,  0.6099E-02,  0.9102E-02,  0.1340E-01,
                0292      &  0.1942E-01,  0.2769E-01,  0.3902E-01,  0.5447E-01,  0.7526E-01,
                0293      &  0.1027E+00,  0.1377E+00,  0.1810E+00,  0.2318E+00,  0.2881E+00,
                0294      &  0.3467E+00,  0.4050E+00,  0.4628E+00,  0.5209E+00/
                0295       data ((c2(ip,iw,1),iw=1,24),ip=17,17)/
                0296      & -0.1436E-06, -0.2978E-06, -0.6179E-06, -0.1270E-05, -0.2546E-05,
                0297      & -0.4927E-05, -0.9164E-05, -0.1628E-04, -0.2740E-04, -0.4353E-04,
                0298      & -0.6579E-04, -0.9606E-04, -0.1375E-03, -0.1943E-03, -0.2712E-03,
                0299      & -0.3722E-03, -0.4993E-03, -0.6515E-03, -0.8255E-03, -0.1016E-02,
                0300      & -0.1217E-02, -0.1417E-02, -0.1602E-02, -0.1757E-02/
                0301       data ((c3(ip,iw,1),iw=1,24),ip=17,17)/
                0302      & -0.6015E-09, -0.1225E-08, -0.2489E-08, -0.4978E-08, -0.9608E-08,
                0303      & -0.1756E-07, -0.2993E-07, -0.4715E-07, -0.6853E-07, -0.9454E-07,
                0304      & -0.1314E-06, -0.1920E-06, -0.2877E-06, -0.4222E-06, -0.5940E-06,
                0305      & -0.7936E-06, -0.1002E-05, -0.1181E-05, -0.1262E-05, -0.1156E-05,
                0306      & -0.8086E-06, -0.2604E-06,  0.4056E-06,  0.1164E-05/
                0307       data ((c1(ip,iw,1),iw=1,24),ip=18,18)/
                0308      &  0.1778E-03,  0.3392E-03,  0.6274E-03,  0.1113E-02,  0.1885E-02,
                0309      &  0.3041E-02,  0.4719E-02,  0.7141E-02,  0.1064E-01,  0.1565E-01,
                0310      &  0.2273E-01,  0.3260E-01,  0.4618E-01,  0.6463E-01,  0.8923E-01,
                0311      &  0.1212E+00,  0.1612E+00,  0.2092E+00,  0.2638E+00,  0.3219E+00,
                0312      &  0.3804E+00,  0.4384E+00,  0.4963E+00,  0.5550E+00/
                0313       data ((c2(ip,iw,1),iw=1,24),ip=18,18)/
                0314      & -0.1390E-06, -0.2850E-06, -0.5878E-06, -0.1213E-05, -0.2477E-05,
                0315      & -0.4934E-05, -0.9466E-05, -0.1731E-04, -0.2990E-04, -0.4860E-04,
                0316      & -0.7471E-04, -0.1102E-03, -0.1582E-03, -0.2230E-03, -0.3098E-03,
                0317      & -0.4228E-03, -0.5632E-03, -0.7291E-03, -0.9158E-03, -0.1117E-02,
                0318      & -0.1323E-02, -0.1519E-02, -0.1689E-02, -0.1824E-02/
                0319       data ((c3(ip,iw,1),iw=1,24),ip=18,18)/
                0320      & -0.5875E-09, -0.1187E-08, -0.2392E-08, -0.4777E-08, -0.9321E-08,
                0321      & -0.1745E-07, -0.3091E-07, -0.5121E-07, -0.7879E-07, -0.1130E-06,
                0322      & -0.1555E-06, -0.2161E-06, -0.3110E-06, -0.4527E-06, -0.6400E-06,
                0323      & -0.8571E-06, -0.1069E-05, -0.1209E-05, -0.1193E-05, -0.9472E-06,
                0324      & -0.4712E-06,  0.1597E-06,  0.8892E-06,  0.1671E-05/
                0325       data ((c1(ip,iw,1),iw=1,24),ip=19,19)/
                0326      &  0.1816E-03,  0.3503E-03,  0.6601E-03,  0.1202E-02,  0.2092E-02,
                0327      &  0.3464E-02,  0.5463E-02,  0.8315E-02,  0.1238E-01,  0.1818E-01,
                0328      &  0.2647E-01,  0.3819E-01,  0.5445E-01,  0.7641E-01,  0.1053E+00,
                0329      &  0.1421E+00,  0.1871E+00,  0.2392E+00,  0.2963E+00,  0.3548E+00,
                0330      &  0.4128E+00,  0.4706E+00,  0.5291E+00,  0.5883E+00/
                0331       data ((c2(ip,iw,1),iw=1,24),ip=19,19)/
                0332      & -0.1371E-06, -0.2799E-06, -0.5756E-06, -0.1190E-05, -0.2455E-05,
                0333      & -0.4982E-05, -0.9770E-05, -0.1824E-04, -0.3214E-04, -0.5332E-04,
                0334      & -0.8371E-04, -0.1255E-03, -0.1814E-03, -0.2555E-03, -0.3528E-03,
                0335      & -0.4774E-03, -0.6306E-03, -0.8095E-03, -0.1008E-02, -0.1218E-02,
                0336      & -0.1424E-02, -0.1610E-02, -0.1763E-02, -0.1875E-02/
                0337       data ((c3(ip,iw,1),iw=1,24),ip=19,19)/
                0338      & -0.5739E-09, -0.1144E-08, -0.2283E-08, -0.4524E-08, -0.8848E-08,
                0339      & -0.1686E-07, -0.3096E-07, -0.5411E-07, -0.8876E-07, -0.1343E-06,
                0340      & -0.1880E-06, -0.2511E-06, -0.3405E-06, -0.4800E-06, -0.6756E-06,
                0341      & -0.9041E-06, -0.1105E-05, -0.1184E-05, -0.1049E-05, -0.6701E-06,
                0342      & -0.1061E-06,  0.5899E-06,  0.1376E-05,  0.2160E-05/
                0343       data ((c1(ip,iw,1),iw=1,24),ip=20,20)/
                0344      &  0.1839E-03,  0.3589E-03,  0.6856E-03,  0.1273E-02,  0.2273E-02,
                0345      &  0.3867E-02,  0.6233E-02,  0.9594E-02,  0.1432E-01,  0.2104E-01,
                0346      &  0.3071E-01,  0.4452E-01,  0.6383E-01,  0.8977E-01,  0.1234E+00,
                0347      &  0.1651E+00,  0.2147E+00,  0.2701E+00,  0.3280E+00,  0.3861E+00,
                0348      &  0.4436E+00,  0.5017E+00,  0.5611E+00,  0.6202E+00/
                0349       data ((c2(ip,iw,1),iw=1,24),ip=20,20)/
                0350      & -0.1368E-06, -0.2791E-06, -0.5744E-06, -0.1192E-05, -0.2475E-05,
                0351      & -0.5078E-05, -0.1008E-04, -0.1903E-04, -0.3392E-04, -0.5726E-04,
                0352      & -0.9202E-04, -0.1409E-03, -0.2063E-03, -0.2912E-03, -0.3997E-03,
                0353      & -0.5357E-03, -0.7004E-03, -0.8911E-03, -0.1100E-02, -0.1314E-02,
                0354      & -0.1514E-02, -0.1687E-02, -0.1822E-02, -0.1908E-02/
                0355       data ((c3(ip,iw,1),iw=1,24),ip=20,20)/
                0356      & -0.5617E-09, -0.1109E-08, -0.2184E-08, -0.4264E-08, -0.8251E-08,
                0357      & -0.1582E-07, -0.3000E-07, -0.5536E-07, -0.9656E-07, -0.1549E-06,
                0358      & -0.2254E-06, -0.2999E-06, -0.3855E-06, -0.5114E-06, -0.6982E-06,
                0359      & -0.9171E-06, -0.1082E-05, -0.1078E-05, -0.8280E-06, -0.3561E-06,
                0360      &  0.2636E-06,  0.1015E-05,  0.1836E-05,  0.2588E-05/
                0361       data ((c1(ip,iw,1),iw=1,24),ip=21,21)/
                0362      &  0.1858E-03,  0.3646E-03,  0.7036E-03,  0.1327E-02,  0.2420E-02,
                0363      &  0.4219E-02,  0.6972E-02,  0.1093E-01,  0.1645E-01,  0.2427E-01,
                0364      &  0.3551E-01,  0.5167E-01,  0.7431E-01,  0.1047E+00,  0.1433E+00,
                0365      &  0.1901E+00,  0.2436E+00,  0.3006E+00,  0.3584E+00,  0.4157E+00,
                0366      &  0.4732E+00,  0.5321E+00,  0.5917E+00,  0.6501E+00/
                0367       data ((c2(ip,iw,1),iw=1,24),ip=21,21)/
                0368      & -0.1371E-06, -0.2803E-06, -0.5786E-06, -0.1206E-05, -0.2522E-05,
                0369      & -0.5211E-05, -0.1040E-04, -0.1969E-04, -0.3522E-04, -0.6021E-04,
                0370      & -0.9890E-04, -0.1552E-03, -0.2312E-03, -0.3285E-03, -0.4496E-03,
                0371      & -0.5973E-03, -0.7728E-03, -0.9733E-03, -0.1188E-02, -0.1399E-02,
                0372      & -0.1590E-02, -0.1748E-02, -0.1862E-02, -0.1922E-02/
                0373       data ((c3(ip,iw,1),iw=1,24),ip=21,21)/
                0374      & -0.5521E-09, -0.1082E-08, -0.2100E-08, -0.4025E-08, -0.7661E-08,
                0375      & -0.1462E-07, -0.2837E-07, -0.5493E-07, -0.1013E-06, -0.1716E-06,
                0376      & -0.2627E-06, -0.3609E-06, -0.4548E-06, -0.5617E-06, -0.7128E-06,
                0377      & -0.8814E-06, -0.9684E-06, -0.8687E-06, -0.5417E-06, -0.3260E-07,
                0378      &  0.6298E-06,  0.1417E-05,  0.2233E-05,  0.2884E-05/
                0379       data ((c1(ip,iw,1),iw=1,24),ip=22,22)/
                0380      &  0.1871E-03,  0.3685E-03,  0.7157E-03,  0.1365E-02,  0.2529E-02,
                0381      &  0.4505E-02,  0.7628E-02,  0.1223E-01,  0.1874E-01,  0.2790E-01,
                0382      &  0.4097E-01,  0.5971E-01,  0.8593E-01,  0.1209E+00,  0.1648E+00,
                0383      &  0.2163E+00,  0.2727E+00,  0.3303E+00,  0.3871E+00,  0.4436E+00,
                0384      &  0.5017E+00,  0.5611E+00,  0.6205E+00,  0.6771E+00/
                0385       data ((c2(ip,iw,1),iw=1,24),ip=22,22)/
                0386      & -0.1377E-06, -0.2818E-06, -0.5836E-06, -0.1222E-05, -0.2570E-05,
                0387      & -0.5339E-05, -0.1069E-04, -0.2019E-04, -0.3606E-04, -0.6211E-04,
                0388      & -0.1038E-03, -0.1666E-03, -0.2537E-03, -0.3653E-03, -0.5012E-03,
                0389      & -0.6623E-03, -0.8484E-03, -0.1055E-02, -0.1268E-02, -0.1470E-02,
                0390      & -0.1649E-02, -0.1790E-02, -0.1882E-02, -0.1920E-02/
                0391       data ((c3(ip,iw,1),iw=1,24),ip=22,22)/
                0392      & -0.5464E-09, -0.1064E-08, -0.2050E-08, -0.3874E-08, -0.7265E-08,
                0393      & -0.1373E-07, -0.2688E-07, -0.5376E-07, -0.1035E-06, -0.1833E-06,
                0394      & -0.2955E-06, -0.4267E-06, -0.5474E-06, -0.6443E-06, -0.7332E-06,
                0395      & -0.7933E-06, -0.7465E-06, -0.5424E-06, -0.1941E-06,  0.3078E-06,
                0396      &  0.9845E-06,  0.1771E-05,  0.2515E-05,  0.2962E-05/
                0397       data ((c1(ip,iw,1),iw=1,24),ip=23,23)/
                0398      &  0.1881E-03,  0.3708E-03,  0.7240E-03,  0.1391E-02,  0.2608E-02,
                0399      &  0.4720E-02,  0.8168E-02,  0.1342E-01,  0.2104E-01,  0.3186E-01,
                0400      &  0.4714E-01,  0.6879E-01,  0.9877E-01,  0.1384E+00,  0.1872E+00,
                0401      &  0.2428E+00,  0.3009E+00,  0.3583E+00,  0.4141E+00,  0.4706E+00,
                0402      &  0.5291E+00,  0.5885E+00,  0.6466E+00,  0.7007E+00/
                0403       data ((c2(ip,iw,1),iw=1,24),ip=23,23)/
                0404      & -0.1374E-06, -0.2821E-06, -0.5849E-06, -0.1227E-05, -0.2587E-05,
                0405      & -0.5392E-05, -0.1082E-04, -0.2043E-04, -0.3640E-04, -0.6291E-04,
                0406      & -0.1064E-03, -0.1742E-03, -0.2713E-03, -0.3983E-03, -0.5523E-03,
                0407      & -0.7302E-03, -0.9280E-03, -0.1135E-02, -0.1338E-02, -0.1526E-02,
                0408      & -0.1690E-02, -0.1811E-02, -0.1880E-02, -0.1904E-02/
                0409       data ((c3(ip,iw,1),iw=1,24),ip=23,23)/
                0410      & -0.5505E-09, -0.1066E-08, -0.2044E-08, -0.3856E-08, -0.7199E-08,
                0411      & -0.1353E-07, -0.2638E-07, -0.5316E-07, -0.1044E-06, -0.1908E-06,
                0412      & -0.3207E-06, -0.4858E-06, -0.6471E-06, -0.7512E-06, -0.7676E-06,
                0413      & -0.6661E-06, -0.4252E-06, -0.1067E-06,  0.2334E-06,  0.6913E-06,
                0414      &  0.1330E-05,  0.2055E-05,  0.2617E-05,  0.2760E-05/
                0415       data ((c1(ip,iw,1),iw=1,24),ip=24,24)/
                0416      &  0.1885E-03,  0.3726E-03,  0.7298E-03,  0.1409E-02,  0.2663E-02,
                0417      &  0.4883E-02,  0.8600E-02,  0.1446E-01,  0.2327E-01,  0.3600E-01,
                0418      &  0.5400E-01,  0.7901E-01,  0.1130E+00,  0.1571E+00,  0.2099E+00,
                0419      &  0.2683E+00,  0.3273E+00,  0.3841E+00,  0.4398E+00,  0.4968E+00,
                0420      &  0.5551E+00,  0.6137E+00,  0.6693E+00,  0.7204E+00/
                0421       data ((c2(ip,iw,1),iw=1,24),ip=24,24)/
                0422      & -0.1372E-06, -0.2802E-06, -0.5797E-06, -0.1212E-05, -0.2549E-05,
                0423      & -0.5312E-05, -0.1068E-04, -0.2023E-04, -0.3609E-04, -0.6255E-04,
                0424      & -0.1068E-03, -0.1777E-03, -0.2830E-03, -0.4252E-03, -0.6004E-03,
                0425      & -0.8005E-03, -0.1011E-02, -0.1213E-02, -0.1399E-02, -0.1569E-02,
                0426      & -0.1712E-02, -0.1809E-02, -0.1858E-02, -0.1883E-02/
                0427       data ((c3(ip,iw,1),iw=1,24),ip=24,24)/
                0428      & -0.5589E-09, -0.1071E-08, -0.2083E-08, -0.3965E-08, -0.7465E-08,
                0429      & -0.1408E-07, -0.2720E-07, -0.5414E-07, -0.1061E-06, -0.1958E-06,
                0430      & -0.3365E-06, -0.5263E-06, -0.7236E-06, -0.8420E-06, -0.7920E-06,
                0431      & -0.5166E-06, -0.5606E-07,  0.4032E-06,  0.7697E-06,  0.1160E-05,
                0432      &  0.1692E-05,  0.2251E-05,  0.2483E-05,  0.2295E-05/
                0433       data ((c1(ip,iw,1),iw=1,24),ip=25,25)/
                0434      &  0.1885E-03,  0.3737E-03,  0.7339E-03,  0.1423E-02,  0.2707E-02,
                0435      &  0.5013E-02,  0.8960E-02,  0.1537E-01,  0.2532E-01,  0.4018E-01,
                0436      &  0.6137E-01,  0.9035E-01,  0.1286E+00,  0.1766E+00,  0.2324E+00,
                0437      &  0.2916E+00,  0.3503E+00,  0.4075E+00,  0.4644E+00,  0.5221E+00,
                0438      &  0.5800E+00,  0.6362E+00,  0.6882E+00,  0.7365E+00/
                0439       data ((c2(ip,iw,1),iw=1,24),ip=25,25)/
                0440      & -0.1366E-06, -0.2772E-06, -0.5687E-06, -0.1179E-05, -0.2458E-05,
                0441      & -0.5093E-05, -0.1024E-04, -0.1950E-04, -0.3503E-04, -0.6107E-04,
                0442      & -0.1053E-03, -0.1782E-03, -0.2902E-03, -0.4470E-03, -0.6455E-03,
                0443      & -0.8715E-03, -0.1095E-02, -0.1290E-02, -0.1458E-02, -0.1604E-02,
                0444      & -0.1716E-02, -0.1783E-02, -0.1821E-02, -0.1862E-02/
                0445       data ((c3(ip,iw,1),iw=1,24),ip=25,25)/
                0446      & -0.5574E-09, -0.1099E-08, -0.2136E-08, -0.4136E-08, -0.7893E-08,
                0447      & -0.1505E-07, -0.2894E-07, -0.5650E-07, -0.1084E-06, -0.1986E-06,
                0448      & -0.3416E-06, -0.5381E-06, -0.7439E-06, -0.8545E-06, -0.7482E-06,
                0449      & -0.3541E-06,  0.2762E-06,  0.9306E-06,  0.1416E-05,  0.1754E-05,
                0450      &  0.2105E-05,  0.2343E-05,  0.2113E-05,  0.1689E-05/
                0451       data ((c1(ip,iw,1),iw=1,24),ip=26,26)/
                0452      &  0.1887E-03,  0.3748E-03,  0.7374E-03,  0.1435E-02,  0.2746E-02,
                0453      &  0.5129E-02,  0.9279E-02,  0.1618E-01,  0.2721E-01,  0.4419E-01,
                0454      &  0.6889E-01,  0.1025E+00,  0.1454E+00,  0.1968E+00,  0.2536E+00,
                0455      &  0.3116E+00,  0.3694E+00,  0.4282E+00,  0.4874E+00,  0.5461E+00,
                0456      &  0.6029E+00,  0.6556E+00,  0.7034E+00,  0.7496E+00/
                0457       data ((c2(ip,iw,1),iw=1,24),ip=26,26)/
                0458      & -0.1351E-06, -0.2730E-06, -0.5547E-06, -0.1136E-05, -0.2337E-05,
                0459      & -0.4789E-05, -0.9589E-05, -0.1836E-04, -0.3337E-04, -0.5890E-04,
                0460      & -0.1031E-03, -0.1781E-03, -0.2974E-03, -0.4696E-03, -0.6912E-03,
                0461      & -0.9400E-03, -0.1174E-02, -0.1368E-02, -0.1521E-02, -0.1635E-02,
                0462      & -0.1706E-02, -0.1742E-02, -0.1779E-02, -0.1846E-02/
                0463       data ((c3(ip,iw,1),iw=1,24),ip=26,26)/
                0464      & -0.5597E-09, -0.1126E-08, -0.2190E-08, -0.4298E-08, -0.8333E-08,
                0465      & -0.1610E-07, -0.3092E-07, -0.5912E-07, -0.1108E-06, -0.1982E-06,
                0466      & -0.3334E-06, -0.5129E-06, -0.6865E-06, -0.7484E-06, -0.5999E-06,
                0467      & -0.1961E-06,  0.5028E-06,  0.1395E-05,  0.2125E-05,  0.2489E-05,
                0468      &  0.2584E-05,  0.2312E-05,  0.1587E-05,  0.1122E-05/