C----------------------------------------------------------------------)
C                                                                      )
C Name:        single_spectra.f                                        )
C                                                                      )
C Author:      Sven Menke <Menke@SLAC.Stanford.EDU>                    )
C              for the OPAL Collaboration                              )
C                                                                      )
C Date:        20-Mai-1999                                             )
C                                                                      )
C ChangeLog:                                                           )
C              23-Jul-2003 thanks to Wolfgang Mader a bug was found    )
C                          in the pi 3pi0 spectrum - the spectrum      )
C                          previously reported here ended after 54     )
C                          bins but should have extended to 70 bins.   )
C                          this is corrected in this version - the     )
C                          contents up to bin number 54 is identical   )
C                          to the original version                     )
C                                                                      )
C Description: FORTRAN accessible representation of single spectra for )
C              the vector and axial-vector spectral functions from     )
C              non-strange hadronic tau decays as published in:        )
C                                                                      )
C              OPAL Collaboration, K. Ackerstaff et al.,               )
C              Eur. Phys. J. C 7 (1999) 4, 571-593,                    )
C              CERN-EP-98-102, hep-ex/9808019, (1998).                 )
C                                                                      )
C              The bin width is 0.032 GeV^2 for 1-dim arrays           )
C              and 0.032 x 0.032 GeV^4 for 2-dim arrays.               )
C                                                                      )
C              valid channel names:                                    )
C                                                                      ) 
C              PP0   for the pi pi0   channel                          ) 
C              P2P0  for the pi 2pi0  channel                          ) 
C              P3P0  for the pi 3pi0  channel                          ) 
C              3P    for the 3pi      channel                          ) 
C              3PP0  for the 3pi pi0  channel                          ) 
C              3P2P0 for the 3pi 2pi0 channel                          ) 
C                                                                      ) 
C              S*(*)             = s in GeV^2 at the bin centers.      )
C                                                                      )
C              V*(*)             = vector spectral function for each   )
C                                  corresponding s for a particular    )
C                                  channel.                            )
C                                  The naive parton model would give   )
C                                  V(*) = 0.5 for the sum of all       )
C                                  vector channels.                    )
C                                                                      )
C              A*(*)             = axial-vector spectral function for  )
C                                  each corresponding s for a          )
C                                  particular channel.                 )
C                                  The naive parton model would give   )
C                                  A(*) = 0.5 for the sum of all       )
C                                  axial-vector channels.              )
C                                                                      )
C              E*(*)             = the errors for V*(*) or A*(*).      )
C                                                                      )
C              C*(*,*)           = the correlation coefficients for    )
C                                  the spectral function in %.         )
C                                                                      )
C              The errors E* and the correlation coefficients C*       )
C              do not contain the induced uncertainties from the       )
C              branching fractions.                                    )
C                                                                      )
C              To get FORTRAN versions of the total vector and axial-  )
C              vector spectral functions with all errors and           )
C              correlations between the single spectra applied use:    )
C                                                                      )
C              spectral.f                                              )
C                                                                      )
C----------------------------------------------------------------------)
C----------------------------------------------------------------------)
C                                                                      )
C pi pi0                                                               )
C----------------------------------------------------------------------)
      SUBROUTINE SP_PP0
C                        
      IMPLICIT NONE      
C                        
      INTEGER I,J        
C                        
      REAL SPPZ      ( 72)
      DATA SPPZ       /
     $       0.112,   0.144,   0.176,   0.208,   0.240,
     $       0.272,   0.304,   0.336,   0.368,   0.400,
     $       0.432,   0.464,   0.496,   0.528,   0.560,
     $       0.592,   0.624,   0.656,   0.688,   0.720,
     $       0.752,   0.784,   0.816,   0.848,   0.880,
     $       0.912,   0.944,   0.976,   1.008,   1.040,
     $       1.072,   1.104,   1.136,   1.168,   1.200,
     $       1.232,   1.264,   1.296,   1.328,   1.360,
     $       1.392,   1.424,   1.456,   1.488,   1.520,
     $       1.552,   1.584,   1.616,   1.648,   1.680,
     $       1.712,   1.744,   1.776,   1.808,   1.840,
     $       1.872,   1.904,   1.936,   1.968,   2.000,
     $       2.032,   2.064,   2.096,   2.128,   2.160,
     $       2.192,   2.224,   2.256,   2.288,   2.320,
     $       2.352,   2.384/
C                        
C                        
      REAL VPPZ      ( 72)
      DATA VPPZ       /
     $     0.034674, 0.065944, 0.102362, 0.149450, 0.177113,
     $     0.237011, 0.319562, 0.407252, 0.532515, 0.678975,
     $     0.885545, 1.153546, 1.561915, 2.040867, 2.484132,
     $     2.617613, 2.368107, 1.908656, 1.474491, 1.143229,
     $     0.885379, 0.694447, 0.570182, 0.483621, 0.412141,
     $     0.372555, 0.332185, 0.296377, 0.256488, 0.239238,
     $     0.213968, 0.191523, 0.164328, 0.145934, 0.131635,
     $     0.122268, 0.116453, 0.117536, 0.121984, 0.116559,
     $     0.120058, 0.121710, 0.105064, 0.103990, 0.100725,
     $     0.092577, 0.086278, 0.084721, 0.076811, 0.066475,
     $     0.055236, 0.050041, 0.045456, 0.036160, 0.035877,
     $     0.030210, 0.025516, 0.022066, 0.021818, 0.018980,
     $     0.013260, 0.013193, 0.012201, 0.006010, 0.008937,
     $     0.009288, 0.005012, 0.008275, 0.004185, 0.002026,
     $     0.006346, 0.005512/
C                        
C                        
      REAL EPPZ      ( 72)
      DATA EPPZ       /
     $     0.008930, 0.014064, 0.017698, 0.020736, 0.019577,
     $     0.019877, 0.020182, 0.025032, 0.033273, 0.036878,
     $     0.043658, 0.060903, 0.088642, 0.102745, 0.081666,
     $     0.075677, 0.087056, 0.080233, 0.069411, 0.057239,
     $     0.047375, 0.041319, 0.037686, 0.034074, 0.028384,
     $     0.025402, 0.026244, 0.028806, 0.028911, 0.027674,
     $     0.022308, 0.017933, 0.016987, 0.019127, 0.020880,
     $     0.020875, 0.019146, 0.017018, 0.015080, 0.013449,
     $     0.014392, 0.015599, 0.014177, 0.014138, 0.013501,
     $     0.012294, 0.011662, 0.012036, 0.011926, 0.011439,
     $     0.010652, 0.010607, 0.010525, 0.009082, 0.009553,
     $     0.008544, 0.007664, 0.007129, 0.007771, 0.007596,
     $     0.006210, 0.007135, 0.007789, 0.004542, 0.007766,
     $     0.009183, 0.005744, 0.010529, 0.006115, 0.003434,
     $     0.011749, 0.011257/
C                        
C                        
      REAL CPPZ      ( 72, 72)
      DATA ((CPPZ      ( I, J), I=1, 72),J=  1,  1) /
     $     100.000,  95.783,  91.261,  80.514,  62.562,
     $      39.524,   9.649, -17.712, -28.634, -31.008,
     $     -23.197, -11.050,  -3.496,  -1.244,  -4.698,
     $     -10.807, -10.312,  -7.591,  -4.288,  -1.810,
     $      -0.249,   0.366,   0.146,  -0.617,  -1.836,
     $      -3.163,  -3.579,  -3.136,  -2.495,  -1.880,
     $      -1.163,  -0.146,   0.739,   0.936,   0.692,
     $       0.177,  -0.571,  -1.610,  -2.891,  -3.855,
     $      -4.031,  -3.692,  -3.128,  -2.413,  -1.548,
     $      -0.502,   0.643,   1.755,   2.767,   3.508,
     $       4.120,   4.570,   4.882,   5.061,   5.124,
     $       4.966,   4.604,   4.027,   3.210,   2.306,
     $       1.337,   0.549,  -0.159,  -0.701,  -1.141,
     $      -1.447,  -1.691,  -1.864,  -2.013,  -2.079,
     $      -2.202,  -2.264/
      DATA ((CPPZ      ( I, J), I=1, 72),J=  2,  2) /
     $      95.783, 100.000,  95.458,  87.784,  72.513,
     $      50.634,  17.926, -16.482, -31.718, -35.076,
     $     -24.996,  -9.211,   0.731,   3.632,  -1.788,
     $     -14.140, -16.236, -13.274,  -8.442,  -4.195,
     $      -0.598,   2.209,   3.784,   3.503,   0.750,
     $      -4.414,  -8.862, -10.677, -10.854, -10.076,
     $      -7.827,  -2.754,   3.653,   7.244,   8.427,
     $       8.310,   7.267,   5.024,   1.049,  -3.963,
     $      -7.703,  -9.445,  -9.917,  -9.570,  -8.448,
     $      -6.577,  -4.129,  -1.508,   1.010,   2.879,
     $       4.369,   5.355,   6.006,   6.400,   6.629,
     $       6.660,   6.635,   6.417,   5.891,   5.044,
     $       3.865,   2.778,   1.631,   0.572,  -0.415,
     $      -1.210,  -1.881,  -2.280,  -2.579,  -2.682,
     $      -2.814,  -2.850/
      DATA ((CPPZ      ( I, J), I=1, 72),J=  3,  3) /
     $      91.261,  95.458, 100.000,  94.373,  83.588,
     $      64.523,  29.754, -12.791, -33.575, -38.600,
     $     -26.515,  -6.826,   5.937,   9.739,   2.140,
     $     -17.787, -23.310, -20.331, -13.837,  -7.523,
     $      -1.408,   4.205,   8.124,   8.535,   3.914,
     $      -6.038, -15.544, -20.210, -21.439, -20.482,
     $     -16.338,  -6.186,   7.194,  15.107,  18.131,
     $      18.553,  17.176,  13.451,   6.112,  -3.990,
     $     -12.240, -16.635, -18.446, -18.602, -17.200,
     $     -14.340, -10.298,  -5.820,  -1.441,   1.821,
     $       4.396,   6.036,   7.100,   7.757,   8.190,
     $       8.471,   8.894,   9.167,   9.058,   8.344,
     $       6.964,   5.551,   3.900,   2.227,   0.582,
     $      -0.810,  -2.002,  -2.672,  -3.145,  -3.287,
     $      -3.420,  -3.417/
      DATA ((CPPZ      ( I, J), I=1, 72),J=  4,  4) /
     $      80.514,  87.784,  94.373, 100.000,  93.054,
     $      79.165,  44.859,  -4.879, -31.656, -39.187,
     $     -26.617,  -4.247,  10.968,  15.765,   6.388,
     $     -20.730, -29.961, -27.457, -19.742, -11.620,
     $      -3.034,   5.522,  11.997,  13.276,   6.866,
     $      -7.886, -22.505, -30.084, -32.417, -31.326,
     $     -25.319, -10.039,  10.506,  22.942,  27.945,
     $      28.999,  27.354,  22.188,  11.469,  -3.826,
     $     -16.726, -23.897, -27.148, -27.902, -26.307,
     $     -22.536, -16.964, -10.673,  -4.463,   0.177,
     $       3.820,   6.097,   7.559,   8.476,   9.120,
     $       9.686,  10.625,  11.482,  11.916,  11.461,
     $      10.007,   8.369,   6.300,   4.072,   1.813,
     $      -0.148,  -1.842,  -2.764,  -3.392,  -3.560,
     $      -3.672,  -3.616/
      DATA ((CPPZ      ( I, J), I=1, 72),J=  5,  5) /
     $      62.562,  72.513,  83.588,  93.054, 100.000,
     $      90.629,  61.874,   9.607, -21.917, -32.918,
     $     -23.582,  -2.496,  13.230,  18.750,   9.167,
     $     -21.155, -33.023, -31.872, -24.460, -15.913,
     $      -6.044,   4.497,  12.910,  15.095,   7.853,
     $      -9.641, -27.240, -36.572, -39.632, -38.568,
     $     -31.589, -13.309,  11.749,  27.232,  33.687,
     $      35.324,  33.690,  27.798,  15.125,  -3.345,
     $     -19.205, -28.230, -32.532, -33.852, -32.356,
     $     -28.261, -21.971, -14.758,  -7.572,  -2.183,
     $       2.037,   4.639,   6.303,   7.366,   8.156,
     $       8.976,  10.376,  11.798,  12.843,  12.842,
     $      11.649,  10.124,   8.024,   5.623,   3.122,
     $       0.900,  -1.031,  -2.051,  -2.720,  -2.879,
     $      -2.925,  -2.807/
      DATA ((CPPZ      ( I, J), I=1, 72),J=  6,  6) /
     $      39.524,  50.634,  64.523,  79.165,  90.629,
     $     100.000,  80.807,  35.330,   2.150, -13.952,
     $     -15.252,  -3.691,   8.271,  13.732,   7.271,
     $     -16.666, -27.944, -29.657, -25.788, -19.980,
     $     -11.788,  -1.896,   6.592,   9.529,   3.786,
     $     -11.144, -26.123, -34.081, -36.780, -36.067,
     $     -30.366, -14.629,   7.866,  22.343,  28.719,
     $      30.682,  29.663,  24.812,  13.844,  -2.487,
     $     -16.754, -25.078, -29.277, -30.933, -30.154,
     $     -27.116, -22.095, -16.162, -10.141,  -5.579,
     $      -2.006,   0.161,   1.552,   2.488,   3.251,
     $       4.206,   5.835,   7.638,   9.289,  10.064,
     $       9.814,   9.129,   7.867,   6.189,   4.339,
     $       2.615,   1.097,   0.350,  -0.098,  -0.169,
     $      -0.067,   0.115/
      DATA ((CPPZ      ( I, J), I=1, 72),J=  7,  7) /
     $       9.649,  17.926,  29.754,  44.859,  61.874,
     $      80.807, 100.000,  75.778,  49.787,  27.958,
     $       4.138,  -9.023,  -9.749,  -6.730,  -4.335,
     $      -3.231,  -6.780, -13.382, -18.745, -21.645,
     $     -21.178, -17.686, -13.411, -10.410, -10.052,
     $     -11.559, -12.403, -12.522, -12.567, -12.798,
     $     -12.908, -11.108,  -5.972,  -1.142,   1.788,
     $       3.404,   4.145,   3.911,   2.194,  -0.954,
     $      -4.100,  -6.324,  -7.916,  -9.299, -10.382,
     $     -11.120, -11.358, -11.177, -10.690, -10.185,
     $      -9.772,  -9.600,  -9.459,  -9.230,  -8.879,
     $      -8.115,  -6.853,  -5.208,  -3.154,  -1.142,
     $       0.766,   2.263,   3.506,   4.307,   4.883,
     $       5.178,   5.385,   5.646,   5.936,   6.101,
     $       6.490,   6.723/
      DATA ((CPPZ      ( I, J), I=1, 72),J=  8,  8) /
     $     -17.712, -16.482, -12.791,  -4.879,   9.607,
     $      35.330,  75.778, 100.000,  88.570,  69.798,
     $      29.579,  -8.739, -26.144, -29.019, -19.120,
     $      10.391,  18.560,   9.692,  -3.954, -16.082,
     $     -25.455, -31.571, -34.540, -32.922, -25.376,
     $      -9.621,   7.866,  18.040,  21.650,  20.495,
     $      13.209,  -3.086, -21.526, -30.500, -32.947,
     $     -32.384, -29.766, -24.226, -13.837,   0.635,
     $      12.622,  18.935,  21.269,  20.793,  17.827,
     $      12.681,   5.994,  -1.048,  -7.631, -12.373,
     $     -16.067, -18.473, -19.979, -20.760, -21.105,
     $     -20.915, -20.645, -19.864, -18.111, -15.304,
     $     -11.370,  -7.646,  -3.653,   0.037,   3.508,
     $       6.285,   8.639,  10.112,  11.269,  11.712,
     $      12.348,  12.586/
      DATA ((CPPZ      ( I, J), I=1, 72),J=  9,  9) /
     $     -28.634, -31.718, -33.575, -31.656, -21.917,
     $       2.150,  49.787,  88.570, 100.000,  88.377,
     $      51.511,   5.741, -21.742, -31.810, -25.429,
     $       8.096,  21.737,  15.650,   2.372, -11.440,
     $     -24.330, -34.812, -41.501, -41.380, -32.085,
     $     -10.679,  13.430,  27.662,  32.948,  31.767,
     $      22.225,  -0.135, -26.667, -40.482, -44.877,
     $     -44.752, -41.555, -34.099, -19.617,   0.894,
     $      18.130,  27.450,  31.207,  31.114,  27.563,
     $      20.949,  12.070,   2.533,  -6.532, -13.155,
     $     -18.376, -21.803, -24.028, -25.326, -26.094,
     $     -26.288, -26.572, -26.261, -24.750, -21.731,
     $     -17.056, -12.486,  -7.409,  -2.563,   2.039,
     $       5.796,   9.024,  11.005,  12.567,  13.205,
     $      13.985,  14.280/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 10, 10) /
     $     -31.007, -35.076, -38.600, -39.187, -32.918,
     $     -13.952,  27.958,  69.798,  88.377, 100.000,
     $      79.392,  39.282,   5.511, -14.337, -23.164,
     $     -10.833,   1.030,   1.440,  -3.885, -12.548,
     $     -22.897, -32.383, -39.050, -40.202, -34.115,
     $     -17.667,   2.741,  15.722,  21.059,  20.609,
     $      13.015,  -4.618, -24.580, -34.231, -36.808,
     $     -36.108, -33.175, -27.088, -15.745,   0.092,
     $      13.264,  20.228,  22.796,  22.216,  18.838,
     $      12.997,   5.401,  -2.650, -10.267, -15.876,
     $     -20.431, -23.623, -25.855, -27.308, -28.284,
     $     -28.586, -28.791, -28.211, -26.335, -22.995,
     $     -18.037, -13.273,  -8.048,  -3.165,   1.337,
     $       4.972,   8.144,  10.171,  11.902,  12.772,
     $      13.762,  14.262/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 11, 11) /
     $     -23.197, -24.996, -26.515, -26.617, -23.582,
     $     -15.252,   4.138,  29.579,  51.511,  79.392,
     $     100.000,  82.098,  53.615,  27.558,  -2.823,
     $     -37.767, -40.493, -33.544, -24.902, -20.851,
     $     -20.392, -21.371, -23.030, -24.713, -26.600,
     $     -26.156, -21.053, -15.796, -12.755, -12.088,
     $     -13.679, -15.843, -14.653, -11.206,  -8.231,
     $      -5.938,  -4.070,  -2.534,  -1.406,  -0.847,
     $      -1.045,  -1.834,  -3.085,  -4.992,  -7.377,
     $     -10.137, -12.913, -15.446, -17.637, -19.288,
     $     -20.908, -22.505, -23.917, -25.047, -25.910,
     $     -25.977, -25.429, -23.868, -21.125, -17.544,
     $     -13.040,  -8.998,  -4.859,  -1.325,   1.621,
     $       3.853,   5.870,   7.357,   8.885,   9.924,
     $      11.091,  11.873/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 12, 12) /
     $     -11.050,  -9.211,  -6.826,  -4.247,  -2.496,
     $      -3.691,  -9.023,  -8.739,   5.741,  39.282,
     $      82.098, 100.000,  89.000,  69.857,  31.472,
     $     -45.433, -71.668, -67.139, -50.413, -34.635,
     $     -20.670,  -9.522,  -3.515,  -3.979, -12.409,
     $     -27.270, -38.407, -42.321, -42.732, -41.809,
     $     -38.277, -26.292,  -5.377,  10.468,  18.823,
     $      22.784,  23.853,  21.396,  13.286,  -0.262,
     $     -13.012, -21.192, -26.152, -29.396, -30.918,
     $     -30.847, -29.153, -26.535, -23.618, -21.487,
     $     -20.212, -20.109, -20.511, -21.071, -21.546,
     $     -21.134, -19.610, -16.954, -13.319,  -9.577,
     $      -5.748,  -2.665,   0.086,   1.978,   3.151,
     $       3.797,   4.454,   5.240,   6.355,   7.363,
     $       8.553,   9.479/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 13, 13) /
     $      -3.496,   0.731,   5.937,  10.968,  13.230,
     $       8.271,  -9.749, -26.144, -21.742,   5.511,
     $      53.615,  89.000, 100.000,  92.589,  60.875,
     $     -32.818, -78.580, -83.304, -68.154, -48.169,
     $     -25.942,  -6.062,   6.042,   7.998,  -1.917,
     $     -22.842, -41.753, -50.790, -53.640, -53.351,
     $     -48.377, -31.277,  -2.618,  18.425,  29.227,
     $      34.121,  35.135,  31.389,  19.932,   0.984,
     $     -16.759, -27.994, -34.578, -38.508, -39.846,
     $     -38.824, -35.525, -31.003, -26.156, -22.559,
     $     -20.119, -19.280, -19.185, -19.392, -19.564,
     $     -18.791, -16.673, -13.390,  -9.220,  -5.295,
     $      -1.699,   0.992,   3.125,   4.264,   4.647,
     $       4.577,   4.595,   5.036,   5.902,   6.816,
     $       7.970,   8.908/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 14, 14) /
     $      -1.244,   3.632,   9.739,  15.765,  18.750,
     $      13.732,  -6.730, -29.019, -31.810, -14.337,
     $      27.558,  69.857,  92.589, 100.000,  82.303,
     $      -7.263, -66.377, -84.149, -78.212, -61.613,
     $     -37.654, -13.314,   3.392,   9.156,   2.298,
     $     -16.621, -35.593, -45.826, -49.912, -50.715,
     $     -47.008, -31.743,  -4.764,  15.679,  26.463,
     $      31.546,  32.885,  29.686,  19.144,   1.379,
     $     -15.438, -26.209, -32.625, -36.573, -38.097,
     $     -37.416, -34.577, -30.544, -26.152, -22.871,
     $     -20.653, -19.926, -19.873, -20.068, -20.203,
     $     -19.371, -17.192, -13.845,  -9.584,  -5.545,
     $      -1.814,   0.994,   3.239,   4.478,   4.966,
     $       4.980,   5.057,   5.525,   6.392,   7.281,
     $       8.423,   9.339/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 15, 15) /
     $      -4.698,  -1.788,   2.140,   6.388,   9.167,
     $       7.271,  -4.335, -19.120, -25.429, -23.164,
     $      -2.823,  31.472,  60.875,  82.303, 100.000,
     $      46.372, -19.600, -59.309, -77.030, -77.415,
     $     -62.559, -39.681, -19.079,  -5.854,  -1.874,
     $      -6.548, -14.571, -20.748, -24.636, -27.231,
     $     -28.366, -24.333, -12.231,  -0.830,   6.140,
     $      10.034,  11.866,  11.337,   7.134,  -0.675,
     $      -8.414, -13.692, -17.214, -19.936, -21.778,
     $     -22.790, -22.817, -22.177, -21.206, -20.492,
     $     -20.269, -20.741, -21.446, -22.142, -22.690,
     $     -22.384, -21.128, -18.801, -15.456, -11.806,
     $      -7.845,  -4.556,  -1.487,   0.813,   2.450,
     $       3.525,   4.538,   5.479,   6.646,   7.604,
     $       8.715,   9.544/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 16, 16) /
     $     -10.807, -14.140, -17.787, -20.730, -21.155,
     $     -16.666,  -3.231,  10.391,   8.096, -10.833,
     $     -37.767, -45.433, -32.818,  -7.263,  46.372,
     $     100.000,  73.580,  30.680, -12.022, -42.459,
     $     -58.155, -58.990, -49.929, -35.378, -16.661,
     $       7.066,  26.158,  33.917,  34.898,  32.256,
     $      24.563,   7.215, -14.774, -27.518, -32.603,
     $     -33.996, -33.085, -29.185, -20.094,  -5.635,
     $       7.702,  15.780,  19.945,  21.465,  20.581,
     $      17.597,  12.890,   7.441,   1.992,  -2.148,
     $      -5.518,  -7.794,  -9.426, -10.654, -11.722,
     $     -12.749, -14.223, -15.511, -16.295, -15.998,
     $     -14.430, -12.583, -10.139,  -7.483,  -4.900,
     $      -2.635,  -0.588,   0.596,   1.571,   2.084,
     $       2.419,   2.577/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 17, 17) /
     $     -10.312, -16.236, -23.310, -29.961, -33.023,
     $     -27.944,  -6.780,  18.560,  21.737,   1.030,
     $     -40.493, -71.668, -78.580, -66.377, -19.600,
     $      73.580, 100.000,  83.390,  51.031,  16.427,
     $     -15.641, -37.761, -46.306, -42.231, -26.066,
     $       3.369,  32.353,  47.867,  53.658,  54.114,
     $      48.027,  27.847,  -4.077, -26.542, -37.750,
     $     -42.727, -43.756, -39.996, -28.162,  -7.802,
     $      11.799,  24.339,  31.557,  35.417,  36.123,
     $      34.055,  29.477,  23.605,  17.436,  12.723,
     $       9.097,   7.051,   5.791,   4.894,   4.009,
     $       2.504,  -0.211,  -3.505,  -7.015,  -9.558,
     $     -10.912, -11.436, -11.112,  -9.958,  -8.414,
     $      -6.775,  -5.295,  -4.698,  -4.460,  -4.538,
     $      -4.976,  -5.377/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 18, 18) /
     $      -7.591, -13.274, -20.331, -27.457, -31.872,
     $     -29.657, -13.382,   9.692,  15.650,   1.440,
     $     -33.544, -67.139, -83.304, -84.149, -59.309,
     $      30.680,  83.390, 100.000,  87.114,  61.751,
     $      26.734,  -6.710, -28.613, -36.551, -30.446,
     $      -8.698,  18.047,  35.516,  44.400,  48.364,
     $      47.239,  34.391,   8.345, -12.833, -24.774,
     $     -31.066, -33.779, -32.374, -24.076,  -8.139,
     $       8.059,  18.994,  25.823,  30.171,  32.130,
     $      32.001,  29.824,  26.443,  22.609,  19.636,
     $      17.481,  16.551,  16.132,  15.828,  15.355,
     $      13.932,  11.126,   7.353,   2.835,  -1.191,
     $      -4.549,  -6.929,  -8.567,  -9.167,  -9.173,
     $      -8.750,  -8.343,  -8.476,  -8.916,  -9.388,
     $     -10.279, -10.948/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 19, 19) /
     $      -4.288,  -8.442, -13.837, -19.742, -24.460,
     $     -25.788, -18.745,  -3.954,   2.372,  -3.885,
     $     -24.902, -50.413, -68.154, -78.212, -77.030,
     $     -12.022,  51.031,  87.114, 100.000,  88.721,
     $      61.876,  27.740,  -0.993, -18.883, -24.891,
     $     -17.395,  -0.839,  13.493,  22.867,  28.977,
     $      32.523,  29.628,  16.084,   2.106,  -7.041,
     $     -12.684, -16.080, -17.030, -13.903,  -5.930,
     $       3.086,   9.763,  14.465,  18.111,  20.665,
     $      22.279,  22.788,  22.497,  21.758,  21.146,
     $      20.926,  21.309,  21.821,  22.176,  22.213,
     $      21.194,  18.931,  15.548,  11.090,   6.568,
     $       2.084,  -1.504,  -4.611,  -6.712,  -8.169,
     $      -8.977,  -9.657, -10.438, -11.401, -12.119,
     $     -13.230, -13.992/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 20, 20) /
     $      -1.810,  -4.195,  -7.523, -11.620, -15.913,
     $     -19.980, -21.645, -16.082, -11.440, -12.548,
     $     -20.851, -34.635, -48.169, -61.613, -77.415,
     $     -42.459,  16.427,  61.751,  88.721, 100.000,
     $      87.257,  61.937,  33.240,   9.117,  -7.854,
     $     -16.666, -15.017,  -7.917,  -0.826,   5.250,
     $      11.190,  16.380,  16.092,  11.700,   7.418,
     $       3.969,   1.165,  -0.942,  -1.878,  -1.216,
     $       0.582,   2.591,   4.616,   6.916,   9.350,
     $      11.903,  14.288,  16.373,  18.158,  19.548,
     $      20.997,  22.504,  23.831,  24.805,  25.361,
     $      24.878,  23.387,  20.748,  16.859,  12.430,
     $       7.493,   3.276,  -0.737,  -3.882,  -6.403,
     $      -8.159,  -9.684, -10.933, -12.247, -13.112,
     $     -14.303, -15.075/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 21, 21) /
     $      -0.249,  -0.598,  -1.408,  -3.034,  -6.044,
     $     -11.788, -21.178, -25.455, -24.330, -22.897,
     $     -20.392, -20.670, -25.942, -37.654, -62.559,
     $     -58.155, -15.641,  26.734,  61.876,  87.257,
     $     100.000,  88.398,  67.404,  43.058,  19.167,
     $      -4.798, -20.687, -24.514, -22.746, -19.180,
     $     -13.392,  -2.724,   9.522,  15.865,  17.811,
     $      17.715,  16.545,  14.349,  10.490,   4.813,
     $      -0.172,  -2.854,  -3.755,  -3.203,  -1.416,
     $       1.427,   4.979,   8.763,  12.481,  15.459,
     $      18.241,  20.622,  22.590,  24.085,  25.128,
     $      25.279,  24.773,  23.217,  20.392,  16.627,
     $      11.877,   7.577,   3.179,  -0.591,  -3.828,
     $      -6.281,  -8.439,  -9.998, -11.510, -12.433,
     $     -13.578, -14.284/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 22, 22) /
     $       0.366,   2.209,   4.205,   5.522,   4.497,
     $      -1.896, -17.686, -31.571, -34.812, -32.383,
     $     -21.371,  -9.522,  -6.062, -13.314, -39.681,
     $     -58.990, -37.761,  -6.710,  27.740,  61.937,
     $      88.398, 100.000,  89.872,  72.544,  48.777,
     $      15.616, -15.730, -31.758, -37.373, -38.193,
     $     -34.527, -21.248,   0.586,  16.294,  24.127,
     $      27.454,  28.187,  26.365,  20.393,   9.609,
     $      -1.026,  -7.716, -11.191, -12.252, -11.162,
     $      -8.244,  -3.881,   1.167,   6.347,  10.518,
     $      14.266,  17.225,  19.595,  21.434,  22.846,
     $      23.614,  24.162,  23.868,  22.399,  19.651,
     $      15.502,  11.474,   7.034,   2.915,  -0.810,
     $      -3.797,  -6.449,  -8.213,  -9.825, -10.750,
     $     -11.768, -12.360/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 23, 23) /
     $       0.146,   3.784,   8.124,  11.997,  12.910,
     $       6.592, -13.411, -34.540, -41.501, -39.050,
     $     -23.030,  -3.515,   6.042,   3.392, -19.079,
     $     -49.929, -46.306, -28.613,  -0.993,  33.240,
     $      67.404,  89.872, 100.000,  91.338,  73.966,
     $      39.380,  -1.684, -28.124, -41.229, -47.024,
     $     -46.589, -33.745,  -7.387,  13.923,  25.683,
     $      31.491,  33.751,  32.462,  25.432,  11.743,
     $      -2.191, -11.270, -16.300, -18.343, -17.677,
     $     -14.716,  -9.865,  -4.075,   1.940,   6.759,
     $      10.994,  14.196,  16.713,  18.694,  20.318,
     $      21.556,  22.979,  23.783,  23.543,  21.776,
     $      18.283,  14.618,  10.268,   5.961,   1.918,
     $      -1.448,  -4.461,  -6.366,  -8.040,  -8.964,
     $      -9.863, -10.358/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 24, 24) /
     $      -0.617,   3.503,   8.535,  13.276,  15.095,
     $       9.529, -10.410, -32.922, -41.380, -40.202,
     $     -24.713,  -3.979,   7.998,   9.156,  -5.854,
     $     -35.378, -42.231, -36.551, -18.883,   9.117,
     $      43.058,  72.544,  91.338, 100.000,  89.920,
     $      61.848,  19.409, -12.762, -31.429, -41.683,
     $     -45.479, -37.547, -14.570,   6.366,  18.900,
     $      25.695,  28.994,  28.859,  23.224,  11.119,
     $      -1.657, -10.219, -15.117, -17.261, -16.888,
     $     -14.397, -10.151,  -5.021,   0.331,   4.621,
     $       8.387,  11.227,  13.488,  15.330,  16.947,
     $      18.402,  20.296,  21.766,  22.381,  21.459,
     $      18.752,  15.683,  11.798,   7.770,   3.922,
     $       0.643,  -2.329,  -4.172,  -5.791,  -6.704,
     $      -7.503,  -7.950/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 25, 25) /
     $      -1.836,   0.750,   3.914,   6.866,   7.853,
     $       3.786, -10.052, -25.376, -32.085, -34.115,
     $     -26.600, -12.409,  -1.917,   2.298,  -1.874,
     $     -16.661, -26.066, -30.446, -24.891,  -7.854,
     $      19.167,  48.777,  73.966,  89.920, 100.000,
     $      83.602,  49.694,  17.678,  -3.990, -18.103,
     $     -27.855, -31.434, -22.685,  -9.925,  -0.555,
     $       5.490,   9.479,  11.759,  11.450,   7.678,
     $       2.529,  -1.433,  -3.934,  -5.117,  -5.087,
     $      -4.090,  -2.318,  -0.132,   2.195,   4.140,
     $       5.995,   7.588,   9.025,  10.366,  11.709,
     $      13.085,  14.933,  16.518,  17.545,  17.380,
     $      15.771,  13.745,  10.972,   7.989,   5.166,
     $       2.716,   0.423,  -1.034,  -2.406,  -3.299,
     $      -4.014,  -4.485/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 26, 26) /
     $      -3.163,  -4.414,  -6.038,  -7.886,  -9.641,
     $     -11.144, -11.559,  -9.621, -10.679, -17.667,
     $     -26.156, -27.270, -22.842, -16.621,  -6.548,
     $       7.066,   3.369,  -8.698, -17.395, -16.666,
     $      -4.798,  15.616,  39.380,  61.848,  83.602,
     $     100.000,  83.181,  60.551,  40.918,  25.287,
     $       9.216, -11.648, -28.583, -33.135, -31.970,
     $     -29.199, -25.474, -19.987, -11.280,   0.174,
     $       9.547,  14.686,  17.171,  18.225,  17.972,
     $      16.485,  13.885,  10.760,   7.581,   5.243,
     $       3.608,   2.928,   2.828,   3.150,   3.782,
     $       4.577,   5.578,   6.450,   7.211,   7.615,
     $       7.483,   7.085,   6.311,   5.429,   4.737,
     $       4.111,   3.378,   2.788,   2.000,   1.245,
     $       0.669,   0.155/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 27, 27) /
     $      -3.579,  -8.862, -15.544, -22.505, -27.240,
     $     -26.123, -12.403,   7.866,  13.430,   2.741,
     $     -21.053, -38.407, -41.753, -35.593, -14.571,
     $      26.158,  32.353,  18.047,  -0.839, -15.017,
     $     -20.687, -15.730,  -1.684,  19.409,  49.694,
     $      83.181, 100.000,  89.882,  78.313,  65.958,
     $      48.260,  15.269, -24.689, -47.291, -55.965,
     $     -58.096, -56.261, -49.394, -33.852,  -9.313,
     $      13.333,  27.232,  34.807,  38.424,  38.396,
     $      35.133,  29.004,  21.419,  13.503,   7.404,
     $       2.627,  -0.179,  -1.818,  -2.656,  -2.998,
     $      -3.212,  -3.699,  -4.253,  -4.543,  -4.215,
     $      -3.302,  -2.307,  -1.127,   0.204,   1.768,
     $       3.138,   4.176,   4.582,   4.544,   4.095,
     $       3.721,   3.242/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 28, 28) /
     $      -3.136, -10.677, -20.210, -30.084, -36.572,
     $     -34.081, -12.522,  18.040,  27.662,  15.722,
     $     -15.796, -42.321, -50.790, -45.826, -20.748,
     $      33.917,  47.867,  35.516,  13.493,  -7.917,
     $     -24.514, -31.758, -28.124, -12.762,  17.678,
     $      60.551,  89.882, 100.000,  94.018,  86.911,
     $      71.972,  36.480, -14.042, -47.287, -62.821,
     $     -69.107, -69.810, -63.930, -46.747, -17.062,
     $      11.753,  30.224,  40.797,  46.250,  46.973,
     $      43.571,  36.476,  27.396,  17.723,  10.122,
     $       3.998,   0.198,  -2.267,  -3.860,  -4.965,
     $      -6.116,  -7.983,  -9.961, -11.558, -11.916,
     $     -10.936,  -9.509,  -7.437,  -4.930,  -2.144,
     $       0.366,   2.472,   3.481,   3.948,   3.790,
     $       3.552,   3.146/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 29, 29) /
     $      -2.495, -10.854, -21.439, -32.417, -39.632,
     $     -36.780, -12.567,  21.650,  32.948,  21.059,
     $     -12.755, -42.732, -53.640, -49.912, -24.636,
     $      34.898,  53.658,  44.400,  22.867,  -0.826,
     $     -22.746, -37.373, -41.229, -31.429,  -3.990,
     $      40.918,  78.313,  94.018, 100.000,  95.058,
     $      84.442,  51.783,  -1.122, -39.440, -59.183,
     $     -68.597, -71.842, -68.180, -52.615, -23.105,
     $       6.922,  26.925,  38.892,  45.540,  47.262,
     $      44.755,  38.393,  29.832,  20.457,  12.942,
     $       6.766,   2.830,   0.133,  -1.807,  -3.373,
     $      -5.205,  -8.083, -11.180, -13.966, -15.242,
     $     -14.816, -13.647, -11.540,  -8.755,  -5.642,
     $      -2.758,  -0.252,   0.977,   1.665,   1.692,
     $       1.496,   1.144/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 30, 30) /
     $      -1.880, -10.076, -20.482, -31.326, -38.568,
     $     -36.067, -12.798,  20.495,  31.767,  20.609,
     $     -12.088, -41.809, -53.351, -50.715, -27.231,
     $      32.256,  54.114,  48.364,  28.977,   5.250,
     $     -19.180, -38.193, -47.024, -41.683, -18.103,
     $      25.287,  65.958,  86.911,  95.058, 100.000,
     $      92.382,  66.253,  15.773, -24.839, -47.728,
     $     -60.091, -66.308, -66.115, -54.781, -29.280,
     $      -1.373,  18.248,  30.693,  38.272,  41.337,
     $      40.630,  36.374,  29.908,  22.415,  16.195,
     $      10.955,   7.542,   5.073,   3.104,   1.315,
     $      -1.015,  -4.656,  -8.690, -12.639, -15.070,
     $     -15.728, -15.390, -13.941, -11.586,  -8.840,
     $      -6.168,  -3.775,  -2.632,  -1.961,  -1.849,
     $      -2.102,  -2.433/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 31, 31) /
     $      -1.163,  -7.827, -16.338, -25.319, -31.589,
     $     -30.366, -12.908,  13.209,  22.225,  13.015,
     $     -13.679, -38.277, -48.377, -47.008, -28.366,
     $      24.563,  48.027,  47.239,  32.523,  11.190,
     $     -13.392, -34.527, -46.589, -45.479, -27.855,
     $       9.216,  48.260,  71.972,  84.442,  92.382,
     $     100.000,  83.620,  42.742,   2.992, -22.416,
     $     -38.214, -48.689, -54.476, -51.934, -36.694,
     $     -16.094,   0.303,  11.960,  20.192,  25.251,
     $      27.868,  27.976,  26.172,  23.124,  20.149,
     $      17.417,  15.561,  14.017,  12.473,  10.757,
     $       8.107,   3.919,  -0.956,  -6.216, -10.296,
     $     -12.909, -14.281, -14.499, -13.572, -12.159,
     $     -10.504,  -8.916,  -8.265,  -7.916,  -7.828,
     $      -8.260,  -8.602/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 32, 32) /
     $      -0.146,  -2.754,  -6.186, -10.039, -13.309,
     $     -14.629, -11.108,  -3.086,  -0.135,  -4.618,
     $     -15.843, -26.292, -31.277, -31.743, -24.333,
     $       7.215,  27.847,  34.391,  29.628,  16.380,
     $      -2.724, -21.248, -33.745, -37.547, -31.434,
     $     -11.648,  15.269,  36.480,  51.783,  66.253,
     $      83.620, 100.000,  78.500,  48.707,  24.755,
     $       6.898,  -8.111, -22.285, -34.674, -39.824,
     $     -36.146, -29.043, -21.583, -14.391,  -7.417,
     $      -0.107,   7.048,  13.308,  18.346,  21.525,
     $      23.738,  25.077,  25.633,  25.382,  24.425,
     $      22.101,  18.248,  13.335,   7.313,   1.543,
     $      -3.723,  -7.685, -10.762, -12.590, -13.866,
     $     -14.422, -14.686, -15.106, -15.497, -15.581,
     $     -16.285, -16.631/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 33, 33) /
     $       0.739,   3.653,   7.194,  10.506,  11.749,
     $       7.866,  -5.972, -21.526, -26.667, -24.580,
     $     -14.653,  -5.377,  -2.618,  -4.764, -12.231,
     $     -14.774,  -4.077,   8.345,  16.084,  16.092,
     $       9.522,   0.586,  -7.387, -14.570, -22.685,
     $     -28.583, -24.689, -14.042,  -1.122,  15.773,
     $      42.742,  78.500, 100.000,  87.094,  72.836,
     $      58.714,  43.731,  24.908,  -0.402, -27.680,
     $     -45.495, -52.245, -52.792, -49.830, -43.537,
     $     -33.749, -21.204,  -7.897,   4.819,  14.210,
     $      21.656,  26.520,  29.625,  31.285,  31.854,
     $      31.022,  29.210,  26.219,  21.629,  16.043,
     $       9.566,   3.962,  -1.438,  -5.937,  -9.976,
     $     -12.990, -15.417, -17.008, -18.218, -18.570,
     $     -19.400, -19.687/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 34, 34) /
     $       0.936,   7.244,  15.107,  22.942,  27.232,
     $      22.343,  -1.142, -30.500, -40.482, -34.231,
     $     -11.206,  10.468,  18.425,  15.679,  -0.830,
     $     -27.518, -26.542, -12.833,   2.106,  11.700,
     $      15.865,  16.294,  13.923,   6.366,  -9.925,
     $     -33.135, -47.291, -47.287, -39.440, -24.839,
     $       2.992,  48.707,  87.094, 100.000,  93.414,
     $      85.758,  74.777,  57.455,  28.890,  -8.651,
     $     -39.088, -55.471, -62.687, -64.368, -60.801,
     $     -52.165, -39.120, -24.052,  -8.735,   3.140,
     $      12.923,  19.503,  24.058,  27.078,  28.985,
     $      29.829,  30.382,  29.920,  27.876,  24.064,
     $      18.430,  13.057,   7.254,   1.812,  -3.345,
     $      -7.520, -11.053, -13.180, -14.780, -15.328,
     $     -16.079, -16.291/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 35, 35) /
     $       0.692,   8.427,  18.131,  27.945,  33.687,
     $      28.719,   1.788, -32.947, -44.877, -36.808,
     $      -8.231,  18.823,  29.227,  26.463,   6.140,
     $     -32.603, -37.750, -24.774,  -7.041,   7.418,
     $      17.811,  24.127,  25.683,  18.900,  -0.555,
     $     -31.970, -55.965, -62.821, -59.183, -47.728,
     $     -22.416,  24.755,  72.836,  93.414, 100.000,
     $      95.459,  88.830,  75.094,  48.281,   8.404,
     $     -27.364, -48.924, -60.430, -65.713, -65.087,
     $     -58.951, -47.751, -33.765, -18.797,  -6.733,
     $       3.519,  10.606,  15.793,  19.621,  22.473,
     $      24.654,  27.083,  28.718,  28.989,  27.134,
     $      22.986,  18.580,  13.307,   7.930,   2.683,
     $      -1.762,  -5.632,  -7.877,  -9.582, -10.255,
     $     -10.872, -11.037/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 36, 36) /
     $       0.177,   8.310,  18.553,  28.999,  35.324,
     $      30.682,   3.404, -32.384, -44.752, -36.108,
     $      -5.938,  22.784,  34.121,  31.546,  10.034,
     $     -33.996, -42.727, -31.066, -12.684,   3.969,
     $      17.715,  27.454,  31.491,  25.695,   5.490,
     $     -29.199, -58.096, -69.107, -68.597, -60.091,
     $     -38.214,   6.898,  58.714,  85.758,  95.459,
     $     100.000,  95.275,  85.888,  63.060,  24.553,
     $     -13.075, -37.668, -52.307, -60.684, -63.105,
     $     -60.129, -51.917, -40.391, -27.189, -16.026,
     $      -6.177,   0.867,   6.328,  10.732,  14.364,
     $      17.728,  21.783,  25.272,  27.697,  27.836,
     $      25.436,  22.316,  17.997,  13.158,   8.313,
     $       4.030,   0.195,  -1.967,  -3.648,  -4.419,
     $      -4.888,  -5.027/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 37, 37) /
     $      -0.571,   7.267,  17.176,  27.354,  33.690,
     $      29.663,   4.145, -29.766, -41.555, -33.175,
     $      -4.070,  23.853,  35.135,  32.885,  11.866,
     $     -33.085, -43.756, -33.779, -16.080,   1.165,
     $      16.545,  28.187,  33.751,  28.994,   9.479,
     $     -25.474, -56.261, -69.810, -71.842, -66.308,
     $     -48.689,  -8.111,  43.731,  74.777,  88.830,
     $      95.275, 100.000,  93.250,  76.402,  42.026,
     $       4.790, -21.632, -38.905, -50.324, -56.171,
     $     -57.146, -53.056, -45.249, -35.042, -25.687,
     $     -16.942, -10.366,  -4.888,  -0.040,   4.311,
     $       8.842,  14.484,  19.816,  24.475,  26.820,
     $      26.522,  25.039,  22.071,  18.162,  14.110,
     $      10.315,   6.786,   4.858,   3.300,   2.445,
     $       2.150,   2.026/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 38, 38) /
     $      -1.610,   5.024,  13.451,  22.188,  27.798,
     $      24.812,   3.911, -24.226, -34.099, -27.088,
     $      -2.534,  21.396,  31.389,  29.686,  11.337,
     $     -29.185, -39.996, -32.374, -17.030,  -0.942,
     $      14.349,  26.365,  32.462,  28.859,  11.759,
     $     -19.987, -49.394, -63.930, -68.180, -66.115,
     $     -54.476, -22.285,  24.908,  57.455,  75.094,
     $      85.888,  93.250, 100.000,  88.668,  62.584,
     $      28.937,   2.277, -17.058, -31.572, -41.509,
     $     -47.712, -49.534, -47.430, -42.154, -36.045,
     $     -29.530, -24.123, -19.063, -14.014,  -9.068,
     $      -3.391,   3.820,  11.057,  18.172,  23.142,
     $      25.564,  26.310,  25.334,  22.967,  20.299,
     $      17.475,  14.656,  13.194,  11.915,  11.009,
     $      10.943,  10.831/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 39, 39) /
     $      -2.891,   1.049,   6.112,  11.469,  15.125,
     $      13.844,   2.194, -13.837, -19.617, -15.745,
     $      -1.406,  13.286,  19.932,  19.144,   7.134,
     $     -20.094, -28.162, -24.076, -13.903,  -1.878,
     $      10.490,  20.393,  25.432,  23.224,  11.450,
     $     -11.280, -33.852, -46.747, -52.615, -54.781,
     $     -51.934, -34.674,  -0.402,  28.890,  48.281,
     $      63.060,  76.402,  88.668, 100.000,  83.678,
     $      59.564,  36.217,  16.693,  -0.072, -14.275,
     $     -26.874, -36.706, -42.908, -45.339, -44.703,
     $     -42.288, -39.320, -35.597, -31.026, -26.005,
     $     -19.615, -11.353,  -2.614,   6.768,  14.553,
     $      20.308,  23.964,  25.835,  25.913,  25.521,
     $      24.439,  23.004,  22.387,  21.669,  20.823,
     $      21.063,  20.975/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 40, 40) /
     $      -3.855,  -3.963,  -3.990,  -3.826,  -3.345,
     $      -2.487,  -0.954,   0.635,   0.894,   0.092,
     $      -0.847,  -0.262,   0.984,   1.379,  -0.675,
     $      -5.635,  -7.802,  -8.139,  -5.930,  -1.216,
     $       4.813,   9.609,  11.743,  11.119,   7.678,
     $       0.174,  -9.313, -17.062, -23.105, -29.280,
     $     -36.694, -39.824, -27.680,  -8.651,   8.404,
     $      24.553,  42.026,  62.584,  83.678, 100.000,
     $      84.836,  70.292,  54.680,  38.883,  22.738,
     $       5.292, -11.988, -26.858, -38.139, -44.366,
     $     -47.573, -48.330, -47.168, -44.322, -40.456,
     $     -34.754, -27.183, -18.676,  -8.746,   0.618,
     $       9.040,  15.335,  20.176,  23.152,  25.550,
     $      26.781,  27.321,  27.851,  27.975,  27.412,
     $      27.967,  27.937/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 41, 41) /
     $      -4.031,  -7.703, -12.240, -16.726, -19.205,
     $     -16.754,  -4.100,  12.622,  18.130,  13.264,
     $      -1.045, -13.012, -16.759, -15.438,  -8.414,
     $       7.702,  11.799,   8.059,   3.086,   0.582,
     $      -0.172,  -1.026,  -2.191,  -1.657,   2.529,
     $       9.547,  13.333,  11.753,   6.922,  -1.373,
     $     -16.094, -36.146, -45.495, -39.088, -27.364,
     $     -13.075,   4.790,  28.937,  59.564,  84.836,
     $     100.000,  89.172,  80.138,  68.438,  53.882,
     $      35.617,  15.005,  -4.925, -22.283, -33.829,
     $     -41.858, -46.155, -47.844, -47.419, -45.642,
     $     -41.944, -36.730, -30.284, -21.956, -13.097,
     $      -3.949,   3.487,  10.083,  15.135,  19.603,
     $      22.711,  24.975,  26.465,  27.373,  27.236,
     $      27.986,  28.047/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 42, 42) /
     $      -3.692,  -9.445, -16.635, -23.897, -28.230,
     $     -25.078,  -6.324,  18.935,  27.450,  20.228,
     $      -1.834, -21.192, -27.994, -26.209, -13.692,
     $      15.780,  24.339,  18.994,   9.763,   2.591,
     $      -2.854,  -7.716, -11.270, -10.219,  -1.433,
     $      14.686,  27.232,  30.224,  26.925,  18.248,
     $       0.303, -29.043, -52.245, -55.471, -48.924,
     $     -37.668, -21.632,   2.277,  36.217,  70.292,
     $      89.172, 100.000,  90.637,  83.652,  72.385,
     $      56.067,  35.702,  14.483,  -5.430, -19.788,
     $     -30.762, -37.492, -41.429, -43.213, -43.548,
     $     -42.127, -39.628, -35.766, -29.888, -22.672,
     $     -14.221,  -6.924,   0.137,   6.115,  11.557,
     $      15.684,  18.981,  21.021,  22.446,  22.710,
     $      23.532,  23.687/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 43, 43) /
     $      -3.128,  -9.917, -18.446, -27.148, -32.532,
     $     -29.277,  -7.916,  21.269,  31.207,  22.796,
     $      -3.085, -26.152, -34.578, -32.625, -17.214,
     $      19.945,  31.557,  25.823,  14.465,   4.616,
     $      -3.755, -11.191, -16.300, -15.117,  -3.934,
     $      17.171,  34.807,  40.797,  38.892,  30.693,
     $      11.960, -21.583, -52.792, -62.687, -60.430,
     $     -52.307, -38.905, -17.058,  16.693,  54.680,
     $      80.138,  90.637, 100.000,  90.259,  82.867,
     $      69.807,  51.598,  31.228,  10.861,  -4.749,
     $     -17.449, -25.852, -31.570, -35.308, -37.637,
     $     -38.485, -38.687, -37.480, -34.308, -29.218,
     $     -22.186, -15.723,  -8.956,  -2.776,   2.938,
     $       7.510,  11.362,  13.675,  15.426,  16.050,
     $      16.870,  17.118/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 44, 44) /
     $      -2.413,  -9.570, -18.602, -27.902, -33.852,
     $     -30.933,  -9.299,  20.793,  31.114,  22.216,
     $      -4.992, -29.396, -38.508, -36.573, -19.936,
     $      21.465,  35.417,  30.171,  18.111,   6.916,
     $      -3.203, -12.252, -18.343, -17.261,  -5.117,
     $      18.225,  38.424,  46.250,  45.540,  38.272,
     $      20.192, -14.391, -49.830, -64.368, -65.713,
     $     -60.684, -50.324, -31.572,  -0.072,  38.883,
     $      68.438,  83.652,  90.259, 100.000,  89.448,
     $      80.682,  65.991,  47.889,  28.354,  12.367,
     $      -1.444, -11.196, -18.569, -24.293, -28.731,
     $     -32.045, -35.161, -36.858, -36.760, -34.275,
     $     -29.255, -24.160, -18.229, -12.329,  -6.813,
     $      -2.162,   1.955,   4.367,   6.339,   7.326,
     $       8.093,   8.442/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 45, 45) /
     $      -1.548,  -8.448, -17.200, -26.307, -32.356,
     $     -30.154, -10.382,  17.827,  27.563,  18.838,
     $      -7.377, -30.918, -39.846, -38.097, -21.778,
     $      20.581,  36.123,  32.130,  20.665,   9.350,
     $      -1.416, -11.162, -17.677, -16.888,  -5.087,
     $      17.972,  38.396,  46.973,  47.262,  41.337,
     $      25.251,  -7.417, -43.537, -60.801, -65.087,
     $     -63.105, -56.171, -41.509, -14.275,  22.738,
     $      53.882,  72.385,  82.867,  89.448, 100.000,
     $      87.703,  77.782,  63.364,  46.051,  30.725,
     $      16.617,   6.029,  -2.686, -10.232, -16.711,
     $     -22.524, -28.613, -33.353, -36.620, -37.181,
     $     -34.771, -31.601, -27.091, -22.008, -17.195,
     $     -12.868,  -8.822,  -6.512,  -4.467,  -3.158,
     $      -2.516,  -2.082/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 46, 46) /
     $      -0.502,  -6.577, -14.340, -22.536, -28.261,
     $     -27.116, -11.120,  12.681,  20.949,  12.997,
     $     -10.137, -30.847, -38.824, -37.416, -22.790,
     $      17.597,  34.055,  32.001,  22.279,  11.903,
     $       1.427,  -8.244, -14.716, -14.397,  -4.090,
     $      16.485,  35.133,  43.571,  44.755,  40.630,
     $      27.868,  -0.107, -33.749, -52.165, -58.951,
     $     -60.129, -57.146, -47.712, -26.874,   5.292,
     $      35.617,  56.067,  69.807,  80.682,  87.703,
     $     100.000,  86.208,  77.013,  63.511,  50.091,
     $      36.723,  26.001,  16.429,   7.382,  -0.936,
     $      -9.184, -18.248, -26.174, -33.146, -37.282,
     $     -38.200, -37.621, -35.228, -31.590, -28.058,
     $     -24.512, -20.922, -18.957, -17.033, -15.480,
     $     -15.070, -14.593/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 47, 47) /
     $       0.643,  -4.129, -10.298, -16.964, -21.971,
     $     -22.095, -11.358,   5.994,  12.070,   5.401,
     $     -12.913, -29.153, -35.525, -34.577, -22.817,
     $      12.890,  29.477,  29.824,  22.788,  14.288,
     $       4.979,  -3.881,  -9.865, -10.151,  -2.318,
     $      13.885,  29.004,  36.476,  38.393,  36.374,
     $      27.976,   7.048, -21.204, -39.120, -47.751,
     $     -51.917, -53.056, -49.534, -36.706, -11.988,
     $      15.005,  35.702,  51.598,  65.991,  77.782,
     $      86.208, 100.000,  86.239,  77.961,  67.750,
     $      56.362,  46.470,  36.850,  27.003,  17.443,
     $       7.250,  -4.329, -15.164, -25.756, -33.643,
     $     -38.344, -40.838, -41.148, -39.544, -37.826,
     $     -35.513, -32.797, -31.435, -29.870, -28.228,
     $     -28.167, -27.725/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 48, 48) /
     $       1.755,  -1.508,  -5.820, -10.673, -14.758,
     $     -16.162, -11.177,  -1.048,   2.533,  -2.650,
     $     -15.446, -26.535, -31.003, -30.544, -22.177,
     $       7.441,  23.605,  26.443,  22.497,  16.373,
     $       8.763,   1.167,  -4.075,  -5.021,  -0.132,
     $      10.760,  21.419,  27.396,  29.832,  29.908,
     $      26.172,  13.308,  -7.897, -24.052, -33.765,
     $     -40.391, -45.249, -47.430, -42.908, -26.858,
     $      -4.925,  14.483,  31.228,  47.889,  63.364,
     $      77.013,  86.239, 100.000,  87.317,  81.127,
     $      72.681,  64.501,  55.699,  45.933,  35.972,
     $      24.654,  11.404,  -1.649, -15.278, -26.581,
     $     -35.009, -40.645, -43.879, -44.619, -44.990,
     $     -44.183, -42.634, -42.053, -41.048, -39.503,
     $     -39.870, -39.548/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 49, 49) /
     $       2.767,   1.010,  -1.441,  -4.463,  -7.572,
     $     -10.141, -10.690,  -7.631,  -6.532, -10.267,
     $     -17.637, -23.618, -26.156, -26.152, -21.206,
     $       1.992,  17.436,  22.609,  21.758,  18.158,
     $      12.481,   6.347,   1.940,   0.331,   2.195,
     $       7.581,  13.503,  17.723,  20.457,  22.415,
     $      23.124,  18.346,   4.819,  -8.735, -18.797,
     $     -27.189, -35.042, -42.154, -45.339, -38.139,
     $     -22.283,  -5.430,  10.861,  28.354,  46.051,
     $      63.511,  77.961,  87.317, 100.000,  88.864,
     $      84.061,  78.353,  71.218,  62.475,  53.058,
     $      41.597,  27.720,  13.362,  -2.440, -16.517,
     $     -28.290, -36.860, -42.982, -46.172, -48.714,
     $     -49.548, -49.357, -49.667, -49.387, -48.131,
     $     -48.978, -48.863/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 50, 50) /
     $       3.508,   2.879,   1.821,   0.177,  -2.183,
     $      -5.579, -10.185, -12.373, -13.155, -15.876,
     $     -19.288, -21.487, -22.559, -22.871, -20.492,
     $      -2.148,  12.723,  19.636,  21.146,  19.548,
     $      15.459,  10.518,   6.759,   4.621,   4.140,
     $       5.243,   7.404,  10.122,  12.942,  16.195,
     $      20.149,  21.525,  14.210,   3.140,  -6.733,
     $     -16.026, -25.687, -36.045, -44.703, -44.366,
     $     -33.829, -19.788,  -4.749,  12.367,  30.725,
     $      50.091,  67.750,  81.127,  88.864, 100.000,
     $      89.395,  86.192,  81.015,  73.808,  65.562,
     $      54.757,  41.194,  26.509,   9.650,  -6.129,
     $     -20.255, -30.984, -39.364, -44.569, -48.881,
     $     -51.110, -52.136, -53.236, -53.662, -52.797,
     $     -54.069, -54.194/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 51, 51) /
     $       4.120,   4.369,   4.396,   3.820,   2.037,
     $      -2.006,  -9.772, -16.067, -18.376, -20.431,
     $     -20.908, -20.212, -20.119, -20.653, -20.269,
     $      -5.518,   9.097,  17.481,  20.926,  20.997,
     $      18.241,  14.266,  10.994,   8.387,   5.995,
     $       3.608,   2.627,   3.998,   6.766,  10.955,
     $      17.417,  23.738,  21.656,  12.923,   3.519,
     $      -6.177, -16.942, -29.530, -42.288, -47.573,
     $     -41.858, -30.762, -17.449,  -1.444,  16.617,
     $      36.723,  56.362,  72.681,  84.061,  89.395,
     $     100.000,  90.581,  87.624,  82.365,  75.780,
     $      66.218,  53.641,  39.283,  22.082,   5.250,
     $     -10.676, -23.150, -33.478, -40.514, -46.415,
     $     -49.943, -52.160, -54.030, -55.197, -54.829,
     $     -56.521, -56.932/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 52, 52) /
     $       4.570,   5.355,   6.036,   6.097,   4.639,
     $       0.161,  -9.600, -18.473, -21.803, -23.623,
     $     -22.505, -20.109, -19.280, -19.926, -20.741,
     $      -7.794,   7.051,  16.551,  21.309,  22.504,
     $      20.622,  17.225,  14.196,  11.227,   7.588,
     $       2.928,  -0.179,   0.198,   2.830,   7.542,
     $      15.561,  25.077,  26.520,  19.503,  10.606,
     $       0.867, -10.366, -24.123, -39.320, -48.330,
     $     -46.155, -37.492, -25.852, -11.196,   6.029,
     $      26.001,  46.470,  64.501,  78.353,  86.192,
     $      90.581, 100.000,  91.304,  87.978,  83.152,
     $      75.067,  63.808,  50.193,  33.201,  15.921,
     $      -1.164, -14.845, -26.635, -35.117, -42.252,
     $     -46.829, -50.055, -52.575, -54.416, -54.564,
     $     -56.619, -57.316/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 53, 53) /
     $       4.882,   6.006,   7.100,   7.559,   6.303,
     $       1.552,  -9.459, -19.979, -24.028, -25.855,
     $     -23.917, -20.511, -19.185, -19.873, -21.446,
     $      -9.426,   5.791,  16.132,  21.821,  23.831,
     $      22.590,  19.595,  16.713,  13.488,   9.025,
     $       2.828,  -1.818,  -2.267,   0.133,   5.073,
     $      14.017,  25.633,  29.625,  24.058,  15.793,
     $       6.328,  -4.888, -19.063, -35.597, -47.168,
     $     -47.844, -41.429, -31.570, -18.569,  -2.686,
     $      16.429,  36.850,  55.699,  71.218,  81.015,
     $      87.624,  91.304, 100.000,  91.096,  88.214,
     $      81.913,  72.388,  59.989,  43.788,  26.648,
     $       8.970,  -5.463, -18.329, -27.983, -36.103,
     $     -41.568, -45.705, -48.802, -51.289, -51.997,
     $     -54.371, -55.363/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 54, 54) /
     $       5.061,   6.400,   7.757,   8.476,   7.366,
     $       2.488,  -9.230, -20.760, -25.326, -27.308,
     $     -25.047, -21.071, -19.392, -20.068, -22.142,
     $     -10.654,   4.894,  15.828,  22.176,  24.805,
     $      24.085,  21.434,  18.694,  15.330,  10.366,
     $       3.150,  -2.656,  -3.860,  -1.807,   3.104,
     $      12.473,  25.382,  31.285,  27.078,  19.621,
     $      10.732,  -0.040, -14.014, -31.026, -44.322,
     $     -47.419, -43.213, -35.308, -24.293, -10.232,
     $       7.382,  27.003,  45.933,  62.475,  73.808,
     $      82.365,  87.978,  91.096, 100.000,  91.275,
     $      87.132,  79.837,  69.205,  54.438,  38.054,
     $      20.341,   5.588,  -8.014, -18.624, -27.528,
     $     -33.772, -38.770, -42.401, -45.534, -46.869,
     $     -49.524, -50.828/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 55, 55) /
     $       5.124,   6.629,   8.190,   9.120,   8.156,
     $       3.251,  -8.879, -21.105, -26.094, -28.284,
     $     -25.910, -21.546, -19.564, -20.203, -22.690,
     $     -11.722,   4.009,  15.355,  22.213,  25.361,
     $      25.128,  22.846,  20.318,  16.947,  11.709,
     $       3.782,  -2.998,  -4.965,  -3.373,   1.315,
     $      10.757,  24.425,  31.854,  28.985,  22.473,
     $      14.364,   4.311,  -9.068, -26.005, -40.456,
     $     -45.642, -43.548, -37.637, -28.731, -16.711,
     $      -0.936,  17.443,  35.972,  53.058,  65.562,
     $      75.780,  83.152,  88.214,  91.275, 100.000,
     $      91.127,  86.410,  77.959,  65.140,  50.014,
     $      32.724,  18.015,   3.968,  -7.412, -16.933,
     $     -23.865, -29.682, -33.804, -37.574, -39.582,
     $     -42.477, -44.097/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 56, 56) /
     $       4.966,   6.660,   8.471,   9.686,   8.976,
     $       4.206,  -8.115, -20.915, -26.288, -28.586,
     $     -25.977, -21.134, -18.791, -19.371, -22.384,
     $     -12.749,   2.504,  13.932,  21.194,  24.878,
     $      25.279,  23.614,  21.556,  18.402,  13.085,
     $       4.577,  -3.212,  -6.116,  -5.205,  -1.015,
     $       8.107,  22.101,  31.022,  29.829,  24.654,
     $      17.728,   8.842,  -3.391, -19.615, -34.754,
     $     -41.944, -42.127, -38.485, -32.045, -22.524,
     $      -9.184,   7.250,  24.654,  41.597,  54.757,
     $      66.218,  75.067,  81.913,  87.132,  91.127,
     $     100.000,  90.384,  84.772,  74.750,  61.760,
     $      45.752,  31.780,  17.875,   6.133,  -3.660,
     $     -11.071, -17.571, -22.068, -26.394, -29.082,
     $     -32.106, -34.007/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 57, 57) /
     $       4.604,   6.635,   8.894,  10.625,  10.376,
     $       5.835,  -6.853, -20.645, -26.572, -28.791,
     $     -25.429, -19.610, -16.673, -17.192, -21.128,
     $     -14.223,  -0.211,  11.126,  18.931,  23.387,
     $      24.773,  24.162,  22.979,  20.296,  14.933,
     $       5.578,  -3.699,  -7.983,  -8.083,  -4.656,
     $       3.919,  18.248,  29.210,  30.382,  27.083,
     $      21.783,  14.484,   3.820, -11.353, -27.183,
     $     -36.730, -39.628, -38.687, -35.161, -28.613,
     $     -18.248,  -4.329,  11.404,  27.720,  41.194,
     $      53.641,  63.808,  72.388,  79.837,  86.410,
     $      90.384, 100.000,  90.498,  84.280,  74.403,
     $      60.568,  48.025,  34.804,  23.028,  13.236,
     $       5.476,  -1.656,  -6.455, -11.305, -14.730,
     $     -17.780, -19.944/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 58, 58) /
     $       4.027,   6.417,   9.167,  11.482,  11.798,
     $       7.638,  -5.208, -19.864, -26.261, -28.211,
     $     -23.868, -16.954, -13.390, -13.845, -18.801,
     $     -15.511,  -3.505,   7.353,  15.548,  20.748,
     $      23.217,  23.868,  23.783,  21.766,  16.518,
     $       6.450,  -4.253,  -9.961, -11.180,  -8.690,
     $      -0.956,  13.335,  26.219,  29.920,  28.718,
     $      25.272,  19.816,  11.057,  -2.614, -18.676,
     $     -30.284, -35.766, -37.480, -36.858, -33.353,
     $     -26.174, -15.164,  -1.649,  13.362,  26.509,
     $      39.283,  50.193,  59.989,  69.205,  77.959,
     $      84.772,  90.498, 100.000,  90.373,  84.209,
     $      73.313,  62.885,  51.037,  39.807,  30.496,
     $      22.746,  15.298,  10.426,   5.279,   1.264,
     $      -1.641,  -3.957/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 59, 59) /
     $       3.210,   5.891,   9.058,  11.916,  12.843,
     $       9.289,  -3.154, -18.111, -24.750, -26.335,
     $     -21.125, -13.319,  -9.220,  -9.584, -15.456,
     $     -16.295,  -7.015,   2.835,  11.090,  16.859,
     $      20.392,  22.399,  23.543,  22.381,  17.545,
     $       7.211,  -4.543, -11.558, -13.966, -12.639,
     $      -6.216,   7.313,  21.629,  27.876,  28.989,
     $      27.697,  24.475,  18.172,   6.768,  -8.746,
     $     -21.956, -29.888, -34.308, -36.760, -36.620,
     $     -33.146, -25.756, -15.278,  -2.440,   9.650,
     $      22.082,  33.201,  43.788,  54.438,  65.140,
     $      74.750,  84.280,  90.373, 100.000,  91.678,
     $      84.706,  77.256,  67.615,  57.604,  49.352,
     $      42.027,  34.606,  29.911,  24.695,  20.200,
     $      17.629,  15.261/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 60, 60) /
     $       2.306,   5.044,   8.344,  11.461,  12.842,
     $      10.064,  -1.142, -15.304, -21.731, -22.995,
     $     -17.544,  -9.577,  -5.295,  -5.545, -11.806,
     $     -15.998,  -9.558,  -1.191,   6.568,  12.430,
     $      16.627,  19.651,  21.776,  21.459,  17.380,
     $       7.615,  -4.215, -11.916, -15.242, -15.070,
     $     -10.296,   1.543,  16.043,  24.064,  27.134,
     $      27.836,  26.820,  23.142,  14.553,   0.618,
     $     -13.097, -22.672, -29.218, -34.275, -37.181,
     $     -37.282, -33.643, -26.581, -16.517,  -6.129,
     $       5.250,  15.921,  26.648,  38.054,  50.014,
     $      61.760,  74.403,  84.209,  91.678, 100.000,
     $      91.779,  87.652,  80.715,  72.469,  65.745,
     $      59.267,  52.297,  48.052,  43.058,  38.327,
     $      36.238,  33.947/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 61, 61) /
     $       1.337,   3.865,   6.964,  10.007,  11.649,
     $       9.814,   0.766, -11.370, -17.056, -18.037,
     $     -13.040,  -5.748,  -1.699,  -1.814,  -7.845,
     $     -14.430, -10.912,  -4.549,   2.084,   7.493,
     $      11.877,  15.502,  18.283,  18.752,  15.771,
     $       7.483,  -3.302, -10.936, -14.816, -15.728,
     $     -12.909,  -3.723,   9.566,  18.430,  22.986,
     $      25.436,  26.522,  25.564,  20.308,   9.040,
     $      -3.949, -14.221, -22.187, -29.255, -34.771,
     $     -38.200, -38.344, -35.009, -28.290, -20.255,
     $     -10.676,  -1.164,   8.970,  20.341,  32.724,
     $      45.752,  60.568,  73.313,  84.706,  91.779,
     $     100.000,  92.697,  88.901,  82.963,  78.236,
     $      73.055,  67.015,  63.513,  59.078,  54.415,
     $      52.954,  50.889/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 62, 62) /
     $       0.549,   2.778,   5.551,   8.369,  10.124,
     $       9.129,   2.263,  -7.646, -12.486, -13.273,
     $      -8.998,  -2.665,   0.992,   0.994,  -4.556,
     $     -12.583, -11.436,  -6.929,  -1.504,   3.276,
     $       7.577,  11.474,  14.618,  15.683,  13.745,
     $       7.085,  -2.307,  -9.509, -13.647, -15.390,
     $     -14.281,  -7.685,   3.962,  13.057,  18.580,
     $      22.316,  25.039,  26.310,  23.964,  15.335,
     $       3.487,  -6.924, -15.723, -24.160, -31.601,
     $     -37.621, -40.838, -40.645, -36.860, -30.984,
     $     -23.150, -14.845,  -5.463,   5.588,  18.015,
     $      31.780,  48.025,  62.885,  77.256,  87.652,
     $      92.697, 100.000,  94.097,  90.277,  87.393,
     $      83.467,  78.383,  75.617,  71.777,  67.281,
     $      66.406,  64.587/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 63, 63) /
     $      -0.159,   1.631,   3.900,   6.300,   8.024,
     $       7.867,   3.506,  -3.653,  -7.409,  -8.048,
     $      -4.859,   0.086,   3.125,   3.239,  -1.487,
     $     -10.139, -11.112,  -8.567,  -4.611,  -0.737,
     $       3.179,   7.034,  10.268,  11.798,  10.972,
     $       6.311,  -1.127,  -7.437, -11.540, -13.941,
     $     -14.499, -10.762,  -1.438,   7.254,  13.307,
     $      17.997,  22.071,  25.334,  25.835,  20.176,
     $      10.083,   0.137,  -8.956, -18.229, -27.091,
     $     -35.228, -41.148, -43.879, -42.982, -39.364,
     $     -33.478, -26.635, -18.329,  -8.014,   3.968,
     $      17.875,  34.804,  51.037,  67.615,  80.715,
     $      88.901,  94.097, 100.000,  94.105,  93.126,
     $      90.581,  86.634,  84.699,  81.592,  77.433,
     $      77.168,  75.660/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 64, 64) /
     $      -0.701,   0.572,   2.227,   4.072,   5.623,
     $       6.189,   4.307,   0.037,  -2.563,  -3.165,
     $      -1.325,   1.978,   4.264,   4.478,   0.813,
     $      -7.483,  -9.958,  -9.167,  -6.712,  -3.882,
     $      -0.591,   2.915,   5.961,   7.770,   7.989,
     $       5.429,   0.204,  -4.930,  -8.755, -11.586,
     $     -13.572, -12.590,  -5.937,   1.812,   7.930,
     $      13.158,  18.162,  22.967,  25.913,  23.152,
     $      15.135,   6.115,  -2.776, -12.329, -22.008,
     $     -31.590, -39.544, -44.619, -46.172, -44.569,
     $     -40.514, -35.117, -27.983, -18.624,  -7.412,
     $       6.133,  23.028,  39.807,  57.604,  72.469,
     $      82.963,  90.277,  94.105, 100.000,  95.052,
     $      93.780,  90.946,  89.793,  87.420,  83.682,
     $      83.950,  82.754/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 65, 65) /
     $      -1.141,  -0.415,   0.582,   1.813,   3.122,
     $       4.339,   4.883,   3.508,   2.039,   1.337,
     $       1.621,   3.151,   4.647,   4.966,   2.450,
     $      -4.900,  -8.414,  -9.173,  -8.169,  -6.403,
     $      -3.828,  -0.810,   1.918,   3.922,   5.166,
     $       4.737,   1.768,  -2.144,  -5.642,  -8.840,
     $     -12.159, -13.866,  -9.976,  -3.345,   2.683,
     $       8.313,  14.110,  20.299,  25.521,  25.550,
     $      19.603,  11.557,   2.938,  -6.813, -17.195,
     $     -28.058, -37.826, -44.990, -48.714, -48.881,
     $     -46.415, -42.252, -36.103, -27.528, -16.933,
     $      -3.660,  13.236,  30.496,  49.352,  65.745,
     $      78.236,  87.393,  93.126,  95.052, 100.000,
     $      97.068,  95.218,  94.759,  93.025,  89.641,
     $      90.378,  89.449/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 66, 66) /
     $      -1.447,  -1.210,  -0.810,  -0.148,   0.900,
     $       2.615,   5.178,   6.285,   5.796,   4.972,
     $       3.853,   3.797,   4.577,   4.980,   3.525,
     $      -2.635,  -6.775,  -8.750,  -8.977,  -8.159,
     $      -6.281,  -3.797,  -1.448,   0.643,   2.716,
     $       4.111,   3.138,   0.366,  -2.758,  -6.168,
     $     -10.504, -14.422, -12.990,  -7.520,  -1.762,
     $       4.030,  10.315,  17.475,  24.439,  26.781,
     $      22.711,  15.684,   7.510,  -2.162, -12.868,
     $     -24.512, -35.513, -44.183, -49.548, -51.110,
     $     -49.943, -46.829, -41.568, -33.772, -23.865,
     $     -11.071,   5.476,  22.746,  42.027,  59.267,
     $      73.055,  83.467,  90.581,  93.780,  97.068,
     $     100.000,  96.816,  96.923,  95.738,  92.702,
     $      93.802,  93.104/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 67, 67) /
     $      -1.691,  -1.881,  -2.002,  -1.842,  -1.031,
     $       1.097,   5.385,   8.639,   9.024,   8.144,
     $       5.870,   4.454,   4.595,   5.057,   4.538,
     $      -0.588,  -5.295,  -8.343,  -9.657,  -9.684,
     $      -8.439,  -6.449,  -4.461,  -2.329,   0.423,
     $       3.378,   4.176,   2.472,  -0.252,  -3.775,
     $      -8.916, -14.686, -15.417, -11.053,  -5.632,
     $       0.195,   6.786,  14.656,  23.004,  27.321,
     $      24.975,  18.981,  11.362,   1.955,  -8.822,
     $     -20.922, -32.797, -42.634, -49.357, -52.136,
     $     -52.160, -50.055, -45.705, -38.770, -29.682,
     $     -17.571,  -1.656,  15.298,  34.606,  52.297,
     $      67.015,  78.383,  86.634,  90.946,  95.218,
     $      96.816, 100.000,  97.215,  96.569,  93.922,
     $      95.348,  94.886/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 68, 68) /
     $      -1.864,  -2.280,  -2.672,  -2.764,  -2.051,
     $       0.350,   5.646,  10.112,  11.005,  10.171,
     $       7.357,   5.240,   5.036,   5.525,   5.479,
     $       0.596,  -4.698,  -8.476, -10.438, -10.933,
     $      -9.998,  -8.213,  -6.366,  -4.172,  -1.034,
     $       2.788,   4.582,   3.481,   0.977,  -2.632,
     $      -8.265, -15.106, -17.008, -13.180,  -7.877,
     $      -1.967,   4.858,  13.194,  22.387,  27.851,
     $      26.465,  21.021,  13.675,   4.367,  -6.512,
     $     -18.957, -31.435, -42.053, -49.667, -53.236,
     $     -54.030, -52.575, -48.802, -42.401, -33.804,
     $     -22.068,  -6.455,  10.426,  29.911,  48.052,
     $      63.513,  75.617,  84.699,  89.793,  94.759,
     $      96.923,  97.215, 100.000,  97.945,  95.552,
     $      97.227,  96.933/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 69, 69) /
     $      -2.013,  -2.579,  -3.145,  -3.392,  -2.720,
     $      -0.098,   5.936,  11.269,  12.567,  11.902,
     $       8.885,   6.355,   5.902,   6.392,   6.646,
     $       1.571,  -4.460,  -8.916, -11.401, -12.247,
     $     -11.510,  -9.825,  -8.040,  -5.791,  -2.406,
     $       2.000,   4.544,   3.948,   1.665,  -1.961,
     $      -7.916, -15.497, -18.218, -14.780,  -9.582,
     $      -3.648,   3.300,  11.915,  21.669,  27.975,
     $      27.373,  22.446,  15.426,   6.339,  -4.467,
     $     -17.033, -29.870, -41.048, -49.387, -53.662,
     $     -55.197, -54.416, -51.289, -45.534, -37.574,
     $     -26.394, -11.305,   5.279,  24.695,  43.058,
     $      59.078,  71.777,  81.592,  87.420,  93.025,
     $      95.738,  96.569,  97.945, 100.000,  95.987,
     $      97.911,  97.809/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 70, 70) /
     $      -2.079,  -2.682,  -3.287,  -3.560,  -2.879,
     $      -0.169,   6.101,  11.712,  13.205,  12.772,
     $       9.924,   7.363,   6.816,   7.281,   7.604,
     $       2.084,  -4.538,  -9.388, -12.119, -13.112,
     $     -12.433, -10.750,  -8.964,  -6.704,  -3.299,
     $       1.245,   4.095,   3.790,   1.692,  -1.849,
     $      -7.828, -15.581, -18.570, -15.328, -10.255,
     $      -4.419,   2.445,  11.009,  20.823,  27.412,
     $      27.236,  22.710,  16.050,   7.326,  -3.158,
     $     -15.480, -28.228, -39.503, -48.131, -52.797,
     $     -54.829, -54.564, -51.997, -46.869, -39.582,
     $     -29.082, -14.730,   1.264,  20.200,  38.327,
     $      54.415,  67.281,  77.433,  83.682,  89.641,
     $      92.702,  93.922,  95.552,  95.987, 100.000,
     $      96.282,  96.340/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 71, 71) /
     $      -2.202,  -2.814,  -3.420,  -3.672,  -2.925,
     $      -0.067,   6.490,  12.348,  13.985,  13.762,
     $      11.091,   8.553,   7.970,   8.423,   8.715,
     $       2.419,  -4.976, -10.279, -13.230, -14.303,
     $     -13.578, -11.768,  -9.863,  -7.503,  -4.014,
     $       0.669,   3.721,   3.552,   1.496,  -2.102,
     $      -8.260, -16.285, -19.400, -16.079, -10.872,
     $      -4.888,   2.150,  10.943,  21.063,  27.967,
     $      27.986,  23.532,  16.870,   8.093,  -2.516,
     $     -15.070, -28.167, -39.870, -48.978, -54.069,
     $     -56.521, -56.619, -54.371, -49.524, -42.477,
     $     -32.106, -17.780,  -1.641,  17.629,  36.238,
     $      52.954,  66.406,  77.168,  83.950,  90.378,
     $      93.802,  95.348,  97.227,  97.911,  96.282,
     $     100.000,  98.747/
      DATA ((CPPZ      ( I, J), I=1, 72),J= 72, 72) /
     $      -2.264,  -2.850,  -3.417,  -3.616,  -2.807,
     $       0.115,   6.723,  12.586,  14.280,  14.262,
     $      11.873,   9.479,   8.908,   9.339,   9.544,
     $       2.577,  -5.377, -10.948, -13.992, -15.075,
     $     -14.284, -12.360, -10.358,  -7.950,  -4.485,
     $       0.155,   3.242,   3.146,   1.144,  -2.433,
     $      -8.602, -16.631, -19.687, -16.291, -11.037,
     $      -5.027,   2.026,  10.831,  20.975,  27.937,
     $      28.047,  23.687,  17.118,   8.442,  -2.082,
     $     -14.593, -27.725, -39.548, -48.863, -54.194,
     $     -56.932, -57.316, -55.363, -50.828, -44.097,
     $     -34.007, -19.944,  -3.957,  15.261,  33.947,
     $      50.889,  64.587,  75.660,  82.754,  89.449,
     $      93.104,  94.886,  96.933,  97.809,  96.340,
     $      98.747, 100.000/
C                        
      RETURN             
      END                
C----------------------------------------------------------------------)
C----------------------------------------------------------------------)
C                                                                      )
C pi 2pi0                                                              )
C----------------------------------------------------------------------)
      SUBROUTINE SP_P2P0
C                        
      IMPLICIT NONE      
C                        
      INTEGER I,J        
C                        
      REAL SP2PZ     ( 83)
      DATA SP2PZ      /
     $       0.304,   0.336,   0.368,   0.400,   0.432,
     $       0.464,   0.496,   0.528,   0.560,   0.592,
     $       0.624,   0.656,   0.688,   0.720,   0.752,
     $       0.784,   0.816,   0.848,   0.880,   0.912,
     $       0.944,   0.976,   1.008,   1.040,   1.072,
     $       1.104,   1.136,   1.168,   1.200,   1.232,
     $       1.264,   1.296,   1.328,   1.360,   1.392,
     $       1.424,   1.456,   1.488,   1.520,   1.552,
     $       1.584,   1.616,   1.648,   1.680,   1.712,
     $       1.744,   1.776,   1.808,   1.840,   1.872,
     $       1.904,   1.936,   1.968,   2.000,   2.032,
     $       2.064,   2.096,   2.128,   2.160,   2.192,
     $       2.224,   2.256,   2.288,   2.320,   2.352,
     $       2.384,   2.416,   2.448,   2.480,   2.512,
     $       2.544,   2.576,   2.608,   2.640,   2.672,
     $       2.704,   2.736,   2.768,   2.800,   2.832,
     $       2.864,   2.896,   2.928/
C                        
C                        
      REAL AP2PZ     ( 83)
      DATA AP2PZ      /
     $     0.001535, 0.002978, 0.002537, 0.004934, 0.007712,
     $     0.009817, 0.012424, 0.014693, 0.019075, 0.024174,
     $     0.034168, 0.044241, 0.054660, 0.074903, 0.097568,
     $     0.125911, 0.154559, 0.186773, 0.225441, 0.244963,
     $     0.276990, 0.300782, 0.333785, 0.354928, 0.383267,
     $     0.384095, 0.400794, 0.427650, 0.437389, 0.446038,
     $     0.468001, 0.466773, 0.475638, 0.473324, 0.472820,
     $     0.468746, 0.461876, 0.457374, 0.440795, 0.433015,
     $     0.396724, 0.389174, 0.377773, 0.349459, 0.338719,
     $     0.329381, 0.319134, 0.291070, 0.276810, 0.267751,
     $     0.249504, 0.247906, 0.239650, 0.214507, 0.213145,
     $     0.202215, 0.202168, 0.175775, 0.172225, 0.162861,
     $     0.167251, 0.148112, 0.122475, 0.146572, 0.138211,
     $     0.126806, 0.111798, 0.111001, 0.098727, 0.092940,
     $     0.104692, 0.095161, 0.073673, 0.081674, 0.070940,
     $     0.085470, 0.054499, 0.066952, 0.047535, 0.055250,
     $     0.038687, 0.022923, 0.029726/
C                        
C                        
      REAL EP2PZ     ( 83)
      DATA EP2PZ      /
     $     0.001182, 0.002133, 0.001784, 0.003243, 0.004833,
     $     0.005870, 0.007045, 0.007905, 0.009639, 0.011391,
     $     0.014889, 0.017606, 0.019628, 0.023848, 0.026930,
     $     0.029480, 0.029894, 0.029500, 0.029561, 0.028951,
     $     0.032738, 0.037447, 0.043569, 0.047084, 0.049803,
     $     0.047142, 0.044958, 0.042701, 0.038308, 0.034539,
     $     0.033387, 0.032749, 0.034646, 0.036706, 0.038818,
     $     0.039968, 0.040055, 0.039691, 0.037902, 0.036738,
     $     0.033395, 0.032801, 0.032470, 0.031322, 0.032224,
     $     0.033496, 0.034707, 0.033481, 0.033115, 0.032786,
     $     0.030870, 0.030850, 0.030146, 0.027585, 0.028242,
     $     0.028167, 0.029720, 0.027717, 0.029229, 0.029834,
     $     0.032988, 0.031621, 0.028310, 0.036639, 0.037330,
     $     0.037301, 0.036097, 0.038978, 0.038128, 0.039668,
     $     0.049161, 0.049661, 0.042442, 0.052035, 0.050179,
     $     0.066557, 0.046968, 0.063572, 0.049574, 0.063365,
     $     0.049470, 0.032020, 0.046706/
C                        
C                        
      REAL CP2PZ     ( 83, 83)
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  1,  1) /
     $     100.000,  85.004,  84.040,  86.900,  87.860,
     $      88.297,  88.747,  88.571,  88.705,  88.701,
     $      88.603,  88.214,  87.571,  86.527,  84.622,
     $      81.293,  74.999,  63.340,  42.215,  11.919,
     $     -19.303, -41.487, -55.930, -64.552, -69.865,
     $     -72.745, -73.388, -71.419, -65.668, -54.591,
     $     -37.502, -16.839,   2.416,  17.188,  26.800,
     $      32.484,  35.101,  35.199,  33.021,  28.432,
     $      21.472,  12.265,   1.543,  -9.435, -19.224,
     $     -26.990, -32.471, -35.501, -36.419, -35.082,
     $     -31.908, -27.119, -20.799, -13.854,  -6.856,
     $      -0.299,   4.997,   8.990,  11.648,  12.808,
     $      12.632,  11.200,   8.607,   4.988,   0.864,
     $      -3.812,  -8.884, -13.519, -18.284, -23.015,
     $     -27.502, -31.620, -35.086, -38.410, -41.313,
     $     -44.005, -45.917, -48.188, -49.392, -51.213,
     $     -52.512, -53.339, -54.080/
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  2,  2) /
     $      85.004, 100.000,  87.570,  90.555,  91.562,
     $      92.026,  92.503,  92.331,  92.484,  92.495,
     $      92.410,  92.027,  91.385,  90.332,  88.393,
     $      84.986,  78.512,  66.468,  44.571,  13.072,
     $     -19.478, -42.662, -57.796, -66.860, -72.473,
     $     -75.557, -76.317, -74.369, -68.499, -57.099,
     $     -39.431, -18.009,   1.996,  17.369,  27.387,
     $      33.320,  36.063,  36.187,  33.944,  29.196,
     $      21.987,  12.445,   1.332, -10.046, -20.188,
     $     -28.233, -33.907, -37.041, -37.987, -36.595,
     $     -33.299, -28.327, -21.766, -14.557,  -7.293,
     $      -0.485,   5.011,   9.156,  11.915,  13.116,
     $      12.929,  11.440,   8.742,   4.978,   0.691,
     $      -4.168,  -9.438, -14.253, -19.201, -24.114,
     $     -28.773, -33.048, -36.645, -40.094, -43.106,
     $     -45.899, -47.881, -50.237, -51.484, -53.373,
     $     -54.718, -55.575, -56.341/
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  3,  3) /
     $      84.040,  87.570, 100.000,  89.543,  90.545,
     $      91.011,  91.492,  91.332,  91.496,  91.521,
     $      91.455,  91.098,  90.490,  89.484,  87.612,
     $      84.304,  77.983,  66.177,  44.638,  13.559,
     $     -18.640, -41.631, -56.676, -65.717, -71.344,
     $     -74.473, -75.312, -73.488, -67.805, -56.670,
     $     -39.337, -18.260,   1.463,  16.645,  26.553,
     $      32.432,  35.161,  35.303,  33.112,  28.451,
     $      21.366,  11.982,   1.052, -10.138, -20.110,
     $     -28.018, -33.593, -36.670, -37.595, -36.219,
     $     -32.971, -28.073, -21.611, -14.510,  -7.355,
     $      -0.648,   4.766,   8.849,  11.565,  12.745,
     $      12.557,  11.087,   8.424,   4.709,   0.480,
     $      -4.312,  -9.507, -14.254, -19.131, -23.972,
     $     -28.563, -32.773, -36.316, -39.713, -42.677,
     $     -45.428, -47.378, -49.697, -50.922, -52.782,
     $     -54.104, -54.946, -55.696/
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  4,  4) /
     $      86.900,  90.555,  89.543, 100.000,  93.653,
     $      94.144,  94.653,  94.500,  94.685,  94.729,
     $      94.682,  94.339,  93.743,  92.744,  90.865,
     $      87.516,  81.079,  68.996,  46.856,  14.798,
     $     -18.520, -42.379, -58.039, -67.484, -73.397,
     $     -76.731, -77.706, -75.944, -70.215, -58.868,
     $     -41.109, -19.439,   0.889,  16.568,  26.818,
     $      32.912,  35.754,  35.928,  33.694,  28.915,
     $      21.641,  11.999,   0.766, -10.733, -20.978,
     $     -29.100, -34.822, -37.977, -38.920, -37.499,
     $     -34.153, -29.110, -22.458, -15.146,  -7.780,
     $      -0.875,   4.698,   8.902,  11.696,  12.908,
     $      12.710,  11.191,   8.443,   4.610,   0.248,
     $      -4.692, -10.046, -14.938, -19.961, -24.948,
     $     -29.676, -34.011, -37.657, -41.153, -44.203,
     $     -47.034, -49.038, -51.424, -52.682, -54.595,
     $     -55.953, -56.816, -57.584/
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  5,  5) /
     $      87.860,  91.562,  90.545,  93.653, 100.000,
     $      95.224,  95.751,  95.611,  95.815,  95.880,
     $      95.856,  95.541,  94.975,  94.012,  92.174,
     $      88.871,  82.473,  70.397,  48.164,  15.838,
     $     -17.874, -42.092, -58.041, -67.699, -73.784,
     $     -77.266, -78.375, -76.733, -71.107, -59.822,
     $     -42.052, -20.283,   0.194,  16.023,  26.393,
     $      32.571,  35.469,  35.673,  33.450,  28.666,
     $      21.369,  11.690,   0.410, -11.135, -21.417,
     $     -29.565, -35.303, -38.463, -39.402, -37.967,
     $     -34.597, -29.524, -22.832, -15.475,  -8.065,
     $      -1.116,   4.491,   8.720,  11.529,  12.745,
     $      12.540,  11.007,   8.234,   4.368,  -0.029,
     $      -5.006, -10.400, -15.327, -20.384, -25.404,
     $     -30.163, -34.524, -38.192, -41.708, -44.774,
     $     -47.621, -49.633, -52.033, -53.293, -55.217,
     $     -56.579, -57.445, -58.212/
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  6,  6) /
     $      88.297,  92.026,  91.011,  94.144,  95.224,
     $     100.000,  96.292,  96.168,  96.393,  96.483,
     $      96.488,  96.207,  95.682,  94.771,  92.998,
     $      89.777,  83.481,  71.511,  49.347,  16.966,
     $     -16.945, -41.400, -57.565, -67.402, -73.644,
     $     -77.277, -78.536, -77.054, -71.598, -60.481,
     $     -42.844, -21.135,  -0.646,  15.235,  25.662,
     $      31.892,  34.831,  35.071,  32.880,  28.127,
     $      20.863,  11.218,  -0.025, -11.530, -21.773,
     $     -29.887, -35.596, -38.735, -39.662, -38.221,
     $     -34.852, -29.783, -23.097, -15.746,  -8.343,
     $      -1.399,   4.202,   8.428,  11.232,  12.443,
     $      12.231,  10.693,   7.913,   4.039,  -0.364,
     $      -5.346, -10.742, -15.672, -20.728, -25.746,
     $     -30.504, -34.861, -38.524, -42.036, -45.096,
     $     -47.939, -49.944, -52.340, -53.595, -55.515,
     $     -56.871, -57.732, -58.493/
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  7,  7) /
     $      88.747,  92.503,  91.492,  94.653,  95.751,
     $      96.292, 100.000,  96.753,  97.004,  97.123,
     $      97.162,  96.922,  96.447,  95.598,  93.905,
     $      90.784,  84.614,  72.782,  50.720,  18.298,
     $     -15.821, -40.537, -56.947, -66.989, -73.413,
     $     -77.223, -78.660, -77.368, -72.120, -61.214,
     $     -43.750, -22.131,  -1.647,  14.282,  24.769,
     $      31.053,  34.040,  34.322,  32.170,  27.457,
     $      20.238,  10.642,  -0.548, -11.997, -22.185,
     $     -30.250, -35.920, -39.032, -39.943, -38.496,
     $     -35.130, -30.070, -23.397, -16.060,  -8.671,
     $      -1.738,   3.852,   8.071,  10.867,  12.071,
     $      11.851,  10.309,   7.523,   3.643,  -0.765,
     $      -5.748, -11.142, -16.070, -21.122, -26.133,
     $     -30.887, -35.234, -38.889, -42.392, -45.444,
     $     -48.280, -50.275, -52.664, -53.910, -55.824,
     $     -57.173, -58.027, -58.779/
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  8,  8) /
     $      88.571,  92.331,  91.332,  94.500,  95.611,
     $      96.168,  96.753, 100.000,  96.953,  97.106,
     $      97.185,  96.996,  96.584,  95.815,  94.230,
     $      91.253,  85.282,  73.710,  51.945,  19.737,
     $     -14.357, -39.184, -55.754, -65.958, -72.547,
     $     -76.535, -78.172, -77.116, -72.156, -61.587,
     $     -44.470, -23.133,  -2.819,  13.036,  23.509,
     $      29.807,  32.824,  33.152,  31.062,  26.435,
     $      19.326,   9.863,  -1.175, -12.464, -22.505,
     $     -30.448, -36.025, -39.079, -39.963, -38.521,
     $     -35.185, -30.176, -23.571, -16.308,  -8.995,
     $      -2.131,   3.402,   7.579,  10.343,  11.529,
     $      11.303,   9.768,   6.998,   3.141,  -1.236,
     $      -6.180, -11.530, -16.416, -21.422, -26.386,
     $     -31.094, -35.397, -39.012, -42.478, -45.494,
     $     -48.298, -50.266, -52.629, -53.854, -55.746,
     $     -57.074, -57.913, -58.649/
      DATA ((CP2PZ     ( I, J), I=1, 83),J=  9,  9) /
     $      88.705,  92.484,  91.496,  94.685,  95.815,
     $      96.393,  97.004,  96.953, 100.000,  97.458,
     $      97.584,  97.454,  97.113,  96.436,  94.972,
     $      92.152,  86.391,  75.077,  53.578,  21.496,
     $     -12.697, -37.749, -54.568, -65.000, -71.805,
     $     -76.015, -77.891, -77.106, -72.463, -62.248,
     $     -45.472, -24.385,  -4.196,  11.632,  22.125,
     $      28.461,  31.525,  31.905,  29.879,  25.332,
     $      18.323,   8.979,  -1.924, -13.071, -22.977,
     $     -30.807, -36.296, -39.294, -40.150, -38.707,
     $     -35.393, -30.424, -23.873, -16.668,  -9.415,
     $      -2.603,   2.884,   7.028,   9.767,  10.937,
     $      10.703,   9.171,   6.409,   2.564,  -1.793,
     $      -6.711, -12.029, -16.886, -21.856, -26.783,
     $     -31.458, -35.724, -39.307, -42.742, -45.728,
     $     -48.507, -50.449, -52.790, -53.996, -55.869,
     $     -57.179, -58.004, -58.724/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 10, 10) /
     $      88.701,  92.495,  91.521,  94.729,  95.880,
     $      96.483,  97.123,  97.106,  97.458, 100.000,
     $      97.881,  97.821,  97.567,  97.000,  95.684,
     $      93.058,  87.561,  76.580,  55.441,  23.573,
     $     -10.674, -35.946, -53.032, -63.717, -70.768,
     $     -75.236, -77.393, -76.934, -72.680, -62.909,
     $     -46.576, -25.832,  -5.835,   9.926,  20.420,
     $      26.787,  29.897,  30.338,  28.390,  23.945,
     $      17.067,   7.882,  -2.838, -13.793, -23.518,
     $     -31.197, -36.570, -39.492, -40.312, -38.870,
     $     -35.588, -30.676, -24.201, -17.079,  -9.910,
     $      -3.174,   2.249,   6.347,   9.050,  10.200,
     $       9.957,   8.432,   5.684,   1.864,  -2.462,
     $      -7.340, -12.609, -17.420, -22.339, -27.213,
     $     -31.838, -36.053, -39.590, -42.981, -45.925,
     $     -48.668, -50.577, -52.886, -54.066, -55.914,
     $     -57.198, -58.006, -58.705/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 11, 11) /
     $      88.603,  92.410,  91.455,  94.682,  95.856,
     $      96.488,  97.162,  97.185,  97.584,  97.881,
     $     100.000,  98.155,  98.004,  97.571,  96.432,
     $      94.041,  88.866,  78.296,  57.613,  26.037,
     $      -8.236, -33.744, -51.128, -62.101, -69.438,
     $     -74.207, -76.697, -76.625, -72.839, -63.610,
     $     -47.827, -27.521,  -7.781,   7.878,  18.359,
     $      24.751,  27.909,  28.419,  26.562,  22.241,
     $      15.525,   6.539,  -3.954, -14.667, -24.165,
     $     -31.652, -36.879, -39.707, -40.482, -39.041,
     $     -35.800, -30.960, -24.583, -17.566, -10.505,
     $      -3.865,   1.477,   5.517,   8.176,   9.301,
     $       9.048,   7.534,   4.807,   1.019,  -3.265,
     $      -8.087, -13.293, -18.045, -22.897, -27.702,
     $     -32.262, -36.410, -39.889, -43.223, -46.115,
     $     -48.811, -50.678, -52.947, -54.096, -55.910,
     $     -57.163, -57.948, -58.621/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 12, 12) /
     $      88.214,  92.027,  91.098,  94.339,  95.541,
     $      96.207,  96.922,  96.996,  97.454,  97.821,
     $      98.155, 100.000,  98.268,  98.006,  97.097,
     $      95.014,  90.265,  80.252,  60.214,  29.108,
     $      -5.091, -30.821, -48.532, -59.838, -67.512,
     $     -72.649, -75.552, -75.972, -72.793, -64.282,
     $     -49.251, -29.570, -10.225,   5.248,  15.673,
     $      22.073,  25.278,  25.868,  24.128,  19.975,
     $      13.482,   4.771,  -5.401, -15.774, -24.952,
     $     -32.172, -37.193, -39.891, -40.603, -39.168,
     $     -35.988, -31.253, -25.017, -18.154, -11.251,
     $      -4.751,   0.473,   4.429,   7.025,   8.117,
     $       7.852,   6.357,   3.667,  -0.069,  -4.284,
     $      -9.023, -14.131, -18.793, -23.544, -28.246,
     $     -32.710, -36.761, -40.155, -43.408, -46.222,
     $     -48.851, -50.659, -52.870, -53.975, -55.742,
     $     -56.951, -57.704, -58.342/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 13, 13) /
     $      87.571,  91.385,  90.490,  93.743,  94.975,
     $      95.682,  96.447,  96.584,  97.113,  97.567,
     $      98.004,  98.268, 100.000,  98.362,  97.740,
     $      96.041,  91.831,  82.527,  63.328,  32.865,
     $      -1.176, -27.128, -45.207, -56.901, -64.976,
     $     -70.554, -73.959, -74.983, -72.558, -64.953,
     $     -50.885, -32.024, -13.214,   1.990,  12.316,
     $      18.706,  21.955,  22.637,  21.040,  17.095,
     $      10.884,   2.528,  -7.230, -17.163, -25.926,
     $     -32.799, -37.554, -40.084, -40.715, -39.286,
     $     -36.185, -31.588, -25.537, -18.875, -12.176,
     $      -5.860,  -0.789,   3.056,   5.573,   6.622,
     $       6.346,   4.879,   2.239,  -1.423,  -5.547,
     $     -10.172, -15.150, -19.691, -24.309, -28.875,
     $     -33.211, -37.133, -40.415, -43.561, -46.276,
     $     -48.816, -50.547, -52.683, -53.730, -55.435,
     $     -56.587, -57.300, -57.893/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 14, 14) /
     $      86.527,  90.332,  89.484,  92.744,  94.012,
     $      94.771,  95.598,  95.815,  96.436,  97.000,
     $      97.571,  98.006,  98.362, 100.000,  98.338,
     $      97.145,  93.645,  85.288,  67.232,  37.685,
     $       3.938, -22.236, -40.744, -52.910, -61.482,
     $     -67.614, -71.657, -73.459, -72.017, -65.609,
     $     -52.834, -35.097, -17.045,  -2.242,   7.919,
     $      14.268,  17.557,  18.347,  16.930,  13.256,
     $       7.421,  -0.459,  -9.659, -18.995, -27.196,
     $     -33.597, -37.991, -40.291, -40.812, -39.393,
     $     -36.400, -31.990, -26.192, -19.803, -13.385,
     $      -7.318,  -2.456,   1.241,   3.650,   4.645,
     $       4.356,   2.929,   0.363,  -3.194,  -7.187,
     $     -11.653, -16.448, -20.821, -25.254, -29.632,
     $     -33.791, -37.536, -40.665, -43.664, -46.241,
     $     -48.660, -50.286, -52.318, -53.290, -54.909,
     $     -55.984, -56.643, -57.176/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 15, 15) /
     $      84.622,  88.393,  87.612,  90.865,  92.174,
     $      92.998,  93.905,  94.230,  94.972,  95.684,
     $      96.432,  97.097,  97.740,  98.338, 100.000,
     $      98.106,  95.597,  88.585,  72.195,  44.074,
     $      10.926, -15.398, -34.382, -47.116, -56.311,
     $     -63.157, -68.040, -70.887, -70.790, -66.052,
     $     -55.122, -39.037, -22.143,  -7.993,   1.867,
     $       8.109,  11.419,  12.338,  11.162,   7.867,
     $       2.567,  -4.627, -13.018, -21.487, -28.871,
     $     -34.587, -38.457, -40.426, -40.790, -39.388,
     $     -36.556, -32.423, -26.998, -21.015, -15.009,
     $      -9.312,  -4.757,  -1.280,   0.973,   1.891,
     $       1.589,   0.230,  -2.221,  -5.612,  -9.404,
     $     -13.625, -18.144, -22.262, -26.417, -30.512,
     $     -34.407, -37.889, -40.790, -43.570, -45.946,
     $     -48.186, -49.659, -51.538, -52.399, -53.894,
     $     -54.857, -55.439, -55.887/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 16, 16) /
     $      81.293,  84.986,  84.304,  87.516,  88.871,
     $      89.777,  90.784,  91.253,  92.152,  93.058,
     $      94.041,  95.014,  96.041,  97.145,  98.106,
     $     100.000,  97.434,  92.322,  78.357,  52.435,
     $      20.405,  -5.886, -25.345, -38.734, -48.687,
     $     -56.435, -62.411, -66.645, -68.375, -65.955,
     $     -57.649, -43.983, -28.845, -15.739,  -6.403,
     $      -0.385,   2.903,   3.970,   3.112,   0.343,
     $      -4.199, -10.409, -17.629, -24.844, -31.048,
     $     -35.774, -38.889, -40.380, -40.520, -39.148,
     $     -36.556, -32.833, -27.958, -22.572, -17.175,
     $     -12.024,  -7.919,  -4.764,  -2.737,  -1.926,
     $      -2.237,  -3.490,  -5.757,  -8.891, -12.372,
     $     -16.223, -20.323, -24.056, -27.795, -31.468,
     $     -34.967, -38.059, -40.624, -43.082, -45.161,
     $     -47.136, -48.389, -50.042, -50.745, -52.055,
     $     -52.858, -53.328, -53.655/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 17, 17) /
     $      74.999,  78.512,  77.983,  81.079,  82.473,
     $      83.481,  84.614,  85.282,  86.391,  87.561,
     $      88.866,  90.265,  91.831,  93.645,  95.597,
     $      97.434, 100.000,  96.063,  85.876,  63.628,
     $      33.815,   8.067, -11.709, -25.788, -36.640,
     $     -45.534, -52.960, -59.104, -63.431, -64.407,
     $     -60.063, -50.181, -37.909, -26.602, -18.236,
     $     -12.691,  -9.532,  -8.307,  -8.722, -10.712,
     $     -14.104, -18.800, -24.213, -29.488, -33.867,
     $     -37.067, -39.021, -39.786, -39.590, -38.279,
     $     -36.075, -33.004, -29.005, -24.571, -20.140,
     $     -15.858, -12.467,  -9.821,  -8.146,  -7.492,
     $      -7.803,  -8.872, -10.825, -13.524, -16.489,
     $     -19.728, -23.145, -26.251, -29.317, -32.311,
     $     -35.170, -37.641, -39.671, -41.616, -43.228,
     $     -44.784, -45.693, -46.989, -47.449, -48.468,
     $     -49.024, -49.323, -49.470/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 18, 18) /
     $      63.340,  66.468,  66.177,  68.996,  70.397,
     $      71.511,  72.782,  73.710,  75.077,  76.580,
     $      78.296,  80.252,  82.527,  85.288,  88.585,
     $      92.322,  96.063, 100.000,  93.545,  77.359,
     $      51.803,  27.778,   8.282,  -6.249, -17.965,
     $     -28.141, -37.332, -45.943, -53.787, -59.553,
     $     -61.029, -56.946, -49.270, -41.008, -34.393,
     $     -29.784, -26.981, -25.631, -25.456, -26.321,
     $     -28.001, -30.416, -33.088, -35.424, -37.046,
     $     -37.949, -38.165, -37.852, -37.172, -35.984,
     $     -34.400, -32.358, -29.736, -26.798, -23.882,
     $     -20.968, -18.692, -16.843, -15.708, -15.285,
     $     -15.568, -16.322, -17.747, -19.720, -21.835,
     $     -24.082, -26.396, -28.493, -30.486, -32.400,
     $     -34.245, -35.738, -36.932, -38.075, -38.960,
     $     -39.862, -40.247, -40.987, -41.084, -41.651,
     $     -41.833, -41.878, -41.761/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 19, 19) /
     $      42.215,  44.571,  44.638,  46.856,  48.164,
     $      49.347,  50.720,  51.945,  53.578,  55.441,
     $      57.613,  60.214,  63.328,  67.232,  72.195,
     $      78.357,  85.876,  93.545, 100.000,  91.279,
     $      73.657,  53.858,  36.218,  22.146,  10.105,
     $      -1.093, -12.058, -23.478, -35.680, -47.785,
     $     -57.419, -61.927, -61.435, -58.207, -54.664,
     $     -51.820, -49.823, -48.490, -47.588, -46.891,
     $     -46.111, -45.195, -43.844, -41.876, -39.480,
     $     -37.051, -34.771, -32.932, -31.598, -30.652,
     $     -30.047, -29.591, -29.085, -28.449, -27.854,
     $     -27.047, -26.478, -25.853, -25.527, -25.428,
     $     -25.625, -25.854, -26.407, -27.193, -27.939,
     $     -28.603, -29.178, -29.686, -30.008, -30.249,
     $     -30.517, -30.513, -30.431, -30.353, -30.143,
     $     -30.050, -29.664, -29.560, -29.135, -29.019,
     $     -28.657, -28.338, -27.854/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 20, 20) /
     $      11.919,  13.072,  13.559,  14.798,  15.838,
     $      16.966,  18.298,  19.737,  21.496,  23.573,
     $      26.037,  29.108,  32.865,  37.685,  44.074,
     $      52.435,  63.628,  77.359,  91.279, 100.000,
     $      91.509,  79.151,  65.857,  54.039,  43.082,
     $      32.044,  20.315,   6.946,  -8.985, -27.245,
     $     -45.576, -59.984, -68.341, -71.716, -72.439,
     $     -72.198, -71.550, -70.537, -69.008, -66.662,
     $     -63.154, -58.461, -52.522, -45.662, -38.732,
     $     -32.575, -27.537, -24.050, -22.058, -21.490,
     $     -22.107, -23.583, -25.637, -27.790, -29.999,
     $     -31.752, -33.237, -34.091, -34.719, -34.971,
     $     -35.000, -34.535, -33.947, -33.191, -32.185,
     $     -30.856, -29.260, -27.791, -26.058, -24.253,
     $     -22.590, -20.783, -19.175, -17.636, -16.131,
     $     -14.852, -13.582, -12.475, -11.470, -10.546,
     $      -9.572,  -8.850,  -7.981/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 21, 21) /
     $     -19.303, -19.478, -18.640, -18.520, -17.874,
     $     -16.945, -15.821, -14.357, -12.697, -10.674,
     $      -8.236,  -5.091,  -1.176,   3.938,  10.926,
     $      20.405,  33.815,  51.803,  73.657,  91.509,
     $     100.000,  94.372,  87.095,  79.060,  70.643,
     $      61.260,  50.383,  36.913,  19.444,  -2.490,
     $     -27.078, -49.537, -65.754, -75.430, -80.479,
     $     -83.040, -84.004, -83.639, -81.891, -78.429,
     $     -72.877, -65.239, -55.671, -44.946, -34.461,
     $     -25.407, -18.262, -13.557, -11.135, -10.975,
     $     -12.679, -15.825, -20.078, -24.627, -29.230,
     $     -33.181, -36.408, -38.515, -39.916, -40.408,
     $     -40.208, -39.070, -37.391, -35.182, -32.557,
     $     -29.415, -25.869, -22.629, -19.085, -15.487,
     $     -12.131,  -8.774,  -5.864,  -3.079,  -0.490,
     $       1.796,   3.778,   5.731,   7.182,   8.784,
     $      10.239,  11.266,  12.408/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 22, 22) /
     $     -41.487, -42.662, -41.631, -42.379, -42.092,
     $     -41.400, -40.537, -39.184, -37.749, -35.946,
     $     -33.744, -30.821, -27.128, -22.236, -15.398,
     $      -5.886,   8.067,  27.778,  53.858,  79.151,
     $      94.372, 100.000,  96.238,  91.909,  86.297,
     $      79.147,  70.034,  57.837,  40.876,  18.149,
     $      -9.094, -35.923, -57.012, -70.970, -79.174,
     $     -83.925, -86.303, -86.725, -85.223, -81.476,
     $     -75.094, -66.094, -54.755, -42.111, -29.858,
     $     -19.371, -11.202,  -5.930,  -3.347,  -3.471,
     $      -5.819,  -9.916, -15.409, -21.301, -27.232,
     $     -32.397, -36.560, -39.324, -41.088, -41.626,
     $     -41.191, -39.571, -37.149, -33.977, -30.309,
     $     -26.025, -21.272, -16.943, -12.306,  -7.639,
     $      -3.271,   0.987,   4.645,   8.144,  11.343,
     $      14.201,  16.558,  18.990,  20.660,  22.641,
     $      24.339,  25.513,  26.767/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 23, 23) /
     $     -55.930, -57.796, -56.676, -58.039, -58.041,
     $     -57.565, -56.947, -55.754, -54.568, -53.032,
     $     -51.128, -48.532, -45.207, -40.744, -34.382,
     $     -25.345, -11.709,   8.282,  36.218,  65.857,
     $      87.095,  96.238, 100.000,  97.358,  94.301,
     $      89.383,  82.274,  71.888,  56.407,  34.427,
     $       6.632, -22.238, -46.174, -62.957, -73.422,
     $     -79.880, -83.498, -84.792, -83.858, -80.407,
     $     -74.036, -64.757, -52.895, -39.609, -26.735,
     $     -15.730,  -7.193,  -1.730,   0.878,   0.589,
     $      -2.074,  -6.615, -12.668, -19.153, -25.648,
     $     -31.310, -35.821, -38.795, -40.611, -41.045,
     $     -40.364, -38.388, -35.470, -31.689, -27.391,
     $     -22.441, -17.003, -12.063,  -6.833,  -1.594,
     $       3.315,   8.035,  12.069,  15.926,  19.418,
     $      22.559,  25.078,  27.743,  29.491,  31.654,
     $      33.449,  34.673,  35.947/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 24, 24) /
     $     -64.552, -66.860, -65.717, -67.484, -67.699,
     $     -67.402, -66.989, -65.958, -65.000, -63.717,
     $     -62.101, -59.838, -56.901, -52.910, -47.116,
     $     -38.734, -25.788,  -6.249,  22.146,  54.039,
     $      79.060,  91.909,  97.358, 100.000,  97.724,
     $      94.785,  89.588,  81.101,  67.443,  46.914,
     $      19.688,  -9.850, -35.345, -53.960, -66.047,
     $     -73.844, -78.549, -80.742, -80.562, -77.765,
     $     -71.924, -63.037, -51.420, -38.267, -25.450,
     $     -14.461,  -5.928,  -0.480,   2.090,   1.721,
     $      -1.048,  -5.711, -11.894, -18.491, -25.060,
     $     -30.750, -35.227, -38.110, -39.771, -39.998,
     $     -39.064, -36.812, -33.559, -29.406, -24.749,
     $     -19.441, -13.654,  -8.412,  -2.904,   2.594,
     $       7.743,  12.653,  16.835,  20.830,  24.425,
     $      27.670,  30.227,  32.975,  34.727,  36.952,
     $      38.759,  39.982,  41.233/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 25, 25) /
     $     -69.865, -72.473, -71.344, -73.397, -73.784,
     $     -73.644, -73.413, -72.547, -71.805, -70.768,
     $     -69.438, -67.512, -64.976, -61.482, -56.311,
     $     -48.687, -36.640, -17.965,  10.105,  43.082,
     $      70.643,  86.297,  94.301,  97.724, 100.000,
     $      97.657,  94.367,  87.885,  76.304,  57.679,
     $      31.677,   2.229, -24.147, -44.103, -57.519,
     $     -66.515, -72.291, -75.467, -76.221, -74.358,
     $     -69.419, -61.383, -50.512, -37.980, -25.640,
     $     -14.990,  -6.685,  -1.374,   1.114,   0.709,
     $      -2.050,  -6.655, -12.718, -19.139, -25.484,
     $     -30.905, -35.098, -37.685, -39.040, -38.970,
     $     -37.751, -35.242, -31.725, -27.314, -22.436,
     $     -16.931, -10.972,  -5.592,   0.027,   5.614,
     $      10.843,  15.796,  20.001,  24.015,  27.610,
     $      30.863,  33.393,  36.142,  37.856,  40.077,
     $      41.853,  43.047,  44.253/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 26, 26) /
     $     -72.745, -75.557, -74.473, -76.731, -77.266,
     $     -77.277, -77.223, -76.535, -76.015, -75.236,
     $     -74.207, -72.649, -70.554, -67.614, -63.157,
     $     -56.435, -45.534, -28.141,  -1.093,  32.044,
     $      61.260,  79.147,  89.383,  94.785,  97.657,
     $     100.000,  97.275,  93.031,  83.901,  67.714,
     $      43.610,  14.935, -11.781, -32.732, -47.305,
     $     -57.454, -64.350, -68.642, -70.540, -69.911,
     $     -66.255, -59.524, -49.891, -38.460, -27.011,
     $     -17.022,  -9.173,  -4.133,  -1.788,  -2.214,
     $      -4.885,  -9.291, -15.030, -21.032, -26.895,
     $     -31.783, -35.467, -37.562, -38.459, -37.992,
     $     -36.439, -33.666, -29.919, -25.324, -20.321,
     $     -14.735,  -8.734,  -3.340,   2.260,   7.807,
     $      12.989,  17.868,  21.999,  25.937,  29.448,
     $      32.630,  35.077,  37.761,  39.404,  41.567,
     $      43.275,  44.416,  45.556/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 27, 27) /
     $     -73.388, -76.317, -75.312, -77.706, -78.375,
     $     -78.536, -78.660, -78.172, -77.891, -77.393,
     $     -76.697, -75.552, -73.959, -71.657, -68.040,
     $     -62.411, -52.960, -37.332, -12.058,  20.315,
     $      50.383,  70.034,  82.274,  89.588,  94.367,
     $      97.275, 100.000,  96.584,  90.375,  77.276,
     $      55.854,  28.717,   2.246, -19.339, -34.896,
     $     -46.151, -54.218, -59.759, -63.017, -63.932,
     $     -61.959, -57.016, -49.154, -39.353, -29.261,
     $     -20.309, -13.193,  -8.599,  -6.493,  -6.954,
     $      -9.480, -13.568, -18.796, -24.149, -29.283,
     $     -33.381, -36.329, -37.737, -38.020, -37.049,
     $     -35.102, -32.051, -28.099, -23.383, -18.341,
     $     -12.780,  -6.860,  -1.568,   3.890,   9.271,
     $      14.285,  18.979,  22.939,  26.707,  30.053,
     $      33.087,  35.398,  37.949,  39.487,  41.540,
     $      43.141,  44.206,  45.258/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 28, 28) /
     $     -71.419, -74.369, -73.488, -75.944, -76.733,
     $     -77.054, -77.368, -77.116, -77.106, -76.934,
     $     -76.625, -75.972, -74.983, -73.459, -70.887,
     $     -66.645, -59.104, -45.943, -23.478,   6.946,
     $      36.913,  57.837,  71.888,  81.101,  87.885,
     $      93.031,  96.584, 100.000,  95.306,  86.228,
     $      68.610,  44.109,  18.728,  -2.958, -19.221,
     $     -31.473, -40.725, -47.638, -52.480, -55.290,
     $     -55.476, -52.919, -47.508, -40.040, -31.947,
     $     -24.561, -18.584, -14.706, -13.000, -13.546,
     $     -15.884, -19.528, -24.037, -28.480, -32.596,
     $     -35.604, -37.555, -38.049, -37.538, -35.942,
     $     -33.536, -30.194, -26.074, -21.317, -16.346,
     $     -10.944,  -5.259,  -0.216,   4.944,  10.002,
     $      14.694,  19.058,  22.724,  26.203,  29.278,
     $      32.065,  34.168,  36.504,  37.889,  39.763,
     $      41.207,  42.163,  43.097/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 29, 29) /
     $     -65.668, -68.499, -67.805, -70.215, -71.107,
     $     -71.598, -72.120, -72.156, -72.463, -72.680,
     $     -72.839, -72.793, -72.558, -72.017, -70.790,
     $     -68.375, -63.431, -53.787, -35.680,  -8.985,
     $      19.444,  40.876,  56.407,  67.443,  76.304,
     $      83.901,  90.375,  95.306, 100.000,  93.448,
     $      81.287,  61.125,  38.228,  17.396,   0.994,
     $     -11.937, -22.244, -30.552, -37.158, -42.216,
     $     -45.110, -45.678, -43.615, -39.444, -34.264,
     $     -29.223, -24.999, -22.258, -21.213, -21.942,
     $     -24.052, -27.097, -30.622, -33.825, -36.566,
     $     -38.122, -38.761, -38.080, -36.577, -34.235,
     $     -31.322, -27.711, -23.508, -18.856, -14.137,
     $      -9.108,  -3.899,   0.670,   5.296,   9.790,
     $      13.931,  17.749,  20.938,  23.950,  26.596,
     $      28.991,  30.777,  32.773,  33.935,  35.530,
     $      36.743,  37.540,  38.310/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 30, 30) /
     $     -54.591, -57.099, -56.670, -58.868, -59.822,
     $     -60.481, -61.214, -61.587, -62.248, -62.909,
     $     -63.610, -64.282, -64.953, -65.609, -66.052,
     $     -65.955, -64.407, -59.553, -47.785, -27.245,
     $      -2.490,  18.149,  34.427,  46.914,  57.679,
     $      67.714,  77.276,  86.228,  93.448, 100.000,
     $      91.641,  78.050,  59.648,  41.198,  25.692,
     $      12.775,   1.862,  -7.601, -15.923, -23.398,
     $     -29.420, -33.793, -35.994, -36.177, -34.959,
     $     -33.187, -31.464, -30.382, -30.319, -31.351,
     $     -33.182, -35.447, -37.693, -39.303, -40.294,
     $     -40.046, -39.087, -37.020, -34.393, -31.261,
     $     -27.879, -24.118, -20.025, -15.736, -11.560,
     $      -7.236,  -2.860,   0.908,   4.662,   8.255,
     $      11.526,  14.503,  16.965,  19.271,  21.277,
     $      23.084,  24.413,  25.904,  26.752,  27.934,
     $      28.817,  29.393,  29.940/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 31, 31) /
     $     -37.502, -39.431, -39.337, -41.109, -42.052,
     $     -42.844, -43.750, -44.470, -45.472, -46.576,
     $     -47.827, -49.251, -50.885, -52.834, -55.122,
     $     -57.649, -60.063, -61.029, -57.419, -45.576,
     $     -27.078,  -9.094,   6.632,  19.688,  31.677,
     $      43.610,  55.854,  68.610,  81.287,  91.641,
     $     100.000,  90.892,  79.233,  65.117,  51.994,
     $      40.239,  29.607,  19.677,  10.146,   0.582,
     $      -8.484, -16.837, -23.754, -28.959, -32.456,
     $     -34.666, -36.054, -37.068, -38.250, -39.671,
     $     -41.167, -42.495, -43.240, -43.029, -42.058,
     $     -39.860, -37.219, -33.778, -30.104, -26.333,
     $     -22.686, -19.042, -15.385, -11.833,  -8.583,
     $      -5.373,  -2.257,   0.333,   2.836,   5.160,
     $       7.216,   9.040,  10.514,  11.867,  13.018,
     $      14.041,  14.772,  15.594,  16.040,  16.679,
     $      17.139,  17.435,  17.705/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 32, 32) /
     $     -16.839, -18.009, -18.260, -19.439, -20.283,
     $     -21.135, -22.131, -23.133, -24.385, -25.832,
     $     -27.521, -29.570, -32.024, -35.097, -39.037,
     $     -43.983, -50.181, -56.946, -61.927, -59.984,
     $     -49.537, -35.923, -22.238,  -9.850,   2.229,
     $      14.935,  28.717,  44.109,  61.125,  78.050,
     $      90.892, 100.000,  91.779,  83.493,  74.121,
     $      64.748,  55.502,  46.132,  36.367,  25.672,
     $      14.440,   2.876,  -8.178, -18.034, -26.068,
     $     -32.213, -36.742, -39.904, -42.362, -44.176,
     $     -45.330, -45.730, -45.040, -43.151, -40.420,
     $     -36.567, -32.564, -28.119, -23.779, -19.743,
     $     -16.189, -13.004, -10.124,  -7.638,  -5.608,
     $      -3.796,  -2.209,  -1.017,   0.027,   0.893,
     $       1.569,   2.098,   2.474,   2.773,   2.989,
     $       3.154,   3.242,   3.337,   3.360,   3.412,
     $       3.425,   3.426,   3.412/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 33, 33) /
     $       2.416,   1.996,   1.463,   0.889,   0.194,
     $      -0.646,  -1.647,  -2.819,  -4.196,  -5.835,
     $      -7.781, -10.225, -13.214, -17.045, -22.143,
     $     -28.845, -37.909, -49.270, -61.435, -68.341,
     $     -65.754, -57.012, -46.174, -35.345, -24.147,
     $     -11.781,   2.246,  18.728,  38.228,  59.648,
     $      79.233,  91.779, 100.000,  93.341,  88.147,
     $      81.746,  74.590,  66.597,  57.537,  46.830,
     $      34.692,  21.297,   7.505,  -5.695, -17.163,
     $     -26.392, -33.452, -38.381, -41.895, -44.047,
     $     -44.947, -44.650, -42.918, -39.866, -35.962,
     $     -31.103, -26.340, -21.463, -16.962, -13.075,
     $      -9.927,  -7.422,  -5.468,  -4.123,  -3.321,
     $      -2.865,  -2.723,  -2.830,  -3.118,  -3.566,
     $      -4.125,  -4.736,  -5.321,  -5.939,  -6.529,
     $      -7.103,  -7.557,  -8.084,  -8.411,  -8.859,
     $      -9.217,  -9.458,  -9.699/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 34, 34) /
     $      17.188,  17.369,  16.645,  16.568,  16.023,
     $      15.235,  14.282,  13.036,  11.632,   9.926,
     $       7.878,   5.248,   1.990,  -2.242,  -7.993,
     $     -15.739, -26.602, -41.008, -58.207, -71.716,
     $     -75.430, -70.970, -62.957, -53.960, -44.103,
     $     -32.732, -19.339,  -2.958,  17.396,  41.198,
     $      65.117,  83.493,  93.341, 100.000,  94.619,
     $      91.126,  86.228,  79.981,  72.199,  62.295,
     $      50.309,  36.369,  21.272,   6.180,  -7.417,
     $     -18.665, -27.455, -33.637, -37.923, -40.364,
     $     -41.160, -40.493, -38.223, -34.618, -30.201,
     $     -25.011, -20.084, -15.286, -11.038,  -7.589,
     $      -5.018,  -3.247,  -2.180,  -1.841,  -2.070,
     $      -2.712,  -3.710,  -4.823,  -6.124,  -7.558,
     $      -9.033, -10.478, -11.757, -13.033, -14.195,
     $     -15.294, -16.122, -17.087, -17.648, -18.445,
     $     -19.053, -19.454, -19.839/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 35, 35) /
     $      26.800,  27.387,  26.553,  26.818,  26.393,
     $      25.662,  24.769,  23.509,  22.125,  20.420,
     $      18.359,  15.673,  12.316,   7.919,   1.867,
     $      -6.403, -18.236, -34.393, -54.664, -72.439,
     $     -80.479, -79.174, -73.422, -66.047, -57.519,
     $     -47.305, -34.896, -19.221,   0.994,  25.692,
     $      51.994,  74.121,  88.147,  94.619, 100.000,
     $      95.219,  92.384,  87.888,  81.579,  72.888,
     $      61.695,  48.070,  32.707,  16.829,   2.140,
     $     -10.263, -20.124, -27.134, -31.972, -34.690,
     $     -35.548, -34.824, -32.464, -28.822, -24.431,
     $     -19.427, -14.772, -10.396,  -6.653,  -3.782,
     $      -1.832,  -0.735,  -0.413,  -0.862,  -1.855,
     $      -3.280,  -5.063,  -6.854,  -8.820, -10.888,
     $     -12.945, -14.906, -16.609, -18.282, -19.781,
     $     -21.191, -22.227, -23.448, -24.132, -25.130,
     $     -25.872, -26.355, -26.807/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 36, 36) /
     $      32.484,  33.320,  32.432,  32.912,  32.571,
     $      31.892,  31.053,  29.807,  28.461,  26.787,
     $      24.751,  22.073,  18.706,  14.268,   8.109,
     $      -0.385, -12.691, -29.784, -51.820, -72.198,
     $     -83.040, -83.925, -79.880, -73.844, -66.515,
     $     -57.454, -46.151, -31.473, -11.937,  12.775,
     $      40.239,  64.748,  81.746,  91.126,  95.219,
     $     100.000,  95.419,  92.669,  87.962,  80.758,
     $      70.780,  58.042,  43.089,  27.140,  12.012,
     $      -1.008, -11.542, -19.140, -24.426, -27.462,
     $     -28.541, -28.020, -25.928, -22.649, -18.699,
     $     -14.276, -10.223,  -6.528,  -3.481,  -1.297,
     $      -0.004,   0.457,   0.133,  -0.950,  -2.516,
     $      -4.496,  -6.810,  -9.043, -11.422, -13.870,
     $     -16.268, -18.515, -20.442, -22.323, -23.988,
     $     -25.553, -26.677, -28.020, -28.745, -29.836,
     $     -30.626, -31.133, -31.594/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 37, 37) /
     $      35.101,  36.063,  35.161,  35.754,  35.469,
     $      34.831,  34.040,  32.824,  31.525,  29.897,
     $      27.909,  25.278,  21.955,  17.557,  11.419,
     $       2.903,  -9.532, -26.981, -49.823, -71.550,
     $     -84.004, -86.303, -83.498, -78.549, -72.291,
     $     -64.350, -54.218, -40.725, -22.244,   1.862,
     $      29.607,  55.502,  74.590,  86.228,  92.384,
     $      95.419, 100.000,  95.317,  92.326,  86.833,
     $      78.407,  66.999,  52.974,  37.490,  22.411,
     $       9.165,  -1.757,  -9.775, -15.442, -18.835,
     $     -20.263, -20.154, -18.613, -16.017, -12.836,
     $      -9.312,  -6.131,  -3.334,  -1.147,   0.250,
     $       0.843,   0.685,  -0.222,  -1.832,  -3.836,
     $      -6.208,  -8.866, -11.366, -13.973, -16.612,
     $     -19.170, -21.530, -23.535, -25.480, -27.183,
     $     -28.785, -29.906, -31.272, -31.975, -33.077,
     $     -33.849, -34.337, -34.763/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 38, 38) /
     $      35.199,  36.187,  35.303,  35.928,  35.673,
     $      35.071,  34.322,  33.152,  31.905,  30.338,
     $      28.419,  25.868,  22.637,  18.347,  12.338,
     $       3.970,  -8.307, -25.631, -48.490, -70.537,
     $     -83.639, -86.725, -84.792, -80.742, -75.467,
     $     -68.642, -59.759, -47.638, -30.552,  -7.601,
     $      19.677,  46.132,  66.597,  79.981,  87.888,
     $      92.669,  95.317, 100.000,  94.964,  91.401,
     $      84.840,  75.166,  62.536,  47.995,  33.395,
     $      20.273,   9.219,   0.936,  -5.042,  -8.811,
     $     -10.680, -11.142, -10.379,  -8.728,  -6.595,
     $      -4.245,  -2.174,  -0.472,   0.700,   1.207,
     $       1.048,   0.266,  -1.189,  -3.253,  -5.597,
     $      -8.238, -11.099, -13.733, -16.423, -19.107,
     $     -21.685, -24.022, -25.988, -27.885, -29.525,
     $     -31.071, -32.116, -33.425, -34.056, -35.106,
     $     -35.809, -36.242, -36.598/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 39, 39) /
     $      33.021,  33.944,  33.112,  33.694,  33.450,
     $      32.880,  32.170,  31.062,  29.879,  28.390,
     $      26.562,  24.128,  21.040,  16.930,  11.162,
     $       3.112,  -8.722, -25.456, -47.588, -69.008,
     $     -81.891, -85.223, -83.858, -80.562, -76.221,
     $     -70.540, -63.017, -52.480, -37.158, -15.923,
     $      10.146,  36.367,  57.537,  72.199,  81.579,
     $      87.962,  92.326,  94.964, 100.000,  94.361,
     $      89.979,  82.444,  71.679,  58.567,  44.888,
     $      32.252,  21.339,  12.967,   6.773,   2.641,
     $       0.271,  -0.885,  -1.087,  -0.608,   0.233,
     $       1.159,   1.901,   2.318,   2.323,   1.836,
     $       0.864,  -0.557,  -2.541,  -5.002,  -7.606,
     $     -10.415, -13.360, -16.014, -18.666, -21.268,
     $     -23.744, -25.943, -27.770, -29.522, -31.010,
     $     -32.420, -33.328, -34.511, -35.029, -35.969,
     $     -36.559, -36.909, -37.166/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 40, 40) /
     $      28.432,  29.196,  28.451,  28.915,  28.666,
     $      28.127,  27.457,  26.435,  25.332,  23.945,
     $      22.241,  19.975,  17.095,  13.256,   7.867,
     $       0.343, -10.712, -26.321, -46.891, -66.662,
     $     -78.429, -81.476, -80.407, -77.765, -74.358,
     $     -69.911, -63.932, -55.290, -42.216, -23.398,
     $       0.582,  25.672,  46.830,  62.295,  72.888,
     $      80.758,  86.833,  91.400,  94.361, 100.000,
     $      93.588,  88.699,  80.377,  69.288,  57.069,
     $      45.362,  34.928,  26.688,  20.411,  15.954,
     $      13.040,  11.075,   9.716,   8.780,   8.057,
     $       7.271,   6.425,   5.325,   3.971,   2.350,
     $       0.477,  -1.625,  -4.135,  -6.952,  -9.746,
     $     -12.629, -15.544, -18.108, -20.599, -22.994,
     $     -25.246, -27.188, -28.774, -30.281, -31.528,
     $     -32.720, -33.427, -34.412, -34.775, -35.547,
     $     -35.979, -36.216, -36.345/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 41, 41) /
     $      21.472,  21.987,  21.366,  21.641,  21.369,
     $      20.863,  20.238,  19.326,  18.323,  17.067,
     $      15.525,  13.482,  10.884,   7.421,   2.567,
     $      -4.199, -14.104, -28.001, -46.111, -63.154,
     $     -72.877, -75.094, -74.036, -71.924, -69.419,
     $     -66.255, -61.959, -55.476, -45.110, -29.420,
     $      -8.484,  14.440,  34.692,  50.309,  61.695,
     $      70.780,  78.407,  84.840,  89.979,  93.588,
     $     100.000,  92.792,  87.429,  78.944,  68.757,
     $      58.483,  48.941,  41.135,  34.982,  30.316,
     $      26.895,  24.090,  21.483,  18.994,  16.548,
     $      13.876,  11.288,   8.536,   5.719,   2.897,
     $       0.094,  -2.682,  -5.676,  -8.774, -11.663,
     $     -14.509, -17.270, -19.626, -21.836, -23.900,
     $     -25.809, -27.385, -28.637, -29.809, -30.737,
     $     -31.635, -32.090, -32.814, -32.990, -33.544,
     $     -33.782, -33.884, -33.866/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 42, 42) /
     $      12.265,  12.445,  11.982,  11.999,  11.690,
     $      11.218,  10.642,   9.863,   8.979,   7.882,
     $       6.539,   4.771,   2.528,  -0.459,  -4.627,
     $     -10.409, -18.800, -30.416, -45.195, -58.461,
     $     -65.239, -66.094, -64.757, -63.037, -61.383,
     $     -59.524, -57.016, -52.919, -45.678, -33.793,
     $     -16.837,   2.876,  21.297,  36.369,  48.070,
     $      58.042,  66.999,  75.166,  82.444,  88.699,
     $      92.792, 100.000,  92.392,  87.068,  79.479,
     $      71.153,  62.941,  55.899,  50.113,  45.392,
     $      41.542,  37.920,  34.033,  29.918,  25.653,
     $      20.984,  16.552,  12.059,   7.713,   3.653,
     $      -0.085,  -3.513,  -6.938, -10.235, -13.127,
     $     -15.828, -18.319, -20.360, -22.179, -23.804,
     $     -25.262, -26.378, -27.216, -27.976, -28.518,
     $     -29.060, -29.223, -29.632, -29.597, -29.889,
     $     -29.907, -29.857, -29.680/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 43, 43) /
     $       1.543,   1.332,   1.052,   0.766,   0.410,
     $      -0.025,  -0.548,  -1.175,  -1.924,  -2.838,
     $      -3.954,  -5.401,  -7.230,  -9.659, -13.018,
     $     -17.629, -24.213, -33.088, -43.844, -52.522,
     $     -55.671, -54.755, -52.895, -51.420, -50.512,
     $     -49.891, -49.154, -47.508, -43.615, -35.994,
     $     -23.754,  -8.178,   7.505,  21.272,  32.707,
     $      43.089,  52.974,  62.536,  71.679,  80.377,
     $      87.429,  92.392, 100.000,  92.276,  87.711,
     $      81.767,  75.292,  69.354,  64.210,  59.653,
     $      55.543,  51.247,  46.210,  40.586,  34.608,
     $      28.044,  21.863,  15.722,   9.940,   4.737,
     $       0.158,  -3.828,  -7.580, -10.964, -13.753,
     $     -16.207, -18.329, -19.969, -21.319, -22.432,
     $     -23.371, -23.972, -24.354, -24.663, -24.790,
     $     -24.944, -24.804, -24.875, -24.629, -24.641,
     $     -24.434, -24.233, -23.905/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 44, 44) /
     $      -9.435, -10.046, -10.138, -10.733, -11.135,
     $     -11.530, -11.997, -12.464, -13.071, -13.793,
     $     -14.667, -15.774, -17.163, -18.995, -21.487,
     $     -24.844, -29.488, -35.424, -41.876, -45.662,
     $     -44.946, -42.111, -39.609, -38.267, -37.980,
     $     -38.460, -39.353, -40.040, -39.444, -36.177,
     $     -28.959, -18.034,  -5.695,   6.180,  16.829,
     $      27.140,  37.490,  47.995,  58.567,  69.288,
     $      78.944,  87.068,  92.276, 100.000,  92.602,
     $      89.261,  84.781,  80.197,  75.931,  71.767,
     $      67.618,  62.887,  56.974,  50.132,  42.741,
     $      34.588,  26.935,  19.403,  12.421,   6.276,
     $       1.028,  -3.378,  -7.331, -10.695, -13.300,
     $     -15.445, -17.153, -18.361, -19.228, -19.822,
     $     -20.240, -20.338, -20.280, -20.154, -19.889,
     $     -19.674, -19.258, -19.007, -18.577, -18.325,
     $     -17.919, -17.586, -17.133/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 45, 45) /
     $     -19.224, -20.188, -20.110, -20.978, -21.417,
     $     -21.773, -22.185, -22.505, -22.977, -23.518,
     $     -24.165, -24.952, -25.926, -27.196, -28.871,
     $     -31.048, -33.867, -37.046, -39.480, -38.732,
     $     -34.461, -29.858, -26.735, -25.450, -25.640,
     $     -27.011, -29.261, -31.947, -34.264, -34.959,
     $     -32.456, -26.068, -17.163,  -7.417,   2.140,
     $      12.012,  22.411,  33.395,  44.888,  57.069,
     $      68.757,  79.479,  87.711,  92.602, 100.000,
     $      93.340,  90.865,  87.715,  84.451,  80.857,
     $      76.895,  72.016,  65.594,  57.949,  49.583,
     $      40.295,  31.582,  23.035,  15.182,   8.363,
     $       2.654,  -2.026,  -6.069,  -9.344, -11.738,
     $     -13.579, -14.906, -15.728, -16.175, -16.327,
     $     -16.301, -15.983, -15.566, -15.085, -14.506,
     $     -13.992, -13.367, -12.856, -12.293, -11.830,
     $     -11.276, -10.850, -10.316/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 46, 46) /
     $     -26.990, -28.233, -28.018, -29.100, -29.565,
     $     -29.887, -30.250, -30.448, -30.807, -31.197,
     $     -31.652, -32.172, -32.799, -33.597, -34.587,
     $     -35.774, -37.067, -37.949, -37.051, -32.575,
     $     -25.407, -19.371, -15.730, -14.461, -14.990,
     $     -17.022, -20.309, -24.561, -29.223, -33.187,
     $     -34.666, -32.213, -26.392, -18.665, -10.263,
     $      -1.008,   9.165,  20.273,  32.252,  45.362,
     $      58.483,  71.153,  81.767,  89.261,  93.340,
     $     100.000,  94.061,  92.273,  90.024,  87.105,
     $      83.514,  78.754,  72.187,  64.158,  55.264,
     $      45.302,  35.942,  26.751,  18.344,  11.095,
     $       5.103,   0.259,  -3.813,  -6.987,  -9.202,
     $     -10.807, -11.851, -12.387, -12.535, -12.377,
     $     -12.036, -11.436, -10.777, -10.057,  -9.274,
     $      -8.559,  -7.810,  -7.126,  -6.494,  -5.890,
     $      -5.252,  -4.778,  -4.212/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 47, 47) /
     $     -32.471, -33.907, -33.593, -34.822, -35.303,
     $     -35.596, -35.920, -36.025, -36.296, -36.570,
     $     -36.879, -37.193, -37.554, -37.991, -38.457,
     $     -38.889, -39.021, -38.165, -34.771, -27.537,
     $     -18.262, -11.202,  -7.193,  -5.928,  -6.685,
     $      -9.173, -13.193, -18.584, -24.999, -31.464,
     $     -36.054, -36.742, -33.452, -27.455, -20.124,
     $     -11.542,  -1.757,   9.219,  21.339,  34.928,
     $      48.941,  62.941,  75.292,  84.781,  90.865,
     $      94.061, 100.000,  94.423,  93.156,  90.982,
     $      87.922,  83.526,  77.150,  69.130,  60.125,
     $      49.913,  40.280,  30.772,  22.085,  14.611,
     $       8.474,   3.537,  -0.542,  -3.643,  -5.746,
     $      -7.216,  -8.106,  -8.487,  -8.484,  -8.170,
     $      -7.666,  -6.934,  -6.168,  -5.339,  -4.472,
     $      -3.665,  -2.882,  -2.119,  -1.482,  -0.816,
     $      -0.161,   0.315,   0.862/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 48, 48) /
     $     -35.501, -37.041, -36.670, -37.977, -38.463,
     $     -38.735, -39.032, -39.079, -39.294, -39.492,
     $     -39.707, -39.891, -40.084, -40.291, -40.426,
     $     -40.380, -39.786, -37.852, -32.932, -24.050,
     $     -13.557,  -5.930,  -1.730,  -0.480,  -1.374,
     $      -4.133,  -8.599, -14.706, -22.258, -30.382,
     $     -37.068, -39.904, -38.381, -33.637, -27.134,
     $     -19.140,  -9.775,   0.936,  12.967,  26.688,
     $      41.135,  55.899,  69.354,  80.197,  87.715,
     $      92.273,  94.423, 100.000,  94.509,  93.094,
     $      90.672,  86.836,  80.933,  73.250,  64.486,
     $      54.377,  44.783,  35.223,  26.469,  18.918,
     $      12.724,   7.721,   3.615,   0.522,  -1.571,
     $      -3.037,  -3.930,  -4.305,  -4.315,  -4.016,
     $      -3.511,  -2.809,  -2.073,  -1.269,  -0.441,
     $       0.346,   1.072,   1.818,   2.397,   3.047,
     $       3.653,   4.087,   4.571/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 49, 49) /
     $     -36.419, -37.987, -37.595, -38.920, -39.402,
     $     -39.662, -39.943, -39.963, -40.150, -40.312,
     $     -40.482, -40.603, -40.715, -40.812, -40.790,
     $     -40.520, -39.590, -37.172, -31.598, -22.058,
     $     -11.135,  -3.347,   0.878,   2.090,   1.114,
     $      -1.788,  -6.493, -13.000, -21.213, -30.319,
     $     -38.250, -42.362, -41.895, -37.923, -31.972,
     $     -24.426, -15.442,  -5.042,   6.773,  20.411,
     $      34.982,  50.113,  64.210,  75.931,  84.451,
     $      90.024,  93.156,  94.509, 100.000,  94.359,
     $      92.712,  89.642,  84.485,  77.440,  69.223,
     $      59.503,  50.187,  40.759,  32.076,  24.529,
     $      18.309,  13.217,   9.021,   5.836,   3.629,
     $       2.013,   0.942,   0.411,   0.211,   0.317,
     $       0.653,   1.162,   1.725,   2.366,   3.030,
     $       3.685,   4.263,   4.895,   5.351,   5.906,
     $       6.397,   6.743,   7.115/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 50, 50) /
     $     -35.082, -36.595, -36.219, -37.499, -37.967,
     $     -38.221, -38.496, -38.521, -38.707, -38.870,
     $     -39.041, -39.168, -39.286, -39.393, -39.388,
     $     -39.148, -38.279, -35.984, -30.652, -21.490,
     $     -10.975,  -3.471,   0.589,   1.721,   0.709,
     $      -2.214,  -6.954, -13.546, -21.942, -31.351,
     $     -39.671, -44.176, -44.047, -40.364, -34.690,
     $     -27.462, -18.835,  -8.811,   2.641,  15.954,
     $      30.316,  45.392,  59.653,  71.767,  80.857,
     $      87.105,  90.982,  93.094,  94.359, 100.000,
     $      93.946,  91.889,  87.797,  81.733,  74.412,
     $      65.408,  56.645,  47.562,  39.112,  31.666,
     $      25.464,  20.264,  15.919,  12.541,  10.091,
     $       8.164,   6.730,   5.869,   5.292,   5.011,
     $       4.997,   5.132,   5.367,   5.697,   6.059,
     $       6.458,   6.785,   7.200,   7.459,   7.833,
     $       8.135,   8.341,   8.546/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 51, 51) /
     $     -31.908, -33.299, -32.971, -34.153, -34.597,
     $     -34.852, -35.130, -35.185, -35.393, -35.588,
     $     -35.800, -35.988, -36.185, -36.400, -36.556,
     $     -36.556, -36.075, -34.400, -30.047, -22.107,
     $     -12.679,  -5.819,  -2.074,  -1.048,  -2.050,
     $      -4.885,  -9.480, -15.884, -24.052, -33.182,
     $     -41.167, -45.330, -44.947, -41.160, -35.548,
     $     -28.541, -20.263, -10.680,   0.271,  13.040,
     $      26.895,  41.542,  55.543,  67.618,  76.895,
     $      83.514,  87.922,  90.672,  92.712,  93.946,
     $     100.000,  93.450,  90.673,  85.872,  79.739,
     $      71.732,  63.764,  55.226,  47.166,  39.927,
     $      33.802,  28.505,  23.987,  20.359,  17.579,
     $      15.230,  13.300,  11.984,  10.889,  10.077,
     $       9.574,   9.198,   8.985,   8.887,   8.840,
     $       8.888,   8.883,   8.996,   9.000,   9.125,
     $       9.178,   9.203,   9.195/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 52, 52) /
     $     -27.119, -28.327, -28.073, -29.110, -29.524,
     $     -29.783, -30.070, -30.176, -30.424, -30.676,
     $     -30.960, -31.253, -31.588, -31.990, -32.423,
     $     -32.833, -33.004, -32.358, -29.591, -23.583,
     $     -15.825,  -9.916,  -6.615,  -5.711,  -6.655,
     $      -9.291, -13.568, -19.528, -27.097, -35.447,
     $     -42.495, -45.730, -44.650, -40.493, -34.824,
     $     -28.020, -20.154, -11.142,  -0.885,  11.075,
     $      24.090,  37.920,  51.247,  62.887,  72.016,
     $      78.754,  83.526,  86.836,  89.642,  91.889,
     $      93.450, 100.000,  92.798,  89.558,  84.930,
     $      78.233,  71.341,  63.585,  56.117,  49.235,
     $      43.292,  37.949,  33.279,  29.388,  26.233,
     $      23.390,  20.869,  19.002,  17.278,  15.816,
     $      14.709,  13.704,  12.937,  12.309,  11.756,
     $      11.366,  10.952,  10.688,  10.380,  10.193,
     $       9.940,   9.743,   9.475/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 53, 53) /
     $     -20.799, -21.766, -21.611, -22.458, -22.832,
     $     -23.097, -23.397, -23.571, -23.873, -24.201,
     $     -24.583, -25.017, -25.537, -26.192, -26.998,
     $     -27.958, -29.005, -29.736, -29.085, -25.637,
     $     -20.078, -15.409, -12.668, -11.894, -12.718,
     $     -15.030, -18.796, -24.037, -30.622, -37.693,
     $     -43.240, -45.040, -42.918, -38.223, -32.464,
     $     -25.928, -18.613, -10.379,  -1.087,   9.716,
     $      21.483,  34.033,  46.210,  56.974,  65.594,
     $      72.187,  77.150,  80.933,  84.485,  87.797,
     $      90.673,  92.798, 100.000,  92.071,  89.283,
     $      84.253,  78.763,  72.092,  65.483,  59.175,
     $      53.582,  48.310,  43.571,  39.462,  35.944,
     $      32.586,  29.429,  26.960,  24.533,  22.340,
     $      20.547,  18.821,  17.417,  16.176,  15.037,
     $      14.136,  13.248,  12.543,  11.871,  11.319,
     $      10.707,  10.250,   9.680/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 54, 54) /
     $     -13.854, -14.557, -14.510, -15.146, -15.475,
     $     -15.746, -16.060, -16.308, -16.668, -17.079,
     $     -17.566, -18.154, -18.875, -19.803, -21.015,
     $     -22.572, -24.571, -26.798, -28.449, -27.790,
     $     -24.627, -21.301, -19.153, -18.491, -19.139,
     $     -21.032, -24.149, -28.480, -33.825, -39.303,
     $     -43.029, -43.151, -39.866, -34.618, -28.822,
     $     -22.649, -16.017,  -8.728,  -0.608,   8.780,
     $      18.994,  29.918,  40.586,  50.132,  57.949,
     $      64.158,  69.130,  73.250,  77.440,  81.733,
     $      85.872,  89.558,  92.071, 100.000,  91.839,
     $      88.658,  84.761,  79.388,  73.848,  68.309,
     $      63.238,  58.190,  53.521,  49.314,  45.527,
     $      41.741,  38.020,  35.000,  31.917,  29.027,
     $      26.574,  24.145,  22.115,  20.269,  18.546,
     $      17.138,  15.772,  14.626,  13.586,  12.667,
     $      11.691,  10.970,  10.093/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 55, 55) /
     $      -6.856,  -7.293,  -7.355,  -7.780,  -8.065,
     $      -8.343,  -8.671,  -8.995,  -9.415,  -9.910,
     $     -10.505, -11.251, -12.176, -13.385, -15.009,
     $     -17.175, -20.140, -23.882, -27.854, -29.999,
     $     -29.230, -27.232, -25.648, -25.060, -25.484,
     $     -26.895, -29.283, -32.596, -36.566, -40.294,
     $     -42.058, -40.420, -35.962, -30.201, -24.431,
     $     -18.699, -12.836,  -6.595,   0.233,   8.057,
     $      16.548,  25.653,  34.608,  42.741,  49.583,
     $      55.264,  60.125,  64.486,  69.223,  74.412,
     $      79.739,  84.930,  89.283,  91.839, 100.000,
     $      91.793,  89.601,  85.663,  81.336,  76.711,
     $      72.299,  67.608,  63.136,  58.952,  55.004,
     $      50.889,  46.698,  43.203,  39.533,  36.007,
     $      32.947,  29.859,  27.236,  24.814,  22.530,
     $      20.635,  18.804,  17.232,  15.829,  14.553,
     $      13.220,  12.238,  11.054/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 56, 56) /
     $      -0.299,  -0.485,  -0.648,  -0.875,  -1.116,
     $      -1.399,  -1.738,  -2.131,  -2.603,  -3.174,
     $      -3.865,  -4.751,  -5.860,  -7.318,  -9.312,
     $     -12.024, -15.858, -20.968, -27.047, -31.752,
     $     -33.181, -32.397, -31.310, -30.750, -30.905,
     $     -31.783, -33.381, -35.604, -38.122, -40.046,
     $     -39.860, -36.567, -31.103, -25.011, -19.427,
     $     -14.276,  -9.312,  -4.245,   1.159,   7.271,
     $      13.876,  20.984,  28.044,  34.588,  40.295,
     $      45.302,  49.913,  54.377,  59.503,  65.408,
     $      71.732,  78.233,  84.253,  88.658,  91.793,
     $     100.000,  92.061,  89.672,  86.699,  83.151,
     $      79.566,  75.412,  71.326,  67.353,  63.423,
     $      59.163,  54.688,  50.874,  46.773,  42.760,
     $      39.226,  35.601,  32.487,  29.583,  26.823,
     $      24.513,  22.275,  20.337,  18.610,  17.026,
     $      15.374,  14.158,  12.696/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 57, 57) /
     $       4.997,   5.011,   4.766,   4.698,   4.491,
     $       4.202,   3.852,   3.402,   2.884,   2.249,
     $       1.477,   0.473,  -0.789,  -2.456,  -4.757,
     $      -7.919, -12.467, -18.692, -26.478, -33.237,
     $     -36.408, -36.560, -35.821, -35.227, -35.098,
     $     -35.467, -36.329, -37.555, -38.761, -39.087,
     $     -37.219, -32.564, -26.340, -20.084, -14.772,
     $     -10.223,  -6.131,  -2.174,   1.901,   6.425,
     $      11.288,  16.552,  21.863,  26.935,  31.582,
     $      35.942,  40.280,  44.783,  50.187,  56.645,
     $      63.764,  71.341,  78.763,  84.761,  89.601,
     $      92.061, 100.000,  92.306,  90.642,  88.169,
     $      85.443,  81.895,  78.290,  74.645,  70.861,
     $      66.603,  62.002,  58.013,  53.632,  49.283,
     $      45.411,  41.383,  37.892,  34.614,  31.475,
     $      28.838,  26.264,  24.033,  22.034,  20.199,
     $      18.280,  16.864,  15.161/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 58, 58) /
     $       8.990,   9.156,   8.849,   8.902,   8.720,
     $       8.428,   8.071,   7.579,   7.028,   6.347,
     $       5.517,   4.429,   3.056,   1.241,  -1.280,
     $      -4.764,  -9.821, -16.843, -25.853, -34.091,
     $     -38.515, -39.324, -38.795, -38.110, -37.685,
     $     -37.562, -37.737, -38.049, -38.080, -37.020,
     $     -33.778, -28.119, -21.463, -15.286, -10.396,
     $      -6.528,  -3.334,  -0.472,   2.318,   5.325,
     $       8.536,  12.059,  15.722,  19.403,  23.035,
     $      26.751,  30.772,  35.223,  40.759,  47.562,
     $      55.225,  63.585,  72.092,  79.388,  85.663,
     $      89.672,  92.306, 100.000,  92.389,  91.014,
     $      89.204,  86.365,  83.367,  80.197,  76.721,
     $      72.649,  68.121,  64.133,  59.660,  55.161,
     $      51.123,  46.860,  43.134,  39.618,  36.225,
     $      33.369,  30.553,  28.121,  25.915,  23.906,
     $      21.786,  20.218,  18.324/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 59, 59) /
     $      11.648,  11.915,  11.565,  11.696,  11.529,
     $      11.232,  10.867,  10.343,   9.767,   9.050,
     $       8.176,   7.025,   5.573,   3.650,   0.973,
     $      -2.737,  -8.146, -15.708, -25.527, -34.719,
     $     -39.916, -41.088, -40.611, -39.771, -39.040,
     $     -38.459, -38.020, -37.538, -36.577, -34.393,
     $     -30.104, -23.779, -16.962, -11.038,  -6.653,
     $      -3.481,  -1.147,   0.700,   2.323,   3.971,
     $       5.719,   7.713,   9.940,  12.421,  15.182,
     $      18.344,  22.085,  26.469,  32.076,  39.112,
     $      47.166,  56.117,  65.483,  73.848,  81.336,
     $      86.699,  90.642,  92.389, 100.000,  92.909,
     $      92.018,  89.926,  87.600,  84.994,  81.930,
     $      78.164,  73.842,  69.976,  65.539,  61.018,
     $      56.935,  52.550,  48.689,  45.028,  41.465,
     $      38.467,  35.469,  32.901,  30.530,  28.398,
     $      26.121,  24.429,  22.376/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 60, 60) /
     $      12.808,  13.116,  12.745,  12.908,  12.745,
     $      12.443,  12.071,  11.529,  10.937,  10.200,
     $       9.301,   8.117,   6.622,   4.645,   1.891,
     $      -1.926,  -7.492, -15.285, -25.428, -34.971,
     $     -40.408, -41.626, -41.045, -39.998, -38.970,
     $     -37.992, -37.049, -35.942, -34.235, -31.261,
     $     -26.333, -19.743, -13.075,  -7.589,  -3.782,
     $      -1.297,   0.250,   1.207,   1.836,   2.350,
     $       2.897,   3.653,   4.737,   6.276,   8.363,
     $      11.095,  14.611,  18.918,  24.529,  31.666,
     $      39.927,  49.235,  59.175,  68.309,  76.711,
     $      83.151,  88.169,  91.014,  92.909, 100.000,
     $      93.559,  92.214,  90.590,  88.608,  86.040,
     $      82.687,  78.699,  75.075,  70.807,  66.400,
     $      62.400,  58.024,  54.138,  50.441,  46.808,
     $      43.757,  40.653,  38.026,  35.546,  33.354,
     $      30.974,  29.198,  27.029/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 61, 61) /
     $      12.632,  12.929,  12.557,  12.710,  12.540,
     $      12.231,  11.851,  11.303,  10.703,   9.957,
     $       9.048,   7.852,   6.346,   4.356,   1.589,
     $      -2.237,  -7.803, -15.568, -25.625, -35.000,
     $     -40.208, -41.191, -40.364, -39.064, -37.751,
     $     -36.439, -35.102, -33.536, -31.322, -27.879,
     $     -22.686, -16.189,  -9.927,  -5.018,  -1.832,
     $      -0.004,   0.843,   1.048,   0.864,   0.477,
     $       0.094,  -0.085,   0.158,   1.028,   2.654,
     $       5.103,   8.474,  12.724,  18.309,  25.464,
     $      33.802,  43.292,  53.582,  63.238,  72.299,
     $      79.566,  85.443,  89.204,  92.018,  93.559,
     $     100.000,  93.715,  92.791,  91.461,  89.439,
     $      86.570,  83.001,  79.704,  75.701,  71.507,
     $      67.686,  63.414,  59.588,  55.936,  52.310,
     $      49.273,  46.122,  43.493,  40.946,  38.742,
     $      36.303,  34.473,  32.219/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 62, 62) /
     $      11.200,  11.440,  11.087,  11.191,  11.007,
     $      10.693,  10.309,   9.768,   9.171,   8.432,
     $       7.534,   6.357,   4.879,   2.929,   0.230,
     $      -3.490,  -8.872, -16.322, -25.854, -34.535,
     $     -39.070, -39.571, -38.388, -36.812, -35.242,
     $     -33.666, -32.051, -30.194, -27.711, -24.118,
     $     -19.042, -13.004,  -7.422,  -3.247,  -0.735,
     $       0.457,   0.685,   0.266,  -0.557,  -1.625,
     $      -2.682,  -3.513,  -3.828,  -3.378,  -2.026,
     $       0.259,   3.537,   7.721,  13.217,  20.264,
     $      28.505,  37.949,  48.310,  58.190,  67.608,
     $      75.412,  81.895,  86.365,  89.926,  92.214,
     $      93.715, 100.000,  93.541,  92.881,  91.450,
     $      89.137,  86.083,  83.203,  79.572,  75.706,
     $      72.172,  68.118,  64.453,  60.943,  57.417,
     $      54.478,  51.354,  48.795,  46.239,  44.083,
     $      41.642,  39.798,  37.507/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 63, 63) /
     $       8.607,   8.742,   8.424,   8.443,   8.234,
     $       7.913,   7.523,   6.998,   6.409,   5.684,
     $       4.807,   3.667,   2.239,   0.363,  -2.221,
     $      -5.757, -10.825, -17.747, -26.407, -33.947,
     $     -37.391, -37.149, -35.470, -33.559, -31.725,
     $     -29.919, -28.099, -26.074, -23.508, -20.025,
     $     -15.385, -10.124,  -5.468,  -2.180,  -0.413,
     $       0.133,  -0.222,  -1.189,  -2.541,  -4.135,
     $      -5.676,  -6.938,  -7.580,  -7.331,  -6.069,
     $      -3.813,  -0.542,   3.615,   9.021,  15.919,
     $      23.987,  33.279,  43.571,  53.521,  63.136,
     $      71.326,  78.290,  83.367,  87.600,  90.590,
     $      92.791,  93.541, 100.000,  94.095,  93.320,
     $      91.640,  89.184,  86.801,  83.626,  80.172,
     $      77.006,  73.246,  69.806,  66.501,  63.130,
     $      60.339,  57.280,  54.834,  52.293,  50.219,
     $      47.803,  45.963,  43.652/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 64, 64) /
     $       4.988,   4.978,   4.709,   4.610,   4.368,
     $       4.039,   3.643,   3.141,   2.564,   1.864,
     $       1.019,  -0.069,  -1.423,  -3.194,  -5.612,
     $      -8.891, -13.524, -19.720, -27.193, -33.191,
     $     -35.182, -33.977, -31.689, -29.406, -27.314,
     $     -25.324, -23.383, -21.317, -18.856, -15.736,
     $     -11.833,  -7.638,  -4.123,  -1.841,  -0.862,
     $      -0.950,  -1.832,  -3.253,  -5.002,  -6.952,
     $      -8.774, -10.235, -10.964, -10.695,  -9.344,
     $      -6.987,  -3.643,   0.522,   5.836,  12.541,
     $      20.359,  29.388,  39.462,  49.314,  58.952,
     $      67.353,  74.645,  80.197,  84.994,  88.608,
     $      91.461,  92.881,  94.095, 100.000,  94.816,
     $      93.818,  92.023,  90.197,  87.545,  84.573,
     $      81.842,  78.442,  75.287,  72.243,  69.080,
     $      66.483,  63.529,  61.237,  58.739,  56.781,
     $      54.417,  52.601,  50.290/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 65, 65) /
     $       0.864,   0.691,   0.480,   0.248,  -0.029,
     $      -0.364,  -0.765,  -1.236,  -1.793,  -2.462,
     $      -3.265,  -4.284,  -5.547,  -7.187,  -9.404,
     $     -12.372, -16.489, -21.835, -27.939, -32.185,
     $     -32.557, -30.309, -27.391, -24.749, -22.436,
     $     -20.321, -18.341, -16.346, -14.137, -11.560,
     $      -8.583,  -5.608,  -3.321,  -2.070,  -1.855,
     $      -2.516,  -3.836,  -5.597,  -7.606,  -9.746,
     $     -11.663, -13.127, -13.753, -13.300, -11.738,
     $      -9.202,  -5.746,  -1.571,   3.629,  10.091,
     $      17.579,  26.233,  35.944,  45.527,  55.004,
     $      63.423,  70.861,  76.721,  81.930,  86.040,
     $      89.439,  91.450,  93.320,  94.816, 100.000,
     $      95.067,  93.936,  92.677,  90.569,  88.108,
     $      85.842,  82.843,  80.009,  77.265,  74.348,
     $      71.981,  69.167,  67.060,  64.636,  62.820,
     $      60.539,  58.769,  56.487/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 66, 66) /
     $      -3.812,  -4.168,  -4.312,  -4.692,  -5.006,
     $      -5.346,  -5.748,  -6.180,  -6.711,  -7.340,
     $      -8.087,  -9.023, -10.172, -11.653, -13.625,
     $     -16.223, -19.728, -24.082, -28.603, -30.856,
     $     -29.415, -26.025, -22.441, -19.441, -16.931,
     $     -14.735, -12.780, -10.944,  -9.108,  -7.236,
     $      -5.373,  -3.796,  -2.865,  -2.712,  -3.280,
     $      -4.496,  -6.208,  -8.238, -10.415, -12.629,
     $     -14.509, -15.828, -16.207, -15.445, -13.579,
     $     -10.807,  -7.216,  -3.037,   2.013,   8.164,
     $      15.230,  23.390,  32.586,  41.741,  50.889,
     $      59.163,  66.603,  72.649,  78.164,  82.687,
     $      86.570,  89.137,  91.640,  93.818,  95.067,
     $     100.000,  94.997,  94.340,  92.824,  90.926,
     $      89.174,  86.630,  84.168,  81.772,  79.150,
     $      77.053,  74.422,  72.536,  70.218,  68.575,
     $      66.408,  64.709,  62.482/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 67, 67) /
     $      -8.884,  -9.438,  -9.507, -10.046, -10.400,
     $     -10.742, -11.142, -11.530, -12.029, -12.609,
     $     -13.293, -14.131, -15.150, -16.448, -18.144,
     $     -20.323, -23.145, -26.396, -29.178, -29.260,
     $     -25.869, -21.272, -17.003, -13.654, -10.972,
     $      -8.734,  -6.860,  -5.259,  -3.899,  -2.860,
     $      -2.257,  -2.209,  -2.723,  -3.710,  -5.063,
     $      -6.810,  -8.866, -11.099, -13.360, -15.544,
     $     -17.270, -18.319, -18.329, -17.153, -14.906,
     $     -11.851,  -8.106,  -3.930,   0.942,   6.730,
     $      13.300,  20.869,  29.429,  38.020,  46.698,
     $      54.688,  62.002,  68.121,  73.842,  78.699,
     $      83.001,  86.083,  89.184,  92.023,  93.936,
     $      94.997, 100.000,  95.243,  94.348,  93.048,
     $      91.844,  89.795,  87.743,  85.731,  83.441,
     $      81.647,  79.230,  77.594,  75.409,  73.963,
     $      71.937,  70.327,  68.181/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 68, 68) /
     $     -13.519, -14.253, -14.254, -14.938, -15.327,
     $     -15.672, -16.070, -16.416, -16.886, -17.420,
     $     -18.045, -18.793, -19.691, -20.821, -22.262,
     $     -24.056, -26.251, -28.493, -29.686, -27.791,
     $     -22.629, -16.943, -12.063,  -8.412,  -5.592,
     $      -3.340,  -1.568,  -0.216,   0.670,   0.908,
     $       0.333,  -1.017,  -2.830,  -4.823,  -6.854,
     $      -9.043, -11.366, -13.733, -16.014, -18.108,
     $     -19.626, -20.360, -19.969, -18.361, -15.728,
     $     -12.387,  -8.487,  -4.305,   0.411,   5.869,
     $      11.984,  19.002,  26.960,  35.000,  43.203,
     $      50.874,  58.013,  64.133,  69.976,  75.075,
     $      79.704,  83.203,  86.801,  90.197,  92.677,
     $      94.340,  95.243, 100.000,  95.409,  94.639,
     $      93.923,  92.319,  90.636,  88.972,  86.986,
     $      85.466,  83.250,  81.841,  79.783,  78.518,
     $      76.625,  75.101,  73.034/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 69, 69) /
     $     -18.284, -19.201, -19.131, -19.961, -20.384,
     $     -20.728, -21.122, -21.422, -21.856, -22.339,
     $     -22.897, -23.544, -24.309, -25.254, -26.417,
     $     -27.795, -29.317, -30.486, -30.008, -26.058,
     $     -19.085, -12.306,  -6.833,  -2.904,   0.027,
     $       2.260,   3.890,   4.944,   5.296,   4.662,
     $       2.836,   0.027,  -3.118,  -6.124,  -8.820,
     $     -11.422, -13.973, -16.423, -18.666, -20.599,
     $     -21.836, -22.179, -21.319, -19.228, -16.175,
     $     -12.535,  -8.484,  -4.315,   0.211,   5.292,
     $      10.889,  17.278,  24.533,  31.917,  39.533,
     $      46.773,  53.632,  59.660,  65.539,  70.807,
     $      75.701,  79.572,  83.626,  87.545,  90.569,
     $      92.824,  94.348,  95.409, 100.000,  95.402,
     $      95.191,  94.057,  92.769,  91.478,  89.821,
     $      88.599,  86.609,  85.448,  83.540,  82.474,
     $      80.735,  79.313,  77.348/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 70, 70) /
     $     -23.015, -24.114, -23.972, -24.948, -25.404,
     $     -25.746, -26.133, -26.386, -26.783, -27.213,
     $     -27.702, -28.246, -28.875, -29.632, -30.512,
     $     -31.468, -32.311, -32.400, -30.249, -24.253,
     $     -15.487,  -7.639,  -1.594,   2.594,   5.614,
     $       7.807,   9.271,  10.002,   9.790,   8.255,
     $       5.160,   0.893,  -3.566,  -7.558, -10.888,
     $     -13.870, -16.612, -19.107, -21.268, -22.994,
     $     -23.900, -23.804, -22.432, -19.822, -16.327,
     $     -12.377,  -8.170,  -4.016,   0.317,   5.011,
     $      10.077,  15.816,  22.340,  29.027,  36.007,
     $      42.760,  49.283,  55.161,  61.018,  66.400,
     $      71.507,  75.706,  80.172,  84.573,  88.108,
     $      90.926,  93.048,  94.639,  95.402, 100.000,
     $      96.004,  95.339,  94.445,  93.528,  92.205,
     $      91.282,  89.525,  88.616,  86.865,  86.000,
     $      84.424,  83.110,  81.255/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 71, 71) /
     $     -27.502, -28.773, -28.563, -29.676, -30.163,
     $     -30.504, -30.887, -31.094, -31.458, -31.838,
     $     -32.262, -32.710, -33.211, -33.791, -34.407,
     $     -34.967, -35.170, -34.245, -30.517, -22.590,
     $     -12.131,  -3.271,   3.315,   7.743,  10.843,
     $      12.989,  14.285,  14.694,  13.931,  11.526,
     $       7.216,   1.569,  -4.125,  -9.033, -12.945,
     $     -16.268, -19.170, -21.685, -23.744, -25.246,
     $     -25.809, -25.262, -23.371, -20.240, -16.301,
     $     -12.036,  -7.666,  -3.511,   0.653,   4.997,
     $       9.574,  14.709,  20.547,  26.574,  32.947,
     $      39.226,  45.411,  51.123,  56.935,  62.400,
     $      67.686,  72.172,  77.006,  81.842,  85.842,
     $      89.174,  91.844,  93.923,  95.191,  96.004,
     $     100.000,  96.520,  95.992,  95.423,  94.410,
     $      93.767,  92.228,  91.552,  89.949,  89.272,
     $      87.847,  86.635,  84.883/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 72, 72) /
     $     -31.620, -33.048, -32.773, -34.011, -34.524,
     $     -34.861, -35.234, -35.397, -35.724, -36.053,
     $     -36.410, -36.761, -37.133, -37.536, -37.889,
     $     -38.059, -37.641, -35.738, -30.513, -20.783,
     $      -8.774,   0.987,   8.035,  12.653,  15.796,
     $      17.868,  18.979,  19.058,  17.749,  14.503,
     $       9.040,   2.098,  -4.736, -10.478, -14.906,
     $     -18.515, -21.530, -24.022, -25.943, -27.188,
     $     -27.385, -26.378, -23.972, -20.338, -15.983,
     $     -11.436,  -6.934,  -2.809,   1.162,   5.132,
     $       9.198,  13.704,  18.821,  24.145,  29.859,
     $      35.601,  41.383,  46.860,  52.550,  58.024,
     $      63.414,  68.118,  73.246,  78.442,  82.843,
     $      86.630,  89.795,  92.319,  94.057,  95.339,
     $      96.520, 100.000,  96.537,  96.308,  95.604,
     $      95.235,  93.921,  93.478,  92.032,  91.544,
     $      90.279,  89.177,  87.541/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 73, 73) /
     $     -35.086, -36.645, -36.316, -37.657, -38.192,
     $     -38.524, -38.889, -39.012, -39.307, -39.590,
     $     -39.889, -40.155, -40.415, -40.665, -40.790,
     $     -40.624, -39.671, -36.932, -30.431, -19.175,
     $      -5.864,   4.645,  12.069,  16.835,  20.001,
     $      21.999,  22.939,  22.724,  20.938,  16.965,
     $      10.514,   2.474,  -5.321, -11.757, -16.609,
     $     -20.442, -23.535, -25.988, -27.770, -28.774,
     $     -28.637, -27.216, -24.354, -20.280, -15.566,
     $     -10.777,  -6.168,  -2.073,   1.725,   5.367,
     $       8.985,  12.937,  17.417,  22.115,  27.236,
     $      32.487,  37.892,  43.134,  48.689,  54.138,
     $      59.588,  64.453,  69.806,  75.287,  80.009,
     $      84.168,  87.743,  90.636,  92.769,  94.445,
     $      95.992,  96.537, 100.000,  96.735,  96.298,
     $      96.167,  95.050,  94.808,  93.502,  93.177,
     $      92.053,  91.049,  89.520/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 74, 74) /
     $     -38.410, -40.094, -39.713, -41.153, -41.708,
     $     -42.036, -42.392, -42.478, -42.742, -42.981,
     $     -43.223, -43.408, -43.561, -43.664, -43.570,
     $     -43.082, -41.616, -38.075, -30.353, -17.636,
     $      -3.079,   8.144,  15.926,  20.830,  24.015,
     $      25.937,  26.707,  26.203,  23.950,  19.271,
     $      11.867,   2.773,  -5.939, -13.033, -18.282,
     $     -22.323, -25.480, -27.885, -29.522, -30.281,
     $     -29.809, -27.976, -24.663, -20.154, -15.085,
     $     -10.057,  -5.339,  -1.269,   2.366,   5.697,
     $       8.887,  12.309,  16.176,  20.269,  24.814,
     $      29.583,  34.614,  39.618,  45.028,  50.441,
     $      55.936,  60.943,  66.501,  72.243,  77.265,
     $      81.772,  85.731,  88.972,  91.478,  93.528,
     $      95.423,  96.308,  96.735, 100.000,  96.894,
     $      96.989,  96.061,  96.011,  94.840,  94.671,
     $      93.684,  92.775,  91.347/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 75, 75) /
     $     -41.313, -43.106, -42.677, -44.203, -44.774,
     $     -45.096, -45.444, -45.494, -45.728, -45.925,
     $     -46.115, -46.222, -46.276, -46.241, -45.946,
     $     -45.161, -43.228, -38.960, -30.143, -16.131,
     $      -0.490,  11.343,  19.418,  24.425,  27.610,
     $      29.448,  30.053,  29.278,  26.596,  21.277,
     $      13.018,   2.989,  -6.529, -14.195, -19.781,
     $     -23.988, -27.183, -29.525, -31.010, -31.528,
     $     -30.737, -28.518, -24.790, -19.889, -14.506,
     $      -9.274,  -4.472,  -0.441,   3.030,   6.059,
     $       8.840,  11.756,  15.037,  18.546,  22.530,
     $      26.823,  31.475,  36.225,  41.465,  46.808,
     $      52.310,  57.417,  63.130,  69.080,  74.348,
     $      79.150,  83.441,  86.986,  89.821,  92.205,
     $      94.410,  95.604,  96.298,  96.894, 100.000,
     $      97.251,  96.503,  96.631,  95.590,  95.567,
     $      94.710,  93.893,  92.568/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 76, 76) /
     $     -44.005, -45.899, -45.428, -47.034, -47.621,
     $     -47.939, -48.280, -48.298, -48.507, -48.668,
     $     -48.811, -48.851, -48.816, -48.660, -48.186,
     $     -47.136, -44.784, -39.862, -30.050, -14.852,
     $       1.796,  14.201,  22.559,  27.670,  30.863,
     $      32.630,  33.087,  32.065,  28.991,  23.084,
     $      14.041,   3.154,  -7.103, -15.294, -21.191,
     $     -25.553, -28.785, -31.071, -32.420, -32.720,
     $     -31.635, -29.060, -24.944, -19.674, -13.992,
     $      -8.559,  -3.665,   0.346,   3.685,   6.458,
     $       8.888,  11.366,  14.136,  17.138,  20.635,
     $      24.513,  28.838,  33.369,  38.467,  43.757,
     $      49.273,  54.478,  60.339,  66.483,  71.981,
     $      77.053,  81.647,  85.466,  88.599,  91.282,
     $      93.767,  95.235,  96.167,  96.989,  97.251,
     $     100.000,  97.147,  97.432,  96.504,  96.609,
     $      95.866,  95.128,  93.889/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 77, 77) /
     $     -45.917, -47.881, -47.378, -49.038, -49.633,
     $     -49.944, -50.275, -50.266, -50.449, -50.577,
     $     -50.678, -50.659, -50.547, -50.286, -49.659,
     $     -48.389, -45.693, -40.247, -29.664, -13.582,
     $       3.778,  16.558,  25.078,  30.227,  33.393,
     $      35.077,  35.398,  34.168,  30.777,  24.413,
     $      14.772,   3.242,  -7.557, -16.122, -22.227,
     $     -26.677, -29.906, -32.116, -33.328, -33.427,
     $     -32.090, -29.223, -24.804, -19.258, -13.367,
     $      -7.810,  -2.882,   1.072,   4.263,   6.785,
     $       8.883,  10.952,  13.248,  15.772,  18.804,
     $      22.275,  26.264,  30.553,  35.469,  40.653,
     $      46.122,  51.354,  57.280,  63.529,  69.167,
     $      74.422,  79.230,  83.250,  86.609,  89.525,
     $      92.228,  93.921,  95.050,  96.061,  96.503,
     $      97.147, 100.000,  97.118,  96.298,  96.514,
     $      95.878,  95.217,  94.067/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 78, 78) /
     $     -48.188, -50.237, -49.697, -51.424, -52.033,
     $     -52.340, -52.664, -52.629, -52.790, -52.886,
     $     -52.947, -52.870, -52.683, -52.318, -51.538,
     $     -50.042, -46.989, -40.987, -29.560, -12.475,
     $       5.731,  18.990,  27.743,  32.975,  36.142,
     $      37.761,  37.949,  36.504,  32.773,  25.904,
     $      15.594,   3.337,  -8.084, -17.087, -23.448,
     $     -28.020, -31.272, -33.425, -34.511, -34.412,
     $     -32.814, -29.632, -24.875, -19.007, -12.856,
     $      -7.126,  -2.119,   1.818,   4.895,   7.200,
     $       8.996,  10.688,  12.543,  14.626,  17.232,
     $      20.337,  24.033,  28.121,  32.901,  38.026,
     $      43.493,  48.795,  54.834,  61.237,  67.060,
     $      72.536,  77.594,  81.841,  85.448,  88.616,
     $      91.552,  93.478,  94.808,  96.011,  96.631,
     $      97.432,  97.118, 100.000,  96.949,  97.275,
     $      96.736,  96.144,  95.069/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 79, 79) /
     $     -49.392, -51.484, -50.922, -52.682, -53.293,
     $     -53.595, -53.910, -53.854, -53.996, -54.066,
     $     -54.096, -53.975, -53.730, -53.290, -52.399,
     $     -50.745, -47.449, -41.084, -29.135, -11.470,
     $       7.182,  20.660,  29.491,  34.727,  37.856,
     $      39.404,  39.487,  37.889,  33.935,  26.752,
     $      16.040,   3.360,  -8.411, -17.648, -24.132,
     $     -28.745, -31.975, -34.056, -35.029, -34.775,
     $     -32.990, -29.597, -24.629, -18.577, -12.293,
     $      -6.494,  -1.482,   2.397,   5.351,   7.459,
     $       9.000,  10.380,  11.871,  13.586,  15.829,
     $      18.610,  22.034,  25.915,  30.530,  35.546,
     $      40.946,  46.239,  52.293,  58.739,  64.636,
     $      70.218,  75.409,  79.783,  83.540,  86.865,
     $      89.949,  92.032,  93.502,  94.840,  95.590,
     $      96.504,  96.298,  96.949, 100.000,  96.718,
     $      96.262,  95.731,  94.728/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 80, 80) /
     $     -51.213, -53.373, -52.782, -54.595, -55.217,
     $     -55.515, -55.824, -55.746, -55.869, -55.914,
     $     -55.910, -55.742, -55.435, -54.909, -53.894,
     $     -52.055, -48.468, -41.651, -29.019, -10.546,
     $       8.784,  22.641,  31.654,  36.952,  40.077,
     $      41.567,  41.540,  39.763,  35.530,  27.934,
     $      16.679,   3.412,  -8.859, -18.445, -25.130,
     $     -29.836, -33.077, -35.106, -35.969, -35.547,
     $     -33.544, -29.889, -24.641, -18.325, -11.830,
     $      -5.890,  -0.816,   3.047,   5.906,   7.833,
     $       9.125,  10.193,  11.319,  12.667,  14.553,
     $      17.026,  20.199,  23.906,  28.398,  33.354,
     $      38.742,  44.083,  50.219,  56.781,  62.820,
     $      68.575,  73.963,  78.518,  82.474,  86.000,
     $      89.272,  91.544,  93.177,  94.671,  95.567,
     $      96.609,  96.514,  97.275,  96.718, 100.000,
     $      96.840,  96.366,  95.427/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 81, 81) /
     $     -52.512, -54.718, -54.104, -55.953, -56.579,
     $     -56.871, -57.173, -57.074, -57.179, -57.198,
     $     -57.163, -56.951, -56.587, -55.984, -54.857,
     $     -52.858, -49.024, -41.833, -28.657,  -9.572,
     $      10.239,  24.339,  33.449,  38.759,  41.853,
     $      43.275,  43.141,  41.207,  36.743,  28.817,
     $      17.139,   3.425,  -9.217, -19.053, -25.872,
     $     -30.626, -33.849, -35.809, -36.559, -35.979,
     $     -33.782, -29.907, -24.434, -17.919, -11.276,
     $      -5.252,  -0.161,   3.653,   6.397,   8.135,
     $       9.178,   9.940,  10.707,  11.691,  13.220,
     $      15.374,  18.280,  21.786,  26.121,  30.974,
     $      36.303,  41.642,  47.803,  54.417,  60.539,
     $      66.408,  71.937,  76.625,  80.735,  84.424,
     $      87.847,  90.279,  92.053,  93.684,  94.710,
     $      95.866,  95.878,  96.736,  96.262,  96.840,
     $     100.000,  96.132,  95.261/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 82, 82) /
     $     -53.339, -55.575, -54.946, -56.816, -57.445,
     $     -57.732, -58.027, -57.913, -58.004, -58.006,
     $     -57.948, -57.704, -57.300, -56.643, -55.439,
     $     -53.328, -49.323, -41.878, -28.338,  -8.850,
     $      11.266,  25.513,  34.673,  39.982,  43.047,
     $      44.416,  44.206,  42.163,  37.540,  29.393,
     $      17.435,   3.426,  -9.458, -19.454, -26.355,
     $     -31.133, -34.337, -36.242, -36.909, -36.216,
     $     -33.884, -29.857, -24.233, -17.586, -10.850,
     $      -4.778,   0.315,   4.087,   6.743,   8.341,
     $       9.203,   9.743,  10.250,  10.970,  12.238,
     $      14.158,  16.864,  20.218,  24.429,  29.198,
     $      34.473,  39.798,  45.963,  52.601,  58.769,
     $      64.709,  70.327,  75.101,  79.313,  83.110,
     $      86.635,  89.177,  91.049,  92.775,  93.893,
     $      95.128,  95.217,  96.144,  95.731,  96.366,
     $      96.132, 100.000,  94.941/
      DATA ((CP2PZ     ( I, J), I=1, 83),J= 83, 83) /
     $     -54.080, -56.341, -55.696, -57.584, -58.212,
     $     -58.493, -58.779, -58.649, -58.724, -58.705,
     $     -58.621, -58.342, -57.893, -57.176, -55.887,
     $     -53.655, -49.470, -41.761, -27.854,  -7.981,
     $      12.408,  26.767,  35.947,  41.233,  44.253,
     $      45.556,  45.258,  43.097,  38.310,  29.940,
     $      17.705,   3.412,  -9.699, -19.839, -26.807,
     $     -31.594, -34.763, -36.598, -37.166, -36.345,
     $     -33.866, -29.680, -23.905, -17.133, -10.316,
     $      -4.212,   0.862,   4.571,   7.115,   8.546,
     $       9.195,   9.475,   9.680,  10.093,  11.054,
     $      12.696,  15.161,  18.324,  22.376,  27.029,
     $      32.219,  37.507,  43.652,  50.290,  56.487,
     $      62.482,  68.181,  73.034,  77.348,  81.255,
     $      84.883,  87.541,  89.520,  91.347,  92.568,
     $      93.889,  94.067,  95.069,  94.728,  95.427,
     $      95.261,  94.941, 100.000/
C                        
      RETURN             
      END                
C----------------------------------------------------------------------)
C----------------------------------------------------------------------)
C                                                                      )
C pi 3pi0                                                              )
C----------------------------------------------------------------------)
      SUBROUTINE SP_P3PZ 
C                        
      IMPLICIT NONE      
C                        
      INTEGER I,J        
C                        
      REAL SP3PZ     ( 70)
      DATA SP3PZ      /
     $       0.880,   0.912,   0.944,   0.976,   1.008,
     $       1.040,   1.072,   1.104,   1.136,   1.168,
     $       1.200,   1.232,   1.264,   1.296,   1.328,
     $       1.360,   1.392,   1.424,   1.456,   1.488,
     $       1.520,   1.552,   1.584,   1.616,   1.648,
     $       1.680,   1.712,   1.744,   1.776,   1.808,
     $       1.840,   1.872,   1.904,   1.936,   1.968,
     $       2.000,   2.032,   2.064,   2.096,   2.128,
     $       2.160,   2.192,   2.224,   2.256,   2.288,
     $       2.320,   2.352,   2.384,   2.416,   2.448,
     $       2.480,   2.512,   2.544,   2.576,   2.608,
     $       2.640,   2.672,   2.704,   2.736,   2.768,
     $       2.800,   2.832,   2.864,   2.896,   2.928,
     $       2.960,   2.992,   3.024,   3.056,   3.088/
C                        
C                        
      REAL VP3PZ     ( 70)
      DATA VP3PZ      /
     $     0.000032, 0.000080, 0.000226, 0.000367, 0.000507,
     $     0.000608, 0.000880, 0.001349, 0.001745, 0.002387,
     $     0.003146, 0.003663, 0.004841, 0.005566, 0.005817,
     $     0.007139, 0.008376, 0.008496, 0.009489, 0.011000,
     $     0.013105, 0.014731, 0.016894, 0.019286, 0.023566,
     $     0.023860, 0.030556, 0.040369, 0.050875, 0.062443,
     $     0.068167, 0.078738, 0.096702, 0.102018, 0.119932,
     $     0.134998, 0.141523, 0.154439, 0.155408, 0.164579,
     $     0.176951, 0.185894, 0.185318, 0.172628, 0.205077,
     $     0.206544, 0.190968, 0.206608, 0.207407, 0.193029,
     $     0.227408, 0.211578, 0.217738, 0.224408, 0.207764,
     $     0.199878, 0.227783, 0.243286, 0.204508, 0.187859,
     $     0.225148, 0.191583, 0.165610, 0.145457, 0.163737,
     $     0.169968, 0.182240, 0.104703, 0.027583, 0.153781/
C                        
C                        
      REAL EP3PZ     ( 70)
      DATA EP3PZ      /
     $     0.002750, 0.003162, 0.005555, 0.006681, 0.007116,
     $     0.006900, 0.008249, 0.010680, 0.011920, 0.014085,
     $     0.016153, 0.016503, 0.019246, 0.019549, 0.018333,
     $     0.019966, 0.020781, 0.018798, 0.018706, 0.019226,
     $     0.020415, 0.020319, 0.020607, 0.020740, 0.022138,
     $     0.019456, 0.021442, 0.024166, 0.025578, 0.025766,
     $     0.022679, 0.020218, 0.018397, 0.013579, 0.011276,
     $     0.011906, 0.016362, 0.023953, 0.030676, 0.039500,
     $     0.049628, 0.059472, 0.066167, 0.067607, 0.087349,
     $     0.094484, 0.093347, 0.106942, 0.112966, 0.110286,
     $     0.135476, 0.131075, 0.139737, 0.149130, 0.142265,
     $     0.140830, 0.164947, 0.180387, 0.155527, 0.146030,
     $     0.178683, 0.155684, 0.137477, 0.123569, 0.141674,
     $     0.150476, 0.164438, 0.099124, 0.036904, 0.176870/
C                        
C                        
      REAL CP3PZ     ( 70, 70)
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  1,  1) /
     $     100.000,  99.997,  99.990,  99.979,  99.963,
     $      99.941,  99.914,  99.881,  99.842,  99.794,
     $      99.734,  99.664,  99.582,  99.483,  99.377,
     $      99.244,  99.083,  98.897,  98.681,  98.421,
     $      98.134,  97.782,  97.375,  96.896,  96.318,
     $      95.577,  94.706,  93.639,  92.218,  90.197,
     $      87.305,  82.536,  74.182,  55.730,  13.370,
     $     -50.290, -85.492, -95.618, -98.426, -99.219,
     $     -99.261, -99.041, -98.676, -98.243, -97.919,
     $     -97.547, -97.135, -96.796, -96.462, -96.092,
     $     -95.833, -95.520, -95.231, -94.937, -94.630,
     $     -94.339, -94.104, -93.918, -93.519, -93.186,
     $     -93.038, -92.464, -91.984, -91.317, -90.956,
     $     -90.170, -89.492, -86.460, -61.556, -72.802/
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  2,  2) /
     $      99.997, 100.000,  99.995,  99.988,  99.976,
     $      99.959,  99.936,  99.908,  99.874,  99.830,
     $      99.776,  99.711,  99.636,  99.543,  99.443,
     $      99.318,  99.164,  98.987,  98.779,  98.529,
     $      98.252,  97.911,  97.515,  97.049,  96.486,
     $      95.761,  94.909,  93.863,  92.468,  90.479,
     $      87.627,  82.915,  74.641,  56.309,  14.081,
     $     -49.647, -85.092, -95.384, -98.293, -99.151,
     $     -99.237, -99.051, -98.711, -98.298, -97.990,
     $     -97.633, -97.233, -96.904, -96.580, -96.218,
     $     -95.966, -95.660, -95.377, -95.088, -94.786,
     $     -94.500, -94.270, -94.088, -93.693, -93.363,
     $     -93.218, -92.646, -92.169, -91.503, -91.145,
     $     -90.360, -89.683, -86.646, -61.689, -72.962/
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  3,  3) /
     $      99.990,  99.995, 100.000,  99.994,  99.987,
     $      99.974,  99.956,  99.933,  99.904,  99.867,
     $      99.818,  99.760,  99.691,  99.605,  99.512,
     $      99.394,  99.250,  99.081,  98.883,  98.643,
     $      98.377,  98.048,  97.665,  97.213,  96.665,
     $      95.958,  95.125,  94.102,  92.734,  90.779,
     $      87.969,  83.315,  75.124,  56.915,  14.820,
     $     -48.987, -84.687, -95.155, -98.168, -99.095,
     $     -99.227, -99.075, -98.762, -98.369, -98.080,
     $     -97.737, -97.350, -97.033, -96.718, -96.365,
     $     -96.122, -95.822, -95.546, -95.264, -94.967,
     $     -94.686, -94.461, -94.283, -93.891, -93.565,
     $     -93.424, -92.855, -92.380, -91.716, -91.360,
     $     -90.576, -89.899, -86.858, -61.840, -73.143/
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  4,  4) /
     $      99.979,  99.988,  99.994, 100.000,  99.992,
     $      99.983,  99.969,  99.951,  99.926,  99.893,
     $      99.850,  99.797,  99.734,  99.654,  99.566,
     $      99.455,  99.318,  99.156,  98.966,  98.735,
     $      98.478,  98.159,  97.786,  97.345,  96.811,
     $      96.117,  95.300,  94.295,  92.947,  91.018,
     $      88.238,  83.627,  75.494,  57.370,  15.358,
     $     -48.525, -84.423, -95.021, -98.113, -99.090,
     $     -99.257, -99.131, -98.838, -98.461, -98.186,
     $     -97.854, -97.478, -97.169, -96.862, -96.516,
     $     -96.279, -95.985, -95.714, -95.437, -95.144,
     $     -94.867, -94.646, -94.471, -94.083, -93.759,
     $     -93.622, -93.054, -92.582, -91.919, -91.564,
     $     -90.781, -90.105, -87.059, -61.984, -73.315/
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  5,  5) /
     $      99.963,  99.976,  99.987,  99.992, 100.000,
     $      99.988,  99.979,  99.966,  99.946,  99.919,
     $      99.882,  99.834,  99.777,  99.704,  99.623,
     $      99.520,  99.390,  99.237,  99.056,  98.835,
     $      98.588,  98.280,  97.919,  97.491,  96.971,
     $      96.293,  95.494,  94.509,  93.185,  91.285,
     $      88.541,  83.980,  75.916,  57.893,  15.984,
     $     -47.981, -84.104, -94.853, -98.035, -99.071,
     $     -99.278, -99.182, -98.912, -98.553, -98.294,
     $     -97.976, -97.611, -97.312, -97.014, -96.675,
     $     -96.446, -96.159, -95.893, -95.622, -95.335,
     $     -95.062, -94.846, -94.675, -94.291, -93.970,
     $     -93.836, -93.271, -92.800, -92.139, -91.786,
     $     -91.004, -90.328, -87.277, -62.139, -73.501/
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  6,  6) /
     $      99.941,  99.959,  99.974,  99.983,  99.988,
     $     100.000,  99.985,  99.976,  99.961,  99.940,
     $      99.908,  99.867,  99.816,  99.750,  99.675,
     $      99.579,  99.458,  99.314,  99.142,  98.931,
     $      98.694,  98.397,  98.049,  97.633,  97.128,
     $      96.466,  95.685,  94.720,  93.420,  91.550,
     $      88.843,  84.331,  76.338,  58.417,  16.613,
     $     -47.429, -83.778, -94.679, -97.951, -99.046,
     $     -99.294, -99.228, -98.981, -98.641, -98.398,
     $     -98.093, -97.739, -97.451, -97.161, -96.831,
     $     -96.609, -96.329, -96.069, -95.804, -95.521,
     $     -95.253, -95.042, -94.875, -94.494, -94.177,
     $     -94.047, -93.483, -93.015, -92.356, -92.005,
     $     -91.224, -90.548, -87.492, -62.293, -73.685/
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  7,  7) /
     $      99.914,  99.936,  99.956,  99.969,  99.979,
     $      99.985, 100.000,  99.983,  99.973,  99.957,
     $      99.932,  99.898,  99.854,  99.795,  99.727,
     $      99.640,  99.527,  99.392,  99.230,  99.030,
     $      98.804,  98.519,  98.184,  97.783,  97.293,
     $      96.649,  95.888,  94.945,  93.671,  91.834,
     $      89.167,  84.711,  76.796,  58.989,  17.307,
     $     -46.816, -83.409, -94.476, -97.847, -99.008,
     $     -99.299, -99.268, -99.046, -98.726, -98.500,
     $     -98.210, -97.869, -97.592, -97.312, -96.991,
     $     -96.777, -96.503, -96.251, -95.992, -95.715,
     $     -95.452, -95.245, -95.083, -94.706, -94.392,
     $     -94.266, -93.705, -93.239, -92.582, -92.233,
     $     -91.453, -90.778, -87.717, -62.454, -73.878/
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  8,  8) /
     $      99.881,  99.908,  99.933,  99.951,  99.966,
     $      99.976,  99.983, 100.000,  99.981,  99.971,
     $      99.952,  99.924,  99.887,  99.835,  99.774,
     $      99.695,  99.592,  99.465,  99.313,  99.124,
     $      98.909,  98.636,  98.314,  97.927,  97.453,
     $      96.826,  96.084,  95.163,  93.915,  92.109,
     $      89.480,  85.077,  77.236,  59.536,  17.963,
     $     -46.241, -83.070, -94.295, -97.762, -98.985,
     $     -99.318, -99.319, -99.122, -98.821, -98.612,
     $     -98.336, -98.008, -97.742, -97.471, -97.158,
     $     -96.952, -96.686, -96.439, -96.187, -95.915,
     $     -95.657, -95.456, -95.298, -94.925, -94.614,
     $     -94.492, -93.934, -93.470, -92.815, -92.468,
     $     -91.689, -91.014, -87.948, -62.619, -74.076/
      DATA ((CP3PZ     ( I, J), I=1, 70),J=  9,  9) /
     $      99.842,  99.874,  99.904,  99.926,  99.946,
     $      99.961,  99.973,  99.981, 100.000,  99.978,
     $      99.966,  99.944,  99.914,  99.871,  99.817,
     $      99.746,  99.652,  99.534,  99.392,  99.214,
     $      99.010,  98.750,  98.441,  98.068,  97.610,
     $      97.001,  96.279,  95.381,  94.159,  92.387,
     $      89.798,  85.452,  77.689,  60.106,  18.658,
     $     -45.623, -82.695, -94.085, -97.652, -98.940,
     $     -99.318, -99.352, -99.181, -98.900, -98.710,
     $     -98.448, -98.133, -97.878, -97.617, -97.313,
     $     -97.115, -96.856, -96.617, -96.371, -96.104,
     $     -95.851, -95.655, -95.502, -95.133, -94.825,
     $     -94.708, -94.152, -93.691, -93.037, -92.693,
     $     -91.915, -91.241, -88.170, -62.777, -74.266/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 10, 10) /
     $      99.794,  99.830,  99.867,  99.893,  99.919,
     $      99.940,  99.957,  99.971,  99.978, 100.000,
     $      99.976,  99.961,  99.939,  99.904,  99.857,
     $      99.796,  99.712,  99.604,  99.473,  99.307,
     $      99.116,  98.870,  98.575,  98.218,  97.777,
     $      97.188,  96.488,  95.614,  94.422,  92.686,
     $      90.140,  85.855,  78.178,  60.719,  19.405,
     $     -44.958, -82.291, -93.861, -97.535, -98.894,
     $     -99.320, -99.390, -99.247, -98.988, -98.817,
     $     -98.571, -98.270, -98.028, -97.778, -97.484,
     $     -97.295, -97.044, -96.811, -96.573, -96.312,
     $     -96.065, -95.874, -95.727, -95.362, -95.058,
     $     -94.944, -94.392, -93.934, -93.282, -92.940,
     $     -92.164, -91.490, -88.414, -62.951, -74.474/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 11, 11) /
     $      99.734,  99.776,  99.818,  99.850,  99.882,
     $      99.908,  99.932,  99.952,  99.966,  99.976,
     $     100.000,  99.971,  99.957,  99.930,  99.893,
     $      99.841,  99.767,  99.671,  99.552,  99.398,
     $      99.220,  98.988,  98.709,  98.369,  97.947,
     $      97.379,  96.702,  95.855,  94.694,  92.997,
     $      90.499,  86.280,  78.695,  61.374,  20.209,
     $     -44.234, -81.845, -93.606, -97.396, -98.830,
     $     -99.308, -99.418, -99.305, -99.069, -98.919,
     $     -98.690, -98.405, -98.175, -97.937, -97.653,
     $     -97.474, -97.231, -97.007, -96.776, -96.522,
     $     -96.281, -96.096, -95.954, -95.593, -95.294,
     $     -95.185, -94.636, -94.181, -93.531, -93.192,
     $     -92.417, -91.744, -88.663, -63.129, -74.688/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 12, 12) /
     $      99.664,  99.711,  99.760,  99.797,  99.834,
     $      99.867,  99.898,  99.924,  99.944,  99.961,
     $      99.971, 100.000,  99.967,  99.949,  99.920,
     $      99.878,  99.816,  99.731,  99.624,  99.484,
     $      99.319,  99.102,  98.839,  98.516,  98.114,
     $      97.567,  96.914,  96.094,  94.966,  93.308,
     $      90.859,  86.707,  79.217,  62.036,  21.024,
     $     -43.498, -81.391, -93.345, -97.252, -98.764,
     $     -99.294, -99.444, -99.361, -99.150, -99.022,
     $     -98.810, -98.540, -98.324, -98.097, -97.825,
     $     -97.655, -97.422, -97.205, -96.982, -96.734,
     $     -96.500, -96.321, -96.184, -95.829, -95.534,
     $     -95.430, -94.884, -94.432, -93.785, -93.448,
     $     -92.675, -92.003, -88.916, -63.310, -74.905/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 13, 13) /
     $      99.582,  99.636,  99.691,  99.734,  99.777,
     $      99.816,  99.854,  99.887,  99.914,  99.939,
     $      99.957,  99.967, 100.000,  99.962,  99.942,
     $      99.910,  99.860,  99.786,  99.692,  99.566,
     $      99.416,  99.215,  98.969,  98.664,  98.282,
     $      97.757,  97.131,  96.340,  95.245,  93.630,
     $      91.232,  87.152,  79.763,  62.732,  21.887,
     $     -42.713, -80.900, -93.058, -97.089, -98.682,
     $     -99.269, -99.461, -99.410, -99.225, -99.119,
     $     -98.925, -98.672, -98.470, -98.256, -97.995,
     $     -97.836, -97.612, -97.404, -97.189, -96.948,
     $     -96.720, -96.549, -96.418, -96.067, -95.776,
     $     -95.678, -95.135, -94.687, -94.043, -93.709,
     $     -92.937, -92.265, -89.174, -63.494, -75.126/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 14, 14) /
     $      99.483,  99.543,  99.605,  99.654,  99.704,
     $      99.750,  99.795,  99.835,  99.871,  99.904,
     $      99.930,  99.949,  99.962, 100.000,  99.954,
     $      99.934,  99.896,  99.835,  99.754,  99.644,
     $      99.509,  99.325,  99.098,  98.812,  98.453,
     $      97.952,  97.354,  96.593,  95.535,  93.966,
     $      91.624,  87.622,  80.343,  63.475,  22.814,
     $     -41.863, -80.362, -92.740, -96.903, -98.584,
     $     -99.231, -99.468, -99.453, -99.295, -99.213,
     $     -99.040, -98.804, -98.618, -98.417, -98.169,
     $     -98.021, -97.807, -97.608, -97.402, -97.169,
     $     -96.948, -96.784, -96.659, -96.314, -96.028,
     $     -95.936, -95.397, -94.952, -94.310, -93.980,
     $     -93.210, -92.539, -89.442, -63.686, -75.356/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 15, 15) /
     $      99.377,  99.443,  99.512,  99.566,  99.623,
     $      99.675,  99.727,  99.774,  99.817,  99.857,
     $      99.893,  99.920,  99.942,  99.954, 100.000,
     $      99.943,  99.917,  99.868,  99.801,  99.705,
     $      99.584,  99.417,  99.206,  98.939,  98.601,
     $      98.124,  97.551,  96.820,  95.797,  94.272,
     $      91.983,  88.055,  80.881,  64.170,  23.688,
     $     -41.052, -79.842, -92.425, -96.714, -98.478,
     $     -99.181, -99.461, -99.479, -99.347, -99.289,
     $     -99.134, -98.916, -98.744, -98.556, -98.319,
     $     -98.182, -97.977, -97.787, -97.590, -97.364,
     $     -97.150, -96.992, -96.874, -96.534, -96.253,
     $     -96.166, -95.630, -95.189, -94.551, -94.223,
     $     -93.455, -92.786, -89.684, -63.859, -75.564/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 16, 16) /
     $      99.244,  99.318,  99.394,  99.455,  99.520,
     $      99.579,  99.640,  99.695,  99.746,  99.796,
     $      99.841,  99.878,  99.910,  99.934,  99.943,
     $     100.000,  99.935,  99.901,  99.848,  99.769,
     $      99.666,  99.518,  99.328,  99.083,  98.769,
     $      98.319,  97.778,  97.082,  96.100,  94.625,
     $      92.399,  88.558,  81.506,  64.980,  24.709,
     $     -40.104, -79.233, -92.056, -96.492, -98.352,
     $     -99.121, -99.452, -99.509, -99.407, -99.376,
     $     -99.244, -99.045, -98.891, -98.718, -98.495,
     $     -98.370, -98.177, -97.997, -97.810, -97.593,
     $     -97.387, -97.237, -97.125, -96.792, -96.517,
     $     -96.436, -95.905, -95.468, -94.833, -94.509,
     $     -93.743, -93.075, -89.968, -64.061, -75.808/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 17, 17) /
     $      99.083,  99.164,  99.250,  99.318,  99.390,
     $      99.458,  99.527,  99.592,  99.652,  99.712,
     $      99.767,  99.816,  99.860,  99.896,  99.917,
     $      99.935, 100.000,  99.919,  99.883,  99.823,
     $      99.738,  99.611,  99.443,  99.222,  98.936,
     $      98.516,  98.008,  97.350,  96.414,  94.995,
     $      92.837,  89.094,  82.179,  65.859,  25.829,
     $     -39.049, -78.543, -91.628, -96.224, -98.190,
     $     -99.032, -99.419, -99.518, -99.450, -99.449,
     $     -99.341, -99.164, -99.028, -98.872, -98.664,
     $     -98.553, -98.372, -98.204, -98.028, -97.820,
     $     -97.622, -97.482, -97.378, -97.052, -96.782,
     $     -96.708, -96.182, -95.750, -95.118, -94.798,
     $     -94.036, -93.369, -90.256, -64.268, -76.056/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 18, 18) /
     $      98.897,  98.987,  99.081,  99.156,  99.237,
     $      99.314,  99.392,  99.465,  99.534,  99.604,
     $      99.671,  99.731,  99.786,  99.835,  99.868,
     $      99.901,  99.919, 100.000,  99.897,  99.856,
     $      99.790,  99.684,  99.539,  99.343,  99.084,
     $      98.695,  98.222,  97.603,  96.712,  95.351,
     $      93.263,  89.618,  82.841,  66.732,  26.952,
     $     -37.982, -77.837, -91.183, -95.940, -98.013,
     $     -98.928, -99.371, -99.513, -99.479, -99.508,
     $     -99.424, -99.270, -99.153, -99.013, -98.822,
     $     -98.724, -98.556, -98.399, -98.234, -98.036,
     $     -97.848, -97.716, -97.620, -97.301, -97.038,
     $     -96.971, -96.450, -96.022, -95.395, -95.079,
     $     -94.320, -93.654, -90.537, -64.468, -76.297/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 19, 19) /
     $      98.681,  98.779,  98.883,  98.966,  99.056,
     $      99.142,  99.230,  99.313,  99.392,  99.473,
     $      99.552,  99.624,  99.692,  99.754,  99.801,
     $      99.848,  99.883,  99.897, 100.000,  99.876,
     $      99.831,  99.749,  99.628,  99.458,  99.230,
     $      98.873,  98.438,  97.861,  97.020,  95.722,
     $      93.711,  90.173,  83.549,  67.673,  28.173,
     $     -36.810, -77.051, -90.679, -95.610, -97.799,
     $     -98.795, -99.298, -99.486, -99.490, -99.551,
     $     -99.495, -99.365, -99.269, -99.147, -98.972,
     $     -98.890, -98.735, -98.591, -98.438, -98.250,
     $     -98.072, -97.950, -97.863, -97.552, -97.295,
     $     -97.236, -96.720, -96.298, -95.675, -95.364,
     $     -94.608, -93.944, -90.822, -64.672, -76.543/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 20, 20) /
     $      98.421,  98.529,  98.643,  98.735,  98.835,
     $      98.931,  99.030,  99.124,  99.214,  99.307,
     $      99.398,  99.484,  99.566,  99.644,  99.705,
     $      99.769,  99.823,  99.856,  99.876, 100.000,
     $      99.855,  99.798,  99.705,  99.564,  99.369,
     $      99.049,  98.655,  98.125,  97.339,  96.110,
     $      94.183,  90.765,  84.310,  68.693,  29.507,
     $     -35.517, -76.174, -90.110, -95.232, -97.548,
     $     -98.630, -99.200, -99.440, -99.484, -99.582,
     $     -99.555, -99.451, -99.378, -99.277, -99.121,
     $     -99.055, -98.916, -98.785, -98.646, -98.470,
     $     -98.302, -98.191, -98.113, -97.811, -97.562,
     $     -97.511, -97.002, -96.586, -95.968, -95.662,
     $     -94.910, -94.247, -91.122, -64.886, -76.801/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 21, 21) /
     $      98.134,  98.252,  98.377,  98.478,  98.588,
     $      98.694,  98.804,  98.909,  99.010,  99.116,
     $      99.220,  99.319,  99.416,  99.509,  99.584,
     $      99.666,  99.738,  99.790,  99.831,  99.855,
     $     100.000,  99.826,  99.761,  99.650,  99.488,
     $      99.206,  98.855,  98.372,  97.644,  96.485,
     $      94.646,  91.351,  85.071,  69.725,  30.874,
     $     -34.175, -75.250, -89.498, -94.815, -97.261,
     $     -98.433, -99.071, -99.364, -99.450, -99.584,
     $     -99.587, -99.511, -99.462, -99.381, -99.244,
     $     -99.195, -99.072, -98.955, -98.830, -98.665,
     $     -98.509, -98.409, -98.341, -98.047, -97.806,
     $     -97.764, -97.262, -96.852, -96.239, -95.938,
     $     -95.190, -94.530, -91.401, -65.085, -77.043/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 22, 22) /
     $      97.782,  97.911,  98.048,  98.159,  98.280,
     $      98.397,  98.519,  98.636,  98.750,  98.870,
     $      98.988,  99.102,  99.215,  99.325,  99.417,
     $      99.518,  99.611,  99.684,  99.749,  99.798,
     $      99.826, 100.000,  99.789,  99.712,  99.588,
     $      99.347,  99.043,  98.613,  97.948,  96.868,
     $      95.126,  91.967,  85.883,  70.838,  32.366,
     $     -32.691, -74.214, -88.801, -94.331, -96.919,
     $     -98.189, -98.903, -99.253, -99.385, -99.560,
     $     -99.597, -99.551, -99.528, -99.470, -99.354,
     $     -99.324, -99.218, -99.117, -99.008, -98.856,
     $     -98.712, -98.624, -98.567, -98.284, -98.051,
     $     -98.019, -97.524, -97.121, -96.515, -96.219,
     $     -95.476, -94.819, -91.687, -65.289, -77.290/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 23, 23) /
     $      97.375,  97.515,  97.665,  97.786,  97.919,
     $      98.049,  98.184,  98.314,  98.441,  98.575,
     $      98.709,  98.839,  98.969,  99.098,  99.206,
     $      99.328,  99.443,  99.539,  99.628,  99.705,
     $      99.761,  99.789, 100.000,  99.746,  99.662,
     $      99.466,  99.213,  98.840,  98.242,  97.248,
     $      95.610,  92.599,  86.726,  72.011,  33.959,
     $     -31.085, -73.074, -88.021, -93.778, -96.518,
     $     -97.893, -98.687, -99.100, -99.282, -99.500,
     $     -99.573, -99.559, -99.564, -99.530, -99.437,
     $     -99.428, -99.340, -99.256, -99.163, -99.026,
     $     -98.895, -98.821, -98.775, -98.502, -98.279,
     $     -98.257, -97.770, -97.375, -96.776, -96.487,
     $     -95.749, -95.095, -91.961, -65.485, -77.528/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 24, 24) /
     $      96.896,  97.049,  97.213,  97.345,  97.491,
     $      97.633,  97.783,  97.927,  98.068,  98.218,
     $      98.369,  98.516,  98.664,  98.812,  98.939,
     $      99.083,  99.222,  99.343,  99.458,  99.564,
     $      99.650,  99.712,  99.746, 100.000,  99.702,
     $      99.554,  99.356,  99.044,  98.520,  97.617,
     $      96.092,  93.242,  87.599,  73.244,  35.660,
     $     -29.345, -71.820, -87.148, -93.146, -96.049,
     $     -97.537, -98.417, -98.897, -99.131, -99.397,
     $     -99.508, -99.529, -99.564, -99.557, -99.488,
     $     -99.501, -99.433, -99.368, -99.293, -99.170,
     $     -99.054, -98.994, -98.961, -98.700, -98.487,
     $     -98.476, -97.998, -97.612, -97.020, -96.738,
     $     -96.007, -95.355, -92.220, -65.670, -77.754/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 25, 25) /
     $      96.318,  96.486,  96.665,  96.811,  96.971,
     $      97.128,  97.293,  97.453,  97.610,  97.777,
     $      97.947,  98.114,  98.282,  98.453,  98.601,
     $      98.769,  98.936,  99.084,  99.230,  99.369,
     $      99.488,  99.588,  99.662,  99.702, 100.000,
     $      99.618,  99.481,  99.240,  98.799,  98.001,
     $      96.604,  93.936,  88.555,  74.614,  37.573,
     $     -27.363, -70.372, -86.127, -92.397, -95.482,
     $     -97.097, -98.075, -98.630, -98.925, -99.243,
     $     -99.398, -99.459, -99.528, -99.551, -99.510,
     $     -99.547, -99.502, -99.458, -99.403, -99.298,
     $     -99.198, -99.154, -99.136, -98.888, -98.687,
     $     -98.689, -98.221, -97.844, -97.261, -96.987,
     $     -96.264, -95.616, -92.481, -65.857, -77.982/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 26, 26) /
     $      95.577,  95.761,  95.958,  96.117,  96.293,
     $      96.466,  96.649,  96.826,  97.001,  97.188,
     $      97.379,  97.567,  97.757,  97.952,  98.124,
     $      98.319,  98.516,  98.695,  98.873,  99.049,
     $      99.206,  99.347,  99.466,  99.554,  99.618,
     $     100.000,  99.517,  99.352,  99.003,  98.321,
     $      97.068,  94.603,  89.516,  76.042,  39.636,
     $     -25.161, -68.713, -84.921, -91.483, -94.766,
     $     -96.519, -97.603, -98.241, -98.601, -98.978,
     $     -99.181, -99.286, -99.392, -99.447, -99.438,
     $     -99.503, -99.482, -99.461, -99.429, -99.343,
     $     -99.261, -99.235, -99.233, -99.000, -98.812,
     $     -98.829, -98.372, -98.007, -97.434, -97.169,
     $     -96.455, -95.812, -92.681, -65.999, -78.159/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 27, 27) /
     $      94.706,  94.909,  95.125,  95.300,  95.494,
     $      95.685,  95.888,  96.084,  96.279,  96.488,
     $      96.702,  96.914,  97.131,  97.354,  97.551,
     $      97.778,  98.008,  98.222,  98.438,  98.655,
     $      98.855,  99.043,  99.213,  99.356,  99.481,
     $      99.517, 100.000,  99.452,  99.209,  98.660,
     $      97.572,  95.343,  90.597,  77.669,  42.009,
     $     -22.601, -66.767, -83.492, -90.389, -93.900,
     $     -95.811, -97.017, -97.749, -98.186, -98.629,
     $     -98.887, -99.042, -99.191, -99.284, -99.310,
     $     -99.406, -99.415, -99.420, -99.413, -99.350,
     $     -99.289, -99.283, -99.299, -99.083, -98.910,
     $     -98.943, -98.500, -98.148, -97.587, -97.333,
     $     -96.629, -95.993, -92.867, -66.131, -78.326/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 28, 28) /
     $      93.639,  93.863,  94.102,  94.295,  94.509,
     $      94.720,  94.945,  95.163,  95.381,  95.614,
     $      95.855,  96.094,  96.340,  96.593,  96.820,
     $      97.082,  97.350,  97.603,  97.861,  98.125,
     $      98.372,  98.613,  98.840,  99.044,  99.240,
     $      99.352,  99.452, 100.000,  99.350,  98.951,
     $      98.048,  96.083,  91.720,  79.409,  44.607,
     $     -19.744, -64.554, -81.840, -89.104, -92.865,
     $     -94.950, -96.291, -97.129, -97.649, -98.167,
     $     -98.486, -98.697, -98.894, -99.029, -99.095,
     $     -99.226, -99.267, -99.302, -99.324, -99.285,
     $     -99.247, -99.265, -99.301, -99.105, -98.950,
     $     -99.001, -98.573, -98.236, -97.689, -97.447,
     $     -96.756, -96.126, -93.009, -66.233, -78.456/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 29, 29) /
     $      92.218,  92.468,  92.734,  92.947,  93.185,
     $      93.420,  93.671,  93.915,  94.159,  94.422,
     $      94.694,  94.966,  95.245,  95.535,  95.797,
     $      96.100,  96.414,  96.712,  97.020,  97.339,
     $      97.644,  97.948,  98.242,  98.520,  98.799,
     $      99.003,  99.209,  99.350, 100.000,  99.148,
     $      98.467,  96.821,  92.923,  81.370,  47.648,
     $     -16.294, -61.807, -79.737, -87.429, -91.483,
     $     -93.775, -95.276, -96.238, -96.858, -97.463,
     $     -97.856, -98.133, -98.387, -98.573, -98.686,
     $     -98.859, -98.938, -99.008, -99.065, -99.057,
     $     -99.047, -99.092, -99.153, -98.980, -98.846,
     $     -98.918, -98.511, -98.192, -97.663, -97.435,
     $     -96.761, -96.140, -93.038, -66.252, -78.493/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 30, 30) /
     $      90.197,  90.479,  90.779,  91.018,  91.285,
     $      91.550,  91.834,  92.109,  92.387,  92.686,
     $      92.997,  93.308,  93.630,  93.966,  94.272,
     $      94.625,  94.995,  95.351,  95.722,  96.110,
     $      96.485,  96.868,  97.248,  97.617,  98.001,
     $      98.321,  98.660,  98.951,  99.148, 100.000,
     $      98.759,  97.521,  94.222,  83.656,  51.387,
     $     -11.881, -58.174, -76.876, -85.091, -89.508,
     $     -92.054, -93.754, -94.871, -95.616, -96.331,
     $     -96.815, -97.176, -97.502, -97.751, -97.924,
     $     -98.150, -98.277, -98.392, -98.492, -98.522,
     $     -98.547, -98.628, -98.718, -98.577, -98.468,
     $     -98.569, -98.187, -97.893, -97.387, -97.178,
     $     -96.527, -95.918, -92.844, -66.113, -78.344/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 31, 31) /
     $      87.305,  87.627,  87.969,  88.238,  88.541,
     $      88.843,  89.167,  89.480,  89.798,  90.140,
     $      90.499,  90.859,  91.232,  91.624,  91.983,
     $      92.399,  92.837,  93.263,  93.711,  94.183,
     $      94.646,  95.126,  95.610,  96.092,  96.604,
     $      97.068,  97.572,  98.048,  98.467,  98.759,
     $     100.000,  97.992,  95.451,  86.156,  55.825,
     $      -6.346, -53.420, -73.007, -81.839, -86.688,
     $     -89.541, -91.481, -92.787, -93.685, -94.533,
     $     -95.129, -95.593, -96.007, -96.334, -96.581,
     $     -96.871, -97.058, -97.228, -97.382, -97.459,
     $     -97.529, -97.652, -97.781, -97.678, -97.604,
     $     -97.738, -97.389, -97.127, -96.653, -96.469,
     $     -95.849, -95.258, -92.231, -65.674, -77.844/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 32, 32) /
     $      82.536,  82.915,  83.315,  83.627,  83.980,
     $      84.331,  84.711,  85.077,  85.452,  85.855,
     $      86.280,  86.707,  87.152,  87.622,  88.055,
     $      88.558,  89.094,  89.618,  90.173,  90.765,
     $      91.351,  91.967,  92.599,  93.242,  93.936,
     $      94.603,  95.343,  96.083,  96.821,  97.521,
     $      97.992, 100.000,  96.586,  89.192,  61.869,
     $       1.703, -46.183, -66.918, -76.583, -82.025,
     $     -85.303, -87.577, -89.147, -90.260, -91.296,
     $     -92.050, -92.659, -93.198, -93.635, -93.987,
     $     -94.369, -94.640, -94.890, -95.120, -95.266,
     $     -95.398, -95.584, -95.767, -95.720, -95.695,
     $     -95.878, -95.580, -95.366, -94.940, -94.792,
     $     -94.223, -93.661, -90.723, -64.595, -76.597/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 33, 33) /
     $      74.182,  74.641,  75.124,  75.494,  75.916,
     $      76.338,  76.796,  77.236,  77.689,  78.178,
     $      78.695,  79.217,  79.763,  80.343,  80.881,
     $      81.506,  82.179,  82.841,  83.549,  84.310,
     $      85.071,  85.883,  86.726,  87.599,  88.555,
     $      89.516,  90.597,  91.720,  92.923,  94.222,
     $      95.451,  96.586, 100.000,  92.389,  69.956,
     $      13.672, -34.713, -56.849, -67.612, -73.857,
     $     -77.720, -80.459, -82.400, -83.817, -85.118,
     $     -86.096, -86.913, -87.631, -88.225, -88.730,
     $     -89.242, -89.637, -90.001, -90.342, -90.587,
     $     -90.812, -91.087, -91.348, -91.387, -91.435,
     $     -91.689, -91.470, -91.332, -90.986, -90.894,
     $     -90.409, -89.897, -87.137, -62.034, -73.606/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 34, 34) /
     $      55.730,  56.309,  56.915,  57.370,  57.893,
     $      58.417,  58.989,  59.536,  60.106,  60.719,
     $      61.374,  62.036,  62.732,  63.475,  64.170,
     $      64.980,  65.859,  66.732,  67.673,  68.693,
     $      69.725,  70.838,  72.011,  73.244,  74.614,
     $      76.042,  77.669,  79.409,  81.370,  83.656,
     $      86.156,  89.192,  92.389, 100.000,  80.646,
     $      34.035, -12.783, -36.266, -48.417, -55.759,
     $     -60.455, -63.873, -66.368, -68.248, -69.949,
     $     -71.273, -72.415, -73.411, -74.252, -75.000,
     $     -75.716, -76.307, -76.855, -77.373, -77.782,
     $     -78.158, -78.576, -78.962, -79.148, -79.325,
     $     -79.689, -79.622, -79.624, -79.436, -79.448,
     $     -79.135, -78.737, -76.431, -54.395, -64.627/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 35, 35) /
     $      13.370,  14.081,  14.820,  15.358,  15.984,
     $      16.613,  17.307,  17.963,  18.658,  19.405,
     $      20.209,  21.024,  21.887,  22.814,  23.688,
     $      24.709,  25.829,  26.952,  28.173,  29.507,
     $      30.874,  32.366,  33.959,  35.660,  37.573,
     $      39.636,  42.009,  44.607,  47.648,  51.387,
     $      55.825,  61.869,  69.956,  80.646, 100.000,
     $      66.027,  29.321,   7.008,  -5.801, -14.015,
     $     -19.507, -23.639, -26.761, -29.197, -31.366,
     $     -33.118, -34.676, -36.025, -37.189, -38.264,
     $     -39.244, -40.101, -40.900, -41.662, -42.307,
     $     -42.900, -43.516, -44.070, -44.497, -44.880,
     $     -45.391, -45.611, -45.869, -45.999, -46.198,
     $     -46.251, -46.122, -45.004, -31.990, -38.187/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 36, 36) /
     $     -50.290, -49.647, -48.987, -48.525, -47.981,
     $     -47.429, -46.816, -46.241, -45.623, -44.958,
     $     -44.234, -43.498, -42.713, -41.863, -41.052,
     $     -40.104, -39.049, -37.982, -36.810, -35.517,
     $     -34.175, -32.691, -31.085, -29.345, -27.363,
     $     -25.161, -22.601, -19.744, -16.294, -11.881,
     $      -6.346,   1.703,  13.672,  34.035,  66.027,
     $     100.000,  77.215,  64.545,  55.425,  48.951,
     $      44.327,  40.688,  37.816,  35.482,  33.443,
     $      31.726,  30.148,  28.791,  27.599,  26.453,
     $      25.459,  24.539,  23.678,  22.851,  22.110,
     $      21.427,  20.758,  20.169,  19.560,  19.027,
     $      18.496,  17.955,  17.434,  16.909,  16.521,
     $      15.978,  15.689,  14.755,  10.582,  12.208/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 37, 37) /
     $     -85.492, -85.092, -84.687, -84.423, -84.104,
     $     -83.778, -83.409, -83.070, -82.695, -82.291,
     $     -81.845, -81.391, -80.900, -80.362, -79.842,
     $     -79.233, -78.543, -77.837, -77.051, -76.174,
     $     -75.250, -74.214, -73.074, -71.820, -70.372,
     $     -68.713, -66.767, -64.554, -61.807, -58.174,
     $     -53.420, -46.183, -34.713, -12.783,  29.321,
     $      77.215, 100.000,  90.675,  87.170,  83.990,
     $      81.423,  79.253,  77.431,  75.871,  74.539,
     $      73.360,  72.235,  71.275,  70.414,  69.553,
     $      68.843,  68.148,  67.493,  66.860,  66.263,
     $      65.713,  65.200,  64.758,  64.187,  63.694,
     $      63.304,  62.672,  62.097,  61.417,  60.996,
     $      60.228,  59.697,  57.423,  40.959,  48.262/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 38, 38) /
     $     -95.618, -95.384, -95.155, -95.021, -94.853,
     $     -94.679, -94.476, -94.295, -94.085, -93.861,
     $     -93.606, -93.345, -93.058, -92.740, -92.425,
     $     -92.056, -91.628, -91.183, -90.679, -90.110,
     $     -89.498, -88.801, -88.021, -87.148, -86.127,
     $     -84.921, -83.492, -81.840, -79.737, -76.876,
     $     -73.007, -66.918, -56.849, -36.266,   7.008,
     $      64.545,  90.675, 100.000,  95.309,  94.186,
     $      92.961,  91.783,  90.697,  89.701,  88.875,
     $      88.097,  87.324,  86.669,  86.069,  85.444,
     $      84.955,  84.447,  83.966,  83.499,  83.037,
     $      82.612,  82.233,  81.913,  81.419,  80.996,
     $      80.719,  80.102,  79.556,  78.861,  78.464,
     $      77.653,  77.047,  74.289,  52.960,  62.541/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 39, 39) /
     $     -98.426, -98.293, -98.168, -98.113, -98.035,
     $     -97.951, -97.847, -97.762, -97.652, -97.535,
     $     -97.396, -97.252, -97.089, -96.903, -96.714,
     $     -96.492, -96.224, -95.940, -95.610, -95.232,
     $     -94.815, -94.331, -93.778, -93.146, -92.397,
     $     -91.483, -90.389, -89.104, -87.429, -85.091,
     $     -81.839, -76.583, -67.612, -48.417,  -5.801,
     $      55.425,  87.170,  95.309, 100.000,  97.069,
     $      96.639,  96.057,  95.419,  94.772,  94.257,
     $      93.730,  93.178,  92.716,  92.280,  91.808,
     $      91.459,  91.072,  90.704,  90.345,  89.973,
     $      89.632,  89.339,  89.098,  88.662,  88.292,
     $      88.087,  87.496,  86.983,  86.301,  85.930,
     $      85.118,  84.489,  81.542,  58.119,  68.692/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 40, 40) /
     $     -99.219, -99.151, -99.095, -99.090, -99.071,
     $     -99.046, -99.008, -98.985, -98.940, -98.894,
     $     -98.830, -98.764, -98.682, -98.584, -98.478,
     $     -98.352, -98.190, -98.013, -97.799, -97.548,
     $     -97.261, -96.919, -96.518, -96.049, -95.482,
     $     -94.766, -93.900, -92.865, -91.483, -89.508,
     $     -86.688, -82.025, -73.857, -55.759, -14.015,
     $      48.951,  83.990,  94.186,  97.069, 100.000,
     $      98.001,  97.809,  97.467,  97.052,  96.743,
     $      96.382,  95.980,  95.646,  95.322,  94.953,
     $      94.697,  94.393,  94.101,  93.816,  93.506,
     $      93.222,  92.989,  92.800,  92.406,  92.074,
     $      91.917,  91.351,  90.864,  90.197,  89.847,
     $      89.043,  88.406,  85.367,  60.839,  71.942/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 41, 41) /
     $     -99.261, -99.237, -99.227, -99.257, -99.278,
     $     -99.294, -99.299, -99.318, -99.318, -99.320,
     $     -99.308, -99.294, -99.269, -99.231, -99.181,
     $     -99.121, -99.032, -98.928, -98.795, -98.630,
     $     -98.433, -98.189, -97.893, -97.537, -97.097,
     $     -96.519, -95.811, -94.950, -93.775, -92.054,
     $     -89.541, -85.303, -77.720, -60.455, -19.507,
     $      44.327,  81.423,  92.961,  96.639,  98.001,
     $     100.000,  98.513,  98.374,  98.118,  97.950,
     $      97.704,  97.405,  97.160,  96.913,  96.615,
     $      96.424,  96.178,  95.940,  95.705,  95.439,
     $      95.195,  95.004,  94.852,  94.489,  94.183,
     $      94.061,  93.513,  93.046,  92.393,  92.059,
     $      91.265,  90.625,  87.539,  62.383,  73.791/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 42, 42) /
     $     -99.041, -99.051, -99.075, -99.131, -99.182,
     $     -99.228, -99.268, -99.319, -99.352, -99.390,
     $     -99.418, -99.444, -99.461, -99.468, -99.461,
     $     -99.452, -99.419, -99.371, -99.298, -99.200,
     $     -99.071, -98.903, -98.687, -98.417, -98.075,
     $     -97.603, -97.017, -96.291, -95.276, -93.754,
     $     -91.481, -87.577, -80.459, -63.873, -23.639,
     $      40.688,  79.253,  91.783,  96.057,  97.809,
     $      98.513, 100.000,  98.805,  98.670,  98.610,
     $      98.452,  98.232,  98.056,  97.868,  97.625,
     $      97.484,  97.282,  97.085,  96.890,  96.657,
     $      96.445,  96.285,  96.162,  95.823,  95.539,
     $      95.442,  94.910,  94.460,  93.819,  93.498,
     $      92.712,  92.073,  88.959,  63.392,  75.001/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 43, 43) /
     $     -98.676, -98.711, -98.762, -98.838, -98.912,
     $     -98.981, -99.046, -99.122, -99.181, -99.247,
     $     -99.305, -99.361, -99.410, -99.453, -99.479,
     $     -99.509, -99.518, -99.513, -99.486, -99.440,
     $     -99.364, -99.253, -99.100, -98.897, -98.630,
     $     -98.241, -97.749, -97.129, -96.238, -94.871,
     $     -92.787, -89.147, -82.400, -66.368, -26.761,
     $      37.816,  77.431,  90.697,  95.419,  97.467,
     $      98.374,  98.805, 100.000,  98.897,  98.920,
     $      98.830,  98.671,  98.547,  98.406,  98.206,
     $      98.103,  97.935,  97.770,  97.606,  97.400,
     $      97.212,  97.077,  96.976,  96.656,  96.389,
     $      96.313,  95.794,  95.356,  94.726,  94.416,
     $      93.639,  93.001,  89.871,  64.041,  75.781/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 44, 44) /
     $     -98.243, -98.298, -98.369, -98.461, -98.553,
     $     -98.641, -98.726, -98.821, -98.900, -98.988,
     $     -99.069, -99.150, -99.225, -99.295, -99.347,
     $     -99.407, -99.450, -99.479, -99.490, -99.484,
     $     -99.450, -99.385, -99.282, -99.131, -98.925,
     $     -98.601, -98.186, -97.649, -96.858, -95.616,
     $     -93.685, -90.260, -83.817, -68.248, -29.197,
     $      35.482,  75.871,  89.701,  94.772,  97.052,
     $      98.118,  98.670,  98.897, 100.000,  99.020,
     $      98.983,  98.872,  98.791,  98.686,  98.520,
     $      98.448,  98.308,  98.168,  98.029,  97.844,
     $      97.676,  97.561,  97.477,  97.173,  96.920,
     $      96.859,  96.352,  95.926,  95.305,  95.003,
     $      94.234,  93.599,  90.460,  64.460,  76.287/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 45, 45) /
     $     -97.919, -97.990, -98.080, -98.186, -98.294,
     $     -98.398, -98.500, -98.612, -98.710, -98.817,
     $     -98.919, -99.022, -99.119, -99.213, -99.289,
     $     -99.376, -99.449, -99.508, -99.551, -99.582,
     $     -99.584, -99.560, -99.500, -99.397, -99.243,
     $     -98.978, -98.629, -98.167, -97.463, -96.331,
     $     -94.533, -91.296, -85.118, -69.949, -31.366,
     $      33.443,  74.539,  88.875,  94.257,  96.743,
     $      97.950,  98.610,  98.920,  99.020, 100.000,
     $      99.178,  99.110,  99.066,  98.993,  98.857,
     $      98.812,  98.696,  98.579,  98.462,  98.295,
     $      98.145,  98.047,  97.979,  97.689,  97.448,
     $      97.401,  96.903,  96.487,  95.873,  95.580,
     $      94.817,  94.183,  91.036,  64.870,  76.781/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 46, 46) /
     $     -97.547, -97.633, -97.737, -97.854, -97.976,
     $     -98.093, -98.210, -98.336, -98.448, -98.571,
     $     -98.690, -98.810, -98.925, -99.040, -99.134,
     $     -99.244, -99.341, -99.424, -99.495, -99.555,
     $     -99.587, -99.597, -99.573, -99.508, -99.398,
     $     -99.181, -98.887, -98.486, -97.856, -96.815,
     $     -95.129, -92.050, -86.096, -71.273, -33.118,
     $      31.726,  73.360,  88.097,  93.730,  96.382,
     $      97.704,  98.452,  98.830,  98.983,  99.178,
     $     100.000,  99.196,  99.182,  99.136,  99.026,
     $      99.003,  98.907,  98.809,  98.709,  98.558,
     $      98.422,  98.339,  98.283,  98.005,  97.774,
     $      97.739,  97.250,  96.842,  96.235,  95.948,
     $      95.191,  94.560,  91.409,  65.135,  77.102/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 47, 47) /
     $     -97.135, -97.233, -97.350, -97.478, -97.611,
     $     -97.739, -97.869, -98.008, -98.133, -98.270,
     $     -98.405, -98.540, -98.672, -98.804, -98.916,
     $     -99.045, -99.164, -99.270, -99.365, -99.451,
     $     -99.511, -99.551, -99.559, -99.529, -99.459,
     $     -99.286, -99.042, -98.697, -98.133, -97.176,
     $     -95.593, -92.659, -86.913, -72.415, -34.676,
     $      30.148,  72.235,  87.324,  93.178,  95.980,
     $      97.405,  98.232,  98.671,  98.872,  99.110,
     $      99.196, 100.000,  99.209,  99.187,  99.100,
     $      99.097,  99.019,  98.938,  98.855,  98.718,
     $      98.595,  98.525,  98.482,  98.214,  97.993,
     $      97.968,  97.486,  97.087,  96.487,  96.206,
     $      95.455,  94.827,  91.674,  65.324,  77.332/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 48, 48) /
     $     -96.796, -96.904, -97.033, -97.169, -97.312,
     $     -97.451, -97.592, -97.742, -97.878, -98.028,
     $     -98.175, -98.324, -98.470, -98.618, -98.744,
     $     -98.891, -99.028, -99.153, -99.269, -99.378,
     $     -99.462, -99.528, -99.564, -99.564, -99.528,
     $     -99.392, -99.191, -98.894, -98.387, -97.502,
     $     -96.007, -93.198, -87.631, -73.411, -36.025,
     $      28.791,  71.275,  86.669,  92.716,  95.646,
     $      97.160,  98.056,  98.547,  98.791,  99.066,
     $      99.182,  99.209, 100.000,  99.246,  99.178,
     $      99.192,  99.131,  99.064,  98.995,  98.870,
     $      98.759,  98.700,  98.666,  98.408,  98.195,
     $      98.179,  97.705,  97.312,  96.718,  96.442,
     $      95.696,  95.070,  91.916,  65.496,  77.541/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 49, 49) /
     $     -96.462, -96.580, -96.718, -96.862, -97.014,
     $     -97.161, -97.312, -97.471, -97.617, -97.778,
     $     -97.937, -98.097, -98.256, -98.417, -98.556,
     $     -98.718, -98.872, -99.013, -99.147, -99.277,
     $     -99.381, -99.470, -99.530, -99.557, -99.551,
     $     -99.447, -99.284, -99.029, -98.573, -97.751,
     $     -96.334, -93.635, -88.225, -74.252, -37.189,
     $      27.599,  70.414,  86.069,  92.280,  95.322,
     $      96.913,  97.868,  98.406,  98.686,  98.993,
     $      99.136,  99.187,  99.246, 100.000,  99.212,
     $      99.242,  99.194,  99.140,  99.083,  98.970,
     $      98.868,  98.819,  98.795,  98.544,  98.338,
     $      98.331,  97.862,  97.475,  96.887,  96.616,
     $      95.875,  95.251,  92.096,  65.624,  77.698/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 50, 50) /
     $     -96.092, -96.218, -96.365, -96.516, -96.675,
     $     -96.831, -96.991, -97.158, -97.313, -97.484,
     $     -97.653, -97.825, -97.995, -98.169, -98.319,
     $     -98.495, -98.664, -98.822, -98.972, -99.121,
     $     -99.244, -99.354, -99.437, -99.488, -99.510,
     $     -99.438, -99.310, -99.095, -98.686, -97.924,
     $     -96.581, -93.987, -88.730, -75.000, -38.264,
     $      26.453,  69.553,  85.444,  91.808,  94.953,
     $      96.615,  97.625,  98.206,  98.520,  98.857,
     $      99.026,  99.100,  99.178,  99.212, 100.000,
     $      99.221,  99.186,  99.144,  99.099,  98.996,
     $      98.903,  98.864,  98.848,  98.605,  98.406,
     $      98.406,  97.944,  97.562,  96.979,  96.714,
     $      95.977,  95.355,  92.203,  65.700,  77.792/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 51, 51) /
     $     -95.833, -95.966, -96.122, -96.279, -96.446,
     $     -96.609, -96.777, -96.952, -97.115, -97.295,
     $     -97.474, -97.655, -97.836, -98.021, -98.182,
     $     -98.370, -98.553, -98.724, -98.890, -99.055,
     $     -99.195, -99.324, -99.428, -99.501, -99.547,
     $     -99.503, -99.406, -99.226, -98.859, -98.150,
     $     -96.871, -94.369, -89.242, -75.716, -39.244,
     $      25.459,  68.843,  84.955,  91.459,  94.697,
     $      96.424,  97.484,  98.103,  98.448,  98.812,
     $      99.003,  99.097,  99.192,  99.242,  99.221,
     $     100.000,  99.255,  99.224,  99.189,  99.094,
     $      99.010,  98.979,  98.970,  98.734,  98.541,
     $      98.548,  98.090,  97.714,  97.135,  96.874,
     $      96.141,  95.521,  92.367,  65.818,  77.935/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 52, 52) /
     $     -95.520, -95.660, -95.822, -95.985, -96.159,
     $     -96.329, -96.503, -96.686, -96.856, -97.044,
     $     -97.231, -97.422, -97.612, -97.807, -97.977,
     $     -98.177, -98.372, -98.556, -98.735, -98.916,
     $     -99.072, -99.218, -99.340, -99.433, -99.502,
     $     -99.482, -99.415, -99.267, -98.938, -98.277,
     $     -97.058, -94.640, -89.637, -76.307, -40.101,
     $      24.539,  68.148,  84.447,  91.072,  94.393,
     $      96.178,  97.282,  97.935,  98.308,  98.696,
     $      98.907,  99.019,  99.131,  99.194,  99.186,
     $      99.255, 100.000,  99.221,  99.195,  99.109,
     $      99.032,  99.009,  99.007,  98.777,  98.590,
     $      98.602,  98.150,  97.779,  97.204,  96.947,
     $      96.217,  95.600,  92.448,  65.875,  78.006/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 53, 53) /
     $     -95.231, -95.377, -95.546, -95.714, -95.893,
     $     -96.069, -96.251, -96.439, -96.617, -96.811,
     $     -97.007, -97.205, -97.404, -97.608, -97.787,
     $     -97.997, -98.204, -98.399, -98.591, -98.785,
     $     -98.955, -99.117, -99.256, -99.368, -99.458,
     $     -99.461, -99.420, -99.302, -99.008, -98.392,
     $     -97.228, -94.890, -90.001, -76.855, -40.900,
     $      23.678,  67.493,  83.966,  90.704,  94.101,
     $      95.940,  97.085,  97.770,  98.168,  98.579,
     $      98.809,  98.938,  99.064,  99.140,  99.144,
     $      99.224,  99.221, 100.000,  99.192,  99.113,
     $      99.043,  99.027,  99.031,  98.807,  98.625,
     $      98.643,  98.195,  97.829,  97.258,  97.004,
     $      96.278,  95.663,  92.513,  65.922,  78.064/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 54, 54) /
     $     -94.937, -95.088, -95.264, -95.437, -95.622,
     $     -95.804, -95.992, -96.187, -96.371, -96.573,
     $     -96.776, -96.982, -97.189, -97.402, -97.590,
     $     -97.810, -98.028, -98.234, -98.438, -98.646,
     $     -98.830, -99.008, -99.163, -99.293, -99.403,
     $     -99.429, -99.413, -99.324, -99.065, -98.492,
     $     -97.382, -95.120, -90.342, -77.373, -41.662,
     $      22.851,  66.860,  83.499,  90.345,  93.816,
     $      95.705,  96.890,  97.606,  98.029,  98.462,
     $      98.709,  98.855,  98.995,  99.083,  99.099,
     $      99.189,  99.195,  99.192, 100.000,  99.112,
     $      99.050,  99.040,  99.050,  98.832,  98.655,
     $      98.678,  98.235,  97.873,  97.307,  97.056,
     $      96.334,  95.720,  92.572,  65.964,  78.118/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 55, 55) /
     $     -94.630, -94.786, -94.967, -95.144, -95.335,
     $     -95.521, -95.715, -95.915, -96.104, -96.312,
     $     -96.522, -96.734, -96.948, -97.169, -97.364,
     $     -97.593, -97.820, -98.036, -98.250, -98.470,
     $     -98.665, -98.856, -99.026, -99.170, -99.298,
     $     -99.343, -99.350, -99.285, -99.057, -98.522,
     $     -97.459, -95.266, -90.587, -77.782, -42.307,
     $      22.110,  66.263,  83.037,  89.973,  93.506,
     $      95.439,  96.658,  97.400,  97.844,  98.295,
     $      98.558,  98.718,  98.870,  98.970,  98.996,
     $      99.094,  99.109,  99.113,  99.112, 100.000,
     $      98.990,  98.987,  99.002,  98.789,  98.616,
     $      98.644,  98.206,  97.847,  97.285,  97.037,
     $      96.319,  95.707,  92.562,  65.957,  78.113/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 56, 56) /
     $     -94.339, -94.500, -94.686, -94.867, -95.062,
     $     -95.253, -95.452, -95.657, -95.851, -96.065,
     $     -96.281, -96.500, -96.720, -96.948, -97.150,
     $     -97.387, -97.622, -97.848, -98.072, -98.302,
     $     -98.509, -98.712, -98.895, -99.054, -99.198,
     $     -99.261, -99.289, -99.247, -99.047, -98.547,
     $     -97.529, -95.398, -90.812, -78.158, -42.900,
     $      21.427,  65.713,  82.612,  89.632,  93.222,
     $      95.195,  96.445,  97.212,  97.676,  98.145,
     $      98.422,  98.595,  98.759,  98.868,  98.903,
     $      99.010,  99.033,  99.043,  99.050,  98.990,
     $     100.000,  98.942,  98.962,  98.754,  98.585,
     $      98.618,  98.183,  97.828,  97.269,  97.024,
     $      96.309,  95.700,  92.558,  65.955,  78.112/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 57, 57) /
     $     -94.104, -94.270, -94.461, -94.646, -94.846,
     $     -95.042, -95.245, -95.456, -95.655, -95.874,
     $     -96.096, -96.321, -96.549, -96.784, -96.992,
     $     -97.237, -97.482, -97.716, -97.950, -98.191,
     $     -98.409, -98.624, -98.821, -98.994, -99.154,
     $     -99.235, -99.283, -99.265, -99.092, -98.628,
     $     -97.652, -95.584, -91.087, -78.576, -43.516,
     $      20.758,  65.200,  82.233,  89.339,  92.989,
     $      95.004,  96.285,  97.077,  97.561,  98.047,
     $      98.339,  98.525,  98.700,  98.819,  98.864,
     $      98.979,  99.009,  99.027,  99.040,  98.987,
     $      98.942, 100.000,  98.974,  98.771,  98.606,
     $      98.643,  98.212,  97.860,  97.305,  97.063,
     $      96.351,  95.743,  92.603,  65.987,  78.153/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 58, 58) /
     $     -93.918, -94.088, -94.283, -94.471, -94.675,
     $     -94.875, -95.083, -95.298, -95.502, -95.727,
     $     -95.954, -96.184, -96.418, -96.659, -96.874,
     $     -97.125, -97.378, -97.620, -97.863, -98.113,
     $     -98.341, -98.567, -98.775, -98.961, -99.136,
     $     -99.233, -99.299, -99.301, -99.153, -98.718,
     $     -97.781, -95.767, -91.348, -78.962, -44.070,
     $      20.169,  64.758,  81.913,  89.098,  92.800,
     $      94.852,  96.162,  96.976,  97.477,  97.979,
     $      98.283,  98.482,  98.666,  98.795,  98.848,
     $      98.970,  99.007,  99.031,  99.050,  99.002,
     $      98.962,  98.974, 100.000,  98.804,  98.643,
     $      98.683,  98.255,  97.907,  97.354,  97.114,
     $      96.404,  95.798,  92.659,  66.027,  78.202/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 59, 59) /
     $     -93.519, -93.693, -93.891, -94.083, -94.291,
     $     -94.494, -94.706, -94.925, -95.133, -95.362,
     $     -95.593, -95.829, -96.067, -96.314, -96.534,
     $     -96.792, -97.052, -97.301, -97.552, -97.811,
     $     -98.047, -98.284, -98.502, -98.700, -98.888,
     $     -99.000, -99.083, -99.105, -98.980, -98.577,
     $     -97.678, -95.720, -91.387, -79.148, -44.497,
     $      19.560,  64.187,  81.419,  88.662,  92.406,
     $      94.489,  95.823,  96.656,  97.173,  97.689,
     $      98.005,  98.214,  98.408,  98.544,  98.605,
     $      98.734,  98.777,  98.807,  98.832,  98.789,
     $      98.754,  98.771,  98.804, 100.000,  98.452,
     $      98.495,  98.072,  97.727,  97.178,  96.942,
     $      96.236,  95.632,  92.500,  65.914,  78.071/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 60, 60) /
     $     -93.186, -93.363, -93.565, -93.759, -93.970,
     $     -94.177, -94.392, -94.614, -94.825, -95.058,
     $     -95.294, -95.534, -95.776, -96.028, -96.253,
     $     -96.517, -96.782, -97.038, -97.295, -97.562,
     $     -97.806, -98.051, -98.279, -98.487, -98.687,
     $     -98.812, -98.910, -98.950, -98.846, -98.468,
     $     -97.604, -95.695, -91.435, -79.325, -44.880,
     $      19.027,  63.694,  80.996,  88.292,  92.074,
     $      94.183,  95.539,  96.389,  96.920,  97.448,
     $      97.774,  97.993,  98.195,  98.338,  98.406,
     $      98.541,  98.590,  98.625,  98.655,  98.616,
     $      98.585,  98.606,  98.643,  98.452, 100.000,
     $      98.345,  97.924,  97.583,  97.037,  96.803,
     $      96.101,  95.500,  92.374,  65.824,  77.967/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 61, 61) /
     $     -93.038, -93.218, -93.424, -93.622, -93.836,
     $     -94.047, -94.266, -94.492, -94.708, -94.944,
     $     -95.185, -95.430, -95.678, -95.936, -96.166,
     $     -96.436, -96.708, -96.971, -97.236, -97.511,
     $     -97.764, -98.019, -98.257, -98.476, -98.689,
     $     -98.828, -98.943, -99.001, -98.918, -98.569,
     $     -97.738, -95.878, -91.689, -79.689, -45.391,
     $      18.496,  63.304,  80.719,  88.087,  91.917,
     $      94.061,  95.442,  96.313,  96.859,  97.401,
     $      97.739,  97.968,  98.179,  98.331,  98.406,
     $      98.548,  98.602,  98.643,  98.678,  98.644,
     $      98.618,  98.643,  98.683,  98.495,  98.345,
     $     100.000,  97.977,  97.639,  97.095,  96.864,
     $      96.163,  95.563,  92.438,  65.870,  78.023/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 62, 62) /
     $     -92.464, -92.646, -92.855, -93.054, -93.271,
     $     -93.483, -93.705, -93.934, -94.152, -94.392,
     $     -94.636, -94.884, -95.135, -95.397, -95.630,
     $     -95.905, -96.182, -96.450, -96.720, -97.002,
     $     -97.262, -97.524, -97.770, -97.998, -98.221,
     $     -98.372, -98.500, -98.573, -98.511, -98.187,
     $     -97.389, -95.580, -91.470, -79.622, -45.611,
     $      17.955,  62.672,  80.102,  87.496,  91.351,
     $      93.513,  94.910,  95.794,  96.352,  96.903,
     $      97.250,  97.486,  97.705,  97.862,  97.944,
     $      98.090,  98.150,  98.195,  98.235,  98.206,
     $      98.183,  98.212,  98.255,  98.072,  97.924,
     $      97.977, 100.000,  97.229,  96.690,  96.462,
     $      95.766,  95.170,  92.060,  65.601,  77.705/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 63, 63) /
     $     -91.984, -92.169, -92.380, -92.582, -92.800,
     $     -93.015, -93.239, -93.470, -93.691, -93.934,
     $     -94.181, -94.432, -94.687, -94.952, -95.189,
     $     -95.468, -95.750, -96.022, -96.298, -96.586,
     $     -96.852, -97.121, -97.375, -97.612, -97.844,
     $     -98.007, -98.148, -98.236, -98.192, -97.893,
     $     -97.127, -95.366, -91.332, -79.624, -45.869,
     $      17.434,  62.097,  79.556,  86.983,  90.864,
     $      93.046,  94.460,  95.357,  95.926,  96.487,
     $      96.842,  97.087,  97.312,  97.475,  97.562,
     $      97.714,  97.779,  97.829,  97.873,  97.847,
     $      97.828,  97.860,  97.907,  97.727,  97.583,
     $      97.639,  97.229, 100.000,  96.363,  96.137,
     $      95.446,  94.853,  91.755,  65.384,  77.450/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 64, 64) /
     $     -91.317, -91.503, -91.716, -91.919, -92.139,
     $     -92.356, -92.582, -92.815, -93.037, -93.282,
     $     -93.531, -93.785, -94.043, -94.310, -94.551,
     $     -94.833, -95.118, -95.395, -95.675, -95.968,
     $     -96.239, -96.515, -96.776, -97.020, -97.261,
     $     -97.434, -97.587, -97.689, -97.663, -97.387,
     $     -96.653, -94.940, -90.986, -79.436, -45.999,
     $      16.909,  61.417,  78.861,  86.301,  90.197,
     $      92.393,  93.819,  94.726,  95.305,  95.873,
     $      96.235,  96.487,  96.718,  96.887,  96.979,
     $      97.135,  97.204,  97.258,  97.307,  97.285,
     $      97.269,  97.305,  97.354,  97.178,  97.037,
     $      97.095,  96.690,  96.363, 100.000,  95.611,
     $      94.925,  94.337,  91.257,  65.029,  77.032/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 65, 65) /
     $     -90.956, -91.145, -91.360, -91.564, -91.786,
     $     -92.005, -92.233, -92.468, -92.693, -92.940,
     $     -93.192, -93.448, -93.709, -93.980, -94.223,
     $     -94.509, -94.798, -95.079, -95.364, -95.662,
     $     -95.938, -96.219, -96.487, -96.738, -96.987,
     $     -97.169, -97.333, -97.447, -97.435, -97.178,
     $     -96.469, -94.792, -90.894, -79.448, -46.198,
     $      16.521,  60.996,  78.464,  85.930,  89.847,
     $      92.059,  93.498,  94.416,  95.003,  95.580,
     $      95.948,  96.206,  96.442,  96.616,  96.714,
     $      96.874,  96.947,  97.004,  97.056,  97.037,
     $      97.024,  97.063,  97.114,  96.942,  96.803,
     $      96.864,  96.462,  96.137,  95.611, 100.000,
     $      94.707,  94.122,  91.051,  64.882,  76.859/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 66, 66) /
     $     -90.170, -90.360, -90.576, -90.781, -91.004,
     $     -91.224, -91.453, -91.689, -91.915, -92.164,
     $     -92.417, -92.675, -92.937, -93.210, -93.455,
     $     -93.743, -94.036, -94.320, -94.608, -94.910,
     $     -95.190, -95.476, -95.749, -96.007, -96.264,
     $     -96.455, -96.629, -96.756, -96.761, -96.527,
     $     -95.849, -94.223, -90.409, -79.135, -46.251,
     $      15.978,  60.228,  77.653,  85.118,  89.043,
     $      91.265,  92.712,  93.639,  94.234,  94.817,
     $      95.191,  95.455,  95.696,  95.875,  95.977,
     $      96.141,  96.217,  96.278,  96.334,  96.319,
     $      96.309,  96.351,  96.404,  96.236,  96.101,
     $      96.163,  95.766,  95.446,  94.925,  94.707,
     $     100.000,  93.451,  90.404,  64.421,  76.314/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 67, 67) /
     $     -89.492, -89.683, -89.899, -90.105, -90.328,
     $     -90.548, -90.778, -91.014, -91.241, -91.490,
     $     -91.744, -92.003, -92.265, -92.539, -92.786,
     $     -93.075, -93.369, -93.654, -93.944, -94.247,
     $     -94.530, -94.819, -95.095, -95.355, -95.616,
     $     -95.812, -95.993, -96.126, -96.140, -95.918,
     $     -95.258, -93.661, -89.897, -78.737, -46.122,
     $      15.689,  59.697,  77.047,  84.489,  88.406,
     $      90.625,  92.073,  93.001,  93.599,  94.183,
     $      94.560,  94.827,  95.070,  95.251,  95.355,
     $      95.521,  95.600,  95.663,  95.720,  95.707,
     $      95.700,  95.743,  95.798,  95.632,  95.500,
     $      95.563,  95.170,  94.853,  94.337,  94.122,
     $      93.451, 100.000,  89.847,  64.025,  75.846/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 68, 68) /
     $     -86.460, -86.646, -86.858, -87.059, -87.277,
     $     -87.492, -87.717, -87.948, -88.170, -88.414,
     $     -88.663, -88.916, -89.174, -89.442, -89.684,
     $     -89.968, -90.256, -90.537, -90.822, -91.122,
     $     -91.401, -91.687, -91.961, -92.220, -92.481,
     $     -92.681, -92.867, -93.009, -93.038, -92.844,
     $     -92.231, -90.723, -87.137, -76.431, -45.004,
     $      14.755,  57.423,  74.289,  81.542,  85.367,
     $      87.539,  88.959,  89.871,  90.460,  91.036,
     $      91.409,  91.674,  91.916,  92.096,  92.203,
     $      92.367,  92.448,  92.513,  92.572,  92.562,
     $      92.558,  92.603,  92.659,  92.500,  92.374,
     $      92.438,  92.060,  91.755,  91.257,  91.051,
     $      90.404,  89.847, 100.000,  61.939,  73.376/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 69, 69) /
     $     -61.556, -61.689, -61.840, -61.984, -62.139,
     $     -62.293, -62.454, -62.619, -62.777, -62.951,
     $     -63.129, -63.310, -63.494, -63.686, -63.859,
     $     -64.061, -64.268, -64.468, -64.672, -64.886,
     $     -65.085, -65.289, -65.485, -65.670, -65.857,
     $     -65.999, -66.131, -66.233, -66.252, -66.113,
     $     -65.674, -64.595, -62.034, -54.395, -31.990,
     $      10.582,  40.959,  52.960,  58.119,  60.839,
     $      62.383,  63.392,  64.041,  64.460,  64.870,
     $      65.135,  65.324,  65.496,  65.624,  65.700,
     $      65.818,  65.875,  65.922,  65.964,  65.957,
     $      65.955,  65.987,  66.027,  65.914,  65.824,
     $      65.870,  65.601,  65.384,  65.029,  64.882,
     $      64.421,  64.025,  61.939, 100.000,  52.288/
      DATA ((CP3PZ     ( I, J), I=1, 70),J= 70, 70) /
     $     -72.802, -72.962, -73.143, -73.315, -73.501,
     $     -73.685, -73.878, -74.076, -74.266, -74.474,
     $     -74.688, -74.905, -75.126, -75.356, -75.564,
     $     -75.808, -76.056, -76.297, -76.543, -76.801,
     $     -77.043, -77.290, -77.528, -77.754, -77.982,
     $     -78.159, -78.326, -78.456, -78.493, -78.344,
     $     -77.844, -76.597, -73.606, -64.627, -38.187,
     $      12.208,  48.262,  62.541,  68.692,  71.942,
     $      73.791,  75.001,  75.781,  76.287,  76.781,
     $      77.102,  77.332,  77.541,  77.698,  77.792,
     $      77.935,  78.006,  78.064,  78.118,  78.113,
     $      78.112,  78.153,  78.202,  78.071,  77.967,
     $      78.023,  77.705,  77.450,  77.032,  76.859,
     $      76.314,  75.846,  73.376,  52.288, 100.000/
C                        
      RETURN             
      END                
C----------------------------------------------------------------------)
C----------------------------------------------------------------------)
C                                                                      )
C 3pi                                                                  )
C----------------------------------------------------------------------)
      SUBROUTINE SP_3P
C                        
      IMPLICIT NONE      
C                        
      INTEGER I,J        
C                        
      REAL S3P       ( 83)
      DATA S3P        /
     $       0.304,   0.336,   0.368,   0.400,   0.432,
     $       0.464,   0.496,   0.528,   0.560,   0.592,
     $       0.624,   0.656,   0.688,   0.720,   0.752,
     $       0.784,   0.816,   0.848,   0.880,   0.912,
     $       0.944,   0.976,   1.008,   1.040,   1.072,
     $       1.104,   1.136,   1.168,   1.200,   1.232,
     $       1.264,   1.296,   1.328,   1.360,   1.392,
     $       1.424,   1.456,   1.488,   1.520,   1.552,
     $       1.584,   1.616,   1.648,   1.680,   1.712,
     $       1.744,   1.776,   1.808,   1.840,   1.872,
     $       1.904,   1.936,   1.968,   2.000,   2.032,
     $       2.064,   2.096,   2.128,   2.160,   2.192,
     $       2.224,   2.256,   2.288,   2.320,   2.352,
     $       2.384,   2.416,   2.448,   2.480,   2.512,
     $       2.544,   2.576,   2.608,   2.640,   2.672,
     $       2.704,   2.736,   2.768,   2.800,   2.832,
     $       2.864,   2.896,   2.928/
C                        
C                        
      REAL A3P       ( 83)
      DATA A3P        /
     $     0.001493, 0.002332, 0.002088, 0.001970, 0.005366,
     $     0.006443, 0.007546, 0.012892, 0.015577, 0.024092,
     $     0.029897, 0.035901, 0.046326, 0.061969, 0.085652,
     $     0.119088, 0.151477, 0.193290, 0.248268, 0.285374,
     $     0.314663, 0.336669, 0.370591, 0.386890, 0.399243,
     $     0.416068, 0.431532, 0.437848, 0.452831, 0.456549,
     $     0.458560, 0.450462, 0.441278, 0.448196, 0.454322,
     $     0.432611, 0.428865, 0.450758, 0.433205, 0.413288,
     $     0.412207, 0.407599, 0.397276, 0.385332, 0.367595,
     $     0.353114, 0.325362, 0.306879, 0.282865, 0.258920,
     $     0.228741, 0.204339, 0.190593, 0.179948, 0.164824,
     $     0.154373, 0.152825, 0.143889, 0.139603, 0.139909,
     $     0.128308, 0.143416, 0.127951, 0.125063, 0.128532,
     $     0.126560, 0.099952, 0.105654, 0.082471, 0.081709,
     $     0.064819, 0.059008, 0.068379, 0.060851, 0.052572,
     $     0.056162, 0.056140, 0.029934, 0.034819, 0.025442,
     $     0.026372, 0.025964, 0.014434/
C                        
C                        
      REAL E3P       ( 83)
      DATA E3P        /
     $     0.000945, 0.001376, 0.001178, 0.000985, 0.002427,
     $     0.002593, 0.002662, 0.003921, 0.004143, 0.005552,
     $     0.006007, 0.006368, 0.007139, 0.008155, 0.009356,
     $     0.010336, 0.010291, 0.010907, 0.013124, 0.014723,
     $     0.014628, 0.013132, 0.013717, 0.016661, 0.019214,
     $     0.018860, 0.016937, 0.016714, 0.019309, 0.020601,
     $     0.019201, 0.017419, 0.018352, 0.021344, 0.022544,
     $     0.019957, 0.018435, 0.019921, 0.020720, 0.020250,
     $     0.019406, 0.018755, 0.019052, 0.019875, 0.020443,
     $     0.021818, 0.023105, 0.024353, 0.023248, 0.020153,
     $     0.017803, 0.020164, 0.025162, 0.029142, 0.028205,
     $     0.024742, 0.021242, 0.017726, 0.017254, 0.018972,
     $     0.019664, 0.024024, 0.022901, 0.022910, 0.023329,
     $     0.022483, 0.017716, 0.019187, 0.016487, 0.018287,
     $     0.017423, 0.018725, 0.026341, 0.028330, 0.030208,
     $     0.039419, 0.050196, 0.033260, 0.048396, 0.044992,
     $     0.059210, 0.080285, 0.058377/
C                        
C                        
      REAL C3P       ( 83, 83)
      DATA ((C3P       ( I, J), I=1, 83),J=  1,  1) /
     $     100.000,  81.620,  81.371,  82.671,  83.882,
     $      82.444,  79.741,  75.729,  67.596,  57.345,
     $      42.970,  29.182,  15.736,   4.397,  -3.240,
     $      -5.972,  -1.821,   9.141,  21.266,  27.364,
     $      25.213,  12.501, -10.211, -27.448, -33.195,
     $     -31.036, -19.903,  -0.039,  14.773,  18.490,
     $      12.019,  -4.519, -22.510, -31.935, -33.766,
     $     -29.001, -17.164,  -2.381,   7.316,   9.471,
     $       5.534,  -1.299,  -6.057,  -4.642,   4.436,
     $      17.493,  27.410,  31.334,  28.295,  13.939,
     $     -14.662, -41.593, -52.813, -56.212, -55.623,
     $     -51.759, -41.996, -22.085,   2.289,  21.249,
     $      32.486,  38.546,  40.683,  40.699,  38.356,
     $      33.351,  25.629,  16.468,   6.654,  -0.554,
     $      -6.689, -10.475, -14.127, -16.935, -19.724,
     $     -22.241, -24.712, -26.427, -28.197, -29.623,
     $     -30.897, -32.125, -32.921/
      DATA ((C3P       ( I, J), I=1, 83),J=  2,  2) /
     $      81.620, 100.000,  82.741,  84.189,  85.535,
     $      84.256,  81.741,  77.946,  69.978,  59.870,
     $      45.515,  31.637,  18.009,   6.409,  -1.522,
     $      -4.588,  -0.831,   9.641,  21.283,  27.058,
     $      24.721,  11.913, -10.696, -27.695, -33.276,
     $     -31.042, -19.902,  -0.096,  14.629,  18.246,
     $      11.639,  -5.047, -23.081, -32.466, -34.258,
     $     -29.462, -17.566,  -2.691,   7.074,   9.227,
     $       5.221,  -1.714,  -6.561,  -5.211,   3.827,
     $      16.886,  26.843,  30.805,  27.776,  13.399,
     $     -15.182, -41.976, -53.077, -56.409, -55.798,
     $     -51.939, -42.201, -22.317,   2.059,  21.042,
     $      32.309,  38.392,  40.550,  40.583,  38.258,
     $      33.273,  25.576,  16.440,   6.651,  -0.538,
     $      -6.661, -10.441, -14.090, -16.899, -19.691,
     $     -22.211, -24.687, -26.406, -28.180, -29.608,
     $     -30.885, -32.116, -32.914/
      DATA ((C3P       ( I, J), I=1, 83),J=  3,  3) /
     $      81.371,  82.741, 100.000,  84.159,  85.614,
     $      84.518,  82.235,  78.727,  71.071,  61.290,
     $      47.217,  33.499,  19.932,   8.276,   0.186,
     $      -3.169,   0.111,   9.894,  20.848,  26.210,
     $      23.747,  11.107, -10.956, -27.388, -32.701,
     $     -30.442, -19.520,  -0.165,  14.184,  17.633,
     $      11.020,  -5.482, -23.201, -32.358, -34.075,
     $     -29.344, -17.626,  -2.954,   6.685,   8.794,
     $       4.800,  -2.099,  -6.937,  -5.675,   3.149,
     $      15.956,  25.759,  29.681,  26.721,  12.603,
     $     -15.399, -41.536, -52.303, -55.503, -54.883,
     $     -51.104, -41.581, -22.110,   1.791,  20.427,
     $      31.503,  37.491,  39.627,  39.677,  37.414,
     $      32.546,  25.023,  16.090,   6.518,  -0.513,
     $      -6.503, -10.204, -13.780, -16.535, -19.274,
     $     -21.749, -24.180, -25.870, -27.612, -29.017,
     $     -30.271, -31.481, -32.265/
      DATA ((C3P       ( I, J), I=1, 83),J=  4,  4) /
     $      82.671,  84.189,  84.159, 100.000,  87.818,
     $      87.145,  85.384,  82.500,  75.434,  66.230,
     $      52.516,  38.867,  25.127,  13.048,   4.363,
     $       0.196,   2.360,  10.660,  20.175,  24.662,
     $      21.856,   9.371, -11.814, -27.212, -31.987,
     $     -29.625, -19.017,  -0.368,  13.363,  16.473,
     $       9.711,  -6.685, -23.996, -32.783, -34.351,
     $     -29.684, -18.160,  -3.679,   5.850,   7.896,
     $       3.847,  -3.104,  -8.015,  -6.938,   1.554,
     $      14.016,  23.650,  27.557,  24.702,  10.920,
     $     -16.257, -41.337, -51.512, -54.460, -53.802,
     $     -50.141, -40.943, -22.073,   1.172,  19.352,
     $      30.195,  36.076,  38.203,  38.296,  36.137,
     $      31.453,  24.196,  15.572,   6.326,  -0.466,
     $      -6.259,  -9.843, -13.314, -15.994, -18.665,
     $     -21.079, -23.454, -25.105, -26.809, -28.182,
     $     -29.409, -30.592, -31.359/
      DATA ((C3P       ( I, J), I=1, 83),J=  5,  5) /
     $      83.882,  85.535,  85.614,  87.818, 100.000,
     $      89.570,  88.286,  85.976,  79.450,  70.775,
     $      57.391,  43.803,  29.901,  17.432,   8.199,
     $       3.282,   4.413,  11.344,  19.535,  23.218,
     $      20.101,   7.767, -12.598, -27.036, -31.316,
     $     -28.867, -18.559,  -0.575,  12.580,  15.381,
     $       8.488,  -7.792, -24.709, -33.147, -34.577,
     $     -29.975, -18.644,  -4.356,   5.066,   7.052,
     $       2.956,  -4.032,  -9.002,  -8.092,   0.090,
     $      12.227,  21.697,  25.587,  22.832,   9.369,
     $     -17.028, -41.117, -50.742, -53.456, -52.763,
     $     -49.214, -40.321, -22.019,   0.604,  18.350,
     $      28.970,  34.747,  36.864,  36.995,  34.933,
     $      30.420,  23.413,  15.079,   6.141,  -0.427,
     $      -6.032,  -9.507, -12.878, -15.488, -18.092,
     $     -20.449, -22.769, -24.385, -26.050, -27.394,
     $     -28.593, -29.752, -30.502/
      DATA ((C3P       ( I, J), I=1, 83),J=  6,  6) /
     $      82.444,  84.256,  84.518,  87.145,  89.570,
     $     100.000,  89.540,  88.302,  82.971,  75.563,
     $      63.305,  50.397,  36.813,  24.212,  14.440,
     $       8.459,   7.782,  12.077,  17.645,  19.784,
     $      16.255,   4.686, -13.430, -25.622, -28.875,
     $     -26.383, -17.027,  -0.935,  10.691,  12.852,
     $       6.035,  -9.355, -24.881, -32.366, -33.502,
     $     -29.212, -18.695,  -5.344,   3.492,   5.294,
     $       1.298,  -5.454, -10.307,  -9.715,  -2.406,
     $       8.661,  17.450,  21.146,  18.677,   6.332,
     $     -17.614, -38.990, -47.268, -49.468, -48.747,
     $     -45.539, -37.545, -20.991,  -0.389,  15.860,
     $      25.648,  31.001,  33.012,  33.201,  31.391,
     $      27.363,  21.078,  13.592,   5.557,  -0.349,
     $      -5.398,  -8.536, -11.594, -13.971, -16.351,
     $     -18.509, -20.637, -22.122, -23.651, -24.888,
     $     -25.990, -27.055, -27.745/
      DATA ((C3P       ( I, J), I=1, 83),J=  7,  7) /
     $      79.741,  81.741,  82.235,  85.384,  88.286,
     $      89.540, 100.000,  90.418,  86.694,  81.013,
     $      70.355,  58.482,  45.473,  32.860,  22.519,
     $      15.242,  12.236,  13.049,  15.105,  15.164,
     $      11.092,   0.593, -14.446, -23.596, -25.477,
     $     -22.951, -14.924,  -1.436,   8.103,   9.424,
     $       2.780, -11.293, -24.856, -31.028, -31.777,
     $     -27.942, -18.598,  -6.603,   1.384,   2.932,
     $      -0.889,  -7.258, -11.902, -11.724,  -5.621,
     $       3.943,  11.757,  15.162,  13.092,   2.326,
     $     -18.186, -35.818, -42.262, -43.772, -43.023,
     $     -40.291, -33.549, -19.436,  -1.677,  12.460,
     $      21.065,  25.811,  27.661,  27.923,  26.459,
     $      23.098,  17.816,  11.508,   4.730,  -0.256,
     $      -4.529,  -7.198,  -9.816, -11.866, -13.929,
     $     -15.804, -17.660, -18.959, -20.295, -21.378,
     $     -22.342, -23.275, -23.879/
      DATA ((C3P       ( I, J), I=1, 83),J=  8,  8) /
     $      75.729,  77.946,  78.727,  82.500,  85.976,
     $      88.302,  90.418, 100.000,  90.668,  87.206,
     $      78.664,  68.219,  56.087,  43.618,  32.708,
     $      23.920,  18.052,  14.468,  12.016,   9.360,
     $       4.552,  -4.615, -15.752, -21.034, -21.168,
     $     -18.606, -12.284,  -2.118,   4.780,   5.060,
     $      -1.312, -13.640, -24.658, -29.155, -29.423,
     $     -26.195, -18.394,  -8.181,  -1.306,  -0.080,
     $      -3.649,  -9.483, -13.823, -14.157,  -9.604,
     $      -1.987,   4.549,   7.565,   6.010,  -2.698,
     $     -18.763, -31.581, -35.682, -36.319, -35.540,
     $     -33.425, -28.300, -17.350,  -3.280,   8.108,
     $      15.167,  19.119,  20.752,  21.102,  20.079,
     $      17.577,  13.586,   8.796,   3.639,  -0.158,
     $      -3.427,  -5.489,  -7.535,  -9.159, -10.808,
     $     -12.314, -13.815, -14.870, -15.954, -16.835,
     $     -17.619, -18.379, -18.870/
      DATA ((C3P       ( I, J), I=1, 83),J=  9,  9) /
     $      67.596,  69.978,  71.071,  75.434,  79.450,
     $      82.971,  86.694,  90.668, 100.000,  90.949,
     $      85.384,  77.185,  66.729,  55.078,  44.058,
     $      33.919,  24.894,  16.102,   8.138,   2.125,
     $      -3.524, -10.847, -16.913, -17.309, -15.301,
     $     -12.783,  -8.749,  -2.947,   0.541,  -0.411,
     $      -6.182, -15.905, -23.421, -25.730, -25.422,
     $     -23.076, -17.466,  -9.820,  -4.558,  -3.760,
     $      -6.865, -11.801, -15.583, -16.511, -14.013,
     $      -9.060,  -4.334,  -1.912,  -2.782,  -8.643,
     $     -18.671, -25.147, -26.254, -25.811, -25.029,
     $     -23.749, -20.791, -14.114,  -5.085,   2.510,
     $       7.409,  10.235,  11.539,  11.978,  11.526,
     $      10.161,   7.890,   5.128,   2.140,  -0.065,
     $      -1.986,  -3.226,  -4.495,  -5.535,  -6.614,
     $      -7.610,  -8.616,  -9.332, -10.064, -10.664,
     $     -11.195, -11.713, -12.048/
      DATA ((C3P       ( I, J), I=1, 83),J= 10, 10) /
     $      57.345,  59.870,  61.290,  66.230,  70.775,
     $      75.563,  81.013,  87.206,  90.949, 100.000,
     $      91.528,  86.098,  77.855,  67.510,  56.752,
     $      45.459,  33.173,  18.649,   4.383,  -5.614,
     $     -12.394, -17.841, -18.397, -13.388,  -8.987,
     $      -6.510,  -5.001,  -3.982,  -4.195,  -6.437,
     $     -11.451, -18.186, -21.773, -21.672, -20.762,
     $     -19.446, -16.345, -11.625,  -8.192,  -7.855,
     $     -10.389, -14.247, -17.342, -18.900, -18.698,
     $     -16.754, -14.093, -12.360, -12.457, -15.088,
     $     -18.300, -17.675, -15.456, -13.828, -13.057,
     $     -12.718, -12.201, -10.348,  -7.022,  -3.731,
     $      -1.291,   0.249,   1.166,   1.694,   1.875,
     $       1.778,   1.434,   0.947,   0.396,  -0.018,
     $      -0.418,  -0.730,  -1.118,  -1.493,  -1.921,
     $      -2.336,  -2.776,  -3.103,  -3.433,  -3.711,
     $      -3.954,  -4.195,  -4.350/
      DATA ((C3P       ( I, J), I=1, 83),J= 11, 11) /
     $      42.970,  45.515,  47.217,  52.516,  57.391,
     $      63.305,  70.355,  78.664,  85.384,  91.528,
     $     100.000,  91.739,  86.689,  78.705,  69.195,
     $      57.592,  42.594,  22.418,   1.436, -13.067,
     $     -21.293, -24.991, -19.968,  -9.406,  -2.540,
     $      -0.143,  -1.295,  -5.217,  -9.159, -12.562,
     $     -16.502, -19.768, -19.069, -16.466, -15.011,
     $     -14.907, -14.659, -13.266, -11.901, -12.032,
     $     -13.804, -16.292, -18.473, -20.610, -22.865,
     $     -24.230, -23.904, -22.988, -22.250, -21.285,
     $     -17.027,  -8.810,  -3.130,  -0.309,   0.412,
     $      -0.281,  -2.415,  -5.838,  -8.800, -10.289,
     $     -10.607, -10.525, -10.070,  -9.480,  -8.639,
     $      -7.382,  -5.654,  -3.688,  -1.600,  -0.075,
     $       1.181,   1.887,   2.471,   2.836,   3.135,
     $       3.371,   3.568,   3.680,   3.804,   3.889,
     $       3.971,   4.043,   4.092/
      DATA ((C3P       ( I, J), I=1, 83),J= 12, 12) /
     $      29.182,  31.637,  33.499,  38.867,  43.803,
     $      50.397,  58.482,  68.219,  77.185,  86.098,
     $      91.739, 100.000,  91.464,  86.260,  78.687,
     $      67.786,  51.463,  27.298,   0.906, -17.598,
     $     -27.427, -30.331, -21.598,  -7.078,   1.602,
     $       3.936,   0.862,  -6.508, -12.934, -16.960,
     $     -19.867, -20.332, -16.386, -11.995, -10.239,
     $     -11.168, -13.217, -14.468, -14.719, -15.160,
     $     -16.227, -17.500, -18.835, -21.320, -25.423,
     $     -29.350, -30.878, -30.637, -29.257, -25.473,
     $     -15.433,  -1.475,   6.756,  10.424,  11.076,
     $       9.583,   5.409,  -2.095,  -9.955, -15.192,
     $     -17.692, -18.774, -18.707, -18.098, -16.776,
     $     -14.504, -11.210,  -7.379,  -3.277,  -0.266,
     $       2.269,   3.766,   5.111,   6.061,   6.940,
     $       7.695,   8.401,   8.868,   9.354,   9.733,
     $      10.075,  10.399,  10.611/
      DATA ((C3P       ( I, J), I=1, 83),J= 13, 13) /
     $      15.736,  18.009,  19.932,  25.127,  29.901,
     $      36.813,  45.473,  56.087,  66.729,  77.855,
     $      86.689,  91.464, 100.000,  91.260,  86.360,
     $      77.172,  60.823,  34.076,   3.199, -19.121,
     $     -30.897, -34.052, -23.453,  -6.479,   3.407,
     $       5.657,   1.285,  -8.167, -15.879, -19.982,
     $     -21.851, -20.076, -13.773,  -8.222,  -6.397,
     $      -8.240, -12.149, -15.475, -16.946, -17.554,
     $     -17.955, -18.130, -18.658, -21.279, -26.707,
     $     -32.564, -35.537, -35.849, -33.994, -28.044,
     $     -13.638,   4.525,  14.556,  18.790,  19.361,
     $      17.257,  11.549,   0.957, -10.638, -18.754,
     $     -22.948, -24.946, -25.206, -24.613, -22.963,
     $     -19.967, -15.531, -10.333,  -4.736,  -0.619,
     $       2.880,   4.984,   6.918,   8.328,   9.665,
     $      10.832,  11.944,  12.696,  13.471,  14.085,
     $      14.636,  15.162,  15.505/
      DATA ((C3P       ( I, J), I=1, 83),J= 14, 14) /
     $       4.397,   6.409,   8.276,  13.048,  17.432,
     $      24.212,  32.860,  43.618,  55.078,  67.510,
     $      78.705,  86.260,  91.260, 100.000,  91.092,
     $      84.636,  69.890,  42.664,   9.034, -16.390,
     $     -30.290, -34.973, -25.121,  -8.011,   2.063,
     $       4.107,  -0.738, -10.386, -17.719, -21.164,
     $     -22.062, -18.929, -11.568,  -5.721,  -4.121,
     $      -6.658, -11.730, -16.245, -18.343, -18.935,
     $     -18.798, -18.137, -17.982, -20.461, -26.437,
     $     -33.249, -37.012, -37.668, -35.594, -28.512,
     $     -11.920,   8.169,  18.929,  23.343,  23.829,
     $      21.410,  14.937,   2.784, -10.737, -20.368,
     $     -25.477, -27.988, -28.456, -27.921, -26.158,
     $     -22.860, -17.916, -12.092,  -5.786,  -1.137,
     $       2.849,   5.271,   7.523,   9.193,  10.793,
     $      12.197,  13.547,  14.469,  15.414,  16.167,
     $      16.840,  17.487,  17.907/
      DATA ((C3P       ( I, J), I=1, 83),J= 15, 15) /
     $      -3.240,  -1.522,   0.186,   4.363,   8.199,
     $      14.440,  22.519,  32.708,  44.058,  56.752,
     $      69.195,  78.687,  86.360,  91.092, 100.000,
     $      89.922,  78.467,  53.203,  19.009,  -8.476,
     $     -24.543, -32.134, -26.121, -11.769,  -2.865,
     $      -1.315,  -5.834, -13.607, -18.651, -20.586,
     $     -20.601, -17.116, -10.123,  -4.903,  -3.831,
     $      -6.815, -12.268, -16.968, -19.020, -19.414,
     $     -18.940, -17.797, -17.137, -19.176, -24.824,
     $     -31.468, -35.247, -35.986, -33.987, -26.989,
     $     -10.709,   8.791,  19.143,  23.347,  23.764,
     $      21.365,  14.992,   3.014, -10.349, -19.904,
     $     -25.007, -27.544, -28.071, -27.622, -25.978,
     $     -22.847, -18.101, -12.482,  -6.349,  -1.811,
     $       2.122,   4.534,   6.794,   8.490,  10.125,
     $      11.561,  12.950,  13.906,  14.878,  15.658,
     $      16.351,  17.020,  17.455/
      DATA ((C3P       ( I, J), I=1, 83),J= 16, 16) /
     $      -5.972,  -4.588,  -3.169,   0.196,   3.282,
     $       8.459,  15.242,  23.920,  33.919,  45.459,
     $      57.592,  67.786,  77.172,  84.636,  89.922,
     $     100.000,  86.018,  66.400,  35.075,   7.306,
     $     -10.750, -22.998, -25.235, -18.054, -12.541,
     $     -12.160, -15.526, -18.751, -18.868, -18.023,
     $     -17.130, -14.448,  -9.546,  -6.100,  -5.957,
     $      -9.118, -14.033, -17.720, -18.922, -18.916,
     $     -18.368, -17.178, -16.200, -17.374, -21.541,
     $     -26.564, -29.361, -29.854, -28.324, -22.998,
     $     -10.266,   5.413,  13.909,  17.413,  17.787,
     $      15.837,  10.679,   1.118,  -9.390, -16.803,
     $     -20.701, -22.633, -23.017, -22.687, -21.461,
     $     -19.097, -15.458, -11.113,  -6.287,  -2.692,
     $       0.491,   2.471,   4.338,   5.760,   7.135,
     $       8.337,   9.509,  10.322,  11.136,  11.796,
     $      12.377,  12.942,  13.308/
      DATA ((C3P       ( I, J), I=1, 83),J= 17, 17) /
     $      -1.821,  -0.831,   0.111,   2.360,   4.413,
     $       7.782,  12.236,  18.052,  24.894,  33.173,
     $      42.594,  51.463,  60.823,  69.890,  78.467,
     $      86.018, 100.000,  80.306,  57.290,  32.594,
     $      13.628,  -4.710, -20.354, -26.085, -27.036,
     $     -28.849, -30.205, -25.850, -18.039, -12.992,
     $     -11.230, -10.786, -10.049,  -9.712, -10.890,
     $     -13.763, -16.874, -18.010, -17.389, -16.781,
     $     -16.547, -15.928, -14.925, -14.706, -15.883,
     $     -17.368, -17.867, -17.683, -17.139, -15.577,
     $     -10.681,  -3.143,   1.543,   3.679,   4.035,
     $       3.113,   0.660,  -3.498,  -7.571, -10.108,
     $     -11.216, -11.705, -11.681, -11.511, -11.090,
     $     -10.280,  -8.944,  -7.285,  -5.271,  -3.722,
     $      -2.221,  -1.242,  -0.308,   0.431,   1.144,
     $       1.753,   2.356,   2.785,   3.192,   3.532,
     $       3.822,   4.110,   4.297/
      DATA ((C3P       ( I, J), I=1, 83),J= 18, 18) /
     $       9.141,   9.641,   9.894,  10.660,  11.344,
     $      12.077,  13.049,  14.468,  16.102,  18.649,
     $      22.418,  27.298,  34.076,  42.664,  53.203,
     $      66.400,  80.306, 100.000,  79.347,  62.976,
     $      46.024,  22.514,  -9.051, -31.987, -42.064,
     $     -47.009, -45.942, -32.491, -15.418,  -5.686,
     $      -3.389,  -6.378, -11.294, -14.885, -17.409,
     $     -19.254, -19.196, -16.411, -13.254, -11.997,
     $     -12.511, -13.130, -12.512, -10.538,  -7.408,
     $      -3.637,  -0.670,   0.573,  -0.319,  -4.373,
     $     -11.229, -15.927, -16.977, -16.897, -16.553,
     $     -15.905, -14.243, -10.217,  -4.573,   0.240,
     $       3.338,   5.036,   5.700,   5.675,   4.948,
     $       3.503,   1.458,  -0.848,  -3.035,  -4.556,
     $      -5.621,  -6.188,  -6.709,  -7.052,  -7.391,
     $      -7.725,  -8.032,  -8.223,  -8.466,  -8.642,
     $      -8.817,  -8.972,  -9.075/
      DATA ((C3P       ( I, J), I=1, 83),J= 19, 19) /
     $      21.266,  21.283,  20.848,  20.175,  19.535,
     $      17.645,  15.105,  12.016,   8.138,   4.383,
     $       1.436,   0.906,   3.199,   9.034,  19.009,
     $      35.075,  57.290,  79.347, 100.000,  84.098,
     $      72.880,  49.111,   7.283, -29.680, -47.973,
     $     -55.934, -53.573, -34.470, -11.817,   0.517,
     $       2.626,  -3.332, -12.538, -18.799, -21.805,
     $     -22.040, -18.628, -12.275,  -7.120,  -5.560,
     $      -6.986,  -9.033,  -9.108,  -5.790,   1.171,
     $       9.725,  15.859,  18.087,  15.928,   6.801,
     $     -10.849, -26.997, -33.512, -35.431, -35.124,
     $     -33.002, -27.480, -15.842,  -1.233,  10.318,
     $      17.245,  20.937,  22.181,  21.993,  20.246,
     $      16.774,  11.661,   5.737,  -0.324,  -4.689,
     $      -8.166, -10.202, -12.112, -13.499, -14.857,
     $     -16.099, -17.287, -18.084, -18.953, -19.629,
     $     -20.252, -20.839, -21.221/
      DATA ((C3P       ( I, J), I=1, 83),J= 20, 20) /
     $      27.364,  27.058,  26.210,  24.662,  23.218,
     $      19.784,  15.164,   9.360,   2.125,  -5.614,
     $     -13.067, -17.598, -19.121, -16.390,  -8.476,
     $       7.306,  32.594,  62.976,  84.098, 100.000,
     $      85.683,  66.824,  24.452, -18.289, -41.190,
     $     -51.522, -50.484, -32.509, -10.741,   0.915,
     $       2.227,  -4.628, -14.223, -20.163, -22.284,
     $     -20.966, -15.566,  -7.713,  -2.095,  -0.797,
     $      -2.951,  -5.989,  -6.716,  -3.001,   5.654,
     $      16.438,  24.084,  26.828,  24.176,  12.824,
     $      -9.784, -31.417, -40.653, -43.611, -43.362,
     $     -40.550, -33.201, -17.997,   0.756,  15.388,
     $      24.047,  28.638,  30.139,  29.879,  27.677,
     $      23.291,  16.778,   9.191,   1.325,  -4.375,
     $      -9.004, -11.751, -14.337, -16.238, -18.096,
     $     -19.784, -21.406, -22.502, -23.677, -24.600,
     $     -25.443, -26.241, -26.760/
      DATA ((C3P       ( I, J), I=1, 83),J= 21, 21) /
     $      25.213,  24.721,  23.747,  21.856,  20.101,
     $      16.255,  11.092,   4.552,  -3.524, -12.394,
     $     -21.293, -27.427, -30.897, -30.290, -24.543,
     $     -10.750,  13.628,  46.024,  72.880,  85.683,
     $     100.000,  78.740,  44.024,   2.251, -22.603,
     $     -35.471, -39.186, -29.460, -14.756,  -6.751,
     $      -6.708, -12.151, -17.729, -19.932, -19.664,
     $     -16.971, -11.183,  -4.047,   0.469,   0.937,
     $      -1.765,  -5.302,  -6.511,  -3.259,   4.954,
     $      15.386,  22.905,  25.741,  23.424,  12.806,
     $      -8.620, -29.333, -38.283, -41.208, -41.031,
     $     -38.388, -31.420, -16.986,   0.819,  14.710,
     $      22.931,  27.292,  28.717,  28.470,  26.376,
     $      22.205,  16.007,   8.784,   1.291,  -4.142,
     $      -8.560, -11.184, -13.656, -15.473, -17.250,
     $     -18.863, -20.413, -21.460, -22.582, -23.464,
     $     -24.268, -25.030, -25.526/
      DATA ((C3P       ( I, J), I=1, 83),J= 22, 22) /
     $      12.501,  11.913,  11.107,   9.371,   7.767,
     $       4.686,   0.593,  -4.615, -10.847, -17.841,
     $     -24.991, -30.330, -34.052, -34.973, -32.134,
     $     -22.998,  -4.710,  22.514,  49.111,  66.824,
     $      78.740, 100.000,  69.850,  37.924,  14.369,
     $      -1.238, -14.161, -22.513, -23.803, -23.963,
     $     -26.223, -27.600, -23.656, -17.714, -12.982,
     $      -8.877,  -4.422,  -0.600,   0.904,  -0.167,
     $      -3.202,  -6.679,  -8.265,  -6.615,  -1.506,
     $       5.383,  10.736,  13.124,  12.160,   5.920,
     $      -6.843, -18.941, -24.046, -25.692, -25.621,
     $     -24.184, -20.256, -11.839,  -1.186,   7.286,
     $      12.396,  15.131,  16.063,  15.929,  14.633,
     $      12.056,   8.265,   3.874,  -0.606,  -3.837,
     $      -6.403,  -7.905,  -9.316, -10.337, -11.334,
     $     -12.249, -13.121, -13.702, -14.341, -14.835,
     $     -15.293, -15.721, -16.000/
      DATA ((C3P       ( I, J), I=1, 83),J= 23, 23) /
     $     -10.211, -10.696, -10.956, -11.814, -12.598,
     $     -13.430, -14.446, -15.752, -16.913, -18.397,
     $     -19.968, -21.598, -23.453, -25.121, -26.121,
     $     -25.235, -20.354,  -9.051,   7.283,  24.452,
     $      44.024,  69.850, 100.000,  76.396,  61.470,
     $      46.575,  24.533,  -6.648, -29.954, -41.671,
     $     -46.944, -42.882, -27.197, -11.743,  -2.328,
     $       2.255,   3.381,   1.685,  -1.052,  -3.673,
     $      -6.142,  -8.404,  -9.960, -11.077, -12.021,
     $     -12.351, -11.702, -10.649,  -9.396,  -7.512,
     $      -3.814,   0.651,   3.036,   3.946,   3.899,
     $       3.115,   1.328,  -1.661,  -4.640,  -6.544,
     $      -7.416,  -7.815,  -7.842,  -7.760,  -7.511,
     $      -7.007,  -6.159,  -5.101,  -3.805,  -2.816,
     $      -1.852,  -1.220,  -0.616,  -0.129,   0.348,
     $       0.757,   1.167,   1.463,   1.741,   1.976,
     $       2.176,   2.377,   2.507/
      DATA ((C3P       ( I, J), I=1, 83),J= 24, 24) /
     $     -27.448, -27.695, -27.388, -27.212, -27.036,
     $     -25.622, -23.596, -21.034, -17.309, -13.388,
     $      -9.406,  -7.078,  -6.479,  -8.011, -11.769,
     $     -18.054, -26.085, -31.987, -29.680, -18.289,
     $       2.251,  37.924,  76.396, 100.000,  86.753,
     $      77.201,  54.133,  12.074, -24.370, -43.609,
     $     -50.997, -44.759, -24.581,  -5.892,   4.602,
     $       8.154,   6.310,   1.012,  -3.890,  -6.651,
     $      -7.724,  -8.222,  -9.327, -12.616, -18.683,
     $     -25.304, -28.974, -29.404, -26.632, -18.304,
     $      -1.293,  16.646,  25.159,  28.196,  28.113,
     $      25.599,  19.273,   7.116,  -6.913, -17.281,
     $     -23.064, -26.043, -26.867, -26.605, -25.073,
     $     -22.022, -17.359, -11.832,  -5.832,  -1.415,
     $       2.392,   4.731,   6.944,   8.627,  10.271,
     $      11.731,  13.156,  14.143,  15.149,  15.961,
     $      16.683,  17.382,  17.835/
      DATA ((C3P       ( I, J), I=1, 83),J= 25, 25) /
     $     -33.195, -33.276, -32.701, -31.987, -31.316,
     $     -28.875, -25.477, -21.168, -15.301,  -8.987,
     $      -2.540,   1.602,   3.407,   2.063,  -2.865,
     $     -12.541, -27.036, -42.064, -47.973, -41.190,
     $     -22.603,  14.369,  61.470,  86.753, 100.000,
     $      88.280,  69.795,  28.344, -11.353, -33.580,
     $     -42.888, -38.973, -21.875,  -5.624,   3.226,
     $       5.482,   2.817,  -2.367,  -6.422,  -8.009,
     $      -7.730,  -7.028,  -7.788, -12.000, -20.258,
     $     -29.614, -35.282, -36.573, -33.495, -22.991,
     $      -1.132,  21.961,  32.941,  36.904,  36.889,
     $      33.791,  25.841,  10.356,  -7.704, -21.167,
     $     -28.748, -32.669, -33.776, -33.427, -31.392,
     $     -27.362, -21.250, -14.035,  -6.278,  -0.586,
     $       4.261,   7.216,  10.005,  12.109,  14.162,
     $      15.990,  17.767,  18.993,  20.253,  21.264,
     $      22.168,  23.039,  23.605/
      DATA ((C3P       ( I, J), I=1, 83),J= 26, 26) /
     $     -31.036, -31.042, -30.442, -29.625, -28.867,
     $     -26.383, -22.951, -18.606, -12.783,  -6.510,
     $      -0.143,   3.936,   5.657,   4.107,  -1.315,
     $     -12.160, -28.849, -47.009, -55.934, -51.522,
     $     -35.471,  -1.238,  46.575,  77.201,  88.280,
     $     100.000,  82.285,  48.930,  11.191, -12.436,
     $     -24.994, -28.324, -21.119, -11.997,  -6.964,
     $      -6.188,  -7.712,  -9.288,  -9.555,  -8.551,
     $      -6.744,  -5.218,  -5.804, -10.192, -18.697,
     $     -28.356, -34.420, -36.164, -33.706, -24.174,
     $      -3.544,  18.948,  29.969,  34.111,  34.280,
     $      31.415,  23.894,   9.233,  -7.818, -20.487,
     $     -27.587, -31.239, -32.232, -31.845, -29.853,
     $     -25.953, -20.069, -13.140,  -5.713,  -0.272,
     $       4.340,   7.138,   9.769,  11.741,  13.659,
     $      15.366,  17.022,  18.159,  19.333,  20.272,
     $      21.114,  21.923,  22.449/
      DATA ((C3P       ( I, J), I=1, 83),J= 27, 27) /
     $     -19.903, -19.902, -19.520, -19.017, -18.559,
     $     -17.027, -14.924, -12.284,  -8.749,  -5.001,
     $      -1.295,   0.862,   1.285,  -0.738,  -5.834,
     $     -15.526, -30.205, -45.942, -53.573, -50.484,
     $     -39.186, -14.161,  24.533,  54.133,  69.795,
     $      82.285, 100.000,  74.461,  46.363,  24.266,
     $       7.862,  -7.831, -18.863, -23.211, -25.260,
     $     -26.811, -25.645, -20.256, -13.737,  -8.605,
     $      -4.946,  -2.742,  -3.031,  -6.525, -12.985,
     $     -20.236, -24.980, -26.787, -26.001, -20.895,
     $      -8.210,   7.194,  15.453,  18.880,  19.337,
     $      17.607,  12.801,   3.558,  -6.937, -14.552,
     $     -18.687, -20.755, -21.208, -20.838, -19.483,
     $     -16.927, -13.111,  -8.635,  -3.842,  -0.337,
     $       2.624,   4.406,   6.060,   7.284,   8.463,
     $       9.505,  10.510,  11.196,  11.904,  12.469,
     $      12.976,  13.463,  13.780/
      DATA ((C3P       ( I, J), I=1, 83),J= 28, 28) /
     $      -0.039,  -0.096,  -0.165,  -0.368,  -0.575,
     $      -0.935,  -1.436,  -2.118,  -2.947,  -3.982,
     $      -5.217,  -6.508,  -8.167, -10.386, -13.607,
     $     -18.751, -25.850, -32.491, -34.470, -32.509,
     $     -29.460, -22.513,  -6.648,  12.074,  28.344,
     $      48.930,  74.461, 100.000,  80.187,  66.205,
     $      49.521,  22.279,  -9.509, -30.466, -41.517,
     $     -46.156, -42.458, -30.098, -16.932,  -8.110,
     $      -3.237,  -0.742,  -0.266,  -1.159,  -2.649,
     $      -4.239,  -5.566,  -6.763,  -8.362, -10.673,
     $     -12.371, -10.963,  -8.805,  -7.346,  -6.676,
     $      -6.449,  -6.318,  -5.695,  -4.351,  -2.914,
     $      -1.797,  -1.089,  -0.649,  -0.395,  -0.292,
     $      -0.295,  -0.375,  -0.499,  -0.618,  -0.713,
     $      -0.795,  -0.870,  -0.982,  -1.093,  -1.225,
     $      -1.359,  -1.501,  -1.604,  -1.713,  -1.803,
     $      -1.883,  -1.960,  -2.010/
      DATA ((C3P       ( I, J), I=1, 83),J= 29, 29) /
     $      14.773,  14.629,  14.184,  13.363,  12.580,
     $      10.691,   8.103,   4.780,   0.541,  -4.195,
     $      -9.159, -12.934, -15.879, -17.719, -18.651,
     $     -18.868, -18.039, -15.418, -11.817, -10.741,
     $     -14.756, -23.803, -29.954, -24.370, -11.353,
     $      11.191,  46.363,  80.187, 100.000,  87.171,
     $      75.121,  45.919,   4.814, -25.399, -42.048,
     $     -49.277, -46.020, -32.540, -18.107,  -8.872,
     $      -4.289,  -1.829,  -0.171,   1.952,   5.330,
     $       9.022,  10.991,  10.709,   7.676,   0.064,
     $     -12.658, -22.753, -26.013, -26.522, -25.913,
     $     -24.283, -20.400, -12.242,  -1.887,   6.406,
     $      11.476,  14.262,  15.341,  15.463,  14.555,
     $      12.527,   9.388,   5.663,   1.715,  -1.178,
     $      -3.609,  -5.104,  -6.555,  -7.669,  -8.779,
     $      -9.790, -10.781, -11.466, -12.182, -12.755,
     $     -13.270, -13.764, -14.084/
      DATA ((C3P       ( I, J), I=1, 83),J= 30, 30) /
     $      18.490,  18.246,  17.633,  16.473,  15.381,
     $      12.852,   9.424,   5.060,  -0.411,  -6.437,
     $     -12.562, -16.960, -19.982, -21.164, -20.586,
     $     -18.023, -12.992,  -5.686,   0.517,   0.915,
     $      -6.751, -23.963, -41.671, -43.609, -33.580,
     $     -12.436,  24.266,  66.205,  87.171, 100.000,
     $      86.060,  62.330,  22.118, -10.428, -29.663,
     $     -39.662, -40.411, -31.614, -20.721, -13.626,
     $     -10.076,  -7.310,  -3.882,   0.968,   7.464,
     $      14.092,  17.931,  18.418,  15.271,   6.225,
     $     -10.193, -24.846, -30.600, -32.212, -31.883,
     $     -29.960, -24.992, -14.492,  -1.259,   9.259,
     $      15.632,  19.108,  20.400,  20.466,  19.197,
     $      16.457,  12.261,   7.307,   2.082,  -1.735,
     $      -4.914,  -6.846,  -8.699, -10.100, -11.487,
     $     -12.746, -13.972, -14.814, -15.699, -16.404,
     $     -17.040, -17.649, -18.044/
      DATA ((C3P       ( I, J), I=1, 83),J= 31, 31) /
     $      12.019,  11.639,  11.020,   9.711,   8.488,
     $       6.035,   2.780,  -1.312,  -6.182, -11.451,
     $     -16.502, -19.867, -21.851, -22.062, -20.601,
     $     -17.130, -11.230,  -3.389,   2.626,   2.227,
     $      -6.708, -26.223, -46.944, -50.997, -42.888,
     $     -24.994,   7.862,  49.521,  75.121,  86.060,
     $     100.000,  78.574,  47.098,  16.693,  -3.786,
     $     -17.891, -27.040, -29.099, -26.556, -24.101,
     $     -22.276, -18.644, -12.410,  -4.524,   4.003,
     $      11.841,  16.506,  17.726,  15.648,   8.516,
     $      -5.304, -18.582, -24.359, -26.371, -26.555,
     $     -25.359, -21.688, -13.410,  -2.620,   6.150,
     $      11.578,  14.576,  15.739,  15.827,  14.758,
     $      12.439,   8.920,   4.792,   0.510,  -2.592,
     $      -5.108,  -6.606,  -8.028,  -9.082, -10.119,
     $     -11.067, -11.983, -12.604, -13.270, -13.795,
     $     -14.273, -14.728, -15.023/
      DATA ((C3P       ( I, J), I=1, 83),J= 32, 32) /
     $      -4.519,  -5.047,  -5.482,  -6.685,  -7.792,
     $      -9.355, -11.293, -13.640, -15.905, -18.186,
     $     -19.768, -20.332, -20.076, -18.929, -17.116,
     $     -14.448, -10.786,  -6.378,  -3.332,  -4.628,
     $     -12.151, -27.600, -42.882, -44.759, -38.973,
     $     -28.324,  -7.831,  22.279,  45.919,  62.330,
     $      78.574, 100.000,  76.301,  55.487,  37.249,
     $      19.453,  -1.210, -20.014, -31.104, -36.381,
     $     -37.597, -33.437, -24.421, -14.122,  -5.286,
     $       1.673,   6.014,   7.990,   8.333,   6.772,
     $       2.335,  -3.216,  -6.375,  -8.016,  -8.906,
     $      -9.425,  -9.437,  -8.084,  -5.344,  -2.592,
     $      -0.577,   0.637,   1.244,   1.391,   1.079,
     $       0.342,  -0.712,  -1.891,  -2.934,  -3.629,
     $      -4.029,  -4.195,  -4.327,  -4.375,  -4.417,
     $      -4.474,  -4.512,  -4.519,  -4.563,  -4.583,
     $      -4.615,  -4.637,  -4.652/
      DATA ((C3P       ( I, J), I=1, 83),J= 33, 33) /
     $     -22.510, -23.081, -23.201, -23.996, -24.709,
     $     -24.881, -24.856, -24.658, -23.421, -21.773,
     $     -19.069, -16.386, -13.773, -11.568, -10.123,
     $      -9.546, -10.049, -11.294, -12.538, -14.223,
     $     -17.729, -23.656, -27.197, -24.581, -21.875,
     $     -21.119, -18.863,  -9.509,   4.814,  22.118,
     $      47.098,  76.301, 100.000,  83.852,  72.950,
     $      56.183,  28.860,  -3.030, -26.161, -38.770,
     $     -43.470, -40.576, -31.745, -22.300, -16.054,
     $     -12.232,  -9.432,  -7.046,  -3.996,   1.194,
     $       8.808,  14.088,  15.193,  14.668,  13.328,
     $      11.038,   6.828,  -0.105,  -7.295, -12.145,
     $     -14.559, -15.707, -15.900, -15.739, -15.120,
     $     -13.875, -11.847,  -9.350,  -6.402,  -4.146,
     $      -1.994,  -0.573,   0.823,   1.952,   3.073,
     $       4.056,   5.040,   5.742,   6.423,   6.990,
     $       7.478,   7.961,   8.272/
      DATA ((C3P       ( I, J), I=1, 83),J= 34, 34) /
     $     -31.935, -32.466, -32.358, -32.783, -33.147,
     $     -32.366, -31.028, -29.155, -25.730, -21.672,
     $     -16.466, -11.995,  -8.222,  -5.721,  -4.903,
     $      -6.100,  -9.712, -14.885, -18.799, -20.163,
     $     -19.932, -17.714, -11.743,  -5.892,  -5.624,
     $     -11.997, -23.211, -30.466, -25.399, -10.428,
     $      16.693,  55.487,  83.852, 100.000,  88.375,
     $      76.311,  49.970,  14.494, -13.736, -30.196,
     $     -37.638, -37.616, -31.970, -25.968, -23.330,
     $     -22.592, -21.190, -18.649, -13.976,  -4.734,
     $      10.461,  23.147,  27.535,  28.140,  26.832,
     $      23.732,  17.273,   5.601,  -7.488, -16.982,
     $     -22.187, -24.867, -25.637, -25.538, -24.414,
     $     -22.027, -18.199, -13.546,  -8.262,  -4.280,
     $      -0.642,   1.699,   3.978,   5.782,   7.568,
     $       9.146,  10.711,  11.816,  12.911,  13.810,
     $      14.595,  15.364,  15.860/
      DATA ((C3P       ( I, J), I=1, 83),J= 35, 35) /
     $     -33.766, -34.258, -34.075, -34.351, -34.577,
     $     -33.502, -31.777, -29.423, -25.422, -20.762,
     $     -15.011, -10.239,  -6.397,  -4.121,  -3.831,
     $      -5.957, -10.890, -17.409, -21.805, -22.284,
     $     -19.664, -12.982,  -2.328,   4.602,   3.226,
     $      -6.964, -25.260, -41.517, -42.048, -29.663,
     $      -3.786,  37.249,  72.950,  88.375, 100.000,
     $      86.253,  65.717,  32.896,   4.066, -14.255,
     $     -24.489, -28.990, -28.801, -27.752, -28.678,
     $     -29.996, -29.117, -26.243, -20.820, -10.247,
     $       7.701,  23.811,  30.143,  31.690,  30.776,
     $      27.750,  20.956,   8.181,  -6.541, -17.471,
     $     -23.643, -26.915, -27.991, -28.040, -26.894,
     $     -24.313, -20.109, -14.968,  -9.116,  -4.698,
     $      -0.660,   1.938,   4.465,   6.461,   8.433,
     $      10.175,  11.900,  13.116,  14.321,  15.310,
     $      16.174,  17.020,  17.566/
      DATA ((C3P       ( I, J), I=1, 83),J= 36, 36) /
     $     -29.001, -29.462, -29.344, -29.684, -29.975,
     $     -29.212, -27.942, -26.195, -23.076, -19.446,
     $     -14.907, -11.168,  -8.240,  -6.658,  -6.815,
     $      -9.118, -13.763, -19.254, -22.040, -20.966,
     $     -16.971,  -8.877,   2.255,   8.154,   5.482,
     $      -6.188, -26.811, -46.156, -49.277, -39.662,
     $     -17.891,  19.453,  56.183,  76.311,  86.253,
     $     100.000,  80.228,  55.981,  30.323,  11.492,
     $      -2.141, -13.495, -21.799, -27.930, -32.968,
     $     -35.738, -34.681, -31.290, -25.852, -16.339,
     $       0.219,  16.550,  23.891,  26.365,  26.256,
     $      24.149,  18.767,   8.142,  -4.444, -14.003,
     $     -19.569, -22.637, -23.814, -24.119, -23.414,
     $     -21.516, -18.231, -14.112,  -9.275,  -5.574,
     $      -2.095,   0.180,   2.402,   4.174,   5.921,
     $       7.452,   8.973,  10.051,  11.105,  11.976,
     $      12.730,  13.472,  13.951/
      DATA ((C3P       ( I, J), I=1, 83),J= 37, 37) /
     $     -17.164, -17.566, -17.626, -18.160, -18.644,
     $     -18.695, -18.598, -18.394, -17.466, -16.345,
     $     -14.659, -13.217, -12.149, -11.730, -12.268,
     $     -14.033, -16.874, -19.196, -18.628, -15.566,
     $     -11.183,  -4.422,   3.381,   6.310,   2.817,
     $      -7.712, -25.645, -42.458, -46.020, -40.411,
     $     -27.040,  -1.210,  28.860,  49.970,  65.717,
     $      80.228, 100.000,  78.409,  61.323,  44.959,
     $      29.011,  10.285,  -8.094, -22.796, -32.333,
     $     -36.392, -35.228, -31.847, -27.688, -22.016,
     $     -11.385,   1.563,   8.770,  12.066,  13.134,
     $      12.775,  10.564,   5.395,  -1.203,  -6.508,
     $      -9.833, -11.853, -12.875, -13.488, -13.615,
     $     -13.196, -12.048, -10.398,  -8.146,  -6.325,
     $      -4.409,  -3.079,  -1.759,  -0.668,   0.407,
     $       1.329,   2.258,   2.929,   3.556,   4.087,
     $       4.535,   4.984,   5.272/
      DATA ((C3P       ( I, J), I=1, 83),J= 38, 38) /
     $      -2.381,  -2.691,  -2.954,  -3.679,  -4.356,
     $      -5.344,  -6.603,  -8.181,  -9.820, -11.625,
     $     -13.266, -14.468, -15.475, -16.245, -16.968,
     $     -17.720, -18.010, -16.411, -12.275,  -7.713,
     $      -4.047,  -0.600,   1.685,   1.012,  -2.367,
     $      -9.288, -20.256, -30.098, -32.540, -31.614,
     $     -29.099, -20.014,  -3.030,  14.494,  32.896,
     $      55.981,  78.409, 100.000,  82.753,  72.417,
     $      57.656,  35.404,  10.345, -10.513, -23.261,
     $     -28.515, -28.183, -26.080, -24.604, -24.552,
     $     -22.572, -15.654,  -9.787,  -6.115,  -3.946,
     $      -2.375,  -0.817,   0.804,   1.909,   2.242,
     $       2.023,   1.559,   0.929,   0.125,  -0.858,
     $      -2.095,  -3.444,  -4.745,  -5.674,  -6.209,
     $      -6.320,  -6.246,  -6.127,  -5.951,  -5.773,
     $      -5.651,  -5.503,  -5.370,  -5.295,  -5.209,
     $      -5.156,  -5.087,  -5.044/
      DATA ((C3P       ( I, J), I=1, 83),J= 39, 39) /
     $       7.316,   7.074,   6.685,   5.850,   5.066,
     $       3.492,   1.384,  -1.306,  -4.558,  -8.192,
     $     -11.901, -14.719, -16.946, -18.343, -19.020,
     $     -18.922, -17.389, -13.254,  -7.120,  -2.095,
     $       0.469,   0.904,  -1.052,  -3.890,  -6.422,
     $      -9.555, -13.737, -16.932, -18.107, -20.721,
     $     -26.556, -31.104, -26.161, -13.736,   4.066,
     $      30.323,  61.323,  82.753, 100.000,  84.749,
     $      74.158,  53.612,  27.697,   5.048,  -9.115,
     $     -15.889, -17.692, -18.001, -19.627, -24.392,
     $     -29.346, -27.492, -22.990, -19.263, -16.460,
     $     -13.668,  -9.609,  -3.305,   3.273,   7.719,
     $       9.851,  10.621,  10.399,   9.595,   8.154,
     $       5.922,   2.988,  -0.236,  -3.314,  -5.476,
     $      -7.041,  -7.884,  -8.645,  -9.138,  -9.605,
     $     -10.050, -10.451, -10.695, -11.002, -11.221,
     $     -11.439, -11.630, -11.755/
      DATA ((C3P       ( I, J), I=1, 83),J= 40, 40) /
     $       9.471,   9.227,   8.794,   7.896,   7.052,
     $       5.294,   2.932,  -0.080,  -3.760,  -7.855,
     $     -12.032, -15.160, -17.554, -18.935, -19.414,
     $     -18.916, -16.781, -11.997,  -5.560,  -0.797,
     $       0.937,  -0.167,  -3.673,  -6.651,  -8.009,
     $      -8.551,  -8.605,  -8.110,  -8.872, -13.626,
     $     -24.101, -36.381, -38.770, -30.196, -14.255,
     $      11.492,  44.959,  72.417,  84.749, 100.000,
     $      82.649,  67.478,  44.783,  23.072,   7.949,
     $      -1.619,  -7.249, -11.117, -16.045, -24.252,
     $     -33.088, -33.629, -29.551, -25.645, -22.542,
     $     -19.312, -14.365,  -6.257,   2.608,   8.889,
     $      12.156,  13.574,  13.654,  12.990,  11.522,
     $       9.076,   5.700,   1.874,  -1.960,  -4.746,
     $      -6.922,  -8.169,  -9.310, -10.080, -10.798,
     $     -11.447, -12.035, -12.403, -12.831, -13.143,
     $     -13.441, -13.708, -13.881/
      DATA ((C3P       ( I, J), I=1, 83),J= 41, 41) /
     $       5.534,   5.221,   4.800,   3.847,   2.956,
     $       1.298,  -0.889,  -3.649,  -6.865, -10.389,
     $     -13.804, -16.227, -17.955, -18.798, -18.940,
     $     -18.368, -16.547, -12.511,  -6.986,  -2.951,
     $      -1.765,  -3.202,  -6.142,  -7.724,  -7.730,
     $      -6.744,  -4.946,  -3.237,  -4.289, -10.076,
     $     -22.276, -37.597, -43.470, -37.638, -24.489,
     $      -2.141,  29.011,  57.656,  74.158,  82.649,
     $     100.000,  79.115,  63.167,  44.701,  28.981,
     $      15.451,   4.380,  -4.216, -12.834, -23.620,
     $     -34.236, -35.383, -31.153, -27.054, -23.967,
     $     -20.960, -16.431,  -8.765,  -0.025,   6.417,
     $       9.966,  11.639,  11.984,  11.598,  10.452,
     $       8.405,   5.474,   2.067,  -1.450,  -4.088,
     $      -6.228,  -7.482,  -8.619,  -9.362, -10.020,
     $     -10.589, -11.082, -11.372, -11.714, -11.951,
     $     -12.180, -12.376, -12.503/
      DATA ((C3P       ( I, J), I=1, 83),J= 42, 42) /
     $      -1.299,  -1.714,  -2.099,  -3.104,  -4.032,
     $      -5.454,  -7.258,  -9.483, -11.801, -14.247,
     $     -16.292, -17.500, -18.130, -18.137, -17.797,
     $     -17.178, -15.928, -13.130,  -9.033,  -5.989,
     $      -5.302,  -6.679,  -8.404,  -8.222,  -7.028,
     $      -5.218,  -2.742,  -0.742,  -1.829,  -7.310,
     $     -18.644, -33.437, -40.576, -37.616, -28.990,
     $     -13.495,  10.285,  35.404,  53.612,  67.478,
     $      79.115, 100.000,  78.557,  66.578,  52.253,
     $      35.627,  19.246,   5.893,  -6.158, -18.680,
     $     -30.190, -32.277, -28.721, -25.150, -22.684,
     $     -20.566, -17.440, -11.643,  -4.374,   1.421,
     $       4.934,   6.778,   7.476,   7.528,   6.950,
     $       5.679,   3.710,   1.311,  -1.273,  -3.315,
     $      -5.043,  -6.075,  -6.991,  -7.546,  -7.985,
     $      -8.333,  -8.592,  -8.711,  -8.869,  -8.953,
     $      -9.043,  -9.101,  -9.138/
      DATA ((C3P       ( I, J), I=1, 83),J= 43, 43) /
     $      -6.057,  -6.561,  -6.937,  -8.015,  -9.002,
     $     -10.307, -11.902, -13.823, -15.583, -17.342,
     $     -18.473, -18.835, -18.658, -17.982, -17.137,
     $     -16.200, -14.925, -12.512,  -9.108,  -6.716,
     $      -6.511,  -8.265,  -9.960,  -9.327,  -7.788,
     $      -5.804,  -3.031,  -0.266,  -0.171,  -3.882,
     $     -12.410, -24.421, -31.745, -31.970, -28.801,
     $     -21.799,  -8.094,  10.345,  27.697,  44.783,
     $      63.167,  78.557, 100.000,  80.570,  70.523,
     $      54.215,  35.562,  19.638,   5.786,  -7.414,
     $     -20.134, -25.393, -24.480, -22.675, -21.504,
     $     -20.664, -19.162, -15.216,  -9.140,  -3.633,
     $       0.152,   2.389,   3.571,   4.117,   4.076,
     $       3.472,   2.298,   0.722,  -1.088,  -2.613,
     $      -3.966,  -4.794,  -5.516,  -5.921,  -6.199,
     $      -6.389,  -6.490,  -6.497,  -6.533,  -6.518,
     $      -6.518,  -6.489,  -6.468/
      DATA ((C3P       ( I, J), I=1, 83),J= 44, 44) /
     $      -4.642,  -5.211,  -5.675,  -6.938,  -8.092,
     $      -9.715, -11.724, -14.157, -16.511, -18.900,
     $     -20.610, -21.320, -21.279, -20.461, -19.176,
     $     -17.374, -14.706, -10.538,  -5.790,  -3.001,
     $      -3.259,  -6.615, -11.077, -12.616, -12.000,
     $     -10.192,  -6.525,  -1.159,   1.952,   0.968,
     $      -4.524, -14.122, -22.300, -25.968, -27.752,
     $     -27.930, -22.796, -10.513,   5.048,  23.072,
     $      44.701,  66.578,  80.570, 100.000,  81.820,
     $      69.846,  52.946,  37.343,  23.448,   9.755,
     $      -6.364, -18.577, -22.768, -23.997, -24.586,
     $     -24.953, -24.350, -20.515, -13.407,  -6.407,
     $      -1.266,   1.963,   3.829,   4.831,   5.012,
     $       4.452,   3.169,   1.395,  -0.660,  -2.362,
     $      -3.874,  -4.808,  -5.645,  -6.155,  -6.549,
     $      -6.849,  -7.066,  -7.159,  -7.282,  -7.341,
     $      -7.405,  -7.442,  -7.463/
      DATA ((C3P       ( I, J), I=1, 83),J= 45, 45) /
     $       4.436,   3.827,   3.149,   1.554,   0.090,
     $      -2.406,  -5.621,  -9.604, -14.013, -18.698,
     $     -22.865, -25.423, -26.707, -26.437, -24.824,
     $     -21.541, -15.883,  -7.408,   1.171,   5.654,
     $       4.954,  -1.506, -12.021, -18.683, -20.258,
     $     -18.697, -12.985,  -2.649,   5.330,   7.464,
     $       4.003,  -5.286, -16.054, -23.330, -28.678,
     $     -32.968, -32.333, -23.261,  -9.115,   7.949,
     $      28.981,  52.253,  70.523,  81.820, 100.000,
     $      82.120,  70.847,  58.354,  45.911,  31.312,
     $       8.828, -14.355, -25.927, -31.213, -33.786,
     $     -34.993, -34.078, -27.822, -16.624,  -5.781,
     $       2.081,   7.019,   9.771,  11.128,  11.082,
     $       9.727,   7.124,   3.775,   0.090,  -2.746,
     $      -5.166,  -6.647,  -8.031,  -8.991,  -9.865,
     $     -10.621, -11.304, -11.734, -12.206, -12.555,
     $     -12.878, -13.169, -13.358/
      DATA ((C3P       ( I, J), I=1, 83),J= 46, 46) /
     $      17.493,  16.886,  15.956,  14.016,  12.227,
     $       8.661,   3.943,  -1.987,  -9.060, -16.754,
     $     -24.230, -29.350, -32.564, -33.249, -31.468,
     $     -26.564, -17.368,  -3.637,   9.725,  16.438,
     $      15.386,   5.383, -12.351, -25.304, -29.614,
     $     -28.356, -20.236,  -4.239,   9.022,  14.092,
     $      11.841,   1.673, -12.232, -22.592, -29.996,
     $     -35.738, -36.392, -28.515, -15.889,  -1.619,
     $      15.451,  35.627,  54.215,  69.846,  82.120,
     $     100.000,  84.888,  77.678,  68.181,  53.250,
     $      24.054, -10.914, -30.385, -39.939, -44.430,
     $     -46.167, -44.279, -34.526, -18.181,  -2.843,
     $       8.006,  14.725,  18.275,  19.807,  19.236,
     $      16.635,  12.130,   6.585,   0.690,  -3.656,
     $      -7.244,  -9.412, -11.481, -13.007, -14.495,
     $     -15.843, -17.136, -18.007, -18.940, -19.671,
     $     -20.338, -20.968, -21.378/
      DATA ((C3P       ( I, J), I=1, 83),J= 47, 47) /
     $      27.410,  26.843,  25.759,  23.650,  21.697,
     $      17.450,  11.757,   4.549,  -4.334, -14.093,
     $     -23.904, -30.878, -35.537, -37.012, -35.247,
     $     -29.361, -17.867,  -0.670,  15.859,  24.084,
     $      22.905,  10.736, -11.702, -28.974, -35.282,
     $     -34.420, -24.980,  -5.566,  10.991,  17.931,
     $      16.506,   6.014,  -9.432, -21.190, -29.117,
     $     -34.681, -35.228, -28.183, -17.692,  -7.249,
     $       4.380,  19.246,  35.562,  52.946,  70.847,
     $      84.888, 100.000,  88.045,  82.316,  68.783,
     $      36.548,  -5.768, -30.673, -43.294, -49.168,
     $     -51.276, -48.779, -36.973, -17.774,  -0.047,
     $      12.312,  19.885,  23.730,  25.184,  24.101,
     $      20.529,  14.665,   7.628,   0.335,  -4.898,
     $      -9.089, -11.580, -13.981, -15.801, -17.639,
     $     -19.345, -21.018, -22.172, -23.407, -24.392,
     $     -25.290, -26.150, -26.710/
      DATA ((C3P       ( I, J), I=1, 83),J= 48, 48) /
     $      31.334,  30.805,  29.681,  27.557,  25.587,
     $      21.146,  15.162,   7.565,  -1.912, -12.360,
     $     -22.988, -30.637, -35.849, -37.668, -35.986,
     $     -29.854, -17.683,   0.573,  18.087,  26.828,
     $      25.741,  13.124, -10.649, -29.404, -36.573,
     $     -36.164, -26.787,  -6.763,  10.709,  18.418,
     $      17.726,   7.990,  -7.046, -18.649, -26.243,
     $     -31.290, -31.847, -26.080, -18.001, -11.117,
     $      -4.216,   5.893,  19.638,  37.343,  58.354,
     $      77.678,  88.045, 100.000,  88.897,  78.254,
     $      47.009,   2.263, -25.384, -39.828, -46.649,
     $     -49.231, -47.001, -35.431, -16.529,   0.917,
     $      13.046,  20.436,  24.086,  25.283,  23.850,
     $      19.831,  13.505,   6.083,  -1.380,  -6.584,
     $     -10.569, -12.871, -15.102, -16.820, -18.611,
     $     -20.319, -22.021, -23.208, -24.495, -25.528,
     $     -26.476, -27.388, -27.985/
      DATA ((C3P       ( I, J), I=1, 83),J= 49, 49) /
     $      28.295,  27.776,  26.721,  24.702,  22.832,
     $      18.677,  13.092,   6.010,  -2.782, -12.457,
     $     -22.250, -29.257, -33.994, -35.594, -33.987,
     $     -28.324, -17.139,  -0.319,  15.928,  24.176,
     $      23.424,  12.160,  -9.396, -26.632, -33.495,
     $     -33.706, -26.001,  -8.362,   7.676,  15.271,
     $      15.648,   8.333,  -3.996, -13.976, -20.820,
     $     -25.852, -27.688, -24.604, -19.627, -16.045,
     $     -12.834,  -6.158,   5.786,  23.448,  45.911,
     $      68.181,  82.316,  88.897, 100.000,  85.299,
     $      59.544,  16.719, -11.785, -27.409, -35.157,
     $     -38.687, -38.098, -29.776, -15.040,  -1.028,
     $       8.887,  14.936,  17.863,  18.597,  16.978,
     $      13.074,   7.294,   0.764,  -5.380,  -9.413,
     $     -12.132, -13.556, -14.945, -16.036, -17.266,
     $     -18.526, -19.815, -20.727, -21.759, -22.592,
     $     -23.371, -24.125, -24.622/
      DATA ((C3P       ( I, J), I=1, 83),J= 50, 50) /
     $      13.939,  13.399,  12.603,  10.920,   9.369,
     $       6.332,   2.326,  -2.698,  -8.643, -15.088,
     $     -21.285, -25.473, -28.044, -28.512, -26.989,
     $     -22.998, -15.577,  -4.373,   6.801,  12.824,
     $      12.806,   5.920,  -7.512, -18.304, -22.991,
     $     -24.174, -20.895, -10.673,   0.064,   6.225,
     $       8.516,   6.772,   1.194,  -4.734, -10.247,
     $     -16.339, -22.016, -24.552, -24.392, -24.252,
     $     -23.620, -18.680,  -7.414,   9.755,  31.312,
     $      53.250,  68.783,  78.254,  85.299, 100.000,
     $      76.432,  42.824,  16.486,   0.645,  -8.052,
     $     -13.347, -16.717, -16.752, -12.790,  -7.616,
     $      -3.331,  -0.628,   0.652,   0.558,  -0.994,
     $      -3.849,  -7.396, -10.888, -13.211, -14.137,
     $     -13.792, -13.167, -12.575, -12.152, -11.959,
     $     -12.018, -12.156, -12.279, -12.547, -12.766,
     $     -13.016, -13.259, -13.431/
      DATA ((C3P       ( I, J), I=1, 83),J= 51, 51) /
     $     -14.662, -15.182, -15.399, -16.257, -17.028,
     $     -17.614, -18.186, -18.763, -18.671, -18.300,
     $     -17.027, -15.433, -13.638, -11.920, -10.709,
     $     -10.266, -10.681, -11.229, -10.849,  -9.784,
     $      -8.620,  -6.843,  -3.814,  -1.293,  -1.132,
     $      -3.544,  -8.210, -12.371, -12.658, -10.193,
     $      -5.304,   2.335,   8.808,  10.461,   7.701,
     $       0.219, -11.385, -22.572, -29.346, -33.088,
     $     -34.236, -30.190, -20.134,  -6.364,   8.828,
     $      24.054,  36.548,  47.009,  59.544,  76.432,
     $     100.000,  76.391,  59.190,  46.389,  37.971,
     $      30.847,  21.575,   7.674,  -7.001, -17.478,
     $     -23.348, -26.706, -28.385, -29.799, -30.882,
     $     -31.366, -30.441, -28.153, -23.664, -19.287,
     $     -13.980, -10.118,  -6.380,  -3.519,  -0.972,
     $       1.016,   2.871,   4.129,   5.232,   6.122,
     $       6.840,   7.534,   7.966/
      DATA ((C3P       ( I, J), I=1, 83),J= 52, 52) /
     $     -41.593, -41.976, -41.536, -41.337, -41.117,
     $     -38.990, -35.818, -31.581, -25.147, -17.675,
     $      -8.810,  -1.475,   4.525,   8.169,   8.791,
     $       5.413,  -3.143, -15.927, -26.997, -31.417,
     $     -29.333, -18.941,   0.651,  16.646,  21.961,
     $      18.948,   7.194, -10.963, -22.753, -24.846,
     $     -18.582,  -3.216,  14.088,  23.147,  23.811,
     $      16.550,   1.563, -15.654, -27.492, -33.629,
     $     -35.383, -32.277, -25.393, -18.577, -14.355,
     $     -10.914,  -5.768,   2.263,  16.719,  42.824,
     $      76.391, 100.000,  88.334,  82.323,  76.633,
     $      69.712,  57.007,  32.519,   2.232, -22.032,
     $     -37.216, -46.234, -50.742, -53.316, -53.754,
     $     -51.772, -46.567, -39.005, -28.745, -20.117,
     $     -11.134,  -4.962,   1.046,   5.703,  10.065,
     $      13.700,  17.197,  19.613,  21.896,  23.749,
     $      25.322,  26.850,  27.822/
      DATA ((C3P       ( I, J), I=1, 83),J= 53, 53) /
     $     -52.813, -53.077, -52.303, -51.512, -50.742,
     $     -47.268, -42.262, -35.682, -26.254, -15.456,
     $      -3.130,   6.756,  14.556,  18.929,  19.143,
     $      13.909,   1.543, -16.977, -33.512, -40.653,
     $     -38.283, -24.046,   3.036,  25.159,  32.941,
     $      29.969,  15.453,  -8.805, -26.013, -30.600,
     $     -24.359,  -6.375,  15.193,  27.535,  30.143,
     $      23.891,   8.770,  -9.787, -22.990, -29.551,
     $     -31.153, -28.721, -24.480, -22.768, -25.927,
     $     -30.385, -30.673, -25.384, -11.785,  16.486,
     $      59.190,  88.334, 100.000,  93.993,  90.974,
     $      85.447,  72.817,  45.570,   9.866, -19.823,
     $     -39.028, -50.615, -56.535, -59.728, -59.954,
     $     -56.999, -50.180, -40.725, -28.611, -18.769,
     $      -8.906,  -2.229,   4.310,   9.437,  14.343,
     $      18.523,  22.596,  25.438,  28.170,  30.400,
     $      32.314,  34.179,  35.373/
      DATA ((C3P       ( I, J), I=1, 83),J= 54, 54) /
     $     -56.212, -56.409, -55.503, -54.460, -53.456,
     $     -49.468, -43.772, -36.319, -25.811, -13.828,
     $      -0.309,  10.424,  18.790,  23.343,  23.347,
     $      17.413,   3.679, -16.897, -35.431, -43.611,
     $     -41.208, -25.692,   3.946,  28.196,  36.904,
     $      34.111,  18.880,  -7.346, -26.522, -32.212,
     $     -26.371,  -8.016,  14.668,  28.140,  31.690,
     $      26.365,  12.066,  -6.115, -19.263, -25.645,
     $     -27.054, -25.150, -22.675, -23.997, -31.213,
     $     -39.939, -43.294, -39.828, -27.409,   0.645,
     $      46.389,  82.323,  93.993, 100.000,  95.361,
     $      91.493,  80.415,  53.927,  17.381, -14.023,
     $     -34.954, -47.824, -54.657, -58.431, -58.921,
     $     -56.041, -49.216, -39.772, -27.814, -18.232,
     $      -8.714,  -2.269,   4.103,   9.184,  14.132,
     $      18.406,  22.621,  25.594,  28.464,  30.826,
     $      32.857,  34.849,  36.127/
      DATA ((C3P       ( I, J), I=1, 83),J= 55, 55) /
     $     -55.623, -55.798, -54.883, -53.802, -52.763,
     $     -48.747, -43.023, -35.540, -25.029, -13.057,
     $       0.412,  11.076,  19.361,  23.829,  23.764,
     $      17.787,   4.035, -16.553, -35.124, -43.362,
     $     -41.031, -25.621,   3.899,  28.113,  36.889,
     $      34.280,  19.337,  -6.676, -25.913, -31.883,
     $     -26.555,  -8.906,  13.328,  26.832,  30.776,
     $      26.256,  13.134,  -3.946, -16.460, -22.542,
     $     -23.967, -22.684, -21.504, -24.586, -33.786,
     $     -44.430, -49.168, -46.649, -35.157,  -8.052,
     $      37.971,  76.633,  90.974,  95.361, 100.000,
     $      94.345,  85.931,  62.291,  27.168,  -4.404,
     $     -26.309, -40.158, -47.964, -52.589, -53.874,
     $     -51.928, -46.270, -38.158, -27.674, -19.300,
     $     -10.856,  -5.050,   0.791,   5.590,  10.364,
     $      14.538,  18.724,  21.725,  24.609,  27.014,
     $      29.076,  31.118,  32.430/
      DATA ((C3P       ( I, J), I=1, 83),J= 56, 56) /
     $     -51.759, -51.939, -51.104, -50.141, -49.214,
     $     -45.539, -40.291, -33.425, -23.749, -12.718,
     $      -0.281,   9.583,  17.257,  21.410,  21.365,
     $      15.837,   3.113, -15.905, -33.002, -40.550,
     $     -38.388, -24.184,   3.115,  25.599,  33.791,
     $      31.415,  17.607,  -6.449, -24.283, -29.960,
     $     -25.359,  -9.425,  11.038,  23.732,  27.750,
     $      24.149,  12.775,  -2.375, -13.668, -19.312,
     $     -20.960, -20.566, -20.664, -24.953, -34.993,
     $     -46.167, -51.276, -49.231, -38.687, -13.347,
     $      30.847,  69.712,  85.447,  91.493,  94.345,
     $     100.000,  90.981,  72.504,  40.953,  10.447,
     $     -12.011, -26.774, -35.780, -41.620, -44.253,
     $     -44.085, -40.748, -35.294, -27.672, -21.560,
     $     -15.066, -10.416,  -5.561,  -1.335,   3.021,
     $       6.892,  10.881,  13.817,  16.603,  18.978,
     $      21.000,  23.035,  24.343/
      DATA ((C3P       ( I, J), I=1, 83),J= 57, 57) /
     $     -41.996, -42.201, -41.581, -40.943, -40.321,
     $     -37.545, -33.549, -28.300, -20.791, -12.201,
     $      -2.415,   5.409,  11.549,  14.937,  14.992,
     $      10.679,   0.660, -14.243, -27.480, -33.201,
     $     -31.420, -20.256,   1.328,  19.273,  25.841,
     $      23.894,  12.801,  -6.318, -20.400, -24.992,
     $     -21.688,  -9.437,   6.828,  17.273,  20.956,
     $      18.767,  10.564,  -0.817,  -9.609, -14.365,
     $     -16.431, -17.440, -19.162, -24.350, -34.078,
     $     -44.279, -48.779, -47.001, -38.098, -16.717,
     $      21.575,  57.007,  72.817,  80.415,  85.931,
     $      90.981, 100.000,  84.441,  60.642,  33.842,
     $      11.988,  -3.251, -13.583, -21.003, -25.676,
     $     -28.464, -29.200, -28.518, -26.133, -24.164,
     $     -21.311, -18.870, -15.967, -12.969,  -9.602,
     $      -6.498,  -3.111,  -0.488,   1.942,   4.101,
     $       5.913,   7.792,   9.003/
      DATA ((C3P       ( I, J), I=1, 83),J= 58, 58) /
     $     -22.085, -22.317, -22.110, -22.073, -22.019,
     $     -20.991, -19.436, -17.350, -14.114, -10.348,
     $      -5.838,  -2.095,   0.957,   2.784,   3.014,
     $       1.118,  -3.498, -10.217, -15.842, -17.997,
     $     -16.986, -11.839,  -1.661,   7.116,  10.356,
     $       9.233,   3.558,  -5.695, -12.242, -14.492,
     $     -13.410,  -8.084,  -0.105,   5.601,   8.181,
     $       8.142,   5.395,   0.804,  -3.305,  -6.257,
     $      -8.765, -11.643, -15.216, -20.515, -27.822,
     $     -34.526, -36.973, -35.431, -29.776, -16.752,
     $       7.674,  32.519,  45.570,  53.927,  62.291,
     $      72.504,  84.441, 100.000,  80.969,  63.360,
     $      45.543,  31.861,  21.156,  12.591,   5.706,
     $      -0.907,  -7.429, -13.807, -19.497, -23.982,
     $     -27.035, -28.314, -28.824, -28.163, -26.818,
     $     -25.356, -23.403, -21.656, -20.135, -18.631,
     $     -17.408, -16.048, -15.165/
      DATA ((C3P       ( I, J), I=1, 83),J= 59, 59) /
     $       2.289,   2.059,   1.791,   1.172,   0.604,
     $      -0.389,  -1.677,  -3.280,  -5.085,  -7.022,
     $      -8.800,  -9.955, -10.638, -10.737, -10.349,
     $      -9.390,  -7.571,  -4.573,  -1.233,   0.756,
     $       0.819,  -1.186,  -4.640,  -6.913,  -7.704,
     $      -7.818,  -6.937,  -4.351,  -1.887,  -1.259,
     $      -2.620,  -5.344,  -7.295,  -7.488,  -6.541,
     $      -4.444,  -1.203,   1.909,   3.273,   2.608,
     $      -0.025,  -4.374,  -9.140, -13.407, -16.624,
     $     -18.181, -17.774, -16.529, -15.040, -12.790,
     $      -7.001,   2.232,   9.866,  17.381,  27.168,
     $      40.953,  60.642,  80.969, 100.000,  83.896,
     $      73.565,  64.070,  55.001,  46.915,  39.104,
     $      29.817,  18.473,   5.807,  -7.544, -18.270,
     $     -27.354, -32.606, -36.904, -39.037, -40.247,
     $     -40.915, -40.944, -40.512, -40.288, -39.795,
     $     -39.452, -38.918, -38.561/
      DATA ((C3P       ( I, J), I=1, 83),J= 60, 60) /
     $      21.249,  21.042,  20.427,  19.352,  18.350,
     $      15.860,  12.460,   8.108,   2.510,  -3.731,
     $     -10.289, -15.192, -18.754, -20.368, -19.904,
     $     -16.803, -10.108,   0.240,  10.318,  15.388,
     $      14.710,   7.286,  -6.544, -17.281, -21.167,
     $     -20.487, -14.552,  -2.914,   6.406,   9.259,
     $       6.150,  -2.592, -12.145, -16.982, -17.471,
     $     -14.003,  -6.508,   2.242,   7.719,   8.889,
     $       6.417,   1.421,  -3.633,  -6.407,  -5.781,
     $      -2.843,  -0.047,   0.917,  -1.028,  -7.616,
     $     -17.478, -22.032, -19.823, -14.023,  -4.404,
     $      10.447,  33.842,  63.360,  83.896, 100.000,
     $      87.587,  82.952,  76.614,  70.233,  62.970,
     $      53.011,  39.433,  23.388,   5.382,  -9.296,
     $     -22.541, -30.699, -37.884, -42.295, -45.676,
     $     -48.179, -49.992, -50.803, -51.762, -52.234,
     $     -52.712, -52.977, -53.127/
      DATA ((C3P       ( I, J), I=1, 83),J= 61, 61) /
     $      32.486,  32.309,  31.503,  30.195,  28.970,
     $      25.648,  21.065,  15.167,   7.409,  -1.291,
     $     -10.607, -17.692, -22.948, -25.477, -25.007,
     $     -20.701, -11.216,   3.338,  17.245,  24.047,
     $      22.931,  12.396,  -7.416, -23.064, -28.748,
     $     -27.587, -18.687,  -1.797,  11.476,  15.632,
     $      11.578,  -0.577, -14.559, -22.187, -23.643,
     $     -19.569,  -9.833,   2.023,   9.851,  12.156,
     $       9.966,   4.934,   0.152,  -1.266,   2.081,
     $       8.006,  12.312,  13.046,   8.887,  -3.331,
     $     -23.348, -37.216, -39.028, -34.954, -26.309,
     $     -12.011,  11.988,  45.543,  73.565,  87.587,
     $     100.000,  90.243,  86.638,  82.308,  76.372,
     $      67.123,  53.385,  36.456,  16.578,   0.129,
     $     -15.333, -25.192, -34.159, -40.092, -44.979,
     $     -48.770, -51.882, -53.637, -55.464, -56.670,
     $     -57.761, -58.639, -59.178/
      DATA ((C3P       ( I, J), I=1, 83),J= 62, 62) /
     $      38.546,  38.392,  37.491,  36.076,  34.747,
     $      31.001,  25.811,  19.119,  10.235,   0.249,
     $     -10.525, -18.774, -24.946, -27.988, -27.544,
     $     -22.633, -11.705,   5.036,  20.937,  28.638,
     $      27.292,  15.131,  -7.815, -26.043, -32.669,
     $     -31.239, -20.755,  -1.089,  14.262,  19.108,
     $      14.576,   0.637, -15.707, -24.867, -26.915,
     $     -22.637, -11.853,   1.559,  10.621,  13.574,
     $      11.639,   6.778,   2.389,   1.963,   7.019,
     $      14.725,  19.885,  20.436,  14.936,  -0.628,
     $     -26.706, -46.234, -50.615, -47.824, -40.158,
     $     -26.775,  -3.251,  31.861,  64.070,  82.952,
     $      90.243, 100.000,  91.386,  88.894,  84.401,
     $      76.330,  63.295,  46.595,  26.153,   8.962,
     $      -7.759, -18.696, -28.845, -35.848, -41.815,
     $     -46.526, -50.589, -53.051, -55.509, -57.262,
     $     -58.801, -60.134, -60.963/
      DATA ((C3P       ( I, J), I=1, 83),J= 63, 63) /
     $      40.683,  40.550,  39.627,  38.203,  36.864,
     $      33.012,  27.661,  20.752,  11.539,   1.166,
     $     -10.070, -18.707, -25.206, -28.456, -28.071,
     $     -23.017, -11.681,   5.700,  22.181,  30.139,
     $      28.717,  16.063,  -7.842, -26.867, -33.776,
     $     -32.232, -21.208,  -0.649,  15.341,  20.400,
     $      15.739,   1.244, -15.900, -25.637, -27.991,
     $     -23.814, -12.875,   0.929,  10.399,  13.654,
     $      11.984,   7.476,   3.571,   3.829,   9.771,
     $      18.275,  23.730,  24.086,  17.863,   0.652,
     $     -28.385, -50.742, -56.535, -54.657, -47.964,
     $     -35.780, -13.583,  21.156,  55.001,  76.614,
     $      86.638,  91.386, 100.000,  91.021,  88.066,
     $      81.561,  69.940,  54.396,  34.488,  17.441,
     $       0.294, -11.175, -21.985, -29.674, -36.367,
     $     -41.699, -46.433, -49.417, -52.319, -54.475,
     $     -56.334, -58.005, -59.046/
      DATA ((C3P       ( I, J), I=1, 83),J= 64, 64) /
     $      40.699,  40.583,  39.677,  38.296,  36.995,
     $      33.201,  27.923,  21.102,  11.978,   1.694,
     $      -9.480, -18.098, -24.613, -27.921, -27.622,
     $     -22.687, -11.511,   5.675,  21.993,  29.879,
     $      28.470,  15.929,  -7.760, -26.605, -33.427,
     $     -31.845, -20.838,  -0.395,  15.463,  20.466,
     $      15.827,   1.391, -15.739, -25.538, -28.040,
     $     -24.119, -13.488,   0.125,   9.595,  12.990,
     $      11.598,   7.528,   4.117,   4.831,  11.128,
     $      19.807,  25.184,  25.283,  18.597,   0.558,
     $     -29.799, -53.316, -59.728, -58.431, -52.589,
     $     -41.620, -21.003,  12.591,  46.915,  70.233,
     $      82.308,  88.894,  91.021, 100.000,  90.638,
     $      86.048,  76.342,  62.524,  43.695,  27.181,
     $       9.886,  -1.972, -13.314, -21.617, -28.974,
     $     -34.867, -40.225, -43.709, -47.018, -49.554,
     $     -51.708, -53.696, -54.937/
      DATA ((C3P       ( I, J), I=1, 83),J= 65, 65) /
     $      38.356,  38.258,  37.414,  36.137,  34.933,
     $      31.391,  26.459,  20.079,  11.526,   1.875,
     $      -8.639, -16.776, -22.963, -26.158, -25.978,
     $     -21.461, -11.090,   4.948,  20.246,  27.677,
     $      26.376,  14.633,  -7.511, -25.073, -31.392,
     $     -29.853, -19.483,  -0.292,  14.555,  19.197,
     $      14.758,   1.079, -15.120, -24.414, -26.894,
     $     -23.414, -13.615,  -0.858,   8.154,  11.522,
     $      10.452,   6.950,   4.076,   5.012,  11.082,
     $      19.236,  24.101,  23.850,  16.978,  -0.994,
     $     -30.882, -53.754, -59.954, -58.921, -53.874,
     $     -44.253, -25.676,   5.706,  39.104,  62.970,
     $      76.372,  84.401,  88.066,  90.638, 100.000,
     $      89.106,  81.963,  70.634,  53.666,  38.283,
     $      21.316,   9.348,  -2.280, -11.046, -18.942,
     $     -25.292, -31.192, -35.134, -38.794, -41.678,
     $     -44.092, -46.372, -47.796/
      DATA ((C3P       ( I, J), I=1, 83),J= 66, 66) /
     $      33.351,  33.273,  32.546,  31.453,  30.420,
     $      27.363,  23.098,  17.577,  10.161,   1.778,
     $      -7.382, -14.504, -19.967, -22.860, -22.847,
     $     -19.097, -10.280,   3.503,  16.774,  23.291,
     $      22.205,  12.056,  -7.007, -22.022, -27.362,
     $     -25.953, -16.927,  -0.295,  12.527,  16.457,
     $      12.439,   0.342, -13.875, -22.027, -24.313,
     $     -21.516, -13.196,  -2.095,   5.922,   9.076,
     $       8.405,   5.679,   3.472,   4.452,   9.727,
     $      16.635,  20.529,  19.831,  13.074,  -3.849,
     $     -31.366, -51.772, -56.999, -56.041, -51.928,
     $     -44.085, -28.464,  -0.907,  29.817,  53.011,
     $      67.123,  76.330,  81.561,  86.048,  89.106,
     $     100.000,  86.354,  78.676,  64.781,  51.479,
     $      35.626,  24.009,  12.503,   3.509,  -4.745,
     $     -11.407, -17.750, -22.113, -26.065, -29.271,
     $     -31.913, -34.469, -36.067/
      DATA ((C3P       ( I, J), I=1, 83),J= 67, 67) /
     $      25.629,  25.576,  25.023,  24.196,  23.413,
     $      21.078,  17.816,  13.586,   7.890,   1.434,
     $      -5.654, -11.210, -15.531, -17.916, -18.101,
     $     -15.458,  -8.944,   1.458,  11.661,  16.778,
     $      16.007,   8.265,  -6.159, -17.359, -21.250,
     $     -20.069, -13.111,  -0.375,   9.388,  12.261,
     $       8.920,  -0.712, -11.847, -18.199, -20.109,
     $     -18.231, -12.048,  -3.444,   2.988,   5.700,
     $       5.474,   3.710,   2.298,   3.169,   7.124,
     $      12.130,  14.665,  13.505,   7.294,  -7.396,
     $     -30.441, -46.567, -50.180, -49.216, -46.270,
     $     -40.748, -29.200,  -7.429,  18.473,  39.433,
     $      53.385,  63.295,  69.940,  76.342,  81.963,
     $      86.354, 100.000,  84.285,  74.858,  64.847,
     $      51.287,  40.801,  30.152,  21.431,  13.240,
     $       6.597,   0.092,  -4.530,  -8.605, -12.017,
     $     -14.785, -17.534, -19.255/
      DATA ((C3P       ( I, J), I=1, 83),J= 68, 68) /
     $      16.468,  16.440,  16.090,  15.572,  15.079,
     $      13.592,  11.508,   8.796,   5.128,   0.947,
     $      -3.688,  -7.379, -10.333, -12.092, -12.482,
     $     -11.113,  -7.285,  -0.848,   5.737,   9.191,
     $       8.784,   3.874,  -5.101, -11.832, -14.035,
     $     -13.140,  -8.635,  -0.499,   5.663,   7.307,
     $       4.792,  -1.891,  -9.350, -13.546, -14.968,
     $     -14.112, -10.398,  -4.745,  -0.236,   1.874,
     $       2.067,   1.311,   0.722,   1.395,   3.775,
     $       6.585,   7.628,   6.083,   0.764, -10.888,
     $     -28.153, -39.005, -40.725, -39.772, -38.158,
     $     -35.294, -28.518, -13.807,   5.807,  23.388,
     $      36.456,  46.595,  54.396,  62.524,  70.634,
     $      78.676,  84.285, 100.000,  82.831,  77.041,
     $      66.801,  58.178,  49.096,  41.159,  33.472,
     $      27.195,  20.830,  16.138,  12.121,   8.632,
     $       5.850,   3.004,   1.218/
      DATA ((C3P       ( I, J), I=1, 83),J= 69, 69) /
     $       6.654,   6.651,   6.518,   6.326,   6.141,
     $       5.557,   4.730,   3.639,   2.140,   0.396,
     $      -1.600,  -3.277,  -4.736,  -5.786,  -6.349,
     $      -6.287,  -5.271,  -3.035,  -0.324,   1.325,
     $       1.291,  -0.606,  -3.805,  -5.832,  -6.278,
     $      -5.713,  -3.842,  -0.618,   1.715,   2.082,
     $       0.510,  -2.934,  -6.402,  -8.262,  -9.116,
     $      -9.275,  -8.146,  -5.674,  -3.314,  -1.960,
     $      -1.450,  -1.273,  -1.088,  -0.660,   0.090,
     $       0.690,   0.335,  -1.380,  -5.380, -13.211,
     $     -23.664, -28.745, -28.611, -27.814, -27.674,
     $     -27.672, -26.133, -19.497,  -7.544,   5.382,
     $      16.578,  26.153,  34.488,  43.695,  53.666,
     $      64.781,  74.858,  82.831, 100.000,  84.124,
     $      78.371,  72.542,  65.985,  59.596,  53.111,
     $      47.755,  42.060,  37.661,  34.021,  30.715,
     $      28.126,  25.386,  23.658/
      DATA ((C3P       ( I, J), I=1, 83),J= 70, 70) /
     $      -0.554,  -0.538,  -0.513,  -0.466,  -0.427,
     $      -0.349,  -0.256,  -0.158,  -0.065,  -0.018,
     $      -0.075,  -0.266,  -0.619,  -1.137,  -1.811,
     $      -2.692,  -3.722,  -4.556,  -4.689,  -4.375,
     $      -4.142,  -3.837,  -2.816,  -1.415,  -0.586,
     $      -0.272,  -0.337,  -0.713,  -1.178,  -1.735,
     $      -2.592,  -3.629,  -4.146,  -4.280,  -4.698,
     $      -5.574,  -6.325,  -6.209,  -5.476,  -4.746,
     $      -4.088,  -3.315,  -2.613,  -2.362,  -2.746,
     $      -3.656,  -4.898,  -6.584,  -9.413, -14.137,
     $     -19.287, -20.117, -18.769, -18.232, -19.300,
     $     -21.560, -24.164, -23.982, -18.270,  -9.296,
     $       0.129,   8.962,  17.441,  27.181,  38.283,
     $      51.479,  64.847,  77.041,  84.124, 100.000,
     $      86.061,  82.915,  78.838,  74.047,  68.842,
     $      64.468,  59.531,  55.515,  52.304,  49.244,
     $      46.888,  44.303,  42.664/
      DATA ((C3P       ( I, J), I=1, 83),J= 71, 71) /
     $      -6.689,  -6.661,  -6.503,  -6.259,  -6.032,
     $      -5.398,  -4.529,  -3.427,  -1.986,  -0.418,
     $       1.181,   2.269,   2.880,   2.849,   2.122,
     $       0.491,  -2.221,  -5.621,  -8.166,  -9.004,
     $      -8.560,  -6.403,  -1.852,   2.392,   4.261,
     $       4.340,   2.624,  -0.795,  -3.609,  -4.914,
     $      -5.108,  -4.029,  -1.994,  -0.642,  -0.660,
     $      -2.095,  -4.409,  -6.320,  -7.041,  -6.922,
     $      -6.228,  -5.043,  -3.966,  -3.874,  -5.166,
     $      -7.244,  -9.089, -10.569, -12.132, -13.792,
     $     -13.980, -11.134,  -8.906,  -8.714, -10.856,
     $     -15.066, -21.311, -27.035, -27.354, -22.541,
     $     -15.333,  -7.759,   0.294,   9.886,  21.316,
     $      35.626,  51.287,  66.801,  78.371,  86.061,
     $     100.000,  88.532,  87.273,  84.431,  80.864,
     $      77.762,  73.898,  70.511,  67.924,  65.290,
     $      63.304,  61.021,  59.561/
      DATA ((C3P       ( I, J), I=1, 83),J= 72, 72) /
     $     -10.475, -10.441, -10.204,  -9.843,  -9.507,
     $      -8.536,  -7.198,  -5.489,  -3.226,  -0.730,
     $       1.887,   3.766,   4.984,   5.271,   4.534,
     $       2.471,  -1.242,  -6.188, -10.202, -11.751,
     $     -11.184,  -7.905,  -1.220,   4.731,   7.216,
     $       7.138,   4.406,  -0.870,  -5.104,  -6.846,
     $      -6.606,  -4.195,  -0.573,   1.699,   1.938,
     $       0.180,  -3.079,  -6.246,  -7.884,  -8.169,
     $      -7.482,  -6.075,  -4.794,  -4.808,  -6.647,
     $      -9.412, -11.580, -12.871, -13.556, -13.167,
     $     -10.118,  -4.962,  -2.229,  -2.269,  -5.050,
     $     -10.416, -18.870, -28.314, -32.606, -30.699,
     $     -25.192, -18.696, -11.175,  -1.972,   9.348,
     $      24.009,  40.801,  58.178,  72.542,  82.915,
     $      88.532, 100.000,  91.210,  89.827,  87.514,
     $      85.395,  82.389,  79.531,  77.451,  75.183,
     $      73.507,  71.490,  70.192/
      DATA ((C3P       ( I, J), I=1, 83),J= 73, 73) /
     $     -14.127, -14.090, -13.780, -13.314, -12.878,
     $     -11.594,  -9.816,  -7.535,  -4.495,  -1.118,
     $       2.471,   5.111,   6.918,   7.523,   6.794,
     $       4.338,  -0.308,  -6.709, -12.112, -14.337,
     $     -13.656,  -9.316,  -0.616,   6.944,  10.005,
     $       9.769,   6.060,  -0.982,  -6.555,  -8.699,
     $      -8.028,  -4.327,   0.823,   3.978,   4.465,
     $       2.402,  -1.759,  -6.127,  -8.645,  -9.310,
     $      -8.619,  -6.991,  -5.516,  -5.645,  -8.031,
     $     -11.481, -13.981, -15.102, -14.945, -12.575,
     $      -6.380,   1.046,   4.310,   4.103,   0.791,
     $      -5.561, -15.967, -28.824, -36.904, -37.884,
     $     -34.159, -28.845, -21.985, -13.314,  -2.280,
     $      12.503,  30.152,  49.096,  65.985,  78.838,
     $      87.273,  91.210, 100.000,  94.071,  93.037,
     $      91.930,  89.823,  87.536,  85.995,  84.127,
     $      82.788,  81.069,  79.951/
      DATA ((C3P       ( I, J), I=1, 83),J= 74, 74) /
     $     -16.935, -16.899, -16.535, -15.994, -15.488,
     $     -13.971, -11.866,  -9.159,  -5.535,  -1.493,
     $       2.836,   6.061,   8.328,   9.193,   8.490,
     $       5.760,   0.431,  -7.052, -13.499, -16.238,
     $     -15.473, -10.337,  -0.129,   8.627,  12.109,
     $      11.741,   7.284,  -1.093,  -7.669, -10.100,
     $      -9.082,  -4.375,   1.952,   5.782,   6.461,
     $       4.174,  -0.668,  -5.951,  -9.138, -10.080,
     $      -9.362,  -7.546,  -5.921,  -6.155,  -8.991,
     $     -13.007, -15.801, -16.820, -16.036, -12.152,
     $      -3.519,   5.703,   9.437,   9.184,   5.590,
     $      -1.335, -12.969, -28.163, -39.037, -42.295,
     $     -40.092, -35.848, -29.674, -21.617, -11.046,
     $       3.509,  21.431,  41.159,  59.596,  74.047,
     $      84.431,  89.827,  94.071, 100.000,  95.254,
     $      94.959,  93.606,  91.821,  90.742,  89.236,
     $      88.196,  86.756,  85.808/
      DATA ((C3P       ( I, J), I=1, 83),J= 75, 75) /
     $     -19.724, -19.691, -19.274, -18.665, -18.092,
     $     -16.351, -13.929, -10.808,  -6.614,  -1.921,
     $       3.135,   6.940,   9.665,  10.793,  10.125,
     $       7.135,   1.144,  -7.391, -14.857, -18.096,
     $     -17.250, -11.334,   0.348,  10.271,  14.162,
     $      13.659,   8.463,  -1.225,  -8.779, -11.487,
     $     -10.119,  -4.417,   3.073,   7.568,   8.433,
     $       5.921,   0.407,  -5.773,  -9.605, -10.798,
     $     -10.020,  -7.985,  -6.199,  -6.549,  -9.865,
     $     -14.495, -17.639, -18.611, -17.266, -11.959,
     $      -0.972,  10.065,  14.343,  14.132,  10.364,
     $       3.021,  -9.602, -26.818, -40.247, -45.676,
     $     -44.979, -41.815, -36.367, -28.974, -18.942,
     $      -4.745,  13.240,  33.472,  53.111,  68.842,
     $      80.864,  87.514,  93.037,  95.254, 100.000,
     $      96.633,  96.004,  94.715,  94.088,  92.946,
     $      92.205,  91.051,  90.280/
      DATA ((C3P       ( I, J), I=1, 83),J= 76, 76) /
     $     -22.241, -22.211, -21.749, -21.079, -20.449,
     $     -18.509, -15.804, -12.314,  -7.610,  -2.336,
     $       3.371,   7.695,  10.832,  12.197,  11.561,
     $       8.337,   1.753,  -7.725, -16.099, -19.784,
     $     -18.863, -12.249,   0.757,  11.731,  15.990,
     $      15.366,   9.505,  -1.359,  -9.790, -12.746,
     $     -11.067,  -4.474,   4.056,   9.146,  10.175,
     $       7.452,   1.329,  -5.651, -10.050, -11.447,
     $     -10.589,  -8.333,  -6.389,  -6.849, -10.621,
     $     -15.843, -19.345, -20.319, -18.526, -12.018,
     $       1.016,  13.700,  18.523,  18.406,  14.538,
     $       6.892,  -6.498, -25.356, -40.915, -48.179,
     $     -48.770, -46.526, -41.699, -34.867, -25.292,
     $     -11.407,   6.597,  27.195,  47.755,  64.468,
     $      77.762,  85.395,  91.930,  94.959,  96.633,
     $     100.000,  97.692,  96.819,  96.571,  95.737,
     $      95.250,  94.341,  93.723/
      DATA ((C3P       ( I, J), I=1, 83),J= 77, 77) /
     $     -24.712, -24.687, -24.180, -23.454, -22.769,
     $     -20.637, -17.660, -13.815,  -8.616,  -2.776,
     $       3.568,   8.401,  11.944,  13.547,  12.950,
     $       9.509,   2.356,  -8.032, -17.287, -21.406,
     $     -20.413, -13.121,   1.167,  13.156,  17.767,
     $      17.022,  10.510,  -1.501, -10.781, -13.972,
     $     -11.983,  -4.512,   5.040,  10.711,  11.900,
     $       8.973,   2.258,  -5.503, -10.451, -12.035,
     $     -11.082,  -8.592,  -6.490,  -7.066, -11.304,
     $     -17.136, -21.018, -22.021, -19.815, -12.156,
     $       2.871,  17.197,  22.596,  22.621,  18.724,
     $      10.881,  -3.111, -23.403, -40.944, -49.992,
     $     -51.882, -50.589, -46.433, -40.225, -31.192,
     $     -17.750,   0.092,  20.830,  42.060,  59.531,
     $      73.898,  82.389,  89.823,  93.606,  96.004,
     $      97.692, 100.000,  97.806,  97.939,  97.423,
     $      97.196,  96.544,  96.086/
      DATA ((C3P       ( I, J), I=1, 83),J= 78, 78) /
     $     -26.427, -26.406, -25.870, -25.105, -24.385,
     $     -22.122, -18.959, -14.870,  -9.332,  -3.103,
     $       3.680,   8.868,  12.696,  14.469,  13.906,
     $      10.322,   2.785,  -8.223, -18.084, -22.502,
     $     -21.460, -13.702,   1.463,  14.143,  18.993,
     $      18.159,  11.196,  -1.604, -11.466, -14.814,
     $     -12.604,  -4.519,   5.742,  11.816,  13.116,
     $      10.051,   2.929,  -5.370, -10.695, -12.403,
     $     -11.372,  -8.711,  -6.497,  -7.159, -11.734,
     $     -18.007, -22.172, -23.208, -20.727, -12.279,
     $       4.129,  19.613,  25.438,  25.594,  21.725,
     $      13.817,  -0.488, -21.656, -40.512, -50.803,
     $     -53.637, -53.051, -49.417, -43.709, -35.134,
     $     -22.113,  -4.530,  16.138,  37.661,  55.515,
     $      70.511,  79.531,  87.536,  91.821,  94.715,
     $      96.819,  97.806, 100.000,  98.076,  97.796,
     $      97.761,  97.303,  96.966/
      DATA ((C3P       ( I, J), I=1, 83),J= 79, 79) /
     $     -28.197, -28.180, -27.612, -26.809, -26.050,
     $     -23.651, -20.295, -15.954, -10.064,  -3.433,
     $       3.804,   9.354,  13.471,  15.414,  14.878,
     $      11.136,   3.192,  -8.466, -18.953, -23.677,
     $     -22.582, -14.341,   1.741,  15.149,  20.253,
     $      19.333,  11.904,  -1.713, -12.182, -15.699,
     $     -13.270,  -4.563,   6.423,  12.911,  14.321,
     $      11.105,   3.556,  -5.296, -11.002, -12.831,
     $     -11.714,  -8.869,  -6.533,  -7.282, -12.206,
     $     -18.940, -23.407, -24.495, -21.759, -12.547,
     $       5.232,  21.896,  28.170,  28.464,  24.609,
     $      16.603,   1.942, -20.135, -40.288, -51.762,
     $     -55.464, -55.509, -52.319, -47.018, -38.794,
     $     -26.065,  -8.605,  12.121,  34.021,  52.304,
     $      67.924,  77.451,  85.995,  90.742,  94.088,
     $      96.571,  97.939,  98.076, 100.000,  98.661,
     $      98.798,  98.510,  98.280/
      DATA ((C3P       ( I, J), I=1, 83),J= 80, 80) /
     $     -29.623, -29.608, -29.017, -28.182, -27.394,
     $     -24.888, -21.378, -16.835, -10.664,  -3.711,
     $       3.889,   9.733,  14.085,  16.167,  15.658,
     $      11.796,   3.532,  -8.642, -19.629, -24.600,
     $     -23.464, -14.835,   1.976,  15.961,  21.264,
     $      20.272,  12.469,  -1.803, -12.755, -16.404,
     $     -13.795,  -4.583,   6.990,  13.810,  15.310,
     $      11.976,   4.087,  -5.209, -11.221, -13.143,
     $     -11.951,  -8.953,  -6.518,  -7.341, -12.555,
     $     -19.671, -24.392, -25.528, -22.592, -12.766,
     $       6.122,  23.749,  30.400,  30.826,  27.014,
     $      18.978,   4.101, -18.631, -39.795, -52.234,
     $     -56.670, -57.262, -54.475, -49.554, -41.678,
     $     -29.271, -12.017,   8.632,  30.715,  49.244,
     $      65.290,  75.183,  84.127,  89.236,  92.946,
     $      95.737,  97.423,  97.796,  98.661, 100.000,
     $      99.056,  98.918,  98.783/
      DATA ((C3P       ( I, J), I=1, 83),J= 81, 81) /
     $     -30.897, -30.885, -30.271, -29.409, -28.593,
     $     -25.990, -22.342, -17.619, -11.195,  -3.954,
     $       3.971,  10.075,  14.636,  16.840,  16.351,
     $      12.377,   3.822,  -8.817, -20.252, -25.443,
     $     -24.268, -15.293,   2.176,  16.683,  22.168,
     $      21.114,  12.976,  -1.883, -13.270, -17.040,
     $     -14.273,  -4.615,   7.478,  14.595,  16.174,
     $      12.730,   4.535,  -5.156, -11.439, -13.441,
     $     -12.180,  -9.043,  -6.518,  -7.405, -12.878,
     $     -20.338, -25.290, -26.476, -23.371, -13.016,
     $       6.840,  25.322,  32.314,  32.857,  29.076,
     $      21.000,   5.913, -17.408, -39.452, -52.712,
     $     -57.761, -58.801, -56.334, -51.708, -44.092,
     $     -31.913, -14.785,   5.850,  28.126,  46.888,
     $      63.304,  73.507,  82.788,  88.196,  92.205,
     $      95.250,  97.196,  97.761,  98.798,  99.056,
     $     100.000,  99.446,  99.387/
      DATA ((C3P       ( I, J), I=1, 83),J= 82, 82) /
     $     -32.125, -32.116, -31.481, -30.592, -29.752,
     $     -27.055, -23.275, -18.379, -11.713,  -4.195,
     $       4.043,  10.399,  15.162,  17.487,  17.020,
     $      12.942,   4.110,  -8.972, -20.839, -26.241,
     $     -25.030, -15.721,   2.377,  17.382,  23.039,
     $      21.923,  13.463,  -1.960, -13.764, -17.649,
     $     -14.728,  -4.637,   7.961,  15.364,  17.020,
     $      13.472,   4.984,  -5.087, -11.630, -13.708,
     $     -12.376,  -9.101,  -6.489,  -7.442, -13.169,
     $     -20.968, -26.150, -27.388, -24.125, -13.259,
     $       7.534,  26.850,  34.179,  34.849,  31.118,
     $      23.035,   7.792, -16.048, -38.918, -52.977,
     $     -58.639, -60.134, -58.005, -53.696, -46.372,
     $     -34.469, -17.534,   3.004,  25.386,  44.303,
     $      61.021,  71.490,  81.069,  86.756,  91.051,
     $      94.341,  96.544,  97.303,  98.510,  98.918,
     $      99.446, 100.000,  99.575/
      DATA ((C3P       ( I, J), I=1, 83),J= 83, 83) /
     $     -32.921, -32.914, -32.265, -31.359, -30.502,
     $     -27.745, -23.879, -18.870, -12.048,  -4.350,
     $       4.092,  10.611,  15.505,  17.907,  17.455,
     $      13.308,   4.297,  -9.075, -21.221, -26.760,
     $     -25.526, -16.000,   2.507,  17.835,  23.605,
     $      22.449,  13.780,  -2.010, -14.084, -18.044,
     $     -15.023,  -4.652,   8.272,  15.860,  17.566,
     $      13.951,   5.272,  -5.044, -11.755, -13.881,
     $     -12.503,  -9.138,  -6.468,  -7.463, -13.358,
     $     -21.378, -26.710, -27.985, -24.622, -13.431,
     $       7.966,  27.822,  35.373,  36.127,  32.430,
     $      24.343,   9.003, -15.165, -38.561, -53.127,
     $     -59.178, -60.963, -59.046, -54.937, -47.796,
     $     -36.067, -19.255,   1.218,  23.658,  42.664,
     $      59.561,  70.192,  79.951,  85.808,  90.280,
     $      93.723,  96.086,  96.966,  98.280,  98.783,
     $      99.387,  99.575, 100.000/
C                        
      RETURN             
      END                
C----------------------------------------------------------------------)
C----------------------------------------------------------------------)
C                                                                      )
C 3pi pi0                                                              )
C----------------------------------------------------------------------)
      SUBROUTINE SP_3PP0
C                        
      IMPLICIT NONE      
C                        
      INTEGER I,J        
C                        
      REAL S3PPZ     ( 78)
      DATA S3PPZ      /
     $       0.656,   0.688,   0.720,   0.752,   0.784,
     $       0.816,   0.848,   0.880,   0.912,   0.944,
     $       0.976,   1.008,   1.040,   1.072,   1.104,
     $       1.136,   1.168,   1.200,   1.232,   1.264,
     $       1.296,   1.328,   1.360,   1.392,   1.424,
     $       1.456,   1.488,   1.520,   1.552,   1.584,
     $       1.616,   1.648,   1.680,   1.712,   1.744,
     $       1.776,   1.808,   1.840,   1.872,   1.904,
     $       1.936,   1.968,   2.000,   2.032,   2.064,
     $       2.096,   2.128,   2.160,   2.192,   2.224,
     $       2.256,   2.288,   2.320,   2.352,   2.384,
     $       2.416,   2.448,   2.480,   2.512,   2.544,
     $       2.576,   2.608,   2.640,   2.672,   2.704,
     $       2.736,   2.768,   2.800,   2.832,   2.864,
     $       2.896,   2.928,   2.960,   2.992,   3.024,
     $       3.056,   3.088,   3.120/
C                        
C                        
      REAL V3PPZ     ( 78)
      DATA V3PPZ      /
     $     0.000275, 0.001758, 0.001081, 0.001629, 0.002050,
     $     0.003432, 0.005054, 0.010446, 0.016929, 0.026905,
     $     0.037365, 0.041842, 0.049245, 0.058780, 0.066689,
     $     0.075281, 0.079005, 0.088978, 0.089186, 0.102750,
     $     0.106030, 0.114568, 0.120535, 0.115959, 0.135624,
     $     0.136472, 0.132835, 0.148911, 0.148471, 0.170122,
     $     0.168614, 0.167691, 0.203801, 0.217274, 0.245848,
     $     0.258719, 0.284166, 0.294946, 0.322834, 0.334210,
     $     0.354691, 0.370464, 0.383583, 0.373843, 0.364541,
     $     0.403186, 0.377202, 0.384421, 0.392136, 0.378636,
     $     0.365326, 0.384327, 0.384677, 0.381391, 0.380257,
     $     0.385848, 0.374768, 0.369426, 0.375962, 0.335881,
     $     0.351140, 0.326682, 0.338037, 0.330113, 0.289940,
     $     0.331965, 0.281782, 0.257530, 0.260568, 0.206606,
     $     0.268519, 0.192579, 0.250811, 0.194327, 0.154029,
     $     0.227011, 0.087111, 0.158284/
C                        
C                        
      REAL E3PPZ     ( 78)
      DATA E3PPZ      /
     $     0.000243, 0.001369, 0.000791, 0.001084, 0.001244,
     $     0.001867, 0.002472, 0.004585, 0.006739, 0.009587,
     $     0.011977, 0.012127, 0.012862, 0.013875, 0.014289,
     $     0.014726, 0.014272, 0.014955, 0.014137, 0.015449,
     $     0.015256, 0.015812, 0.015965, 0.014722, 0.016292,
     $     0.015434, 0.014072, 0.014914, 0.014565, 0.016861,
     $     0.017458, 0.018198, 0.022614, 0.024114, 0.026529,
     $     0.026673, 0.027727, 0.027400, 0.029056, 0.030121,
     $     0.033084, 0.036777, 0.040975, 0.043043, 0.044578,
     $     0.051096, 0.048632, 0.049724, 0.051006, 0.050269,
     $     0.050255, 0.055220, 0.057732, 0.059408, 0.060990,
     $     0.063574, 0.063667, 0.065254, 0.070185, 0.067551,
     $     0.077234, 0.079829, 0.091806, 0.101536, 0.100645,
     $     0.128624, 0.122244, 0.124784, 0.139472, 0.122181,
     $     0.173369, 0.137444, 0.191802, 0.162552, 0.140943,
     $     0.223874, 0.101314, 0.203008/
C                        
C                        
      REAL C3PPZ     ( 78, 78)
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  1,  1) /
     $     100.000,  88.533,  86.822,  86.911,  86.936,
     $      87.439,  86.612,  86.560,  85.494,  83.561,
     $      80.921,  77.544,  73.391,  68.528,  62.805,
     $      56.108,  48.674,  40.575,  32.282,  24.206,
     $      16.986,  10.284,   4.133,  -1.604,  -7.343,
     $     -13.424, -20.287, -27.316, -33.373, -37.555,
     $     -39.062, -38.903, -38.022, -36.307, -33.980,
     $     -30.894, -26.782, -21.529, -15.134,  -8.538,
     $      -2.533,   2.014,   4.723,   5.814,   5.314,
     $       3.365,  -0.346,  -5.339, -11.413, -17.786,
     $     -23.430, -28.112, -31.540, -33.918, -35.444,
     $     -36.176, -35.990, -34.915, -32.876, -30.023,
     $     -26.742, -23.234, -20.064, -16.780, -14.012,
     $     -11.790,  -9.820,  -8.132,  -6.786,  -5.605,
     $      -4.636,  -3.687,  -3.054,  -2.347,  -1.732,
     $      -1.225,  -0.763,  -0.393/
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  2,  2) /
     $      88.533, 100.000,  91.658,  91.828,  91.935,
     $      92.564,  91.805,  91.868,  90.861,  88.964,
     $      86.320,  82.892,  78.644,  73.631,  67.689,
     $      60.686,  52.863,  44.293,  35.466,  26.822,
     $      19.050,  11.800,   5.121,  -1.115,  -7.333,
     $     -13.884, -21.219, -28.687, -35.102, -39.520,
     $     -41.114, -40.958, -40.060, -38.309, -35.946,
     $     -32.810, -28.627, -23.262, -16.706,  -9.911,
     $      -3.698,   1.037,   3.883,   5.056,   4.573,
     $       2.576,  -1.255,  -6.417, -12.695, -19.270,
     $     -25.086, -29.911, -33.451, -35.925, -37.534,
     $     -38.331, -38.178, -37.096, -35.000, -32.037,
     $     -28.610, -24.931, -21.599, -18.140, -15.217,
     $     -12.870, -10.785,  -8.998,  -7.572,  -6.318,
     $      -5.291,  -4.282,  -3.611,  -2.858,  -2.200,
     $      -1.661,  -1.134,  -0.730/
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  3,  3) /
     $      86.822,  91.658, 100.000,  90.279,  90.481,
     $      91.219,  90.612,  90.815,  89.969,  88.279,
     $      85.855,  82.654,  78.647,  73.870,  68.152,
     $      61.356,  53.702,  45.259,  36.502,  27.869,
     $      20.053,  12.720,   5.935,  -0.407,  -6.708,
     $     -13.299, -20.611, -28.001, -34.322, -38.663,
     $     -40.227, -40.086, -39.242, -37.592, -35.383,
     $     -32.452, -28.534, -23.484, -17.282, -10.815,
     $      -4.867,  -0.298,   2.478,   3.655,   3.236,
     $       1.346,  -2.309,  -7.248, -13.248, -19.521,
     $     -25.059, -29.654, -33.035, -35.419, -36.996,
     $     -37.810, -37.713, -36.715, -34.725, -31.874,
     $     -28.554, -24.972, -21.717, -18.329, -15.460,
     $     -13.154, -11.101,  -9.339,  -7.932,  -6.692,
     $      -5.679,  -4.679,  -4.017,  -3.270,  -2.614,
     $      -2.079,  -1.513,  -1.101/
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  4,  4) /
     $      86.911,  91.828,  90.279, 100.000,  90.974,
     $      91.861,  91.423,  91.803,  91.132,  89.652,
     $      87.435,  84.431,  80.618,  76.009,  70.423,
     $      63.709,  56.072,  47.576,  38.686,  29.851,
     $      21.787,  14.170,   7.088,   0.457,  -6.103,
     $     -12.909, -20.376, -27.858, -34.227, -38.583,
     $     -40.154, -40.031, -39.231, -37.666, -35.589,
     $     -32.835, -29.141, -24.349, -18.422, -12.192,
     $      -6.416,  -1.933,   0.828,   2.041,   1.688,
     $      -0.118,  -3.651,  -8.441, -14.255, -20.316,
     $     -25.655, -30.085, -33.358, -35.692, -37.271,
     $     -38.125, -38.095, -37.174, -35.264, -32.478,
     $     -29.205, -25.650, -22.408, -19.021, -16.145,
     $     -13.830, -11.764,  -9.989,  -8.570,  -7.316,
     $      -6.295,  -5.281,  -4.613,  -3.853,  -3.184,
     $      -2.641,  -2.014,  -1.580/
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  5,  5) /
     $      86.936,  91.935,  90.481,  90.974, 100.000,
     $      92.467,  92.209,  92.775,  92.291,  91.034,
     $      89.040,  86.248,  82.645,  78.220,  72.783,
     $      66.167,  58.558,  50.017,  40.999,  31.963,
     $      23.646,  15.737,   8.347,   1.416,  -5.415,
     $     -12.447, -20.077, -27.659, -34.083, -38.464,
     $     -40.050, -39.952, -39.206, -37.736, -35.804,
     $     -33.241, -29.788, -25.272, -19.640, -13.662,
     $      -8.067,  -3.676,  -0.928,   0.326,   0.045,
     $      -1.669,  -5.071,  -9.701, -15.315, -21.152,
     $     -26.278, -30.533, -33.689, -35.971, -37.551,
     $     -38.447, -38.486, -37.646, -35.820, -33.104,
     $     -29.881, -26.357, -23.129, -19.745, -16.862,
     $     -14.539, -12.460, -10.671,  -9.240,  -7.973,
     $      -6.942,  -5.914,  -5.240,  -4.468,  -3.784,
     $      -3.233,  -2.541,  -2.085/
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  6,  6) /
     $      87.439,  92.564,  91.219,  91.861,  92.467,
     $     100.000,  93.669,  94.466,  94.207,  93.218,
     $      91.486,  88.942,  85.579,  81.363,  76.085,
     $      69.560,  61.954,  53.323,  44.108,  34.785,
     $      26.122,  17.817,  10.013,   2.677,  -4.523,
     $     -11.875, -19.757, -27.516, -34.062, -38.516,
     $     -40.147, -40.095, -39.422, -38.068, -36.308,
     $     -33.969, -30.794, -26.590, -21.282, -15.572,
     $     -10.160,  -5.846,  -3.091,  -1.775,  -1.964,
     $      -3.575,  -6.837, -11.299, -16.706, -22.304,
     $     -27.205, -31.273, -34.307, -36.539, -38.129,
     $     -39.081, -39.203, -38.457, -36.721, -34.071,
     $     -30.890, -27.380, -24.149, -20.747, -17.838,
     $     -15.491, -13.383, -11.566, -10.111,  -8.819,
     $      -7.771,  -6.719,  -6.033,  -5.242,  -4.536,
     $      -3.971,  -3.196,  -2.711/
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  7,  7) /
     $      86.612,  91.805,  90.612,  91.423,  92.209,
     $      93.669, 100.000,  94.957,  94.976,  94.328,
     $      92.946,  90.747,  87.739,  83.853,  78.867,
     $      72.576,  65.116,  56.536,  47.251,  37.751,
     $      28.823,  20.185,  12.013,   4.308,  -3.223,
     $     -10.851, -18.926, -26.799, -33.420, -37.928,
     $     -39.622, -39.652, -39.099, -37.921, -36.410,
     $     -34.386, -31.603, -27.843, -23.007, -17.701,
     $     -12.582,  -8.412,  -5.679,  -4.298,  -4.366,
     $      -5.821,  -8.863, -13.057, -18.134, -23.364,
     $     -27.922, -31.706, -34.549, -36.687, -38.264,
     $     -39.267, -39.486, -38.860, -37.256, -34.725,
     $     -31.639, -28.196, -25.010, -21.636, -18.738,
     $     -16.397, -14.285, -12.462, -11.000,  -9.697,
     $      -8.644,  -7.579,  -6.890,  -6.086,  -5.366,
     $      -4.792,  -3.930,  -3.417/
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  8,  8) /
     $      86.560,  91.868,  90.815,  91.803,  92.775,
     $      94.466,  94.957, 100.000,  96.596,  96.287,
     $      95.246,  93.379,  90.709,  87.131,  82.409,
     $      76.316,  68.956,  60.373,  50.958,  41.216,
     $      31.957,  22.920,  14.314,   6.172,  -1.764,
     $      -9.750, -18.114, -26.204, -33.005, -37.656,
     $     -39.470, -39.618, -39.205, -38.212, -36.949,
     $     -35.232, -32.819, -29.469, -25.051, -20.085,
     $     -15.190, -11.106,  -8.349,  -6.875,  -6.813,
     $      -8.123, -10.974, -14.947, -19.751, -24.676,
     $     -28.944, -32.488, -35.174, -37.240, -38.820,
     $     -39.882, -40.197, -39.681, -38.188, -35.743,
     $     -32.716, -29.303, -26.125, -22.741, -19.824,
     $     -17.462, -15.325, -13.476, -11.991, -10.664,
     $      -9.594,  -8.504,  -7.804,  -6.980,  -6.236,
     $      -5.649,  -4.692,  -4.146/
      DATA ((C3PPZ     ( I, J), I=1, 78),J=  9,  9) /
     $      85.494,  90.861,  89.969,  91.132,  92.291,
     $      94.207,  94.976,  96.596, 100.000,  97.247,
     $      96.586,  95.102,  92.833,  89.642,  85.276,
     $      79.489,  72.349,  63.891,  54.474,  44.612,
     $      35.131,  25.789,  16.830,   8.318,   0.040,
     $      -8.248, -16.851, -25.121, -32.090, -36.898,
     $     -38.872, -39.187, -38.961, -38.197, -37.231,
     $     -35.870, -33.886, -31.006, -27.072, -22.502,
     $     -17.874, -13.899, -11.126,  -9.551,  -9.340,
     $     -10.477, -13.096, -16.798, -21.273, -25.833,
     $     -29.761, -33.023, -35.518, -37.491, -39.056,
     $     -40.168, -40.576, -40.176, -38.809, -36.475,
     $     -33.536, -30.182, -27.041, -23.679, -20.767,
     $     -18.406, -16.260, -14.402, -12.907, -11.566,
     $     -10.488,  -9.383,  -8.678,  -7.840,  -7.079,
     $      -6.483,  -5.436,  -4.861/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 10, 10) /
     $      83.561,  88.964,  88.279,  89.652,  91.034,
     $      93.218,  94.328,  96.287,  97.247, 100.000,
     $      97.597,  96.614,  94.884,  92.224,  88.369,
     $      83.045,  76.275,  68.082,  58.773,  48.872,
     $      39.210,  29.578,  20.253,  11.341,   2.683,
     $      -5.952, -14.842, -23.348, -30.572, -35.643,
     $     -37.893, -38.487, -38.550, -38.117, -37.556,
     $     -36.669, -35.241, -32.965, -29.642, -25.564,
     $     -21.255, -17.396, -14.581, -12.858, -12.442,
     $     -13.348, -15.667, -19.021, -23.081, -27.184,
     $     -30.687, -33.597, -35.853, -37.702, -39.242,
     $     -40.405, -40.920, -40.657, -39.442, -37.246,
     $     -34.418, -31.146, -28.058, -24.731, -21.835,
     $     -19.481, -17.332, -15.467, -13.964, -12.611,
     $     -11.528, -10.408,  -9.698,  -8.846,  -8.067,
     $      -7.461,  -6.310,  -5.702/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 11, 11) /
     $      80.921,  86.320,  85.855,  87.435,  89.040,
     $      91.486,  92.946,  95.246,  96.586,  97.597,
     $     100.000,  97.518,  96.389,  94.343,  91.097,
     $      86.355,  80.083,  72.293,  63.229,  53.419,
     $      43.685,  33.854,  24.233,  14.971,   5.967,
     $      -3.003, -12.194, -20.983, -28.552, -34.001,
     $     -36.647, -37.628, -38.069, -38.037, -37.943,
     $     -37.584, -36.760, -35.124, -32.435, -28.850,
     $     -24.840, -21.064, -18.169, -16.260, -15.607,
     $     -16.254, -18.251, -21.244, -24.877, -28.514,
     $     -31.587, -34.139, -36.150, -37.868, -39.374,
     $     -40.580, -41.193, -41.059, -39.991, -37.930,
     $     -35.216, -32.028, -28.998, -25.711, -22.836,
     $     -20.494, -18.347, -16.479, -14.972, -13.609,
     $     -12.522, -11.389, -10.676,  -9.813,  -9.017,
     $      -8.402,  -7.152,  -6.512/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 12, 12) /
     $      77.544,  82.892,  82.654,  84.431,  86.248,
     $      88.942,  90.747,  93.379,  95.102,  96.614,
     $      97.518, 100.000,  97.209,  95.857,  93.325,
     $      89.294,  83.667,  76.442,  67.789,  58.231,
     $      48.565,  38.656,  28.841,  19.299,  10.000,
     $       0.714,  -8.799, -17.936, -25.970, -31.947,
     $     -35.144, -36.647, -37.571, -38.020, -38.458,
     $     -38.677, -38.492, -37.515, -35.458, -32.337,
     $     -28.580, -24.828, -21.799, -19.656, -18.728,
     $     -19.094, -20.759, -23.392, -26.609, -29.797,
     $     -32.457, -34.665, -36.437, -38.024, -39.487,
     $     -40.722, -41.416, -41.395, -40.457, -38.520,
     $     -35.910, -32.803, -29.829, -26.584, -23.731,
     $     -21.404, -19.260, -17.392, -15.882, -14.513,
     $     -13.423, -12.279, -11.565, -10.691,  -9.880,
     $      -9.259,  -7.918,  -7.250/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 13, 13) /
     $      73.391,  78.644,  78.647,  80.618,  82.645,
     $      85.579,  87.739,  90.709,  92.833,  94.884,
     $      96.389,  97.209, 100.000,  96.968,  95.305,
     $      92.168,  87.386,  80.942,  72.907,  63.795,
     $      54.357,  44.503,  34.586,  24.822,  15.251,
     $       5.625,  -4.291, -13.919, -22.639, -29.402,
     $     -33.400, -35.640, -37.216, -38.275, -39.350,
     $     -40.231, -40.750, -40.467, -39.039, -36.337,
     $     -32.749, -28.922, -25.664, -23.201, -21.937,
     $     -21.982, -23.300, -25.581, -28.405, -31.175,
     $     -33.452, -35.340, -36.888, -38.345, -39.760,
     $     -41.010, -41.767, -41.836, -41.003, -39.164,
     $     -36.637, -33.590, -30.658, -27.440, -24.599,
     $     -22.279, -20.133, -18.259, -16.743, -15.364,
     $     -14.269, -13.112, -12.394, -11.508, -10.682,
     $     -10.051,  -8.626,  -7.930/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 14, 14) /
     $      68.528,  73.631,  73.870,  76.009,  78.220,
     $      81.363,  83.853,  87.131,  89.642,  92.224,
     $      94.343,  95.857,  96.968, 100.000,  96.681,
     $      94.607,  90.869,  85.431,  78.250,  69.820,
     $      60.820,  51.206,  41.340,  31.460,  21.689,
     $      11.733,   1.350,  -8.914, -18.559, -26.388,
     $     -31.457, -34.661, -37.061, -38.849, -40.648,
     $     -42.243, -43.487, -43.881, -43.020, -40.634,
     $     -37.088, -33.057, -29.461, -26.595, -24.942,
     $     -24.647, -25.634, -27.609, -30.111, -32.548,
     $     -34.520, -36.154, -37.516, -38.859, -40.221,
     $     -41.463, -42.247, -42.362, -41.587, -39.800,
     $     -37.315, -34.296, -31.380, -28.169, -25.326,
     $     -23.001, -20.845, -18.960, -17.434, -16.041,
     $     -14.938, -13.767, -13.042, -12.143, -11.302,
     $     -10.662,  -9.170,  -8.450/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 15, 15) /
     $      62.805,  67.689,  68.152,  70.423,  72.783,
     $      76.085,  78.867,  82.409,  85.276,  88.369,
     $      91.097,  93.325,  95.305,  96.681, 100.000,
     $      96.301,  93.818,  89.634,  83.571,  76.095,
     $      67.783,  58.639,  49.021,  39.179,  29.318,
     $      19.084,   8.204,  -2.814, -13.602, -22.768,
     $     -29.181, -33.582, -36.981, -39.619, -42.227,
     $     -44.587, -46.572, -47.622, -47.265, -45.098,
     $     -41.473, -37.120, -33.091, -29.750, -27.665,
     $     -27.018, -27.697, -29.419, -31.677, -33.872,
     $     -35.624, -37.068, -38.285, -39.523, -40.818,
     $     -42.020, -42.784, -42.893, -42.117, -40.330,
     $     -37.844, -34.819, -31.895, -28.672, -25.815,
     $     -23.478, -21.308, -19.408, -17.869, -16.463,
     $     -15.350, -14.165, -13.434, -12.523, -11.669,
     $     -11.021,  -9.487,  -8.752/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 16, 16) /
     $      56.108,  60.686,  61.356,  63.709,  66.167,
     $      69.560,  72.576,  76.316,  79.489,  83.045,
     $      86.355,  89.294,  92.168,  94.607,  96.301,
     $     100.000,  95.840,  93.166,  88.505,  82.288,
     $      74.954,  66.558,  57.438,  47.841,  38.058,
     $      27.648,  16.297,   4.457,  -7.651, -18.394,
     $     -26.406, -32.229, -36.794, -40.397, -43.889,
     $     -47.054, -49.788, -51.469, -51.555, -49.518,
     $     -45.714, -40.944, -36.410, -32.544, -30.006,
     $     -29.009, -29.416, -30.949, -33.050, -35.100,
     $     -36.719, -38.041, -39.148, -40.285, -41.489,
     $     -42.605, -43.289, -43.325, -42.480, -40.632,
     $     -38.095, -35.029, -32.074, -28.823, -25.944,
     $     -23.591, -21.405, -19.492, -17.941, -16.525,
     $     -15.403, -14.208, -13.471, -12.552, -11.691,
     $     -11.036,  -9.497,  -8.758/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 17, 17) /
     $      48.674,  52.863,  53.702,  56.072,  58.558,
     $      61.954,  65.116,  68.956,  72.349,  76.275,
     $      80.083,  83.667,  87.386,  90.869,  93.818,
     $      95.840, 100.000,  95.403,  92.362,  87.658,
     $      81.568,  74.199,  65.846,  56.743,  47.259,
     $      36.851,  25.147,  12.534,  -0.926, -13.342,
     $     -23.078, -30.439, -36.255, -40.868, -45.259,
     $     -49.216, -52.660, -54.915, -55.376, -53.404,
     $     -49.369, -44.155, -39.111, -34.732, -31.767,
     $     -30.459, -30.656, -32.076, -34.112, -36.117,
     $     -37.690, -38.953, -39.980, -41.014, -42.094,
     $     -43.070, -43.605, -43.495, -42.507, -40.537,
     $     -37.905, -34.768, -31.765, -28.478, -25.578,
     $     -23.210, -21.015, -19.095, -17.539, -16.120,
     $     -14.994, -13.799, -13.058, -12.140, -11.281,
     $     -10.625,  -9.126,  -8.398/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 18, 18) /
     $      40.575,  44.293,  45.259,  47.576,  50.017,
     $      53.323,  56.536,  60.373,  63.891,  68.082,
     $      72.293,  76.442,  80.942,  85.431,  89.634,
     $      93.166,  95.403, 100.000,  95.026,  92.087,
     $      87.516,  81.464,  74.170,  65.834,  56.899,
     $      46.703,  34.802,  21.504,   6.691,  -7.465,
     $     -19.036, -28.048, -35.193, -40.864, -46.169,
     $     -50.909, -55.037, -57.826, -58.619, -56.681,
     $     -52.400, -46.749, -41.219, -36.366, -33.020,
     $     -31.456, -31.516, -32.908, -34.977, -37.033,
     $     -38.640, -39.898, -40.865, -41.779, -42.694,
     $     -43.462, -43.767, -43.423, -42.205, -40.040,
     $     -37.255, -34.009, -30.935, -27.599, -24.674,
     $     -22.290, -20.090, -18.168, -16.612, -15.198,
     $     -14.071, -12.884, -12.143, -11.232, -10.385,
     $      -9.733,  -8.327,  -7.627/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 19, 19) /
     $      32.282,  35.466,  36.502,  38.686,  40.999,
     $      44.107,  47.251,  50.958,  54.474,  58.773,
     $      63.229,  67.789,  72.907,  78.250,  83.571,
     $      88.505,  92.362,  95.026, 100.000,  94.664,
     $      91.798,  87.299,  81.330,  74.045,  65.945,
     $      56.246,  44.424,  30.691,  14.747,  -0.980,
     $     -14.282, -24.878, -33.293, -39.961, -46.107,
     $     -51.550, -56.279, -59.537, -60.627, -58.745,
     $     -54.294, -48.321, -42.431, -37.233, -33.621,
     $     -31.900, -31.917, -33.368, -35.552, -37.735,
     $     -39.431, -40.716, -41.626, -42.394, -43.092,
     $     -43.583, -43.577, -42.919, -41.394, -38.973,
     $     -35.992, -32.613, -29.458, -26.074, -23.131,
     $     -20.741, -18.549, -16.639, -15.095, -13.698,
     $     -12.579, -11.413, -10.677,  -9.785,  -8.964,
     $      -8.324,  -7.068,  -6.416/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 20, 20) /
     $      24.206,  26.822,  27.869,  29.851,  31.963,
     $      34.785,  37.751,  41.216,  44.612,  48.872,
     $      53.419,  58.231,  63.795,  69.820,  76.095,
     $      82.288,  87.658,  92.087,  94.664, 100.000,
     $      94.566,  91.808,  87.394,  81.414,  74.416,
     $      65.488,  54.025,  40.121,  23.284,   6.175,
     $      -8.740, -20.843, -30.465, -38.077, -45.001,
     $     -51.086, -56.363, -60.063, -61.468, -59.716,
     $     -55.220, -49.083, -42.993, -37.602, -33.859,
     $     -32.094, -32.177, -33.780, -36.163, -38.538,
     $     -40.363, -41.686, -42.524, -43.106, -43.529,
     $     -43.664, -43.259, -42.196, -40.273, -37.517,
     $     -34.279, -30.723, -27.458, -24.008, -21.041,
     $     -18.640, -16.457, -14.562, -13.033, -11.660,
     $     -10.552,  -9.415,  -8.687,  -7.822,  -7.036,
     $      -6.414,  -5.362,  -4.776/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 21, 21) /
     $      16.986,  19.050,  20.053,  21.787,  23.646,
     $      26.122,  28.823,  31.957,  35.131,  39.210,
     $      43.685,  48.565,  54.357,  60.820,  67.783,
     $      74.954,  81.568,  87.516,  91.798,  94.566,
     $     100.000,  94.334,  91.562,  87.033,  81.324,
     $      73.411,  62.610,  48.893,  31.576,  13.487,
     $      -2.704, -16.051, -26.674, -35.069, -42.632,
     $     -49.244, -54.986, -59.096, -60.859, -59.370,
     $     -55.038, -48.979, -42.919, -37.547, -33.843,
     $     -32.163, -32.407, -34.220, -36.835, -39.408,
     $     -41.346, -42.678, -43.406, -43.760, -43.859,
     $     -43.586, -42.728, -41.209, -38.841, -35.713,
     $     -32.190, -28.440, -25.058, -21.540, -18.552,
     $     -16.145, -13.978, -12.104, -10.597,  -9.256,
     $      -8.164,  -7.064,  -6.347,  -5.516,  -4.775,
     $      -4.176,  -3.365,  -2.859/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 22, 22) /
     $      10.284,  11.800,  12.720,  14.170,  15.737,
     $      17.817,  20.185,  22.920,  25.789,  29.578,
     $      33.854,  38.656,  44.503,  51.206,  58.639,
     $      66.558,  74.199,  81.464,  87.299,  91.808,
     $      94.334, 100.000,  94.097,  91.169,  86.944,
     $      80.298,  70.481,  57.326,  39.949,  21.281,
     $       4.129, -10.224, -21.670, -30.724, -38.823,
     $     -45.896, -52.076, -56.635, -58.877, -57.859,
     $     -53.960, -48.268, -42.495, -37.366, -33.871,
     $     -32.396, -32.880, -34.936, -37.776, -40.507,
     $     -42.496, -43.765, -44.312, -44.370, -44.082,
     $     -43.339, -41.970, -39.944, -37.084, -33.550,
     $     -29.718, -25.763, -22.259, -18.675, -15.672,
     $     -13.265, -11.124,  -9.280,  -7.803,  -6.502,
     $      -5.431,  -4.377,  -3.676,  -2.887,  -2.200,
     $      -1.630,  -1.095,  -0.681/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 23, 23) /
     $       4.133,   5.121,   5.935,   7.088,   8.347,
     $      10.013,  12.013,  14.314,  16.830,  20.253,
     $      24.233,  28.841,  34.586,  41.340,  49.021,
     $      57.438,  65.846,  74.170,  81.330,  87.394,
     $      91.562,  94.097, 100.000,  93.552,  90.948,
     $      85.792,  77.289,  65.120,  48.193,  29.452,
     $      11.758,  -3.282, -15.315, -24.868, -33.391,
     $     -40.863, -47.481, -52.571, -55.482, -55.221,
     $     -52.107, -47.138, -41.957, -37.323, -34.219,
     $     -33.061, -33.832, -36.115, -39.110, -41.886,
     $     -43.798, -44.875, -45.134, -44.813, -44.075,
     $     -42.812, -40.899, -38.343, -34.982, -31.040,
     $     -26.907, -22.760, -19.149, -15.518, -12.518,
     $     -10.127,  -8.025,  -6.225,  -4.789,  -3.539,
     $      -2.498,  -1.501,  -0.821,  -0.083,   0.542,
     $       1.076,   1.315,   1.626/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 24, 24) /
     $      -1.604,  -1.115,  -0.407,   0.457,   1.416,
     $       2.677,   4.308,   6.172,   8.318,  11.341,
     $      14.971,  19.299,  24.822,  31.460,  39.179,
     $      47.841,  56.743,  65.834,  74.045,  81.414,
     $      87.033,  91.169,  93.552, 100.000,  93.100,
     $      89.636,  82.790,  72.081,  56.193,  37.980,
     $      20.250,   4.910,  -7.427, -17.301, -26.130,
     $     -33.954, -41.043, -46.804, -50.646, -51.512,
     $     -49.617, -45.795, -41.555, -37.695, -35.167,
     $     -34.429, -35.498, -37.940, -40.950, -43.578,
     $     -45.211, -45.910, -45.736, -44.932, -43.678,
     $     -41.859, -39.388, -36.311, -32.472, -28.159,
     $     -23.763, -19.466, -15.786, -12.147,  -9.182,
     $      -6.833,  -4.795,  -3.059,  -1.680,  -0.495,
     $       0.503,   1.432,   2.081,   2.759,   3.313,
     $       3.803,   3.738,   3.941/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 25, 25) /
     $      -7.343,  -7.333,  -6.708,  -6.103,  -5.415,
     $      -4.523,  -3.223,  -1.764,   0.040,   2.683,
     $       5.967,  10.000,  15.251,  21.689,  29.318,
     $      38.058,  47.259,  56.899,  65.945,  74.416,
     $      81.324,  86.944,  90.948,  93.100, 100.000,
     $      92.466,  87.646,  78.895,  64.642,  47.535,
     $      30.220,  14.904,   2.476,  -7.612, -16.714,
     $     -24.942, -32.659, -39.369, -44.566, -47.081,
     $     -46.970, -44.813, -41.922, -39.145, -37.390,
     $     -37.169, -38.531, -41.026, -43.855, -46.069,
     $     -47.138, -47.195, -46.374, -44.936, -43.064,
     $     -40.624, -37.566, -33.961, -29.657, -24.996,
     $     -20.367, -15.951, -12.230,  -8.613,  -5.711,
     $      -3.423,  -1.467,   0.189,   1.498,   2.605,
     $       3.551,   4.402,   5.013,   5.623,   6.097,
     $       6.537,   6.162,   6.251/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 26, 26) /
     $     -13.424, -13.884, -13.299, -12.909, -12.447,
     $     -11.875, -10.851,  -9.750,  -8.248,  -5.952,
     $      -3.003,   0.714,   5.625,  11.733,  19.084,
     $      27.648,  36.851,  46.703,  56.246,  65.488,
     $      73.411,  80.298,  85.792,  89.636,  92.466,
     $     100.000,  90.820,  84.756,  73.046,  57.967,
     $      41.828,  27.105,  14.987,   4.917,  -4.339,
     $     -12.975, -21.464, -29.442, -36.514, -41.351,
     $     -43.768, -43.969, -42.973, -41.689, -40.959,
     $     -41.359, -42.957, -45.307, -47.628, -49.016,
     $     -49.109, -48.153, -46.406, -44.146, -41.548,
     $     -38.441, -34.803, -30.722, -26.038, -21.135,
     $     -16.384, -11.960,  -8.296,  -4.797,  -2.034,
     $       0.129,   1.950,   3.481,   4.684,   5.683,
     $       6.550,   7.297,   7.853,   8.375,   8.754,
     $       9.129,   8.448,   8.417/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 27, 27) /
     $     -20.287, -21.219, -20.611, -20.376, -20.077,
     $     -19.757, -18.926, -18.114, -16.851, -14.842,
     $     -12.194,  -8.799,  -4.291,   1.350,   8.204,
     $      16.297,  25.147,  34.802,  44.424,  54.025,
     $      62.610,  70.481,  77.289,  82.790,  87.646,
     $      90.820, 100.000,  89.313,  81.339,  69.499,
     $      55.541,  42.166,  30.887,  21.140,  11.892,
     $       2.845,  -6.602, -16.261, -25.882, -33.911,
     $     -39.818, -43.273, -44.878, -45.613, -46.220,
     $     -47.360, -49.098, -51.018, -52.381, -52.387,
     $     -50.951, -48.492, -45.453, -42.132, -38.673,
     $     -34.849, -30.658, -26.185, -21.257, -16.275,
     $     -11.572,  -7.308,  -3.843,  -0.604,   1.905,
     $       3.852,   5.460,   6.799,   7.844,   8.690,
     $       9.439,  10.047,  10.521,  10.928,  11.190,
     $      11.478,  10.501,  10.341/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 28, 28) /
     $     -27.316, -28.687, -28.001, -27.858, -27.659,
     $     -27.516, -26.799, -26.204, -25.121, -23.348,
     $     -20.983, -17.936, -13.919,  -8.914,  -2.814,
     $       4.457,  12.534,  21.504,  30.691,  40.121,
     $      48.893,  57.326,  65.120,  72.081,  78.895,
     $      84.756,  89.313, 100.000,  88.022,  80.539,
     $      69.768,  58.557,  48.723,  39.707,  30.750,
     $      21.448,  11.061,  -0.430, -12.954, -24.704,
     $     -34.739, -42.074, -46.790, -49.934, -52.110,
     $     -54.063, -55.839, -57.080, -57.118, -55.317,
     $     -51.954, -47.665, -43.113, -38.618, -34.273,
     $     -29.782, -25.153, -20.449, -15.478, -10.633,
     $      -6.188,  -2.276,   0.830,   3.659,   5.795,
     $       7.436,   8.754,   9.839,  10.676,  11.328,
     $      11.924,  12.362,  12.731,  13.001,  13.129,
     $      13.315,  12.082,  11.796/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 29, 29) /
     $     -33.373, -35.102, -34.322, -34.227, -34.083,
     $     -34.062, -33.420, -33.005, -32.090, -30.572,
     $     -28.552, -25.970, -22.639, -18.559, -13.602,
     $      -7.651,  -0.926,   6.691,  14.747,  23.284,
     $      31.576,  39.949,  48.193,  56.193,  64.642,
     $      73.046,  81.339,  88.022, 100.000,  88.246,
     $      81.743,  73.666,  66.060,  58.399,  50.276,
     $      41.193,  30.290,  17.316,   2.137, -13.248,
     $     -27.474, -38.857, -46.881, -52.611, -56.464,
     $     -59.242, -60.963, -61.356, -59.867, -56.082,
     $     -50.687, -44.536, -38.516, -32.958, -27.889,
     $     -22.945, -18.132, -13.480,  -8.777,  -4.375,
     $      -0.467,   2.846,   5.399,   7.642,   9.273,
     $      10.506,  11.456,  12.220,  12.799,  13.218,
     $      13.625,  13.867,  14.107,  14.224,  14.211,
     $      14.280,  12.871,  12.476/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 30, 30) /
     $     -37.555, -39.520, -38.663, -38.583, -38.464,
     $     -38.516, -37.928, -37.656, -36.898, -35.643,
     $     -34.001, -31.947, -29.402, -26.388, -22.768,
     $     -18.394, -13.342,  -7.465,  -0.980,   6.175,
     $      13.487,  21.281,  29.452,  37.980,  47.535,
     $      57.967,  69.499,  80.539,  88.246, 100.000,
     $      89.662,  85.117,  80.120,  74.205,  67.334,
     $      58.934,  48.069,  34.263,  17.173,  -1.109,
     $     -18.864, -33.788, -44.779, -52.875, -58.277,
     $     -61.808, -63.463, -63.063, -60.195, -54.679,
     $     -47.568, -39.898, -32.742, -26.430, -20.923,
     $     -15.803, -11.068,  -6.705,  -2.489,   1.288,
     $       4.518,   7.136,   9.074,  10.690,  11.800,
     $      12.617,  13.199,  13.648,  13.974,  14.171,
     $      14.394,  14.454,  14.571,  14.548,  14.411,
     $      14.376,  12.885,  12.415/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 31, 31) /
     $     -39.062, -41.114, -40.227, -40.154, -40.050,
     $     -40.147, -39.622, -39.470, -38.872, -37.893,
     $     -36.647, -35.144, -33.400, -31.457, -29.181,
     $     -26.406, -23.078, -19.036, -14.282,  -8.740,
     $      -2.704,   4.129,  11.758,  20.250,  30.220,
     $      41.828,  55.541,  69.768,  81.743,  89.662,
     $     100.000,  90.633,  88.217,  84.191,  78.848,
     $      71.573,  61.411,  47.703,  29.930,  10.124,
     $      -9.784, -27.064, -40.146, -49.978, -56.554,
     $     -60.669, -62.311, -61.380, -57.610, -51.020,
     $     -42.912, -34.424, -26.734, -20.160, -14.609,
     $      -9.641,  -5.239,  -1.349,   2.254,   5.346,
     $       7.893,   9.851,  11.232,  12.305,  12.976,
     $      13.448,  13.733,  13.932,  14.061,  14.088,
     $      14.167,  14.094,  14.116,  13.993,  13.774,
     $      13.665,  12.195,  11.693/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 32, 32) /
     $     -38.903, -40.958, -40.086, -40.031, -39.952,
     $     -40.095, -39.652, -39.618, -39.187, -38.487,
     $     -37.628, -36.647, -35.640, -34.661, -33.582,
     $     -32.229, -30.439, -28.048, -24.878, -20.843,
     $     -16.051, -10.224,  -3.282,   4.910,  14.904,
     $      27.105,  42.166,  58.557,  73.666,  85.117,
     $      90.633, 100.000,  92.147,  89.911,  86.137,
     $      80.191,  71.127,  58.137,  40.550,  20.236,
     $      -0.781, -19.504, -33.999, -45.095, -52.592,
     $     -57.230, -59.016, -57.899, -53.752, -46.736,
     $     -38.282, -29.574, -21.826, -15.349, -10.013,
     $      -5.373,  -1.395,   2.002,   5.042,   7.562,
     $       9.571,  11.044,  12.032,  12.738,  13.125,
     $      13.378,  13.481,  13.529,  13.540,  13.471,
     $      13.466,  13.320,  13.286,  13.112,  12.854,
     $      12.705,  11.305,  10.804/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 33, 33) /
     $     -38.022, -40.060, -39.242, -39.231, -39.206,
     $     -39.422, -39.099, -39.205, -38.961, -38.550,
     $     -38.069, -37.571, -37.216, -37.061, -36.981,
     $     -36.794, -36.255, -35.193, -33.293, -30.465,
     $     -26.674, -21.670, -15.315,  -7.427,   2.476,
     $      14.987,  30.887,  48.723,  66.060,  80.120,
     $      88.217,  92.147, 100.000,  93.275,  91.006,
     $      86.456,  78.703,  66.800,  49.935,  29.738,
     $       8.250, -11.373, -26.899, -39.022, -47.365,
     $     -52.599, -54.780, -53.875, -49.876, -43.021,
     $     -34.770, -26.309, -18.852, -12.704,  -7.722,
     $      -3.468,   0.107,   3.108,   5.754,   7.924,
     $       9.643,  10.886,  11.709,  12.279,  12.575,
     $      12.764,  12.822,  12.837,  12.824,  12.740,
     $      12.719,  12.567,  12.524,  12.346,  12.091,
     $      11.938,  10.612,  10.129/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 34, 34) /
     $     -36.307, -38.309, -37.592, -37.666, -37.736,
     $     -38.068, -37.921, -38.212, -38.197, -38.117,
     $     -38.037, -38.020, -38.275, -38.849, -39.619,
     $     -40.397, -40.868, -40.864, -39.961, -38.077,
     $     -35.069, -30.724, -24.868, -17.301,  -7.612,
     $       4.917,  21.140,  39.707,  58.399,  74.205,
     $      84.191,  89.911,  93.275, 100.000,  93.361,
     $      90.363,  84.233,  73.897,  58.402,  39.048,
     $      17.803,  -2.134, -18.290, -31.206, -40.326,
     $     -46.241, -49.086, -48.813, -45.524, -39.470,
     $     -32.028, -24.344, -17.576, -12.038,  -7.588,
     $      -3.813,  -0.644,   2.031,   4.427,   6.447,
     $       8.104,   9.358,  10.232,  10.891,  11.284,
     $      11.560,  11.707,  11.803,  11.860,  11.841,
     $      11.873,  11.779,  11.772,  11.640,  11.429,
     $      11.308,  10.066,   9.622/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 35, 35) /
     $     -33.980, -35.946, -35.383, -35.589, -35.804,
     $     -36.308, -36.410, -36.949, -37.231, -37.556,
     $     -37.943, -38.458, -39.350, -40.648, -42.227,
     $     -43.889, -45.259, -46.169, -46.107, -45.001,
     $     -42.632, -38.823, -33.391, -26.130, -16.714,
     $      -4.339,  11.892,  30.750,  50.276,  67.334,
     $      78.848,  86.137,  91.006,  93.361, 100.000,
     $      93.131,  89.032,  80.790,  67.299,  49.415,
     $      28.958,   9.094,  -7.484, -21.127, -31.088,
     $     -37.850, -41.674, -42.461, -40.429, -35.791,
     $     -29.742, -23.348, -17.670, -13.033,  -9.318,
     $      -6.151,  -3.438,  -1.066,   1.174,   3.196,
     $       4.979,   6.451,   7.568,   8.516,   9.178,
     $       9.682,  10.043,  10.329,  10.542,  10.666,
     $      10.816,  10.844,  10.916,  10.878,  10.751,
     $      10.698,   9.562,   9.179/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 36, 36) /
     $     -30.894, -32.810, -32.452, -32.835, -33.241,
     $     -33.969, -34.386, -35.232, -35.870, -36.669,
     $     -37.584, -38.677, -40.231, -42.243, -44.587,
     $     -47.054, -49.216, -50.909, -51.550, -51.086,
     $     -49.244, -45.896, -40.863, -33.954, -24.942,
     $     -12.975,   2.845,  21.448,  41.193,  58.934,
     $      71.573,  80.191,  86.456,  90.363,  93.131,
     $     100.000,  92.416,  86.830,  76.048,  60.376,
     $      41.403,  22.157,   5.511,  -8.661, -19.410,
     $     -27.089, -32.116, -34.318, -34.034, -31.398,
     $     -27.324, -22.751, -18.591, -15.186, -12.451,
     $     -10.069,  -7.919,  -5.891,  -3.788,  -1.685,
     $       0.336,   2.167,   3.664,   5.051,   6.115,
     $       6.957,   7.632,   8.196,   8.638,   8.971,
     $       9.292,   9.497,   9.685,   9.784,   9.781,
     $       9.826,   8.844,   8.551/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 37, 37) /
     $     -26.782, -28.627, -28.534, -29.141, -29.788,
     $     -30.794, -31.603, -32.819, -33.886, -35.241,
     $     -36.760, -38.492, -40.750, -43.487, -46.572,
     $     -49.788, -52.660, -55.037, -56.279, -56.363,
     $     -54.986, -52.076, -47.481, -41.043, -32.659,
     $     -21.464,  -6.602,  11.061,  30.290,  48.069,
     $      61.411,  71.127,  78.703,  84.233,  89.032,
     $      92.416, 100.000,  91.502,  84.328,  71.837,
     $      55.279,  37.410,  21.218,   6.850,  -4.536,
     $     -13.129, -19.535, -23.489, -25.463, -25.471,
     $     -24.040, -21.922, -19.811, -18.062, -16.642,
     $     -15.313, -13.923, -12.366, -10.466,  -8.285,
     $      -5.981,  -3.708,  -1.738,   0.205,   1.779,
     $       3.050,   4.129,   5.052,   5.789,   6.392,
     $       6.934,   7.372,   7.709,   7.990,   8.155,
     $       8.333,   7.588,   7.426/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 38, 38) /
     $     -21.529, -23.262, -23.484, -24.349, -25.272,
     $     -26.590, -27.843, -29.469, -31.006, -32.965,
     $     -35.124, -37.515, -40.467, -43.881, -47.622,
     $     -51.469, -54.915, -57.826, -59.537, -60.063,
     $     -59.096, -56.635, -52.572, -46.804, -39.369,
     $     -29.442, -16.261,  -0.430,  17.316,  34.263,
     $      47.703,  58.137,  66.800,  73.897,  80.790,
     $      86.830,  91.502, 100.000,  90.599,  82.358,
     $      69.344,  53.870,  38.923,  24.957,  13.321,
     $       4.025,  -3.739,  -9.608, -14.192, -17.364,
     $     -19.163, -20.083, -20.533, -20.868, -21.116,
     $     -21.144, -20.765, -19.884, -18.351, -16.205,
     $     -13.688, -11.000,  -8.555,  -6.034,  -3.913,
     $      -2.178,  -0.656,   0.664,   1.729,   2.640,
     $       3.429,   4.134,   4.641,   5.135,   5.503,
     $       5.839,   5.451,   5.465/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 39, 39) /
     $     -15.134, -16.706, -17.282, -18.422, -19.640,
     $     -21.282, -23.007, -25.051, -27.072, -29.642,
     $     -32.435, -35.458, -39.039, -43.020, -47.265,
     $     -51.555, -55.376, -58.619, -60.627, -61.468,
     $     -60.859, -58.877, -55.482, -50.646, -44.566,
     $     -36.514, -25.882, -12.954,   2.137,  17.173,
     $      29.930,  40.550,  49.935,  58.402,  67.299,
     $      76.048,  84.328,  90.599, 100.000,  90.428,
     $      82.260,  70.443,  57.795,  45.100,  33.851,
     $      24.288,  15.412,   7.668,   0.312,  -6.381,
     $     -11.880, -16.352, -19.839, -22.677, -24.962,
     $     -26.692, -27.644, -27.731, -26.844, -24.979,
     $     -22.452, -19.508, -16.701, -13.686, -11.068,
     $      -8.905,  -6.955,  -5.248,  -3.859,  -2.636,
     $      -1.602,  -0.613,   0.065,   0.789,   1.387,
     $       1.895,   2.020,   2.265/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 40, 40) /
     $      -8.538,  -9.911, -10.815, -12.192, -13.662,
     $     -15.572, -17.701, -20.085, -22.502, -25.564,
     $     -28.850, -32.337, -36.337, -40.634, -45.098,
     $     -49.518, -53.404, -56.681, -58.745, -59.716,
     $     -59.370, -57.859, -55.221, -51.512, -47.081,
     $     -41.351, -33.911, -24.704, -13.248,  -1.109,
     $      10.124,  20.236,  29.738,  39.048,  49.415,
     $      60.376,  71.837,  82.358,  90.428, 100.000,
     $      90.817,  83.636,  74.274,  63.807,  53.781,
     $      44.660,  35.313,  26.224,  16.544,   6.658,
     $      -2.354, -10.296, -16.819, -22.210, -26.623,
     $     -30.199, -32.682, -33.988, -34.060, -32.824,
     $     -30.644, -27.782, -24.898, -21.663, -18.765,
     $     -16.345, -14.109, -12.132, -10.510,  -9.049,
     $      -7.836,  -6.615,  -5.809,  -4.885,  -4.074,
     $      -3.415,  -2.652,  -2.149/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 41, 41) /
     $      -2.533,  -3.698,  -4.867,  -6.416,  -8.067,
     $     -10.160, -12.582, -15.190, -17.874, -21.255,
     $     -24.840, -28.580, -32.749, -37.088, -41.473,
     $     -45.714, -49.369, -52.400, -54.294, -55.220,
     $     -55.038, -53.960, -52.107, -49.617, -46.970,
     $     -43.768, -39.818, -34.739, -27.474, -18.864,
     $      -9.784,  -0.781,   8.250,  17.803,  28.958,
     $      41.403,  55.279,  69.344,  82.260,  90.817,
     $     100.000,  92.059,  86.659,  79.188,  71.136,
     $      63.173,  54.108,  44.416,  33.172,  20.814,
     $       8.885,  -2.060, -11.295, -19.033, -25.464,
     $     -30.870, -34.970, -37.676, -38.988, -38.736,
     $     -37.293, -34.908, -32.297, -29.192, -26.299,
     $     -23.852, -21.526, -19.446, -17.726, -16.138,
     $     -14.844, -13.475, -12.603, -11.538, -10.557,
     $      -9.788,  -8.306,  -7.539/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 42, 42) /
     $       2.014,   1.037,  -0.298,  -1.933,  -3.676,
     $      -5.846,  -8.412, -11.106, -13.899, -17.396,
     $     -21.064, -24.828, -28.922, -33.057, -37.120,
     $     -40.944, -44.155, -46.749, -48.321, -49.083,
     $     -48.979, -48.268, -47.138, -45.795, -44.813,
     $     -43.969, -43.273, -42.074, -38.857, -33.788,
     $     -27.064, -19.504, -11.373,  -2.134,   9.094,
     $      22.157,  37.410,  53.870,  70.443,  83.636,
     $      92.059, 100.000,  93.541,  89.342,  83.685,
     $      77.389,  69.295,  59.807,  47.971,  34.205,
     $      20.365,   7.304,  -3.941, -13.491, -21.550,
     $     -28.518, -34.099, -38.195, -40.862, -41.820,
     $     -41.410, -39.841, -37.822, -35.185, -32.590,
     $     -30.354, -28.152, -26.157, -24.487, -22.905,
     $     -21.642, -20.233, -19.370, -18.245, -17.161,
     $     -16.339, -14.159, -13.161/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 43, 43) /
     $       4.723,   3.883,   2.478,   0.828,  -0.928,
     $      -3.091,  -5.679,  -8.349, -11.126, -14.581,
     $     -18.169, -21.799, -25.664, -29.461, -33.091,
     $     -36.410, -39.111, -41.219, -42.431, -42.993,
     $     -42.919, -42.495, -41.957, -41.555, -41.922,
     $     -42.973, -44.878, -46.790, -46.881, -44.779,
     $     -40.146, -33.999, -26.899, -18.290,  -7.484,
     $       5.511,  21.218,  38.923,  57.795,  74.274,
     $      86.659,  93.541, 100.000,  94.467,  91.189,
     $      86.725,  80.006,  71.332,  59.744,  45.587,
     $      30.861,  16.639,   4.176,  -6.557, -15.755,
     $     -23.905, -30.704, -36.041, -40.018, -42.250,
     $     -43.010, -42.450, -41.222, -39.283, -37.195,
     $     -35.345, -33.430, -31.662, -30.163, -28.694,
     $     -27.551, -26.194, -25.400, -24.288, -23.168,
     $     -22.347, -19.560, -18.381/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 44, 44) /
     $       5.814,   5.056,   3.655,   2.041,   0.326,
     $      -1.775,  -4.298,  -6.875,  -9.551, -12.858,
     $     -16.260, -19.656, -23.201, -26.595, -29.750,
     $     -32.544, -34.732, -36.366, -37.233, -37.602,
     $     -37.547, -37.366, -37.323, -37.695, -39.145,
     $     -41.689, -45.613, -49.934, -52.611, -52.875,
     $     -49.978, -45.095, -39.022, -31.206, -21.127,
     $      -8.661,   6.850,  24.957,  45.100,  63.807,
     $      79.188,  89.342,  94.467, 100.000,  95.109,
     $      92.585,  87.552,  80.178,  69.512,  55.768,
     $      40.962,  26.318,  13.240,   1.795,  -8.190,
     $     -17.258, -25.114, -31.623, -36.931, -40.538,
     $     -42.625, -43.272, -43.028, -42.000, -40.607,
     $     -39.298, -37.812, -36.397, -35.169, -33.906,
     $     -32.959, -31.732, -31.059, -30.019, -28.917,
     $     -28.139, -24.796, -23.472/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 45, 45) /
     $       5.314,   4.573,   3.236,   1.688,   0.045,
     $      -1.964,  -4.366,  -6.813,  -9.340, -12.442,
     $     -15.607, -18.728, -21.937, -24.942, -27.665,
     $     -30.006, -31.767, -33.020, -33.621, -33.859,
     $     -33.843, -33.871, -34.219, -35.167, -37.390,
     $     -40.959, -46.220, -52.110, -56.464, -58.277,
     $     -56.554, -52.592, -47.365, -40.326, -31.088,
     $     -19.410,  -4.536,  13.321,  33.851,  53.781,
     $      71.136,  83.685,  91.189,  95.109, 100.000,
     $      95.601,  92.396,  86.645,  77.405,  64.717,
     $      50.495,  36.054,  22.876,  11.122,   0.659,
     $      -9.097, -17.856, -25.457, -32.083, -37.120,
     $     -40.633, -42.618, -43.491, -43.525, -42.962,
     $     -42.306, -41.355, -40.385, -39.504, -38.518,
     $     -37.822, -36.785, -36.272, -35.352, -34.310,
     $     -33.611, -29.768, -28.333/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 46, 46) /
     $       3.365,   2.576,   1.346,  -0.118,  -1.669,
     $      -3.575,  -5.821,  -8.123, -10.477, -13.348,
     $     -16.254, -19.094, -21.982, -24.647, -27.018,
     $     -29.009, -30.459, -31.456, -31.900, -32.094,
     $     -32.163, -32.396, -33.061, -34.429, -37.169,
     $     -41.359, -47.360, -54.063, -59.242, -61.808,
     $     -60.669, -57.230, -52.599, -46.241, -37.850,
     $     -27.089, -13.129,   4.025,  24.288,  44.660,
     $      63.173,  77.389,  86.725,  92.585,  95.601,
     $     100.000,  95.525,  91.677,  84.291,  73.185,
     $      60.077,  46.324,  33.434,  21.660,  10.924,
     $       0.619,  -8.978, -17.670, -25.676, -32.257,
     $     -37.341, -40.828, -42.974, -44.233, -44.641,
     $     -44.755, -44.442, -44.008, -43.548, -42.902,
     $     -42.514, -41.720, -41.404, -40.644, -39.699,
     $     -39.109, -34.783, -33.256/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 47, 47) /
     $      -0.346,  -1.255,  -2.309,  -3.651,  -5.071,
     $      -6.837,  -8.863, -10.974, -13.096, -15.667,
     $     -18.251, -20.759, -23.300, -25.634, -27.697,
     $     -29.416, -30.656, -31.516, -31.917, -32.177,
     $     -32.407, -32.880, -33.832, -35.498, -38.531,
     $     -42.957, -49.098, -55.839, -60.963, -63.463,
     $     -62.311, -59.016, -54.780, -49.086, -41.674,
     $     -32.116, -19.535,  -3.739,  15.412,  35.313,
     $      54.108,  69.295,  80.006,  87.552,  92.396,
     $      95.525, 100.000,  95.167,  90.349,  81.641,
     $      70.431,  58.056,  45.992,  34.590,  23.849,
     $      13.155,   2.766,  -7.075, -16.623, -24.997,
     $     -31.951, -37.266, -40.980, -43.775, -45.417,
     $     -46.513, -47.027, -47.292, -47.385, -47.196,
     $     -47.213, -46.756, -46.701, -46.171, -45.380,
     $     -44.949, -40.141, -38.546/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 48, 48) /
     $      -5.339,  -6.417,  -7.248,  -8.441,  -9.701,
     $     -11.299, -13.057, -14.947, -16.798, -19.021,
     $     -21.244, -23.392, -25.581, -27.609, -29.419,
     $     -30.949, -32.076, -32.908, -33.368, -33.780,
     $     -34.220, -34.936, -36.115, -37.940, -41.026,
     $     -45.307, -51.018, -57.080, -61.356, -63.063,
     $     -61.380, -57.899, -53.875, -48.813, -42.461,
     $     -34.318, -23.489,  -9.608,   7.668,  26.224,
     $      44.416,  59.807,  71.332,  80.178,  86.645,
     $      91.677,  95.167, 100.000,  94.711,  88.998,
     $      80.304,  69.898,  59.155,  48.528,  38.103,
     $      27.280,  16.288,   5.414,  -5.626, -15.814,
     $     -24.710, -31.967, -37.373, -41.848, -44.859,
     $     -47.052, -48.501, -49.563, -50.288, -50.630,
     $     -51.113, -51.056, -51.306, -51.058, -50.470,
     $     -50.236, -45.026, -43.405/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 49, 49) /
     $     -11.413, -12.695, -13.248, -14.255, -15.315,
     $     -16.706, -18.134, -19.751, -21.273, -23.081,
     $     -24.877, -26.609, -28.405, -30.111, -31.677,
     $     -33.050, -34.112, -34.977, -35.552, -36.163,
     $     -36.835, -37.776, -39.110, -40.950, -43.855,
     $     -47.628, -52.381, -57.118, -59.867, -60.195,
     $     -57.610, -53.752, -49.876, -45.524, -40.429,
     $     -34.034, -25.463, -14.192,   0.312,  16.544,
     $      33.172,  47.971,  59.744,  69.512,  77.405,
     $      84.291,  90.349,  94.711, 100.000,  94.369,
     $      88.890,  81.141,  72.331,  63.007,  53.353,
     $      42.806,  31.552,  19.916,   7.586,  -4.301,
     $     -15.099, -24.323, -31.483, -37.737, -42.223,
     $     -45.606, -48.090, -50.039, -51.475, -52.424,
     $     -53.432, -53.849, -54.444, -54.537, -54.213,
     $     -54.220, -48.769, -47.189/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 50, 50) /
     $     -17.786, -19.270, -19.521, -20.316, -21.152,
     $     -22.304, -23.364, -24.676, -25.833, -27.184,
     $     -28.514, -29.797, -31.175, -32.548, -33.872,
     $     -35.100, -36.117, -37.033, -37.735, -38.538,
     $     -39.408, -40.507, -41.886, -43.578, -46.069,
     $     -49.016, -52.387, -55.317, -56.082, -54.679,
     $     -51.020, -46.736, -43.021, -39.470, -35.791,
     $     -31.398, -25.471, -17.364,  -6.381,   6.658,
     $      20.814,  34.205,  45.587,  55.768,  64.717,
     $      73.185,  81.641,  88.998,  94.369, 100.000,
     $      94.415,  89.842,  83.495,  76.001,  67.638,
     $      57.902,  46.921,  35.037,  21.922,   8.778,
     $      -3.555, -14.470, -23.191, -31.081, -36.962,
     $     -41.484, -44.980, -47.809, -49.956, -51.528,
     $     -53.063, -53.982, -54.928, -55.394, -55.381,
     $     -55.654, -50.237, -48.789/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 51, 51) /
     $     -23.430, -25.086, -25.059, -25.655, -26.278,
     $     -27.205, -27.922, -28.944, -29.761, -30.687,
     $     -31.587, -32.457, -33.452, -34.520, -35.624,
     $     -36.719, -37.690, -38.640, -39.431, -40.363,
     $     -41.346, -42.496, -43.798, -45.211, -47.138,
     $     -49.109, -50.951, -51.954, -50.687, -47.568,
     $     -42.912, -38.282, -34.770, -32.028, -29.742,
     $     -27.324, -24.040, -19.163, -11.880,  -2.354,
     $       8.885,  20.365,  30.861,  40.962,  50.495,
     $      60.077,  70.431,  80.304,  88.890,  94.415,
     $     100.000,  94.778,  91.062,  85.667,  78.944,
     $      70.467,  60.287,  48.741,  35.493,  21.745,
     $       8.487,  -3.584, -13.439, -22.585, -29.580,
     $     -35.024, -39.370, -42.947, -45.706, -47.831,
     $     -49.822, -51.205, -52.459, -53.280, -53.584,
     $     -54.114, -49.023, -47.788/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 52, 52) /
     $     -28.112, -29.911, -29.654, -30.085, -30.533,
     $     -31.273, -31.706, -32.488, -33.023, -33.597,
     $     -34.139, -34.665, -35.340, -36.154, -37.068,
     $     -38.041, -38.953, -39.898, -40.716, -41.686,
     $     -42.678, -43.765, -44.875, -45.910, -47.195,
     $     -48.153, -48.492, -47.665, -44.536, -39.898,
     $     -34.424, -29.574, -26.309, -24.344, -23.348,
     $     -22.751, -21.922, -20.083, -16.352, -10.296,
     $      -2.060,   7.304,  16.639,  26.318,  36.054,
     $      46.324,  58.056,  69.898,  81.141,  89.842,
     $      94.778, 100.000,  95.352,  92.164,  87.300,
     $      80.411,  71.463,  60.761,  47.967,  34.219,
     $      20.612,   7.906,  -2.666, -12.683, -20.503,
     $     -26.646, -31.667, -35.850, -39.112, -41.709,
     $     -44.078, -45.876, -47.387, -48.536, -49.154,
     $     -49.921, -45.411, -44.455/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 53, 53) /
     $     -31.540, -33.451, -33.035, -33.358, -33.689,
     $     -34.307, -34.549, -35.174, -35.518, -35.853,
     $     -36.150, -36.437, -36.888, -37.516, -38.285,
     $     -39.148, -39.980, -40.865, -41.626, -42.524,
     $     -43.406, -44.312, -45.134, -45.736, -46.374,
     $     -46.406, -45.453, -43.113, -38.516, -32.742,
     $     -26.734, -21.826, -18.852, -17.576, -17.670,
     $     -18.591, -19.811, -20.533, -19.839, -16.819,
     $     -11.295,  -3.941,   4.176,  13.240,  22.876,
     $      33.434,  45.992,  59.155,  72.331,  83.495,
     $      91.062,  95.352, 100.000,  95.537,  92.582,
     $      87.464,  80.054,  70.600,  58.761,  45.561,
     $      32.150,  19.314,   8.449,  -2.041, -10.375,
     $     -16.974, -22.473, -27.099, -30.736, -33.704,
     $     -36.359, -38.501, -40.210, -41.644, -42.552,
     $     -43.527, -39.799, -39.165/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 54, 54) /
     $     -33.918, -35.925, -35.419, -35.692, -35.971,
     $     -36.539, -36.687, -37.240, -37.491, -37.702,
     $     -37.868, -38.024, -38.345, -38.859, -39.523,
     $     -40.285, -41.014, -41.779, -42.394, -43.106,
     $     -43.760, -44.370, -44.813, -44.932, -44.936,
     $     -44.146, -42.132, -38.618, -32.958, -26.430,
     $     -20.160, -15.349, -12.704, -12.038, -13.033,
     $     -15.186, -18.062, -20.868, -22.677, -22.210,
     $     -19.033, -13.491,  -6.557,   1.795,  11.122,
     $      21.660,  34.590,  48.528,  63.007,  76.001,
     $      85.667,  92.164,  95.537, 100.000,  95.500,
     $      92.314,  86.710,  78.854,  68.402,  56.215,
     $      43.457,  30.914,  20.102,   9.464,   0.865,
     $      -5.994, -11.815, -16.755, -20.668, -23.931,
     $     -26.797, -29.233, -31.094, -32.779, -33.966,
     $     -35.127, -32.368, -32.100/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 55, 55) /
     $     -35.444, -37.534, -36.996, -37.271, -37.551,
     $     -38.129, -38.264, -38.820, -39.056, -39.242,
     $     -39.374, -39.487, -39.760, -40.221, -40.818,
     $     -41.489, -42.094, -42.694, -43.092, -43.529,
     $     -43.859, -44.082, -44.075, -43.678, -43.064,
     $     -41.548, -38.673, -34.273, -27.889, -20.923,
     $     -14.609, -10.013,  -7.722,  -7.588,  -9.318,
     $     -12.451, -16.642, -21.116, -24.962, -26.623,
     $     -25.464, -21.550, -15.755,  -8.190,   0.659,
     $      10.924,  23.849,  38.103,  53.353,  67.638,
     $      78.944,  87.300,  92.582,  95.500, 100.000,
     $      95.335,  91.752,  85.783,  77.079,  66.294,
     $      54.576,  42.683,  32.221,  21.713,  13.064,
     $       6.113,   0.104,  -5.038,  -9.140, -12.631,
     $     -15.645, -18.330, -20.301, -22.211, -23.664,
     $     -24.991, -23.363, -23.499/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 56, 56) /
     $     -36.176, -38.331, -37.810, -38.125, -38.447,
     $     -39.081, -39.267, -39.882, -40.168, -40.405,
     $     -40.580, -40.722, -41.010, -41.463, -42.020,
     $     -42.605, -43.070, -43.462, -43.583, -43.664,
     $     -43.586, -43.339, -42.812, -41.859, -40.624,
     $     -38.441, -34.849, -29.782, -22.945, -15.803,
     $      -9.641,  -5.373,  -3.468,  -3.813,  -6.151,
     $     -10.069, -15.313, -21.144, -26.692, -30.199,
     $     -30.870, -28.518, -23.905, -17.258,  -9.097,
     $       0.619,  13.155,  27.280,  42.806,  57.902,
     $      70.467,  80.411,  87.464,  92.314,  95.335,
     $     100.000,  95.149,  91.409,  84.868,  75.928,
     $      65.681,  54.836,  45.050,  34.975,  26.507,
     $      19.646,  13.594,   8.368,   4.168,   0.519,
     $      -2.575,  -5.464,  -7.502,  -9.609, -11.320,
     $     -12.795, -12.493, -13.081/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 57, 57) /
     $     -35.990, -38.178, -37.713, -38.095, -38.486,
     $     -39.203, -39.486, -40.197, -40.576, -40.920,
     $     -41.193, -41.416, -41.767, -42.247, -42.784,
     $     -43.289, -43.605, -43.767, -43.577, -43.259,
     $     -42.728, -41.970, -40.899, -39.388, -37.566,
     $     -34.803, -30.658, -25.153, -18.132, -11.068,
     $      -5.239,  -1.395,   0.107,  -0.644,  -3.438,
     $      -7.919, -13.923, -20.765, -27.644, -32.682,
     $     -34.970, -34.099, -30.704, -25.114, -17.856,
     $      -8.978,   2.766,  16.288,  31.552,  46.921,
     $      60.287,  71.463,  80.054,  86.710,  91.752,
     $      95.149, 100.000,  95.026,  90.969,  84.252,
     $      75.874,  66.464,  57.689,  48.373,  40.349,
     $      33.786,  27.867,  22.705,  18.525,  14.815,
     $      11.728,   8.705,   6.658,   4.401,   2.463,
     $       0.874,  -0.277,  -1.337/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 58, 58) /
     $     -34.915, -37.096, -36.715, -37.174, -37.646,
     $     -38.457, -38.860, -39.681, -40.176, -40.657,
     $     -41.059, -41.395, -41.836, -42.362, -42.893,
     $     -43.325, -43.495, -43.423, -42.919, -42.196,
     $     -41.209, -39.944, -38.343, -36.311, -33.961,
     $     -30.722, -26.185, -20.449, -13.480,  -6.705,
     $      -1.349,   2.002,   3.108,   2.031,  -1.066,
     $      -5.891, -12.366, -19.884, -27.731, -33.988,
     $     -37.676, -38.195, -36.041, -31.623, -25.457,
     $     -17.670,  -7.075,   5.414,  19.916,  35.037,
     $      48.741,  60.761,  70.600,  78.854,  85.783,
     $      91.409,  95.026, 100.000,  94.928,  90.697,
     $      84.493,  76.840,  69.367,  61.109,  53.778,
     $      47.717,  42.107,  37.163,  33.126,  29.461,
     $      26.472,  23.399,  21.403,  19.056,  16.937,
     $      15.275,  12.626,  11.099/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 59, 59) /
     $     -32.876, -35.000, -34.725, -35.264, -35.820,
     $     -36.721, -37.256, -38.188, -38.809, -39.442,
     $     -39.991, -40.457, -41.003, -41.587, -42.117,
     $     -42.480, -42.507, -42.205, -41.394, -40.273,
     $     -38.841, -37.084, -34.982, -32.472, -29.657,
     $     -26.038, -21.257, -15.478,  -8.777,  -2.489,
     $       2.254,   5.042,   5.754,   4.427,   1.174,
     $      -3.788, -10.466, -18.351, -26.844, -34.060,
     $     -38.988, -40.862, -40.018, -36.931, -32.083,
     $     -25.676, -16.623,  -5.626,   7.586,  21.922,
     $      35.493,  47.967,  58.761,  68.402,  77.079,
     $      84.868,  90.969,  94.928, 100.000,  94.975,
     $      91.286,  85.754,  79.910,  73.048,  66.693,
     $      61.364,  56.265,  51.713,  47.960,  44.460,
     $      41.675,  38.647,  36.770,  34.402,  32.155,
     $      30.469,  26.274,  24.287/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 60, 60) /
     $     -30.023, -32.037, -31.874, -32.478, -33.104,
     $     -34.071, -34.725, -35.743, -36.475, -37.246,
     $     -37.930, -38.520, -39.164, -39.800, -40.330,
     $     -40.632, -40.537, -40.040, -38.973, -37.517,
     $     -35.713, -33.550, -31.040, -28.159, -24.996,
     $     -21.135, -16.275, -10.633,  -4.375,   1.288,
     $       5.346,   7.562,   7.924,   6.447,   3.196,
     $      -1.685,  -8.285, -16.205, -24.979, -32.824,
     $     -38.736, -41.820, -42.250, -40.538, -37.120,
     $     -32.257, -24.997, -15.814,  -4.301,   8.778,
     $      21.745,  34.219,  45.561,  56.215,  66.294,
     $      75.928,  84.252,  90.697,  94.975, 100.000,
     $      95.224,  91.971,  87.934,  82.683,  77.508,
     $      73.084,  68.663,  64.653,  61.309,  58.092,
     $      55.604,  52.721,  51.029,  48.719,  46.418,
     $      44.763,  39.151,  36.767/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 61, 61) /
     $     -26.742, -28.610, -28.554, -29.205, -29.881,
     $     -30.890, -31.639, -32.716, -33.536, -34.418,
     $     -35.216, -35.910, -36.637, -37.315, -37.844,
     $     -38.095, -37.905, -37.255, -35.992, -34.279,
     $     -32.190, -29.718, -26.907, -23.763, -20.367,
     $     -16.384, -11.572,  -6.188,  -0.467,   4.518,
     $       7.893,   9.571,   9.643,   8.104,   4.978,
     $       0.336,  -5.981, -13.688, -22.452, -30.644,
     $     -37.293, -41.410, -43.010, -42.625, -40.633,
     $     -37.341, -31.951, -24.710, -15.099,  -3.555,
     $       8.487,  20.612,  32.150,  43.457,  54.576,
     $      65.681,  75.874,  84.493,  91.286,  95.224,
     $     100.000,  95.648,  93.443,  89.870,  85.960,
     $      82.521,  78.866,  75.483,  72.621,  69.761,
     $      67.626,  64.961,  63.492,  61.299,  59.008,
     $      57.428,  50.590,  47.885/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 62, 62) /
     $     -23.234, -24.931, -24.972, -25.650, -26.357,
     $     -27.380, -28.196, -29.303, -30.182, -31.146,
     $     -32.028, -32.803, -33.590, -34.296, -34.819,
     $     -35.029, -34.768, -34.009, -32.613, -30.723,
     $     -28.440, -25.763, -22.760, -19.466, -15.951,
     $     -11.960,  -7.308,  -2.276,   2.846,   7.136,
     $       9.851,  11.044,  10.886,   9.358,   6.451,
     $       2.167,  -3.708, -11.000, -19.508, -27.782,
     $     -34.908, -39.841, -42.450, -43.272, -42.618,
     $     -40.828, -37.266, -31.967, -24.323, -14.470,
     $      -3.584,   7.906,  19.314,  30.914,  42.683,
     $      54.836,  66.464,  76.840,  85.754,  91.971,
     $      95.648, 100.000,  96.276,  94.333,  91.685,
     $      89.239,  86.383,  83.664,  81.319,  78.861,
     $      77.108,  74.711,  73.486,  71.458,  69.232,
     $      67.762,  59.957,  57.021/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 63, 63) /
     $     -20.064, -21.599, -21.717, -22.408, -23.129,
     $     -24.149, -25.010, -26.125, -27.041, -28.058,
     $     -28.998, -29.829, -30.658, -31.380, -31.895,
     $     -32.074, -31.765, -30.935, -29.458, -27.458,
     $     -25.058, -22.259, -19.149, -15.786, -12.230,
     $      -8.296,  -3.843,   0.830,   5.399,   9.074,
     $      11.232,  12.032,  11.709,  10.232,   7.568,
     $       3.664,  -1.738,  -8.555, -16.701, -24.898,
     $     -32.297, -37.822, -41.222, -43.028, -43.491,
     $     -42.974, -40.980, -37.373, -31.483, -23.191,
     $     -13.439,  -2.666,   8.449,  20.102,  32.221,
     $      45.050,  57.689,  69.367,  79.910,  87.934,
     $      93.443,  96.276, 100.000,  96.724,  95.176,
     $      93.602,  91.462,  89.343,  87.470,  85.388,
     $      83.984,  81.851,  80.851,  78.993,  76.857,
     $      75.502,  66.994,  63.906/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 64, 64) /
     $     -16.780, -18.140, -18.329, -19.021, -19.745,
     $     -20.747, -21.636, -22.741, -23.679, -24.731,
     $     -25.711, -26.584, -27.440, -28.169, -28.672,
     $     -28.823, -28.478, -27.599, -26.074, -24.008,
     $     -21.540, -18.675, -15.518, -12.147,  -8.613,
     $      -4.797,  -0.604,   3.659,   7.642,  10.690,
     $      12.305,  12.738,  12.279,  10.891,   8.516,
     $       5.051,   0.205,  -6.034, -13.686, -21.663,
     $     -29.192, -35.185, -39.283, -42.000, -43.525,
     $     -44.233, -43.775, -41.848, -37.737, -31.081,
     $     -22.585, -12.683,  -2.041,   9.464,  21.713,
     $      34.975,  48.373,  61.109,  73.048,  82.683,
     $      89.870,  94.333,  96.724, 100.000,  97.084,
     $      96.381,  94.969,  93.467,  92.083,  90.401,
     $      89.360,  87.518,  86.754,  85.091,  83.076,
     $      81.855,  72.797,  69.610/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 65, 65) /
     $     -14.012, -15.217, -15.460, -16.145, -16.862,
     $     -17.838, -18.738, -19.824, -20.767, -21.835,
     $     -22.836, -23.731, -24.599, -25.326, -25.815,
     $     -25.944, -25.578, -24.674, -23.131, -21.041,
     $     -18.552, -15.672, -12.518,  -9.182,  -5.711,
     $      -2.034,   1.905,   5.795,   9.273,  11.800,
     $      12.976,  13.125,  12.575,  11.284,   9.178,
     $       6.115,   1.779,  -3.913, -11.068, -18.765,
     $     -26.299, -32.590, -37.195, -40.607, -42.962,
     $     -44.641, -45.417, -44.859, -42.223, -36.962,
     $     -29.580, -20.503, -10.375,   0.865,  13.064,
     $      26.507,  40.349,  53.778,  66.693,  77.508,
     $      85.960,  91.685,  95.176,  97.084, 100.000,
     $      97.523,  96.717,  95.734,  94.763,  93.426,
     $      92.692,  91.108,  90.546,  89.062,  87.170,
     $      86.073,  76.672,  73.442/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 66, 66) /
     $     -11.790, -12.870, -13.154, -13.830, -14.539,
     $     -15.491, -16.397, -17.462, -18.406, -19.481,
     $     -20.494, -21.404, -22.279, -23.001, -23.478,
     $     -23.591, -23.210, -22.290, -20.741, -18.640,
     $     -16.145, -13.265, -10.127,  -6.833,  -3.423,
     $       0.129,   3.852,   7.436,  10.506,  12.617,
     $      13.448,  13.378,  12.764,  11.560,   9.682,
     $       6.957,   3.050,  -2.178,  -8.905, -16.345,
     $     -23.852, -30.354, -35.345, -39.298, -42.306,
     $     -44.755, -46.513, -47.052, -45.606, -41.484,
     $     -35.024, -26.646, -16.974,  -5.994,   6.113,
     $      19.646,  33.786,  47.717,  61.364,  73.084,
     $      82.521,  89.239,  93.602,  96.381,  97.523,
     $     100.000,  97.797,  97.236,  96.603,  95.550,
     $      95.068,  93.700,  93.303,  91.971,  90.186,
     $      89.193,  79.547,  76.294/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 67, 67) /
     $      -9.820, -10.785, -11.101, -11.764, -12.460,
     $     -13.383, -14.285, -15.325, -16.260, -17.332,
     $     -18.347, -19.260, -20.133, -20.845, -21.308,
     $     -21.405, -21.015, -20.090, -18.549, -16.457,
     $     -13.978, -11.124,  -8.025,  -4.795,  -1.467,
     $       1.950,   5.460,   8.754,  11.456,  13.199,
     $      13.733,  13.481,  12.822,  11.707,  10.043,
     $       7.632,   4.129,  -0.656,  -6.955, -14.109,
     $     -21.526, -28.152, -33.430, -37.812, -41.355,
     $     -44.442, -47.027, -48.501, -48.090, -44.980,
     $     -39.370, -31.667, -22.473, -11.815,   0.104,
     $      13.594,  27.867,  42.107,  56.265,  68.663,
     $      78.866,  86.383,  91.462,  94.969,  96.717,
     $      97.797, 100.000,  97.725,  97.391,  96.594,
     $      96.335,  95.167,  94.918,  93.728,  92.051,
     $      91.158,  81.381,  78.135/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 68, 68) /
     $      -8.132,  -8.998,  -9.339,  -9.989, -10.671,
     $     -11.566, -12.462, -13.476, -14.402, -15.467,
     $     -16.479, -17.392, -18.259, -18.960, -19.408,
     $     -19.492, -19.095, -18.168, -16.639, -14.562,
     $     -12.104,  -9.280,  -6.225,  -3.059,   0.189,
     $       3.481,   6.799,   9.839,  12.220,  13.648,
     $      13.932,  13.529,  12.837,  11.803,  10.329,
     $       8.196,   5.052,   0.664,  -5.248, -12.132,
     $     -19.446, -26.157, -31.662, -36.397, -40.385,
     $     -44.008, -47.292, -49.563, -50.039, -47.809,
     $     -42.947, -35.850, -27.099, -16.755,  -5.038,
     $       8.368,  22.705,  37.163,  51.713,  64.653,
     $      75.483,  83.664,  89.343,  93.467,  95.734,
     $      97.236,  97.725, 100.000,  97.784,  97.212,
     $      97.148,  96.157,  96.037,  94.976,  93.398,
     $      92.595,  82.733,  79.502/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 69, 69) /
     $      -6.786,  -7.572,  -7.932,  -8.570,  -9.240,
     $     -10.111, -11.000, -11.991, -12.907, -13.964,
     $     -14.972, -15.882, -16.743, -17.434, -17.869,
     $     -17.941, -17.539, -16.612, -15.095, -13.033,
     $     -10.597,  -7.803,  -4.789,  -1.680,   1.498,
     $       4.684,   7.844,  10.676,  12.799,  13.974,
     $      14.061,  13.540,  12.824,  11.860,  10.542,
     $       8.638,   5.789,   1.729,  -3.859, -10.510,
     $     -17.726, -24.487, -30.163, -35.169, -39.504,
     $     -43.548, -47.385, -50.288, -51.475, -49.956,
     $     -45.706, -39.112, -30.736, -20.668,  -9.140,
     $       4.168,  18.525,  33.126,  47.960,  61.309,
     $      72.621,  81.319,  87.470,  92.083,  94.763,
     $      96.603,  97.391,  97.784, 100.000,  97.532,
     $      97.627,  96.781,  96.766,  95.811,  94.317,
     $      93.588,  83.676,  80.464/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 70, 70) /
     $      -5.605,  -6.318,  -6.692,  -7.316,  -7.973,
     $      -8.819,  -9.697, -10.664, -11.566, -12.611,
     $     -13.609, -14.513, -15.364, -16.041, -16.463,
     $     -16.525, -16.120, -15.198, -13.698, -11.660,
     $      -9.256,  -6.502,  -3.539,  -0.495,   2.605,
     $       5.683,   8.690,  11.328,  13.218,  14.171,
     $      14.088,  13.471,  12.740,  11.841,  10.666,
     $       8.971,   6.392,   2.640,  -2.636,  -9.049,
     $     -16.138, -22.905, -28.694, -33.906, -38.518,
     $     -42.902, -47.196, -50.630, -52.424, -51.528,
     $     -47.831, -41.709, -33.704, -23.931, -12.631,
     $       0.519,  14.815,  29.461,  44.460,  58.092,
     $      69.761,  78.861,  85.388,  90.401,  93.426,
     $      95.550,  96.594,  97.212,  97.532, 100.000,
     $      97.537,  96.824,  96.901,  96.044,  94.631,
     $      93.970,  84.065,  80.887/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 71, 71) /
     $      -4.636,  -5.291,  -5.679,  -6.295,  -6.942,
     $      -7.771,  -8.644,  -9.594, -10.488, -11.528,
     $     -12.522, -13.423, -14.269, -14.938, -15.350,
     $     -15.403, -14.994, -14.071, -12.579, -10.552,
     $      -8.164,  -5.431,  -2.498,   0.503,   3.551,
     $       6.550,   9.439,  11.924,  13.625,  14.394,
     $      14.167,  13.466,  12.719,  11.873,  10.816,
     $       9.292,   6.934,   3.429,  -1.602,  -7.836,
     $     -14.844, -21.642, -27.551, -32.959, -37.822,
     $     -42.514, -47.213, -51.113, -53.432, -53.063,
     $     -49.822, -44.078, -36.359, -26.797, -15.645,
     $      -2.575,  11.728,  26.472,  41.675,  55.604,
     $      67.626,  77.108,  83.984,  89.360,  92.692,
     $      95.068,  96.335,  97.148,  97.627,  97.537,
     $     100.000,  97.285,  97.442,  96.664,  95.315,
     $      94.711,  84.769,  81.605/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 72, 72) /
     $      -3.687,  -4.282,  -4.679,  -5.281,  -5.914,
     $      -6.719,  -7.579,  -8.504,  -9.383, -10.408,
     $     -11.389, -12.279, -13.112, -13.767, -14.165,
     $     -14.208, -13.799, -12.884, -11.413,  -9.415,
     $      -7.064,  -4.377,  -1.501,   1.432,   4.402,
     $       7.297,  10.047,  12.362,  13.867,  14.454,
     $      14.094,  13.320,  12.567,  11.779,  10.844,
     $       9.497,   7.372,   4.134,  -0.613,  -6.615,
     $     -13.475, -20.233, -26.194, -31.732, -36.785,
     $     -41.720, -46.756, -51.056, -53.849, -53.982,
     $     -51.205, -45.876, -38.501, -29.233, -18.330,
     $      -5.464,   8.705,  23.399,  38.647,  52.721,
     $      64.961,  74.711,  81.851,  87.518,  91.108,
     $      93.700,  95.167,  96.157,  96.781,  96.824,
     $      97.285, 100.000,  97.022,  96.329,  95.053,
     $      94.508,  84.626,  81.507/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 73, 73) /
     $      -3.054,  -3.611,  -4.017,  -4.613,  -5.240,
     $      -6.033,  -6.890,  -7.804,  -8.678,  -9.698,
     $     -10.676, -11.565, -12.394, -13.042, -13.434,
     $     -13.471, -13.058, -12.143, -10.677,  -8.687,
     $      -6.347,  -3.676,  -0.821,   2.081,   5.013,
     $       7.853,  10.521,  12.731,  14.107,  14.571,
     $      14.116,  13.286,  12.524,  11.772,  10.916,
     $       9.685,   7.709,   4.641,   0.065,  -5.809,
     $     -12.603, -19.370, -25.400, -31.059, -36.272,
     $     -41.404, -46.701, -51.306, -54.444, -54.928,
     $     -52.459, -47.387, -40.210, -31.094, -20.301,
     $      -7.502,   6.658,  21.403,  36.770,  51.029,
     $      63.492,  73.486,  80.851,  86.754,  90.546,
     $      93.303,  94.918,  96.037,  96.766,  96.901,
     $      97.442,  97.022, 100.000,  96.667,  95.435,
     $      94.929,  85.030,  81.923/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 74, 74) /
     $      -2.347,  -2.858,  -3.270,  -3.853,  -4.468,
     $      -5.242,  -6.086,  -6.980,  -7.840,  -8.846,
     $      -9.813, -10.691, -11.508, -12.143, -12.523,
     $     -12.552, -12.140, -11.232,  -9.785,  -7.822,
     $      -5.516,  -2.887,  -0.083,   2.759,   5.623,
     $       8.375,  10.928,  13.001,  14.224,  14.548,
     $      13.993,  13.112,  12.346,  11.640,  10.878,
     $       9.784,   7.990,   5.135,   0.789,  -4.885,
     $     -11.538, -18.245, -24.288, -30.019, -35.352,
     $     -40.644, -46.171, -51.058, -54.537, -55.394,
     $     -53.280, -48.536, -41.644, -32.779, -22.211,
     $      -9.609,   4.401,  19.056,  34.402,  48.719,
     $      61.299,  71.458,  78.993,  85.091,  89.062,
     $      91.971,  93.728,  94.976,  95.811,  96.044,
     $      96.664,  96.329,  96.667, 100.000,  94.921,
     $      94.461,  84.640,  81.576/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 75, 75) /
     $      -1.732,  -2.200,  -2.614,  -3.184,  -3.784,
     $      -4.536,  -5.366,  -6.236,  -7.079,  -8.067,
     $      -9.017,  -9.880, -10.682, -11.302, -11.669,
     $     -11.691, -11.281, -10.385,  -8.964,  -7.036,
     $      -4.775,  -2.200,   0.542,   3.313,   6.097,
     $       8.754,  11.190,  13.129,  14.211,  14.411,
     $      13.774,  12.854,  12.091,  11.429,  10.751,
     $       9.781,   8.155,   5.503,   1.387,  -4.074,
     $     -10.557, -17.161, -23.168, -28.917, -34.310,
     $     -39.699, -45.380, -50.470, -54.213, -55.381,
     $     -53.584, -49.154, -42.552, -33.966, -23.664,
     $     -11.320,   2.463,  16.937,  32.155,  46.418,
     $      59.008,  69.232,  76.857,  83.076,  87.170,
     $      90.186,  92.051,  93.398,  94.317,  94.631,
     $      95.315,  95.053,  95.435,  94.921, 100.000,
     $      93.389,  83.704,  80.699/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 76, 76) /
     $      -1.225,  -1.661,  -2.079,  -2.641,  -3.233,
     $      -3.971,  -4.792,  -5.649,  -6.483,  -7.461,
     $      -8.402,  -9.259, -10.051, -10.662, -11.021,
     $     -11.036, -10.625,  -9.733,  -8.324,  -6.414,
     $      -4.176,  -1.630,   1.076,   3.803,   6.537,
     $       9.129,  11.478,  13.315,  14.280,  14.376,
     $      13.665,  12.705,  11.938,  11.308,  10.698,
     $       9.826,   8.333,   5.839,   1.895,  -3.415,
     $      -9.788, -16.339, -22.347, -28.139, -33.611,
     $     -39.109, -44.949, -50.236, -54.220, -55.654,
     $     -54.114, -49.921, -43.527, -35.127, -24.991,
     $     -12.795,   0.874,  15.275,  30.469,  44.763,
     $      57.428,  67.762,  75.502,  81.855,  86.073,
     $      89.193,  91.158,  92.595,  93.588,  93.970,
     $      94.711,  94.508,  94.929,  94.461,  93.389,
     $     100.000,  83.380,  80.408/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 77, 77) /
     $      -0.763,  -1.134,  -1.513,  -2.014,  -2.541,
     $      -3.196,  -3.930,  -4.692,  -5.436,  -6.310,
     $      -7.152,  -7.918,  -8.626,  -9.170,  -9.487,
     $      -9.497,  -9.126,  -8.327,  -7.068,  -5.362,
     $      -3.365,  -1.095,   1.315,   3.738,   6.162,
     $       8.448,  10.501,  12.082,  12.871,  12.885,
     $      12.195,  11.305,  10.612,  10.066,   9.562,
     $       8.844,   7.588,   5.451,   2.020,  -2.652,
     $      -8.306, -14.159, -19.560, -24.796, -29.768,
     $     -34.783, -40.141, -45.026, -48.769, -50.237,
     $     -49.023, -45.411, -39.799, -32.368, -23.363,
     $     -12.493,  -0.277,  12.626,  26.274,  39.151,
     $      50.590,  59.957,  66.994,  72.797,  76.672,
     $      79.547,  81.381,  82.733,  83.676,  84.065,
     $      84.769,  84.626,  85.030,  84.640,  83.704,
     $      83.380, 100.000,  72.115/
      DATA ((C3PPZ     ( I, J), I=1, 78),J= 78, 78) /
     $      -0.393,  -0.730,  -1.101,  -1.580,  -2.085,
     $      -2.711,  -3.417,  -4.146,  -4.861,  -5.702,
     $      -6.512,  -7.250,  -7.930,  -8.450,  -8.752,
     $      -8.758,  -8.398,  -7.627,  -6.416,  -4.776,
     $      -2.859,  -0.681,   1.626,   3.941,   6.251,
     $       8.417,  10.341,  11.796,  12.476,  12.415,
     $      11.693,  10.804,  10.129,   9.622,   9.179,
     $       8.551,   7.426,   5.465,   2.265,  -2.149,
     $      -7.539, -13.161, -18.381, -23.472, -28.333,
     $     -33.256, -38.546, -43.405, -47.189, -48.789,
     $     -47.788, -44.455, -39.165, -32.100, -23.499,
     $     -13.081,  -1.337,  11.099,  24.287,  36.767,
     $      47.885,  57.021,  63.906,  69.610,  73.442,
     $      76.294,  78.135,  79.502,  80.464,  80.887,
     $      81.605,  81.507,  81.923,  81.576,  80.699,
     $      80.408,  72.115, 100.000/
C                        
      RETURN             
      END                
C----------------------------------------------------------------------)
C----------------------------------------------------------------------)
C                                                                      )
C 3pi 2pi0                                                             )
C----------------------------------------------------------------------)
      SUBROUTINE SP_3P2P0
C                        
      IMPLICIT NONE      
C                        
      INTEGER I,J        
C                        
      REAL S3P2PZ    ( 57)
      DATA S3P2PZ     /
     $       1.296,   1.328,   1.360,   1.392,   1.424,
     $       1.456,   1.488,   1.520,   1.552,   1.584,
     $       1.616,   1.648,   1.680,   1.712,   1.744,
     $       1.776,   1.808,   1.840,   1.872,   1.904,
     $       1.936,   1.968,   2.000,   2.032,   2.064,
     $       2.096,   2.128,   2.160,   2.192,   2.224,
     $       2.256,   2.288,   2.320,   2.352,   2.384,
     $       2.416,   2.448,   2.480,   2.512,   2.544,
     $       2.576,   2.608,   2.640,   2.672,   2.704,
     $       2.736,   2.768,   2.800,   2.832,   2.864,
     $       2.896,   2.928,   2.960,   2.992,   3.024,
     $       3.056,   3.088/
C                        
C                        
      REAL A3P2PZ    ( 57)
      DATA A3P2PZ     /
     $     0.000059, 0.000308, 0.000264, 0.000877, 0.000717,
     $     0.002027, 0.002145, 0.002618, 0.003765, 0.004072,
     $     0.007175, 0.007840, 0.007288, 0.010603, 0.013684,
     $     0.014540, 0.014751, 0.019048, 0.024431, 0.026100,
     $     0.030975, 0.036716, 0.041959, 0.042745, 0.049071,
     $     0.052953, 0.061620, 0.069718, 0.073401, 0.072643,
     $     0.081254, 0.083387, 0.105761, 0.102280, 0.093923,
     $     0.143461, 0.129067, 0.127489, 0.107382, 0.121301,
     $     0.156831, 0.168862, 0.179654, 0.181521, 0.169201,
     $     0.204356, 0.204280, 0.212204, 0.222248, 0.212471,
     $     0.326149, 0.232122, 0.283303, 0.309156, 0.263866,
     $     0.275099, 0.822145/
C                        
C                        
      REAL E3P2PZ    ( 57)
      DATA E3P2PZ     /
     $     0.003248, 0.006610, 0.003589, 0.008605, 0.005423,
     $     0.012358, 0.010649, 0.010834, 0.012955, 0.012071,
     $     0.018166, 0.017069, 0.013660, 0.017284, 0.019172,
     $     0.017719, 0.015483, 0.016856, 0.018484, 0.016522,
     $     0.016327, 0.015590, 0.013977, 0.010694, 0.009043,
     $     0.006543, 0.004982, 0.005660, 0.008653, 0.011919,
     $     0.017081, 0.021390, 0.031593, 0.034527, 0.035641,
     $     0.059248, 0.058118, 0.061748, 0.055543, 0.066573,
     $     0.090081, 0.101795, 0.113152, 0.119248, 0.115606,
     $     0.144171, 0.148587, 0.159585, 0.172196, 0.169506,
     $     0.265358, 0.195120, 0.246176, 0.276043, 0.244967,
     $     0.269170, 0.814907/
C                        
C                        
      REAL C3P2PZ    ( 57, 57)
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  1,  1) /
     $     100.000,  99.995,  99.982,  99.982,  99.957,
     $      99.967,  99.951,  99.928,  99.910,  99.882,
     $      99.884,  99.839,  99.758,  99.744,  99.704,
     $      99.604,  99.445,  99.308,  99.220,  98.841,
     $      98.527,  97.942,  96.922,  94.511,  89.686,
     $      76.550,  37.597, -42.785, -78.160, -89.161,
     $     -93.360, -95.388, -97.084, -97.401, -97.470,
     $     -98.468, -98.311, -98.376, -98.111, -98.172,
     $     -98.529, -98.605, -98.565, -98.516, -98.242,
     $     -98.397, -98.324, -98.030, -97.812, -97.558,
     $     -97.882, -96.974, -96.085, -95.260, -93.700,
     $     -89.977, -90.688/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  2,  2) /
     $      99.995, 100.000,  99.981,  99.983,  99.958,
     $      99.969,  99.954,  99.932,  99.916,  99.889,
     $      99.892,  99.848,  99.769,  99.757,  99.720,
     $      99.621,  99.465,  99.331,  99.247,  98.872,
     $      98.565,  97.987,  96.978,  94.583,  89.781,
     $      76.686,  37.796, -42.597, -78.037, -89.078,
     $     -93.299, -95.341, -97.046, -97.371, -97.445,
     $     -98.447, -98.293, -98.362, -98.099, -98.163,
     $     -98.521, -98.598, -98.560, -98.513, -98.240,
     $     -98.396, -98.324, -98.031, -97.814, -97.561,
     $     -97.885, -96.978, -96.090, -95.265, -93.705,
     $     -89.983, -90.694/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  3,  3) /
     $      99.982,  99.981, 100.000,  99.972,  99.949,
     $      99.961,  99.947,  99.926,  99.910,  99.885,
     $      99.889,  99.847,  99.769,  99.759,  99.723,
     $      99.627,  99.473,  99.343,  99.262,  98.891,
     $      98.589,  98.018,  97.020,  94.639,  89.858,
     $      76.802,  37.974, -42.421, -77.917, -88.993,
     $     -93.234, -95.289, -97.003, -97.333, -97.413,
     $     -98.418, -98.268, -98.339, -98.078, -98.144,
     $     -98.504, -98.583, -98.546, -98.500, -98.228,
     $     -98.386, -98.315, -98.023, -97.806, -97.554,
     $     -97.879, -96.972, -96.084, -95.261, -93.701,
     $     -89.979, -90.691/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  4,  4) /
     $      99.982,  99.983,  99.972, 100.000,  99.952,
     $      99.964,  99.951,  99.930,  99.915,  99.890,
     $      99.895,  99.853,  99.776,  99.766,  99.732,
     $      99.636,  99.483,  99.353,  99.273,  98.904,
     $      98.602,  98.033,  97.036,  94.657,  89.878,
     $      76.824,  37.996, -42.411, -77.918, -89.000,
     $     -93.243, -95.301, -97.016, -97.347, -97.428,
     $     -98.434, -98.285, -98.357, -98.097, -98.163,
     $     -98.524, -98.603, -98.567, -98.521, -98.249,
     $     -98.407, -98.337, -98.045, -97.829, -97.577,
     $     -97.902, -96.995, -96.108, -95.284, -93.724,
     $     -90.001, -90.714/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  5,  5) /
     $      99.957,  99.958,  99.949,  99.952, 100.000,
     $      99.943,  99.930,  99.910,  99.896,  99.872,
     $      99.877,  99.837,  99.761,  99.752,  99.719,
     $      99.624,  99.473,  99.345,  99.267,  98.900,
     $      98.602,  98.037,  97.045,  94.674,  89.907,
     $      76.876,  38.084, -42.316, -77.848, -88.948,
     $     -93.201, -95.265, -96.985, -97.319, -97.403,
     $     -98.411, -98.264, -98.338, -98.079, -98.147,
     $     -98.508, -98.589, -98.553, -98.508, -98.237,
     $     -98.396, -98.326, -98.035, -97.819, -97.568,
     $     -97.893, -96.987, -96.100, -95.277, -93.718,
     $     -89.995, -90.709/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  6,  6) /
     $      99.967,  99.969,  99.961,  99.964,  99.943,
     $     100.000,  99.944,  99.924,  99.911,  99.888,
     $      99.894,  99.855,  99.780,  99.772,  99.740,
     $      99.646,  99.496,  99.370,  99.294,  98.929,
     $      98.633,  98.071,  97.083,  94.718,  89.958,
     $      76.939,  38.161, -42.259, -77.822, -88.938,
     $     -93.200, -95.271, -96.995, -97.332, -97.418,
     $     -98.428, -98.282, -98.357, -98.100, -98.169,
     $     -98.531, -98.612, -98.577, -98.533, -98.263,
     $     -98.423, -98.353, -98.062, -97.847, -97.596,
     $     -97.922, -97.016, -96.129, -95.306, -93.747,
     $     -90.023, -90.738/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  7,  7) /
     $      99.951,  99.954,  99.947,  99.951,  99.930,
     $      99.944, 100.000,  99.914,  99.901,  99.879,
     $      99.886,  99.848,  99.774,  99.767,  99.736,
     $      99.644,  99.495,  99.371,  99.297,  98.934,
     $      98.641,  98.082,  97.099,  94.742,  89.992,
     $      76.989,  38.239, -42.183, -77.771, -88.903,
     $     -93.175, -95.251, -96.979, -97.319, -97.408,
     $     -98.420, -98.276, -98.353, -98.096, -98.167,
     $     -98.530, -98.612, -98.578, -98.535, -98.266,
     $     -98.426, -98.357, -98.067, -97.852, -97.601,
     $     -97.928, -97.022, -96.136, -95.313, -93.754,
     $     -90.030, -90.745/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  8,  8) /
     $      99.928,  99.932,  99.926,  99.930,  99.910,
     $      99.924,  99.914, 100.000,  99.884,  99.862,
     $      99.870,  99.833,  99.760,  99.754,  99.724,
     $      99.633,  99.486,  99.363,  99.290,  98.929,
     $      98.638,  98.082,  97.103,  94.750,  90.006,
     $      77.016,  38.285, -42.133, -77.735, -88.877,
     $     -93.154, -95.235, -96.965, -97.308, -97.398,
     $     -98.412, -98.269, -98.347, -98.092, -98.163,
     $     -98.527, -98.610, -98.577, -98.534, -98.266,
     $     -98.426, -98.358, -98.068, -97.854, -97.604,
     $     -97.931, -97.026, -96.139, -95.317, -93.759,
     $     -90.034, -90.750/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J=  9,  9) /
     $      99.910,  99.916,  99.910,  99.915,  99.896,
     $      99.911,  99.901,  99.884, 100.000,  99.853,
     $      99.862,  99.826,  99.754,  99.749,  99.721,
     $      99.632,  99.486,  99.366,  99.295,  98.937,
     $      98.649,  98.098,  97.124,  94.779,  90.047,
     $      77.078,  38.378, -42.043, -77.676, -88.837,
     $     -93.124, -95.212, -96.948, -97.294, -97.388,
     $     -98.404, -98.263, -98.343, -98.089, -98.162,
     $     -98.527, -98.612, -98.579, -98.538, -98.270,
     $     -98.431, -98.364, -98.075, -97.861, -97.612,
     $     -97.939, -97.034, -96.149, -95.327, -93.769,
     $     -90.044, -90.761/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 10, 10) /
     $      99.882,  99.889,  99.885,  99.890,  99.872,
     $      99.888,  99.879,  99.862,  99.853, 100.000,
     $      99.843,  99.808,  99.738,  99.734,  99.708,
     $      99.619,  99.475,  99.358,  99.289,  98.933,
     $      98.649,  98.102,  97.134,  94.797,  90.077,
     $      77.129,  38.464, -41.950, -77.608, -88.787,
     $     -93.084, -95.179, -96.920, -97.269, -97.366,
     $     -98.384, -98.246, -98.327, -98.075, -98.149,
     $     -98.515, -98.601, -98.570, -98.529, -98.262,
     $     -98.424, -98.357, -98.069, -97.856, -97.607,
     $     -97.935, -97.031, -96.146, -95.325, -93.767,
     $     -90.042, -90.760/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 11, 11) /
     $      99.884,  99.892,  99.889,  99.895,  99.877,
     $      99.894,  99.886,  99.870,  99.862,  99.843,
     $     100.000,  99.820,  99.751,  99.749,  99.724,
     $      99.637,  99.495,  99.379,  99.313,  98.960,
     $      98.678,  98.135,  97.172,  94.843,  90.132,
     $      77.199,  38.554, -41.880, -77.573, -88.771,
     $     -93.079, -95.181, -96.926, -97.279, -97.379,
     $     -98.399, -98.263, -98.346, -98.095, -98.171,
     $     -98.538, -98.625, -98.595, -98.555, -98.289,
     $     -98.452, -98.386, -98.099, -97.886, -97.638,
     $     -97.967, -97.062, -96.177, -95.357, -93.799,
     $     -90.073, -90.792/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 12, 12) /
     $      99.839,  99.848,  99.847,  99.853,  99.837,
     $      99.855,  99.848,  99.833,  99.826,  99.808,
     $      99.820, 100.000,  99.720,  99.719,  99.696,
     $      99.611,  99.470,  99.357,  99.293,  98.943,
     $      98.664,  98.126,  97.169,  94.848,  90.150,
     $      77.241,  38.636, -41.783, -77.497, -88.711,
     $     -93.028, -95.137, -96.887, -97.243, -97.346,
     $     -98.369, -98.235, -98.320, -98.071, -98.148,
     $     -98.517, -98.605, -98.576, -98.537, -98.272,
     $     -98.436, -98.370, -98.084, -97.872, -97.625,
     $     -97.954, -97.050, -96.166, -95.346, -93.789,
     $     -90.063, -90.783/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 13, 13) /
     $      99.758,  99.769,  99.769,  99.776,  99.761,
     $      99.780,  99.774,  99.760,  99.754,  99.738,
     $      99.751,  99.720, 100.000,  99.654,  99.633,
     $      99.549,  99.411,  99.301,  99.239,  98.892,
     $      98.617,  98.084,  97.133,  94.823,  90.139,
     $      77.259,  38.709, -41.666, -77.391, -88.619,
     $     -92.945, -95.060, -96.814, -97.174, -97.281,
     $     -98.305, -98.174, -98.260, -98.014, -98.092,
     $     -98.462, -98.551, -98.523, -98.486, -98.222,
     $     -98.387, -98.322, -98.037, -97.826, -97.579,
     $     -97.909, -97.006, -96.123, -95.304, -93.748,
     $     -90.024, -90.745/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 14, 14) /
     $      99.744,  99.757,  99.759,  99.766,  99.752,
     $      99.772,  99.767,  99.754,  99.749,  99.734,
     $      99.749,  99.719,  99.654, 100.000,  99.637,
     $      99.555,  99.419,  99.311,  99.251,  98.908,
     $      98.637,  98.108,  97.164,  94.863,  90.191,
     $      77.332,  38.812, -41.574, -77.334, -88.584,
     $     -92.922, -95.046, -96.805, -97.169, -97.280,
     $     -98.307, -98.178, -98.266, -98.022, -98.102,
     $     -98.473, -98.564, -98.537, -98.501, -98.238,
     $     -98.404, -98.340, -98.055, -97.845, -97.599,
     $     -97.930, -97.028, -96.144, -95.326, -93.771,
     $     -90.045, -90.768/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 15, 15) /
     $      99.704,  99.720,  99.723,  99.732,  99.719,
     $      99.740,  99.736,  99.724,  99.721,  99.708,
     $      99.724,  99.696,  99.633,  99.637, 100.000,
     $      99.540,  99.407,  99.302,  99.245,  98.906,
     $      98.639,  98.117,  97.181,  94.891,  90.236,
     $      77.406,  38.935, -41.446, -77.243, -88.518,
     $     -92.871, -95.004, -96.770, -97.139, -97.254,
     $     -98.285, -98.159, -98.250, -98.007, -98.090,
     $     -98.462, -98.555, -98.529, -98.495, -98.233,
     $     -98.400, -98.337, -98.054, -97.844, -97.600,
     $     -97.931, -97.029, -96.147, -95.330, -93.775,
     $     -90.049, -90.773/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 16, 16) /
     $      99.604,  99.621,  99.627,  99.636,  99.624,
     $      99.646,  99.644,  99.633,  99.632,  99.619,
     $      99.637,  99.611,  99.549,  99.555,  99.540,
     $     100.000,  99.331,  99.229,  99.176,  98.840,
     $      98.577,  98.061,  97.132,  94.853,  90.214,
     $      77.417,  39.008, -41.318, -77.123, -88.411,
     $     -92.772, -94.913, -96.683, -97.056, -97.174,
     $     -98.207, -98.084, -98.177, -97.937, -98.021,
     $     -98.395, -98.489, -98.465, -98.431, -98.171,
     $     -98.339, -98.277, -97.995, -97.787, -97.543,
     $     -97.874, -96.974, -96.093, -95.277, -93.724,
     $     -90.000, -90.726/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 17, 17) /
     $      99.445,  99.465,  99.473,  99.483,  99.473,
     $      99.496,  99.495,  99.486,  99.486,  99.475,
     $      99.495,  99.470,  99.411,  99.419,  99.407,
     $      99.331, 100.000,  99.106,  99.055,  98.724,
     $      98.467,  97.958,  97.040,  94.777,  90.161,
     $      77.412,  39.100, -41.127, -76.933, -88.237,
     $     -92.609, -94.758, -96.534, -96.912, -97.035,
     $     -98.071, -97.951, -98.047, -97.810, -97.896,
     $     -98.271, -98.367, -98.345, -98.313, -98.055,
     $     -98.224, -98.163, -97.882, -97.675, -97.433,
     $     -97.765, -96.867, -95.987, -95.173, -93.623,
     $     -89.903, -90.630/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 18, 18) /
     $      99.308,  99.331,  99.343,  99.353,  99.345,
     $      99.370,  99.371,  99.363,  99.366,  99.358,
     $      99.379,  99.357,  99.301,  99.311,  99.302,
     $      99.229,  99.106, 100.000,  98.966,  98.641,
     $      98.390,  97.890,  96.983,  94.738,  90.149,
     $      77.451,  39.235, -40.920, -76.748, -88.077,
     $     -92.464, -94.626, -96.409, -96.794, -96.923,
     $     -97.962, -97.846, -97.946, -97.712, -97.802,
     $     -98.179, -98.276, -98.256, -98.227, -97.971,
     $     -98.141, -98.082, -97.803, -97.597, -97.357,
     $     -97.689, -96.793, -95.915, -95.103, -93.555,
     $     -89.837, -90.566/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 19, 19) /
     $      99.220,  99.247,  99.262,  99.273,  99.267,
     $      99.294,  99.297,  99.290,  99.295,  99.289,
     $      99.313,  99.293,  99.239,  99.251,  99.245,
     $      99.176,  99.055,  98.966, 100.000,  98.604,
     $      98.359,  97.867,  96.971,  94.741,  90.172,
     $      77.515,  39.370, -40.754, -76.615, -87.971,
     $     -92.374, -94.547, -96.338, -96.728, -96.863,
     $     -97.906, -97.794, -97.897, -97.667, -97.759,
     $     -98.138, -98.238, -98.220, -98.192, -97.937,
     $     -98.110, -98.051, -97.774, -97.570, -97.331,
     $     -97.664, -96.769, -95.892, -95.082, -93.536,
     $     -89.818, -90.550/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 20, 20) /
     $      98.841,  98.872,  98.891,  98.904,  98.900,
     $      98.929,  98.934,  98.929,  98.937,  98.933,
     $      98.960,  98.943,  98.892,  98.908,  98.906,
     $      98.840,  98.724,  98.641,  98.604, 100.000,
     $      98.055,  97.574,  96.693,  94.488,  89.960,
     $      77.388,  39.436, -40.430, -76.238, -87.598,
     $     -92.009, -94.191, -95.987, -96.384, -96.526,
     $     -97.570, -97.464, -97.570, -97.345, -97.440,
     $     -97.821, -97.923, -97.907, -97.882, -97.631,
     $     -97.805, -97.748, -97.474, -97.272, -97.035,
     $     -97.369, -96.477, -95.604, -94.799, -93.258,
     $     -89.551, -90.284/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 21, 21) /
     $      98.527,  98.565,  98.589,  98.602,  98.602,
     $      98.633,  98.641,  98.638,  98.649,  98.649,
     $      98.678,  98.664,  98.617,  98.637,  98.639,
     $      98.577,  98.467,  98.390,  98.359,  98.055,
     $     100.000,  97.361,  96.497,  94.319,  89.832,
     $      77.346,  39.571, -40.098, -75.891, -87.273,
     $     -91.699, -93.895, -95.699, -96.104, -96.254,
     $     -97.303, -97.203, -97.313, -97.093, -97.192,
     $     -97.575, -97.680, -97.668, -97.646, -97.397,
     $     -97.574, -97.518, -97.247, -97.048, -96.814,
     $     -97.148, -96.260, -95.390, -94.589, -93.053,
     $     -89.353, -90.089/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 22, 22) /
     $      97.942,  97.987,  98.018,  98.033,  98.037,
     $      98.071,  98.082,  98.082,  98.098,  98.102,
     $      98.135,  98.126,  98.084,  98.108,  98.117,
     $      98.061,  97.958,  97.890,  97.867,  97.574,
     $      97.361, 100.000,  96.072,  93.934,  89.510,
     $      77.159,  39.686, -39.587, -75.300, -86.691,
     $     -91.131, -93.342, -95.154, -95.570, -95.731,
     $     -96.782, -96.691, -96.807, -96.594, -96.699,
     $     -97.084, -97.193, -97.184, -97.166, -96.922,
     $     -97.101, -97.049, -96.782, -96.586, -96.356,
     $     -96.690, -95.808, -94.944, -94.150, -92.624,
     $     -88.939, -89.679/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 23, 23) /
     $      96.922,  96.978,  97.020,  97.035,  97.045,
     $      97.083,  97.099,  97.103,  97.124,  97.134,
     $      97.172,  97.169,  97.133,  97.164,  97.181,
     $      97.132,  97.040,  96.984,  96.971,  96.693,
     $      96.497,  96.072, 100.000,  93.185,  88.852,
     $      76.707,  39.719, -38.832, -74.345, -85.716,
     $     -90.161, -92.385, -94.202, -94.630, -94.804,
     $     -95.857, -95.776, -95.899, -95.697, -95.808,
     $     -96.195, -96.309, -96.305, -96.292, -96.055,
     $     -96.237, -96.188, -95.928, -95.737, -95.512,
     $     -95.846, -94.974, -94.120, -93.338, -91.828,
     $     -88.173, -88.915/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 24, 24) /
     $      94.511,  94.583,  94.639,  94.657,  94.674,
     $      94.718,  94.742,  94.750,  94.779,  94.797,
     $      94.843,  94.848,  94.823,  94.863,  94.891,
     $      94.853,  94.777,  94.738,  94.741,  94.488,
     $      94.319,  93.934,  93.185, 100.000,  87.046,
     $      75.316,  39.385, -37.368, -72.251, -83.484,
     $     -87.892, -90.113, -91.920, -92.362, -92.554,
     $     -93.599, -93.535, -93.667, -93.482, -93.601,
     $     -93.987, -94.107, -94.110, -94.105, -93.881,
     $     -94.064, -94.021, -93.773, -93.591, -93.377,
     $     -93.707, -92.859, -92.026, -91.269, -89.797,
     $     -86.219, -86.960/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 25, 25) /
     $      89.686,  89.781,  89.858,  89.878,  89.907,
     $      89.958,  89.992,  90.006,  90.047,  90.077,
     $      90.132,  90.150,  90.139,  90.191,  90.236,
     $      90.214,  90.161,  90.149,  90.172,  89.960,
     $      89.832,  89.510,  88.852,  87.046, 100.000,
     $      72.231,  38.337, -34.727, -68.199, -79.074,
     $     -83.364, -85.550, -87.316, -87.771, -87.986,
     $     -89.004, -88.964, -89.108, -88.950, -89.079,
     $     -89.458, -89.584, -89.598, -89.605, -89.400,
     $     -89.585, -89.550, -89.323, -89.157, -88.962,
     $     -89.280, -88.478, -87.689, -86.978, -85.583,
     $     -82.167, -82.896/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 26, 26) /
     $      76.550,  76.686,  76.802,  76.824,  76.876,
     $      76.939,  76.989,  77.016,  77.078,  77.129,
     $      77.199,  77.241,  77.259,  77.332,  77.406,
     $      77.417,  77.412,  77.451,  77.515,  77.388,
     $      77.346,  77.159,  76.707,  75.316,  72.231,
     $     100.000,  34.695, -28.135, -57.465, -67.186,
     $     -71.069, -73.094, -74.707, -75.169, -75.418,
     $     -76.342, -76.352, -76.510, -76.413, -76.556,
     $     -76.905, -77.038, -77.072, -77.100, -76.944,
     $     -77.123, -77.105, -76.929, -76.801, -76.648,
     $     -76.933, -76.253, -75.581, -74.992, -73.803,
     $     -70.846, -71.520/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 27, 27) /
     $      37.597,  37.796,  37.974,  37.996,  38.084,
     $      38.161,  38.239,  38.285,  38.378,  38.464,
     $      38.554,  38.636,  38.709,  38.812,  38.935,
     $      39.008,  39.100,  39.235,  39.370,  39.436,
     $      39.571,  39.686,  39.719,  39.385,  38.337,
     $      34.695, 100.000, -10.319, -26.505, -32.307,
     $     -34.731, -36.099, -37.137, -37.536, -37.813,
     $     -38.394, -38.502, -38.664, -38.704, -38.852,
     $     -39.084, -39.209, -39.277, -39.343, -39.310,
     $     -39.447, -39.468, -39.422, -39.391, -39.351,
     $     -39.520, -39.197, -38.872, -38.623, -38.045,
     $     -36.492, -36.950/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 28, 28) /
     $     -42.785, -42.597, -42.421, -42.411, -42.316,
     $     -42.259, -42.183, -42.133, -42.043, -41.950,
     $     -41.880, -41.783, -41.666, -41.574, -41.446,
     $     -41.318, -41.127, -40.920, -40.754, -40.430,
     $     -40.098, -39.587, -38.832, -37.368, -34.727,
     $     -28.135, -10.319, 100.000,  35.476,  38.883,
     $      40.038,  40.434,  40.851,  40.771,  40.604,
     $      40.869,  40.672,  40.595,  40.368,  40.295,
     $      40.370,  40.327,  40.245,  40.156,  39.983,
     $      39.985,  39.918,  39.739,  39.605,  39.450,
     $      39.551,  39.150,  38.765,  38.355,  37.679,
     $      36.228,  36.351/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 29, 29) /
     $     -78.160, -78.037, -77.917, -77.918, -77.848,
     $     -77.822, -77.771, -77.735, -77.676, -77.608,
     $     -77.573, -77.497, -77.391, -77.334, -77.243,
     $     -77.123, -76.933, -76.748, -76.615, -76.238,
     $     -75.891, -75.300, -74.345, -72.251, -68.199,
     $     -57.465, -26.505,  35.476, 100.000,  69.905,
     $      72.873,  74.217,  75.388,  75.527,  75.480,
     $      76.176,  75.987,  75.986,  75.717,  75.713,
     $      75.952,  75.972,  75.907,  75.833,  75.589,
     $      75.676,  75.602,  75.342,  75.150,  74.926,
     $      75.160,  74.445,  73.751,  73.068,  71.843,
     $      69.023,  69.459/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 30, 30) /
     $     -89.161, -89.078, -88.993, -89.000, -88.948,
     $     -88.938, -88.903, -88.877, -88.837, -88.787,
     $     -88.771, -88.711, -88.619, -88.584, -88.518,
     $     -88.411, -88.237, -88.077, -87.971, -87.598,
     $     -87.273, -86.691, -85.716, -83.484, -79.074,
     $     -67.186, -32.307,  38.883,  69.905, 100.000,
     $      83.031,  84.732,  86.178,  86.413,  86.430,
     $      87.280,  87.111,  87.147,  86.879,  86.908,
     $      87.208,  87.257,  87.206,  87.145,  86.886,
     $      87.007,  86.935,  86.657,  86.452,  86.212,
     $      86.492,  85.681,  84.891,  84.130,  82.735,
     $      79.475,  80.028/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 31, 31) /
     $     -93.360, -93.299, -93.234, -93.243, -93.201,
     $     -93.200, -93.175, -93.154, -93.124, -93.084,
     $     -93.079, -93.028, -92.945, -92.922, -92.871,
     $     -92.772, -92.609, -92.464, -92.374, -92.009,
     $     -91.699, -91.131, -90.161, -87.892, -83.364,
     $     -71.069, -34.731,  40.038,  72.873,  83.031,
     $     100.000,  88.775,  90.338,  90.618,  90.667,
     $      91.582,  91.425,  91.480,  91.216,  91.263,
     $      91.589,  91.653,  91.610,  91.556,  91.294,
     $      91.430,  91.361,  91.078,  90.870,  90.626,
     $      90.925,  90.077,  89.252,  88.462,  87.003,
     $      83.568,  84.172/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 32, 32) /
     $     -95.388, -95.341, -95.289, -95.301, -95.265,
     $     -95.271, -95.251, -95.235, -95.212, -95.179,
     $     -95.181, -95.137, -95.060, -95.046, -95.004,
     $     -94.913, -94.758, -94.626, -94.547, -94.191,
     $     -93.895, -93.342, -92.385, -90.113, -85.550,
     $     -73.094, -36.099,  40.434,  74.217,  84.732,
     $      88.775, 100.000,  92.348,  92.658,  92.727,
     $      93.680,  93.533,  93.600,  93.342,  93.400,
     $      93.741,  93.814,  93.777,  93.729,  93.467,
     $      93.612,  93.546,  93.262,  93.053,  92.808,
     $      93.117,  92.253,  91.410,  90.608,  89.118,
     $      85.597,  86.228/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 33, 33) /
     $     -97.084, -97.046, -97.003, -97.016, -96.985,
     $     -96.995, -96.979, -96.965, -96.948, -96.920,
     $     -96.926, -96.887, -96.814, -96.805, -96.770,
     $     -96.683, -96.534, -96.409, -96.338, -95.987,
     $     -95.699, -95.154, -94.202, -91.920, -87.316,
     $     -74.707, -37.137,  40.851,  75.388,  86.178,
     $      90.338,  92.348, 100.000,  94.357,  94.442,
     $      95.422,  95.282,  95.357,  95.102,  95.167,
     $      95.520,  95.599,  95.566,  95.522,  95.259,
     $      95.411,  95.346,  95.060,  94.851,  94.604,
     $      94.921,  94.043,  93.186,  92.373,  90.856,
     $      87.264,  87.917/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 34, 34) /
     $     -97.401, -97.371, -97.333, -97.347, -97.319,
     $     -97.332, -97.319, -97.308, -97.294, -97.269,
     $     -97.279, -97.243, -97.174, -97.169, -97.139,
     $     -97.056, -96.912, -96.794, -96.728, -96.384,
     $     -96.104, -95.570, -94.630, -92.362, -87.771,
     $     -75.169, -37.536,  40.771,  75.527,  86.413,
     $      90.618,  92.658,  94.357, 100.000,  94.793,
     $      95.784,  95.649,  95.730,  95.479,  95.549,
     $      95.906,  95.990,  95.959,  95.918,  95.657,
     $      95.812,  95.749,  95.465,  95.257,  95.011,
     $      95.331,  94.451,  93.591,  92.778,  91.256,
     $      87.647,  88.309/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 35, 35) /
     $     -97.470, -97.445, -97.413, -97.428, -97.403,
     $     -97.418, -97.408, -97.398, -97.388, -97.366,
     $     -97.379, -97.346, -97.281, -97.280, -97.254,
     $     -97.174, -97.035, -96.923, -96.863, -96.526,
     $     -96.254, -95.731, -94.804, -92.554, -87.986,
     $     -75.418, -37.813,  40.604,  75.480,  86.430,
     $      90.667,  92.727,  94.442,  94.793, 100.000,
     $      95.894,  95.764,  95.850,  95.603,  95.678,
     $      96.038,  96.125,  96.098,  96.059,  95.800,
     $      95.958,  95.897,  95.614,  95.407,  95.163,
     $      95.486,  94.605,  93.745,  92.933,  91.411,
     $      87.794,  88.462/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 36, 36) /
     $     -98.468, -98.447, -98.418, -98.434, -98.411,
     $     -98.428, -98.420, -98.412, -98.404, -98.384,
     $     -98.399, -98.369, -98.305, -98.307, -98.285,
     $     -98.207, -98.071, -97.962, -97.906, -97.570,
     $     -97.303, -96.782, -95.857, -93.599, -89.004,
     $     -76.342, -38.394,  40.869,  76.176,  87.280,
     $      91.582,  93.680,  95.422,  95.784,  95.894,
     $     100.000,  96.782,  96.872,  96.626,  96.704,
     $      97.071,  97.162,  97.136,  97.099,  96.839,
     $      97.001,  96.940,  96.657,  96.449,  96.204,
     $      96.531,  95.641,  94.773,  93.954,  92.416,
     $      88.759,  89.437/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 37, 37) /
     $     -98.311, -98.293, -98.268, -98.285, -98.264,
     $     -98.282, -98.276, -98.269, -98.263, -98.246,
     $     -98.263, -98.235, -98.174, -98.178, -98.159,
     $     -98.084, -97.951, -97.846, -97.794, -97.464,
     $     -97.203, -96.691, -95.776, -93.535, -88.964,
     $     -76.352, -38.502,  40.672,  75.987,  87.111,
     $      91.425,  93.533,  95.281,  95.649,  95.764,
     $      96.782, 100.000,  96.753,  96.510,  96.591,
     $      96.960,  97.052,  97.028,  96.994,  96.736,
     $      96.899,  96.839,  96.557,  96.351,  96.108,
     $      96.435,  95.548,  94.681,  93.864,  92.329,
     $      88.675,  89.356/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 38, 38) /
     $     -98.376, -98.362, -98.339, -98.357, -98.338,
     $     -98.357, -98.353, -98.347, -98.343, -98.327,
     $     -98.346, -98.320, -98.260, -98.266, -98.250,
     $     -98.177, -98.047, -97.946, -97.897, -97.570,
     $     -97.313, -96.807, -95.899, -93.667, -89.108,
     $     -76.510, -38.664,  40.595,  75.986,  87.147,
     $      91.480,  93.600,  95.357,  95.730,  95.850,
     $      96.872,  96.753, 100.000,  96.609,  96.692,
     $      97.063,  97.157,  97.134,  97.101,  96.845,
     $      97.009,  96.950,  96.670,  96.464,  96.222,
     $      96.550,  95.663,  94.795,  93.979,  92.443,
     $      88.784,  89.468/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 39, 39) /
     $     -98.111, -98.099, -98.078, -98.097, -98.079,
     $     -98.100, -98.096, -98.092, -98.089, -98.075,
     $     -98.095, -98.071, -98.014, -98.022, -98.007,
     $     -97.937, -97.810, -97.712, -97.667, -97.345,
     $     -97.093, -96.594, -95.697, -93.482, -88.950,
     $     -76.413, -38.704,  40.368,  75.717,  86.879,
     $      91.216,  93.342,  95.102,  95.479,  95.603,
     $      96.626,  96.510,  96.609, 100.000,  96.457,
     $      96.828,  96.924,  96.903,  96.872,  96.617,
     $      96.782,  96.725,  96.446,  96.242,  96.001,
     $      96.329,  95.444,  94.580,  93.766,  92.235,
     $      88.584,  89.268/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 40, 40) /
     $     -98.172, -98.163, -98.144, -98.163, -98.147,
     $     -98.169, -98.167, -98.163, -98.162, -98.149,
     $     -98.171, -98.148, -98.092, -98.102, -98.090,
     $     -98.021, -97.896, -97.802, -97.759, -97.440,
     $     -97.192, -96.699, -95.808, -93.601, -89.079,
     $     -76.556, -38.852,  40.295,  75.713,  86.908,
     $      91.263,  93.400,  95.167,  95.549,  95.678,
     $      96.704,  96.591,  96.692,  96.457, 100.000,
     $      96.917,  97.014,  96.995,  96.965,  96.711,
     $      96.878,  96.821,  96.543,  96.339,  96.099,
     $      96.428,  95.543,  94.679,  93.865,  92.333,
     $      88.678,  89.364/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 41, 41) /
     $     -98.529, -98.521, -98.504, -98.524, -98.508,
     $     -98.531, -98.530, -98.527, -98.527, -98.515,
     $     -98.538, -98.517, -98.462, -98.473, -98.462,
     $     -98.395, -98.271, -98.179, -98.138, -97.821,
     $     -97.575, -97.084, -96.195, -93.987, -89.458,
     $     -76.905, -39.084,  40.370,  75.952,  87.208,
     $      91.589,  93.741,  95.520,  95.906,  96.038,
     $      97.071,  96.960,  97.063,  96.828,  96.917,
     $     100.000,  97.392,  97.374,  97.345,  97.090,
     $      97.259,  97.202,  96.924,  96.720,  96.480,
     $      96.811,  95.923,  95.056,  94.240,  92.702,
     $      89.032,  89.723/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 42, 42) /
     $     -98.605, -98.598, -98.583, -98.603, -98.589,
     $     -98.612, -98.612, -98.610, -98.612, -98.601,
     $     -98.625, -98.605, -98.551, -98.564, -98.555,
     $     -98.489, -98.367, -98.276, -98.238, -97.923,
     $     -97.680, -97.193, -96.309, -94.107, -89.584,
     $     -77.038, -39.209,  40.327,  75.972,  87.257,
     $      91.653,  93.814,  95.599,  95.990,  96.125,
     $      97.162,  97.052,  97.157,  96.924,  97.014,
     $      97.392, 100.000,  97.475,  97.447,  97.193,
     $      97.363,  97.307,  97.029,  96.826,  96.586,
     $      96.918,  96.030,  95.162,  94.345,  92.806,
     $      89.132,  89.825/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 43, 43) /
     $     -98.565, -98.560, -98.546, -98.567, -98.553,
     $     -98.577, -98.578, -98.577, -98.579, -98.570,
     $     -98.595, -98.576, -98.523, -98.537, -98.529,
     $     -98.465, -98.345, -98.256, -98.220, -97.907,
     $     -97.668, -97.184, -96.305, -94.110, -89.598,
     $     -77.072, -39.277,  40.245,  75.907,  87.206,
     $      91.610,  93.777,  95.566,  95.959,  96.098,
     $      97.136,  97.028,  97.134,  96.903,  96.995,
     $      97.374,  97.475, 100.000,  97.431,  97.179,
     $      97.349,  97.294,  97.017,  96.814,  96.575,
     $      96.908,  96.020,  95.152,  94.337,  92.799,
     $      89.125,  89.818/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 44, 44) /
     $     -98.516, -98.513, -98.500, -98.521, -98.508,
     $     -98.533, -98.535, -98.534, -98.538, -98.529,
     $     -98.555, -98.537, -98.486, -98.501, -98.495,
     $     -98.431, -98.313, -98.227, -98.192, -97.882,
     $     -97.646, -97.166, -96.292, -94.105, -89.605,
     $     -77.100, -39.343,  40.156,  75.833,  87.145,
     $      91.556,  93.729,  95.522,  95.918,  96.059,
     $      97.099,  96.994,  97.101,  96.872,  96.965,
     $      97.345,  97.447,  97.431, 100.000,  97.154,
     $      97.324,  97.270,  96.994,  96.792,  96.553,
     $      96.886,  95.999,  95.132,  94.318,  92.780,
     $      89.107,  89.802/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 45, 45) /
     $     -98.242, -98.240, -98.228, -98.249, -98.237,
     $     -98.263, -98.266, -98.266, -98.270, -98.262,
     $     -98.289, -98.272, -98.222, -98.238, -98.233,
     $     -98.171, -98.055, -97.971, -97.937, -97.631,
     $     -97.397, -96.922, -96.055, -93.881, -89.400,
     $     -76.944, -39.310,  39.983,  75.589,  86.886,
     $      91.294,  93.467,  95.259,  95.657,  95.800,
     $      96.839,  96.736,  96.845,  96.617,  96.711,
     $      97.090,  97.193,  97.179,  97.154, 100.000,
     $      97.074,  97.021,  96.746,  96.545,  96.308,
     $      96.640,  95.756,  94.891,  94.079,  92.546,
     $      88.882,  89.576/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 46, 46) /
     $     -98.397, -98.396, -98.386, -98.407, -98.396,
     $     -98.423, -98.426, -98.426, -98.431, -98.424,
     $     -98.452, -98.436, -98.387, -98.404, -98.400,
     $     -98.339, -98.224, -98.141, -98.110, -97.805,
     $     -97.574, -97.101, -96.237, -94.064, -89.585,
     $     -77.123, -39.447,  39.985,  75.676,  87.007,
     $      91.430,  93.612,  95.411,  95.812,  95.958,
     $      97.001,  96.899,  97.009,  96.782,  96.878,
     $      97.259,  97.363,  97.349,  97.324,  97.074,
     $     100.000,  97.193,  96.918,  96.718,  96.481,
     $      96.814,  95.928,  95.063,  94.250,  92.715,
     $      89.044,  89.740/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 47, 47) /
     $     -98.324, -98.324, -98.315, -98.337, -98.326,
     $     -98.353, -98.357, -98.358, -98.364, -98.357,
     $     -98.386, -98.370, -98.322, -98.340, -98.337,
     $     -98.277, -98.163, -98.082, -98.051, -97.748,
     $     -97.518, -97.049, -96.188, -94.021, -89.550,
     $     -77.105, -39.468,  39.918,  75.602,  86.935,
     $      91.361,  93.546,  95.346,  95.749,  95.897,
     $      96.940,  96.839,  96.950,  96.725,  96.821,
     $      97.202,  97.307,  97.294,  97.270,  97.021,
     $      97.193, 100.000,  96.866,  96.666,  96.429,
     $      96.763,  95.878,  95.013,  94.201,  92.667,
     $      88.998,  89.694/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 48, 48) /
     $     -98.030, -98.031, -98.023, -98.045, -98.035,
     $     -98.062, -98.067, -98.068, -98.075, -98.069,
     $     -98.099, -98.084, -98.037, -98.055, -98.054,
     $     -97.995, -97.882, -97.803, -97.774, -97.474,
     $     -97.247, -96.782, -95.928, -93.773, -89.323,
     $     -76.929, -39.422,  39.739,  75.342,  86.657,
     $      91.078,  93.262,  95.060,  95.465,  95.614,
     $      96.657,  96.557,  96.670,  96.446,  96.543,
     $      96.924,  97.029,  97.017,  96.994,  96.746,
     $      96.918,  96.866, 100.000,  96.394,  96.159,
     $      96.492,  95.610,  94.748,  93.938,  92.409,
     $      88.750,  89.445/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 49, 49) /
     $     -97.812, -97.814, -97.806, -97.829, -97.819,
     $     -97.847, -97.852, -97.854, -97.861, -97.856,
     $     -97.886, -97.872, -97.826, -97.845, -97.844,
     $     -97.787, -97.675, -97.597, -97.570, -97.272,
     $     -97.048, -96.586, -95.737, -93.591, -89.157,
     $     -76.801, -39.391,  39.605,  75.150,  86.452,
     $      90.870,  93.053,  94.851,  95.257,  95.407,
     $      96.449,  96.351,  96.464,  96.242,  96.339,
     $      96.720,  96.826,  96.814,  96.792,  96.545,
     $      96.718,  96.666,  96.394, 100.000,  95.961,
     $      96.294,  95.414,  94.554,  93.747,  92.221,
     $      88.569,  89.264/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 50, 50) /
     $     -97.558, -97.561, -97.554, -97.577, -97.568,
     $     -97.596, -97.601, -97.604, -97.612, -97.607,
     $     -97.638, -97.625, -97.579, -97.599, -97.600,
     $     -97.543, -97.433, -97.357, -97.331, -97.035,
     $     -96.814, -96.356, -95.512, -93.377, -88.962,
     $     -76.648, -39.351,  39.450,  74.926,  86.212,
     $      90.626,  92.808,  94.604,  95.011,  95.163,
     $      96.204,  96.108,  96.222,  96.001,  96.099,
     $      96.480,  96.586,  96.575,  96.553,  96.308,
     $      96.481,  96.429,  96.159,  95.961, 100.000,
     $      96.060,  95.183,  94.325,  93.520,  91.998,
     $      88.355,  89.048/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 51, 51) /
     $     -97.882, -97.885, -97.879, -97.902, -97.893,
     $     -97.922, -97.928, -97.931, -97.939, -97.935,
     $     -97.967, -97.954, -97.909, -97.930, -97.931,
     $     -97.874, -97.765, -97.689, -97.664, -97.369,
     $     -97.148, -96.690, -95.846, -93.707, -89.280,
     $     -76.933, -39.520,  39.551,  75.160,  86.492,
     $      90.925,  93.117,  94.921,  95.331,  95.486,
     $      96.531,  96.435,  96.550,  96.329,  96.428,
     $      96.811,  96.918,  96.908,  96.886,  96.640,
     $      96.814,  96.763,  96.492,  96.294,  96.060,
     $     100.000,  95.513,  94.653,  93.846,  92.318,
     $      88.663,  89.359/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 52, 52) /
     $     -96.974, -96.978, -96.972, -96.995, -96.987,
     $     -97.016, -97.022, -97.026, -97.034, -97.031,
     $     -97.062, -97.050, -97.006, -97.028, -97.029,
     $     -96.974, -96.867, -96.793, -96.769, -96.477,
     $     -96.260, -95.808, -94.974, -92.859, -88.478,
     $     -76.253, -39.197,  39.150,  74.445,  85.681,
     $      90.078,  92.253,  94.043,  94.451,  94.605,
     $      95.641,  95.548,  95.663,  95.444,  95.543,
     $      95.923,  96.030,  96.020,  95.999,  95.756,
     $      95.928,  95.878,  95.610,  95.414,  95.183,
     $      95.513, 100.000,  93.789,  92.989,  91.476,
     $      87.854,  88.545/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 53, 53) /
     $     -96.085, -96.090, -96.084, -96.108, -96.100,
     $     -96.129, -96.136, -96.139, -96.149, -96.146,
     $     -96.177, -96.166, -96.123, -96.144, -96.147,
     $     -96.093, -95.987, -95.915, -95.892, -95.604,
     $     -95.390, -94.944, -94.120, -92.026, -87.689,
     $     -75.581, -38.872,  38.765,  73.751,  84.891,
     $      89.252,  91.410,  93.186,  93.591,  93.745,
     $      94.773,  94.681,  94.795,  94.580,  94.679,
     $      95.056,  95.162,  95.152,  95.132,  94.891,
     $      95.063,  95.013,  94.748,  94.554,  94.325,
     $      94.653,  93.789, 100.000,  92.153,  90.653,
     $      87.064,  87.749/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 54, 54) /
     $     -95.260, -95.265, -95.261, -95.284, -95.277,
     $     -95.306, -95.313, -95.317, -95.327, -95.325,
     $     -95.357, -95.346, -95.304, -95.326, -95.330,
     $     -95.277, -95.173, -95.103, -95.082, -94.799,
     $     -94.589, -94.150, -93.338, -91.269, -86.978,
     $     -74.992, -38.623,  38.355,  73.068,  84.130,
     $      88.462,  90.608,  92.373,  92.778,  92.933,
     $      93.954,  93.864,  93.979,  93.766,  93.865,
     $      94.240,  94.345,  94.337,  94.318,  94.079,
     $      94.250,  94.201,  93.938,  93.747,  93.520,
     $      93.846,  92.989,  92.153, 100.000,  89.881,
     $      86.322,  87.002/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 55, 55) /
     $     -93.700, -93.705, -93.701, -93.724, -93.718,
     $     -93.747, -93.754, -93.759, -93.769, -93.767,
     $     -93.799, -93.789, -93.748, -93.771, -93.775,
     $     -93.724, -93.623, -93.555, -93.536, -93.258,
     $     -93.053, -92.624, -91.828, -89.797, -85.583,
     $     -73.803, -38.045,  37.679,  71.843,  82.735,
     $      87.003,  89.118,  90.856,  91.256,  91.411,
     $      92.416,  92.329,  92.443,  92.235,  92.333,
     $      92.702,  92.806,  92.799,  92.780,  92.546,
     $      92.715,  92.667,  92.409,  92.221,  91.998,
     $      92.318,  91.476,  90.653,  89.881, 100.000,
     $      84.919,  85.587/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 56, 56) /
     $     -89.977, -89.983, -89.979, -90.001, -89.995,
     $     -90.023, -90.030, -90.034, -90.044, -90.042,
     $     -90.073, -90.063, -90.024, -90.045, -90.049,
     $     -90.000, -89.903, -89.837, -89.818, -89.551,
     $     -89.353, -88.939, -88.173, -86.219, -82.167,
     $     -70.846, -36.492,  36.228,  69.023,  79.475,
     $      83.568,  85.597,  87.264,  87.647,  87.794,
     $      88.759,  88.675,  88.784,  88.584,  88.678,
     $      89.032,  89.132,  89.125,  89.107,  88.882,
     $      89.044,  88.998,  88.750,  88.569,  88.355,
     $      88.663,  87.854,  87.064,  86.322,  84.919,
     $     100.000,  82.198/
      DATA ((C3P2PZ    ( I, J), I=1, 57),J= 57, 57) /
     $     -90.688, -90.694, -90.691, -90.714, -90.709,
     $     -90.738, -90.745, -90.750, -90.761, -90.760,
     $     -90.792, -90.783, -90.745, -90.768, -90.773,
     $     -90.726, -90.630, -90.566, -90.550, -90.284,
     $     -90.089, -89.679, -88.915, -86.960, -82.896,
     $     -71.520, -36.950,  36.351,  69.459,  80.028,
     $      84.172,  86.228,  87.917,  88.309,  88.462,
     $      89.437,  89.356,  89.468,  89.268,  89.364,
     $      89.723,  89.825,  89.818,  89.802,  89.576,
     $      89.740,  89.694,  89.445,  89.264,  89.048,
     $      89.359,  88.545,  87.749,  87.002,  85.587,
     $      82.198, 100.000/
C                        
      RETURN             
      END                
C----------------------------------------------------------------------)
