C $Header: /u/gcmpack/MITgcm/pkg/fizhi/o3-tran3.h,v 1.2 2007/10/08 23:42:14 jmc Exp $
C $Name:  $

      data ((o1(ip,iw,1),iw=1,21),ip= 1, 1)/
     &  0.6563E-05,  0.1313E-04,  0.2665E-04,  0.5396E-04,  0.1083E-03,
     &  0.2137E-03,  0.4209E-03,  0.8162E-03,  0.1556E-02,  0.2879E-02,
     &  0.5105E-02,  0.8554E-02,  0.1344E-01,  0.1992E-01,  0.2835E-01,
     &  0.3956E-01,  0.5473E-01,  0.7537E-01,  0.1029E+00,  0.1382E+00,
     &  0.1820E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 1, 1)/
     &  0.6531E-10,  0.5926E-10, -0.1646E-09, -0.1454E-08, -0.7376E-08,
     & -0.2968E-07, -0.1071E-06, -0.3584E-06, -0.1125E-05, -0.3289E-05,
     & -0.8760E-05, -0.2070E-04, -0.4259E-04, -0.7691E-04, -0.1264E-03,
     & -0.1957E-03, -0.2895E-03, -0.4107E-03, -0.5588E-03, -0.7300E-03,
     & -0.9199E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 1, 1)/
     & -0.2438E-10, -0.4826E-10, -0.9474E-10, -0.1828E-09, -0.3406E-09,
     & -0.6223E-09, -0.1008E-08, -0.1412E-08, -0.1244E-08,  0.8485E-09,
     &  0.6343E-08,  0.1201E-07,  0.2838E-08, -0.4024E-07, -0.1257E-06,
     & -0.2566E-06, -0.4298E-06, -0.6184E-06, -0.7657E-06, -0.8153E-06,
     & -0.7552E-06/
      data ((o1(ip,iw,1),iw=1,21),ip= 2, 2)/
     &  0.6563E-05,  0.1313E-04,  0.2652E-04,  0.5396E-04,  0.1083E-03,
     &  0.2137E-03,  0.4209E-03,  0.8162E-03,  0.1556E-02,  0.2879E-02,
     &  0.5105E-02,  0.8557E-02,  0.1345E-01,  0.1993E-01,  0.2837E-01,
     &  0.3958E-01,  0.5480E-01,  0.7550E-01,  0.1031E+00,  0.1386E+00,
     &  0.1826E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 2, 2)/
     &  0.6193E-10,  0.5262E-10, -0.1774E-09, -0.1478E-08, -0.7416E-08,
     & -0.2985E-07, -0.1071E-06, -0.3584E-06, -0.1124E-05, -0.3287E-05,
     & -0.8753E-05, -0.2069E-04, -0.4256E-04, -0.7686E-04, -0.1264E-03,
     & -0.1956E-03, -0.2893E-03, -0.4103E-03, -0.5580E-03, -0.7285E-03,
     & -0.9171E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 2, 2)/
     & -0.2436E-10, -0.4822E-10, -0.9466E-10, -0.1827E-09, -0.3404E-09,
     & -0.6220E-09, -0.1008E-08, -0.1414E-08, -0.1247E-08,  0.8360E-09,
     &  0.6312E-08,  0.1194E-07,  0.2753E-08, -0.4040E-07, -0.1260E-06,
     & -0.2571E-06, -0.4307E-06, -0.6202E-06, -0.7687E-06, -0.8204E-06,
     & -0.7636E-06/
      data ((o1(ip,iw,1),iw=1,21),ip= 3, 3)/
     &  0.6563E-05,  0.1313E-04,  0.2652E-04,  0.5396E-04,  0.1083E-03,
     &  0.2137E-03,  0.4209E-03,  0.8162E-03,  0.1556E-02,  0.2879E-02,
     &  0.5107E-02,  0.8561E-02,  0.1345E-01,  0.1994E-01,  0.2841E-01,
     &  0.3964E-01,  0.5491E-01,  0.7568E-01,  0.1034E+00,  0.1392E+00,
     &  0.1836E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 3, 3)/
     &  0.5658E-10,  0.4212E-10, -0.1977E-09, -0.1516E-08, -0.7481E-08,
     & -0.2995E-07, -0.1072E-06, -0.3583E-06, -0.1123E-05, -0.3283E-05,
     & -0.8744E-05, -0.2067E-04, -0.4252E-04, -0.7679E-04, -0.1262E-03,
     & -0.1953E-03, -0.2889E-03, -0.4096E-03, -0.5567E-03, -0.7263E-03,
     & -0.9130E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 3, 3)/
     & -0.2433E-10, -0.4815E-10, -0.9453E-10, -0.1825E-09, -0.3400E-09,
     & -0.6215E-09, -0.1007E-08, -0.1415E-08, -0.1253E-08,  0.8143E-09,
     &  0.6269E-08,  0.1186E-07,  0.2604E-08, -0.4067E-07, -0.1264E-06,
     & -0.2579E-06, -0.4321E-06, -0.6229E-06, -0.7732E-06, -0.8277E-06,
     & -0.7752E-06/
      data ((o1(ip,iw,1),iw=1,21),ip= 4, 4)/
     &  0.6563E-05,  0.1313E-04,  0.2652E-04,  0.5396E-04,  0.1080E-03,
     &  0.2137E-03,  0.4209E-03,  0.8162E-03,  0.1556E-02,  0.2881E-02,
     &  0.5107E-02,  0.8565E-02,  0.1347E-01,  0.1997E-01,  0.2846E-01,
     &  0.3973E-01,  0.5506E-01,  0.7596E-01,  0.1039E+00,  0.1401E+00,
     &  0.1852E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 4, 4)/
     &  0.4814E-10,  0.2552E-10, -0.2298E-09, -0.1576E-08, -0.7579E-08,
     & -0.3009E-07, -0.1074E-06, -0.3581E-06, -0.1122E-05, -0.3278E-05,
     & -0.8729E-05, -0.2063E-04, -0.4245E-04, -0.7667E-04, -0.1260E-03,
     & -0.1950E-03, -0.2883E-03, -0.4086E-03, -0.5549E-03, -0.7229E-03,
     & -0.9071E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 4, 4)/
     & -0.2428E-10, -0.4805E-10, -0.9433E-10, -0.1821E-09, -0.3394E-09,
     & -0.6206E-09, -0.1008E-08, -0.1416E-08, -0.1261E-08,  0.7860E-09,
     &  0.6188E-08,  0.1171E-07,  0.2389E-08, -0.4109E-07, -0.1271E-06,
     & -0.2591E-06, -0.4344E-06, -0.6267E-06, -0.7797E-06, -0.8378E-06,
     & -0.7901E-06/
      data ((o1(ip,iw,1),iw=1,21),ip= 5, 5)/
     &  0.6563E-05,  0.1313E-04,  0.2652E-04,  0.5396E-04,  0.1080E-03,
     &  0.2136E-03,  0.4209E-03,  0.8162E-03,  0.1556E-02,  0.2881E-02,
     &  0.5112E-02,  0.8574E-02,  0.1349E-01,  0.2001E-01,  0.2852E-01,
     &  0.3989E-01,  0.5533E-01,  0.7643E-01,  0.1047E+00,  0.1414E+00,
     &  0.1875E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 5, 5)/
     &  0.3482E-10, -0.6492E-12, -0.2805E-09, -0.1671E-08, -0.7740E-08,
     & -0.3032E-07, -0.1076E-06, -0.3582E-06, -0.1120E-05, -0.3270E-05,
     & -0.8704E-05, -0.2058E-04, -0.4235E-04, -0.7649E-04, -0.1257E-03,
     & -0.1945E-03, -0.2874E-03, -0.4070E-03, -0.5521E-03, -0.7181E-03,
     & -0.8990E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 5, 5)/
     & -0.2419E-10, -0.4788E-10, -0.9401E-10, -0.1815E-09, -0.3385E-09,
     & -0.6192E-09, -0.1006E-08, -0.1417E-08, -0.1273E-08,  0.7404E-09,
     &  0.6068E-08,  0.1148E-07,  0.2021E-08, -0.4165E-07, -0.1281E-06,
     & -0.2609E-06, -0.4375E-06, -0.6323E-06, -0.7887E-06, -0.8508E-06,
     & -0.8067E-06/
      data ((o1(ip,iw,1),iw=1,21),ip= 6, 6)/
     &  0.6563E-05,  0.1313E-04,  0.2652E-04,  0.5396E-04,  0.1080E-03,
     &  0.2136E-03,  0.4207E-03,  0.8162E-03,  0.1557E-02,  0.2883E-02,
     &  0.5116E-02,  0.8587E-02,  0.1352E-01,  0.2008E-01,  0.2865E-01,
     &  0.4011E-01,  0.5572E-01,  0.7713E-01,  0.1059E+00,  0.1436E+00,
     &  0.1911E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 6, 6)/
     &  0.1388E-10, -0.4180E-10, -0.3601E-09, -0.1820E-08, -0.7993E-08,
     & -0.3068E-07, -0.1081E-06, -0.3580E-06, -0.1117E-05, -0.3257E-05,
     & -0.8667E-05, -0.2049E-04, -0.4218E-04, -0.7620E-04, -0.1253E-03,
     & -0.1937E-03, -0.2860E-03, -0.4047E-03, -0.5481E-03, -0.7115E-03,
     & -0.8885E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 6, 6)/
     & -0.2406E-10, -0.4762E-10, -0.9351E-10, -0.1806E-09, -0.3370E-09,
     & -0.6170E-09, -0.1004E-08, -0.1417E-08, -0.1297E-08,  0.6738E-09,
     &  0.5895E-08,  0.1113E-07,  0.1466E-08, -0.4265E-07, -0.1298E-06,
     & -0.2636E-06, -0.4423E-06, -0.6402E-06, -0.8005E-06, -0.8658E-06,
     & -0.8222E-06/
      data ((o1(ip,iw,1),iw=1,21),ip= 7, 7)/
     &  0.6563E-05,  0.1313E-04,  0.2652E-04,  0.5370E-04,  0.1080E-03,
     &  0.2136E-03,  0.4207E-03,  0.8164E-03,  0.1557E-02,  0.2885E-02,
     &  0.5125E-02,  0.8612E-02,  0.1357E-01,  0.2018E-01,  0.2885E-01,
     &  0.4046E-01,  0.5636E-01,  0.7823E-01,  0.1078E+00,  0.1467E+00,
     &  0.1962E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 7, 7)/
     & -0.1889E-10, -0.1062E-09, -0.4847E-09, -0.2053E-08, -0.8389E-08,
     & -0.3140E-07, -0.1089E-06, -0.3577E-06, -0.1112E-05, -0.3236E-05,
     & -0.8607E-05, -0.2035E-04, -0.4192E-04, -0.7576E-04, -0.1245E-03,
     & -0.1925E-03, -0.2840E-03, -0.4013E-03, -0.5427E-03, -0.7029E-03,
     & -0.8756E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 7, 7)/
     & -0.2385E-10, -0.4722E-10, -0.9273E-10, -0.1791E-09, -0.3348E-09,
     & -0.6121E-09, -0.9974E-09, -0.1422E-08, -0.1326E-08,  0.5603E-09,
     &  0.5604E-08,  0.1061E-07,  0.6106E-09, -0.4398E-07, -0.1321E-06,
     & -0.2676E-06, -0.4490E-06, -0.6507E-06, -0.8145E-06, -0.8801E-06,
     & -0.8311E-06/
      data ((o1(ip,iw,1),iw=1,21),ip= 8, 8)/
     &  0.6563E-05,  0.1313E-04,  0.2652E-04,  0.5370E-04,  0.1077E-03,
     &  0.2135E-03,  0.4207E-03,  0.8171E-03,  0.1559E-02,  0.2890E-02,
     &  0.5138E-02,  0.8645E-02,  0.1365E-01,  0.2034E-01,  0.2916E-01,
     &  0.4101E-01,  0.5733E-01,  0.7990E-01,  0.1107E+00,  0.1514E+00,
     &  0.2036E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 8, 8)/
     & -0.6983E-10, -0.2063E-09, -0.6785E-09, -0.2416E-08, -0.9000E-08,
     & -0.3243E-07, -0.1100E-06, -0.3574E-06, -0.1104E-05, -0.3205E-05,
     & -0.8516E-05, -0.2014E-04, -0.4151E-04, -0.7508E-04, -0.1234E-03,
     & -0.1907E-03, -0.2811E-03, -0.3966E-03, -0.5355E-03, -0.6924E-03,
     & -0.8613E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 8, 8)/
     & -0.2353E-10, -0.4659E-10, -0.9153E-10, -0.1769E-09, -0.3313E-09,
     & -0.6054E-09, -0.9899E-09, -0.1430E-08, -0.1375E-08,  0.3874E-09,
     &  0.5171E-08,  0.9807E-08, -0.7345E-09, -0.4604E-07, -0.1356E-06,
     & -0.2731E-06, -0.4577E-06, -0.6632E-06, -0.8284E-06, -0.8894E-06,
     & -0.8267E-06/
      data ((o1(ip,iw,1),iw=1,21),ip= 9, 9)/
     &  0.6563E-05,  0.1313E-04,  0.2639E-04,  0.5370E-04,  0.1077E-03,
     &  0.2135E-03,  0.4204E-03,  0.8175E-03,  0.1561E-02,  0.2898E-02,
     &  0.5160E-02,  0.8697E-02,  0.1377E-01,  0.2059E-01,  0.2962E-01,
     &  0.4185E-01,  0.5881E-01,  0.8244E-01,  0.1149E+00,  0.1581E+00,
     &  0.2139E+00/
      data ((o2(ip,iw,1),iw=1,21),ip= 9, 9)/
     & -0.1481E-09, -0.3601E-09, -0.9762E-09, -0.2973E-08, -0.1014E-07,
     & -0.3421E-07, -0.1121E-06, -0.3569E-06, -0.1092E-05, -0.3156E-05,
     & -0.8375E-05, -0.1981E-04, -0.4090E-04, -0.7405E-04, -0.1218E-03,
     & -0.1881E-03, -0.2770E-03, -0.3906E-03, -0.5269E-03, -0.6810E-03,
     & -0.8471E-03/
      data ((o3(ip,iw,1),iw=1,21),ip= 9, 9)/
     & -0.2304E-10, -0.4564E-10, -0.8969E-10, -0.1735E-09, -0.3224E-09,
     & -0.5933E-09, -0.9756E-09, -0.1428E-08, -0.1446E-08,  0.1156E-09,
     &  0.4499E-08,  0.8469E-08, -0.2720E-08, -0.4904E-07, -0.1401E-06,
     & -0.2801E-06, -0.4681E-06, -0.6761E-06, -0.8387E-06, -0.8879E-06,
     & -0.8040E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=10,10)/
     &  0.6563E-05,  0.1313E-04,  0.2639E-04,  0.5370E-04,  0.1074E-03,
     &  0.2135E-03,  0.4207E-03,  0.8184E-03,  0.1564E-02,  0.2909E-02,
     &  0.5191E-02,  0.8779E-02,  0.1396E-01,  0.2098E-01,  0.3035E-01,
     &  0.4315E-01,  0.6103E-01,  0.8614E-01,  0.1209E+00,  0.1675E+00,
     &  0.2280E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=10,10)/
     & -0.2661E-09, -0.5923E-09, -0.1426E-08, -0.3816E-08, -0.1159E-07,
     & -0.3654E-07, -0.1143E-06, -0.3559E-06, -0.1074E-05, -0.3083E-05,
     & -0.8159E-05, -0.1932E-04, -0.3998E-04, -0.7253E-04, -0.1194E-03,
     & -0.1845E-03, -0.2718E-03, -0.3833E-03, -0.5176E-03, -0.6701E-03,
     & -0.8354E-03/
      data ((o3(ip,iw,1),iw=1,21),ip=10,10)/
     & -0.2232E-10, -0.4421E-10, -0.8695E-10, -0.1684E-09, -0.3141E-09,
     & -0.5765E-09, -0.9606E-09, -0.1434E-08, -0.1551E-08, -0.2663E-09,
     &  0.3515E-08,  0.6549E-08, -0.5479E-08, -0.5312E-07, -0.1460E-06,
     & -0.2883E-06, -0.4787E-06, -0.6863E-06, -0.8399E-06, -0.8703E-06,
     & -0.7602E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=11,11)/
     &  0.6433E-05,  0.1300E-04,  0.2639E-04,  0.5370E-04,  0.1071E-03,
     &  0.2132E-03,  0.4209E-03,  0.8204E-03,  0.1570E-02,  0.2925E-02,
     &  0.5240E-02,  0.8905E-02,  0.1425E-01,  0.2156E-01,  0.3145E-01,
     &  0.4506E-01,  0.6427E-01,  0.9147E-01,  0.1293E+00,  0.1803E+00,
     &  0.2462E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=11,11)/
     & -0.4394E-09, -0.9330E-09, -0.2086E-08, -0.5054E-08, -0.1373E-07,
     & -0.3971E-07, -0.1178E-06, -0.3546E-06, -0.1049E-05, -0.2976E-05,
     & -0.7847E-05, -0.1860E-04, -0.3864E-04, -0.7038E-04, -0.1162E-03,
     & -0.1798E-03, -0.2654E-03, -0.3754E-03, -0.5091E-03, -0.6621E-03,
     & -0.8286E-03/
      data ((o3(ip,iw,1),iw=1,21),ip=11,11)/
     & -0.2127E-10, -0.4216E-10, -0.8300E-10, -0.1611E-09, -0.3019E-09,
     & -0.5597E-09, -0.9431E-09, -0.1450E-08, -0.1694E-08, -0.7913E-09,
     &  0.2144E-08,  0.3990E-08, -0.9282E-08, -0.5810E-07, -0.1525E-06,
     & -0.2965E-06, -0.4869E-06, -0.6894E-06, -0.8281E-06, -0.8350E-06,
     & -0.6956E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=12,12)/
     &  0.6301E-05,  0.1300E-04,  0.2625E-04,  0.5370E-04,  0.1074E-03,
     &  0.2129E-03,  0.4215E-03,  0.8226E-03,  0.1578E-02,  0.2951E-02,
     &  0.5312E-02,  0.9090E-02,  0.1467E-01,  0.2242E-01,  0.3306E-01,
     &  0.4786E-01,  0.6891E-01,  0.9889E-01,  0.1407E+00,  0.1971E+00,
     &  0.2698E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=12,12)/
     & -0.6829E-09, -0.1412E-08, -0.3014E-08, -0.6799E-08, -0.1675E-07,
     & -0.4450E-07, -0.1235E-06, -0.3538E-06, -0.1014E-05, -0.2827E-05,
     & -0.7407E-05, -0.1759E-04, -0.3676E-04, -0.6744E-04, -0.1120E-03,
     & -0.1742E-03, -0.2585E-03, -0.3683E-03, -0.5034E-03, -0.6594E-03,
     & -0.8290E-03/
      data ((o3(ip,iw,1),iw=1,21),ip=12,12)/
     & -0.1985E-10, -0.3937E-10, -0.7761E-10, -0.1511E-09, -0.2855E-09,
     & -0.5313E-09, -0.9251E-09, -0.1470E-08, -0.1898E-08, -0.1519E-08,
     &  0.2914E-09,  0.5675E-09, -0.1405E-07, -0.6359E-07, -0.1584E-06,
     & -0.3020E-06, -0.4893E-06, -0.6821E-06, -0.8021E-06, -0.7834E-06,
     & -0.6105E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=13,13)/
     &  0.6301E-05,  0.1300E-04,  0.2612E-04,  0.5303E-04,  0.1071E-03,
     &  0.2128E-03,  0.4222E-03,  0.8259E-03,  0.1590E-02,  0.2987E-02,
     &  0.5414E-02,  0.9354E-02,  0.1528E-01,  0.2368E-01,  0.3535E-01,
     &  0.5180E-01,  0.7532E-01,  0.1089E+00,  0.1557E+00,  0.2186E+00,
     &  0.2993E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=13,13)/
     & -0.1004E-08, -0.2043E-08, -0.4239E-08, -0.9104E-08, -0.2075E-07,
     & -0.5096E-07, -0.1307E-06, -0.3520E-06, -0.9671E-06, -0.2630E-05,
     & -0.6825E-05, -0.1624E-04, -0.3429E-04, -0.6369E-04, -0.1069E-03,
     & -0.1680E-03, -0.2520E-03, -0.3635E-03, -0.5029E-03, -0.6647E-03,
     & -0.8390E-03/
      data ((o3(ip,iw,1),iw=1,21),ip=13,13)/
     & -0.1807E-10, -0.3587E-10, -0.7085E-10, -0.1385E-09, -0.2648E-09,
     & -0.4958E-09, -0.8900E-09, -0.1473E-08, -0.2112E-08, -0.2399E-08,
     & -0.2002E-08, -0.3646E-08, -0.1931E-07, -0.6852E-07, -0.1618E-06,
     & -0.3021E-06, -0.4828E-06, -0.6634E-06, -0.7643E-06, -0.7177E-06,
     & -0.5054E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=14,14)/
     &  0.6301E-05,  0.1286E-04,  0.2612E-04,  0.5277E-04,  0.1071E-03,
     &  0.2132E-03,  0.4240E-03,  0.8303E-03,  0.1605E-02,  0.3033E-02,
     &  0.5550E-02,  0.9717E-02,  0.1613E-01,  0.2542E-01,  0.3852E-01,
     &  0.5715E-01,  0.8387E-01,  0.1219E+00,  0.1748E+00,  0.2451E+00,
     &  0.3348E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=14,14)/
     & -0.1387E-08, -0.2798E-08, -0.5706E-08, -0.1187E-07, -0.2564E-07,
     & -0.5866E-07, -0.1398E-06, -0.3516E-06, -0.9148E-06, -0.2398E-05,
     & -0.6122E-05, -0.1459E-04, -0.3125E-04, -0.5923E-04, -0.1013E-03,
     & -0.1620E-03, -0.2473E-03, -0.3631E-03, -0.5098E-03, -0.6800E-03,
     & -0.8603E-03/
      data ((o3(ip,iw,1),iw=1,21),ip=14,14)/
     & -0.1610E-10, -0.3200E-10, -0.6337E-10, -0.1245E-09, -0.2408E-09,
     & -0.4533E-09, -0.8405E-09, -0.1464E-08, -0.2337E-08, -0.3341E-08,
     & -0.4467E-08, -0.8154E-08, -0.2436E-07, -0.7128E-07, -0.1604E-06,
     & -0.2945E-06, -0.4666E-06, -0.6357E-06, -0.7187E-06, -0.6419E-06,
     & -0.3795E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=15,15)/
     &  0.5907E-05,  0.1273E-04,  0.2546E-04,  0.5277E-04,  0.1067E-03,
     &  0.2137E-03,  0.4253E-03,  0.8361E-03,  0.1623E-02,  0.3092E-02,
     &  0.5722E-02,  0.1018E-01,  0.1722E-01,  0.2768E-01,  0.4268E-01,
     &  0.6414E-01,  0.9479E-01,  0.1382E+00,  0.1981E+00,  0.2771E+00,
     &  0.3762E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=15,15)/
     & -0.1788E-08, -0.3588E-08, -0.7244E-08, -0.1479E-07, -0.3083E-07,
     & -0.6671E-07, -0.1497E-06, -0.3519E-06, -0.8607E-06, -0.2154E-05,
     & -0.5364E-05, -0.1276E-04, -0.2785E-04, -0.5435E-04, -0.9573E-04,
     & -0.1570E-03, -0.2455E-03, -0.3682E-03, -0.5253E-03, -0.7065E-03,
     & -0.8938E-03/
      data ((o3(ip,iw,1),iw=1,21),ip=15,15)/
     & -0.1429E-10, -0.2843E-10, -0.5645E-10, -0.1115E-09, -0.2181E-09,
     & -0.4200E-09, -0.7916E-09, -0.1460E-08, -0.2542E-08, -0.4168E-08,
     & -0.6703E-08, -0.1215E-07, -0.2821E-07, -0.7073E-07, -0.1530E-06,
     & -0.2791E-06, -0.4426E-06, -0.6027E-06, -0.6707E-06, -0.5591E-06,
     & -0.2328E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=16,16)/
     &  0.5645E-05,  0.1221E-04,  0.2533E-04,  0.5237E-04,  0.1067E-03,
     &  0.2140E-03,  0.4273E-03,  0.8422E-03,  0.1645E-02,  0.3156E-02,
     &  0.5916E-02,  0.1071E-01,  0.1852E-01,  0.3046E-01,  0.4788E-01,
     &  0.7281E-01,  0.1083E+00,  0.1580E+00,  0.2258E+00,  0.3138E+00,
     &  0.4222E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=16,16)/
     & -0.2141E-08, -0.4286E-08, -0.8603E-08, -0.1737E-07, -0.3548E-07,
     & -0.7410E-07, -0.1590E-06, -0.3537E-06, -0.8142E-06, -0.1935E-05,
     & -0.4658E-05, -0.1099E-04, -0.2444E-04, -0.4948E-04, -0.9067E-04,
     & -0.1538E-03, -0.2474E-03, -0.3793E-03, -0.5495E-03, -0.7439E-03,
     & -0.9383E-03/
      data ((o3(ip,iw,1),iw=1,21),ip=16,16)/
     & -0.1295E-10, -0.2581E-10, -0.5136E-10, -0.1019E-09, -0.2011E-09,
     & -0.3916E-09, -0.7585E-09, -0.1439E-08, -0.2648E-08, -0.4747E-08,
     & -0.8301E-08, -0.1499E-07, -0.3024E-07, -0.6702E-07, -0.1399E-06,
     & -0.2564E-06, -0.4117E-06, -0.5669E-06, -0.6239E-06, -0.4748E-06,
     & -0.7013E-07/
      data ((o1(ip,iw,1),iw=1,21),ip=17,17)/
     &  0.5645E-05,  0.1221E-04,  0.2520E-04,  0.5211E-04,  0.1067E-03,
     &  0.2139E-03,  0.4288E-03,  0.8479E-03,  0.1665E-02,  0.3222E-02,
     &  0.6116E-02,  0.1127E-01,  0.1994E-01,  0.3361E-01,  0.5394E-01,
     &  0.8310E-01,  0.1242E+00,  0.1811E+00,  0.2572E+00,  0.3544E+00,
     &  0.4713E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=17,17)/
     & -0.2400E-08, -0.4796E-08, -0.9599E-08, -0.1927E-07, -0.3892E-07,
     & -0.7954E-07, -0.1661E-06, -0.3540E-06, -0.7780E-06, -0.1763E-05,
     & -0.4092E-05, -0.9512E-05, -0.2142E-04, -0.4502E-04, -0.8640E-04,
     & -0.1525E-03, -0.2526E-03, -0.3955E-03, -0.5805E-03, -0.7897E-03,
     & -0.9899E-03/
      data ((o3(ip,iw,1),iw=1,21),ip=17,17)/
     & -0.1220E-10, -0.2432E-10, -0.4845E-10, -0.9640E-10, -0.1912E-09,
     & -0.3771E-09, -0.7392E-09, -0.1420E-08, -0.2702E-08, -0.5049E-08,
     & -0.9214E-08, -0.1659E-07, -0.3101E-07, -0.6162E-07, -0.1235E-06,
     & -0.2287E-06, -0.3755E-06, -0.5274E-06, -0.5790E-06, -0.3947E-06,
     &  0.1003E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=18,18)/
     &  0.5383E-05,  0.1195E-04,  0.2506E-04,  0.5211E-04,  0.1067E-03,
     &  0.2148E-03,  0.4297E-03,  0.8534E-03,  0.1682E-02,  0.3282E-02,
     &  0.6299E-02,  0.1179E-01,  0.2133E-01,  0.3687E-01,  0.6052E-01,
     &  0.9466E-01,  0.1423E+00,  0.2069E+00,  0.2916E+00,  0.3971E+00,
     &  0.5207E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=18,18)/
     & -0.2557E-08, -0.5106E-08, -0.1020E-07, -0.2043E-07, -0.4103E-07,
     & -0.8293E-07, -0.1697E-06, -0.3531E-06, -0.7531E-06, -0.1645E-05,
     & -0.3690E-05, -0.8411E-05, -0.1902E-04, -0.4118E-04, -0.8276E-04,
     & -0.1525E-03, -0.2601E-03, -0.4147E-03, -0.6149E-03, -0.8384E-03,
     & -0.1042E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=18,18)/
     & -0.1189E-10, -0.2372E-10, -0.4729E-10, -0.9421E-10, -0.1873E-09,
     & -0.3713E-09, -0.7317E-09, -0.1437E-08, -0.2764E-08, -0.5243E-08,
     & -0.9691E-08, -0.1751E-07, -0.3122E-07, -0.5693E-07, -0.1076E-06,
     & -0.1981E-06, -0.3324E-06, -0.4785E-06, -0.5280E-06, -0.3174E-06,
     &  0.2672E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=19,19)/
     &  0.5383E-05,  0.1181E-04,  0.2493E-04,  0.5224E-04,  0.1067E-03,
     &  0.2148E-03,  0.4301E-03,  0.8572E-03,  0.1696E-02,  0.3328E-02,
     &  0.6447E-02,  0.1224E-01,  0.2258E-01,  0.3993E-01,  0.6715E-01,
     &  0.1069E+00,  0.1618E+00,  0.2348E+00,  0.3275E+00,  0.4400E+00,
     &  0.5680E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=19,19)/
     & -0.2630E-08, -0.5249E-08, -0.1048E-07, -0.2096E-07, -0.4198E-07,
     & -0.8440E-07, -0.1710E-06, -0.3513E-06, -0.7326E-06, -0.1562E-05,
     & -0.3416E-05, -0.7637E-05, -0.1719E-04, -0.3795E-04, -0.7926E-04,
     & -0.1524E-03, -0.2680E-03, -0.4344E-03, -0.6486E-03, -0.8838E-03,
     & -0.1089E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=19,19)/
     & -0.1188E-10, -0.2369E-10, -0.4725E-10, -0.9417E-10, -0.1875E-09,
     & -0.3725E-09, -0.7365E-09, -0.1445E-08, -0.2814E-08, -0.5384E-08,
     & -0.1008E-07, -0.1816E-07, -0.3179E-07, -0.5453E-07, -0.9500E-07,
     & -0.1679E-06, -0.2819E-06, -0.4109E-06, -0.4555E-06, -0.2283E-06,
     &  0.4283E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=20,20)/
     &  0.5121E-05,  0.1168E-04,  0.2482E-04,  0.5211E-04,  0.1067E-03,
     &  0.2154E-03,  0.4310E-03,  0.8601E-03,  0.1706E-02,  0.3363E-02,
     &  0.6559E-02,  0.1259E-01,  0.2357E-01,  0.4257E-01,  0.7328E-01,
     &  0.1190E+00,  0.1819E+00,  0.2634E+00,  0.3638E+00,  0.4812E+00,
     &  0.6112E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=20,20)/
     & -0.2651E-08, -0.5291E-08, -0.1056E-07, -0.2110E-07, -0.4221E-07,
     & -0.8462E-07, -0.1705E-06, -0.3466E-06, -0.7155E-06, -0.1501E-05,
     & -0.3223E-05, -0.7079E-05, -0.1581E-04, -0.3517E-04, -0.7553E-04,
     & -0.1510E-03, -0.2746E-03, -0.4528E-03, -0.6789E-03, -0.9214E-03,
     & -0.1124E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=20,20)/
     & -0.1193E-10, -0.2380E-10, -0.4748E-10, -0.9465E-10, -0.1886E-09,
     & -0.3751E-09, -0.7436E-09, -0.1466E-08, -0.2872E-08, -0.5508E-08,
     & -0.1038E-07, -0.1891E-07, -0.3279E-07, -0.5420E-07, -0.8711E-07,
     & -0.1403E-06, -0.2248E-06, -0.3221E-06, -0.3459E-06, -0.1066E-06,
     &  0.5938E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=21,21)/
     &  0.5121E-05,  0.1129E-04,  0.2493E-04,  0.5224E-04,  0.1065E-03,
     &  0.2150E-03,  0.4308E-03,  0.8612E-03,  0.1712E-02,  0.3387E-02,
     &  0.6640E-02,  0.1285E-01,  0.2434E-01,  0.4469E-01,  0.7847E-01,
     &  0.1300E+00,  0.2013E+00,  0.2918E+00,  0.3989E+00,  0.5189E+00,
     &  0.6486E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=21,21)/
     & -0.2654E-08, -0.5296E-08, -0.1057E-07, -0.2111E-07, -0.4219E-07,
     & -0.8445E-07, -0.1696E-06, -0.3428E-06, -0.7013E-06, -0.1458E-05,
     & -0.3084E-05, -0.6678E-05, -0.1476E-04, -0.3284E-04, -0.7173E-04,
     & -0.1481E-03, -0.2786E-03, -0.4688E-03, -0.7052E-03, -0.9506E-03,
     & -0.1148E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=21,21)/
     & -0.1195E-10, -0.2384E-10, -0.4755E-10, -0.9482E-10, -0.1890E-09,
     & -0.3761E-09, -0.7469E-09, -0.1476E-08, -0.2892E-08, -0.5603E-08,
     & -0.1060E-07, -0.1942E-07, -0.3393E-07, -0.5508E-07, -0.8290E-07,
     & -0.1182E-06, -0.1657E-06, -0.2170E-06, -0.1997E-06,  0.6227E-07,
     &  0.7847E-06/
      data ((o1(ip,iw,1),iw=1,21),ip=22,22)/
     &  0.4594E-05,  0.1129E-04,  0.2506E-04,  0.5264E-04,  0.1065E-03,
     &  0.2150E-03,  0.4312E-03,  0.8623E-03,  0.1717E-02,  0.3403E-02,
     &  0.6698E-02,  0.1303E-01,  0.2489E-01,  0.4627E-01,  0.8257E-01,
     &  0.1392E+00,  0.2186E+00,  0.3178E+00,  0.4308E+00,  0.5519E+00,
     &  0.6792E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=22,22)/
     & -0.2653E-08, -0.5295E-08, -0.1057E-07, -0.2110E-07, -0.4215E-07,
     & -0.8430E-07, -0.1690E-06, -0.3403E-06, -0.6919E-06, -0.1427E-05,
     & -0.2991E-05, -0.6399E-05, -0.1398E-04, -0.3099E-04, -0.6824E-04,
     & -0.1441E-03, -0.2795E-03, -0.4814E-03, -0.7282E-03, -0.9739E-03,
     & -0.1163E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=22,22)/
     & -0.1195E-10, -0.2384E-10, -0.4756E-10, -0.9485E-10, -0.1891E-09,
     & -0.3765E-09, -0.7483E-09, -0.1481E-08, -0.2908E-08, -0.5660E-08,
     & -0.1075E-07, -0.1980E-07, -0.3472E-07, -0.5626E-07, -0.8149E-07,
     & -0.1027E-06, -0.1136E-06, -0.1071E-06, -0.2991E-07,  0.2743E-06,
     &  0.1017E-05/
      data ((o1(ip,iw,1),iw=1,21),ip=23,23)/
     &  0.4070E-05,  0.1116E-04,  0.2520E-04,  0.5277E-04,  0.1067E-03,
     &  0.2148E-03,  0.4312E-03,  0.8631E-03,  0.1720E-02,  0.3414E-02,
     &  0.6735E-02,  0.1315E-01,  0.2526E-01,  0.4740E-01,  0.8559E-01,
     &  0.1464E+00,  0.2328E+00,  0.3401E+00,  0.4581E+00,  0.5788E+00,
     &  0.7030E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=23,23)/
     & -0.2653E-08, -0.5294E-08, -0.1057E-07, -0.2109E-07, -0.4212E-07,
     & -0.8420E-07, -0.1686E-06, -0.3388E-06, -0.6858E-06, -0.1406E-05,
     & -0.2928E-05, -0.6206E-05, -0.1344E-04, -0.2961E-04, -0.6533E-04,
     & -0.1399E-03, -0.2780E-03, -0.4904E-03, -0.7488E-03, -0.9953E-03,
     & -0.1175E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=23,23)/
     & -0.1195E-10, -0.2384E-10, -0.4756E-10, -0.9485E-10, -0.1891E-09,
     & -0.3767E-09, -0.7492E-09, -0.1485E-08, -0.2924E-08, -0.5671E-08,
     & -0.1084E-07, -0.2009E-07, -0.3549E-07, -0.5773E-07, -0.8208E-07,
     & -0.9394E-07, -0.7270E-07, -0.3947E-08,  0.1456E-06,  0.5083E-06,
     &  0.1270E-05/
      data ((o1(ip,iw,1),iw=1,21),ip=24,24)/
     &  0.3676E-05,  0.1129E-04,  0.2599E-04,  0.5277E-04,  0.1065E-03,
     &  0.2150E-03,  0.4304E-03,  0.8634E-03,  0.1723E-02,  0.3420E-02,
     &  0.6759E-02,  0.1323E-01,  0.2553E-01,  0.4815E-01,  0.8768E-01,
     &  0.1515E+00,  0.2434E+00,  0.3577E+00,  0.4797E+00,  0.5991E+00,
     &  0.7202E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=24,24)/
     & -0.2653E-08, -0.5294E-08, -0.1056E-07, -0.2109E-07, -0.4210E-07,
     & -0.8413E-07, -0.1684E-06, -0.3379E-06, -0.6820E-06, -0.1393E-05,
     & -0.2889E-05, -0.6080E-05, -0.1307E-04, -0.2861E-04, -0.6310E-04,
     & -0.1363E-03, -0.2758E-03, -0.4969E-03, -0.7681E-03, -0.1017E-02,
     & -0.1186E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=24,24)/
     & -0.1195E-10, -0.2384E-10, -0.4756E-10, -0.9485E-10, -0.1891E-09,
     & -0.3768E-09, -0.7497E-09, -0.1487E-08, -0.2933E-08, -0.5710E-08,
     & -0.1089E-07, -0.2037E-07, -0.3616E-07, -0.5907E-07, -0.8351E-07,
     & -0.8925E-07, -0.4122E-07,  0.8779E-07,  0.3143E-06,  0.7281E-06,
     &  0.1500E-05/
      data ((o1(ip,iw,1),iw=1,21),ip=25,25)/
     &  0.3544E-05,  0.1103E-04,  0.2625E-04,  0.5251E-04,  0.1067E-03,
     &  0.2150E-03,  0.4301E-03,  0.8631E-03,  0.1724E-02,  0.3427E-02,
     &  0.6775E-02,  0.1328E-01,  0.2568E-01,  0.4863E-01,  0.8905E-01,
     &  0.1550E+00,  0.2509E+00,  0.3702E+00,  0.4949E+00,  0.6132E+00,
     &  0.7321E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=25,25)/
     & -0.2653E-08, -0.5293E-08, -0.1056E-07, -0.2108E-07, -0.4209E-07,
     & -0.8409E-07, -0.1682E-06, -0.3373E-06, -0.6797E-06, -0.1383E-05,
     & -0.2862E-05, -0.5993E-05, -0.1283E-04, -0.2795E-04, -0.6158E-04,
     & -0.1338E-03, -0.2743E-03, -0.5030E-03, -0.7863E-03, -0.1038E-02,
     & -0.1196E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=25,25)/
     & -0.1195E-10, -0.2383E-10, -0.4755E-10, -0.9484E-10, -0.1891E-09,
     & -0.3768E-09, -0.7499E-09, -0.1489E-08, -0.2939E-08, -0.5741E-08,
     & -0.1100E-07, -0.2066E-07, -0.3660E-07, -0.6002E-07, -0.8431E-07,
     & -0.8556E-07, -0.1674E-07,  0.1638E-06,  0.4525E-06,  0.8949E-06,
     &  0.1669E-05/
      data ((o1(ip,iw,1),iw=1,21),ip=26,26)/
     &  0.3282E-05,  0.1090E-04,  0.2625E-04,  0.5303E-04,  0.1065E-03,
     &  0.2148E-03,  0.4301E-03,  0.8631E-03,  0.1725E-02,  0.3429E-02,
     &  0.6781E-02,  0.1331E-01,  0.2579E-01,  0.4894E-01,  0.8990E-01,
     &  0.1572E+00,  0.2557E+00,  0.3782E+00,  0.5048E+00,  0.6220E+00,
     &  0.7400E+00/
      data ((o2(ip,iw,1),iw=1,21),ip=26,26)/
     & -0.2652E-08, -0.5292E-08, -0.1056E-07, -0.2108E-07, -0.4208E-07,
     & -0.8406E-07, -0.1681E-06, -0.3369E-06, -0.6784E-06, -0.1378E-05,
     & -0.2843E-05, -0.5944E-05, -0.1269E-04, -0.2759E-04, -0.6078E-04,
     & -0.1326E-03, -0.2742E-03, -0.5088E-03, -0.8013E-03, -0.1054E-02,
     & -0.1202E-02/
      data ((o3(ip,iw,1),iw=1,21),ip=26,26)/
     & -0.1194E-10, -0.2383E-10, -0.4754E-10, -0.9482E-10, -0.1891E-09,
     & -0.3768E-09, -0.7499E-09, -0.1489E-08, -0.2941E-08, -0.5752E-08,
     & -0.1104E-07, -0.2069E-07, -0.3661E-07, -0.6012E-07, -0.8399E-07,
     & -0.8183E-07,  0.1930E-08,  0.2167E-06,  0.5434E-06,  0.9990E-06,
     &  0.1787E-05/