      subroutine phfit1(nz,ne,is,e,s)
******************************************************************************
*** Version 1. January 3, 1996.
*** This subroutine calculates partial ground state photoionization cross 
*** sections for all ionization stages of all atoms from H to Zn (Z=30) 
*** by use of the following fit parameters:
*** Outer shells of the Opacity Project (OP) elements:
***    Verner, Ferland, Korista, Yakovlev, 1996, ApJ, in press.
*** Inner shells of all elements, and outer shells of the non-OP elements:
***    Verner and Yakovlev, 1995, A&AS, 109, 125
*** Input parameters:  nz - atomic number from 1 to 30 (integer) 
***                    ne - number of electrons from 1 to iz (integer)
***                    is - shell number (integer)
***                    e - photon energy, eV 
*** Output parameter:  s - photoionization cross section, Mb
*** Shell numbers:
*** 1 - 1s, 2 - 2s, 3 - 2p, 4 - 3s, 5 - 3p, 6 - 3d, 7 - 4s. 
*** If a species in the ground state has no electrons on the given shell,
*** the subroutine returns s=0.
*** To get the total cross section, take a sum of all partial cross sections.
******************************************************************************
      integer nz,ne,is
      real e,s
      common/l/l(7)
      common/ninn/ninn(30)
      common/ntot/ntot(30)
      common/ph1/ph1(6,30,30,7)
      common/ph2/ph2(7,30,30)
      s=0.0
      if(nz.lt.1.or.nz.gt.30)return
      if(ne.lt.1.or.ne.gt.nz)return
      nout=ntot(ne)
      if(nz.eq.ne.and.nz.gt.18)nout=7
      if(nz.eq.(ne+1).and.(nz.eq.20.or.nz.eq.21.or.nz.eq.22.or.nz.
     &eq.25.or.nz.eq.26))nout=7
      if(is.gt.nout)return
      if(e.lt.ph1(1,nz,ne,is))return
      nint=ninn(ne)
      if(nz.eq.15.or.nz.eq.17.or.nz.eq.19.or.
     &(nz.gt.20.and.nz.ne.26))then
         einn=0.0
      else
         if(ne.lt.3)then
            einn=1.0e+30
         else
            einn=ph1(1,nz,ne,nint)
         endif
      endif
      if(is.lt.nout.and.is.gt.nint.and.e.lt.einn)return
      if(is.le.nint.or.e.ge.einn)then
         p1=-ph1(5,nz,ne,is)
         y=e/ph1(2,nz,ne,is)
         q=-0.5*p1-l(is)-5.5
         a=ph1(3,nz,ne,is)*((y-1.0)**2+ph1(6,nz,ne,is)**2)
         b=sqrt(y/ph1(4,nz,ne,is))+1.0
         s=a*y**q*b**p1
      else
         p1=-ph2(4,nz,ne)
         q=-0.5*p1-5.5
         x=e/ph2(1,nz,ne)-ph2(6,nz,ne)
         z=sqrt(x*x+ph2(7,nz,ne)**2)
         a=ph2(2,nz,ne)*((x-1.0)**2+ph2(5,nz,ne)**2)
         b=1.0+sqrt(z/ph2(3,nz,ne))
         s=a*z**q*b**p1
      endif
      return
      end
      BLOCK DATA BDATA
      COMMON/L/L(7)
      COMMON/NINN/NINN(30)
      COMMON/NTOT/NTOT(30)
      COMMON/PH1/PH1(6,30,30,7)
      COMMON/PH2/PH2(7,30,30)
      DATA (L(I),I=1,7) /0,0,1,0,1,2,0/
      DATA (NINN(I),I=1,30) /0,0,1,1,1,1,1,1,1,1,3,3,
     & 3,3,3,3,3,3,5,5,5,5,5,5,5,5,5,5,5,5/
      DATA (NTOT(I),I=1,30) /1,1,2,2,3,3,3,3,3,3,4,4,
     & 5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,7,7/
      DATA (PH1(I, 1, 1, 1),I=1,6) /0.1360E+02, 0.4298E+00,
     1 0.5475E+05, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 2, 1, 1),I=1,6) /0.5442E+02, 0.1720E+01,
     1 0.1369E+05, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 2, 2, 1),I=1,6) /0.2459E+02, 0.5996E+01,
     1 0.4470E+04, 0.2199E+01, 0.6098E+01, 0.0000E+00/
      DATA (PH1(I, 3, 1, 1),I=1,6) /0.1225E+03, 0.3871E+01,
     1 0.6083E+04, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 3, 2, 1),I=1,6) /0.7564E+02, 0.2006E+02,
     1 0.3201E+03, 0.7391E+01, 0.2916E+01, 0.0000E+00/
      DATA (PH1(I, 3, 3, 1),I=1,6) /0.6439E+02, 0.2740E+02,
     1 0.1564E+03, 0.3382E+02, 0.1490E+01, 0.0000E+00/
      DATA (PH1(I, 3, 3, 2),I=1,6) /0.5392E+01, 0.3466E+01,
     1 0.4774E+02, 0.2035E+02, 0.4423E+01, 0.0000E+00/
      DATA (PH1(I, 4, 1, 1),I=1,6) /0.2177E+03, 0.6879E+01,
     1 0.3422E+04, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 4, 2, 1),I=1,6) /0.1539E+03, 0.1760E+02,
     1 0.5458E+03, 0.1719E+02, 0.3157E+01, 0.0000E+00/
      DATA (PH1(I, 4, 3, 1),I=1,6) /0.1299E+03, 0.4759E+02,
     1 0.9796E+02, 0.1166E+04, 0.1022E+01, 0.0000E+00/
      DATA (PH1(I, 4, 3, 2),I=1,6) /0.1821E+02, 0.6685E+01,
     1 0.4904E+02, 0.3419E+02, 0.3738E+01, 0.0000E+00/
      DATA (PH1(I, 4, 4, 1),I=1,6) /0.1193E+03, 0.4093E+02,
     1 0.1306E+03, 0.1212E+03, 0.1348E+01, 0.0000E+00/
      DATA (PH1(I, 4, 4, 2),I=1,6) /0.9323E+01, 0.3427E+01,
     1 0.1423E+04, 0.2708E+01, 0.1064E+02, 0.0000E+00/
      DATA (PH1(I, 5, 1, 1),I=1,6) /0.3402E+03, 0.1075E+02,
     1 0.2190E+04, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 5, 2, 1),I=1,6) /0.2594E+03, 0.3336E+02,
     1 0.2846E+03, 0.2163E+02, 0.2624E+01, 0.0000E+00/
      DATA (PH1(I, 5, 3, 1),I=1,6) /0.2274E+03, 0.6592E+02,
     1 0.8605E+02, 0.1906E+03, 0.1210E+01, 0.0000E+00/
      DATA (PH1(I, 5, 3, 2),I=1,6) /0.3793E+02, 0.1054E+02,
     1 0.4273E+02, 0.4433E+02, 0.3501E+01, 0.0000E+00/
      DATA (PH1(I, 5, 4, 1),I=1,6) /0.2098E+03, 0.5984E+02,
     1 0.1037E+03, 0.7915E+02, 0.1436E+01, 0.0000E+00/
      DATA (PH1(I, 5, 4, 2),I=1,6) /0.2516E+02, 0.2403E+01,
     1 0.1530E+03, 0.9203E+01, 0.9374E+01, 0.0000E+00/
      DATA (PH1(I, 5, 5, 1),I=1,6) /0.1940E+03, 0.6155E+02,
     1 0.9698E+02, 0.7354E+02, 0.1438E+01, 0.0000E+00/
      DATA (PH1(I, 5, 5, 2),I=1,6) /0.1405E+02, 0.6495E+01,
     1 0.1525E+05, 0.1352E+01, 0.1218E+02, 0.0000E+00/
      DATA (PH1(I, 5, 5, 3),I=1,6) /0.8298E+01, 0.6658E+01,
     1 0.3643E+03, 0.9500E+01, 0.5469E+01, 0.5608E+00/
      DATA (PH1(I, 6, 1, 1),I=1,6) /0.4900E+03, 0.1548E+02,
     1 0.1521E+04, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 6, 2, 1),I=1,6) /0.3921E+03, 0.4624E+02,
     1 0.2344E+03, 0.2183E+02, 0.2581E+01, 0.0000E+00/
      DATA (PH1(I, 6, 3, 1),I=1,6) /0.3522E+03, 0.8412E+02,
     1 0.8111E+02, 0.7459E+02, 0.1428E+01, 0.0000E+00/
      DATA (PH1(I, 6, 3, 2),I=1,6) /0.6449E+02, 0.7843E+01,
     1 0.7109E+02, 0.2828E+02, 0.4754E+01, 0.0000E+00/
      DATA (PH1(I, 6, 4, 1),I=1,6) /0.3289E+03, 0.8370E+02,
     1 0.8067E+02, 0.7471E+02, 0.1442E+01, 0.0000E+00/
      DATA (PH1(I, 6, 4, 2),I=1,6) /0.4789E+02, 0.3942E+01,
     1 0.1219E+03, 0.1499E+02, 0.7489E+01, 0.0000E+00/
      DATA (PH1(I, 6, 5, 1),I=1,6) /0.3076E+03, 0.9113E+02,
     1 0.6649E+02, 0.9609E+02, 0.1338E+01, 0.0000E+00/
      DATA (PH1(I, 6, 5, 2),I=1,6) /0.3047E+02, 0.2991E+01,
     1 0.1184E+04, 0.3085E+01, 0.1480E+02, 0.0000E+00/
      DATA (PH1(I, 6, 5, 3),I=1,6) /0.2438E+02, 0.1094E+02,
     1 0.1792E+03, 0.3308E+02, 0.4150E+01, 0.5276E+00/
      DATA (PH1(I, 6, 6, 1),I=1,6) /0.2910E+03, 0.8655E+02,
     1 0.7421E+02, 0.5498E+02, 0.1503E+01, 0.0000E+00/
      DATA (PH1(I, 6, 6, 2),I=1,6) /0.1939E+02, 0.1026E+02,
     1 0.4564E+04, 0.1568E+01, 0.1085E+02, 0.0000E+00/
      DATA (PH1(I, 6, 6, 3),I=1,6) /0.1126E+02, 0.9435E+01,
     1 0.1152E+04, 0.5687E+01, 0.6336E+01, 0.4474E+00/
      DATA (PH1(I, 7, 1, 1),I=1,6) /0.6671E+03, 0.2108E+02,
     1 0.1117E+04, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 7, 2, 1),I=1,6) /0.5521E+03, 0.6943E+02,
     1 0.1519E+03, 0.2627E+02, 0.2315E+01, 0.0000E+00/
      DATA (PH1(I, 7, 3, 1),I=1,6) /0.5043E+03, 0.1060E+03,
     1 0.7304E+02, 0.5547E+02, 0.1538E+01, 0.0000E+00/
      DATA (PH1(I, 7, 3, 2),I=1,6) /0.9789E+02, 0.1862E+02,
     1 0.3447E+02, 0.4231E+02, 0.3606E+01, 0.0000E+00/
      DATA (PH1(I, 7, 4, 1),I=1,6) /0.4753E+03, 0.1070E+03,
     1 0.7046E+02, 0.5342E+02, 0.1552E+01, 0.0000E+00/
      DATA (PH1(I, 7, 4, 2),I=1,6) /0.7747E+02, 0.6225E+01,
     1 0.1110E+03, 0.1733E+02, 0.6719E+01, 0.0000E+00/
      DATA (PH1(I, 7, 5, 1),I=1,6) /0.4473E+03, 0.1220E+03,
     1 0.5235E+02, 0.9428E+02, 0.1335E+01, 0.0000E+00/
      DATA (PH1(I, 7, 5, 2),I=1,6) /0.5545E+02, 0.5853E+01,
     1 0.1908E+03, 0.6264E+01, 0.9711E+01, 0.0000E+00/
      DATA (PH1(I, 7, 5, 3),I=1,6) /0.4745E+02, 0.1925E+02,
     1 0.9400E+02, 0.1152E+03, 0.3194E+01, 0.5496E+00/
      DATA (PH1(I, 7, 6, 1),I=1,6) /0.4236E+03, 0.1242E+03,
     1 0.5002E+02, 0.9100E+02, 0.1335E+01, 0.0000E+00/
      DATA (PH1(I, 7, 6, 2),I=1,6) /0.3796E+02, 0.1094E+02,
     1 0.7483E+03, 0.2793E+01, 0.9956E+01, 0.0000E+00/
      DATA (PH1(I, 7, 6, 3),I=1,6) /0.2960E+02, 0.1827E+02,
     1 0.1724E+03, 0.8893E+02, 0.3348E+01, 0.4209E+00/
      DATA (PH1(I, 7, 7, 1),I=1,6) /0.4048E+03, 0.1270E+03,
     1 0.4748E+02, 0.1380E+03, 0.1252E+01, 0.0000E+00/
      DATA (PH1(I, 7, 7, 2),I=1,6) /0.2541E+02, 0.1482E+02,
     1 0.7722E+03, 0.2306E+01, 0.9139E+01, 0.0000E+00/
      DATA (PH1(I, 7, 7, 3),I=1,6) /0.1453E+02, 0.1164E+02,
     1 0.1029E+05, 0.2361E+01, 0.8821E+01, 0.4239E+00/
      DATA (PH1(I, 8, 1, 1),I=1,6) /0.8714E+03, 0.2754E+02,
     1 0.8554E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 8, 2, 1),I=1,6) /0.7393E+03, 0.8709E+02,
     1 0.1329E+03, 0.2535E+02, 0.2336E+01, 0.0000E+00/
      DATA (PH1(I, 8, 3, 1),I=1,6) /0.6837E+03, 0.1354E+03,
     1 0.6029E+02, 0.5682E+02, 0.1533E+01, 0.0000E+00/
      DATA (PH1(I, 8, 3, 2),I=1,6) /0.1381E+03, 0.9141E+01,
     1 0.6896E+02, 0.3896E+02, 0.4943E+01, 0.0000E+00/
      DATA (PH1(I, 8, 4, 1),I=1,6) /0.6491E+03, 0.1377E+03,
     1 0.5735E+02, 0.5486E+02, 0.1540E+01, 0.0000E+00/
      DATA (PH1(I, 8, 4, 2),I=1,6) /0.1139E+03, 0.8467E+01,
     1 0.9641E+02, 0.2287E+02, 0.6061E+01, 0.0000E+00/
      DATA (PH1(I, 8, 5, 1),I=1,6) /0.6144E+03, 0.1593E+03,
     1 0.4123E+02, 0.1141E+03, 0.1287E+01, 0.0000E+00/
      DATA (PH1(I, 8, 5, 2),I=1,6) /0.8737E+02, 0.7942E+01,
     1 0.1063E+03, 0.9708E+01, 0.8183E+01, 0.0000E+00/
      DATA (PH1(I, 8, 5, 3),I=1,6) /0.7741E+02, 0.1937E+02,
     1 0.1619E+03, 0.7312E+02, 0.3648E+01, 0.3760E-01/
      DATA (PH1(I, 8, 6, 1),I=1,6) /0.5840E+03, 0.1620E+03,
     1 0.3939E+02, 0.1104E+03, 0.1289E+01, 0.0000E+00/
      DATA (PH1(I, 8, 6, 2),I=1,6) /0.6551E+02, 0.1594E+02,
     1 0.1217E+03, 0.6156E+01, 0.7271E+01, 0.0000E+00/
      DATA (PH1(I, 8, 6, 3),I=1,6) /0.5494E+02, 0.2067E+02,
     1 0.2318E+03, 0.7136E+02, 0.3618E+01, 0.5538E-01/
      DATA (PH1(I, 8, 7, 1),I=1,6) /0.5581E+03, 0.1690E+03,
     1 0.3584E+02, 0.1894E+03, 0.1185E+01, 0.0000E+00/
      DATA (PH1(I, 8, 7, 2),I=1,6) /0.4599E+02, 0.1759E+02,
     1 0.1962E+03, 0.4020E+01, 0.7999E+01, 0.0000E+00/
      DATA (PH1(I, 8, 7, 3),I=1,6) /0.3512E+02, 0.1745E+02,
     1 0.5186E+03, 0.1728E+02, 0.4995E+01, 0.2182E-01/
      DATA (PH1(I, 8, 8, 1),I=1,6) /0.5380E+03, 0.1774E+03,
     1 0.3237E+02, 0.3812E+03, 0.1083E+01, 0.0000E+00/
      DATA (PH1(I, 8, 8, 2),I=1,6) /0.2848E+02, 0.1994E+02,
     1 0.2415E+03, 0.3241E+01, 0.8037E+01, 0.0000E+00/
      DATA (PH1(I, 8, 8, 3),I=1,6) /0.1362E+02, 0.1391E+02,
     1 0.1220E+06, 0.1364E+01, 0.1140E+02, 0.4103E+00/
      DATA (PH1(I, 9, 1, 1),I=1,6) /0.1103E+04, 0.3485E+02,
     1 0.6759E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I, 9, 2, 1),I=1,6) /0.9539E+03, 0.1131E+03,
     1 0.1039E+03, 0.2657E+02, 0.2255E+01, 0.0000E+00/
      DATA (PH1(I, 9, 3, 1),I=1,6) /0.8905E+03, 0.1711E+03,
     1 0.4890E+02, 0.6137E+02, 0.1501E+01, 0.0000E+00/
      DATA (PH1(I, 9, 3, 2),I=1,6) /0.1852E+03, 0.6423E+01,
     1 0.8497E+02, 0.6075E+02, 0.5214E+01, 0.0000E+00/
      DATA (PH1(I, 9, 4, 1),I=1,6) /0.8502E+03, 0.1737E+03,
     1 0.4668E+02, 0.5876E+02, 0.1511E+01, 0.0000E+00/
      DATA (PH1(I, 9, 4, 2),I=1,6) /0.1572E+03, 0.1146E+02,
     1 0.8453E+02, 0.2457E+02, 0.5771E+01, 0.0000E+00/
      DATA (PH1(I, 9, 5, 1),I=1,6) /0.8091E+03, 0.1925E+03,
     1 0.3680E+02, 0.7933E+02, 0.1377E+01, 0.0000E+00/
      DATA (PH1(I, 9, 5, 2),I=1,6) /0.1262E+03, 0.1889E+02,
     1 0.7149E+02, 0.1194E+02, 0.6030E+01, 0.0000E+00/
      DATA (PH1(I, 9, 5, 3),I=1,6) /0.1142E+03, 0.2528E+02,
     1 0.1419E+03, 0.7089E+02, 0.3628E+01, 0.3418E+00/
      DATA (PH1(I, 9, 6, 1),I=1,6) /0.7709E+03, 0.1603E+03,
     1 0.5302E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I, 9, 6, 2),I=1,6) /0.9957E+02, 0.2629E+02,
     1 0.3563E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I, 9, 6, 3),I=1,6) /0.8714E+02, 0.2292E+02,
     1 0.3005E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I, 9, 7, 1),I=1,6) /0.7392E+03, 0.2055E+03,
     1 0.3144E+02, 0.1230E+03, 0.1263E+01, 0.0000E+00/
      DATA (PH1(I, 9, 7, 2),I=1,6) /0.7610E+02, 0.2307E+02,
     1 0.7140E+02, 0.7282E+01, 0.6543E+01, 0.0000E+00/
      DATA (PH1(I, 9, 7, 3),I=1,6) /0.6271E+02, 0.2744E+02,
     1 0.2458E+03, 0.7329E+02, 0.3596E+01, 0.1390E+00/
      DATA (PH1(I, 9, 8, 1),I=1,6) /0.7122E+03, 0.1660E+03,
     1 0.4798E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I, 9, 8, 2),I=1,6) /0.5459E+02, 0.2882E+02,
     1 0.2439E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I, 9, 8, 3),I=1,6) /0.3497E+02, 0.2658E+02,
     1 0.2649E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I, 9, 9, 1),I=1,6) /0.6940E+03, 0.2390E+03,
     1 0.2295E+02, 0.1257E+04, 0.9638E+00, 0.0000E+00/
      DATA (PH1(I, 9, 9, 2),I=1,6) /0.3786E+02, 0.2568E+02,
     1 0.1097E+03, 0.4297E+01, 0.7303E+01, 0.0000E+00/
      DATA (PH1(I, 9, 9, 3),I=1,6) /0.1742E+02, 0.1658E+02,
     1 0.2775E+06, 0.1242E+01, 0.1249E+02, 0.3857E+00/
      DATA (PH1(I,10, 1, 1),I=1,6) /0.1362E+04, 0.4304E+02,
     1 0.5475E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,10, 2, 1),I=1,6) /0.1196E+04, 0.1586E+03,
     1 0.6695E+02, 0.3352E+02, 0.2002E+01, 0.0000E+00/
      DATA (PH1(I,10, 3, 1),I=1,6) /0.1125E+04, 0.2193E+03,
     1 0.3719E+02, 0.8181E+02, 0.1396E+01, 0.0000E+00/
      DATA (PH1(I,10, 3, 2),I=1,6) /0.2391E+03, 0.2859E+02,
     1 0.2897E+02, 0.3836E+02, 0.3992E+01, 0.0000E+00/
      DATA (PH1(I,10, 4, 1),I=1,6) /0.1078E+04, 0.1886E+03,
     1 0.5011E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,10, 4, 2),I=1,6) /0.2073E+03, 0.2822E+02,
     1 0.4978E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,10, 5, 1),I=1,6) /0.1031E+04, 0.2308E+03,
     1 0.3232E+02, 0.7167E+02, 0.1411E+01, 0.0000E+00/
      DATA (PH1(I,10, 5, 2),I=1,6) /0.1719E+03, 0.2496E+02,
     1 0.5575E+02, 0.1427E+02, 0.5562E+01, 0.0000E+00/
      DATA (PH1(I,10, 5, 3),I=1,6) /0.1579E+03, 0.2740E+02,
     1 0.1717E+03, 0.6423E+02, 0.3819E+01, 0.1680E+00/
      DATA (PH1(I,10, 6, 1),I=1,6) /0.9873E+03, 0.2343E+03,
     1 0.3097E+02, 0.6907E+02, 0.1416E+01, 0.0000E+00/
      DATA (PH1(I,10, 6, 2),I=1,6) /0.1415E+03, 0.2615E+02,
     1 0.5421E+02, 0.1117E+02, 0.5907E+01, 0.0000E+00/
      DATA (PH1(I,10, 6, 3),I=1,6) /0.1262E+03, 0.3316E+02,
     1 0.1962E+03, 0.7397E+02, 0.3563E+01, 0.2895E+00/
      DATA (PH1(I,10, 7, 1),I=1,6) /0.9480E+03, 0.2360E+03,
     1 0.3027E+02, 0.6734E+02, 0.1422E+01, 0.0000E+00/
      DATA (PH1(I,10, 7, 2),I=1,6) /0.1132E+03, 0.3092E+02,
     1 0.4190E+02, 0.1139E+02, 0.5554E+01, 0.0000E+00/
      DATA (PH1(I,10, 7, 3),I=1,6) /0.9712E+02, 0.3494E+02,
     1 0.2214E+03, 0.7203E+02, 0.3563E+01, 0.2573E+00/
      DATA (PH1(I,10, 8, 1),I=1,6) /0.9131E+03, 0.2387E+03,
     1 0.2943E+02, 0.6525E+02, 0.1424E+01, 0.0000E+00/
      DATA (PH1(I,10, 8, 2),I=1,6) /0.8721E+02, 0.3192E+02,
     1 0.3797E+02, 0.1054E+02, 0.5652E+01, 0.0000E+00/
      DATA (PH1(I,10, 8, 3),I=1,6) /0.6346E+02, 0.3485E+02,
     1 0.2451E+03, 0.6937E+02, 0.3645E+01, 0.2042E+00/
      DATA (PH1(I,10, 9, 1),I=1,6) /0.8831E+03, 0.2452E+03,
     1 0.2783E+02, 0.6075E+02, 0.1420E+01, 0.0000E+00/
      DATA (PH1(I,10, 9, 2),I=1,6) /0.6374E+02, 0.3187E+02,
     1 0.4025E+02, 0.8495E+01, 0.6038E+01, 0.0000E+00/
      DATA (PH1(I,10, 9, 3),I=1,6) /0.4096E+02, 0.3428E+02,
     1 0.2766E+03, 0.4179E+02, 0.4029E+01, 0.3052E+00/
      DATA (PH1(I,10,10, 1),I=1,6) /0.8701E+03, 0.3144E+03,
     1 0.1664E+02, 0.2042E+06, 0.8450E+00, 0.0000E+00/
      DATA (PH1(I,10,10, 2),I=1,6) /0.4847E+02, 0.3204E+02,
     1 0.5615E+02, 0.5808E+01, 0.6678E+01, 0.0000E+00/
      DATA (PH1(I,10,10, 3),I=1,6) /0.2156E+02, 0.2000E+02,
     1 0.1691E+05, 0.2442E+01, 0.1043E+02, 0.3345E+00/
      DATA (PH1(I,11, 1, 1),I=1,6) /0.1649E+04, 0.5211E+02,
     1 0.4525E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,11, 2, 1),I=1,6) /0.1465E+04, 0.2268E+03,
     1 0.3995E+02, 0.5315E+02, 0.1678E+01, 0.0000E+00/
      DATA (PH1(I,11, 3, 1),I=1,6) /0.1386E+04, 0.2406E+03,
     1 0.3850E+02, 0.5198E+02, 0.1575E+01, 0.0000E+00/
      DATA (PH1(I,11, 3, 2),I=1,6) /0.2999E+03, 0.1758E+02,
     1 0.4531E+02, 0.4549E+02, 0.4689E+01, 0.0000E+00/
      DATA (PH1(I,11, 4, 1),I=1,6) /0.1335E+04, 0.2464E+03,
     1 0.3613E+02, 0.4968E+02, 0.1579E+01, 0.0000E+00/
      DATA (PH1(I,11, 4, 2),I=1,6) /0.2642E+03, 0.2097E+02,
     1 0.6127E+02, 0.2644E+02, 0.5246E+01, 0.0000E+00/
      DATA (PH1(I,11, 5, 1),I=1,6) /0.1281E+04, 0.2777E+03,
     1 0.2745E+02, 0.7512E+02, 0.1397E+01, 0.0000E+00/
      DATA (PH1(I,11, 5, 2),I=1,6) /0.2244E+03, 0.2947E+02,
     1 0.4802E+02, 0.1621E+02, 0.5395E+01, 0.0000E+00/
      DATA (PH1(I,11, 5, 3),I=1,6) /0.2085E+03, 0.3552E+02,
     1 0.1374E+03, 0.7062E+02, 0.3675E+01, 0.1613E+00/
      DATA (PH1(I,11, 6, 1),I=1,6) /0.1230E+04, 0.2806E+03,
     1 0.2654E+02, 0.7237E+02, 0.1405E+01, 0.0000E+00/
      DATA (PH1(I,11, 6, 2),I=1,6) /0.1899E+03, 0.3303E+02,
     1 0.4218E+02, 0.1377E+02, 0.5458E+01, 0.0000E+00/
      DATA (PH1(I,11, 6, 3),I=1,6) /0.1722E+03, 0.4212E+02,
     1 0.1650E+03, 0.9649E+02, 0.3367E+01, 0.2182E+00/
      DATA (PH1(I,11, 7, 1),I=1,6) /0.1185E+04, 0.2360E+03,
     1 0.3753E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,11, 7, 2),I=1,6) /0.1567E+03, 0.3868E+02,
     1 0.2607E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,11, 7, 3),I=1,6) /0.1384E+03, 0.3523E+02,
     1 0.3028E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,11, 8, 1),I=1,6) /0.1143E+04, 0.2841E+03,
     1 0.2551E+02, 0.6977E+02, 0.1414E+01, 0.0000E+00/
      DATA (PH1(I,11, 8, 2),I=1,6) /0.1269E+03, 0.3807E+02,
     1 0.3144E+02, 0.1250E+02, 0.5405E+01, 0.0000E+00/
      DATA (PH1(I,11, 8, 3),I=1,6) /0.9892E+02, 0.4314E+02,
     1 0.2232E+03, 0.8352E+02, 0.3511E+01, 0.1644E+00/
      DATA (PH1(I,11, 9, 1),I=1,6) /0.1110E+04, 0.2426E+03,
     1 0.3466E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,11, 9, 2),I=1,6) /0.9945E+02, 0.4130E+02,
     1 0.1933E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,11, 9, 3),I=1,6) /0.7162E+02, 0.3957E+02,
     1 0.2748E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,11,10, 1),I=1,6) /0.1074E+04, 0.3266E+03,
     1 0.1889E+02, 0.2527E+03, 0.1120E+01, 0.0000E+00/
      DATA (PH1(I,11,10, 2),I=1,6) /0.7347E+02, 0.3939E+02,
     1 0.2629E+02, 0.1103E+02, 0.5618E+01, 0.0000E+00/
      DATA (PH1(I,11,10, 3),I=1,6) /0.4729E+02, 0.3911E+02,
     1 0.3551E+03, 0.2257E+02, 0.4643E+01, 0.2900E+00/
      DATA (PH1(I,11,11, 1),I=1,6) /0.1079E+04, 0.4216E+03,
     1 0.1119E+02, 0.5642E+08, 0.7736E+00, 0.0000E+00/
      DATA (PH1(I,11,11, 2),I=1,6) /0.7084E+02, 0.4537E+02,
     1 0.1142E+02, 0.2395E+03, 0.3380E+01, 0.0000E+00/
      DATA (PH1(I,11,11, 3),I=1,6) /0.3814E+02, 0.3655E+02,
     1 0.2486E+03, 0.3222E+03, 0.3570E+01, 0.1465E+00/
      DATA (PH1(I,11,11, 4),I=1,6) /0.5139E+01, 0.5968E+01,
     1 0.1460E+01, 0.2557E+08, 0.3789E+01, 0.0000E+00/
      DATA (PH1(I,12, 1, 1),I=1,6) /0.1963E+04, 0.6203E+02,
     1 0.3802E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,12, 2, 1),I=1,6) /0.1762E+04, 0.2042E+03,
     1 0.6140E+02, 0.2778E+02, 0.2161E+01, 0.0000E+00/
      DATA (PH1(I,12, 3, 1),I=1,6) /0.1675E+04, 0.2858E+03,
     1 0.3290E+02, 0.5384E+02, 0.1560E+01, 0.0000E+00/
      DATA (PH1(I,12, 3, 2),I=1,6) /0.3675E+03, 0.4041E+02,
     1 0.2228E+02, 0.3904E+02, 0.3986E+01, 0.0000E+00/
      DATA (PH1(I,12, 4, 1),I=1,6) /0.1618E+04, 0.2671E+03,
     1 0.3699E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,12, 4, 2),I=1,6) /0.3282E+03, 0.3981E+02,
     1 0.3936E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,12, 5, 1),I=1,6) /0.1558E+04, 0.3082E+03,
     1 0.2721E+02, 0.5108E+02, 0.1539E+01, 0.0000E+00/
      DATA (PH1(I,12, 5, 2),I=1,6) /0.2839E+03, 0.3967E+02,
     1 0.3755E+02, 0.1873E+02, 0.4950E+01, 0.0000E+00/
      DATA (PH1(I,12, 5, 3),I=1,6) /0.2660E+03, 0.2461E+02,
     1 0.3546E+03, 0.6160E+02, 0.4366E+01, 0.6452E-02/
      DATA (PH1(I,12, 6, 1),I=1,6) /0.1501E+04, 0.2742E+03,
     1 0.3407E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,12, 6, 2),I=1,6) /0.2444E+03, 0.4341E+02,
     1 0.2832E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,12, 6, 3),I=1,6) /0.2249E+03, 0.4016E+02,
     1 0.2442E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,12, 7, 1),I=1,6) /0.1449E+04, 0.2777E+03,
     1 0.3278E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,12, 7, 2),I=1,6) /0.2076E+03, 0.4500E+02,
     1 0.2434E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,12, 7, 3),I=1,6) /0.1865E+03, 0.4155E+02,
     1 0.2901E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,12, 8, 1),I=1,6) /0.1400E+04, 0.3259E+03,
     1 0.2350E+02, 0.6173E+02, 0.1464E+01, 0.0000E+00/
      DATA (PH1(I,12, 8, 2),I=1,6) /0.1735E+03, 0.4710E+02,
     1 0.2448E+02, 0.1636E+02, 0.4951E+01, 0.0000E+00/
      DATA (PH1(I,12, 8, 3),I=1,6) /0.1413E+03, 0.5114E+02,
     1 0.2134E+03, 0.9563E+02, 0.3438E+01, 0.5419E-02/
      DATA (PH1(I,12, 9, 1),I=1,6) /0.1356E+04, 0.3345E+03,
     1 0.2212E+02, 0.7147E+02, 0.1413E+01, 0.0000E+00/
      DATA (PH1(I,12, 9, 2),I=1,6) /0.1411E+03, 0.4810E+02,
     1 0.2118E+02, 0.1675E+02, 0.4941E+01, 0.0000E+00/
      DATA (PH1(I,12, 9, 3),I=1,6) /0.1093E+03, 0.5137E+02,
     1 0.2223E+03, 0.9301E+02, 0.3513E+01, 0.5276E-02/
      DATA (PH1(I,12,10, 1),I=1,6) /0.1317E+04, 0.3607E+03,
     1 0.1877E+02, 0.1401E+03, 0.1238E+01, 0.0000E+00/
      DATA (PH1(I,12,10, 2),I=1,6) /0.1111E+03, 0.4804E+02,
     1 0.1914E+02, 0.1613E+02, 0.5050E+01, 0.0000E+00/
      DATA (PH1(I,12,10, 3),I=1,6) /0.8014E+02, 0.5319E+02,
     1 0.2104E+03, 0.7813E+02, 0.3630E+01, 0.2851E+00/
      DATA (PH1(I,12,11, 1),I=1,6) /0.1304E+04, 0.3709E+03,
     1 0.1767E+02, 0.1346E+03, 0.1225E+01, 0.0000E+00/
      DATA (PH1(I,12,11, 2),I=1,6) /0.9881E+02, 0.5142E+02,
     1 0.1290E+02, 0.5775E+02, 0.3903E+01, 0.0000E+00/
      DATA (PH1(I,12,11, 3),I=1,6) /0.6569E+02, 0.4940E+02,
     1 0.2049E+03, 0.4112E+04, 0.2995E+01, 0.2223E-04/
      DATA (PH1(I,12,11, 4),I=1,6) /0.1504E+02, 0.8139E+01,
     1 0.3278E+01, 0.4341E+08, 0.3610E+01, 0.0000E+00/
      DATA (PH1(I,12,12, 1),I=1,6) /0.1311E+04, 0.2711E+03,
     1 0.3561E+02, 0.2374E+02, 0.1952E+01, 0.0000E+00/
      DATA (PH1(I,12,12, 2),I=1,6) /0.9400E+02, 0.4587E+02,
     1 0.1671E+02, 0.2389E+02, 0.4742E+01, 0.0000E+00/
      DATA (PH1(I,12,12, 3),I=1,6) /0.5490E+02, 0.4937E+02,
     1 0.2023E+03, 0.1079E+05, 0.2960E+01, 0.1463E-01/
      DATA (PH1(I,12,12, 4),I=1,6) /0.7646E+01, 0.9393E+01,
     1 0.3034E+01, 0.2625E+08, 0.3923E+01, 0.0000E+00/
      DATA (PH1(I,13, 1, 1),I=1,6) /0.2304E+04, 0.7281E+02,
     1 0.3239E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,13, 2, 1),I=1,6) /0.2086E+04, 0.2738E+03,
     1 0.4036E+02, 0.3567E+02, 0.1915E+01, 0.0000E+00/
      DATA (PH1(I,13, 3, 1),I=1,6) /0.1992E+04, 0.3137E+03,
     1 0.3272E+02, 0.4295E+02, 0.1676E+01, 0.0000E+00/
      DATA (PH1(I,13, 3, 2),I=1,6) /0.4421E+03, 0.4434E+02,
     1 0.2098E+02, 0.3913E+02, 0.4062E+01, 0.0000E+00/
      DATA (PH1(I,13, 4, 1),I=1,6) /0.1929E+04, 0.3117E+03,
     1 0.3223E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,13, 4, 2),I=1,6) /0.3994E+03, 0.4639E+02,
     1 0.3516E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,13, 5, 1),I=1,6) /0.1862E+04, 0.3305E+03,
     1 0.2857E+02, 0.3660E+02, 0.1712E+01, 0.0000E+00/
      DATA (PH1(I,13, 5, 2),I=1,6) /0.3502E+03, 0.4550E+02,
     1 0.3393E+02, 0.1945E+02, 0.4926E+01, 0.0000E+00/
      DATA (PH1(I,13, 5, 3),I=1,6) /0.3301E+03, 0.4084E+02,
     1 0.1706E+03, 0.6480E+02, 0.3927E+01, 0.1386E+00/
      DATA (PH1(I,13, 6, 1),I=1,6) /0.1799E+04, 0.3193E+03,
     1 0.2989E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,13, 6, 2),I=1,6) /0.3065E+03, 0.5016E+02,
     1 0.2604E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,13, 6, 3),I=1,6) /0.2846E+03, 0.4719E+02,
     1 0.2229E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,13, 7, 1),I=1,6) /0.1739E+04, 0.3396E+03,
     1 0.2653E+02, 0.3478E+02, 0.1721E+01, 0.0000E+00/
      DATA (PH1(I,13, 7, 2),I=1,6) /0.2662E+03, 0.5726E+02,
     1 0.2274E+02, 0.1983E+02, 0.4594E+01, 0.0000E+00/
      DATA (PH1(I,13, 7, 3),I=1,6) /0.2414E+03, 0.5746E+02,
     1 0.1941E+03, 0.8747E+02, 0.3460E+01, 0.1206E+00/
      DATA (PH1(I,13, 8, 1),I=1,6) /0.1688E+04, 0.3268E+03,
     1 0.2786E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,13, 8, 2),I=1,6) /0.2268E+03, 0.5340E+02,
     1 0.1982E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,13, 8, 3),I=1,6) /0.1905E+03, 0.5032E+02,
     1 0.2888E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,13, 9, 1),I=1,6) /0.1634E+04, 0.3432E+03,
     1 0.2572E+02, 0.3376E+02, 0.1730E+01, 0.0000E+00/
      DATA (PH1(I,13, 9, 2),I=1,6) /0.1903E+03, 0.5651E+02,
     1 0.1865E+02, 0.1904E+02, 0.4763E+01, 0.0000E+00/
      DATA (PH1(I,13, 9, 3),I=1,6) /0.1538E+03, 0.6049E+02,
     1 0.2132E+03, 0.8633E+02, 0.3522E+01, 0.1041E+00/
      DATA (PH1(I,13,10, 1),I=1,6) /0.1588E+04, 0.3482E+03,
     1 0.2494E+02, 0.3260E+02, 0.1732E+01, 0.0000E+00/
      DATA (PH1(I,13,10, 2),I=1,6) /0.1558E+03, 0.5735E+02,
     1 0.1619E+02, 0.1989E+02, 0.4749E+01, 0.0000E+00/
      DATA (PH1(I,13,10, 3),I=1,6) /0.1200E+03, 0.6033E+02,
     1 0.2186E+03, 0.8353E+02, 0.3609E+01, 0.9152E-01/
      DATA (PH1(I,13,11, 1),I=1,6) /0.1572E+04, 0.3200E+03,
     1 0.2994E+02, 0.2757E+02, 0.1876E+01, 0.0000E+00/
      DATA (PH1(I,13,11, 2),I=1,6) /0.1407E+03, 0.5629E+02,
     1 0.1398E+02, 0.3550E+02, 0.4267E+01, 0.0000E+00/
      DATA (PH1(I,13,11, 3),I=1,6) /0.1026E+03, 0.6016E+02,
     1 0.1990E+03, 0.5082E+03, 0.3110E+01, 0.2016E-01/
      DATA (PH1(I,13,11, 4),I=1,6) /0.2845E+02, 0.1027E+02,
     1 0.4915E+01, 0.1990E+07, 0.3477E+01, 0.0000E+00/
      DATA (PH1(I,13,12, 1),I=1,6) /0.1559E+04, 0.3049E+03,
     1 0.3295E+02, 0.2905E+02, 0.1898E+01, 0.0000E+00/
      DATA (PH1(I,13,12, 2),I=1,6) /0.1281E+03, 0.5171E+02,
     1 0.1642E+02, 0.2275E+02, 0.4810E+01, 0.0000E+00/
      DATA (PH1(I,13,12, 3),I=1,6) /0.8997E+02, 0.6154E+02,
     1 0.1842E+03, 0.2404E+04, 0.2920E+01, 0.7839E-02/
      DATA (PH1(I,13,12, 4),I=1,6) /0.1883E+02, 0.1012E+02,
     1 0.6324E+01, 0.2195E+03, 0.4481E+01, 0.0000E+00/
      DATA (PH1(I,13,13, 1),I=1,6) /0.1567E+04, 0.3670E+03,
     1 0.2206E+02, 0.4405E+02, 0.1588E+01, 0.0000E+00/
      DATA (PH1(I,13,13, 2),I=1,6) /0.1256E+03, 0.5594E+02,
     1 0.1425E+02, 0.3094E+02, 0.4399E+01, 0.0000E+00/
      DATA (PH1(I,13,13, 3),I=1,6) /0.8040E+02, 0.6445E+02,
     1 0.1735E+03, 0.1131E+05, 0.2762E+01, 0.2337E-01/
      DATA (PH1(I,13,13, 4),I=1,6) /0.1133E+02, 0.1204E+02,
     1 0.5384E+01, 0.4341E+03, 0.4088E+01, 0.0000E+00/
      DATA (PH1(I,13,13, 5),I=1,6) /0.5986E+01, 0.1860E+02,
     1 0.1828E+03, 0.2797E+01, 0.1084E+02, 0.3076E+00/
      DATA (PH1(I,14, 1, 1),I=1,6) /0.2673E+04, 0.8447E+02,
     1 0.2793E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,14, 2, 1),I=1,6) /0.2438E+04, 0.2752E+03,
     1 0.4754E+02, 0.2848E+02, 0.2135E+01, 0.0000E+00/
      DATA (PH1(I,14, 3, 1),I=1,6) /0.2336E+04, 0.3150E+03,
     1 0.3880E+02, 0.3034E+02, 0.1925E+01, 0.0000E+00/
      DATA (PH1(I,14, 3, 2),I=1,6) /0.5235E+03, 0.4847E+02,
     1 0.1966E+02, 0.3851E+02, 0.4148E+01, 0.0000E+00/
      DATA (PH1(I,14, 4, 1),I=1,6) /0.2268E+04, 0.3599E+03,
     1 0.2832E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,14, 4, 2),I=1,6) /0.4761E+03, 0.5350E+02,
     1 0.3155E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,14, 5, 1),I=1,6) /0.2194E+04, 0.3356E+03,
     1 0.3343E+02, 0.2487E+02, 0.1982E+01, 0.0000E+00/
      DATA (PH1(I,14, 5, 2),I=1,6) /0.4234E+03, 0.6098E+02,
     1 0.2624E+02, 0.2213E+02, 0.4520E+01, 0.0000E+00/
      DATA (PH1(I,14, 5, 3),I=1,6) /0.4014E+03, 0.3950E+02,
     1 0.2223E+03, 0.6521E+02, 0.4118E+01, 0.4760E-04/
      DATA (PH1(I,14, 6, 1),I=1,6) /0.2125E+04, 0.3679E+03,
     1 0.2641E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,14, 6, 2),I=1,6) /0.3756E+03, 0.5745E+02,
     1 0.2394E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,14, 6, 3),I=1,6) /0.3511E+03, 0.5486E+02,
     1 0.2031E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,14, 7, 1),I=1,6) /0.2058E+04, 0.3442E+03,
     1 0.3135E+02, 0.2260E+02, 0.2020E+01, 0.0000E+00/
      DATA (PH1(I,14, 7, 2),I=1,6) /0.3310E+03, 0.6593E+02,
     1 0.2049E+02, 0.2121E+02, 0.4515E+01, 0.0000E+00/
      DATA (PH1(I,14, 7, 3),I=1,6) /0.3032E+03, 0.5911E+02,
     1 0.2326E+03, 0.6806E+02, 0.3718E+01, 0.2813E-04/
      DATA (PH1(I,14, 8, 1),I=1,6) /0.2001E+04, 0.3759E+03,
     1 0.2474E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,14, 8, 2),I=1,6) /0.2872E+03, 0.6086E+02,
     1 0.1857E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,14, 8, 3),I=1,6) /0.2465E+03, 0.5786E+02,
     1 0.2777E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,14, 9, 1),I=1,6) /0.1946E+04, 0.3799E+03,
     1 0.2398E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,14, 9, 2),I=1,6) /0.2468E+03, 0.6237E+02,
     1 0.1648E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,14, 9, 3),I=1,6) /0.2051E+03, 0.6007E+02,
     1 0.2789E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,14,10, 1),I=1,6) /0.1887E+04, 0.3460E+03,
     1 0.3100E+02, 0.1979E+02, 0.2094E+01, 0.0000E+00/
      DATA (PH1(I,14,10, 2),I=1,6) /0.2076E+03, 0.6653E+02,
     1 0.1463E+02, 0.2200E+02, 0.4611E+01, 0.0000E+00/
      DATA (PH1(I,14,10, 3),I=1,6) /0.1668E+03, 0.7021E+02,
     1 0.2109E+03, 0.8199E+02, 0.3588E+01, 0.6329E-04/
      DATA (PH1(I,14,11, 1),I=1,6) /0.1868E+04, 0.3131E+03,
     1 0.3784E+02, 0.2017E+02, 0.2186E+01, 0.0000E+00/
      DATA (PH1(I,14,11, 2),I=1,6) /0.1899E+03, 0.5977E+02,
     1 0.1486E+02, 0.2786E+02, 0.4565E+01, 0.0000E+00/
      DATA (PH1(I,14,11, 3),I=1,6) /0.1466E+03, 0.6482E+02,
     1 0.2326E+03, 0.1188E+03, 0.3547E+01, 0.8417E-03/
      DATA (PH1(I,14,11, 4),I=1,6) /0.4514E+02, 0.1288E+02,
     1 0.6083E+01, 0.1356E+07, 0.3353E+01, 0.0000E+00/
      DATA (PH1(I,14,12, 1),I=1,6) /0.1852E+04, 0.3201E+03,
     1 0.3591E+02, 0.2174E+02, 0.2123E+01, 0.0000E+00/
      DATA (PH1(I,14,12, 2),I=1,6) /0.1744E+03, 0.5843E+02,
     1 0.1569E+02, 0.2296E+02, 0.4803E+01, 0.0000E+00/
      DATA (PH1(I,14,12, 3),I=1,6) /0.1311E+03, 0.6652E+02,
     1 0.2197E+03, 0.1169E+03, 0.3529E+01, 0.8658E-03/
      DATA (PH1(I,14,12, 4),I=1,6) /0.3349E+02, 0.1182E+02,
     1 0.8666E+01, 0.3532E+03, 0.4208E+01, 0.0000E+00/
      DATA (PH1(I,14,13, 1),I=1,6) /0.1839E+04, 0.4580E+03,
     1 0.1628E+02, 0.7706E+02, 0.1385E+01, 0.0000E+00/
      DATA (PH1(I,14,13, 2),I=1,6) /0.1619E+03, 0.6738E+02,
     1 0.1263E+02, 0.3623E+02, 0.4172E+01, 0.0000E+00/
      DATA (PH1(I,14,13, 3),I=1,6) /0.1186E+03, 0.7154E+02,
     1 0.1832E+03, 0.3537E+03, 0.3133E+01, 0.2870E-03/
      DATA (PH1(I,14,13, 4),I=1,6) /0.2240E+02, 0.1364E+02,
     1 0.8454E+01, 0.7489E+02, 0.4676E+01, 0.0000E+00/
      DATA (PH1(I,14,13, 5),I=1,6) /0.1635E+02, 0.2123E+02,
     1 0.6975E+02, 0.4907E+01, 0.9525E+01, 0.3169E+00/
      DATA (PH1(I,14,14, 1),I=1,6) /0.1846E+04, 0.5322E+03,
     1 0.1184E+02, 0.2580E+03, 0.1102E+01, 0.0000E+00/
      DATA (PH1(I,14,14, 2),I=1,6) /0.1560E+03, 0.7017E+02,
     1 0.1166E+02, 0.4742E+02, 0.3933E+01, 0.0000E+00/
      DATA (PH1(I,14,14, 3),I=1,6) /0.1060E+03, 0.7808E+02,
     1 0.1532E+03, 0.5765E+07, 0.2639E+01, 0.2774E-03/
      DATA (PH1(I,14,14, 4),I=1,6) /0.1517E+02, 0.1413E+02,
     1 0.1166E+02, 0.2288E+02, 0.5334E+01, 0.0000E+00/
      DATA (PH1(I,14,14, 5),I=1,6) /0.8152E+01, 0.2212E+02,
     1 0.1845E+03, 0.3849E+01, 0.9721E+01, 0.2921E+00/
      DATA (PH1(I,15, 1, 1),I=1,6) /0.3070E+04, 0.9701E+02,
     1 0.2433E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,15, 2, 1),I=1,6) /0.2817E+04, 0.3381E+03,
     1 0.3646E+02, 0.3254E+02, 0.2002E+01, 0.0000E+00/
      DATA (PH1(I,15, 3, 1),I=1,6) /0.2707E+04, 0.3711E+03,
     1 0.3220E+02, 0.3257E+02, 0.1869E+01, 0.0000E+00/
      DATA (PH1(I,15, 3, 2),I=1,6) /0.6119E+03, 0.6401E+02,
     1 0.1519E+02, 0.3741E+02, 0.3995E+01, 0.0000E+00/
      DATA (PH1(I,15, 4, 1),I=1,6) /0.2633E+04, 0.3790E+03,
     1 0.3053E+02, 0.3068E+02, 0.1885E+01, 0.0000E+00/
      DATA (PH1(I,15, 4, 2),I=1,6) /0.5604E+03, 0.5712E+02,
     1 0.2980E+02, 0.2988E+02, 0.4450E+01, 0.0000E+00/
      DATA (PH1(I,15, 5, 1),I=1,6) /0.2553E+04, 0.3860E+03,
     1 0.2914E+02, 0.2656E+02, 0.1945E+01, 0.0000E+00/
      DATA (PH1(I,15, 5, 2),I=1,6) /0.5035E+03, 0.7791E+02,
     1 0.2079E+02, 0.2573E+02, 0.4191E+01, 0.0000E+00/
      DATA (PH1(I,15, 5, 3),I=1,6) /0.4796E+03, 0.7305E+02,
     1 0.7867E+02, 0.7330E+02, 0.3527E+01, 0.1286E-02/
      DATA (PH1(I,15, 6, 1),I=1,6) /0.2477E+04, 0.3824E+03,
     1 0.2955E+02, 0.2402E+02, 0.2010E+01, 0.0000E+00/
      DATA (PH1(I,15, 6, 2),I=1,6) /0.4522E+03, 0.7664E+02,
     1 0.1966E+02, 0.2403E+02, 0.4317E+01, 0.0000E+00/
      DATA (PH1(I,15, 6, 3),I=1,6) /0.4245E+03, 0.6502E+02,
     1 0.1792E+03, 0.6744E+02, 0.3727E+01, 0.1364E-02/
      DATA (PH1(I,15, 7, 1),I=1,6) /0.2407E+04, 0.4243E+03,
     1 0.2277E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,15, 7, 2),I=1,6) /0.4018E+03, 0.6712E+02,
     1 0.1952E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,15, 7, 3),I=1,6) /0.3717E+03, 0.6437E+02,
     1 0.2384E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,15, 8, 1),I=1,6) /0.2337E+04, 0.3811E+03,
     1 0.2964E+02, 0.2122E+02, 0.2087E+01, 0.0000E+00/
      DATA (PH1(I,15, 8, 2),I=1,6) /0.3552E+03, 0.7217E+02,
     1 0.1771E+02, 0.2129E+02, 0.4617E+01, 0.0000E+00/
      DATA (PH1(I,15, 8, 3),I=1,6) /0.3094E+03, 0.5587E+02,
     1 0.3696E+03, 0.4738E+02, 0.4244E+01, 0.1094E-02/
      DATA (PH1(I,15, 9, 1),I=1,6) /0.2280E+04, 0.4327E+03,
     1 0.2146E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,15, 9, 2),I=1,6) /0.3098E+03, 0.7044E+02,
     1 0.1553E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,15, 9, 3),I=1,6) /0.2632E+03, 0.6819E+02,
     1 0.2712E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,15,10, 1),I=1,6) /0.2214E+04, 0.3828E+03,
     1 0.2932E+02, 0.1991E+02, 0.2123E+01, 0.0000E+00/
      DATA (PH1(I,15,10, 2),I=1,6) /0.2663E+03, 0.6951E+02,
     1 0.1560E+02, 0.1845E+02, 0.4938E+01, 0.0000E+00/
      DATA (PH1(I,15,10, 3),I=1,6) /0.2204E+03, 0.6893E+02,
     1 0.2980E+03, 0.3497E+02, 0.4307E+01, 0.1008E-02/
      DATA (PH1(I,15,11, 1),I=1,6) /0.2192E+04, 0.3423E+03,
     1 0.3671E+02, 0.2010E+02, 0.2232E+01, 0.0000E+00/
      DATA (PH1(I,15,11, 2),I=1,6) /0.2461E+03, 0.6270E+02,
     1 0.1535E+02, 0.2486E+02, 0.4787E+01, 0.0000E+00/
      DATA (PH1(I,15,11, 3),I=1,6) /0.1977E+03, 0.6186E+02,
     1 0.3368E+03, 0.4700E+02, 0.4256E+01, 0.1118E-02/
      DATA (PH1(I,15,11, 4),I=1,6) /0.6503E+02, 0.1526E+01,
     1 0.3688E+02, 0.1111E+04, 0.4890E+01, 0.0000E+00/
      DATA (PH1(I,15,12, 1),I=1,6) /0.2173E+04, 0.3969E+03,
     1 0.2640E+02, 0.2945E+02, 0.1901E+01, 0.0000E+00/
      DATA (PH1(I,15,12, 2),I=1,6) /0.2280E+03, 0.6564E+02,
     1 0.1491E+02, 0.2333E+02, 0.4787E+01, 0.0000E+00/
      DATA (PH1(I,15,12, 3),I=1,6) /0.1795E+03, 0.6946E+02,
     1 0.2661E+03, 0.5760E+02, 0.3967E+01, 0.4482E-02/
      DATA (PH1(I,15,12, 4),I=1,6) /0.5144E+02, 0.1151E+02,
     1 0.1153E+02, 0.2303E+03, 0.4447E+01, 0.0000E+00/
      DATA (PH1(I,15,13, 1),I=1,6) /0.2157E+04, 0.5025E+03,
     1 0.1577E+02, 0.6163E+02, 0.1467E+01, 0.0000E+00/
      DATA (PH1(I,15,13, 2),I=1,6) /0.2124E+03, 0.7708E+02,
     1 0.1206E+02, 0.3388E+02, 0.4192E+01, 0.0000E+00/
      DATA (PH1(I,15,13, 3),I=1,6) /0.1639E+03, 0.7943E+02,
     1 0.1949E+03, 0.1392E+03, 0.3391E+01, 0.5039E-02/
      DATA (PH1(I,15,13, 4),I=1,6) /0.3828E+02, 0.1832E+02,
     1 0.8260E+01, 0.7058E+03, 0.3682E+01, 0.0000E+00/
      DATA (PH1(I,15,13, 5),I=1,6) /0.3020E+02, 0.2401E+02,
     1 0.2851E+02, 0.9795E+01, 0.8210E+01, 0.3290E+00/
      DATA (PH1(I,15,14, 1),I=1,6) /0.2138E+04, 0.4445E+03,
     1 0.1990E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,15,14, 2),I=1,6) /0.1987E+03, 0.7299E+02,
     1 0.1328E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,15,14, 3),I=1,6) /0.1495E+03, 0.7517E+02,
     1 0.2347E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,15,14, 4),I=1,6) /0.2709E+02, 0.1666E+02,
     1 0.7930E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,15,14, 5),I=1,6) /0.1973E+02, 0.2511E+02,
     1 0.2564E+02, 0.1800E+02, 0.7200E+01, 0.2600E+00/
      DATA (PH1(I,15,15, 1),I=1,6) /0.2154E+04, 0.6472E+03,
     1 0.9167E+01, 0.2562E+03, 0.1063E+01, 0.0000E+00/
      DATA (PH1(I,15,15, 2),I=1,6) /0.1940E+03, 0.8632E+02,
     1 0.9931E+01, 0.6594E+02, 0.3617E+01, 0.0000E+00/
      DATA (PH1(I,15,15, 3),I=1,6) /0.1400E+03, 0.8812E+02,
     1 0.1512E+03, 0.2230E+04, 0.2795E+01, 0.3422E-03/
      DATA (PH1(I,15,15, 4),I=1,6) /0.2017E+02, 0.1658E+02,
     1 0.1125E+02, 0.2613E+02, 0.5205E+01, 0.0000E+00/
      DATA (PH1(I,15,15, 5),I=1,6) /0.1049E+02, 0.2580E+02,
     1 0.9925E+02, 0.6712E+01, 0.8516E+01, 0.2765E+00/
      DATA (PH1(I,16, 1, 1),I=1,6) /0.3494E+04, 0.1104E+03,
     1 0.2139E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,16, 2, 1),I=1,6) /0.3224E+04, 0.4390E+03,
     1 0.2453E+02, 0.4405E+02, 0.1765E+01, 0.0000E+00/
      DATA (PH1(I,16, 3, 1),I=1,6) /0.3107E+04, 0.4667E+03,
     1 0.2293E+02, 0.4459E+02, 0.1668E+01, 0.0000E+00/
      DATA (PH1(I,16, 3, 2),I=1,6) /0.7072E+03, 0.4414E+02,
     1 0.2178E+02, 0.4365E+02, 0.4480E+01, 0.0000E+00/
      DATA (PH1(I,16, 4, 1),I=1,6) /0.3029E+04, 0.4669E+03,
     1 0.2233E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,16, 4, 2),I=1,6) /0.6517E+03, 0.6930E+02,
     1 0.2571E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,16, 5, 1),I=1,6) /0.2941E+04, 0.4828E+03,
     1 0.2087E+02, 0.3742E+02, 0.1720E+01, 0.0000E+00/
      DATA (PH1(I,16, 5, 2),I=1,6) /0.5906E+03, 0.6791E+02,
     1 0.2451E+02, 0.2306E+02, 0.4707E+01, 0.0000E+00/
      DATA (PH1(I,16, 5, 3),I=1,6) /0.5647E+03, 0.5542E+02,
     1 0.1641E+03, 0.6822E+02, 0.4000E+01, 0.4183E-01/
      DATA (PH1(I,16, 6, 1),I=1,6) /0.2859E+04, 0.4758E+03,
     1 0.2101E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,16, 6, 2),I=1,6) /0.5346E+03, 0.7360E+02,
     1 0.2030E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,16, 6, 3),I=1,6) /0.5048E+03, 0.7213E+02,
     1 0.1689E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,16, 7, 1),I=1,6) /0.2782E+04, 0.4802E+03,
     1 0.2041E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,16, 7, 2),I=1,6) /0.4804E+03, 0.7555E+02,
     1 0.1812E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,16, 7, 3),I=1,6) /0.4471E+03, 0.7326E+02,
     1 0.2213E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,16, 8, 1),I=1,6) /0.2705E+04, 0.4937E+03,
     1 0.1946E+02, 0.3568E+02, 0.1737E+01, 0.0000E+00/
      DATA (PH1(I,16, 8, 2),I=1,6) /0.4296E+03, 0.8031E+02,
     1 0.1659E+02, 0.2170E+02, 0.4615E+01, 0.0000E+00/
      DATA (PH1(I,16, 8, 3),I=1,6) /0.3791E+03, 0.6911E+02,
     1 0.2970E+03, 0.5519E+02, 0.4011E+01, 0.2178E-01/
      DATA (PH1(I,16, 9, 1),I=1,6) /0.2641E+04, 0.4891E+03,
     1 0.1931E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,16, 9, 2),I=1,6) /0.3797E+03, 0.7905E+02,
     1 0.1462E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,16, 9, 3),I=1,6) /0.3282E+03, 0.7695E+02,
     1 0.2615E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,16,10, 1),I=1,6) /0.2569E+04, 0.4952E+03,
     1 0.1916E+02, 0.3555E+02, 0.1742E+01, 0.0000E+00/
      DATA (PH1(I,16,10, 2),I=1,6) /0.3321E+03, 0.8439E+02,
     1 0.1291E+02, 0.2335E+02, 0.4545E+01, 0.0000E+00/
      DATA (PH1(I,16,10, 3),I=1,6) /0.2809E+03, 0.7813E+02,
     1 0.2751E+03, 0.4495E+02, 0.4110E+01, 0.2108E-01/
      DATA (PH1(I,16,11, 1),I=1,6) /0.2544E+04, 0.4681E+03,
     1 0.2148E+02, 0.4092E+02, 0.1738E+01, 0.0000E+00/
      DATA (PH1(I,16,11, 2),I=1,6) /0.3094E+03, 0.6780E+02,
     1 0.1495E+02, 0.2519E+02, 0.4826E+01, 0.0000E+00/
      DATA (PH1(I,16,11, 3),I=1,6) /0.2557E+03, 0.5747E+02,
     1 0.4712E+03, 0.3610E+02, 0.4742E+01, 0.2480E-01/
      DATA (PH1(I,16,11, 4),I=1,6) /0.8805E+02, 0.1413E+02,
     1 0.9139E+01, 0.1656E+04, 0.3626E+01, 0.0000E+00/
      DATA (PH1(I,16,12, 1),I=1,6) /0.2522E+04, 0.4813E+03,
     1 0.2029E+02, 0.3854E+02, 0.1736E+01, 0.0000E+00/
      DATA (PH1(I,16,12, 2),I=1,6) /0.2888E+03, 0.7355E+02,
     1 0.1407E+02, 0.2397E+02, 0.4754E+01, 0.0000E+00/
      DATA (PH1(I,16,12, 3),I=1,6) /0.2350E+03, 0.7411E+02,
     1 0.2919E+03, 0.4864E+02, 0.4142E+01, 0.2785E-01/
      DATA (PH1(I,16,12, 4),I=1,6) /0.7268E+02, 0.1271E+02,
     1 0.1363E+02, 0.2570E+03, 0.4361E+01, 0.0000E+00/
      DATA (PH1(I,16,13, 1),I=1,6) /0.2502E+04, 0.5523E+03,
     1 0.1504E+02, 0.5527E+02, 0.1517E+01, 0.0000E+00/
      DATA (PH1(I,16,13, 2),I=1,6) /0.2703E+03, 0.8665E+02,
     1 0.1155E+02, 0.3202E+02, 0.4227E+01, 0.0000E+00/
      DATA (PH1(I,16,13, 3),I=1,6) /0.2164E+03, 0.8744E+02,
     1 0.2037E+03, 0.9310E+02, 0.3565E+01, 0.9497E-02/
      DATA (PH1(I,16,13, 4),I=1,6) /0.5750E+02, 0.2143E+02,
     1 0.9080E+01, 0.7224E+03, 0.3618E+01, 0.0000E+00/
      DATA (PH1(I,16,13, 5),I=1,6) /0.4731E+02, 0.3325E+02,
     1 0.1099E+02, 0.3639E+02, 0.5977E+01, 0.3761E+00/
      DATA (PH1(I,16,14, 1),I=1,6) /0.2484E+04, 0.6434E+03,
     1 0.1082E+02, 0.1410E+03, 0.1221E+01, 0.0000E+00/
      DATA (PH1(I,16,14, 2),I=1,6) /0.2536E+03, 0.9233E+02,
     1 0.1048E+02, 0.4007E+02, 0.3968E+01, 0.0000E+00/
      DATA (PH1(I,16,14, 3),I=1,6) /0.1995E+03, 0.9246E+02,
     1 0.1780E+03, 0.1498E+03, 0.3319E+01, 0.2142E-01/
      DATA (PH1(I,16,14, 4),I=1,6) /0.4415E+02, 0.2175E+02,
     1 0.8208E+01, 0.7941E+03, 0.3591E+01, 0.0000E+00/
      DATA (PH1(I,16,14, 5),I=1,6) /0.3483E+02, 0.2934E+02,
     1 0.3702E+02, 0.1445E+02, 0.7321E+01, 0.2989E+00/
      DATA (PH1(I,16,15, 1),I=1,6) /0.2469E+04, 0.7306E+03,
     1 0.8303E+01, 0.7483E+03, 0.9844E+00, 0.0000E+00/
      DATA (PH1(I,16,15, 2),I=1,6) /0.2387E+03, 0.9694E+02,
     1 0.9659E+01, 0.5188E+02, 0.3738E+01, 0.0000E+00/
      DATA (PH1(I,16,15, 3),I=1,6) /0.1846E+03, 0.9058E+02,
     1 0.1896E+03, 0.7538E+02, 0.3635E+01, 0.2934E+00/
      DATA (PH1(I,16,15, 4),I=1,6) /0.3190E+02, 0.2047E+02,
     1 0.7824E+01, 0.2396E+03, 0.3950E+01, 0.0000E+00/
      DATA (PH1(I,16,15, 5),I=1,6) /0.2333E+02, 0.2890E+02,
     1 0.1054E+03, 0.7474E+01, 0.8421E+01, 0.2840E+00/
      DATA (PH1(I,16,16, 1),I=1,6) /0.2477E+04, 0.8114E+03,
     1 0.6649E+01, 0.3734E+04, 0.8646E+00, 0.0000E+00/
      DATA (PH1(I,16,16, 2),I=1,6) /0.2350E+03, 0.1047E+03,
     1 0.8520E+01, 0.9469E+02, 0.3346E+01, 0.0000E+00/
      DATA (PH1(I,16,16, 3),I=1,6) /0.1700E+03, 0.9152E+02,
     1 0.1883E+03, 0.7193E+02, 0.3633E+01, 0.2485E+00/
      DATA (PH1(I,16,16, 4),I=1,6) /0.2130E+02, 0.1916E+02,
     1 0.1003E+02, 0.3296E+02, 0.5038E+01, 0.0000E+00/
      DATA (PH1(I,16,16, 5),I=1,6) /0.1036E+02, 0.2975E+02,
     1 0.5644E+02, 0.1321E+02, 0.7513E+01, 0.2621E+00/
      DATA (PH1(I,17, 1, 1),I=1,6) /0.3946E+04, 0.1247E+03,
     1 0.1894E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,17, 2, 1),I=1,6) /0.3659E+04, 0.4174E+03,
     1 0.3143E+02, 0.3162E+02, 0.2037E+01, 0.0000E+00/
      DATA (PH1(I,17, 3, 1),I=1,6) /0.3534E+04, 0.4432E+03,
     1 0.2956E+02, 0.3058E+02, 0.1953E+01, 0.0000E+00/
      DATA (PH1(I,17, 3, 2),I=1,6) /0.8094E+03, 0.7444E+02,
     1 0.1356E+02, 0.3797E+02, 0.4103E+01, 0.0000E+00/
      DATA (PH1(I,17, 4, 1),I=1,6) /0.3448E+04, 0.4473E+03,
     1 0.2878E+02, 0.2772E+02, 0.1999E+01, 0.0000E+00/
      DATA (PH1(I,17, 4, 2),I=1,6) /0.7498E+03, 0.7310E+02,
     1 0.2449E+02, 0.3044E+02, 0.4421E+01, 0.0000E+00/
      DATA (PH1(I,17, 5, 1),I=1,6) /0.3356E+04, 0.4633E+03,
     1 0.2651E+02, 0.2523E+02, 0.2025E+01, 0.0000E+00/
      DATA (PH1(I,17, 5, 2),I=1,6) /0.6846E+03, 0.1049E+03,
     1 0.1622E+02, 0.2683E+02, 0.4067E+01, 0.0000E+00/
      DATA (PH1(I,17, 5, 3),I=1,6) /0.6567E+03, 0.3905E+02,
     1 0.3845E+03, 0.8984E+02, 0.4272E+01, 0.3017E+00/
      DATA (PH1(I,17, 6, 1),I=1,6) /0.3266E+04, 0.4610E+03,
     1 0.2666E+02, 0.2298E+02, 0.2085E+01, 0.0000E+00/
      DATA (PH1(I,17, 6, 2),I=1,6) /0.6249E+03, 0.9701E+02,
     1 0.1646E+02, 0.2531E+02, 0.4266E+01, 0.0000E+00/
      DATA (PH1(I,17, 6, 3),I=1,6) /0.5920E+03, 0.7621E+02,
     1 0.1831E+03, 0.6513E+02, 0.3852E+01, 0.3987E+00/
      DATA (PH1(I,17, 7, 1),I=1,6) /0.3184E+04, 0.5397E+03,
     1 0.1840E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,17, 7, 2),I=1,6) /0.5660E+03, 0.8450E+02,
     1 0.1684E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,17, 7, 3),I=1,6) /0.5293E+03, 0.8280E+02,
     1 0.2053E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,17, 8, 1),I=1,6) /0.3100E+04, 0.4593E+03,
     1 0.2668E+02, 0.2099E+02, 0.2148E+01, 0.0000E+00/
      DATA (PH1(I,17, 8, 2),I=1,6) /0.5109E+03, 0.9134E+02,
     1 0.1502E+02, 0.2321E+02, 0.4515E+01, 0.0000E+00/
      DATA (PH1(I,17, 8, 3),I=1,6) /0.4556E+03, 0.8470E+02,
     1 0.2378E+03, 0.5655E+02, 0.3889E+01, 0.3329E+00/
      DATA (PH1(I,17, 9, 1),I=1,6) /0.3030E+04, 0.5491E+03,
     1 0.1746E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,17, 9, 2),I=1,6) /0.4565E+03, 0.8818E+02,
     1 0.1375E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,17, 9, 3),I=1,6) /0.4001E+03, 0.8635E+02,
     1 0.2505E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,17,10, 1),I=1,6) /0.2951E+04, 0.4603E+03,
     1 0.2645E+02, 0.1991E+02, 0.2182E+01, 0.0000E+00/
      DATA (PH1(I,17,10, 2),I=1,6) /0.4048E+03, 0.8397E+02,
     1 0.1392E+02, 0.2002E+02, 0.4904E+01, 0.0000E+00/
      DATA (PH1(I,17,10, 3),I=1,6) /0.3483E+03, 0.8434E+02,
     1 0.2880E+03, 0.4019E+02, 0.4242E+01, 0.2672E+00/
      DATA (PH1(I,17,11, 1),I=1,6) /0.2923E+04, 0.4414E+03,
     1 0.2836E+02, 0.2402E+02, 0.2121E+01, 0.0000E+00/
      DATA (PH1(I,17,11, 2),I=1,6) /0.3797E+03, 0.6106E+02,
     1 0.1676E+02, 0.2195E+02, 0.5347E+01, 0.0000E+00/
      DATA (PH1(I,17,11, 3),I=1,6) /0.3207E+03, 0.6471E+02,
     1 0.4512E+03, 0.3950E+02, 0.4637E+01, 0.2356E+00/
      DATA (PH1(I,17,11, 4),I=1,6) /0.1142E+03, 0.1534E+01,
     1 0.6782E+02, 0.1497E+04, 0.4756E+01, 0.0000E+00/
      DATA (PH1(I,17,12, 1),I=1,6) /0.2898E+04, 0.5111E+03,
     1 0.2068E+02, 0.3167E+02, 0.1860E+01, 0.0000E+00/
      DATA (PH1(I,17,12, 2),I=1,6) /0.3566E+03, 0.7233E+02,
     1 0.1520E+02, 0.2042E+02, 0.5148E+01, 0.0000E+00/
      DATA (PH1(I,17,12, 3),I=1,6) /0.2974E+03, 0.7682E+02,
     1 0.3345E+03, 0.3803E+02, 0.4431E+01, 0.2396E+00/
      DATA (PH1(I,17,12, 4),I=1,6) /0.9703E+02, 0.8603E+01,
     1 0.2080E+02, 0.2738E+03, 0.4689E+01, 0.0000E+00/
      DATA (PH1(I,17,13, 1),I=1,6) /0.2875E+04, 0.6130E+03,
     1 0.1391E+02, 0.5524E+02, 0.1527E+01, 0.0000E+00/
      DATA (PH1(I,17,13, 2),I=1,6) /0.3354E+03, 0.8204E+02,
     1 0.1391E+02, 0.2025E+02, 0.4934E+01, 0.0000E+00/
      DATA (PH1(I,17,13, 3),I=1,6) /0.2760E+03, 0.8644E+02,
     1 0.2701E+03, 0.3890E+02, 0.4239E+01, 0.2462E+00/
      DATA (PH1(I,17,13, 4),I=1,6) /0.7997E+02, 0.1825E+02,
     1 0.1148E+02, 0.1976E+03, 0.4245E+01, 0.0000E+00/
      DATA (PH1(I,17,13, 5),I=1,6) /0.6782E+02, 0.3654E+02,
     1 0.1195E+02, 0.3759E+02, 0.6009E+01, 0.4036E+00/
      DATA (PH1(I,17,14, 1),I=1,6) /0.2851E+04, 0.5520E+03,
     1 0.1713E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,17,14, 2),I=1,6) /0.3151E+03, 0.9076E+02,
     1 0.1198E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,17,14, 3),I=1,6) /0.2552E+03, 0.9562E+02,
     1 0.2144E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,17,14, 4),I=1,6) /0.6470E+02, 0.2019E+02,
     1 0.9833E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,17,14, 5),I=1,6) /0.5347E+02, 0.3505E+02,
     1 0.2148E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,17,15, 1),I=1,6) /0.2836E+04, 0.7650E+03,
     1 0.8653E+01, 0.2714E+03, 0.1105E+01, 0.0000E+00/
      DATA (PH1(I,17,15, 2),I=1,6) /0.2979E+03, 0.9151E+02,
     1 0.1265E+02, 0.2088E+02, 0.4703E+01, 0.0000E+00/
      DATA (PH1(I,17,15, 3),I=1,6) /0.2382E+03, 0.9580E+02,
     1 0.2222E+03, 0.4214E+02, 0.4019E+01, 0.2237E+00/
      DATA (PH1(I,17,15, 4),I=1,6) /0.5019E+02, 0.2307E+02,
     1 0.8302E+01, 0.2450E+03, 0.3950E+01, 0.0000E+00/
      DATA (PH1(I,17,15, 5),I=1,6) /0.3961E+02, 0.3460E+02,
     1 0.3044E+02, 0.3383E+02, 0.6261E+01, 0.2707E+00/
      DATA (PH1(I,17,16, 1),I=1,6) /0.2818E+04, 0.5619E+03,
     1 0.1634E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,17,16, 2),I=1,6) /0.2837E+03, 0.9168E+02,
     1 0.1167E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,17,16, 3),I=1,6) /0.2236E+03, 0.9695E+02,
     1 0.2052E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,17,16, 4),I=1,6) /0.3686E+02, 0.2191E+02,
     1 0.7493E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,17,16, 5),I=1,6) /0.2381E+02, 0.3339E+02,
     1 0.4993E+02, 0.1800E+02, 0.7200E+01, 0.2600E+00/
      DATA (PH1(I,17,17, 1),I=1,6) /0.2830E+04, 0.9700E+03,
     1 0.5255E+01, 0.1856E+07, 0.7888E+00, 0.0000E+00/
      DATA (PH1(I,17,17, 2),I=1,6) /0.2780E+03, 0.1092E+03,
     1 0.1059E+02, 0.2491E+02, 0.4205E+01, 0.0000E+00/
      DATA (PH1(I,17,17, 3),I=1,6) /0.2090E+03, 0.8004E+02,
     1 0.3053E+03, 0.3498E+02, 0.4457E+01, 0.2017E+00/
      DATA (PH1(I,17,17, 4),I=1,6) /0.2531E+02, 0.2231E+02,
     1 0.6628E+01, 0.1843E+03, 0.4196E+01, 0.0000E+00/
      DATA (PH1(I,17,17, 5),I=1,6) /0.1297E+02, 0.3398E+02,
     1 0.4539E+02, 0.2232E+02, 0.6896E+01, 0.2479E+00/
      DATA (PH1(I,18, 1, 1),I=1,6) /0.4426E+04, 0.1399E+03,
     1 0.1690E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,18, 2, 1),I=1,6) /0.4121E+04, 0.4468E+03,
     1 0.3108E+02, 0.3039E+02, 0.2092E+01, 0.0000E+00/
      DATA (PH1(I,18, 3, 1),I=1,6) /0.3988E+04, 0.4680E+03,
     1 0.3003E+02, 0.2854E+02, 0.2037E+01, 0.0000E+00/
      DATA (PH1(I,18, 3, 2),I=1,6) /0.9180E+03, 0.5440E+02,
     1 0.1838E+02, 0.4656E+02, 0.4439E+01, 0.0000E+00/
      DATA (PH1(I,18, 4, 1),I=1,6) /0.3898E+04, 0.4756E+03,
     1 0.2883E+02, 0.2615E+02, 0.2074E+01, 0.0000E+00/
      DATA (PH1(I,18, 4, 2),I=1,6) /0.8548E+03, 0.8162E+02,
     1 0.2235E+02, 0.3057E+02, 0.4418E+01, 0.0000E+00/
      DATA (PH1(I,18, 5, 1),I=1,6) /0.3798E+04, 0.4749E+03,
     1 0.2874E+02, 0.2235E+02, 0.2171E+01, 0.0000E+00/
      DATA (PH1(I,18, 5, 2),I=1,6) /0.7856E+03, 0.1086E+03,
     1 0.1606E+02, 0.2688E+02, 0.4173E+01, 0.0000E+00/
      DATA (PH1(I,18, 5, 3),I=1,6) /0.7558E+03, 0.8270E+02,
     1 0.1006E+03, 0.7201E+02, 0.3789E+01, 0.5509E-02/
      DATA (PH1(I,18, 6, 1),I=1,6) /0.3702E+04, 0.4731E+03,
     1 0.2888E+02, 0.2042E+02, 0.2234E+01, 0.0000E+00/
      DATA (PH1(I,18, 6, 2),I=1,6) /0.7217E+03, 0.1081E+03,
     1 0.1515E+02, 0.2572E+02, 0.4251E+01, 0.0000E+00/
      DATA (PH1(I,18, 6, 3),I=1,6) /0.6861E+03, 0.5722E+02,
     1 0.3784E+03, 0.7663E+02, 0.4151E+01, 0.1194E-01/
      DATA (PH1(I,18, 7, 1),I=1,6) /0.3613E+04, 0.6028E+03,
     1 0.1666E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,18, 7, 2),I=1,6) /0.6584E+03, 0.9398E+02,
     1 0.1567E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,18, 7, 3),I=1,6) /0.6183E+03, 0.9297E+02,
     1 0.1904E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,18, 8, 1),I=1,6) /0.3523E+04, 0.4789E+03,
     1 0.2796E+02, 0.1917E+02, 0.2271E+01, 0.0000E+00/
      DATA (PH1(I,18, 8, 2),I=1,6) /0.5992E+03, 0.9884E+02,
     1 0.1431E+02, 0.2351E+02, 0.4545E+01, 0.0000E+00/
      DATA (PH1(I,18, 8, 3),I=1,6) /0.5390E+03, 0.7562E+02,
     1 0.3466E+03, 0.5329E+02, 0.4195E+01, 0.1392E-01/
      DATA (PH1(I,18, 9, 1),I=1,6) /0.3446E+04, 0.6126E+03,
     1 0.1585E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,18, 9, 2),I=1,6) /0.5403E+03, 0.9783E+02,
     1 0.1294E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,18, 9, 3),I=1,6) /0.4787E+03, 0.9639E+02,
     1 0.2389E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,18,10, 1),I=1,6) /0.3361E+04, 0.4679E+03,
     1 0.2931E+02, 0.1744E+02, 0.2362E+01, 0.0000E+00/
      DATA (PH1(I,18,10, 2),I=1,6) /0.4845E+03, 0.9273E+02,
     1 0.1306E+02, 0.2086E+02, 0.4862E+01, 0.0000E+00/
      DATA (PH1(I,18,10, 3),I=1,6) /0.4225E+03, 0.9230E+02,
     1 0.2855E+03, 0.4508E+02, 0.4165E+01, 0.8883E-02/
      DATA (PH1(I,18,11, 1),I=1,6) /0.3331E+04, 0.4486E+03,
     1 0.3143E+02, 0.2008E+02, 0.2315E+01, 0.0000E+00/
      DATA (PH1(I,18,11, 2),I=1,6) /0.4570E+03, 0.6529E+02,
     1 0.1602E+02, 0.2336E+02, 0.5323E+01, 0.0000E+00/
      DATA (PH1(I,18,11, 3),I=1,6) /0.3925E+03, 0.7368E+02,
     1 0.4198E+03, 0.4419E+02, 0.4492E+01, 0.7712E-02/
      DATA (PH1(I,18,11, 4),I=1,6) /0.1435E+03, 0.3884E+01,
     1 0.3295E+02, 0.7082E+03, 0.4645E+01, 0.0000E+00/
      DATA (PH1(I,18,12, 1),I=1,6) /0.3303E+04, 0.6199E+03,
     1 0.1559E+02, 0.4503E+02, 0.1664E+01, 0.0000E+00/
      DATA (PH1(I,18,12, 2),I=1,6) /0.4314E+03, 0.8000E+02,
     1 0.1424E+02, 0.2136E+02, 0.5094E+01, 0.0000E+00/
      DATA (PH1(I,18,12, 3),I=1,6) /0.3667E+03, 0.8563E+02,
     1 0.3204E+03, 0.4230E+02, 0.4329E+01, 0.7258E-02/
      DATA (PH1(I,18,12, 4),I=1,6) /0.1243E+03, 0.8091E+01,
     1 0.2596E+02, 0.3212E+03, 0.4685E+01, 0.0000E+00/
      DATA (PH1(I,18,13, 1),I=1,6) /0.3277E+04, 0.6427E+03,
     1 0.1444E+02, 0.4208E+02, 0.1659E+01, 0.0000E+00/
      DATA (PH1(I,18,13, 2),I=1,6) /0.4076E+03, 0.8974E+02,
     1 0.1313E+02, 0.2094E+02, 0.4919E+01, 0.0000E+00/
      DATA (PH1(I,18,13, 3),I=1,6) /0.3426E+03, 0.9233E+02,
     1 0.2786E+03, 0.4220E+02, 0.4227E+01, 0.7408E-02/
      DATA (PH1(I,18,13, 4),I=1,6) /0.1056E+03, 0.1839E+02,
     1 0.1304E+02, 0.2002E+03, 0.4303E+01, 0.0000E+00/
      DATA (PH1(I,18,13, 5),I=1,6) /0.9101E+02, 0.3564E+02,
     1 0.1418E+02, 0.3945E+02, 0.6194E+01, 0.7398E-01/
      DATA (PH1(I,18,14, 1),I=1,6) /0.3253E+04, 0.6819E+03,
     1 0.1269E+02, 0.4958E+02, 0.1562E+01, 0.0000E+00/
      DATA (PH1(I,18,14, 2),I=1,6) /0.3852E+03, 0.9393E+02,
     1 0.1265E+02, 0.2082E+02, 0.4848E+01, 0.0000E+00/
      DATA (PH1(I,18,14, 3),I=1,6) /0.3200E+03, 0.9835E+02,
     1 0.2474E+03, 0.4284E+02, 0.4125E+01, 0.7283E-02/
      DATA (PH1(I,18,14, 4),I=1,6) /0.8828E+02, 0.2249E+02,
     1 0.1048E+02, 0.2022E+03, 0.4127E+01, 0.0000E+00/
      DATA (PH1(I,18,14, 5),I=1,6) /0.7502E+02, 0.3732E+02,
     1 0.2476E+02, 0.3876E+02, 0.6142E+01, 0.1882E+00/
      DATA (PH1(I,18,15, 1),I=1,6) /0.3228E+04, 0.6171E+03,
     1 0.1548E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,18,15, 2),I=1,6) /0.3642E+03, 0.1010E+03,
     1 0.1120E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,18,15, 3),I=1,6) /0.2987E+03, 0.1073E+03,
     1 0.2007E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,18,15, 4),I=1,6) /0.7174E+02, 0.2269E+02,
     1 0.9306E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,18,15, 5),I=1,6) /0.5981E+02, 0.3958E+02,
     1 0.3058E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,18,16, 1),I=1,6) /0.3211E+04, 0.8408E+03,
     1 0.8071E+01, 0.1847E+03, 0.1160E+01, 0.0000E+00/
      DATA (PH1(I,18,16, 2),I=1,6) /0.3455E+03, 0.1031E+03,
     1 0.1164E+02, 0.2134E+02, 0.4657E+01, 0.0000E+00/
      DATA (PH1(I,18,16, 3),I=1,6) /0.2801E+03, 0.1025E+03,
     1 0.2281E+03, 0.4380E+02, 0.4046E+01, 0.7167E-02/
      DATA (PH1(I,18,16, 4),I=1,6) /0.5637E+02, 0.2612E+02,
     1 0.7899E+01, 0.2318E+03, 0.3961E+01, 0.0000E+00/
      DATA (PH1(I,18,16, 5),I=1,6) /0.4074E+02, 0.3862E+02,
     1 0.3973E+02, 0.3208E+02, 0.6347E+01, 0.2643E+00/
      DATA (PH1(I,18,17, 1),I=1,6) /0.3195E+04, 0.6260E+03,
     1 0.1489E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,18,17, 2),I=1,6) /0.3317E+03, 0.1018E+03,
     1 0.1096E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,18,17, 3),I=1,6) /0.2662E+03, 0.1085E+03,
     1 0.1937E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,18,17, 4),I=1,6) /0.4198E+02, 0.2473E+02,
     1 0.7104E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,18,17, 5),I=1,6) /0.2763E+02, 0.3780E+02,
     1 0.6006E+02, 0.1800E+02, 0.7200E+01, 0.2600E+00/
      DATA (PH1(I,18,18, 1),I=1,6) /0.3203E+04, 0.1135E+04,
     1 0.4280E+01, 0.3285E+08, 0.7631E+00, 0.0000E+00/
      DATA (PH1(I,18,18, 2),I=1,6) /0.3260E+03, 0.1302E+03,
     1 0.9185E+01, 0.2693E+02, 0.4021E+01, 0.0000E+00/
      DATA (PH1(I,18,18, 3),I=1,6) /0.2492E+03, 0.1647E+03,
     1 0.8372E+02, 0.5452E+02, 0.3328E+01, 0.6270E+00/
      DATA (PH1(I,18,18, 4),I=1,6) /0.2892E+02, 0.2525E+02,
     1 0.6394E+01, 0.1700E+03, 0.4223E+01, 0.0000E+00/
      DATA (PH1(I,18,18, 5),I=1,6) /0.1576E+02, 0.3854E+02,
     1 0.4872E+02, 0.2640E+02, 0.6662E+01, 0.2355E+00/
      DATA (PH1(I,19, 1, 1),I=1,6) /0.4934E+04, 0.1559E+03,
     1 0.1517E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,19, 2, 1),I=1,6) /0.4611E+04, 0.5177E+03,
     1 0.2589E+02, 0.3282E+02, 0.2018E+01, 0.0000E+00/
      DATA (PH1(I,19, 3, 1),I=1,6) /0.4471E+04, 0.5376E+03,
     1 0.2534E+02, 0.3129E+02, 0.1966E+01, 0.0000E+00/
      DATA (PH1(I,19, 3, 2),I=1,6) /0.1035E+04, 0.1155E+03,
     1 0.8875E+01, 0.3732E+02, 0.3844E+01, 0.0000E+00/
      DATA (PH1(I,19, 4, 1),I=1,6) /0.4375E+04, 0.5442E+03,
     1 0.2451E+02, 0.2858E+02, 0.2005E+01, 0.0000E+00/
      DATA (PH1(I,19, 4, 2),I=1,6) /0.9680E+03, 0.8979E+02,
     1 0.2067E+02, 0.3141E+02, 0.4401E+01, 0.0000E+00/
      DATA (PH1(I,19, 5, 1),I=1,6) /0.4269E+04, 0.5279E+03,
     1 0.2596E+02, 0.2351E+02, 0.2144E+01, 0.0000E+00/
      DATA (PH1(I,19, 5, 2),I=1,6) /0.8935E+03, 0.1199E+03,
     1 0.1483E+02, 0.2724E+02, 0.4169E+01, 0.0000E+00/
      DATA (PH1(I,19, 5, 3),I=1,6) /0.8611E+03, 0.9596E+02,
     1 0.7963E+02, 0.6368E+02, 0.3884E+01, 0.1487E+01/
      DATA (PH1(I,19, 6, 1),I=1,6) /0.4166E+04, 0.5297E+03,
     1 0.2562E+02, 0.2213E+02, 0.2182E+01, 0.0000E+00/
      DATA (PH1(I,19, 6, 2),I=1,6) /0.8255E+03, 0.1179E+03,
     1 0.1420E+02, 0.2609E+02, 0.4262E+01, 0.0000E+00/
      DATA (PH1(I,19, 6, 3),I=1,6) /0.7867E+03, 0.1054E+03,
     1 0.1244E+03, 0.6541E+02, 0.3764E+01, 0.9280E+00/
      DATA (PH1(I,19, 7, 1),I=1,6) /0.4070E+04, 0.6694E+03,
     1 0.1515E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,19, 7, 2),I=1,6) /0.7578E+03, 0.1040E+03,
     1 0.1460E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,19, 7, 3),I=1,6) /0.7147E+03, 0.1038E+03,
     1 0.1768E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,19, 8, 1),I=1,6) /0.3974E+04, 0.5204E+03,
     1 0.2646E+02, 0.1958E+02, 0.2282E+01, 0.0000E+00/
      DATA (PH1(I,19, 8, 2),I=1,6) /0.6945E+03, 0.1112E+03,
     1 0.1306E+02, 0.2458E+02, 0.4472E+01, 0.0000E+00/
      DATA (PH1(I,19, 8, 3),I=1,6) /0.6295E+03, 0.1376E+03,
     1 0.1164E+03, 0.5816E+02, 0.3609E+01, 0.8872E+00/
      DATA (PH1(I,19, 9, 1),I=1,6) /0.3890E+04, 0.6796E+03,
     1 0.1446E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,19, 9, 2),I=1,6) /0.6310E+03, 0.1080E+03,
     1 0.1218E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,19, 9, 3),I=1,6) /0.5647E+03, 0.1071E+03,
     1 0.2272E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,19,10, 1),I=1,6) /0.3799E+04, 0.5158E+03,
     1 0.2685E+02, 0.1837E+02, 0.2338E+01, 0.0000E+00/
      DATA (PH1(I,19,10, 2),I=1,6) /0.5712E+03, 0.1100E+03,
     1 0.1119E+02, 0.2456E+02, 0.4565E+01, 0.0000E+00/
      DATA (PH1(I,19,10, 3),I=1,6) /0.5038E+03, 0.1558E+03,
     1 0.1104E+03, 0.5635E+02, 0.3554E+01, 0.7774E+00/
      DATA (PH1(I,19,11, 1),I=1,6) /0.3766E+04, 0.5034E+03,
     1 0.2785E+02, 0.2112E+02, 0.2275E+01, 0.0000E+00/
      DATA (PH1(I,19,11, 2),I=1,6) /0.5413E+03, 0.8084E+02,
     1 0.1395E+02, 0.2604E+02, 0.4988E+01, 0.0000E+00/
      DATA (PH1(I,19,11, 3),I=1,6) /0.4713E+03, 0.1737E+03,
     1 0.8545E+02, 0.4865E+02, 0.3547E+01, 0.8892E+00/
      DATA (PH1(I,19,11, 4),I=1,6) /0.1758E+03, 0.1352E+02,
     1 0.1538E+02, 0.7752E+03, 0.3884E+01, 0.0000E+00/
      DATA (PH1(I,19,12, 1),I=1,6) /0.3735E+04, 0.6944E+03,
     1 0.1389E+02, 0.4826E+02, 0.1635E+01, 0.0000E+00/
      DATA (PH1(I,19,12, 2),I=1,6) /0.5133E+03, 0.1060E+03,
     1 0.1113E+02, 0.2784E+02, 0.4499E+01, 0.0000E+00/
      DATA (PH1(I,19,12, 3),I=1,6) /0.4430E+03, 0.1414E+03,
     1 0.1332E+03, 0.5593E+02, 0.3674E+01, 0.7309E+00/
      DATA (PH1(I,19,12, 4),I=1,6) /0.1547E+03, 0.1930E+02,
     1 0.1619E+02, 0.3223E+03, 0.4079E+01, 0.0000E+00/
      DATA (PH1(I,19,13, 1),I=1,6) /0.3706E+04, 0.7193E+03,
     1 0.1288E+02, 0.4554E+02, 0.1628E+01, 0.0000E+00/
      DATA (PH1(I,19,13, 2),I=1,6) /0.4868E+03, 0.1155E+03,
     1 0.1017E+02, 0.2932E+02, 0.4325E+01, 0.0000E+00/
      DATA (PH1(I,19,13, 3),I=1,6) /0.4162E+03, 0.1360E+03,
     1 0.1449E+03, 0.5618E+02, 0.3706E+01, 0.6504E+00/
      DATA (PH1(I,19,13, 4),I=1,6) /0.1344E+03, 0.3470E+02,
     1 0.9467E+01, 0.1032E+04, 0.3365E+01, 0.0000E+00/
      DATA (PH1(I,19,13, 5),I=1,6) /0.1176E+03, 0.4576E+02,
     1 0.1153E+02, 0.6308E+02, 0.5520E+01, 0.2470E+00/
      DATA (PH1(I,19,14, 1),I=1,6) /0.3679E+04, 0.8147E+03,
     1 0.9835E+01, 0.9408E+02, 0.1355E+01, 0.0000E+00/
      DATA (PH1(I,19,14, 2),I=1,6) /0.4618E+03, 0.1184E+03,
     1 0.9849E+01, 0.2972E+02, 0.4280E+01, 0.0000E+00/
      DATA (PH1(I,19,14, 3),I=1,6) /0.3909E+03, 0.2054E+03,
     1 0.5562E+02, 0.1347E+05, 0.2349E+01, 0.5284E+00/
      DATA (PH1(I,19,14, 4),I=1,6) /0.1152E+03, 0.3602E+02,
     1 0.8591E+01, 0.2262E+04, 0.3242E+01, 0.0000E+00/
      DATA (PH1(I,19,14, 5),I=1,6) /0.9944E+02, 0.5453E+02,
     1 0.1638E+02, 0.9114E+02, 0.5035E+01, 0.4138E+00/
      DATA (PH1(I,19,15, 1),I=1,6) /0.3651E+04, 0.6817E+03,
     1 0.1428E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,19,15, 2),I=1,6) /0.4374E+03, 0.1113E+03,
     1 0.1061E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,19,15, 3),I=1,6) /0.3665E+03, 0.1188E+03,
     1 0.1922E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,19,15, 4),I=1,6) /0.9657E+02, 0.2466E+02,
     1 0.9855E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,19,15, 5),I=1,6) /0.8266E+02, 0.4382E+02,
     1 0.3214E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,19,16, 1),I=1,6) /0.3630E+04, 0.8442E+03,
     1 0.9086E+01, 0.8929E+02, 0.1343E+01, 0.0000E+00/
      DATA (PH1(I,19,16, 2),I=1,6) /0.4165E+03, 0.1249E+03,
     1 0.9136E+01, 0.3259E+02, 0.4130E+01, 0.0000E+00/
      DATA (PH1(I,19,16, 3),I=1,6) /0.3452E+03, 0.1876E+03,
     1 0.6770E+02, 0.1658E+08, 0.2363E+01, 0.4546E+00/
      DATA (PH1(I,19,16, 4),I=1,6) /0.7925E+02, 0.3296E+02,
     1 0.7619E+01, 0.1323E+04, 0.3423E+01, 0.0000E+00/
      DATA (PH1(I,19,16, 5),I=1,6) /0.6091E+02, 0.4791E+02,
     1 0.3344E+02, 0.5426E+02, 0.5626E+01, 0.3140E+00/
      DATA (PH1(I,19,17, 1),I=1,6) /0.3611E+04, 0.6897E+03,
     1 0.1383E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,19,17, 2),I=1,6) /0.3990E+03, 0.1121E+03,
     1 0.1039E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,19,17, 3),I=1,6) /0.3279E+03, 0.1199E+03,
     1 0.1862E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,19,17, 4),I=1,6) /0.6269E+02, 0.2670E+02,
     1 0.7455E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,19,17, 5),I=1,6) /0.4581E+02, 0.4055E+02,
     1 0.6784E+02, 0.1800E+02, 0.7200E+01, 0.2600E+00/
      DATA (PH1(I,19,18, 1),I=1,6) /0.3590E+04, 0.1103E+04,
     1 0.5173E+01, 0.2564E+04, 0.8917E+00, 0.0000E+00/
      DATA (PH1(I,19,18, 2),I=1,6) /0.3783E+03, 0.1488E+03,
     1 0.7085E+01, 0.6561E+02, 0.3449E+01, 0.0000E+00/
      DATA (PH1(I,19,18, 3),I=1,6) /0.3067E+03, 0.2286E+03,
     1 0.4199E+02, 0.8731E+07, 0.2239E+01, 0.5560E+00/
      DATA (PH1(I,19,18, 4),I=1,6) /0.4728E+02, 0.2985E+02,
     1 0.6625E+01, 0.3001E+03, 0.3891E+01, 0.0000E+00/
      DATA (PH1(I,19,18, 5),I=1,6) /0.3163E+02, 0.4195E+02,
     1 0.7392E+02, 0.1697E+02, 0.7208E+01, 0.2531E+00/
      DATA (PH1(I,19,19, 1),I=1,6) /0.3614E+04, 0.1171E+04,
     1 0.4540E+01, 0.6165E+04, 0.8392E+00, 0.0000E+00/
      DATA (PH1(I,19,19, 2),I=1,6) /0.3843E+03, 0.1602E+03,
     1 0.6389E+01, 0.1044E+03, 0.3159E+01, 0.0000E+00/
      DATA (PH1(I,19,19, 3),I=1,6) /0.3014E+03, 0.2666E+03,
     1 0.3107E+02, 0.7187E+07, 0.2067E+01, 0.5274E+00/
      DATA (PH1(I,19,19, 4),I=1,6) /0.4080E+02, 0.2910E+02,
     1 0.6377E+01, 0.2229E+04, 0.3587E+01, 0.0000E+00/
      DATA (PH1(I,19,19, 5),I=1,6) /0.2466E+02, 0.4138E+02,
     1 0.2614E+02, 0.2143E+03, 0.5631E+01, 0.2437E+00/
      DATA (PH1(I,19,19, 6),I=1,6) /0.1000E+01, 0.1000E+01,
     1 0.0000E+00, 0.1000E+01, 0.1000E+01, 0.1000E+01/
      DATA (PH1(I,19,19, 7),I=1,6) /0.4341E+01, 0.3824E+01,
     1 0.7363E+00, 0.2410E+08, 0.4427E+01, 0.2049E-03/
      DATA (PH1(I,20, 1, 1),I=1,6) /0.5470E+04, 0.1729E+03,
     1 0.1369E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,20, 2, 1),I=1,6) /0.5129E+04, 0.6297E+03,
     1 0.1936E+02, 0.3921E+02, 0.1862E+01, 0.0000E+00/
      DATA (PH1(I,20, 3, 1),I=1,6) /0.4982E+04, 0.6640E+03,
     1 0.1820E+02, 0.3979E+02, 0.1777E+01, 0.0000E+00/
      DATA (PH1(I,20, 3, 2),I=1,6) /0.1157E+04, 0.9395E+02,
     1 0.1115E+02, 0.3959E+02, 0.4176E+01, 0.0000E+00/
      DATA (PH1(I,20, 4, 1),I=1,6) /0.4880E+04, 0.7235E+03,
     1 0.1486E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,20, 4, 2),I=1,6) /0.1087E+04, 0.1072E+03,
     1 0.1788E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,20, 5, 1),I=1,6) /0.4767E+04, 0.6862E+03,
     1 0.1665E+02, 0.3443E+02, 0.1823E+01, 0.0000E+00/
      DATA (PH1(I,20, 5, 2),I=1,6) /0.1008E+04, 0.1169E+03,
     1 0.1552E+02, 0.2618E+02, 0.4389E+01, 0.0000E+00/
      DATA (PH1(I,20, 5, 3),I=1,6) /0.9745E+03, 0.4041E+02,
     1 0.5215E+03, 0.1044E+03, 0.4452E+01, 0.1164E-04/
      DATA (PH1(I,20, 6, 1),I=1,6) /0.4659E+04, 0.7342E+03,
     1 0.1417E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,20, 6, 2),I=1,6) /0.9357E+03, 0.1122E+03,
     1 0.1490E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,20, 6, 3),I=1,6) /0.8946E+03, 0.1144E+03,
     1 0.1199E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,20, 7, 1),I=1,6) /0.4555E+04, 0.7396E+03,
     1 0.1384E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,20, 7, 2),I=1,6) /0.8642E+03, 0.1145E+03,
     1 0.1363E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,20, 7, 3),I=1,6) /0.8177E+03, 0.1152E+03,
     1 0.1643E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,20, 8, 1),I=1,6) /0.4453E+04, 0.6989E+03,
     1 0.1570E+02, 0.3218E+02, 0.1851E+01, 0.0000E+00/
      DATA (PH1(I,20, 8, 2),I=1,6) /0.7968E+03, 0.1154E+03,
     1 0.1287E+02, 0.2461E+02, 0.4561E+01, 0.0000E+00/
      DATA (PH1(I,20, 8, 3),I=1,6) /0.7267E+03, 0.8942E+02,
     1 0.3336E+03, 0.5766E+02, 0.4171E+01, 0.1104E-04/
      DATA (PH1(I,20, 9, 1),I=1,6) /0.4362E+04, 0.7503E+03,
     1 0.1324E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,20, 9, 2),I=1,6) /0.7287E+03, 0.1187E+03,
     1 0.1147E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,20, 9, 3),I=1,6) /0.6572E+03, 0.1184E+03,
     1 0.2157E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,20,10, 1),I=1,6) /0.4265E+04, 0.7010E+03,
     1 0.1547E+02, 0.3197E+02, 0.1858E+01, 0.0000E+00/
      DATA (PH1(I,20,10, 2),I=1,6) /0.6649E+03, 0.9384E+02,
     1 0.1413E+02, 0.1780E+02, 0.5361E+01, 0.0000E+00/
      DATA (PH1(I,20,10, 3),I=1,6) /0.5919E+03, 0.7052E+02,
     1 0.5909E+03, 0.4129E+02, 0.4878E+01, 0.7117E-05/
      DATA (PH1(I,20,11, 1),I=1,6) /0.4229E+04, 0.6805E+03,
     1 0.1642E+02, 0.3522E+02, 0.1842E+01, 0.0000E+00/
      DATA (PH1(I,20,11, 2),I=1,6) /0.6326E+03, 0.8448E+02,
     1 0.1359E+02, 0.2702E+02, 0.5021E+01, 0.0000E+00/
      DATA (PH1(I,20,11, 3),I=1,6) /0.5569E+03, 0.6511E+02,
     1 0.6616E+03, 0.4371E+02, 0.4937E+01, 0.7881E-05/
      DATA (PH1(I,20,11, 4),I=1,6) /0.2113E+03, 0.1605E+02,
     1 0.1437E+02, 0.6989E+03, 0.3857E+01, 0.0000E+00/
      DATA (PH1(I,20,12, 1),I=1,6) /0.4198E+04, 0.7401E+03,
     1 0.1369E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,20,12, 2),I=1,6) /0.6018E+03, 0.1203E+03,
     1 0.1052E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,20,12, 3),I=1,6) /0.5270E+03, 0.1293E+03,
     1 0.1934E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,20,12, 4),I=1,6) /0.1883E+03, 0.2552E+02,
     1 0.1335E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,20,13, 1),I=1,6) /0.4163E+04, 0.7816E+03,
     1 0.1217E+02, 0.4492E+02, 0.1646E+01, 0.0000E+00/
      DATA (PH1(I,20,13, 2),I=1,6) /0.5732E+03, 0.1243E+03,
     1 0.9859E+01, 0.2823E+02, 0.4388E+01, 0.0000E+00/
      DATA (PH1(I,20,13, 3),I=1,6) /0.4967E+03, 0.1070E+03,
     1 0.2788E+03, 0.4768E+02, 0.4200E+01, 0.4591E-05/
      DATA (PH1(I,20,13, 4),I=1,6) /0.1664E+03, 0.3989E+02,
     1 0.9257E+01, 0.9884E+03, 0.3326E+01, 0.0000E+00/
      DATA (PH1(I,20,13, 5),I=1,6) /0.1472E+03, 0.5202E+02,
     1 0.1127E+02, 0.6821E+02, 0.5408E+01, 0.2204E+00/
      DATA (PH1(I,20,14, 1),I=1,6) /0.4133E+04, 0.8261E+03,
     1 0.1079E+02, 0.5751E+02, 0.1531E+01, 0.0000E+00/
      DATA (PH1(I,20,14, 2),I=1,6) /0.5455E+03, 0.1268E+03,
     1 0.9589E+01, 0.2852E+02, 0.4353E+01, 0.0000E+00/
      DATA (PH1(I,20,14, 3),I=1,6) /0.4687E+03, 0.1208E+03,
     1 0.2181E+03, 0.5816E+02, 0.3907E+01, 0.4346E-05/
      DATA (PH1(I,20,14, 4),I=1,6) /0.1452E+03, 0.4100E+02,
     1 0.8521E+01, 0.1977E+04, 0.3218E+01, 0.0000E+00/
      DATA (PH1(I,20,14, 5),I=1,6) /0.1272E+03, 0.6097E+02,
     1 0.1648E+02, 0.9236E+02, 0.5007E+01, 0.4261E+00/
      DATA (PH1(I,20,15, 1),I=1,6) /0.4105E+04, 0.8505E+03,
     1 0.1012E+02, 0.6416E+02, 0.1482E+01, 0.0000E+00/
      DATA (PH1(I,20,15, 2),I=1,6) /0.5193E+03, 0.1297E+03,
     1 0.9293E+01, 0.2927E+02, 0.4300E+01, 0.0000E+00/
      DATA (PH1(I,20,15, 3),I=1,6) /0.4423E+03, 0.1303E+03,
     1 0.1855E+03, 0.6993E+02, 0.3707E+01, 0.1400E-04/
      DATA (PH1(I,20,15, 4),I=1,6) /0.1249E+03, 0.3994E+02,
     1 0.8068E+01, 0.2341E+04, 0.3235E+01, 0.0000E+00/
      DATA (PH1(I,20,15, 5),I=1,6) /0.1088E+03, 0.5749E+02,
     1 0.2483E+02, 0.7819E+02, 0.5203E+01, 0.3800E+00/
      DATA (PH1(I,20,16, 1),I=1,6) /0.4078E+04, 0.8635E+03,
     1 0.9791E+01, 0.6215E+02, 0.1479E+01, 0.0000E+00/
      DATA (PH1(I,20,16, 2),I=1,6) /0.4948E+03, 0.1315E+03,
     1 0.9126E+01, 0.2928E+02, 0.4281E+01, 0.0000E+00/
      DATA (PH1(I,20,16, 3),I=1,6) /0.4175E+03, 0.1384E+03,
     1 0.1622E+03, 0.8811E+02, 0.3521E+01, 0.4384E-03/
      DATA (PH1(I,20,16, 4),I=1,6) /0.1054E+03, 0.3722E+02,
     1 0.7757E+01, 0.1194E+04, 0.3398E+01, 0.0000E+00/
      DATA (PH1(I,20,16, 5),I=1,6) /0.8451E+02, 0.5673E+02,
     1 0.3044E+02, 0.7647E+02, 0.5265E+01, 0.3557E+00/
      DATA (PH1(I,20,17, 1),I=1,6) /0.4054E+04, 0.9606E+03,
     1 0.7782E+01, 0.1191E+03, 0.1271E+01, 0.0000E+00/
      DATA (PH1(I,20,17, 2),I=1,6) /0.4719E+03, 0.1373E+03,
     1 0.8622E+01, 0.3169E+02, 0.4152E+01, 0.0000E+00/
      DATA (PH1(I,20,17, 3),I=1,6) /0.3944E+03, 0.1413E+03,
     1 0.1542E+03, 0.9906E+02, 0.3446E+01, 0.1107E-02/
      DATA (PH1(I,20,17, 4),I=1,6) /0.8680E+02, 0.3645E+02,
     1 0.7134E+01, 0.1200E+04, 0.3447E+01, 0.0000E+00/
      DATA (PH1(I,20,17, 5),I=1,6) /0.6727E+02, 0.5169E+02,
     1 0.4224E+02, 0.4415E+02, 0.5864E+01, 0.3052E+00/
      DATA (PH1(I,20,18, 1),I=1,6) /0.4032E+04, 0.1003E+04,
     1 0.7079E+01, 0.1108E+03, 0.1256E+01, 0.0000E+00/
      DATA (PH1(I,20,18, 2),I=1,6) /0.4507E+03, 0.1483E+03,
     1 0.7770E+01, 0.3866E+02, 0.3891E+01, 0.0000E+00/
      DATA (PH1(I,20,18, 3),I=1,6) /0.3731E+03, 0.1260E+03,
     1 0.1945E+03, 0.6819E+02, 0.3770E+01, 0.4791E-03/
      DATA (PH1(I,20,18, 4),I=1,6) /0.6920E+02, 0.3504E+02,
     1 0.6596E+01, 0.7909E+03, 0.3588E+01, 0.0000E+00/
      DATA (PH1(I,20,18, 5),I=1,6) /0.5091E+02, 0.4617E+02,
     1 0.7930E+02, 0.1711E+02, 0.7186E+01, 0.2658E+00/
      DATA (PH1(I,20,19, 1),I=1,6) /0.4022E+04, 0.7997E+03,
     1 0.1168E+02, 0.3233E+02, 0.1744E+01, 0.0000E+00/
      DATA (PH1(I,20,19, 2),I=1,6) /0.4415E+03, 0.1335E+03,
     1 0.8939E+01, 0.2914E+02, 0.4269E+01, 0.0000E+00/
      DATA (PH1(I,20,19, 3),I=1,6) /0.3638E+03, 0.1448E+03,
     1 0.1446E+03, 0.1349E+03, 0.3300E+01, 0.3358E-03/
      DATA (PH1(I,20,19, 4),I=1,6) /0.6037E+02, 0.3176E+02,
     1 0.6924E+01, 0.5246E+03, 0.3771E+01, 0.0000E+00/
      DATA (PH1(I,20,19, 5),I=1,6) /0.4090E+02, 0.4498E+02,
     1 0.7314E+02, 0.1898E+02, 0.7152E+01, 0.2735E+00/
      DATA (PH1(I,20,19, 6),I=1,6) /0.1000E+01, 0.1000E+01,
     1 0.0000E+00, 0.1000E+01, 0.1000E+01, 0.1000E+01/
      DATA (PH1(I,20,19, 7),I=1,6) /0.1187E+02, 0.4155E+01,
     1 0.2235E+01, 0.1595E+05, 0.4313E+01, 0.3539E+00/
      DATA (PH1(I,20,20, 1),I=1,6) /0.4043E+04, 0.6947E+03,
     1 0.1586E+02, 0.2563E+02, 0.1966E+01, 0.0000E+00/
      DATA (PH1(I,20,20, 2),I=1,6) /0.4425E+03, 0.1201E+03,
     1 0.1010E+02, 0.2468E+02, 0.4592E+01, 0.0000E+00/
      DATA (PH1(I,20,20, 3),I=1,6) /0.3523E+03, 0.1529E+03,
     1 0.1282E+03, 0.2217E+03, 0.3087E+01, 0.3343E-02/
      DATA (PH1(I,20,20, 4),I=1,6) /0.4830E+02, 0.3012E+02,
     1 0.7227E+01, 0.1736E+03, 0.4165E+01, 0.0000E+00/
      DATA (PH1(I,20,20, 5),I=1,6) /0.3443E+02, 0.4487E+02,
     1 0.9017E+02, 0.1465E+02, 0.7498E+01, 0.2754E+00/
      DATA (PH1(I,20,20, 6),I=1,6) /0.1000E+01, 0.1000E+01,
     1 0.0000E+00, 0.1000E+01, 0.1000E+01, 0.1000E+01/
      DATA (PH1(I,20,20, 7),I=1,6) /0.6113E+01, 0.7366E+01,
     1 0.2373E+01, 0.2082E+03, 0.4841E+01, 0.5841E-03/
      DATA (PH1(I,21, 1, 1),I=1,6) /0.6034E+04, 0.1907E+03,
     1 0.1241E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,21, 2, 1),I=1,6) /0.5675E+04, 0.6267E+03,
     1 0.2182E+02, 0.3452E+02, 0.1998E+01, 0.0000E+00/
      DATA (PH1(I,21, 3, 1),I=1,6) /0.5520E+04, 0.6439E+03,
     1 0.2169E+02, 0.3290E+02, 0.1960E+01, 0.0000E+00/
      DATA (PH1(I,21, 3, 2),I=1,6) /0.1288E+04, 0.1197E+03,
     1 0.8820E+01, 0.3718E+02, 0.4054E+01, 0.0000E+00/
      DATA (PH1(I,21, 4, 1),I=1,6) /0.5413E+04, 0.6607E+03,
     1 0.2038E+02, 0.3109E+02, 0.1971E+01, 0.0000E+00/
      DATA (PH1(I,21, 4, 2),I=1,6) /0.1213E+04, 0.1109E+03,
     1 0.1725E+02, 0.3167E+02, 0.4371E+01, 0.0000E+00/
      DATA (PH1(I,21, 5, 1),I=1,6) /0.5294E+04, 0.6684E+03,
     1 0.1971E+02, 0.2792E+02, 0.2022E+01, 0.0000E+00/
      DATA (PH1(I,21, 5, 2),I=1,6) /0.1130E+04, 0.1386E+03,
     1 0.1325E+02, 0.2785E+02, 0.4218E+01, 0.0000E+00/
      DATA (PH1(I,21, 5, 3),I=1,6) /0.1094E+04, 0.1435E+03,
     1 0.4807E+02, 0.8557E+02, 0.3452E+01, 0.4096E-01/
      DATA (PH1(I,21, 6, 1),I=1,6) /0.5178E+04, 0.6752E+03,
     1 0.1918E+02, 0.2616E+02, 0.2052E+01, 0.0000E+00/
      DATA (PH1(I,21, 6, 2),I=1,6) /0.1054E+04, 0.1367E+03,
     1 0.1270E+02, 0.2670E+02, 0.4303E+01, 0.0000E+00/
      DATA (PH1(I,21, 6, 3),I=1,6) /0.1009E+04, 0.1269E+03,
     1 0.1155E+03, 0.8134E+02, 0.3618E+01, 0.1480E-01/
      DATA (PH1(I,21, 7, 1),I=1,6) /0.5067E+04, 0.8133E+03,
     1 0.1269E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,21, 7, 2),I=1,6) /0.9775E+03, 0.1256E+03,
     1 0.1274E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,21, 7, 3),I=1,6) /0.9275E+03, 0.1273E+03,
     1 0.1529E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,21, 8, 1),I=1,6) /0.4960E+04, 0.6739E+03,
     1 0.1909E+02, 0.2432E+02, 0.2101E+01, 0.0000E+00/
      DATA (PH1(I,21, 8, 2),I=1,6) /0.9062E+03, 0.1274E+03,
     1 0.1195E+02, 0.2504E+02, 0.4532E+01, 0.0000E+00/
      DATA (PH1(I,21, 8, 3),I=1,6) /0.8308E+03, 0.7899E+02,
     1 0.4780E+03, 0.6650E+02, 0.4304E+01, 0.9238E-02/
      DATA (PH1(I,21, 9, 1),I=1,6) /0.4861E+04, 0.8244E+03,
     1 0.1216E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,21, 9, 2),I=1,6) /0.8333E+03, 0.1300E+03,
     1 0.1081E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,21, 9, 3),I=1,6) /0.7567E+03, 0.1304E+03,
     1 0.2045E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,21,10, 1),I=1,6) /0.4759E+04, 0.6781E+03,
     1 0.1869E+02, 0.2393E+02, 0.2110E+01, 0.0000E+00/
      DATA (PH1(I,21,10, 2),I=1,6) /0.7657E+03, 0.1156E+03,
     1 0.1130E+02, 0.2296E+02, 0.4853E+01, 0.0000E+00/
      DATA (PH1(I,21,10, 3),I=1,6) /0.6874E+03, 0.8313E+02,
     1 0.5075E+03, 0.4739E+02, 0.4637E+01, 0.3716E-02/
      DATA (PH1(I,21,11, 1),I=1,6) /0.4720E+04, 0.6682E+03,
     1 0.1915E+02, 0.2701E+02, 0.2060E+01, 0.0000E+00/
      DATA (PH1(I,21,11, 2),I=1,6) /0.7309E+03, 0.7807E+02,
     1 0.1420E+02, 0.2694E+02, 0.5297E+01, 0.0000E+00/
      DATA (PH1(I,21,11, 3),I=1,6) /0.6505E+03, 0.8091E+02,
     1 0.5240E+03, 0.4759E+02, 0.4674E+01, 0.3660E-02/
      DATA (PH1(I,21,11, 4),I=1,6) /0.2498E+03, 0.3414E+01,
     1 0.5976E+02, 0.1109E+04, 0.4577E+01, 0.0000E+00/
      DATA (PH1(I,21,12, 1),I=1,6) /0.4684E+04, 0.7696E+03,
     1 0.1415E+02, 0.3494E+02, 0.1825E+01, 0.0000E+00/
      DATA (PH1(I,21,12, 2),I=1,6) /0.6982E+03, 0.1019E+03,
     1 0.1215E+02, 0.2361E+02, 0.5033E+01, 0.0000E+00/
      DATA (PH1(I,21,12, 3),I=1,6) /0.6173E+03, 0.1007E+03,
     1 0.3568E+03, 0.4400E+02, 0.4463E+01, 0.3640E-02/
      DATA (PH1(I,21,12, 4),I=1,6) /0.2251E+03, 0.1104E+02,
     1 0.2980E+02, 0.3451E+03, 0.4545E+01, 0.0000E+00/
      DATA (PH1(I,21,13, 1),I=1,6) /0.4649E+04, 0.8283E+03,
     1 0.1206E+02, 0.4105E+02, 0.1707E+01, 0.0000E+00/
      DATA (PH1(I,21,13, 2),I=1,6) /0.6666E+03, 0.1131E+03,
     1 0.1124E+02, 0.2303E+02, 0.4893E+01, 0.0000E+00/
      DATA (PH1(I,21,13, 3),I=1,6) /0.5852E+03, 0.1050E+03,
     1 0.3290E+03, 0.4379E+02, 0.4411E+01, 0.3675E-02/
      DATA (PH1(I,21,13, 4),I=1,6) /0.2015E+03, 0.1499E+02,
     1 0.2155E+02, 0.2761E+03, 0.4455E+01, 0.0000E+00/
      DATA (PH1(I,21,13, 5),I=1,6) /0.1800E+03, 0.4763E+02,
     1 0.1441E+02, 0.4454E+02, 0.6085E+01, 0.5576E-02/
      DATA (PH1(I,21,14, 1),I=1,6) /0.4615E+04, 0.9428E+03,
     1 0.9117E+01, 0.7840E+02, 0.1428E+01, 0.0000E+00/
      DATA (PH1(I,21,14, 2),I=1,6) /0.6362E+03, 0.1182E+03,
     1 0.1081E+02, 0.2278E+02, 0.4836E+01, 0.0000E+00/
      DATA (PH1(I,21,14, 3),I=1,6) /0.5544E+03, 0.1106E+03,
     1 0.2980E+03, 0.4355E+02, 0.4348E+01, 0.3645E-02/
      DATA (PH1(I,21,14, 4),I=1,6) /0.1784E+03, 0.2031E+02,
     1 0.1547E+02, 0.2264E+03, 0.4346E+01, 0.0000E+00/
      DATA (PH1(I,21,14, 5),I=1,6) /0.1581E+03, 0.4941E+02,
     1 0.2617E+02, 0.4344E+02, 0.6056E+01, 0.6050E-02/
      DATA (PH1(I,21,15, 1),I=1,6) /0.4582E+04, 0.8245E+03,
     1 0.1210E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,21,15, 2),I=1,6) /0.6052E+03, 0.1335E+03,
     1 0.9523E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,21,15, 3),I=1,6) /0.5236E+03, 0.1434E+03,
     1 0.1765E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,21,15, 4),I=1,6) /0.1557E+03, 0.2891E+02,
     1 0.1052E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,21,15, 5),I=1,6) /0.1380E+03, 0.5322E+02,
     1 0.3348E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,21,16, 1),I=1,6) /0.4554E+04, 0.9555E+03,
     1 0.8840E+01, 0.7637E+02, 0.1426E+01, 0.0000E+00/
      DATA (PH1(I,21,16, 2),I=1,6) /0.5803E+03, 0.1249E+03,
     1 0.1026E+02, 0.2249E+02, 0.4764E+01, 0.0000E+00/
      DATA (PH1(I,21,16, 3),I=1,6) /0.4977E+03, 0.1266E+03,
     1 0.2303E+03, 0.4517E+02, 0.4139E+01, 0.3408E-02/
      DATA (PH1(I,21,16, 4),I=1,6) /0.1348E+03, 0.2899E+02,
     1 0.9855E+01, 0.1921E+03, 0.4175E+01, 0.0000E+00/
      DATA (PH1(I,21,16, 5),I=1,6) /0.1107E+03, 0.5034E+02,
     1 0.4505E+02, 0.3882E+02, 0.6159E+01, 0.6694E-02/
      DATA (PH1(I,21,17, 1),I=1,6) /0.4528E+04, 0.8307E+03,
     1 0.1185E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,21,17, 2),I=1,6) /0.5552E+03, 0.1344E+03,
     1 0.9326E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,21,17, 3),I=1,6) /0.4730E+03, 0.1444E+03,
     1 0.1721E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,21,17, 4),I=1,6) /0.1141E+03, 0.3036E+02,
     1 0.8550E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,21,17, 5),I=1,6) /0.9187E+02, 0.5439E+02,
     1 0.4585E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,21,18, 1),I=1,6) /0.4502E+04, 0.9957E+03,
     1 0.8077E+01, 0.7124E+02, 0.1415E+01, 0.0000E+00/
      DATA (PH1(I,21,18, 2),I=1,6) /0.5306E+03, 0.1371E+03,
     1 0.9401E+01, 0.2320E+02, 0.4579E+01, 0.0000E+00/
      DATA (PH1(I,21,18, 3),I=1,6) /0.4476E+03, 0.1422E+03,
     1 0.1820E+03, 0.5428E+02, 0.3854E+01, 0.3269E-02/
      DATA (PH1(I,21,18, 4),I=1,6) /0.9451E+02, 0.3451E+02,
     1 0.7316E+01, 0.1881E+03, 0.4071E+01, 0.0000E+00/
      DATA (PH1(I,21,18, 5),I=1,6) /0.7349E+02, 0.5468E+02,
     1 0.5377E+02, 0.3321E+02, 0.6239E+01, 0.2941E+00/
      DATA (PH1(I,21,19, 1),I=1,6) /0.4483E+04, 0.1030E+04,
     1 0.7512E+01, 0.6545E+02, 0.1410E+01, 0.0000E+00/
      DATA (PH1(I,21,19, 2),I=1,6) /0.5115E+03, 0.1443E+03,
     1 0.8939E+01, 0.2406E+02, 0.4456E+01, 0.0000E+00/
      DATA (PH1(I,21,19, 3),I=1,6) /0.4285E+03, 0.1348E+03,
     1 0.2014E+03, 0.5215E+02, 0.3952E+01, 0.3368E-02/
      DATA (PH1(I,21,19, 4),I=1,6) /0.7762E+02, 0.3513E+02,
     1 0.6785E+01, 0.1898E+03, 0.4068E+01, 0.0000E+00/
      DATA (PH1(I,21,19, 5),I=1,6) /0.5591E+02, 0.5169E+02,
     1 0.5465E+02, 0.2788E+02, 0.6613E+01, 0.2567E+00/
      DATA (PH1(I,21,19, 6),I=1,6) /0.2476E+02, 0.2183E+02,
     1 0.8459E+02, 0.6603E+02, 0.6452E+01, 0.3890E+00/
      DATA (PH1(I,21,20, 1),I=1,6) /0.4474E+04, 0.7669E+03,
     1 0.1437E+02, 0.2629E+02, 0.1953E+01, 0.0000E+00/
      DATA (PH1(I,21,20, 2),I=1,6) /0.5020E+03, 0.1274E+03,
     1 0.1003E+02, 0.2215E+02, 0.4755E+01, 0.0000E+00/
      DATA (PH1(I,21,20, 3),I=1,6) /0.4190E+03, 0.1472E+03,
     1 0.1711E+03, 0.5517E+02, 0.3796E+01, 0.3289E-02/
      DATA (PH1(I,21,20, 4),I=1,6) /0.6848E+02, 0.3246E+02,
     1 0.6970E+01, 0.1757E+03, 0.4198E+01, 0.0000E+00/
      DATA (PH1(I,21,20, 5),I=1,6) /0.4678E+02, 0.4990E+02,
     1 0.5795E+02, 0.2476E+02, 0.6870E+01, 0.2658E+00/
      DATA (PH1(I,21,20, 6),I=1,6) /0.1444E+02, 0.1611E+02,
     1 0.1269E+03, 0.5229E+02, 0.7300E+01, 0.3103E+00/
      DATA (PH1(I,21,20, 7),I=1,6) /0.1280E+02, 0.3837E+01,
     1 0.1909E+01, 0.5825E+03, 0.5018E+01, 0.1415E-01/
      DATA (PH1(I,21,21, 1),I=1,6) /0.4494E+04, 0.7367E+03,
     1 0.1554E+02, 0.2940E+02, 0.1937E+01, 0.0000E+00/
      DATA (PH1(I,21,21, 2),I=1,6) /0.5032E+03, 0.1180E+03,
     1 0.1065E+02, 0.2172E+02, 0.4911E+01, 0.0000E+00/
      DATA (PH1(I,21,21, 3),I=1,6) /0.4054E+03, 0.1593E+03,
     1 0.1473E+03, 0.6007E+02, 0.3635E+01, 0.3208E-02/
      DATA (PH1(I,21,21, 4),I=1,6) /0.5640E+02, 0.3284E+02,
     1 0.6849E+01, 0.1709E+03, 0.4207E+01, 0.0000E+00/
      DATA (PH1(I,21,21, 5),I=1,6) /0.3360E+02, 0.4936E+02,
     1 0.6176E+02, 0.2186E+02, 0.7081E+01, 0.2671E+00/
      DATA (PH1(I,21,21, 6),I=1,6) /0.8010E+01, 0.9733E+01,
     1 0.2488E+03, 0.2066E+02, 0.1022E+02, 0.3104E+00/
      DATA (PH1(I,21,21, 7),I=1,6) /0.7342E+01, 0.8324E+01,
     1 0.2252E+01, 0.4118E+03, 0.4588E+01, 0.1441E-03/
      DATA (PH1(I,22, 1, 1),I=1,6) /0.6626E+04, 0.2094E+03,
     1 0.1131E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,22, 2, 1),I=1,6) /0.6249E+04, 0.8656E+03,
     1 0.1234E+02, 0.5893E+02, 0.1622E+01, 0.0000E+00/
      DATA (PH1(I,22, 3, 1),I=1,6) /0.6087E+04, 0.8854E+03,
     1 0.1240E+02, 0.8225E+02, 0.1477E+01, 0.0000E+00/
      DATA (PH1(I,22, 3, 2),I=1,6) /0.1425E+04, 0.1025E+03,
     1 0.1038E+02, 0.4131E+02, 0.4265E+01, 0.0000E+00/
      DATA (PH1(I,22, 4, 1),I=1,6) /0.5974E+04, 0.7415E+03,
     1 0.1773E+02, 0.3385E+02, 0.1915E+01, 0.0000E+00/
      DATA (PH1(I,22, 4, 2),I=1,6) /0.1346E+04, 0.1388E+03,
     1 0.1408E+02, 0.3133E+02, 0.4198E+01, 0.0000E+00/
      DATA (PH1(I,22, 5, 1),I=1,6) /0.5848E+04, 0.7545E+03,
     1 0.1694E+02, 0.3060E+02, 0.1955E+01, 0.0000E+00/
      DATA (PH1(I,22, 5, 2),I=1,6) /0.1260E+04, 0.1433E+03,
     1 0.1296E+02, 0.2842E+02, 0.4278E+01, 0.0000E+00/
      DATA (PH1(I,22, 5, 3),I=1,6) /0.1221E+04, 0.1686E+03,
     1 0.3856E+02, 0.9198E+02, 0.3355E+01, 0.3372E-04/
      DATA (PH1(I,22, 6, 1),I=1,6) /0.5726E+04, 0.7617E+03,
     1 0.1648E+02, 0.2934E+02, 0.1972E+01, 0.0000E+00/
      DATA (PH1(I,22, 6, 2),I=1,6) /0.1179E+04, 0.1419E+03,
     1 0.1240E+02, 0.2693E+02, 0.4373E+01, 0.0000E+00/
      DATA (PH1(I,22, 6, 3),I=1,6) /0.1131E+04, 0.1291E+03,
     1 0.1268E+03, 0.8686E+02, 0.3655E+01, 0.1321E-04/
      DATA (PH1(I,22, 7, 1),I=1,6) /0.5607E+04, 0.8905E+03,
     1 0.1167E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,22, 7, 2),I=1,6) /0.1098E+04, 0.1372E+03,
     1 0.1192E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,22, 7, 3),I=1,6) /0.1044E+04, 0.1401E+03,
     1 0.1425E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,22, 8, 1),I=1,6) /0.5495E+04, 0.7690E+03,
     1 0.1599E+02, 0.2789E+02, 0.1997E+01, 0.0000E+00/
      DATA (PH1(I,22, 8, 2),I=1,6) /0.1022E+04, 0.1341E+03,
     1 0.1154E+02, 0.2533E+02, 0.4576E+01, 0.0000E+00/
      DATA (PH1(I,22, 8, 3),I=1,6) /0.9419E+03, 0.1084E+03,
     1 0.2972E+03, 0.6609E+02, 0.4056E+01, 0.1465E-04/
      DATA (PH1(I,22, 9, 1),I=1,6) /0.5387E+04, 0.9021E+03,
     1 0.1121E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,22, 9, 2),I=1,6) /0.9448E+03, 0.1417E+03,
     1 0.1019E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,22, 9, 3),I=1,6) /0.8631E+03, 0.1430E+03,
     1 0.1937E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,22,10, 1),I=1,6) /0.5281E+04, 0.7712E+03,
     1 0.1576E+02, 0.2765E+02, 0.2005E+01, 0.0000E+00/
      DATA (PH1(I,22,10, 2),I=1,6) /0.8734E+03, 0.1250E+03,
     1 0.1070E+02, 0.2364E+02, 0.4830E+01, 0.0000E+00/
      DATA (PH1(I,22,10, 3),I=1,6) /0.7878E+03, 0.9852E+02,
     1 0.4256E+03, 0.4955E+02, 0.4485E+01, 0.1750E-04/
      DATA (PH1(I,22,11, 1),I=1,6) /0.5239E+04, 0.7394E+03,
     1 0.1717E+02, 0.2884E+02, 0.2020E+01, 0.0000E+00/
      DATA (PH1(I,22,11, 2),I=1,6) /0.8363E+03, 0.9240E+02,
     1 0.1291E+02, 0.2687E+02, 0.5160E+01, 0.0000E+00/
      DATA (PH1(I,22,11, 3),I=1,6) /0.7511E+03, 0.9404E+02,
     1 0.4550E+03, 0.5003E+02, 0.4543E+01, 0.1753E-04/
      DATA (PH1(I,22,11, 4),I=1,6) /0.2915E+03, 0.3359E+01,
     1 0.6875E+02, 0.1244E+04, 0.4559E+01, 0.0000E+00/
      DATA (PH1(I,22,12, 1),I=1,6) /0.5200E+04, 0.9318E+03,
     1 0.1045E+02, 0.5288E+02, 0.1604E+01, 0.0000E+00/
      DATA (PH1(I,22,12, 2),I=1,6) /0.8013E+03, 0.1259E+03,
     1 0.1049E+02, 0.2445E+02, 0.4779E+01, 0.0000E+00/
      DATA (PH1(I,22,12, 3),I=1,6) /0.7156E+03, 0.1122E+03,
     1 0.3306E+03, 0.4701E+02, 0.4376E+01, 0.1686E-04/
      DATA (PH1(I,22,12, 4),I=1,6) /0.2650E+03, 0.9778E+01,
     1 0.3726E+02, 0.4225E+03, 0.4552E+01, 0.0000E+00/
      DATA (PH1(I,22,13, 1),I=1,6) /0.5162E+04, 0.9469E+03,
     1 0.1008E+02, 0.5127E+02, 0.1603E+01, 0.0000E+00/
      DATA (PH1(I,22,13, 2),I=1,6) /0.7670E+03, 0.1254E+03,
     1 0.1046E+02, 0.2368E+02, 0.4830E+01, 0.0000E+00/
      DATA (PH1(I,22,13, 3),I=1,6) /0.6807E+03, 0.1133E+03,
     1 0.3222E+03, 0.4654E+02, 0.4373E+01, 0.1686E-04/
      DATA (PH1(I,22,13, 4),I=1,6) /0.2397E+03, 0.1712E+02,
     1 0.2117E+02, 0.2738E+03, 0.4407E+01, 0.0000E+00/
      DATA (PH1(I,22,13, 5),I=1,6) /0.2159E+03, 0.5265E+02,
     1 0.1405E+02, 0.4648E+02, 0.6025E+01, 0.8018E-02/
      DATA (PH1(I,22,14, 1),I=1,6) /0.5126E+04, 0.9454E+03,
     1 0.1011E+02, 0.5151E+02, 0.1603E+01, 0.0000E+00/
      DATA (PH1(I,22,14, 2),I=1,6) /0.7342E+03, 0.1245E+03,
     1 0.1045E+02, 0.2319E+02, 0.4873E+01, 0.0000E+00/
      DATA (PH1(I,22,14, 3),I=1,6) /0.6473E+03, 0.1160E+03,
     1 0.3065E+03, 0.4592E+02, 0.4355E+01, 0.1680E-04/
      DATA (PH1(I,22,14, 4),I=1,6) /0.2148E+03, 0.1736E+02,
     1 0.1941E+02, 0.2691E+03, 0.4420E+01, 0.0000E+00/
      DATA (PH1(I,22,14, 5),I=1,6) /0.1921E+03, 0.5337E+02,
     1 0.2611E+02, 0.4514E+02, 0.6042E+01, 0.7441E-02/
      DATA (PH1(I,22,15, 1),I=1,6) /0.5089E+04, 0.9027E+03,
     1 0.1114E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,22,15, 2),I=1,6) /0.6999E+03, 0.1454E+03,
     1 0.9019E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,22,15, 3),I=1,6) /0.6129E+03, 0.1565E+03,
     1 0.1694E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,22,15, 4),I=1,6) /0.1900E+03, 0.3119E+02,
     1 0.1069E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,22,15, 5),I=1,6) /0.1704E+03, 0.5839E+02,
     1 0.3348E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,22,16, 1),I=1,6) /0.5059E+04, 0.9613E+03,
     1 0.9746E+01, 0.5327E+02, 0.1581E+01, 0.0000E+00/
      DATA (PH1(I,22,16, 2),I=1,6) /0.6729E+03, 0.1313E+03,
     1 0.9948E+01, 0.2269E+02, 0.4817E+01, 0.0000E+00/
      DATA (PH1(I,22,16, 3),I=1,6) /0.5853E+03, 0.1296E+03,
     1 0.2477E+03, 0.4576E+02, 0.4216E+01, 0.1795E-04/
      DATA (PH1(I,22,16, 4),I=1,6) /0.1673E+03, 0.2786E+02,
     1 0.1099E+02, 0.1974E+03, 0.4259E+01, 0.0000E+00/
      DATA (PH1(I,22,16, 5),I=1,6) /0.1408E+03, 0.5484E+02,
     1 0.4527E+02, 0.3999E+02, 0.6137E+01, 0.9213E-02/
      DATA (PH1(I,22,17, 1),I=1,6) /0.5029E+04, 0.9080E+03,
     1 0.1096E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,22,17, 2),I=1,6) /0.6441E+03, 0.1464E+03,
     1 0.8835E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,22,17, 3),I=1,6) /0.5563E+03, 0.1574E+03,
     1 0.1656E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,22,17, 4),I=1,6) /0.1445E+03, 0.3258E+02,
     1 0.8817E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,22,17, 5),I=1,6) /0.1195E+03, 0.5940E+02,
     1 0.4665E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,22,18, 1),I=1,6) /0.4999E+04, 0.1031E+04,
     1 0.8364E+01, 0.6468E+02, 0.1478E+01, 0.0000E+00/
      DATA (PH1(I,22,18, 2),I=1,6) /0.6178E+03, 0.1446E+03,
     1 0.9107E+01, 0.2319E+02, 0.4635E+01, 0.0000E+00/
      DATA (PH1(I,22,18, 3),I=1,6) /0.5296E+03, 0.1466E+03,
     1 0.1952E+03, 0.4874E+02, 0.4006E+01, 0.1732E-04/
      DATA (PH1(I,22,18, 4),I=1,6) /0.1231E+03, 0.3545E+02,
     1 0.7729E+01, 0.1792E+03, 0.4142E+01, 0.0000E+00/
      DATA (PH1(I,22,18, 5),I=1,6) /0.9930E+02, 0.5902E+02,
     1 0.5520E+02, 0.3434E+02, 0.6226E+01, 0.2921E+00/
      DATA (PH1(I,22,19, 1),I=1,6) /0.4978E+04, 0.1048E+04,
     1 0.8085E+01, 0.6252E+02, 0.1476E+01, 0.0000E+00/
      DATA (PH1(I,22,19, 2),I=1,6) /0.5949E+03, 0.1452E+03,
     1 0.9082E+01, 0.2289E+02, 0.4645E+01, 0.0000E+00/
      DATA (PH1(I,22,19, 3),I=1,6) /0.5066E+03, 0.1497E+03,
     1 0.1878E+03, 0.4955E+02, 0.3967E+01, 0.1717E-04/
      DATA (PH1(I,22,19, 4),I=1,6) /0.1035E+03, 0.3700E+02,
     1 0.6988E+01, 0.1778E+03, 0.4126E+01, 0.0000E+00/
      DATA (PH1(I,22,19, 5),I=1,6) /0.7917E+02, 0.5872E+02,
     1 0.5237E+02, 0.3131E+02, 0.6379E+01, 0.2839E+00/
      DATA (PH1(I,22,19, 6),I=1,6) /0.4327E+02, 0.2624E+02,
     1 0.9279E+02, 0.6851E+02, 0.6300E+01, 0.3297E+00/
      DATA (PH1(I,22,20, 1),I=1,6) /0.4959E+04, 0.1086E+04,
     1 0.7494E+01, 0.5795E+02, 0.1469E+01, 0.0000E+00/
      DATA (PH1(I,22,20, 2),I=1,6) /0.5752E+03, 0.1542E+03,
     1 0.8585E+01, 0.2370E+02, 0.4508E+01, 0.0000E+00/
      DATA (PH1(I,22,20, 3),I=1,6) /0.4870E+03, 0.1508E+03,
     1 0.1834E+03, 0.5660E+02, 0.3868E+01, 0.1691E-04/
      DATA (PH1(I,22,20, 4),I=1,6) /0.8603E+02, 0.3786E+02,
     1 0.6489E+01, 0.1768E+03, 0.4124E+01, 0.0000E+00/
      DATA (PH1(I,22,20, 5),I=1,6) /0.6201E+02, 0.5643E+02,
     1 0.5284E+02, 0.2686E+02, 0.6696E+01, 0.2571E+00/
      DATA (PH1(I,22,20, 6),I=1,6) /0.2749E+02, 0.2399E+02,
     1 0.1731E+03, 0.5474E+02, 0.6742E+01, 0.3650E+00/
      DATA (PH1(I,22,21, 1),I=1,6) /0.4949E+04, 0.6950E+03,
     1 0.1983E+02, 0.1966E+02, 0.2290E+01, 0.0000E+00/
      DATA (PH1(I,22,21, 2),I=1,6) /0.5654E+03, 0.1312E+03,
     1 0.9886E+01, 0.2185E+02, 0.4872E+01, 0.0000E+00/
      DATA (PH1(I,22,21, 3),I=1,6) /0.4772E+03, 0.1630E+03,
     1 0.1584E+03, 0.5914E+02, 0.3739E+01, 0.1643E-04/
      DATA (PH1(I,22,21, 4),I=1,6) /0.7654E+02, 0.3518E+02,
     1 0.6620E+01, 0.1617E+03, 0.4260E+01, 0.0000E+00/
      DATA (PH1(I,22,21, 5),I=1,6) /0.5253E+02, 0.5494E+02,
     1 0.5561E+02, 0.2416E+02, 0.6917E+01, 0.2642E+00/
      DATA (PH1(I,22,21, 6),I=1,6) /0.1613E+02, 0.1771E+02,
     1 0.2597E+03, 0.3909E+02, 0.7825E+01, 0.2982E+00/
      DATA (PH1(I,22,21, 7),I=1,6) /0.1358E+02, 0.5011E+01,
     1 0.1639E+01, 0.5095E+03, 0.4958E+01, 0.1633E-02/
      DATA (PH1(I,22,22, 1),I=1,6) /0.4972E+04, 0.6826E+03,
     1 0.2029E+02, 0.2415E+02, 0.2187E+01, 0.0000E+00/
      DATA (PH1(I,22,22, 2),I=1,6) /0.5690E+03, 0.1177E+03,
     1 0.1068E+02, 0.2144E+02, 0.5085E+01, 0.0000E+00/
      DATA (PH1(I,22,22, 3),I=1,6) /0.4640E+03, 0.1814E+03,
     1 0.1291E+03, 0.6629E+02, 0.3531E+01, 0.5519E-04/
      DATA (PH1(I,22,22, 4),I=1,6) /0.6500E+02, 0.3562E+02,
     1 0.6517E+01, 0.1572E+03, 0.4268E+01, 0.0000E+00/
      DATA (PH1(I,22,22, 5),I=1,6) /0.4000E+02, 0.5424E+02,
     1 0.5924E+02, 0.2151E+02, 0.7123E+01, 0.2645E+00/
      DATA (PH1(I,22,22, 6),I=1,6) /0.9940E+01, 0.1102E+02,
     1 0.5478E+03, 0.1610E+02, 0.1096E+02, 0.2972E+00/
      DATA (PH1(I,22,22, 7),I=1,6) /0.6820E+01, 0.9184E+01,
     1 0.2167E+01, 0.4297E+03, 0.4552E+01, 0.3612E-02/
      DATA (PH1(I,23, 1, 1),I=1,6) /0.7246E+04, 0.2290E+03,
     1 0.1035E+03, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,23, 2, 1),I=1,6) /0.6852E+04, 0.7669E+03,
     1 0.1757E+02, 0.3884E+02, 0.1928E+01, 0.0000E+00/
      DATA (PH1(I,23, 3, 1),I=1,6) /0.6682E+04, 0.7973E+03,
     1 0.1694E+02, 0.3805E+02, 0.1874E+01, 0.0000E+00/
      DATA (PH1(I,23, 3, 2),I=1,6) /0.1570E+04, 0.4820E+02,
     1 0.1999E+02, 0.7258E+02, 0.4724E+01, 0.0000E+00/
      DATA (PH1(I,23, 4, 1),I=1,6) /0.6563E+04, 0.8146E+03,
     1 0.1606E+02, 0.3587E+02, 0.1887E+01, 0.0000E+00/
      DATA (PH1(I,23, 4, 2),I=1,6) /0.1487E+04, 0.1341E+03,
     1 0.1463E+02, 0.3226E+02, 0.4336E+01, 0.0000E+00/
      DATA (PH1(I,23, 5, 1),I=1,6) /0.6431E+04, 0.8301E+03,
     1 0.1528E+02, 0.3284E+02, 0.1918E+01, 0.0000E+00/
      DATA (PH1(I,23, 5, 2),I=1,6) /0.1396E+04, 0.1597E+03,
     1 0.1178E+02, 0.2849E+02, 0.4246E+01, 0.0000E+00/
      DATA (PH1(I,23, 5, 3),I=1,6) /0.1355E+04, 0.1329E+03,
     1 0.7374E+02, 0.1017E+03, 0.3596E+01, 0.2681E-01/
      DATA (PH1(I,23, 6, 1),I=1,6) /0.6302E+04, 0.8379E+03,
     1 0.1487E+02, 0.3151E+02, 0.1935E+01, 0.0000E+00/
      DATA (PH1(I,23, 6, 2),I=1,6) /0.1311E+04, 0.1437E+03,
     1 0.1233E+02, 0.2743E+02, 0.4461E+01, 0.0000E+00/
      DATA (PH1(I,23, 6, 3),I=1,6) /0.1260E+04, 0.1761E+03,
     1 0.7417E+02, 0.9459E+02, 0.3402E+01, 0.1814E-01/
      DATA (PH1(I,23, 7, 1),I=1,6) /0.6174E+04, 0.9714E+03,
     1 0.1078E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,23, 7, 2),I=1,6) /0.1225E+04, 0.1493E+03,
     1 0.1118E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,23, 7, 3),I=1,6) /0.1168E+04, 0.1535E+03,
     1 0.1330E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,23, 8, 1),I=1,6) /0.6058E+04, 0.8454E+03,
     1 0.1444E+02, 0.3020E+02, 0.1955E+01, 0.0000E+00/
      DATA (PH1(I,23, 8, 2),I=1,6) /0.1146E+04, 0.1434E+03,
     1 0.1098E+02, 0.2603E+02, 0.4573E+01, 0.0000E+00/
      DATA (PH1(I,23, 8, 3),I=1,6) /0.1060E+04, 0.1412E+03,
     1 0.1992E+03, 0.6905E+02, 0.3834E+01, 0.1640E-01/
      DATA (PH1(I,23, 9, 1),I=1,6) /0.5941E+04, 0.9834E+03,
     1 0.1036E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,23, 9, 2),I=1,6) /0.1063E+04, 0.1540E+03,
     1 0.9623E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,23, 9, 3),I=1,6) /0.9758E+03, 0.1562E+03,
     1 0.1835E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,23,10, 1),I=1,6) /0.5831E+04, 0.8491E+03,
     1 0.1420E+02, 0.2950E+02, 0.1968E+01, 0.0000E+00/
      DATA (PH1(I,23,10, 2),I=1,6) /0.9883E+03, 0.1272E+03,
     1 0.1058E+02, 0.2434E+02, 0.4902E+01, 0.0000E+00/
      DATA (PH1(I,23,10, 3),I=1,6) /0.8960E+03, 0.1198E+03,
     1 0.3365E+03, 0.5275E+02, 0.4289E+01, 0.1591E-01/
      DATA (PH1(I,23,11, 1),I=1,6) /0.5787E+04, 0.8254E+03,
     1 0.1504E+02, 0.3096E+02, 0.1969E+01, 0.0000E+00/
      DATA (PH1(I,23,11, 2),I=1,6) /0.9488E+03, 0.9010E+02,
     1 0.1292E+02, 0.2883E+02, 0.5244E+01, 0.0000E+00/
      DATA (PH1(I,23,11, 3),I=1,6) /0.8589E+03, 0.1178E+03,
     1 0.3418E+03, 0.5198E+02, 0.4329E+01, 0.1528E-01/
      DATA (PH1(I,23,11, 4),I=1,6) /0.3363E+03, 0.4802E+01,
     1 0.5149E+02, 0.9708E+03, 0.4521E+01, 0.0000E+00/
      DATA (PH1(I,23,12, 1),I=1,6) /0.5745E+04, 0.8791E+03,
     1 0.1315E+02, 0.3287E+02, 0.1891E+01, 0.0000E+00/
      DATA (PH1(I,23,12, 2),I=1,6) /0.9114E+03, 0.1194E+03,
     1 0.1089E+02, 0.2492E+02, 0.4980E+01, 0.0000E+00/
      DATA (PH1(I,23,12, 3),I=1,6) /0.8209E+03, 0.1210E+03,
     1 0.3219E+03, 0.4969E+02, 0.4340E+01, 0.1495E-01/
      DATA (PH1(I,23,12, 4),I=1,6) /0.3081E+03, 0.1475E+02,
     1 0.2755E+02, 0.3277E+03, 0.4457E+01, 0.0000E+00/
      DATA (PH1(I,23,13, 1),I=1,6) /0.5704E+04, 0.9381E+03,
     1 0.1144E+02, 0.3678E+02, 0.1793E+01, 0.0000E+00/
      DATA (PH1(I,23,13, 2),I=1,6) /0.8746E+03, 0.1297E+03,
     1 0.1022E+02, 0.2418E+02, 0.4886E+01, 0.0000E+00/
      DATA (PH1(I,23,13, 3),I=1,6) /0.7834E+03, 0.1219E+03,
     1 0.3155E+03, 0.4959E+02, 0.4332E+01, 0.1503E-01/
      DATA (PH1(I,23,13, 4),I=1,6) /0.2810E+03, 0.1396E+02,
     1 0.2795E+02, 0.3475E+03, 0.4463E+01, 0.0000E+00/
      DATA (PH1(I,23,13, 5),I=1,6) /0.2557E+03, 0.6549E+02,
     1 0.1189E+02, 0.4523E+02, 0.5865E+01, 0.5604E+00/
      DATA (PH1(I,23,14, 1),I=1,6) /0.5664E+04, 0.9448E+03,
     1 0.1126E+02, 0.3775E+02, 0.1777E+01, 0.0000E+00/
      DATA (PH1(I,23,14, 2),I=1,6) /0.8391E+03, 0.1492E+03,
     1 0.8956E+01, 0.2627E+02, 0.4576E+01, 0.0000E+00/
      DATA (PH1(I,23,14, 3),I=1,6) /0.7474E+03, 0.1218E+03,
     1 0.3136E+03, 0.4700E+02, 0.4379E+01, 0.1470E-01/
      DATA (PH1(I,23,14, 4),I=1,6) /0.2543E+03, 0.5439E+02,
     1 0.8345E+01, 0.9136E+03, 0.3280E+01, 0.0000E+00/
      DATA (PH1(I,23,14, 5),I=1,6) /0.2305E+03, 0.7687E+02,
     1 0.1769E+02, 0.7556E+02, 0.5183E+01, 0.4070E+00/
      DATA (PH1(I,23,15, 1),I=1,6) /0.5624E+04, 0.9854E+03,
     1 0.1025E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,23,15, 2),I=1,6) /0.8017E+03, 0.1579E+03,
     1 0.8542E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,23,15, 3),I=1,6) /0.7093E+03, 0.1701E+03,
     1 0.1628E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,23,15, 4),I=1,6) /0.2274E+03, 0.3357E+02,
     1 0.1077E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,23,15, 5),I=1,6) /0.2058E+03, 0.6386E+02,
     1 0.3315E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,23,16, 1),I=1,6) /0.5591E+04, 0.9640E+03,
     1 0.1077E+02, 0.4005E+02, 0.1740E+01, 0.0000E+00/
      DATA (PH1(I,23,16, 2),I=1,6) /0.7727E+03, 0.1513E+03,
     1 0.8749E+01, 0.2570E+02, 0.4587E+01, 0.0000E+00/
      DATA (PH1(I,23,16, 3),I=1,6) /0.6800E+03, 0.1400E+03,
     1 0.2393E+03, 0.5044E+02, 0.4150E+01, 0.1006E-01/
      DATA (PH1(I,23,16, 4),I=1,6) /0.2031E+03, 0.5013E+02,
     1 0.7844E+01, 0.8057E+03, 0.3393E+01, 0.0000E+00/
      DATA (PH1(I,23,16, 5),I=1,6) /0.1735E+03, 0.6959E+02,
     1 0.3541E+02, 0.6440E+02, 0.5460E+01, 0.2830E+00/
      DATA (PH1(I,23,17, 1),I=1,6) /0.5557E+04, 0.9898E+03,
     1 0.1013E+02, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,23,17, 2),I=1,6) /0.7401E+03, 0.1589E+03,
     1 0.8371E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,23,17, 3),I=1,6) /0.6468E+03, 0.1710E+03,
     1 0.1594E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,23,17, 4),I=1,6) /0.1781E+03, 0.3490E+02,
     1 0.9007E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,23,17, 5),I=1,6) /0.1506E+03, 0.6472E+02,
     1 0.4696E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,23,18, 1),I=1,6) /0.5526E+04, 0.9782E+03,
     1 0.1044E+02, 0.3841E+02, 0.1745E+01, 0.0000E+00/
      DATA (PH1(I,23,18, 2),I=1,6) /0.7123E+03, 0.1580E+03,
     1 0.8337E+01, 0.2583E+02, 0.4520E+01, 0.0000E+00/
      DATA (PH1(I,23,18, 3),I=1,6) /0.6188E+03, 0.1692E+03,
     1 0.1626E+03, 0.6988E+02, 0.3712E+01, 0.1180E-01/
      DATA (PH1(I,23,18, 4),I=1,6) /0.1549E+03, 0.4722E+02,
     1 0.6956E+01, 0.5988E+03, 0.3553E+01, 0.0000E+00/
      DATA (PH1(I,23,18, 5),I=1,6) /0.1281E+03, 0.6736E+02,
     1 0.4931E+02, 0.4579E+02, 0.5859E+01, 0.3123E+00/
      DATA (PH1(I,23,19, 1),I=1,6) /0.5500E+04, 0.9875E+03,
     1 0.1024E+02, 0.3726E+02, 0.1748E+01, 0.0000E+00/
      DATA (PH1(I,23,19, 2),I=1,6) /0.6859E+03, 0.1633E+03,
     1 0.8009E+01, 0.2702E+02, 0.4427E+01, 0.0000E+00/
      DATA (PH1(I,23,19, 3),I=1,6) /0.5923E+03, 0.1721E+03,
     1 0.1571E+03, 0.6951E+02, 0.3697E+01, 0.1225E-01/
      DATA (PH1(I,23,19, 4),I=1,6) /0.1329E+03, 0.4591E+02,
     1 0.6536E+01, 0.5301E+03, 0.3633E+01, 0.0000E+00/
      DATA (PH1(I,23,19, 5),I=1,6) /0.1059E+03, 0.6053E+02,
     1 0.5762E+02, 0.2883E+02, 0.6578E+01, 0.2283E+00/
      DATA (PH1(I,23,19, 6),I=1,6) /0.6528E+02, 0.3190E+02,
     1 0.8329E+02, 0.1369E+03, 0.5672E+01, 0.1237E+00/
      DATA (PH1(I,23,20, 1),I=1,6) /0.5482E+04, 0.9965E+03,
     1 0.9948E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,23,20, 2),I=1,6) /0.6654E+03, 0.1599E+03,
     1 0.8204E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,23,20, 3),I=1,6) /0.5715E+03, 0.1723E+03,
     1 0.1553E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,23,20, 4),I=1,6) /0.1118E+03, 0.3793E+02,
     1 0.6694E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,23,20, 5),I=1,6) /0.8555E+02, 0.6751E+02,
     1 0.4255E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,23,20, 6),I=1,6) /0.4671E+02, 0.2794E+02,
     1 0.2071E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,23,21, 1),I=1,6) /0.5458E+04, 0.1056E+04,
     1 0.8926E+01, 0.3290E+02, 0.1738E+01, 0.0000E+00/
      DATA (PH1(I,23,21, 2),I=1,6) /0.6421E+03, 0.1795E+03,
     1 0.7208E+01, 0.3031E+02, 0.4183E+01, 0.0000E+00/
      DATA (PH1(I,23,21, 3),I=1,6) /0.5487E+03, 0.1685E+03,
     1 0.1634E+03, 0.6966E+02, 0.3723E+01, 0.1158E-01/
      DATA (PH1(I,23,21, 4),I=1,6) /0.9452E+02, 0.4339E+02,
     1 0.5872E+01, 0.3580E+03, 0.3847E+01, 0.0000E+00/
      DATA (PH1(I,23,21, 5),I=1,6) /0.6813E+02, 0.6101E+02,
     1 0.5383E+02, 0.2353E+02, 0.6904E+01, 0.2586E+00/
      DATA (PH1(I,23,21, 6),I=1,6) /0.2931E+02, 0.1913E+02,
     1 0.3556E+04, 0.5763E+01, 0.1187E+02, 0.5113E+00/
      DATA (PH1(I,23,22, 1),I=1,6) /0.5443E+04, 0.1467E+04,
     1 0.4369E+01, 0.3858E+03, 0.1042E+01, 0.0000E+00/
      DATA (PH1(I,23,22, 2),I=1,6) /0.6259E+03, 0.1378E+03,
     1 0.9535E+01, 0.2195E+02, 0.4927E+01, 0.0000E+00/
      DATA (PH1(I,23,22, 3),I=1,6) /0.5292E+03, 0.1302E+03,
     1 0.2706E+03, 0.4385E+02, 0.4365E+01, 0.6490E-04/
      DATA (PH1(I,23,22, 4),I=1,6) /0.7942E+02, 0.4123E+02,
     1 0.5887E+01, 0.1634E+03, 0.4188E+01, 0.0000E+00/
      DATA (PH1(I,23,22, 5),I=1,6) /0.5323E+02, 0.6049E+02,
     1 0.5264E+02, 0.2216E+02, 0.7058E+01, 0.2583E+00/
      DATA (PH1(I,23,22, 6),I=1,6) /0.1466E+02, 0.1451E+02,
     1 0.7154E+03, 0.1749E+02, 0.1038E+02, 0.4665E+00/
      DATA (PH1(I,23,23, 1),I=1,6) /0.5475E+04, 0.6550E+03,
     1 0.2420E+02, 0.2343E+02, 0.2326E+01, 0.0000E+00/
      DATA (PH1(I,23,23, 2),I=1,6) /0.6380E+03, 0.9688E+02,
     1 0.1212E+02, 0.1905E+02, 0.5757E+01, 0.0000E+00/
      DATA (PH1(I,23,23, 3),I=1,6) /0.5270E+03, 0.2290E+03,
     1 0.8513E+02, 0.5037E+03, 0.2767E+01, 0.9964E-03/
      DATA (PH1(I,23,23, 4),I=1,6) /0.7700E+02, 0.3668E+02,
     1 0.6690E+01, 0.7759E+02, 0.4706E+01, 0.0000E+00/
      DATA (PH1(I,23,23, 5),I=1,6) /0.4700E+02, 0.5937E+02,
     1 0.7599E+02, 0.1488E+02, 0.7586E+01, 0.2690E+00/
      DATA (PH1(I,23,23, 6),I=1,6) /0.1200E+02, 0.1146E+02,
     1 0.3134E+04, 0.7037E+01, 0.1377E+02, 0.3417E+00/
      DATA (PH1(I,23,23, 7),I=1,6) /0.6740E+01, 0.1002E+02,
     1 0.2059E+01, 0.3914E+03, 0.4565E+01, 0.5057E-03/
      DATA (PH1(I,24, 1, 1),I=1,6) /0.7895E+04, 0.2495E+03,
     1 0.9505E+02, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,24, 2, 1),I=1,6) /0.7482E+04, 0.9695E+03,
     1 0.1185E+02, 0.5351E+02, 0.1696E+01, 0.0000E+00/
      DATA (PH1(I,24, 3, 1),I=1,6) /0.7306E+04, 0.9824E+03,
     1 0.1199E+02, 0.5185E+02, 0.1668E+01, 0.0000E+00/
      DATA (PH1(I,24, 3, 2),I=1,6) /0.1721E+04, 0.1480E+03,
     1 0.7312E+01, 0.3880E+02, 0.4083E+01, 0.0000E+00/
      DATA (PH1(I,24, 4, 1),I=1,6) /0.7181E+04, 0.9952E+03,
     1 0.1156E+02, 0.4841E+02, 0.1687E+01, 0.0000E+00/
      DATA (PH1(I,24, 4, 2),I=1,6) /0.1634E+04, 0.1488E+03,
     1 0.1333E+02, 0.3225E+02, 0.4310E+01, 0.0000E+00/
      DATA (PH1(I,24, 5, 1),I=1,6) /0.7042E+04, 0.1003E+04,
     1 0.1125E+02, 0.4457E+02, 0.1717E+01, 0.0000E+00/
      DATA (PH1(I,24, 5, 2),I=1,6) /0.1539E+04, 0.1748E+03,
     1 0.1089E+02, 0.2892E+02, 0.4221E+01, 0.0000E+00/
      DATA (PH1(I,24, 5, 3),I=1,6) /0.1497E+04, 0.2216E+03,
     1 0.2692E+02, 0.1091E+03, 0.3193E+01, 0.3540E-02/
      DATA (PH1(I,24, 6, 1),I=1,6) /0.6907E+04, 0.1004E+04,
     1 0.1114E+02, 0.4238E+02, 0.1740E+01, 0.0000E+00/
      DATA (PH1(I,24, 6, 2),I=1,6) /0.1450E+04, 0.1749E+03,
     1 0.1035E+02, 0.2790E+02, 0.4278E+01, 0.0000E+00/
      DATA (PH1(I,24, 6, 3),I=1,6) /0.1396E+04, 0.2006E+03,
     1 0.6290E+02, 0.1016E+03, 0.3330E+01, 0.1634E-02/
      DATA (PH1(I,24, 7, 1),I=1,6) /0.6769E+04, 0.1056E+04,
     1 0.9975E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,24, 7, 2),I=1,6) /0.1359E+04, 0.1619E+03,
     1 0.1050E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,24, 7, 3),I=1,6) /0.1299E+04, 0.1675E+03,
     1 0.1244E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,24, 8, 1),I=1,6) /0.6650E+04, 0.1010E+04,
     1 0.1086E+02, 0.4093E+02, 0.1755E+01, 0.0000E+00/
      DATA (PH1(I,24, 8, 2),I=1,6) /0.1276E+04, 0.1514E+03,
     1 0.1053E+02, 0.2659E+02, 0.4591E+01, 0.0000E+00/
      DATA (PH1(I,24, 8, 3),I=1,6) /0.1185E+04, 0.1297E+03,
     1 0.2646E+03, 0.7449E+02, 0.3960E+01, 0.6187E-02/
      DATA (PH1(I,24, 9, 1),I=1,6) /0.6523E+04, 0.1068E+04,
     1 0.9610E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,24, 9, 2),I=1,6) /0.1189E+04, 0.1668E+03,
     1 0.9095E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,24, 9, 3),I=1,6) /0.1097E+04, 0.1701E+03,
     1 0.1738E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,24,10, 1),I=1,6) /0.6409E+04, 0.1017E+04,
     1 0.1063E+02, 0.4093E+02, 0.1756E+01, 0.0000E+00/
      DATA (PH1(I,24,10, 2),I=1,6) /0.1110E+04, 0.1388E+03,
     1 0.9935E+01, 0.2496E+02, 0.4858E+01, 0.0000E+00/
      DATA (PH1(I,24,10, 3),I=1,6) /0.1011E+04, 0.1397E+03,
     1 0.2826E+03, 0.5599E+02, 0.4153E+01, 0.5775E-02/
      DATA (PH1(I,24,11, 1),I=1,6) /0.6362E+04, 0.9927E+03,
     1 0.1118E+02, 0.4335E+02, 0.1752E+01, 0.0000E+00/
      DATA (PH1(I,24,11, 2),I=1,6) /0.1068E+04, 0.9748E+02,
     1 0.1227E+02, 0.2968E+02, 0.5204E+01, 0.0000E+00/
      DATA (PH1(I,24,11, 3),I=1,6) /0.9738E+03, 0.1312E+03,
     1 0.3124E+03, 0.5494E+02, 0.4251E+01, 0.6239E-02/
      DATA (PH1(I,24,11, 4),I=1,6) /0.3842E+03, 0.5856E+01,
     1 0.4533E+02, 0.8787E+03, 0.4495E+01, 0.0000E+00/
      DATA (PH1(I,24,12, 1),I=1,6) /0.6318E+04, 0.1103E+04,
     1 0.8914E+01, 0.5657E+02, 0.1588E+01, 0.0000E+00/
      DATA (PH1(I,24,12, 2),I=1,6) /0.1029E+04, 0.1295E+03,
     1 0.1028E+02, 0.2555E+02, 0.4945E+01, 0.0000E+00/
      DATA (PH1(I,24,12, 3),I=1,6) /0.9334E+03, 0.1427E+03,
     1 0.2652E+03, 0.5321E+02, 0.4178E+01, 0.5905E-02/
      DATA (PH1(I,24,12, 4),I=1,6) /0.3548E+03, 0.1135E+02,
     1 0.3894E+02, 0.4475E+03, 0.4496E+01, 0.0000E+00/
      DATA (PH1(I,24,13, 1),I=1,6) /0.6274E+04, 0.1115E+04,
     1 0.8708E+01, 0.5540E+02, 0.1588E+01, 0.0000E+00/
      DATA (PH1(I,24,13, 2),I=1,6) /0.9893E+03, 0.1454E+03,
     1 0.9421E+01, 0.2472E+02, 0.4803E+01, 0.0000E+00/
      DATA (PH1(I,24,13, 3),I=1,6) /0.8933E+03, 0.1424E+03,
     1 0.2644E+03, 0.5317E+02, 0.4181E+01, 0.5962E-02/
      DATA (PH1(I,24,13, 4),I=1,6) /0.3255E+03, 0.1164E+02,
     1 0.3651E+02, 0.4413E+03, 0.4490E+01, 0.0000E+00/
      DATA (PH1(I,24,13, 5),I=1,6) /0.2981E+03, 0.6675E+02,
     1 0.1246E+02, 0.4963E+02, 0.5860E+01, 0.3057E+00/
      DATA (PH1(I,24,14, 1),I=1,6) /0.6231E+04, 0.1111E+04,
     1 0.8763E+01, 0.5576E+02, 0.1589E+01, 0.0000E+00/
      DATA (PH1(I,24,14, 2),I=1,6) /0.9512E+03, 0.1447E+03,
     1 0.9388E+01, 0.2428E+02, 0.4837E+01, 0.0000E+00/
      DATA (PH1(I,24,14, 3),I=1,6) /0.8546E+03, 0.1426E+03,
     1 0.2618E+03, 0.5270E+02, 0.4188E+01, 0.5989E-02/
      DATA (PH1(I,24,14, 4),I=1,6) /0.2969E+03, 0.2539E+02,
     1 0.1632E+02, 0.2419E+03, 0.4286E+01, 0.0000E+00/
      DATA (PH1(I,24,14, 5),I=1,6) /0.2708E+03, 0.6544E+02,
     1 0.2411E+02, 0.4849E+02, 0.5923E+01, 0.2753E+00/
      DATA (PH1(I,24,15, 1),I=1,6) /0.6187E+04, 0.1073E+04,
     1 0.9448E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,24,15, 2),I=1,6) /0.9108E+03, 0.1710E+03,
     1 0.8093E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,24,15, 3),I=1,6) /0.8130E+03, 0.1843E+03,
     1 0.1566E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,24,15, 4),I=1,6) /0.2680E+03, 0.3606E+02,
     1 0.1078E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,24,15, 5),I=1,6) /0.2444E+03, 0.6965E+02,
     1 0.3257E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,24,16, 1),I=1,6) /0.6152E+04, 0.1110E+04,
     1 0.8774E+01, 0.5647E+02, 0.1586E+01, 0.0000E+00/
      DATA (PH1(I,24,16, 2),I=1,6) /0.8797E+03, 0.1476E+03,
     1 0.9146E+01, 0.2358E+02, 0.4847E+01, 0.0000E+00/
      DATA (PH1(I,24,16, 3),I=1,6) /0.7819E+03, 0.1427E+03,
     1 0.2573E+03, 0.5042E+02, 0.4228E+01, 0.5960E-02/
      DATA (PH1(I,24,16, 4),I=1,6) /0.2419E+03, 0.2465E+02,
     1 0.1419E+02, 0.2341E+03, 0.4369E+01, 0.0000E+00/
      DATA (PH1(I,24,16, 5),I=1,6) /0.2093E+03, 0.6644E+02,
     1 0.4311E+02, 0.4198E+02, 0.6057E+01, 0.3135E+00/
      DATA (PH1(I,24,17, 1),I=1,6) /0.6114E+04, 0.1076E+04,
     1 0.9366E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,24,17, 2),I=1,6) /0.8432E+03, 0.1720E+03,
     1 0.7934E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,24,17, 3),I=1,6) /0.7444E+03, 0.1850E+03,
     1 0.1537E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,24,17, 4),I=1,6) /0.2148E+03, 0.3733E+02,
     1 0.9131E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,24,17, 5),I=1,6) /0.1847E+03, 0.7035E+02,
     1 0.4687E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,24,18, 1),I=1,6) /0.6080E+04, 0.1122E+04,
     1 0.8562E+01, 0.5603E+02, 0.1582E+01, 0.0000E+00/
      DATA (PH1(I,24,18, 2),I=1,6) /0.8140E+03, 0.1553E+03,
     1 0.8726E+01, 0.2320E+02, 0.4789E+01, 0.0000E+00/
      DATA (PH1(I,24,18, 3),I=1,6) /0.7153E+03, 0.1571E+03,
     1 0.2130E+03, 0.5017E+02, 0.4114E+01, 0.5706E-02/
      DATA (PH1(I,24,18, 4),I=1,6) /0.1900E+03, 0.3531E+02,
     1 0.8881E+01, 0.1815E+03, 0.4264E+01, 0.0000E+00/
      DATA (PH1(I,24,18, 5),I=1,6) /0.1602E+03, 0.6754E+02,
     1 0.5675E+02, 0.3729E+02, 0.6191E+01, 0.2358E+00/
      DATA (PH1(I,24,19, 1),I=1,6) /0.6052E+04, 0.1128E+04,
     1 0.8464E+01, 0.5569E+02, 0.1580E+01, 0.0000E+00/
      DATA (PH1(I,24,19, 2),I=1,6) /0.7842E+03, 0.1551E+03,
     1 0.8723E+01, 0.2287E+02, 0.4810E+01, 0.0000E+00/
      DATA (PH1(I,24,19, 3),I=1,6) /0.6855E+03, 0.1640E+03,
     1 0.1963E+03, 0.5019E+02, 0.4060E+01, 0.5648E-02/
      DATA (PH1(I,24,19, 4),I=1,6) /0.1656E+03, 0.3830E+02,
     1 0.7706E+01, 0.1719E+03, 0.4245E+01, 0.0000E+00/
      DATA (PH1(I,24,19, 5),I=1,6) /0.1359E+03, 0.6693E+02,
     1 0.5368E+02, 0.3420E+02, 0.6344E+01, 0.2242E+00/
      DATA (PH1(I,24,19, 6),I=1,6) /0.9064E+02, 0.3098E+02,
     1 0.1201E+03, 0.6811E+02, 0.6392E+01, 0.3113E-02/
      DATA (PH1(I,24,20, 1),I=1,6) /0.6029E+04, 0.1081E+04,
     1 0.9244E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,24,20, 2),I=1,6) /0.7598E+03, 0.1731E+03,
     1 0.7776E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,24,20, 3),I=1,6) /0.6602E+03, 0.1862E+03,
     1 0.1500E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,24,20, 4),I=1,6) /0.1427E+03, 0.4027E+02,
     1 0.6892E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,24,20, 5),I=1,6) /0.1134E+03, 0.7290E+02,
     1 0.4327E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,24,20, 6),I=1,6) /0.6946E+02, 0.3105E+02,
     1 0.2269E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,24,21, 1),I=1,6) /0.6002E+04, 0.1224E+04,
     1 0.7106E+01, 0.7179E+02, 0.1455E+01, 0.0000E+00/
      DATA (PH1(I,24,21, 2),I=1,6) /0.7331E+03, 0.1640E+03,
     1 0.8333E+01, 0.2286E+02, 0.4721E+01, 0.0000E+00/
      DATA (PH1(I,24,21, 3),I=1,6) /0.6344E+03, 0.1721E+03,
     1 0.1795E+03, 0.5067E+02, 0.3993E+01, 0.5538E-02/
      DATA (PH1(I,24,21, 4),I=1,6) /0.1219E+03, 0.4256E+02,
     1 0.6252E+01, 0.1605E+03, 0.4224E+01, 0.0000E+00/
      DATA (PH1(I,24,21, 5),I=1,6) /0.9275E+02, 0.6776E+02,
     1 0.4856E+02, 0.2817E+02, 0.6628E+01, 0.2673E+00/
      DATA (PH1(I,24,21, 6),I=1,6) /0.4916E+02, 0.3483E+02,
     1 0.2224E+03, 0.5448E+02, 0.6484E+01, 0.3436E+00/
      DATA (PH1(I,24,22, 1),I=1,6) /0.5988E+04, 0.1085E+04,
     1 0.9165E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,24,22, 2),I=1,6) /0.7161E+03, 0.1735E+03,
     1 0.7720E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,24,22, 3),I=1,6) /0.6164E+03, 0.1871E+03,
     1 0.1480E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,24,22, 4),I=1,6) /0.1032E+03, 0.4293E+02,
     1 0.5797E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,24,22, 5),I=1,6) /0.7436E+02, 0.6450E+02,
     1 0.5388E+02, 0.2100E+02, 0.7200E+01, 0.2600E+00/
      DATA (PH1(I,24,22, 6),I=1,6) /0.3096E+02, 0.9947E+01,
     1 0.1924E+04, 0.9000E+01, 0.1450E+02, 0.3500E+00/
      DATA (PH1(I,24,23, 1),I=1,6) /0.5966E+04, 0.1497E+04,
     1 0.4593E+01, 0.1465E+03, 0.1189E+01, 0.0000E+00/
      DATA (PH1(I,24,23, 2),I=1,6) /0.6956E+03, 0.2013E+03,
     1 0.6869E+01, 0.2572E+02, 0.4266E+01, 0.0000E+00/
      DATA (PH1(I,24,23, 3),I=1,6) /0.5970E+03, 0.1477E+03,
     1 0.2382E+03, 0.4633E+02, 0.4261E+01, 0.6156E-02/
      DATA (PH1(I,24,23, 4),I=1,6) /0.8745E+02, 0.4462E+02,
     1 0.5566E+01, 0.1542E+03, 0.4230E+01, 0.0000E+00/
      DATA (PH1(I,24,23, 5),I=1,6) /0.5879E+02, 0.6599E+02,
     1 0.5021E+02, 0.2175E+02, 0.7102E+01, 0.2576E+00/
      DATA (PH1(I,24,23, 6),I=1,6) /0.1650E+02, 0.1521E+02,
     1 0.1031E+04, 0.1415E+02, 0.1123E+02, 0.4827E+00/
      DATA (PH1(I,24,24, 1),I=1,6) /0.5996E+04, 0.1035E+04,
     1 0.1025E+02, 0.3343E+02, 0.1822E+01, 0.0000E+00/
      DATA (PH1(I,24,24, 2),I=1,6) /0.7030E+03, 0.1588E+03,
     1 0.8555E+01, 0.2258E+02, 0.4789E+01, 0.0000E+00/
      DATA (PH1(I,24,24, 3),I=1,6) /0.5850E+03, 0.1865E+03,
     1 0.1540E+03, 0.5560E+02, 0.3823E+01, 0.5785E-02/
      DATA (PH1(I,24,24, 4),I=1,6) /0.7900E+02, 0.4234E+02,
     1 0.5602E+01, 0.1356E+03, 0.4374E+01, 0.0000E+00/
      DATA (PH1(I,24,24, 5),I=1,6) /0.4900E+02, 0.6567E+02,
     1 0.5313E+02, 0.1981E+02, 0.7258E+01, 0.2601E+00/
      DATA (PH1(I,24,24, 6),I=1,6) /0.8660E+01, 0.7244E+01,
     1 0.1485E+04, 0.9671E+01, 0.1575E+02, 0.7760E+00/
      DATA (PH1(I,24,24, 7),I=1,6) /0.6767E+01, 0.9636E+01,
     1 0.6532E+00, 0.5232E+03, 0.4641E+01, 0.9332E-04/
      DATA (PH1(I,25, 1, 1),I=1,6) /0.8572E+04, 0.2709E+03,
     1 0.8759E+02, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,25, 2, 1),I=1,6) /0.8141E+04, 0.9661E+03,
     1 0.1309E+02, 0.4829E+02, 0.1794E+01, 0.0000E+00/
      DATA (PH1(I,25, 3, 1),I=1,6) /0.7957E+04, 0.9997E+03,
     1 0.1266E+02, 0.4727E+02, 0.1749E+01, 0.0000E+00/
      DATA (PH1(I,25, 3, 2),I=1,6) /0.1880E+04, 0.2004E+03,
     1 0.5352E+01, 0.3934E+02, 0.3800E+01, 0.0000E+00/
      DATA (PH1(I,25, 4, 1),I=1,6) /0.7827E+04, 0.9916E+03,
     1 0.1277E+02, 0.4256E+02, 0.1799E+01, 0.0000E+00/
      DATA (PH1(I,25, 4, 2),I=1,6) /0.1788E+04, 0.1631E+03,
     1 0.1229E+02, 0.3227E+02, 0.4294E+01, 0.0000E+00/
      DATA (PH1(I,25, 5, 1),I=1,6) /0.7682E+04, 0.9946E+03,
     1 0.1255E+02, 0.3824E+02, 0.1847E+01, 0.0000E+00/
      DATA (PH1(I,25, 5, 2),I=1,6) /0.1689E+04, 0.1952E+03,
     1 0.9881E+01, 0.2837E+02, 0.4199E+01, 0.0000E+00/
      DATA (PH1(I,25, 5, 3),I=1,6) /0.1644E+04, 0.2576E+03,
     1 0.2159E+02, 0.1234E+03, 0.3086E+01, 0.1723E-01/
      DATA (PH1(I,25, 6, 1),I=1,6) /0.7539E+04, 0.9973E+03,
     1 0.1238E+02, 0.3663E+02, 0.1868E+01, 0.0000E+00/
      DATA (PH1(I,25, 6, 2),I=1,6) /0.1596E+04, 0.1879E+03,
     1 0.9744E+01, 0.2825E+02, 0.4277E+01, 0.0000E+00/
      DATA (PH1(I,25, 6, 3),I=1,6) /0.1539E+04, 0.2403E+03,
     1 0.4744E+02, 0.1147E+03, 0.3190E+01, 0.1237E-01/
      DATA (PH1(I,25, 7, 1),I=1,6) /0.7391E+04, 0.1144E+04,
     1 0.9260E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,25, 7, 2),I=1,6) /0.1500E+04, 0.1751E+03,
     1 0.9871E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,25, 7, 3),I=1,6) /0.1437E+04, 0.1822E+03,
     1 0.1165E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,25, 8, 1),I=1,6) /0.7270E+04, 0.1005E+04,
     1 0.1205E+02, 0.3464E+02, 0.1893E+01, 0.0000E+00/
      DATA (PH1(I,25, 8, 2),I=1,6) /0.1414E+04, 0.1452E+03,
     1 0.1087E+02, 0.2737E+02, 0.4741E+01, 0.0000E+00/
      DATA (PH1(I,25, 8, 3),I=1,6) /0.1317E+04, 0.1889E+03,
     1 0.1381E+03, 0.7915E+02, 0.3619E+01, 0.1713E-01/
      DATA (PH1(I,25, 9, 1),I=1,6) /0.7132E+04, 0.1157E+04,
     1 0.8934E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,25, 9, 2),I=1,6) /0.1321E+04, 0.1802E+03,
     1 0.8605E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,25, 9, 3),I=1,6) /0.1224E+04, 0.1847E+03,
     1 0.1647E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,25,10, 1),I=1,6) /0.7016E+04, 0.1007E+04,
     1 0.1191E+02, 0.3374E+02, 0.1907E+01, 0.0000E+00/
      DATA (PH1(I,25,10, 2),I=1,6) /0.1239E+04, 0.1468E+03,
     1 0.9533E+01, 0.2564E+02, 0.4859E+01, 0.0000E+00/
      DATA (PH1(I,25,10, 3),I=1,6) /0.1133E+04, 0.1588E+03,
     1 0.2466E+03, 0.5979E+02, 0.4044E+01, 0.1415E-01/
      DATA (PH1(I,25,11, 1),I=1,6) /0.6966E+04, 0.9952E+03,
     1 0.1220E+02, 0.3635E+02, 0.1885E+01, 0.0000E+00/
      DATA (PH1(I,25,11, 2),I=1,6) /0.1195E+04, 0.1084E+03,
     1 0.1148E+02, 0.3003E+02, 0.5139E+01, 0.0000E+00/
      DATA (PH1(I,25,11, 3),I=1,6) /0.1096E+04, 0.1576E+03,
     1 0.2464E+03, 0.5814E+02, 0.4081E+01, 0.1417E-01/
      DATA (PH1(I,25,11, 4),I=1,6) /0.4352E+03, 0.5053E+01,
     1 0.5856E+02, 0.1103E+04, 0.4490E+01, 0.0000E+00/
      DATA (PH1(I,25,12, 1),I=1,6) /0.6919E+04, 0.1016E+04,
     1 0.1168E+02, 0.3428E+02, 0.1894E+01, 0.0000E+00/
      DATA (PH1(I,25,12, 2),I=1,6) /0.1153E+04, 0.1412E+03,
     1 0.9670E+01, 0.2617E+02, 0.4900E+01, 0.0000E+00/
      DATA (PH1(I,25,12, 3),I=1,6) /0.1053E+04, 0.1572E+03,
     1 0.2455E+03, 0.5660E+02, 0.4109E+01, 0.1411E-01/
      DATA (PH1(I,25,12, 4),I=1,6) /0.4030E+03, 0.1345E+02,
     1 0.3535E+02, 0.4180E+03, 0.4462E+01, 0.0000E+00/
      DATA (PH1(I,25,13, 1),I=1,6) /0.6872E+04, 0.1025E+04,
     1 0.1145E+02, 0.3313E+02, 0.1902E+01, 0.0000E+00/
      DATA (PH1(I,25,13, 2),I=1,6) /0.1111E+04, 0.1437E+03,
     1 0.9475E+01, 0.2535E+02, 0.4916E+01, 0.0000E+00/
      DATA (PH1(I,25,13, 3),I=1,6) /0.1010E+04, 0.1534E+03,
     1 0.2551E+03, 0.5638E+02, 0.4140E+01, 0.1436E-01/
      DATA (PH1(I,25,13, 4),I=1,6) /0.3731E+03, 0.2286E+02,
     1 0.2034E+02, 0.2772E+03, 0.4326E+01, 0.0000E+00/
      DATA (PH1(I,25,13, 5),I=1,6) /0.3436E+03, 0.7288E+02,
     1 0.1205E+02, 0.5254E+02, 0.5787E+01, 0.1633E-03/
      DATA (PH1(I,25,14, 1),I=1,6) /0.6826E+04, 0.1018E+04,
     1 0.1161E+02, 0.3333E+02, 0.1905E+01, 0.0000E+00/
      DATA (PH1(I,25,14, 2),I=1,6) /0.1070E+04, 0.1522E+03,
     1 0.9043E+01, 0.2474E+02, 0.4856E+01, 0.0000E+00/
      DATA (PH1(I,25,14, 3),I=1,6) /0.9690E+03, 0.1541E+03,
     1 0.2509E+03, 0.5596E+02, 0.4141E+01, 0.1435E-01/
      DATA (PH1(I,25,14, 4),I=1,6) /0.3427E+03, 0.2273E+02,
     1 0.1932E+02, 0.2771E+03, 0.4340E+01, 0.0000E+00/
      DATA (PH1(I,25,14, 5),I=1,6) /0.3144E+03, 0.7442E+02,
     1 0.2225E+02, 0.4974E+02, 0.5829E+01, 0.4047E+00/
      DATA (PH1(I,25,15, 1),I=1,6) /0.6778E+04, 0.1164E+04,
     1 0.8718E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,25,15, 2),I=1,6) /0.1027E+04, 0.1846E+03,
     1 0.7670E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,25,15, 3),I=1,6) /0.9238E+03, 0.1990E+03,
     1 0.1508E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,25,15, 4),I=1,6) /0.3118E+03, 0.3864E+02,
     1 0.1074E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,25,15, 5),I=1,6) /0.2860E+03, 0.7574E+02,
     1 0.3181E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,25,16, 1),I=1,6) /0.6741E+04, 0.1013E+04,
     1 0.1172E+02, 0.3345E+02, 0.1909E+01, 0.0000E+00/
      DATA (PH1(I,25,16, 2),I=1,6) /0.9939E+03, 0.1554E+03,
     1 0.8799E+01, 0.2403E+02, 0.4866E+01, 0.0000E+00/
      DATA (PH1(I,25,16, 3),I=1,6) /0.8910E+03, 0.1555E+03,
     1 0.2430E+03, 0.5379E+02, 0.4166E+01, 0.1402E-01/
      DATA (PH1(I,25,16, 4),I=1,6) /0.2840E+03, 0.2364E+02,
     1 0.1585E+02, 0.2573E+03, 0.4393E+01, 0.0000E+00/
      DATA (PH1(I,25,16, 5),I=1,6) /0.2483E+03, 0.7277E+02,
     1 0.4169E+02, 0.4324E+02, 0.6012E+01, 0.3835E+00/
      DATA (PH1(I,25,17, 1),I=1,6) /0.6698E+04, 0.1167E+04,
     1 0.8667E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,25,17, 2),I=1,6) /0.9536E+03, 0.1856E+03,
     1 0.7522E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,25,17, 3),I=1,6) /0.8492E+03, 0.1997E+03,
     1 0.1482E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,25,17, 4),I=1,6) /0.2547E+03, 0.3986E+02,
     1 0.9199E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,25,17, 5),I=1,6) /0.2218E+03, 0.7629E+02,
     1 0.4645E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,25,18, 1),I=1,6) /0.6664E+04, 0.1021E+04,
     1 0.1152E+02, 0.3256E+02, 0.1914E+01, 0.0000E+00/
      DATA (PH1(I,25,18, 2),I=1,6) /0.9230E+03, 0.1679E+03,
     1 0.8168E+01, 0.2438E+02, 0.4732E+01, 0.0000E+00/
      DATA (PH1(I,25,18, 3),I=1,6) /0.8191E+03, 0.1748E+03,
     1 0.1921E+03, 0.5809E+02, 0.3973E+01, 0.1717E-01/
      DATA (PH1(I,25,18, 4),I=1,6) /0.2282E+03, 0.5334E+02,
     1 0.7236E+01, 0.4454E+03, 0.3624E+01, 0.0000E+00/
      DATA (PH1(I,25,18, 5),I=1,6) /0.1945E+03, 0.7818E+02,
     1 0.4992E+02, 0.4763E+02, 0.5832E+01, 0.3093E+00/
      DATA (PH1(I,25,19, 1),I=1,6) /0.6631E+04, 0.1021E+04,
     1 0.1154E+02, 0.3219E+02, 0.1919E+01, 0.0000E+00/
      DATA (PH1(I,25,19, 2),I=1,6) /0.8900E+03, 0.1668E+03,
     1 0.8196E+01, 0.2394E+02, 0.4767E+01, 0.0000E+00/
      DATA (PH1(I,25,19, 3),I=1,6) /0.7860E+03, 0.1739E+03,
     1 0.1939E+03, 0.5345E+02, 0.4041E+01, 0.1659E-01/
      DATA (PH1(I,25,19, 4),I=1,6) /0.2016E+03, 0.5184E+02,
     1 0.6791E+01, 0.3811E+03, 0.3719E+01, 0.0000E+00/
      DATA (PH1(I,25,19, 5),I=1,6) /0.1691E+03, 0.7618E+02,
     1 0.4935E+02, 0.3879E+02, 0.6116E+01, 0.3087E+00/
      DATA (PH1(I,25,19, 6),I=1,6) /0.1193E+03, 0.3865E+02,
     1 0.9713E+02, 0.1133E+03, 0.5798E+01, 0.1437E+00/
      DATA (PH1(I,25,20, 1),I=1,6) /0.6603E+04, 0.1171E+04,
     1 0.8591E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,25,20, 2),I=1,6) /0.8614E+03, 0.1867E+03,
     1 0.7373E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,25,20, 3),I=1,6) /0.7560E+03, 0.2007E+03,
     1 0.1450E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,25,20, 4),I=1,6) /0.1768E+03, 0.4271E+02,
     1 0.7047E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,25,20, 5),I=1,6) /0.1444E+03, 0.7861E+02,
     1 0.4367E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,25,20, 6),I=1,6) /0.9575E+02, 0.3452E+02,
     1 0.2355E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,25,21, 1),I=1,6) /0.6575E+04, 0.1045E+04,
     1 0.1101E+02, 0.3201E+02, 0.1902E+01, 0.0000E+00/
      DATA (PH1(I,25,21, 2),I=1,6) /0.8319E+03, 0.1782E+03,
     1 0.7660E+01, 0.2515E+02, 0.4612E+01, 0.0000E+00/
      DATA (PH1(I,25,21, 3),I=1,6) /0.7280E+03, 0.1909E+03,
     1 0.1610E+03, 0.6064E+02, 0.3847E+01, 0.2553E-01/
      DATA (PH1(I,25,21, 4),I=1,6) /0.1530E+03, 0.5019E+02,
     1 0.5951E+01, 0.3117E+03, 0.3866E+01, 0.0000E+00/
      DATA (PH1(I,25,21, 5),I=1,6) /0.1210E+03, 0.6892E+02,
     1 0.5293E+02, 0.2594E+02, 0.6855E+01, 0.1836E+00/
      DATA (PH1(I,25,21, 6),I=1,6) /0.7240E+02, 0.3798E+02,
     1 0.2289E+03, 0.7678E+02, 0.6206E+01, 0.6108E-01/
      DATA (PH1(I,25,22, 1),I=1,6) /0.6556E+04, 0.1174E+04,
     1 0.8541E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,25,22, 2),I=1,6) /0.8118E+03, 0.1872E+03,
     1 0.7318E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,25,22, 3),I=1,6) /0.7063E+03, 0.2015E+03,
     1 0.1433E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,25,22, 4),I=1,6) /0.1300E+03, 0.4531E+02,
     1 0.5863E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,25,22, 5),I=1,6) /0.9879E+02, 0.8115E+02,
     1 0.3665E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,25,22, 6),I=1,6) /0.5120E+02, 0.3615E+02,
     1 0.3188E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,25,23, 1),I=1,6) /0.6531E+04, 0.1154E+04,
     1 0.8979E+01, 0.2899E+02, 0.1859E+01, 0.0000E+00/
      DATA (PH1(I,25,23, 2),I=1,6) /0.7860E+03, 0.2016E+03,
     1 0.6777E+01, 0.2756E+02, 0.4332E+01, 0.0000E+00/
      DATA (PH1(I,25,23, 3),I=1,6) /0.6822E+03, 0.1908E+03,
     1 0.1609E+03, 0.6198E+02, 0.3835E+01, 0.2549E-01/
      DATA (PH1(I,25,23, 4),I=1,6) /0.1120E+03, 0.4956E+02,
     1 0.5285E+01, 0.2544E+03, 0.4005E+01, 0.0000E+00/
      DATA (PH1(I,25,23, 5),I=1,6) /0.8062E+02, 0.7190E+02,
     1 0.4707E+02, 0.2356E+02, 0.6977E+01, 0.2565E+00/
      DATA (PH1(I,25,23, 6),I=1,6) /0.3367E+02, 0.1604E+02,
     1 0.1991E+06, 0.2538E+01, 0.1808E+02, 0.6536E+00/
      DATA (PH1(I,25,24, 1),I=1,6) /0.6520E+04, 0.8684E+03,
     1 0.1627E+02, 0.2405E+02, 0.2207E+01, 0.0000E+00/
      DATA (PH1(I,25,24, 2),I=1,6) /0.7753E+03, 0.1346E+03,
     1 0.9823E+01, 0.1970E+02, 0.5386E+01, 0.0000E+00/
      DATA (PH1(I,25,24, 3),I=1,6) /0.6714E+03, 0.2207E+03,
     1 0.1185E+03, 0.9212E+02, 0.3460E+01, 0.1974E+00/
      DATA (PH1(I,25,24, 4),I=1,6) /0.1015E+03, 0.4359E+02,
     1 0.5735E+01, 0.1016E+03, 0.4563E+01, 0.0000E+00/
      DATA (PH1(I,25,24, 5),I=1,6) /0.7009E+02, 0.7141E+02,
     1 0.4984E+02, 0.2130E+02, 0.7133E+01, 0.2616E+00/
      DATA (PH1(I,25,24, 6),I=1,6) /0.2058E+02, 0.1624E+02,
     1 0.2592E+06, 0.2411E+01, 0.1797E+02, 0.4774E+00/
      DATA (PH1(I,25,24, 7),I=1,6) /0.1564E+02, 0.9306E+01,
     1 0.1189E+01, 0.1439E+10, 0.4095E+01, 0.8740E-03/
      DATA (PH1(I,25,25, 1),I=1,6) /0.6550E+04, 0.8758E+03,
     1 0.1592E+02, 0.3965E+02, 0.1947E+01, 0.0000E+00/
      DATA (PH1(I,25,25, 2),I=1,6) /0.7816E+03, 0.8316E+02,
     1 0.1156E+02, 0.2187E+02, 0.6149E+01, 0.0000E+00/
      DATA (PH1(I,25,25, 3),I=1,6) /0.6554E+03, 0.2737E+03,
     1 0.7498E+02, 0.3952E+03, 0.2793E+01, 0.4661E-01/
      DATA (PH1(I,25,25, 4),I=1,6) /0.9460E+02, 0.4114E+02,
     1 0.6172E+01, 0.5928E+02, 0.4989E+01, 0.0000E+00/
      DATA (PH1(I,25,25, 5),I=1,6) /0.5940E+02, 0.7040E+02,
     1 0.6697E+02, 0.1485E+02, 0.7643E+01, 0.2659E+00/
      DATA (PH1(I,25,25, 6),I=1,6) /0.1430E+02, 0.1311E+02,
     1 0.1668E+05, 0.4497E+01, 0.1646E+02, 0.3881E+00/
      DATA (PH1(I,25,25, 7),I=1,6) /0.7434E+01, 0.1183E+02,
     1 0.1549E+01, 0.2920E+07, 0.4113E+01, 0.3256E-01/
      DATA (PH1(I,26, 1, 1),I=1,6) /0.9278E+04, 0.2932E+03,
     1 0.8099E+02, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,26, 2, 1),I=1,6) /0.8829E+04, 0.1057E+04,
     1 0.1195E+02, 0.5769E+02, 0.1718E+01, 0.0000E+00/
      DATA (PH1(I,26, 3, 1),I=1,6) /0.8638E+04, 0.1087E+04,
     1 0.1157E+02, 0.5086E+02, 0.1722E+01, 0.0000E+00/
      DATA (PH1(I,26, 3, 2),I=1,6) /0.2046E+04, 0.1873E+03,
     1 0.5833E+01, 0.3849E+02, 0.3998E+01, 0.0000E+00/
      DATA (PH1(I,26, 4, 1),I=1,6) /0.8484E+04, 0.1215E+04,
     1 0.9098E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,26, 4, 2),I=1,6) /0.1950E+04, 0.1799E+03,
     1 0.1138E+02, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,26, 5, 1),I=1,6) /0.8350E+04, 0.1066E+04,
     1 0.1181E+02, 0.4116E+02, 0.1827E+01, 0.0000E+00/
      DATA (PH1(I,26, 5, 2),I=1,6) /0.1847E+04, 0.1708E+03,
     1 0.1125E+02, 0.2839E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,26, 5, 3),I=1,6) /0.1799E+04, 0.8070E+02,
     1 0.2675E+03, 0.1191E+03, 0.4194E+01, 0.1901E-04/
      DATA (PH1(I,26, 6, 1),I=1,6) /0.8184E+04, 0.1228E+04,
     1 0.8773E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,26, 6, 2),I=1,6) /0.1745E+04, 0.1860E+03,
     1 0.9942E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,26, 6, 3),I=1,6) /0.1689E+04, 0.1970E+03,
     1 0.7720E+02, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,26, 7, 1),I=1,6) /0.8041E+04, 0.1235E+04,
     1 0.8619E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,26, 7, 2),I=1,6) /0.1648E+04, 0.1888E+03,
     1 0.9298E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,26, 7, 3),I=1,6) /0.1582E+04, 0.1975E+03,
     1 0.1093E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,26, 8, 1),I=1,6) /0.7918E+04, 0.1068E+04,
     1 0.1155E+02, 0.3578E+02, 0.1895E+01, 0.0000E+00/
      DATA (PH1(I,26, 8, 2),I=1,6) /0.1559E+04, 0.1623E+03,
     1 0.1000E+02, 0.2675E+02, 0.4711E+01, 0.0000E+00/
      DATA (PH1(I,26, 8, 3),I=1,6) /0.1456E+04, 0.1338E+03,
     1 0.3000E+03, 0.7010E+02, 0.4143E+01, 0.1631E-04/
      DATA (PH1(I,26, 9, 1),I=1,6) /0.7769E+04, 0.1249E+04,
     1 0.8327E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,26, 9, 2),I=1,6) /0.1460E+04, 0.1940E+03,
     1 0.8150E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,26, 9, 3),I=1,6) /0.1358E+04, 0.1999E+03,
     1 0.1561E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,26,10, 1),I=1,6) /0.7651E+04, 0.1067E+04,
     1 0.1150E+02, 0.3412E+02, 0.1922E+01, 0.0000E+00/
      DATA (PH1(I,26,10, 2),I=1,6) /0.1375E+04, 0.1534E+03,
     1 0.9191E+01, 0.2691E+02, 0.4849E+01, 0.0000E+00/
      DATA (PH1(I,26,10, 3),I=1,6) /0.1262E+04, 0.1412E+03,
     1 0.3368E+03, 0.5569E+02, 0.4328E+01, 0.1177E-04/
      DATA (PH1(I,26,11, 1),I=1,6) /0.7599E+04, 0.1061E+04,
     1 0.1161E+02, 0.3713E+02, 0.1889E+01, 0.0000E+00/
      DATA (PH1(I,26,11, 2),I=1,6) /0.1329E+04, 0.1363E+03,
     1 0.9940E+01, 0.3026E+02, 0.4885E+01, 0.0000E+00/
      DATA (PH1(I,26,11, 3),I=1,6) /0.1216E+04, 0.1396E+03,
     1 0.3383E+03, 0.5459E+02, 0.4366E+01, 0.1179E-04/
      DATA (PH1(I,26,11, 4),I=1,6) /0.4893E+03, 0.2873E+02,
     1 0.1207E+02, 0.5150E+03, 0.3846E+01, 0.0000E+00/
      DATA (PH1(I,26,12, 1),I=1,6) /0.7553E+04, 0.1258E+04,
     1 0.8097E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,26,12, 2),I=1,6) /0.1287E+04, 0.1967E+03,
     1 0.7555E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,26,12, 3),I=1,6) /0.1181E+04, 0.2136E+03,
     1 0.1496E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,26,12, 4),I=1,6) /0.4570E+03, 0.4064E+02,
     1 0.1228E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,26,13, 1),I=1,6) /0.7499E+04, 0.1112E+04,
     1 0.1052E+02, 0.3562E+02, 0.1871E+01, 0.0000E+00/
      DATA (PH1(I,26,13, 2),I=1,6) /0.1240E+04, 0.1724E+03,
     1 0.8240E+01, 0.2693E+02, 0.4675E+01, 0.0000E+00/
      DATA (PH1(I,26,13, 3),I=1,6) /0.1125E+04, 0.1387E+03,
     1 0.3367E+03, 0.5279E+02, 0.4407E+01, 0.1111E-04/
      DATA (PH1(I,26,13, 4),I=1,6) /0.4238E+03, 0.7077E+02,
     1 0.7969E+01, 0.5650E+03, 0.3329E+01, 0.0000E+00/
      DATA (PH1(I,26,13, 5),I=1,6) /0.3922E+03, 0.7993E+02,
     1 0.1135E+02, 0.5807E+02, 0.5676E+01, 0.6512E-01/
      DATA (PH1(I,26,14, 1),I=1,6) /0.7450E+04, 0.1103E+04,
     1 0.1069E+02, 0.3585E+02, 0.1875E+01, 0.0000E+00/
      DATA (PH1(I,26,14, 2),I=1,6) /0.1197E+04, 0.1722E+03,
     1 0.8199E+01, 0.2626E+02, 0.4710E+01, 0.0000E+00/
      DATA (PH1(I,26,14, 3),I=1,6) /0.1081E+04, 0.1392E+03,
     1 0.3316E+03, 0.5237E+02, 0.4410E+01, 0.1107E-04/
      DATA (PH1(I,26,14, 4),I=1,6) /0.3916E+03, 0.6712E+02,
     1 0.8093E+01, 0.5886E+03, 0.3360E+01, 0.0000E+00/
      DATA (PH1(I,26,14, 5),I=1,6) /0.3610E+03, 0.8203E+02,
     1 0.2092E+02, 0.6128E+02, 0.5596E+01, 0.3441E-01/
      DATA (PH1(I,26,15, 1),I=1,6) /0.7403E+04, 0.1096E+04,
     1 0.1083E+02, 0.3612E+02, 0.1878E+01, 0.0000E+00/
      DATA (PH1(I,26,15, 2),I=1,6) /0.1155E+04, 0.1720E+03,
     1 0.8161E+01, 0.2570E+02, 0.4741E+01, 0.0000E+00/
      DATA (PH1(I,26,15, 3),I=1,6) /0.1039E+04, 0.1383E+03,
     1 0.3325E+03, 0.5090E+02, 0.4446E+01, 0.1114E-04/
      DATA (PH1(I,26,15, 4),I=1,6) /0.3600E+03, 0.6329E+02,
     1 0.8143E+01, 0.5637E+03, 0.3421E+01, 0.0000E+00/
      DATA (PH1(I,26,15, 5),I=1,6) /0.3308E+03, 0.8150E+02,
     1 0.3022E+02, 0.6039E+02, 0.5612E+01, 0.2772E-01/
      DATA (PH1(I,26,16, 1),I=1,6) /0.7359E+04, 0.1095E+04,
     1 0.1084E+02, 0.3598E+02, 0.1880E+01, 0.0000E+00/
      DATA (PH1(I,26,16, 2),I=1,6) /0.1115E+04, 0.1714E+03,
     1 0.8138E+01, 0.2516E+02, 0.4774E+01, 0.0000E+00/
      DATA (PH1(I,26,16, 3),I=1,6) /0.9983E+03, 0.1632E+03,
     1 0.2449E+03, 0.5452E+02, 0.4187E+01, 0.1594E-04/
      DATA (PH1(I,26,16, 4),I=1,6) /0.3292E+03, 0.6060E+02,
     1 0.7963E+01, 0.5214E+03, 0.3487E+01, 0.0000E+00/
      DATA (PH1(I,26,16, 5),I=1,6) /0.2902E+03, 0.7972E+02,
     1 0.3922E+02, 0.5574E+02, 0.5729E+01, 0.2828E-01/
      DATA (PH1(I,26,17, 1),I=1,6) /0.7316E+04, 0.1098E+04,
     1 0.1078E+02, 0.3596E+02, 0.1878E+01, 0.0000E+00/
      DATA (PH1(I,26,17, 2),I=1,6) /0.1076E+04, 0.1710E+03,
     1 0.8135E+01, 0.2440E+02, 0.4817E+01, 0.0000E+00/
      DATA (PH1(I,26,17, 3),I=1,6) /0.9590E+03, 0.1647E+03,
     1 0.2392E+03, 0.5276E+02, 0.4204E+01, 0.1574E-04/
      DATA (PH1(I,26,17, 4),I=1,6) /0.2990E+03, 0.5854E+02,
     1 0.7650E+01, 0.4679E+03, 0.3561E+01, 0.0000E+00/
      DATA (PH1(I,26,17, 5),I=1,6) /0.2621E+03, 0.7914E+02,
     1 0.4686E+02, 0.5125E+02, 0.5835E+01, 0.2574E-01/
      DATA (PH1(I,26,18, 1),I=1,6) /0.7275E+04, 0.1102E+04,
     1 0.1068E+02, 0.3576E+02, 0.1878E+01, 0.0000E+00/
      DATA (PH1(I,26,18, 2),I=1,6) /0.1039E+04, 0.1706E+03,
     1 0.8130E+01, 0.2387E+02, 0.4850E+01, 0.0000E+00/
      DATA (PH1(I,26,18, 3),I=1,6) /0.9211E+03, 0.1715E+03,
     1 0.2205E+03, 0.5298E+02, 0.4154E+01, 0.1508E-04/
      DATA (PH1(I,26,18, 4),I=1,6) /0.2696E+03, 0.5701E+02,
     1 0.7237E+01, 0.4092E+03, 0.3643E+01, 0.0000E+00/
      DATA (PH1(I,26,18, 5),I=1,6) /0.2336E+03, 0.7704E+02,
     1 0.5530E+02, 0.4380E+02, 0.6059E+01, 0.2673E-01/
      DATA (PH1(I,26,19, 1),I=1,6) /0.7240E+04, 0.1103E+04,
     1 0.1067E+02, 0.3584E+02, 0.1876E+01, 0.0000E+00/
      DATA (PH1(I,26,19, 2),I=1,6) /0.1003E+04, 0.1694E+03,
     1 0.8158E+01, 0.2345E+02, 0.4887E+01, 0.0000E+00/
      DATA (PH1(I,26,19, 3),I=1,6) /0.8849E+03, 0.1788E+03,
     1 0.2032E+03, 0.5293E+02, 0.4107E+01, 0.1398E-04/
      DATA (PH1(I,26,19, 4),I=1,6) /0.2409E+03, 0.5450E+02,
     1 0.6938E+01, 0.3605E+03, 0.3741E+01, 0.0000E+00/
      DATA (PH1(I,26,19, 5),I=1,6) /0.2055E+03, 0.7556E+02,
     1 0.5336E+02, 0.3855E+02, 0.6265E+01, 0.2667E-01/
      DATA (PH1(I,26,19, 6),I=1,6) /0.1511E+03, 0.3652E+02,
     1 0.1323E+03, 0.9277E+02, 0.6150E+01, 0.2051E-01/
      DATA (PH1(I,26,20, 1),I=1,6) /0.7207E+04, 0.1110E+04,
     1 0.1055E+02, 0.3563E+02, 0.1873E+01, 0.0000E+00/
      DATA (PH1(I,26,20, 2),I=1,6) /0.9693E+03, 0.1694E+03,
     1 0.8138E+01, 0.2316E+02, 0.4905E+01, 0.0000E+00/
      DATA (PH1(I,26,20, 3),I=1,6) /0.8512E+03, 0.1840E+03,
     1 0.1920E+03, 0.5238E+02, 0.4082E+01, 0.1377E-04/
      DATA (PH1(I,26,20, 4),I=1,6) /0.2135E+03, 0.5365E+02,
     1 0.6463E+01, 0.3169E+03, 0.3824E+01, 0.0000E+00/
      DATA (PH1(I,26,20, 5),I=1,6) /0.1783E+03, 0.7433E+02,
     1 0.5210E+02, 0.3306E+02, 0.6509E+01, 0.2404E-01/
      DATA (PH1(I,26,20, 6),I=1,6) /0.1250E+03, 0.4332E+02,
     1 0.1701E+03, 0.9791E+02, 0.5905E+01, 0.2604E-01/
      DATA (PH1(I,26,21, 1),I=1,6) /0.7177E+04, 0.1113E+04,
     1 0.1049E+02, 0.3537E+02, 0.1874E+01, 0.0000E+00/
      DATA (PH1(I,26,21, 2),I=1,6) /0.9383E+03, 0.1803E+03,
     1 0.7682E+01, 0.2415E+02, 0.4757E+01, 0.0000E+00/
      DATA (PH1(I,26,21, 3),I=1,6) /0.8202E+03, 0.1952E+03,
     1 0.1709E+03, 0.5690E+02, 0.3953E+01, 0.1330E-04/
      DATA (PH1(I,26,21, 4),I=1,6) /0.1876E+03, 0.5277E+02,
     1 0.6047E+01, 0.2797E+03, 0.3910E+01, 0.0000E+00/
      DATA (PH1(I,26,21, 5),I=1,6) /0.1527E+03, 0.7260E+02,
     1 0.5246E+02, 0.2751E+02, 0.6823E+01, 0.2105E-01/
      DATA (PH1(I,26,21, 6),I=1,6) /0.9906E+02, 0.4487E+02,
     1 0.2082E+03, 0.9579E+02, 0.5914E+01, 0.2368E-01/
      DATA (PH1(I,26,22, 1),I=1,6) /0.7149E+04, 0.1124E+04,
     1 0.1027E+02, 0.3534E+02, 0.1866E+01, 0.0000E+00/
      DATA (PH1(I,26,22, 2),I=1,6) /0.9101E+03, 0.1818E+03,
     1 0.7623E+01, 0.2401E+02, 0.4752E+01, 0.0000E+00/
      DATA (PH1(I,26,22, 3),I=1,6) /0.7920E+03, 0.1996E+03,
     1 0.1636E+03, 0.5719E+02, 0.3924E+01, 0.1320E-04/
      DATA (PH1(I,26,22, 4),I=1,6) /0.1633E+03, 0.5218E+02,
     1 0.5672E+01, 0.2482E+03, 0.3991E+01, 0.0000E+00/
      DATA (PH1(I,26,22, 5),I=1,6) /0.1288E+03, 0.7273E+02,
     1 0.5143E+02, 0.2428E+02, 0.7028E+01, 0.1365E+00/
      DATA (PH1(I,26,22, 6),I=1,6) /0.7501E+02, 0.4369E+02,
     1 0.2661E+03, 0.6273E+02, 0.6344E+01, 0.2402E+00/
      DATA (PH1(I,26,23, 1),I=1,6) /0.7125E+04, 0.1155E+04,
     1 0.9711E+01, 0.3329E+02, 0.1869E+01, 0.0000E+00/
      DATA (PH1(I,26,23, 2),I=1,6) /0.8849E+03, 0.2059E+03,
     1 0.6695E+01, 0.2772E+02, 0.4410E+01, 0.0000E+00/
      DATA (PH1(I,26,23, 3),I=1,6) /0.7669E+03, 0.2032E+03,
     1 0.1578E+03, 0.5933E+02, 0.3879E+01, 0.1308E-04/
      DATA (PH1(I,26,23, 4),I=1,6) /0.1411E+03, 0.5256E+02,
     1 0.5295E+01, 0.2332E+03, 0.4036E+01, 0.0000E+00/
      DATA (PH1(I,26,23, 5),I=1,6) /0.1067E+03, 0.7625E+02,
     1 0.4810E+02, 0.2286E+02, 0.7043E+01, 0.2449E+00/
      DATA (PH1(I,26,23, 6),I=1,6) /0.5480E+02, 0.4154E+02,
     1 0.3683E+03, 0.3529E+02, 0.7056E+01, 0.3316E+00/
      DATA (PH1(I,26,24, 1),I=1,6) /0.7104E+04, 0.1245E+04,
     1 0.8309E+01, 0.3170E+02, 0.1826E+01, 0.0000E+00/
      DATA (PH1(I,26,24, 2),I=1,6) /0.8631E+03, 0.2158E+03,
     1 0.6454E+01, 0.2722E+02, 0.4355E+01, 0.0000E+00/
      DATA (PH1(I,26,24, 3),I=1,6) /0.7451E+03, 0.2023E+03,
     1 0.1591E+03, 0.5990E+02, 0.3878E+01, 0.1309E-04/
      DATA (PH1(I,26,24, 4),I=1,6) /0.1211E+03, 0.5277E+02,
     1 0.5015E+01, 0.2131E+03, 0.4093E+01, 0.0000E+00/
      DATA (PH1(I,26,24, 5),I=1,6) /0.8705E+02, 0.7777E+02,
     1 0.4422E+02, 0.2336E+02, 0.7017E+01, 0.2557E+00/
      DATA (PH1(I,26,24, 6),I=1,6) /0.3065E+02, 0.2670E+02,
     1 0.6301E+04, 0.5385E+01, 0.1232E+02, 0.4407E+00/
      DATA (PH1(I,26,25, 1),I=1,6) /0.7093E+04, 0.8931E+03,
     1 0.1666E+02, 0.2381E+02, 0.2262E+01, 0.0000E+00/
      DATA (PH1(I,26,25, 2),I=1,6) /0.8521E+03, 0.1431E+03,
     1 0.9289E+01, 0.2026E+02, 0.5376E+01, 0.0000E+00/
      DATA (PH1(I,26,25, 3),I=1,6) /0.7341E+03, 0.2281E+03,
     1 0.1241E+03, 0.8058E+02, 0.3572E+01, 0.1223E+00/
      DATA (PH1(I,26,25, 4),I=1,6) /0.1102E+03, 0.4663E+02,
     1 0.5434E+01, 0.9271E+02, 0.4640E+01, 0.0000E+00/
      DATA (PH1(I,26,25, 5),I=1,6) /0.7617E+02, 0.7750E+02,
     1 0.4624E+02, 0.2155E+02, 0.7138E+01, 0.2599E+00/
      DATA (PH1(I,26,25, 6),I=1,6) /0.2193E+02, 0.1933E+02,
     1 0.3679E+05, 0.3564E+01, 0.1566E+02, 0.4144E+00/
      DATA (PH1(I,26,25, 7),I=1,6) /0.1619E+02, 0.1014E+02,
     1 0.1084E+01, 0.2562E+05, 0.4167E+01, 0.1598E-01/
      DATA (PH1(I,26,26, 1),I=1,6) /0.7124E+04, 0.8044E+03,
     1 0.2055E+02, 0.3633E+02, 0.2118E+01, 0.0000E+00/
      DATA (PH1(I,26,26, 2),I=1,6) /0.8570E+03, 0.5727E+02,
     1 0.1076E+02, 0.2785E+02, 0.6635E+01, 0.0000E+00/
      DATA (PH1(I,26,26, 3),I=1,6) /0.7240E+03, 0.2948E+03,
     1 0.7191E+02, 0.3219E+03, 0.2837E+01, 0.6314E-01/
      DATA (PH1(I,26,26, 4),I=1,6) /0.1040E+03, 0.4334E+02,
     1 0.5921E+01, 0.5293E+02, 0.5129E+01, 0.0000E+00/
      DATA (PH1(I,26,26, 5),I=1,6) /0.6600E+02, 0.7630E+02,
     1 0.6298E+02, 0.1479E+02, 0.7672E+01, 0.2646E+00/
      DATA (PH1(I,26,26, 6),I=1,6) /0.1470E+02, 0.1407E+02,
     1 0.1850E+05, 0.4458E+01, 0.1691E+02, 0.4039E+00/
      DATA (PH1(I,26,26, 7),I=1,6) /0.7902E+01, 0.1277E+02,
     1 0.1468E+01, 0.1116E+06, 0.4112E+01, 0.3238E-01/
      DATA (PH1(I,27, 1, 1),I=1,6) /0.1001E+05, 0.3163E+03,
     1 0.7510E+02, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,27, 2, 1),I=1,6) /0.9545E+04, 0.1251E+04,
     1 0.9046E+01, 0.6786E+02, 0.1613E+01, 0.0000E+00/
      DATA (PH1(I,27, 3, 1),I=1,6) /0.9347E+04, 0.1249E+04,
     1 0.9384E+01, 0.6378E+02, 0.1609E+01, 0.0000E+00/
      DATA (PH1(I,27, 3, 2),I=1,6) /0.2219E+04, 0.2352E+03,
     1 0.4599E+01, 0.3873E+02, 0.3808E+01, 0.0000E+00/
      DATA (PH1(I,27, 4, 1),I=1,6) /0.9205E+04, 0.1267E+04,
     1 0.9026E+01, 0.6059E+02, 0.1619E+01, 0.0000E+00/
      DATA (PH1(I,27, 4, 2),I=1,6) /0.2119E+04, 0.1593E+03,
     1 0.1253E+02, 0.3366E+02, 0.4493E+01, 0.0000E+00/
      DATA (PH1(I,27, 5, 1),I=1,6) /0.9046E+04, 0.1275E+04,
     1 0.8806E+01, 0.5513E+02, 0.1651E+01, 0.0000E+00/
      DATA (PH1(I,27, 5, 2),I=1,6) /0.2012E+04, 0.1799E+03,
     1 0.1074E+02, 0.2878E+02, 0.4518E+01, 0.0000E+00/
      DATA (PH1(I,27, 5, 3),I=1,6) /0.1961E+04, 0.1923E+03,
     1 0.4987E+02, 0.9392E+02, 0.3631E+01, 0.2239E-04/
      DATA (PH1(I,27, 6, 1),I=1,6) /0.8890E+04, 0.1277E+04,
     1 0.8703E+01, 0.5267E+02, 0.1668E+01, 0.0000E+00/
      DATA (PH1(I,27, 6, 2),I=1,6) /0.1910E+04, 0.1760E+03,
     1 0.1043E+02, 0.2775E+02, 0.4612E+01, 0.0000E+00/
      DATA (PH1(I,27, 6, 3),I=1,6) /0.1846E+04, 0.2159E+03,
     1 0.7348E+02, 0.9457E+02, 0.3535E+01, 0.1182E-04/
      DATA (PH1(I,27, 7, 1),I=1,6) /0.8718E+04, 0.1330E+04,
     1 0.8042E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,27, 7, 2),I=1,6) /0.1803E+04, 0.2030E+03,
     1 0.8771E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,27, 7, 3),I=1,6) /0.1735E+04, 0.2134E+03,
     1 0.1027E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,27, 8, 1),I=1,6) /0.8595E+04, 0.1260E+04,
     1 0.8868E+01, 0.4790E+02, 0.1717E+01, 0.0000E+00/
      DATA (PH1(I,27, 8, 2),I=1,6) /0.1711E+04, 0.1706E+03,
     1 0.9597E+01, 0.2731E+02, 0.4722E+01, 0.0000E+00/
      DATA (PH1(I,27, 8, 3),I=1,6) /0.1603E+04, 0.2448E+03,
     1 0.9893E+02, 0.9263E+02, 0.3432E+01, 0.9870E-05/
      DATA (PH1(I,27, 9, 1),I=1,6) /0.8433E+04, 0.1344E+04,
     1 0.7779E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,27, 9, 2),I=1,6) /0.1606E+04, 0.2084E+03,
     1 0.7728E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,27, 9, 3),I=1,6) /0.1505E+04, 0.2157E+03,
     1 0.1481E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,27,10, 1),I=1,6) /0.8315E+04, 0.1252E+04,
     1 0.8903E+01, 0.4635E+02, 0.1738E+01, 0.0000E+00/
      DATA (PH1(I,27,10, 2),I=1,6) /0.1519E+04, 0.1643E+03,
     1 0.8754E+01, 0.2695E+02, 0.4851E+01, 0.0000E+00/
      DATA (PH1(I,27,10, 3),I=1,6) /0.1397E+04, 0.2062E+03,
     1 0.1816E+03, 0.6860E+02, 0.3824E+01, 0.9070E-05/
      DATA (PH1(I,27,11, 1),I=1,6) /0.8260E+04, 0.1249E+04,
     1 0.8967E+01, 0.4909E+02, 0.1719E+01, 0.0000E+00/
      DATA (PH1(I,27,11, 2),I=1,6) /0.1470E+04, 0.1433E+03,
     1 0.9597E+01, 0.2996E+02, 0.4928E+01, 0.0000E+00/
      DATA (PH1(I,27,11, 3),I=1,6) /0.1362E+04, 0.2054E+03,
     1 0.1804E+03, 0.6660E+02, 0.3855E+01, 0.8999E-05/
      DATA (PH1(I,27,11, 4),I=1,6) /0.5466E+03, 0.1262E+02,
     1 0.2734E+02, 0.6463E+03, 0.4280E+01, 0.0000E+00/
      DATA (PH1(I,27,12, 1),I=1,6) /0.8207E+04, 0.1277E+04,
     1 0.8536E+01, 0.4760E+02, 0.1714E+01, 0.0000E+00/
      DATA (PH1(I,27,12, 2),I=1,6) /0.1423E+04, 0.1673E+03,
     1 0.8543E+01, 0.2705E+02, 0.4820E+01, 0.0000E+00/
      DATA (PH1(I,27,12, 3),I=1,6) /0.1314E+04, 0.2058E+03,
     1 0.1783E+03, 0.6530E+02, 0.3868E+01, 0.8972E-05/
      DATA (PH1(I,27,12, 4),I=1,6) /0.5120E+03, 0.2690E+02,
     1 0.2122E+02, 0.3166E+03, 0.4210E+01, 0.0000E+00/
      DATA (PH1(I,27,13, 1),I=1,6) /0.8154E+04, 0.1277E+04,
     1 0.8527E+01, 0.4599E+02, 0.1727E+01, 0.0000E+00/
      DATA (PH1(I,27,13, 2),I=1,6) /0.1376E+04, 0.1726E+03,
     1 0.8292E+01, 0.2627E+02, 0.4812E+01, 0.0000E+00/
      DATA (PH1(I,27,13, 3),I=1,6) /0.1266E+04, 0.1933E+03,
     1 0.2002E+03, 0.6453E+02, 0.3945E+01, 0.9099E-05/
      DATA (PH1(I,27,13, 4),I=1,6) /0.4777E+03, 0.2652E+02,
     1 0.1977E+02, 0.2830E+03, 0.4297E+01, 0.0000E+00/
      DATA (PH1(I,27,13, 5),I=1,6) /0.4440E+03, 0.1358E+03,
     1 0.6171E+01, 0.4715E+02, 0.5247E+01, 0.8240E+00/
      DATA (PH1(I,27,14, 1),I=1,6) /0.8102E+04, 0.1272E+04,
     1 0.8593E+01, 0.4604E+02, 0.1730E+01, 0.0000E+00/
      DATA (PH1(I,27,14, 2),I=1,6) /0.1331E+04, 0.1718E+03,
     1 0.8247E+01, 0.2592E+02, 0.4840E+01, 0.0000E+00/
      DATA (PH1(I,27,14, 3),I=1,6) /0.1219E+04, 0.1931E+03,
     1 0.1993E+03, 0.6407E+02, 0.3953E+01, 0.9111E-05/
      DATA (PH1(I,27,14, 4),I=1,6) /0.4436E+03, 0.2529E+02,
     1 0.1979E+02, 0.2943E+03, 0.4315E+01, 0.0000E+00/
      DATA (PH1(I,27,14, 5),I=1,6) /0.4110E+03, 0.9918E+02,
     1 0.1786E+02, 0.5216E+02, 0.5592E+01, 0.5707E+00/
      DATA (PH1(I,27,15, 1),I=1,6) /0.8045E+04, 0.1361E+04,
     1 0.7456E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,27,15, 2),I=1,6) /0.1281E+04, 0.2135E+03,
     1 0.6900E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,27,15, 3),I=1,6) /0.1167E+04, 0.2301E+03,
     1 0.1403E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,27,15, 4),I=1,6) /0.4088E+03, 0.4412E+02,
     1 0.1052E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,27,15, 5),I=1,6) /0.3790E+03, 0.8885E+02,
     1 0.2993E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,27,16, 1),I=1,6) /0.8005E+04, 0.1264E+04,
     1 0.8703E+01, 0.4638E+02, 0.1732E+01, 0.0000E+00/
      DATA (PH1(I,27,16, 2),I=1,6) /0.1244E+04, 0.1755E+03,
     1 0.8017E+01, 0.2508E+02, 0.4854E+01, 0.0000E+00/
      DATA (PH1(I,27,16, 3),I=1,6) /0.1131E+04, 0.1925E+03,
     1 0.1972E+03, 0.6228E+02, 0.3980E+01, 0.9096E-05/
      DATA (PH1(I,27,16, 4),I=1,6) /0.3775E+03, 0.2185E+02,
     1 0.1954E+02, 0.3125E+03, 0.4423E+01, 0.0000E+00/
      DATA (PH1(I,27,16, 5),I=1,6) /0.3360E+03, 0.9235E+02,
     1 0.3595E+02, 0.4513E+02, 0.5839E+01, 0.5704E+00/
      DATA (PH1(I,27,17, 1),I=1,6) /0.7951E+04, 0.1362E+04,
     1 0.7447E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,27,17, 2),I=1,6) /0.1196E+04, 0.2146E+03,
     1 0.6772E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,27,17, 3),I=1,6) /0.1080E+04, 0.2305E+03,
     1 0.1383E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,27,17, 4),I=1,6) /0.3439E+03, 0.4522E+02,
     1 0.9201E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,27,17, 5),I=1,6) /0.3053E+03, 0.8909E+02,
     1 0.4487E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,27,18, 1),I=1,6) /0.7915E+04, 0.1266E+04,
     1 0.8671E+01, 0.4646E+02, 0.1731E+01, 0.0000E+00/
      DATA (PH1(I,27,18, 2),I=1,6) /0.1163E+04, 0.1808E+03,
     1 0.7771E+01, 0.2435E+02, 0.4849E+01, 0.0000E+00/
      DATA (PH1(I,27,18, 3),I=1,6) /0.1048E+04, 0.1922E+03,
     1 0.1949E+03, 0.5995E+02, 0.4013E+01, 0.9089E-05/
      DATA (PH1(I,27,18, 4),I=1,6) /0.3142E+03, 0.3099E+02,
     1 0.1193E+02, 0.2258E+03, 0.4398E+01, 0.0000E+00/
      DATA (PH1(I,27,18, 5),I=1,6) /0.2754E+03, 0.9052E+02,
     1 0.5045E+02, 0.4052E+02, 0.6001E+01, 0.4620E+00/
      DATA (PH1(I,27,19, 1),I=1,6) /0.7877E+04, 0.1287E+04,
     1 0.8375E+01, 0.4957E+02, 0.1697E+01, 0.0000E+00/
      DATA (PH1(I,27,19, 2),I=1,6) /0.1123E+04, 0.1802E+03,
     1 0.7760E+01, 0.2395E+02, 0.4878E+01, 0.0000E+00/
      DATA (PH1(I,27,19, 3),I=1,6) /0.1009E+04, 0.1943E+03,
     1 0.1901E+03, 0.5795E+02, 0.4029E+01, 0.8959E-05/
      DATA (PH1(I,27,19, 4),I=1,6) /0.2833E+03, 0.3765E+02,
     1 0.9284E+01, 0.1936E+03, 0.4355E+01, 0.0000E+00/
      DATA (PH1(I,27,19, 5),I=1,6) /0.2450E+03, 0.9011E+02,
     1 0.4789E+02, 0.3807E+02, 0.6102E+01, 0.4132E+00/
      DATA (PH1(I,27,19, 6),I=1,6) /0.1861E+03, 0.3461E+02,
     1 0.1735E+03, 0.7681E+02, 0.6518E+01, 0.1706E-03/
      DATA (PH1(I,27,20, 1),I=1,6) /0.7836E+04, 0.1363E+04,
     1 0.7433E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,27,20, 2),I=1,6) /0.1086E+04, 0.2158E+03,
     1 0.6639E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,27,20, 3),I=1,6) /0.9692E+03, 0.2313E+03,
     1 0.1357E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,27,20, 4),I=1,6) /0.2544E+03, 0.4790E+02,
     1 0.7244E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,27,20, 5),I=1,6) /0.2158E+03, 0.9095E+02,
     1 0.4368E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,27,20, 6),I=1,6) /0.1578E+03, 0.4257E+02,
     1 0.2299E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,27,21, 1),I=1,6) /0.7807E+04, 0.1295E+04,
     1 0.8260E+01, 0.5104E+02, 0.1682E+01, 0.0000E+00/
      DATA (PH1(I,27,21, 2),I=1,6) /0.1052E+04, 0.1797E+03,
     1 0.7740E+01, 0.2344E+02, 0.4914E+01, 0.0000E+00/
      DATA (PH1(I,27,21, 3),I=1,6) /0.9379E+03, 0.2015E+03,
     1 0.1767E+03, 0.5582E+02, 0.4018E+01, 0.8773E-05/
      DATA (PH1(I,27,21, 4),I=1,6) /0.2255E+03, 0.4430E+02,
     1 0.6990E+01, 0.1659E+03, 0.4350E+01, 0.0000E+00/
      DATA (PH1(I,27,21, 5),I=1,6) /0.1876E+03, 0.8695E+02,
     1 0.4460E+02, 0.3324E+02, 0.6378E+01, 0.3125E+00/
      DATA (PH1(I,27,21, 6),I=1,6) /0.1290E+03, 0.4433E+02,
     1 0.2748E+03, 0.5829E+02, 0.6482E+01, 0.1086E-03/
      DATA (PH1(I,27,22, 1),I=1,6) /0.7776E+04, 0.1364E+04,
     1 0.7423E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,27,22, 2),I=1,6) /0.1025E+04, 0.2163E+03,
     1 0.6587E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,27,22, 3),I=1,6) /0.9074E+03, 0.2319E+03,
     1 0.1344E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,27,22, 4),I=1,6) /0.1999E+03, 0.5038E+02,
     1 0.6114E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,27,22, 5),I=1,6) /0.1619E+03, 0.9318E+02,
     1 0.3733E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,27,22, 6),I=1,6) /0.1020E+03, 0.4352E+02,
     1 0.3483E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,27,23, 1),I=1,6) /0.7749E+04, 0.1313E+04,
     1 0.8026E+01, 0.5052E+02, 0.1675E+01, 0.0000E+00/
      DATA (PH1(I,27,23, 2),I=1,6) /0.9918E+03, 0.1840E+03,
     1 0.7606E+01, 0.2298E+02, 0.4903E+01, 0.0000E+00/
      DATA (PH1(I,27,23, 3),I=1,6) /0.8775E+03, 0.2077E+03,
     1 0.1666E+03, 0.5503E+02, 0.3993E+01, 0.8505E-05/
      DATA (PH1(I,27,23, 4),I=1,6) /0.1740E+03, 0.5017E+02,
     1 0.5619E+01, 0.1481E+03, 0.4342E+01, 0.0000E+00/
      DATA (PH1(I,27,23, 5),I=1,6) /0.1366E+03, 0.8377E+02,
     1 0.4275E+02, 0.2773E+02, 0.6744E+01, 0.2457E+00/
      DATA (PH1(I,27,23, 6),I=1,6) /0.7950E+02, 0.4369E+02,
     1 0.3792E+03, 0.4396E+02, 0.6895E+01, 0.1079E-03/
      DATA (PH1(I,27,24, 1),I=1,6) /0.7729E+04, 0.1365E+04,
     1 0.7414E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,27,24, 2),I=1,6) /0.9731E+03, 0.2166E+03,
     1 0.6563E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,27,24, 3),I=1,6) /0.8556E+03, 0.2326E+03,
     1 0.1332E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,27,24, 4),I=1,6) /0.1495E+03, 0.5342E+02,
     1 0.5159E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,27,24, 5),I=1,6) /0.1128E+03, 0.9621E+02,
     1 0.3175E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,27,24, 6),I=1,6) /0.5127E+02, 0.4530E+02,
     1 0.3755E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,27,25, 1),I=1,6) /0.7702E+04, 0.1487E+04,
     1 0.6149E+01, 0.5282E+02, 0.1571E+01, 0.0000E+00/
      DATA (PH1(I,27,25, 2),I=1,6) /0.9437E+03, 0.2172E+03,
     1 0.6667E+01, 0.2353E+02, 0.4602E+01, 0.0000E+00/
      DATA (PH1(I,27,25, 3),I=1,6) /0.8295E+03, 0.2089E+03,
     1 0.1651E+03, 0.5457E+02, 0.3992E+01, 0.8474E-05/
      DATA (PH1(I,27,25, 4),I=1,6) /0.1305E+03, 0.5435E+02,
     1 0.4874E+01, 0.1379E+03, 0.4336E+01, 0.0000E+00/
      DATA (PH1(I,27,25, 5),I=1,6) /0.9362E+02, 0.8419E+02,
     1 0.4192E+02, 0.2297E+02, 0.7043E+01, 0.2547E+00/
      DATA (PH1(I,27,25, 6),I=1,6) /0.3350E+02, 0.2181E+02,
     1 0.1205E+04, 0.1434E+02, 0.1114E+02, 0.1266E-01/
      DATA (PH1(I,27,26, 1),I=1,6) /0.7684E+04, 0.2079E+04,
     1 0.3020E+01, 0.1067E+04, 0.9653E+00, 0.0000E+00/
      DATA (PH1(I,27,26, 2),I=1,6) /0.9252E+03, 0.1709E+03,
     1 0.8001E+01, 0.2274E+02, 0.5044E+01, 0.0000E+00/
      DATA (PH1(I,27,26, 3),I=1,6) /0.7997E+03, 0.1989E+03,
     1 0.1810E+03, 0.5274E+02, 0.4078E+01, 0.1431E-03/
      DATA (PH1(I,27,26, 4),I=1,6) /0.1129E+03, 0.5602E+02,
     1 0.4666E+01, 0.1358E+03, 0.4323E+01, 0.0000E+00/
      DATA (PH1(I,27,26, 5),I=1,6) /0.7621E+02, 0.8408E+02,
     1 0.4300E+02, 0.2074E+02, 0.7214E+01, 0.2553E+00/
      DATA (PH1(I,27,26, 6),I=1,6) /0.1708E+02, 0.2419E+01,
     1 0.1275E+02, 0.2823E+02, 0.1843E+02, 0.4806E-04/
      DATA (PH1(I,27,27, 1),I=1,6) /0.7725E+04, 0.6269E+03,
     1 0.3582E+02, 0.3161E+02, 0.2476E+01, 0.0000E+00/
      DATA (PH1(I,27,27, 2),I=1,6) /0.9400E+03, 0.8888E+02,
     1 0.1030E+02, 0.2797E+02, 0.5913E+01, 0.0000E+00/
      DATA (PH1(I,27,27, 3),I=1,6) /0.8000E+03, 0.2832E+03,
     1 0.9075E+02, 0.7686E+02, 0.3416E+01, 0.4833E-04/
      DATA (PH1(I,27,27, 4),I=1,6) /0.1150E+03, 0.5097E+02,
     1 0.4896E+01, 0.1198E+03, 0.4513E+01, 0.0000E+00/
      DATA (PH1(I,27,27, 5),I=1,6) /0.7300E+02, 0.8256E+02,
     1 0.4587E+02, 0.1973E+02, 0.7331E+01, 0.2573E+00/
      DATA (PH1(I,27,27, 6),I=1,6) /0.1580E+02, 0.1581E+02,
     1 0.4931E+04, 0.6607E+01, 0.1532E+02, 0.3676E+00/
      DATA (PH1(I,27,27, 7),I=1,6) /0.7864E+01, 0.1370E+02,
     1 0.1555E+01, 0.7559E+03, 0.4337E+01, 0.3355E-01/
      DATA (PH1(I,28, 1, 1),I=1,6) /0.1078E+05, 0.3406E+03,
     1 0.6983E+02, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,28, 2, 1),I=1,6) /0.1029E+05, 0.1349E+04,
     1 0.8382E+01, 0.7431E+02, 0.1588E+01, 0.0000E+00/
      DATA (PH1(I,28, 3, 1),I=1,6) /0.1008E+05, 0.1373E+04,
     1 0.8336E+01, 0.7347E+02, 0.1558E+01, 0.0000E+00/
      DATA (PH1(I,28, 3, 2),I=1,6) /0.2399E+04, 0.1314E+03,
     1 0.8142E+01, 0.4522E+02, 0.4477E+01, 0.0000E+00/
      DATA (PH1(I,28, 4, 1),I=1,6) /0.9937E+04, 0.1382E+04,
     1 0.8149E+01, 0.6782E+02, 0.1580E+01, 0.0000E+00/
      DATA (PH1(I,28, 4, 2),I=1,6) /0.2295E+04, 0.1813E+03,
     1 0.1117E+02, 0.3332E+02, 0.4426E+01, 0.0000E+00/
      DATA (PH1(I,28, 5, 1),I=1,6) /0.9771E+04, 0.1404E+04,
     1 0.7788E+01, 0.6396E+02, 0.1592E+01, 0.0000E+00/
      DATA (PH1(I,28, 5, 2),I=1,6) /0.2184E+04, 0.1649E+03,
     1 0.1145E+02, 0.2997E+02, 0.4706E+01, 0.0000E+00/
      DATA (PH1(I,28, 5, 3),I=1,6) /0.2131E+04, 0.2473E+03,
     1 0.3198E+02, 0.1014E+03, 0.3435E+01, 0.2062E-05/
      DATA (PH1(I,28, 6, 1),I=1,6) /0.9609E+04, 0.1415E+04,
     1 0.7600E+01, 0.6229E+02, 0.1599E+01, 0.0000E+00/
      DATA (PH1(I,28, 6, 2),I=1,6) /0.2077E+04, 0.1726E+03,
     1 0.1052E+02, 0.2738E+02, 0.4768E+01, 0.0000E+00/
      DATA (PH1(I,28, 6, 3),I=1,6) /0.2011E+04, 0.2139E+03,
     1 0.8219E+02, 0.9511E+02, 0.3615E+01, 0.6838E-06/
      DATA (PH1(I,28, 7, 1),I=1,6) /0.9423E+04, 0.1429E+04,
     1 0.7520E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,28, 7, 2),I=1,6) /0.1965E+04, 0.2177E+03,
     1 0.8285E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,28, 7, 3),I=1,6) /0.1894E+04, 0.2300E+03,
     1 0.9666E+02, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,28, 8, 1),I=1,6) /0.9300E+04, 0.1401E+04,
     1 0.7673E+01, 0.5681E+02, 0.1640E+01, 0.0000E+00/
      DATA (PH1(I,28, 8, 2),I=1,6) /0.1870E+04, 0.1608E+03,
     1 0.9953E+01, 0.2835E+02, 0.4878E+01, 0.0000E+00/
      DATA (PH1(I,28, 8, 3),I=1,6) /0.1756E+04, 0.2140E+03,
     1 0.1434E+03, 0.7628E+02, 0.3752E+01, 0.5528E-06/
      DATA (PH1(I,28, 9, 1),I=1,6) /0.9125E+04, 0.1443E+04,
     1 0.7283E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,28, 9, 2),I=1,6) /0.1760E+04, 0.2233E+03,
     1 0.7335E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,28, 9, 3),I=1,6) /0.1648E+04, 0.2321E+03,
     1 0.1405E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,28,10, 1),I=1,6) /0.9007E+04, 0.1400E+04,
     1 0.7626E+01, 0.5528E+02, 0.1653E+01, 0.0000E+00/
      DATA (PH1(I,28,10, 2),I=1,6) /0.1669E+04, 0.1441E+03,
     1 0.9448E+01, 0.2779E+02, 0.5132E+01, 0.0000E+00/
      DATA (PH1(I,28,10, 3),I=1,6) /0.1541E+04, 0.2358E+03,
     1 0.1530E+03, 0.7451E+02, 0.3705E+01, 0.4687E-06/
      DATA (PH1(I,28,11, 1),I=1,6) /0.8950E+04, 0.1383E+04,
     1 0.7837E+01, 0.5839E+02, 0.1644E+01, 0.0000E+00/
      DATA (PH1(I,28,11, 2),I=1,6) /0.1618E+04, 0.1444E+03,
     1 0.9470E+01, 0.3104E+02, 0.4981E+01, 0.0000E+00/
      DATA (PH1(I,28,11, 3),I=1,6) /0.1506E+04, 0.2334E+03,
     1 0.1540E+03, 0.7184E+02, 0.3746E+01, 0.4400E-06/
      DATA (PH1(I,28,11, 4),I=1,6) /0.6071E+03, 0.1032E+02,
     1 0.3674E+02, 0.8252E+03, 0.4304E+01, 0.0000E+00/
      DATA (PH1(I,28,12, 1),I=1,6) /0.8894E+04, 0.1442E+04,
     1 0.7159E+01, 0.6122E+02, 0.1602E+01, 0.0000E+00/
      DATA (PH1(I,28,12, 2),I=1,6) /0.1569E+04, 0.1824E+03,
     1 0.8013E+01, 0.2738E+02, 0.4780E+01, 0.0000E+00/
      DATA (PH1(I,28,12, 3),I=1,6) /0.1456E+04, 0.2327E+03,
     1 0.1539E+03, 0.7045E+02, 0.3763E+01, 0.4221E-06/
      DATA (PH1(I,28,12, 4),I=1,6) /0.5713E+03, 0.2577E+02,
     1 0.2339E+02, 0.3455E+03, 0.4232E+01, 0.0000E+00/
      DATA (PH1(I,28,13, 1),I=1,6) /0.8838E+04, 0.1452E+04,
     1 0.7048E+01, 0.6036E+02, 0.1602E+01, 0.0000E+00/
      DATA (PH1(I,28,13, 2),I=1,6) /0.1519E+04, 0.1853E+03,
     1 0.7851E+01, 0.2679E+02, 0.4785E+01, 0.0000E+00/
      DATA (PH1(I,28,13, 3),I=1,6) /0.1405E+04, 0.2180E+03,
     1 0.1742E+03, 0.6951E+02, 0.3842E+01, 0.4401E-06/
      DATA (PH1(I,28,13, 4),I=1,6) /0.5347E+03, 0.2505E+02,
     1 0.2361E+02, 0.3622E+03, 0.4225E+01, 0.0000E+00/
      DATA (PH1(I,28,13, 5),I=1,6) /0.4984E+03, 0.1711E+03,
     1 0.4708E+01, 0.4790E+02, 0.5019E+01, 0.8478E+00/
      DATA (PH1(I,28,14, 1),I=1,6) /0.8783E+04, 0.1448E+04,
     1 0.7081E+01, 0.6137E+02, 0.1599E+01, 0.0000E+00/
      DATA (PH1(I,28,14, 2),I=1,6) /0.1471E+04, 0.1841E+03,
     1 0.7825E+01, 0.2644E+02, 0.4816E+01, 0.0000E+00/
      DATA (PH1(I,28,14, 3),I=1,6) /0.1356E+04, 0.2108E+03,
     1 0.1846E+03, 0.6874E+02, 0.3886E+01, 0.4288E-06/
      DATA (PH1(I,28,14, 4),I=1,6) /0.4988E+03, 0.2375E+02,
     1 0.2383E+02, 0.3786E+03, 0.4245E+01, 0.0000E+00/
      DATA (PH1(I,28,14, 5),I=1,6) /0.4637E+03, 0.1543E+03,
     1 0.1053E+02, 0.4743E+02, 0.5176E+01, 0.8373E+00/
      DATA (PH1(I,28,15, 1),I=1,6) /0.8720E+04, 0.1467E+04,
     1 0.6912E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,28,15, 2),I=1,6) /0.1419E+04, 0.2287E+03,
     1 0.6549E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,28,15, 3),I=1,6) /0.1299E+04, 0.2464E+03,
     1 0.1356E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,28,15, 4),I=1,6) /0.4620E+03, 0.4702E+02,
     1 0.1037E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,28,15, 5),I=1,6) /0.4302E+03, 0.9587E+02,
     1 0.2890E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,28,16, 1),I=1,6) /0.8680E+04, 0.1439E+04,
     1 0.7182E+01, 0.6248E+02, 0.1598E+01, 0.0000E+00/
      DATA (PH1(I,28,16, 2),I=1,6) /0.1379E+04, 0.1886E+03,
     1 0.7589E+01, 0.2560E+02, 0.4825E+01, 0.0000E+00/
      DATA (PH1(I,28,16, 3),I=1,6) /0.1262E+04, 0.2088E+03,
     1 0.1852E+03, 0.6640E+02, 0.3924E+01, 0.4306E-06/
      DATA (PH1(I,28,16, 4),I=1,6) /0.4291E+03, 0.2003E+02,
     1 0.2274E+02, 0.3611E+03, 0.4438E+01, 0.0000E+00/
      DATA (PH1(I,28,16, 5),I=1,6) /0.3840E+03, 0.1158E+03,
     1 0.2906E+02, 0.4380E+02, 0.5646E+01, 0.7430E+00/
      DATA (PH1(I,28,17, 1),I=1,6) /0.8620E+04, 0.1467E+04,
     1 0.6916E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,28,17, 2),I=1,6) /0.1328E+04, 0.2299E+03,
     1 0.6430E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,28,17, 3),I=1,6) /0.1207E+04, 0.2467E+03,
     1 0.1337E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,28,17, 4),I=1,6) /0.3933E+03, 0.4806E+02,
     1 0.9150E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,28,17, 5),I=1,6) /0.3521E+03, 0.9596E+02,
     1 0.4382E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,28,18, 1),I=1,6) /0.8584E+04, 0.1440E+04,
     1 0.7163E+01, 0.6246E+02, 0.1599E+01, 0.0000E+00/
      DATA (PH1(I,28,18, 2),I=1,6) /0.1293E+04, 0.1925E+03,
     1 0.7399E+01, 0.2482E+02, 0.4836E+01, 0.0000E+00/
      DATA (PH1(I,28,18, 3),I=1,6) /0.1174E+04, 0.2087E+03,
     1 0.1825E+03, 0.6397E+02, 0.3955E+01, 0.4274E-06/
      DATA (PH1(I,28,18, 4),I=1,6) /0.3620E+03, 0.2901E+02,
     1 0.1340E+02, 0.2515E+03, 0.4429E+01, 0.0000E+00/
      DATA (PH1(I,28,18, 5),I=1,6) /0.3210E+03, 0.1005E+03,
     1 0.4742E+02, 0.4168E+02, 0.5919E+01, 0.5228E+00/
      DATA (PH1(I,28,19, 1),I=1,6) /0.8542E+04, 0.1439E+04,
     1 0.7170E+01, 0.6247E+02, 0.1599E+01, 0.0000E+00/
      DATA (PH1(I,28,19, 2),I=1,6) /0.1251E+04, 0.1931E+03,
     1 0.7348E+01, 0.2450E+02, 0.4851E+01, 0.0000E+00/
      DATA (PH1(I,28,19, 3),I=1,6) /0.1132E+04, 0.2109E+03,
     1 0.1780E+03, 0.6201E+02, 0.3969E+01, 0.4273E-06/
      DATA (PH1(I,28,19, 4),I=1,6) /0.3290E+03, 0.3448E+02,
     1 0.1054E+02, 0.2150E+03, 0.4412E+01, 0.0000E+00/
      DATA (PH1(I,28,19, 5),I=1,6) /0.2877E+03, 0.1033E+03,
     1 0.4372E+02, 0.3878E+02, 0.5977E+01, 0.5276E+00/
      DATA (PH1(I,28,19, 6),I=1,6) /0.2246E+03, 0.3839E+02,
     1 0.1714E+03, 0.7972E+02, 0.6440E+01, 0.1220E-03/
      DATA (PH1(I,28,20, 1),I=1,6) /0.8503E+04, 0.1439E+04,
     1 0.7178E+01, 0.6253E+02, 0.1598E+01, 0.0000E+00/
      DATA (PH1(I,28,20, 2),I=1,6) /0.1211E+04, 0.1935E+03,
     1 0.7316E+01, 0.2416E+02, 0.4868E+01, 0.0000E+00/
      DATA (PH1(I,28,20, 3),I=1,6) /0.1092E+04, 0.2189E+03,
     1 0.1653E+03, 0.6160E+02, 0.3932E+01, 0.4163E-06/
      DATA (PH1(I,28,20, 4),I=1,6) /0.2972E+03, 0.3985E+02,
     1 0.8589E+01, 0.1892E+03, 0.4394E+01, 0.0000E+00/
      DATA (PH1(I,28,20, 5),I=1,6) /0.2561E+03, 0.1023E+03,
     1 0.4197E+02, 0.3659E+02, 0.6079E+01, 0.4805E+00/
      DATA (PH1(I,28,20, 6),I=1,6) /0.1930E+03, 0.4212E+02,
     1 0.2596E+03, 0.6923E+02, 0.6485E+01, 0.1416E-03/
      DATA (PH1(I,28,21, 1),I=1,6) /0.8460E+04, 0.1466E+04,
     1 0.6924E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,28,21, 2),I=1,6) /0.1174E+04, 0.2314E+03,
     1 0.6277E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,28,21, 3),I=1,6) /0.1051E+04, 0.2476E+03,
     1 0.1308E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,28,21, 4),I=1,6) /0.2682E+03, 0.5179E+02,
     1 0.6728E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,28,21, 5),I=1,6) /0.2266E+03, 0.9852E+02,
     1 0.4031E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,28,21, 6),I=1,6) /0.1620E+03, 0.4735E+02,
     1 0.2988E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,28,22, 1),I=1,6) /0.8432E+04, 0.1430E+04,
     1 0.7274E+01, 0.6333E+02, 0.1599E+01, 0.0000E+00/
      DATA (PH1(I,28,22, 2),I=1,6) /0.1139E+04, 0.1947E+03,
     1 0.7253E+01, 0.2382E+02, 0.4880E+01, 0.0000E+00/
      DATA (PH1(I,28,22, 3),I=1,6) /0.1019E+04, 0.2193E+03,
     1 0.1639E+03, 0.5860E+02, 0.3969E+01, 0.4138E-06/
      DATA (PH1(I,28,22, 4),I=1,6) /0.2378E+03, 0.4756E+02,
     1 0.6461E+01, 0.1609E+03, 0.4380E+01, 0.0000E+00/
      DATA (PH1(I,28,22, 5),I=1,6) /0.1971E+03, 0.9385E+02,
     1 0.4144E+02, 0.3216E+02, 0.6437E+01, 0.3229E+00/
      DATA (PH1(I,28,22, 6),I=1,6) /0.1330E+03, 0.5059E+02,
     1 0.3124E+03, 0.5417E+02, 0.6505E+01, 0.1508E-03/
      DATA (PH1(I,28,23, 1),I=1,6) /0.8400E+04, 0.1466E+04,
     1 0.6929E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,28,23, 2),I=1,6) /0.1112E+04, 0.2318E+03,
     1 0.6240E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,28,23, 3),I=1,6) /0.9886E+03, 0.2482E+03,
     1 0.1297E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,28,23, 4),I=1,6) /0.2119E+03, 0.5449E+02,
     1 0.5709E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,28,23, 5),I=1,6) /0.1709E+03, 0.1010E+03,
     1 0.3462E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,28,23, 6),I=1,6) /0.1080E+03, 0.4837E+02,
     1 0.3797E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,28,24, 1),I=1,6) /0.8372E+04, 0.1463E+04,
     1 0.6925E+01, 0.6343E+02, 0.1583E+01, 0.0000E+00/
      DATA (PH1(I,28,24, 2),I=1,6) /0.1077E+04, 0.1956E+03,
     1 0.7233E+01, 0.2315E+02, 0.4910E+01, 0.0000E+00/
      DATA (PH1(I,28,24, 3),I=1,6) /0.9576E+03, 0.2215E+03,
     1 0.1608E+03, 0.5699E+02, 0.3980E+01, 0.4065E-06/
      DATA (PH1(I,28,24, 4),I=1,6) /0.1849E+03, 0.5389E+02,
     1 0.5242E+01, 0.1434E+03, 0.4370E+01, 0.0000E+00/
      DATA (PH1(I,28,24, 5),I=1,6) /0.1447E+03, 0.9036E+02,
     1 0.4016E+02, 0.2699E+02, 0.6796E+01, 0.2509E+00/
      DATA (PH1(I,28,24, 6),I=1,6) /0.7610E+02, 0.4694E+02,
     1 0.4360E+03, 0.3874E+02, 0.7119E+01, 0.3263E-02/
      DATA (PH1(I,28,25, 1),I=1,6) /0.8353E+04, 0.1466E+04,
     1 0.6933E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,28,25, 2),I=1,6) /0.1059E+04, 0.2320E+03,
     1 0.6226E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,28,25, 3),I=1,6) /0.9358E+03, 0.2488E+03,
     1 0.1288E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,28,25, 4),I=1,6) /0.1597E+03, 0.5774E+02,
     1 0.4849E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,28,25, 5),I=1,6) /0.1201E+03, 0.1043E+03,
     1 0.2963E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,28,25, 6),I=1,6) /0.5490E+02, 0.5023E+02,
     1 0.3918E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,28,26, 1),I=1,6) /0.8325E+04, 0.1647E+04,
     1 0.5367E+01, 0.6758E+02, 0.1485E+01, 0.0000E+00/
      DATA (PH1(I,28,26, 2),I=1,6) /0.1028E+04, 0.2324E+03,
     1 0.6314E+01, 0.2361E+02, 0.4604E+01, 0.0000E+00/
      DATA (PH1(I,28,26, 3),I=1,6) /0.9084E+03, 0.2230E+03,
     1 0.1588E+03, 0.5650E+02, 0.3977E+01, 0.4038E-06/
      DATA (PH1(I,28,26, 4),I=1,6) /0.1401E+03, 0.5823E+02,
     1 0.4586E+01, 0.1330E+03, 0.4367E+01, 0.0000E+00/
      DATA (PH1(I,28,26, 5),I=1,6) /0.1003E+03, 0.9061E+02,
     1 0.3980E+02, 0.2247E+02, 0.7093E+01, 0.2543E+00/
      DATA (PH1(I,28,26, 6),I=1,6) /0.3532E+02, 0.2971E+02,
     1 0.1965E+04, 0.9751E+01, 0.1140E+02, 0.4019E+00/
      DATA (PH1(I,28,27, 1),I=1,6) /0.8306E+04, 0.2249E+04,
     1 0.2776E+01, 0.1325E+04, 0.9540E+00, 0.0000E+00/
      DATA (PH1(I,28,27, 2),I=1,6) /0.1009E+04, 0.1808E+03,
     1 0.7632E+01, 0.2289E+02, 0.5060E+01, 0.0000E+00/
      DATA (PH1(I,28,27, 3),I=1,6) /0.8753E+03, 0.2205E+03,
     1 0.1625E+03, 0.5653E+02, 0.3990E+01, 0.1246E-03/
      DATA (PH1(I,28,27, 4),I=1,6) /0.1219E+03, 0.6024E+02,
     1 0.4394E+01, 0.1314E+03, 0.4347E+01, 0.0000E+00/
      DATA (PH1(I,28,27, 5),I=1,6) /0.8232E+02, 0.9066E+02,
     1 0.4075E+02, 0.2048E+02, 0.7246E+01, 0.2545E+00/
      DATA (PH1(I,28,27, 6),I=1,6) /0.1817E+02, 0.1501E+01,
     1 0.9258E+00, 0.4442E+02, 0.1928E+02, 0.3708E-01/
      DATA (PH1(I,28,28, 1),I=1,6) /0.8348E+04, 0.7366E+03,
     1 0.2836E+02, 0.3622E+02, 0.2316E+01, 0.0000E+00/
      DATA (PH1(I,28,28, 2),I=1,6) /0.1024E+04, 0.1132E+03,
     1 0.9424E+01, 0.2712E+02, 0.5643E+01, 0.0000E+00/
      DATA (PH1(I,28,28, 3),I=1,6) /0.8760E+03, 0.3043E+03,
     1 0.8611E+02, 0.7868E+02, 0.3408E+01, 0.1680E-04/
      DATA (PH1(I,28,28, 4),I=1,6) /0.1250E+03, 0.5448E+02,
     1 0.4611E+01, 0.1157E+03, 0.4548E+01, 0.0000E+00/
      DATA (PH1(I,28,28, 5),I=1,6) /0.8200E+02, 0.8896E+02,
     1 0.4351E+02, 0.1942E+02, 0.7372E+01, 0.2566E+00/
      DATA (PH1(I,28,28, 6),I=1,6) /0.1700E+02, 0.6063E+01,
     1 0.1186E+04, 0.6823E+01, 0.2223E+02, 0.6227E-02/
      DATA (PH1(I,28,28, 7),I=1,6) /0.7637E+01, 0.1468E+02,
     1 0.1437E+01, 0.7411E+03, 0.4342E+01, 0.3908E-01/
      DATA (PH1(I,29, 1, 1),I=1,6) /0.1157E+05, 0.3656E+03,
     1 0.6510E+02, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,29, 2, 1),I=1,6) /0.1106E+05, 0.1427E+04,
     1 0.8057E+01, 0.7912E+02, 0.1583E+01, 0.0000E+00/
      DATA (PH1(I,29, 3, 1),I=1,6) /0.1085E+05, 0.1435E+04,
     1 0.8196E+01, 0.7379E+02, 0.1577E+01, 0.0000E+00/
      DATA (PH1(I,29, 3, 2),I=1,6) /0.2585E+04, 0.1732E+03,
     1 0.6336E+01, 0.4099E+02, 0.4316E+01, 0.0000E+00/
      DATA (PH1(I,29, 4, 1),I=1,6) /0.1070E+05, 0.1476E+04,
     1 0.7658E+01, 0.7281E+02, 0.1567E+01, 0.0000E+00/
      DATA (PH1(I,29, 4, 2),I=1,6) /0.2459E+04, 0.1822E+03,
     1 0.1108E+02, 0.3417E+02, 0.4489E+01, 0.0000E+00/
      DATA (PH1(I,29, 5, 1),I=1,6) /0.1053E+05, 0.1516E+04,
     1 0.7156E+01, 0.7157E+02, 0.1560E+01, 0.0000E+00/
      DATA (PH1(I,29, 5, 2),I=1,6) /0.2363E+04, 0.2174E+03,
     1 0.9074E+01, 0.2892E+02, 0.4445E+01, 0.0000E+00/
      DATA (PH1(I,29, 5, 3),I=1,6) /0.2298E+04, 0.1099E+03,
     1 0.1898E+03, 0.1272E+03, 0.4081E+01, 0.2821E-07/
      DATA (PH1(I,29, 6, 1),I=1,6) /0.1036E+05, 0.1537E+04,
     1 0.6899E+01, 0.7045E+02, 0.1560E+01, 0.0000E+00/
      DATA (PH1(I,29, 6, 2),I=1,6) /0.2253E+04, 0.2118E+03,
     1 0.8876E+01, 0.2857E+02, 0.4513E+01, 0.0000E+00/
      DATA (PH1(I,29, 6, 3),I=1,6) /0.2173E+04, 0.1503E+03,
     1 0.1866E+03, 0.1055E+03, 0.3944E+01, 0.1972E-07/
      DATA (PH1(I,29, 7, 1),I=1,6) /0.1016E+05, 0.1531E+04,
     1 0.7047E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,29, 7, 2),I=1,6) /0.2133E+04, 0.2330E+03,
     1 0.7838E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,29, 7, 3),I=1,6) /0.2045E+04, 0.2473E+03,
     1 0.9111E+02, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,29, 8, 1),I=1,6) /0.1004E+05, 0.1556E+04,
     1 0.6650E+01, 0.6987E+02, 0.1559E+01, 0.0000E+00/
      DATA (PH1(I,29, 8, 2),I=1,6) /0.2037E+04, 0.2003E+03,
     1 0.8422E+01, 0.2803E+02, 0.4659E+01, 0.0000E+00/
      DATA (PH1(I,29, 8, 3),I=1,6) /0.1905E+04, 0.1999E+03,
     1 0.1798E+03, 0.7715E+02, 0.3888E+01, 0.1496E-07/
      DATA (PH1(I,29, 9, 1),I=1,6) /0.9844E+04, 0.1546E+04,
     1 0.6833E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,29, 9, 2),I=1,6) /0.1920E+04, 0.2388E+03,
     1 0.6970E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,29, 9, 3),I=1,6) /0.1793E+04, 0.2493E+03,
     1 0.1335E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,29,10, 1),I=1,6) /0.9729E+04, 0.1540E+04,
     1 0.6748E+01, 0.6512E+02, 0.1590E+01, 0.0000E+00/
      DATA (PH1(I,29,10, 2),I=1,6) /0.1827E+04, 0.1901E+03,
     1 0.7838E+01, 0.2795E+02, 0.4791E+01, 0.0000E+00/
      DATA (PH1(I,29,10, 3),I=1,6) /0.1690E+04, 0.2206E+03,
     1 0.1906E+03, 0.6390E+02, 0.3955E+01, 0.1558E-07/
      DATA (PH1(I,29,11, 1),I=1,6) /0.9668E+04, 0.1523E+04,
     1 0.6915E+01, 0.6870E+02, 0.1581E+01, 0.0000E+00/
      DATA (PH1(I,29,11, 2),I=1,6) /0.1773E+04, 0.1626E+03,
     1 0.8723E+01, 0.3155E+02, 0.4881E+01, 0.0000E+00/
      DATA (PH1(I,29,11, 3),I=1,6) /0.1657E+04, 0.2651E+03,
     1 0.1307E+03, 0.7793E+02, 0.3637E+01, 0.1894E-07/
      DATA (PH1(I,29,11, 4),I=1,6) /0.6706E+03, 0.1529E+02,
     1 0.2453E+02, 0.6172E+03, 0.4260E+01, 0.0000E+00/
      DATA (PH1(I,29,12, 1),I=1,6) /0.9610E+04, 0.1558E+04,
     1 0.6567E+01, 0.6667E+02, 0.1576E+01, 0.0000E+00/
      DATA (PH1(I,29,12, 2),I=1,6) /0.1722E+04, 0.1953E+03,
     1 0.7587E+01, 0.2834E+02, 0.4738E+01, 0.0000E+00/
      DATA (PH1(I,29,12, 3),I=1,6) /0.1604E+04, 0.2619E+03,
     1 0.1331E+03, 0.7654E+02, 0.3661E+01, 0.1879E-07/
      DATA (PH1(I,29,12, 4),I=1,6) /0.6330E+03, 0.2604E+02,
     1 0.2426E+02, 0.3618E+03, 0.4240E+01, 0.0000E+00/
      DATA (PH1(I,29,13, 1),I=1,6) /0.9550E+04, 0.1563E+04,
     1 0.6515E+01, 0.6616E+02, 0.1577E+01, 0.0000E+00/
      DATA (PH1(I,29,13, 2),I=1,6) /0.1670E+04, 0.1993E+03,
     1 0.7415E+01, 0.2757E+02, 0.4743E+01, 0.0000E+00/
      DATA (PH1(I,29,13, 3),I=1,6) /0.1551E+04, 0.2401E+03,
     1 0.1577E+03, 0.7468E+02, 0.3767E+01, 0.2341E-07/
      DATA (PH1(I,29,13, 4),I=1,6) /0.5949E+03, 0.3706E+02,
     1 0.1653E+02, 0.2918E+03, 0.4111E+01, 0.0000E+00/
      DATA (PH1(I,29,13, 5),I=1,6) /0.5570E+03, 0.2011E+03,
     1 0.3929E+01, 0.5061E+02, 0.4854E+01, 0.8398E+00/
      DATA (PH1(I,29,14, 1),I=1,6) /0.9493E+04, 0.1558E+04,
     1 0.6561E+01, 0.6691E+02, 0.1575E+01, 0.0000E+00/
      DATA (PH1(I,29,14, 2),I=1,6) /0.1619E+04, 0.1974E+03,
     1 0.7417E+01, 0.2691E+02, 0.4791E+01, 0.0000E+00/
      DATA (PH1(I,29,14, 3),I=1,6) /0.1499E+04, 0.2384E+03,
     1 0.1588E+03, 0.7405E+02, 0.3780E+01, 0.2405E-07/
      DATA (PH1(I,29,14, 4),I=1,6) /0.5572E+03, 0.3531E+02,
     1 0.1668E+02, 0.3042E+03, 0.4130E+01, 0.0000E+00/
      DATA (PH1(I,29,14, 5),I=1,6) /0.5200E+03, 0.1207E+03,
     1 0.1569E+02, 0.5849E+02, 0.5405E+01, 0.4555E+00/
      DATA (PH1(I,29,15, 1),I=1,6) /0.9423E+04, 0.1577E+04,
     1 0.6419E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,29,15, 2),I=1,6) /0.1563E+04, 0.2446E+03,
     1 0.6221E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,29,15, 3),I=1,6) /0.1439E+04, 0.2632E+03,
     1 0.1311E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,29,15, 4),I=1,6) /0.5184E+03, 0.5001E+02,
     1 0.1019E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,29,15, 5),I=1,6) /0.4840E+03, 0.1032E+03,
     1 0.2783E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,29,16, 1),I=1,6) /0.9384E+04, 0.1553E+04,
     1 0.6609E+01, 0.6923E+02, 0.1568E+01, 0.0000E+00/
      DATA (PH1(I,29,16, 2),I=1,6) /0.1522E+04, 0.1990E+03,
     1 0.7271E+01, 0.2604E+02, 0.4826E+01, 0.0000E+00/
      DATA (PH1(I,29,16, 3),I=1,6) /0.1400E+04, 0.2302E+03,
     1 0.1675E+03, 0.7119E+02, 0.3847E+01, 0.2441E-07/
      DATA (PH1(I,29,16, 4),I=1,6) /0.4838E+03, 0.3424E+02,
     1 0.1441E+02, 0.2579E+03, 0.4283E+01, 0.0000E+00/
      DATA (PH1(I,29,16, 5),I=1,6) /0.4350E+03, 0.1064E+03,
     1 0.3399E+02, 0.5025E+02, 0.5723E+01, 0.4731E+00/
      DATA (PH1(I,29,17, 1),I=1,6) /0.9317E+04, 0.1576E+04,
     1 0.6433E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,29,17, 2),I=1,6) /0.1467E+04, 0.2457E+03,
     1 0.6110E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,29,17, 3),I=1,6) /0.1340E+04, 0.2635E+03,
     1 0.1295E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,29,17, 4),I=1,6) /0.4458E+03, 0.5099E+02,
     1 0.9072E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,29,17, 5),I=1,6) /0.4010E+03, 0.1031E+03,
     1 0.4266E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,29,18, 1),I=1,6) /0.9282E+04, 0.1550E+04,
     1 0.6633E+01, 0.6922E+02, 0.1570E+01, 0.0000E+00/
      DATA (PH1(I,29,18, 2),I=1,6) /0.1431E+04, 0.1960E+03,
     1 0.7274E+01, 0.2502E+02, 0.4908E+01, 0.0000E+00/
      DATA (PH1(I,29,18, 3),I=1,6) /0.1307E+04, 0.2291E+03,
     1 0.1666E+03, 0.6860E+02, 0.3881E+01, 0.2421E-07/
      DATA (PH1(I,29,18, 4),I=1,6) /0.4129E+03, 0.3356E+02,
     1 0.1254E+02, 0.2441E+03, 0.4373E+01, 0.0000E+00/
      DATA (PH1(I,29,18, 5),I=1,6) /0.3688E+03, 0.1023E+03,
     1 0.4888E+02, 0.4483E+02, 0.5919E+01, 0.3996E+00/
      DATA (PH1(I,29,19, 1),I=1,6) /0.9237E+04, 0.1550E+04,
     1 0.6630E+01, 0.6917E+02, 0.1570E+01, 0.0000E+00/
      DATA (PH1(I,29,19, 2),I=1,6) /0.1386E+04, 0.1983E+03,
     1 0.7172E+01, 0.2486E+02, 0.4901E+01, 0.0000E+00/
      DATA (PH1(I,29,19, 3),I=1,6) /0.1262E+04, 0.2322E+03,
     1 0.1615E+03, 0.6669E+02, 0.3889E+01, 0.2403E-07/
      DATA (PH1(I,29,19, 4),I=1,6) /0.3778E+03, 0.3308E+02,
     1 0.1152E+02, 0.2347E+03, 0.4436E+01, 0.0000E+00/
      DATA (PH1(I,29,19, 5),I=1,6) /0.3335E+03, 0.1017E+03,
     1 0.4646E+02, 0.4207E+02, 0.6020E+01, 0.3632E+00/
      DATA (PH1(I,29,19, 6),I=1,6) /0.2661E+03, 0.4605E+02,
     1 0.1458E+03, 0.7967E+02, 0.6285E+01, 0.4503E-02/
      DATA (PH1(I,29,20, 1),I=1,6) /0.9181E+04, 0.1574E+04,
     1 0.6454E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,29,20, 2),I=1,6) /0.1339E+04, 0.2470E+03,
     1 0.5993E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,29,20, 3),I=1,6) /0.1211E+04, 0.2640E+03,
     1 0.1274E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,29,20, 4),I=1,6) /0.3447E+03, 0.5350E+02,
     1 0.7318E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,29,20, 5),I=1,6) /0.2999E+03, 0.1045E+03,
     1 0.4286E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,29,20, 6),I=1,6) /0.2320E+03, 0.5210E+02,
     1 0.2093E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,29,21, 1),I=1,6) /0.9155E+04, 0.1546E+04,
     1 0.6671E+01, 0.6964E+02, 0.1570E+01, 0.0000E+00/
      DATA (PH1(I,29,21, 2),I=1,6) /0.1302E+04, 0.1958E+03,
     1 0.7186E+01, 0.2423E+02, 0.4960E+01, 0.0000E+00/
      DATA (PH1(I,29,21, 3),I=1,6) /0.1178E+04, 0.2383E+03,
     1 0.1525E+03, 0.6417E+02, 0.3890E+01, 0.2517E-07/
      DATA (PH1(I,29,21, 4),I=1,6) /0.3113E+03, 0.4346E+02,
     1 0.7773E+01, 0.1823E+03, 0.4413E+01, 0.0000E+00/
      DATA (PH1(I,29,21, 5),I=1,6) /0.2672E+03, 0.9821E+02,
     1 0.4314E+02, 0.3667E+02, 0.6291E+01, 0.2759E+00/
      DATA (PH1(I,29,21, 6),I=1,6) /0.1990E+03, 0.5000E+02,
     1 0.3041E+03, 0.6355E+02, 0.6458E+01, 0.2040E-02/
      DATA (PH1(I,29,22, 1),I=1,6) /0.9108E+04, 0.1573E+04,
     1 0.6468E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,29,22, 2),I=1,6) /0.1267E+04, 0.2476E+03,
     1 0.5944E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,29,22, 3),I=1,6) /0.1137E+04, 0.2644E+03,
     1 0.1263E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,29,22, 4),I=1,6) /0.2824E+03, 0.5587E+02,
     1 0.6260E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,29,22, 5),I=1,6) /0.2375E+03, 0.1064E+03,
     1 0.3728E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,29,22, 6),I=1,6) /0.1670E+03, 0.5236E+02,
     1 0.3470E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,29,23, 1),I=1,6) /0.9083E+04, 0.1541E+04,
     1 0.6731E+01, 0.7196E+02, 0.1562E+01, 0.0000E+00/
      DATA (PH1(I,29,23, 2),I=1,6) /0.1229E+04, 0.1968E+03,
     1 0.7138E+01, 0.2379E+02, 0.4979E+01, 0.0000E+00/
      DATA (PH1(I,29,23, 3),I=1,6) /0.1104E+04, 0.2376E+03,
     1 0.1529E+03, 0.6163E+02, 0.3925E+01, 0.2511E-07/
      DATA (PH1(I,29,23, 4),I=1,6) /0.2504E+03, 0.5085E+02,
     1 0.5992E+01, 0.1563E+03, 0.4410E+01, 0.0000E+00/
      DATA (PH1(I,29,23, 5),I=1,6) /0.2067E+03, 0.1010E+03,
     1 0.3860E+02, 0.3121E+02, 0.6491E+01, 0.3331E+00/
      DATA (PH1(I,29,23, 6),I=1,6) /0.1390E+03, 0.5652E+02,
     1 0.3452E+03, 0.5007E+02, 0.6558E+01, 0.2171E-02/
      DATA (PH1(I,29,24, 1),I=1,6) /0.9048E+04, 0.1572E+04,
     1 0.6482E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,29,24, 2),I=1,6) /0.1203E+04, 0.2479E+03,
     1 0.5918E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,29,24, 3),I=1,6) /0.1073E+04, 0.2649E+03,
     1 0.1255E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,29,24, 4),I=1,6) /0.2243E+03, 0.5878E+02,
     1 0.5342E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,29,24, 5),I=1,6) /0.1801E+03, 0.1092E+03,
     1 0.3217E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,29,24, 6),I=1,6) /0.1030E+03, 0.5346E+02,
     1 0.4010E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,29,25, 1),I=1,6) /0.9021E+04, 0.1572E+04,
     1 0.6440E+01, 0.6913E+02, 0.1560E+01, 0.0000E+00/
      DATA (PH1(I,29,25, 2),I=1,6) /0.1166E+04, 0.2072E+03,
     1 0.6884E+01, 0.2337E+02, 0.4917E+01, 0.0000E+00/
      DATA (PH1(I,29,25, 3),I=1,6) /0.1041E+04, 0.2368E+03,
     1 0.1537E+03, 0.5951E+02, 0.3955E+01, 0.2525E-07/
      DATA (PH1(I,29,25, 4),I=1,6) /0.1960E+03, 0.5776E+02,
     1 0.4896E+01, 0.1391E+03, 0.4397E+01, 0.0000E+00/
      DATA (PH1(I,29,25, 5),I=1,6) /0.1528E+03, 0.9650E+02,
     1 0.3804E+02, 0.2618E+02, 0.6870E+01, 0.2460E+00/
      DATA (PH1(I,29,25, 6),I=1,6) /0.7990E+02, 0.5875E+02,
     1 0.3868E+03, 0.3774E+02, 0.6878E+01, 0.3091E+00/
      DATA (PH1(I,29,26, 1),I=1,6) /0.9001E+04, 0.1571E+04,
     1 0.6497E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,29,26, 2),I=1,6) /0.1149E+04, 0.2480E+03,
     1 0.5914E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,29,26, 3),I=1,6) /0.1020E+04, 0.2654E+03,
     1 0.1248E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,29,26, 4),I=1,6) /0.1703E+03, 0.6225E+02,
     1 0.4565E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,29,26, 5),I=1,6) /0.1277E+03, 0.1127E+03,
     1 0.2769E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,29,26, 6),I=1,6) /0.5738E+02, 0.5539E+02,
     1 0.4028E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,29,27, 1),I=1,6) /0.8972E+04, 0.2025E+04,
     1 0.3761E+01, 0.2259E+03, 0.1184E+01, 0.0000E+00/
      DATA (PH1(I,29,27, 2),I=1,6) /0.1116E+04, 0.2508E+03,
     1 0.5929E+01, 0.2384E+02, 0.4581E+01, 0.0000E+00/
      DATA (PH1(I,29,27, 3),I=1,6) /0.9911E+03, 0.2369E+03,
     1 0.1537E+03, 0.5847E+02, 0.3967E+01, 0.2525E-07/
      DATA (PH1(I,29,27, 4),I=1,6) /0.1499E+03, 0.6247E+02,
     1 0.4311E+01, 0.1291E+03, 0.4390E+01, 0.0000E+00/
      DATA (PH1(I,29,27, 5),I=1,6) /0.1072E+03, 0.9745E+02,
     1 0.3768E+02, 0.2211E+02, 0.7130E+01, 0.2537E+00/
      DATA (PH1(I,29,27, 6),I=1,6) /0.3684E+02, 0.3541E+02,
     1 0.1181E+04, 0.1390E+02, 0.1017E+02, 0.3416E+00/
      DATA (PH1(I,29,28, 1),I=1,6) /0.8953E+04, 0.2378E+04,
     1 0.2659E+01, 0.7489E+03, 0.9937E+00, 0.0000E+00/
      DATA (PH1(I,29,28, 2),I=1,6) /0.1096E+04, 0.3054E+03,
     1 0.4889E+01, 0.2675E+02, 0.4155E+01, 0.0000E+00/
      DATA (PH1(I,29,28, 3),I=1,6) /0.9715E+03, 0.2328E+03,
     1 0.1588E+03, 0.5776E+02, 0.3997E+01, 0.2543E-07/
      DATA (PH1(I,29,28, 4),I=1,6) /0.1312E+03, 0.6472E+02,
     1 0.4139E+01, 0.1278E+03, 0.4366E+01, 0.0000E+00/
      DATA (PH1(I,29,28, 5),I=1,6) /0.8861E+02, 0.9750E+02,
     1 0.3865E+02, 0.2022E+02, 0.7277E+01, 0.2537E+00/
      DATA (PH1(I,29,28, 6),I=1,6) /0.2029E+02, 0.1590E+02,
     1 0.3992E+04, 0.7098E+01, 0.1616E+02, 0.7439E+00/
      DATA (PH1(I,29,29, 1),I=1,6) /0.8988E+04, 0.1788E+04,
     1 0.4870E+01, 0.7645E+02, 0.1451E+01, 0.0000E+00/
      DATA (PH1(I,29,29, 2),I=1,6) /0.1106E+04, 0.2502E+03,
     1 0.5938E+01, 0.2402E+02, 0.4576E+01, 0.0000E+00/
      DATA (PH1(I,29,29, 3),I=1,6) /0.9470E+03, 0.2826E+03,
     1 0.1093E+03, 0.6688E+02, 0.3668E+01, 0.9174E-06/
      DATA (PH1(I,29,29, 4),I=1,6) /0.1288E+03, 0.6198E+02,
     1 0.4164E+01, 0.1158E+03, 0.4488E+01, 0.0000E+00/
      DATA (PH1(I,29,29, 5),I=1,6) /0.8300E+02, 0.9617E+02,
     1 0.4275E+02, 0.1747E+02, 0.7555E+01, 0.2599E+00/
      DATA (PH1(I,29,29, 6),I=1,6) /0.1064E+02, 0.7279E+01,
     1 0.1027E+04, 0.7988E+01, 0.2033E+02, 0.1582E+01/
      DATA (PH1(I,29,29, 7),I=1,6) /0.7726E+01, 0.1436E+02,
     1 0.4681E+00, 0.2383E+04, 0.4224E+01, 0.3736E-01/
      DATA (PH1(I,30, 1, 1),I=1,6) /0.1239E+05, 0.3915E+03,
     1 0.6083E+02, 0.3288E+02, 0.2963E+01, 0.0000E+00/
      DATA (PH1(I,30, 2, 1),I=1,6) /0.1187E+05, 0.1564E+04,
     1 0.7165E+01, 0.9095E+02, 0.1535E+01, 0.0000E+00/
      DATA (PH1(I,30, 3, 1),I=1,6) /0.1165E+05, 0.1600E+04,
     1 0.7032E+01, 0.9272E+02, 0.1497E+01, 0.0000E+00/
      DATA (PH1(I,30, 3, 2),I=1,6) /0.2780E+04, 0.3219E+03,
     1 0.3342E+01, 0.3904E+02, 0.3684E+01, 0.0000E+00/
      DATA (PH1(I,30, 4, 1),I=1,6) /0.1149E+05, 0.1565E+04,
     1 0.7294E+01, 0.7835E+02, 0.1557E+01, 0.0000E+00/
      DATA (PH1(I,30, 4, 2),I=1,6) /0.2647E+04, 0.1989E+03,
     1 0.1025E+02, 0.3502E+02, 0.4434E+01, 0.0000E+00/
      DATA (PH1(I,30, 5, 1),I=1,6) /0.1131E+05, 0.1582E+04,
     1 0.7052E+01, 0.7246E+02, 0.1577E+01, 0.0000E+00/
      DATA (PH1(I,30, 5, 2),I=1,6) /0.2550E+04, 0.2168E+03,
     1 0.9068E+01, 0.2977E+02, 0.4514E+01, 0.0000E+00/
      DATA (PH1(I,30, 5, 3),I=1,6) /0.2479E+04, 0.1230E+03,
     1 0.1663E+03, 0.1330E+03, 0.4013E+01, 0.2250E-07/
      DATA (PH1(I,30, 6, 1),I=1,6) /0.1113E+05, 0.1607E+04,
     1 0.6765E+01, 0.7173E+02, 0.1574E+01, 0.0000E+00/
      DATA (PH1(I,30, 6, 2),I=1,6) /0.2435E+04, 0.2335E+03,
     1 0.8158E+01, 0.2769E+02, 0.4506E+01, 0.0000E+00/
      DATA (PH1(I,30, 6, 3),I=1,6) /0.2363E+04, 0.1386E+03,
     1 0.2396E+03, 0.1169E+03, 0.4016E+01, 0.1579E-07/
      DATA (PH1(I,30, 7, 1),I=1,6) /0.1092E+05, 0.1637E+04,
     1 0.6617E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,30, 7, 2),I=1,6) /0.2309E+04, 0.2488E+03,
     1 0.7424E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,30, 7, 3),I=1,6) /0.2216E+04, 0.2651E+03,
     1 0.8601E+02, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,30, 8, 1),I=1,6) /0.1080E+05, 0.1629E+04,
     1 0.6509E+01, 0.7085E+02, 0.1574E+01, 0.0000E+00/
      DATA (PH1(I,30, 8, 2),I=1,6) /0.2210E+04, 0.2179E+03,
     1 0.7856E+01, 0.2852E+02, 0.4612E+01, 0.0000E+00/
      DATA (PH1(I,30, 8, 3),I=1,6) /0.2070E+04, 0.2034E+03,
     1 0.1893E+03, 0.8099E+02, 0.3908E+01, 0.6713E-08/
      DATA (PH1(I,30, 9, 1),I=1,6) /0.1059E+05, 0.1652E+04,
     1 0.6423E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,30, 9, 2),I=1,6) /0.2087E+04, 0.2548E+03,
     1 0.6629E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,30, 9, 3),I=1,6) /0.1953E+04, 0.2670E+03,
     1 0.1269E+03, 0.5000E+02, 0.4000E+01, 0.3000E+00/
      DATA (PH1(I,30,10, 1),I=1,6) /0.1048E+05, 0.1636E+04,
     1 0.6400E+01, 0.6864E+02, 0.1584E+01, 0.0000E+00/
      DATA (PH1(I,30,10, 2),I=1,6) /0.1992E+04, 0.2104E+03,
     1 0.7257E+01, 0.2813E+02, 0.4728E+01, 0.0000E+00/
      DATA (PH1(I,30,10, 3),I=1,6) /0.1846E+04, 0.2254E+03,
     1 0.1992E+03, 0.6645E+02, 0.3978E+01, 0.6413E-08/
      DATA (PH1(I,30,11, 1),I=1,6) /0.1042E+05, 0.1605E+04,
     1 0.6675E+01, 0.7053E+02, 0.1588E+01, 0.0000E+00/
      DATA (PH1(I,30,11, 2),I=1,6) /0.1936E+04, 0.1953E+03,
     1 0.7654E+01, 0.3173E+02, 0.4697E+01, 0.0000E+00/
      DATA (PH1(I,30,11, 3),I=1,6) /0.1815E+04, 0.2273E+03,
     1 0.1928E+03, 0.6347E+02, 0.4011E+01, 0.6017E-08/
      DATA (PH1(I,30,11, 4),I=1,6) /0.7374E+03, 0.1960E+02,
     1 0.1939E+02, 0.5293E+03, 0.4225E+01, 0.0000E+00/
      DATA (PH1(I,30,12, 1),I=1,6) /0.1035E+05, 0.1631E+04,
     1 0.6432E+01, 0.6791E+02, 0.1590E+01, 0.0000E+00/
      DATA (PH1(I,30,12, 2),I=1,6) /0.1882E+04, 0.2070E+03,
     1 0.7256E+01, 0.2865E+02, 0.4736E+01, 0.0000E+00/
      DATA (PH1(I,30,12, 3),I=1,6) /0.1760E+04, 0.2265E+03,
     1 0.1930E+03, 0.6308E+02, 0.4019E+01, 0.6018E-08/
      DATA (PH1(I,30,12, 4),I=1,6) /0.6980E+03, 0.3115E+02,
     1 0.2108E+02, 0.3355E+03, 0.4197E+01, 0.0000E+00/
      DATA (PH1(I,30,13, 1),I=1,6) /0.1029E+05, 0.1636E+04,
     1 0.6381E+01, 0.6693E+02, 0.1592E+01, 0.0000E+00/
      DATA (PH1(I,30,13, 2),I=1,6) /0.1828E+04, 0.2085E+03,
     1 0.7155E+01, 0.2796E+02, 0.4758E+01, 0.0000E+00/
      DATA (PH1(I,30,13, 3),I=1,6) /0.1704E+04, 0.2296E+03,
     1 0.1871E+03, 0.6376E+02, 0.3995E+01, 0.5868E-08/
      DATA (PH1(I,30,13, 4),I=1,6) /0.6583E+03, 0.3116E+02,
     1 0.2073E+02, 0.3448E+03, 0.4181E+01, 0.0000E+00/
      DATA (PH1(I,30,13, 5),I=1,6) /0.6190E+03, 0.2539E+03,
     1 0.2886E+01, 0.5384E+02, 0.4592E+01, 0.8255E+00/
      DATA (PH1(I,30,14, 1),I=1,6) /0.1023E+05, 0.1633E+04,
     1 0.6399E+01, 0.6753E+02, 0.1591E+01, 0.0000E+00/
      DATA (PH1(I,30,14, 2),I=1,6) /0.1775E+04, 0.2101E+03,
     1 0.7058E+01, 0.2748E+02, 0.4771E+01, 0.0000E+00/
      DATA (PH1(I,30,14, 3),I=1,6) /0.1650E+04, 0.2720E+03,
     1 0.1333E+03, 0.8071E+02, 0.3661E+01, 0.4757E-08/
      DATA (PH1(I,30,14, 4),I=1,6) /0.6187E+03, 0.2985E+02,
     1 0.2083E+02, 0.3577E+03, 0.4196E+01, 0.0000E+00/
      DATA (PH1(I,30,14, 5),I=1,6) /0.5790E+03, 0.1403E+03,
     1 0.1361E+02, 0.6070E+02, 0.5261E+01, 0.5034E+00/
      DATA (PH1(I,30,15, 1),I=1,6) /0.1015E+05, 0.1691E+04,
     1 0.5972E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,30,15, 2),I=1,6) /0.1716E+04, 0.2609E+03,
     1 0.5912E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,30,15, 3),I=1,6) /0.1586E+04, 0.2806E+03,
     1 0.1269E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,30,15, 4),I=1,6) /0.5780E+03, 0.5311E+02,
     1 0.1000E+02, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,30,15, 5),I=1,6) /0.5420E+03, 0.1108E+03,
     1 0.2676E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,30,16, 1),I=1,6) /0.1012E+05, 0.1617E+04,
     1 0.6536E+01, 0.6839E+02, 0.1594E+01, 0.0000E+00/
      DATA (PH1(I,30,16, 2),I=1,6) /0.1673E+04, 0.2142E+03,
     1 0.6875E+01, 0.2631E+02, 0.4800E+01, 0.0000E+00/
      DATA (PH1(I,30,16, 3),I=1,6) /0.1546E+04, 0.2596E+03,
     1 0.1443E+03, 0.7722E+02, 0.3739E+01, 0.5496E-08/
      DATA (PH1(I,30,16, 4),I=1,6) /0.5416E+03, 0.3912E+02,
     1 0.1395E+02, 0.2883E+03, 0.4155E+01, 0.0000E+00/
      DATA (PH1(I,30,16, 5),I=1,6) /0.4900E+03, 0.1153E+03,
     1 0.3254E+02, 0.5308E+02, 0.5645E+01, 0.4056E+00/
      DATA (PH1(I,30,17, 1),I=1,6) /0.1004E+05, 0.1689E+04,
     1 0.5993E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,30,17, 2),I=1,6) /0.1613E+04, 0.2621E+03,
     1 0.5810E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,30,17, 3),I=1,6) /0.1481E+04, 0.2807E+03,
     1 0.1254E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,30,17, 4),I=1,6) /0.5015E+03, 0.5403E+02,
     1 0.8971E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,30,17, 5),I=1,6) /0.4540E+03, 0.1106E+03,
     1 0.4142E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,30,18, 1),I=1,6) /0.1001E+05, 0.1617E+04,
     1 0.6532E+01, 0.6768E+02, 0.1597E+01, 0.0000E+00/
      DATA (PH1(I,30,18, 2),I=1,6) /0.1576E+04, 0.2135E+03,
     1 0.6802E+01, 0.2575E+02, 0.4839E+01, 0.0000E+00/
      DATA (PH1(I,30,18, 3),I=1,6) /0.1448E+04, 0.2538E+03,
     1 0.1487E+03, 0.7400E+02, 0.3794E+01, 0.5551E-08/
      DATA (PH1(I,30,18, 4),I=1,6) /0.4671E+03, 0.3780E+02,
     1 0.1186E+02, 0.2389E+03, 0.4334E+01, 0.0000E+00/
      DATA (PH1(I,30,18, 5),I=1,6) /0.4197E+03, 0.1073E+03,
     1 0.4863E+02, 0.4776E+02, 0.5875E+01, 0.2432E+00/
      DATA (PH1(I,30,19, 1),I=1,6) /0.9960E+04, 0.1610E+04,
     1 0.6593E+01, 0.6774E+02, 0.1600E+01, 0.0000E+00/
      DATA (PH1(I,30,19, 2),I=1,6) /0.1528E+04, 0.2118E+03,
     1 0.6804E+01, 0.2536E+02, 0.4875E+01, 0.0000E+00/
      DATA (PH1(I,30,19, 3),I=1,6) /0.1399E+04, 0.2529E+03,
     1 0.1489E+03, 0.7156E+02, 0.3823E+01, 0.5330E-08/
      DATA (PH1(I,30,19, 4),I=1,6) /0.4299E+03, 0.3741E+02,
     1 0.1098E+02, 0.2313E+03, 0.4386E+01, 0.0000E+00/
      DATA (PH1(I,30,19, 5),I=1,6) /0.3828E+03, 0.1057E+03,
     1 0.4664E+02, 0.4477E+02, 0.5995E+01, 0.2234E+00/
      DATA (PH1(I,30,19, 6),I=1,6) /0.3108E+03, 0.5749E+02,
     1 0.1122E+03, 0.7804E+02, 0.6097E+01, 0.3731E+00/
      DATA (PH1(I,30,20, 1),I=1,6) /0.9915E+04, 0.1611E+04,
     1 0.6591E+01, 0.6799E+02, 0.1598E+01, 0.0000E+00/
      DATA (PH1(I,30,20, 2),I=1,6) /0.1482E+04, 0.2023E+03,
     1 0.6987E+01, 0.2500E+02, 0.4972E+01, 0.0000E+00/
      DATA (PH1(I,30,20, 3),I=1,6) /0.1353E+04, 0.2543E+03,
     1 0.1465E+03, 0.6961E+02, 0.3838E+01, 0.5027E-08/
      DATA (PH1(I,30,20, 4),I=1,6) /0.3939E+03, 0.3705E+02,
     1 0.1008E+02, 0.2216E+03, 0.4447E+01, 0.0000E+00/
      DATA (PH1(I,30,20, 5),I=1,6) /0.3467E+03, 0.1046E+03,
     1 0.4454E+02, 0.4180E+02, 0.6115E+01, 0.1997E+00/
      DATA (PH1(I,30,20, 6),I=1,6) /0.2740E+03, 0.5735E+02,
     1 0.2033E+03, 0.7143E+02, 0.6214E+01, 0.3888E+00/
      DATA (PH1(I,30,21, 1),I=1,6) /0.9854E+04, 0.1685E+04,
     1 0.6036E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,30,21, 2),I=1,6) /0.1436E+04, 0.2638E+03,
     1 0.5673E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,30,21, 3),I=1,6) /0.1302E+04, 0.2813E+03,
     1 0.1231E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,30,21, 4),I=1,6) /0.3609E+03, 0.5754E+02,
     1 0.6797E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,30,21, 5),I=1,6) /0.3128E+03, 0.1126E+03,
     1 0.3961E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,30,21, 6),I=1,6) /0.2380E+03, 0.5727E+02,
     1 0.2777E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,30,22, 1),I=1,6) /0.9831E+04, 0.1605E+04,
     1 0.6653E+01, 0.6874E+02, 0.1597E+01, 0.0000E+00/
      DATA (PH1(I,30,22, 2),I=1,6) /0.1397E+04, 0.2114E+03,
     1 0.6748E+01, 0.2443E+02, 0.4934E+01, 0.0000E+00/
      DATA (PH1(I,30,22, 3),I=1,6) /0.1267E+04, 0.2512E+03,
     1 0.1490E+03, 0.6562E+02, 0.3896E+01, 0.5943E-08/
      DATA (PH1(I,30,22, 4),I=1,6) /0.3257E+03, 0.4721E+02,
     1 0.7066E+01, 0.1761E+03, 0.4431E+01, 0.0000E+00/
      DATA (PH1(I,30,22, 5),I=1,6) /0.2785E+03, 0.1016E+03,
     1 0.4118E+02, 0.3606E+02, 0.6396E+01, 0.1450E+00/
      DATA (PH1(I,30,22, 6),I=1,6) /0.2030E+03, 0.5906E+02,
     1 0.3187E+03, 0.5850E+02, 0.6430E+01, 0.2472E+00/
      DATA (PH1(I,30,23, 1),I=1,6) /0.9781E+04, 0.1683E+04,
     1 0.6057E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,30,23, 2),I=1,6) /0.1362E+04, 0.2642E+03,
     1 0.5637E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,30,23, 3),I=1,6) /0.1227E+04, 0.2816E+03,
     1 0.1222E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,30,23, 4),I=1,6) /0.2969E+03, 0.6012E+02,
     1 0.5837E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,30,23, 5),I=1,6) /0.2487E+03, 0.1147E+03,
     1 0.3456E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,30,23, 6),I=1,6) /0.1750E+03, 0.5760E+02,
     1 0.3804E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,30,24, 1),I=1,6) /0.9758E+04, 0.1697E+04,
     1 0.5935E+01, 0.9066E+02, 0.1488E+01, 0.0000E+00/
      DATA (PH1(I,30,24, 2),I=1,6) /0.1323E+04, 0.2094E+03,
     1 0.6772E+01, 0.2401E+02, 0.4975E+01, 0.0000E+00/
      DATA (PH1(I,30,24, 3),I=1,6) /0.1193E+04, 0.2522E+03,
     1 0.1476E+03, 0.6376E+02, 0.3914E+01, 0.6079E-08/
      DATA (PH1(I,30,24, 4),I=1,6) /0.2633E+03, 0.5492E+02,
     1 0.5518E+01, 0.1512E+03, 0.4431E+01, 0.0000E+00/
      DATA (PH1(I,30,24, 5),I=1,6) /0.2165E+03, 0.1096E+03,
     1 0.3576E+02, 0.3034E+02, 0.6524E+01, 0.3502E+00/
      DATA (PH1(I,30,24, 6),I=1,6) /0.1360E+03, 0.6530E+02,
     1 0.3456E+03, 0.4608E+02, 0.6555E+01, 0.2476E+00/
      DATA (PH1(I,30,25, 1),I=1,6) /0.9721E+04, 0.1682E+04,
     1 0.6079E+01, 0.5000E+02, 0.1650E+01, 0.0000E+00/
      DATA (PH1(I,30,25, 2),I=1,6) /0.1298E+04, 0.2645E+03,
     1 0.5621E+01, 0.2600E+02, 0.4500E+01, 0.0000E+00/
      DATA (PH1(I,30,25, 3),I=1,6) /0.1162E+04, 0.2821E+03,
     1 0.1215E+03, 0.7000E+02, 0.3700E+01, 0.1000E+00/
      DATA (PH1(I,30,25, 4),I=1,6) /0.2369E+03, 0.6326E+02,
     1 0.5006E+01, 0.1800E+03, 0.4200E+01, 0.0000E+00/
      DATA (PH1(I,30,25, 5),I=1,6) /0.1896E+03, 0.1177E+03,
     1 0.2996E+02, 0.4500E+02, 0.5900E+01, 0.2600E+00/
      DATA (PH1(I,30,25, 6),I=1,6) /0.1080E+03, 0.5878E+02,
     1 0.4151E+03, 0.4000E+02, 0.7000E+01, 0.3000E+00/
      DATA (PH1(I,30,26, 1),I=1,6) /0.9696E+04, 0.1732E+04,
     1 0.5666E+01, 0.8751E+02, 0.1484E+01, 0.0000E+00/
      DATA (PH1(I,30,26, 2),I=1,6) /0.1259E+04, 0.2231E+03,
     1 0.6480E+01, 0.2364E+02, 0.4891E+01, 0.0000E+00/
      DATA (PH1(I,30,26, 3),I=1,6) /0.1129E+04, 0.2523E+03,
     1 0.1473E+03, 0.6205E+02, 0.3933E+01, 0.6078E-08/
      DATA (PH1(I,30,26, 4),I=1,6) /0.2075E+03, 0.6183E+02,
     1 0.4578E+01, 0.1352E+03, 0.4422E+01, 0.0000E+00/
      DATA (PH1(I,30,26, 5),I=1,6) /0.1612E+03, 0.1030E+03,
     1 0.3598E+02, 0.2554E+02, 0.6932E+01, 0.2426E+00/
      DATA (PH1(I,30,26, 6),I=1,6) /0.8260E+02, 0.6378E+02,
     1 0.4172E+03, 0.3462E+02, 0.7005E+01, 0.3108E+00/
      DATA (PH1(I,30,27, 1),I=1,6) /0.9669E+04, 0.1890E+04,
     1 0.4708E+01, 0.1202E+03, 0.1363E+01, 0.0000E+00/
      DATA (PH1(I,30,27, 2),I=1,6) /0.1231E+04, 0.2366E+03,
     1 0.6210E+01, 0.2347E+02, 0.4803E+01, 0.0000E+00/
      DATA (PH1(I,30,27, 3),I=1,6) /0.1101E+04, 0.2528E+03,
     1 0.1467E+03, 0.6144E+02, 0.3938E+01, 0.6071E-08/
      DATA (PH1(I,30,27, 4),I=1,6) /0.1826E+03, 0.6427E+02,
     1 0.4285E+01, 0.1295E+03, 0.4424E+01, 0.0000E+00/
      DATA (PH1(I,30,27, 5),I=1,6) /0.1365E+03, 0.1033E+03,
     1 0.3582E+02, 0.2337E+02, 0.7076E+01, 0.2470E+00/
      DATA (PH1(I,30,27, 6),I=1,6) /0.5940E+02, 0.5376E+02,
     1 0.6007E+03, 0.2429E+02, 0.7985E+01, 0.3026E+00/
      DATA (PH1(I,30,28, 1),I=1,6) /0.9645E+04, 0.1981E+04,
     1 0.4228E+01, 0.1057E+03, 0.1361E+01, 0.0000E+00/
      DATA (PH1(I,30,28, 2),I=1,6) /0.1207E+04, 0.2686E+03,
     1 0.5600E+01, 0.2394E+02, 0.4574E+01, 0.0000E+00/
      DATA (PH1(I,30,28, 3),I=1,6) /0.1077E+04, 0.2519E+03,
     1 0.1478E+03, 0.6090E+02, 0.3949E+01, 0.6087E-08/
      DATA (PH1(I,30,28, 4),I=1,6) /0.1601E+03, 0.6684E+02,
     1 0.4057E+01, 0.1255E+03, 0.4414E+01, 0.0000E+00/
      DATA (PH1(I,30,28, 5),I=1,6) /0.1143E+03, 0.1045E+03,
     1 0.3568E+02, 0.2181E+02, 0.7163E+01, 0.2533E+00/
      DATA (PH1(I,30,28, 6),I=1,6) /0.3972E+02, 0.3640E+02,
     1 0.1498E+04, 0.1188E+02, 0.1082E+02, 0.3519E+00/
      DATA (PH1(I,30,29, 1),I=1,6) /0.9633E+04, 0.1125E+04,
     1 0.1382E+02, 0.2765E+02, 0.2242E+01, 0.0000E+00/
      DATA (PH1(I,30,29, 2),I=1,6) /0.1195E+04, 0.2121E+03,
     1 0.6713E+01, 0.2342E+02, 0.4988E+01, 0.0000E+00/
      DATA (PH1(I,30,29, 3),I=1,6) /0.1065E+04, 0.2664E+03,
     1 0.1329E+03, 0.6260E+02, 0.3864E+01, 0.5913E-08/
      DATA (PH1(I,30,29, 4),I=1,6) /0.1479E+03, 0.6443E+02,
     1 0.4075E+01, 0.1175E+03, 0.4506E+01, 0.0000E+00/
      DATA (PH1(I,30,29, 5),I=1,6) /0.1021E+03, 0.1047E+03,
     1 0.3618E+02, 0.2122E+02, 0.7201E+01, 0.2534E+00/
      DATA (PH1(I,30,29, 6),I=1,6) /0.2694E+02, 0.2593E+02,
     1 0.3408E+04, 0.7832E+01, 0.1363E+02, 0.3562E+00/
      DATA (PH1(I,30,29, 7),I=1,6) /0.1796E+02, 0.1411E+02,
     1 0.8168E+00, 0.8775E+03, 0.4393E+01, 0.4021E-03/
      DATA (PH1(I,30,30, 1),I=1,6) /0.9667E+04, 0.8320E+03,
     1 0.2586E+02, 0.4497E+02, 0.2215E+01, 0.0000E+00/
      DATA (PH1(I,30,30, 2),I=1,6) /0.1203E+04, 0.9755E+02,
     1 0.9077E+01, 0.3219E+02, 0.5888E+01, 0.0000E+00/
      DATA (PH1(I,30,30, 3),I=1,6) /0.1037E+04, 0.3486E+03,
     1 0.7784E+02, 0.8298E+02, 0.3391E+01, 0.1125E-07/
      DATA (PH1(I,30,30, 4),I=1,6) /0.1450E+03, 0.6195E+02,
     1 0.4094E+01, 0.1086E+03, 0.4614E+01, 0.0000E+00/
      DATA (PH1(I,30,30, 5),I=1,6) /0.9700E+02, 0.1025E+03,
     1 0.3930E+02, 0.1876E+02, 0.7456E+01, 0.2559E+00/
      DATA (PH1(I,30,30, 6),I=1,6) /0.1730E+02, 0.1818E+02,
     1 0.1017E+05, 0.5288E+01, 0.1736E+02, 0.4667E+00/
      DATA (PH1(I,30,30, 7),I=1,6) /0.9394E+01, 0.1673E+02,
     1 0.1236E+01, 0.1029E+04, 0.4259E+01, 0.3962E-01/
      DATA (PH2(I, 1, 1),I=1,7) /4.298E-01, 5.475E+04,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 2, 1),I=1,7) /1.720E+00, 1.369E+04,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 2, 2),I=1,7) /1.361E+01, 9.492E+02,
     1 1.469E+00, 3.188E+00, 2.039E+00, 4.434E-01, 2.136E+00/
      DATA (PH2(I, 3, 1),I=1,7) /3.871E+00, 6.083E+03,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 3, 2),I=1,7) /2.006E+01, 3.201E+02,
     1 7.391E+00, 2.916E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 3, 3),I=1,7) /3.107E+00, 6.245E+01,
     1 1.501E+01, 4.895E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 4, 1),I=1,7) /6.879E+00, 3.422E+03,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 4, 2),I=1,7) /1.760E+01, 5.458E+02,
     1 1.719E+01, 3.157E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 4, 3),I=1,7) /1.181E+00, 2.678E+02,
     1 5.645E+00, 1.170E+01, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 4, 4),I=1,7) /9.539E+00, 2.932E+05,
     1 4.301E-01, 1.052E+01, 3.655E-01, 8.278E-04, 1.269E-02/
      DATA (PH2(I, 5, 1),I=1,7) /1.075E+01, 2.190E+03,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 5, 2),I=1,7) /3.336E+01, 2.846E+02,
     1 2.163E+01, 2.624E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 5, 3),I=1,7) /1.041E+00, 5.393E+01,
     1 1.767E+01, 9.540E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 5, 4),I=1,7) /2.869E+00, 1.859E+04,
     1 1.783E+00, 1.618E+01, 3.503E+00, 4.960E-03, 3.400E-02/
      DATA (PH2(I, 5, 5),I=1,7) /5.213E-01, 5.466E+00,
     1 8.618E+00, 1.728E+01, 1.887E+01, 1.319E+01, 4.556E+00/
      DATA (PH2(I, 6, 1),I=1,7) /1.548E+01, 1.521E+03,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 6, 2),I=1,7) /4.624E+01, 2.344E+02,
     1 2.183E+01, 2.581E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 6, 3),I=1,7) /3.506E+00, 1.068E+02,
     1 1.436E+01, 7.457E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 6, 4),I=1,7) /4.614E+00, 1.539E+04,
     1 1.737E+00, 1.593E+01, 5.922E+00, 4.378E-03, 2.528E-02/
      DATA (PH2(I, 6, 5),I=1,7) /4.058E-01, 8.709E+00,
     1 1.261E+02, 8.578E+00, 2.093E+00, 4.929E+01, 3.234E+00/
      DATA (PH2(I, 6, 6),I=1,7) /2.144E+00, 5.027E+02,
     1 6.216E+01, 5.101E+00, 9.157E-02, 1.133E+00, 1.607E+00/
      DATA (PH2(I, 7, 1),I=1,7) /2.108E+01, 1.117E+03,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 7, 2),I=1,7) /6.943E+01, 1.519E+02,
     1 2.627E+01, 2.315E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 7, 3),I=1,7) /4.471E+00, 8.376E+01,
     1 3.297E+01, 6.003E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 7, 4),I=1,7) /5.494E+00, 1.690E+04,
     1 1.714E+00, 1.706E+01, 7.904E+00, 6.415E-03, 1.937E-02/
      DATA (PH2(I, 7, 5),I=1,7) /2.420E-01, 9.375E-01,
     1 2.788E+02, 9.156E+00, 1.850E+00, 1.877E+02, 3.999E+00/
      DATA (PH2(I, 7, 6),I=1,7) /6.128E-02, 1.944E+00,
     1 8.163E+02, 8.773E+00, 1.043E+01, 4.280E+02, 2.030E+01/
      DATA (PH2(I, 7, 7),I=1,7) /4.034E+00, 8.235E+02,
     1 8.033E+01, 3.928E+00, 9.097E-02, 8.598E-01, 2.325E+00/
      DATA (PH2(I, 8, 1),I=1,7) /2.754E+01, 8.554E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 8, 2),I=1,7) /8.709E+01, 1.329E+02,
     1 2.535E+01, 2.336E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 8, 3),I=1,7) /7.824E+00, 6.864E+01,
     1 3.210E+01, 5.495E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 8, 4),I=1,7) /2.854E+00, 1.642E+04,
     1 1.792E+00, 2.647E+01, 2.836E+01, 3.036E-02, 5.554E-02/
      DATA (PH2(I, 8, 5),I=1,7) /2.044E-01, 8.659E-01,
     1 4.931E+02, 8.785E+00, 3.143E+00, 3.328E+02, 4.285E+01/
      DATA (PH2(I, 8, 6),I=1,7) /1.723E-01, 6.753E+02,
     1 3.852E+02, 6.822E+00, 1.191E-01, 3.839E-03, 4.569E-01/
      DATA (PH2(I, 8, 7),I=1,7) /1.386E+00, 5.967E+01,
     1 3.175E+01, 8.943E+00, 1.934E-02, 2.131E+01, 1.503E-02/
      DATA (PH2(I, 8, 8),I=1,7) /1.240E+00, 1.745E+03,
     1 3.784E+00, 1.764E+01, 7.589E-02, 8.698E+00, 1.271E-01/
      DATA (PH2(I, 9, 1),I=1,7) /3.485E+01, 6.759E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 9, 2),I=1,7) /1.131E+02, 1.039E+02,
     1 2.657E+01, 2.255E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 9, 3),I=1,7) /2.563E+00, 6.930E+01,
     1 7.547E+01, 6.448E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I, 9, 4),I=1,7) /4.008E+00, 1.157E+04,
     1 1.848E+00, 2.446E+01, 2.411E+01, 2.071E-02, 3.998E-02/
      DATA (PH2(I, 9, 5),I=1,7) /7.286E-01, 4.690E-01,
     1 1.400E+02, 9.718E+00, 2.570E-01, 1.506E+02, 2.574E-01/
      DATA (PH2(I, 9, 6),I=1,7) /7.744E-01, 3.165E+00,
     1 1.099E+02, 9.203E+00, 6.812E+00, 9.531E+01, 9.781E+00/
      DATA (PH2(I, 9, 7),I=1,7) /2.542E+00, 1.541E+02,
     1 5.742E+01, 6.614E+00, 1.115E+00, 1.641E+01, 5.124E+00/
      DATA (PH2(I, 9, 8),I=1,7) /1.763E+00, 8.013E+01,
     1 1.667E+01, 1.050E+01, 5.103E-01, 1.715E+01, 7.724E-01/
      DATA (PH2(I, 9, 9),I=1,7) /1.297E+01, 3.803E+03,
     1 2.587E+00, 7.275E+00, 2.170E-03, 1.701E-04, 1.345E-02/
      DATA (PH2(I,10, 1),I=1,7) /4.304E+01, 5.475E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,10, 2),I=1,7) /1.586E+02, 6.695E+01,
     1 3.352E+01, 2.002E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,10, 3),I=1,7) /1.003E+01, 5.631E+01,
     1 3.628E+01, 5.585E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,10, 4),I=1,7) /4.888E+00, 1.198E+04,
     1 1.788E+00, 2.550E+01, 2.811E+01, 2.536E-02, 4.417E-02/
      DATA (PH2(I,10, 5),I=1,7) /1.499E+00, 9.854E-01,
     1 1.350E+02, 8.836E+00, 1.656E+00, 1.042E+02, 1.435E+00/
      DATA (PH2(I,10, 6),I=1,7) /1.248E+00, 2.430E+00,
     1 1.066E+02, 8.999E+00, 6.855E-01, 9.169E+01, 3.702E-01/
      DATA (PH2(I,10, 7),I=1,7) /5.566E+00, 1.685E+03,
     1 6.409E+02, 3.056E+00, 8.290E-03, 5.149E+00, 6.687E+00/
      DATA (PH2(I,10, 8),I=1,7) /7.753E-01, 5.708E+00,
     1 6.725E+01, 1.005E+01, 4.633E-01, 7.654E+01, 2.023E+00/
      DATA (PH2(I,10, 9),I=1,7) /1.247E+01, 1.583E+03,
     1 3.935E+00, 7.810E+00, 6.558E-02, 1.520E+00, 1.084E-01/
      DATA (PH2(I,10,10),I=1,7) /4.870E+00, 4.287E+03,
     1 5.798E+00, 8.355E+00, 2.434E-01, 4.236E-02, 5.873E+00/
      DATA (PH2(I,11, 1),I=1,7) /5.211E+01, 4.525E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,11, 2),I=1,7) /2.268E+02, 3.995E+01,
     1 5.315E+01, 1.678E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,11, 3),I=1,7) /1.391E+01, 4.729E+01,
     1 3.889E+01, 5.265E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,11, 4),I=1,7) /1.535E+02, 7.215E+03,
     1 3.886E-01, 8.476E+00, 9.121E-01, 1.667E-01, 1.766E-02/
      DATA (PH2(I,11, 5),I=1,7) /2.096E+00, 1.609E+00,
     1 2.473E+02, 7.681E+00, 1.895E+00, 9.940E+01, 3.278E+00/
      DATA (PH2(I,11, 6),I=1,7) /4.846E+01, 7.101E+01,
     1 3.945E+01, 2.832E+00, 1.285E-02, 9.603E-04, 6.378E-03/
      DATA (PH2(I,11, 7),I=1,7) /5.408E+00, 2.346E+01,
     1 2.913E+01, 8.260E+00, 9.275E-01, 2.204E+01, 7.577E-01/
      DATA (PH2(I,11, 8),I=1,7) /6.690E-01, 2.330E+00,
     1 1.205E+02, 9.714E+00, 7.365E-01, 1.383E+02, 4.260E+00/
      DATA (PH2(I,11, 9),I=1,7) /1.069E+01, 1.885E+03,
     1 3.613E+00, 9.803E+00, 8.579E-02, 3.725E+00, 2.279E-01/
      DATA (PH2(I,11,10),I=1,7) /8.203E+00, 1.040E+03,
     1 8.259E+00, 7.362E+00, 2.328E+00, 3.375E+00, 4.010E+00/
      DATA (PH2(I,11,11),I=1,7) /6.139E+00, 1.601E+00,
     1 6.148E+03, 3.839E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,12, 1),I=1,7) /6.203E+01, 3.802E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,12, 2),I=1,7) /2.042E+02, 6.140E+01,
     1 2.778E+01, 2.161E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,12, 3),I=1,7) /1.452E+01, 4.427E+01,
     1 3.826E+01, 5.460E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,12, 4),I=1,7) /3.482E+01, 9.008E+02,
     1 1.823E+00, 1.444E+01, 2.751E+00, 5.444E+00, 7.918E-02/
      DATA (PH2(I,12, 5),I=1,7) /4.884E-01, 6.344E-02,
     1 5.085E+02, 9.385E+00, 6.666E-01, 5.348E+02, 3.997E-03/
      DATA (PH2(I,12, 6),I=1,7) /3.570E+00, 3.104E+00,
     1 6.060E+01, 8.857E+00, 1.422E+00, 5.452E+01, 2.078E+00/
      DATA (PH2(I,12, 7),I=1,7) /1.711E+00, 2.185E+00,
     1 9.350E+01, 9.202E+00, 6.325E-01, 1.007E+02, 1.729E+00/
      DATA (PH2(I,12, 8),I=1,7) /9.762E-01, 1.728E+00,
     1 9.184E+01, 1.006E+01, 8.090E-01, 1.276E+02, 3.979E+00/
      DATA (PH2(I,12, 9),I=1,7) /2.912E+01, 1.394E+03,
     1 2.895E+00, 6.487E+00, 4.326E-02, 9.402E-01, 1.135E-01/
      DATA (PH2(I,12,10),I=1,7) /1.086E+01, 5.377E+02,
     1 9.779E+00, 7.117E+00, 2.604E+00, 4.860E+00, 3.722E+00/
      DATA (PH2(I,12,11),I=1,7) /8.139E+00, 3.278E+00,
     1 4.341E+07, 3.610E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,12,12),I=1,7) /1.197E+01, 1.372E+08,
     1 2.228E-01, 1.574E+01, 2.805E-01, 0.000E+00, 0.000E+00/
      DATA (PH2(I,13, 1),I=1,7) /7.281E+01, 3.239E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,13, 2),I=1,7) /2.738E+02, 4.036E+01,
     1 3.567E+01, 1.915E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,13, 3),I=1,7) /2.355E+01, 3.388E+01,
     1 3.432E+01, 5.085E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,13, 4),I=1,7) /8.044E+00, 1.774E+04,
     1 1.653E+00, 2.655E+01, 2.953E+01, 2.538E-02, 1.203E-02/
      DATA (PH2(I,13, 5),I=1,7) /1.842E+00, 4.982E-01,
     1 2.568E+02, 8.406E+00, 6.945E-01, 1.719E+02, 6.595E+00/
      DATA (PH2(I,13, 6),I=1,7) /4.866E-01, 2.350E-01,
     1 7.216E+02, 8.659E+00, 2.773E-01, 5.704E+02, 1.580E-01/
      DATA (PH2(I,13, 7),I=1,7) /2.636E+00, 1.889E+02,
     1 1.338E+02, 6.204E+00, 1.836E+00, 3.552E+01, 8.223E-03/
      DATA (PH2(I,13, 8),I=1,7) /3.483E-01, 1.962E-02,
     1 1.856E+01, 2.084E+01, 8.839E+00, 5.675E-02, 2.768E-01/
      DATA (PH2(I,13, 9),I=1,7) /2.414E+01, 2.925E+02,
     1 6.973E+00, 6.724E+00, 1.000E-01, 3.495E+00, 2.701E-01/
      DATA (PH2(I,13,10),I=1,7) /3.130E+00, 1.513E+01,
     1 1.674E+01, 1.180E+01, 5.342E+00, 3.994E+01, 4.803E+00/
      DATA (PH2(I,13,11),I=1,7) /1.027E+01, 4.915E+00,
     1 1.990E+06, 3.477E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,13,12),I=1,7) /2.048E-01, 6.948E-02,
     1 5.675E+02, 9.049E+00, 4.615E-01, 9.149E+01, 6.565E-01/
      DATA (PH2(I,13,13),I=1,7) /1.381E+01, 7.195E+00,
     1 1.621E+03, 3.642E+00, 3.166E-01, 2.041E-01, 4.753E-01/
      DATA (PH2(I,14, 1),I=1,7) /8.447E+01, 2.793E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,14, 2),I=1,7) /2.752E+02, 4.754E+01,
     1 2.848E+01, 2.135E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,14, 3),I=1,7) /3.560E+01, 2.539E+01,
     1 3.307E+01, 4.728E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,14, 4),I=1,7) /1.205E+01, 1.992E+04,
     1 1.582E+00, 2.425E+01, 2.392E+01, 1.990E-02, 1.007E-02/
      DATA (PH2(I,14, 5),I=1,7) /8.787E-01, 1.950E-01,
     1 7.461E+02, 8.302E+00, 4.489E-01, 4.528E+02, 1.015E+00/
      DATA (PH2(I,14, 6),I=1,7) /3.343E-01, 1.465E-01,
     1 1.404E+03, 8.503E+00, 1.646E+00, 1.036E+03, 2.936E-01/
      DATA (PH2(I,14, 7),I=1,7) /7.655E-01, 3.477E-01,
     1 3.733E+02, 8.986E+00, 1.476E-03, 3.850E+02, 8.999E-02/
      DATA (PH2(I,14, 8),I=1,7) /3.277E-01, 6.680E-02,
     1 4.132E+01, 1.606E+01, 3.280E+00, 1.149E-02, 6.396E-01/
      DATA (PH2(I,14, 9),I=1,7) /6.305E+01, 7.293E+01,
     1 1.558E+02, 2.400E+00, 2.989E-03, 1.115E+00, 8.051E-02/
      DATA (PH2(I,14,10),I=1,7) /7.761E-01, 8.863E-01,
     1 1.541E+02, 9.980E+00, 1.303E+00, 2.009E+02, 4.537E+00/
      DATA (PH2(I,14,11),I=1,7) /1.288E+01, 6.083E+00,
     1 1.356E+06, 3.353E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,14,12),I=1,7) /1.659E-01, 5.790E-04,
     1 1.474E+02, 1.336E+01, 8.626E-01, 9.613E+01, 6.442E-01/
      DATA (PH2(I,14,13),I=1,7) /2.556E+00, 4.140E+00,
     1 1.337E+01, 1.191E+01, 1.570E+00, 6.634E+00, 1.272E-01/
      DATA (PH2(I,14,14),I=1,7) /2.317E+01, 2.506E+01,
     1 2.057E+01, 3.546E+00, 2.837E-01, 1.672E-05, 4.207E-01/
      DATA (PH2(I,16, 1),I=1,7) /1.104E+02, 2.139E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,16, 2),I=1,7) /4.390E+02, 2.453E+01,
     1 4.405E+01, 1.765E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,16, 3),I=1,7) /3.310E+01, 2.555E+01,
     1 3.821E+01, 5.037E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,16, 4),I=1,7) /1.474E+01, 2.294E+04,
     1 1.529E+00, 2.568E+01, 2.738E+01, 2.203E-02, 1.073E-02/
      DATA (PH2(I,16, 5),I=1,7) /2.443E+00, 3.490E-01,
     1 5.411E+02, 7.769E+00, 7.033E-01, 2.279E+02, 1.172E+00/
      DATA (PH2(I,16, 6),I=1,7) /6.485E+00, 1.275E+01,
     1 6.583E+01, 7.692E+00, 1.678E+00, 3.426E+01, 1.370E-01/
      DATA (PH2(I,16, 7),I=1,7) /1.040E+01, 5.364E+01,
     1 3.641E+01, 7.090E+00, 2.310E+00, 1.775E+01, 1.663E+00/
      DATA (PH2(I,16, 8),I=1,7) /1.526E-01, 9.646E+03,
     1 1.438E+03, 5.977E+00, 1.492E+00, 1.615E-03, 4.049E-01/
      DATA (PH2(I,16, 9),I=1,7) /1.462E+01, 3.161E+01,
     1 1.611E+01, 8.642E+00, 1.153E-03, 1.869E+01, 3.037E-01/
      DATA (PH2(I,16,10),I=1,7) /3.757E-01, 5.703E-01,
     1 1.460E+02, 1.135E+01, 1.503E+00, 2.222E+02, 4.606E+00/
      DATA (PH2(I,16,11),I=1,7) /1.413E+01, 9.139E+00,
     1 1.656E+03, 3.626E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,16,12),I=1,7) /1.713E-01, 5.072E-04,
     1 1.986E+02, 1.307E+01, 7.880E-01, 9.424E+01, 6.265E-01/
      DATA (PH2(I,16,13),I=1,7) /2.173E+00, 2.606E+00,
     1 6.641E+01, 8.655E+00, 1.863E+00, 1.975E+01, 3.361E+00/
      DATA (PH2(I,16,14),I=1,7) /2.027E+00, 6.666E+00,
     1 5.454E+01, 8.611E+00, 4.109E+00, 1.568E+01, 9.421E+00/
      DATA (PH2(I,16,15),I=1,7) /8.787E+00, 3.136E+02,
     1 3.442E+00, 1.281E+01, 7.354E-01, 2.782E+00, 1.788E-01/
      DATA (PH2(I,16,16),I=1,7) /1.808E+01, 4.564E+04,
     1 1.000E+00, 1.361E+01, 6.385E-01, 9.935E-01, 2.486E-01/
      DATA (PH2(I,18, 1),I=1,7) /1.399E+02, 1.690E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,18, 2),I=1,7) /4.468E+02, 3.108E+01,
     1 3.039E+01, 2.092E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,18, 3),I=1,7) /4.154E+01, 2.135E+01,
     1 4.118E+01, 4.945E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,18, 4),I=1,7) /1.888E+01, 2.571E+04,
     1 1.475E+00, 2.634E+01, 2.909E+01, 2.445E-02, 1.054E-02/
      DATA (PH2(I,18, 5),I=1,7) /1.557E+00, 4.997E-02,
     1 5.031E+02, 8.966E+00, 2.938E-01, 4.552E+02, 6.459E+00/
      DATA (PH2(I,18, 6),I=1,7) /3.209E-01, 2.459E-02,
     1 2.285E+03, 8.810E+00, 6.692E-01, 2.068E+03, 2.113E+01/
      DATA (PH2(I,18, 7),I=1,7) /5.310E+00, 7.018E-01,
     1 1.001E+02, 8.939E+00, 4.987E-01, 1.099E+02, 2.202E-01/
      DATA (PH2(I,18, 8),I=1,7) /1.257E-01, 1.760E+03,
     1 1.579E+03, 6.714E+00, 1.975E+00, 3.286E-03, 3.226E-01/
      DATA (PH2(I,18, 9),I=1,7) /1.040E+01, 8.204E+00,
     1 1.495E+01, 1.115E+01, 9.203E-04, 3.804E+01, 6.390E-01/
      DATA (PH2(I,18,10),I=1,7) /1.926E-01, 8.279E-01,
     1 2.392E+02, 1.121E+01, 1.434E+00, 3.814E+01, 4.649E+00/
      DATA (PH2(I,18,11),I=1,7) /3.884E+00, 3.295E+01,
     1 7.082E+02, 4.645E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,18,12),I=1,7) /2.966E-02, 3.693E+00,
     1 9.951E+03, 7.313E+00, 1.363E-02, 4.383E-04, 2.513E+00/
      DATA (PH2(I,18,13),I=1,7) /5.440E-01, 1.080E+00,
     1 9.419E+02, 7.582E+00, 1.107E+01, 1.700E+02, 1.587E+01/
      DATA (PH2(I,18,14),I=1,7) /1.031E+01, 9.946E+00,
     1 7.444E+01, 6.261E+00, 4.885E-01, 6.406E+00, 3.659E-03/
      DATA (PH2(I,18,15),I=1,7) /6.953E+00, 2.035E+01,
     1 1.400E+01, 9.595E+00, 8.842E-01, 7.501E+00, 1.806E-01/
      DATA (PH2(I,18,16),I=1,7) /1.417E+01, 3.580E+01,
     1 3.776E+01, 5.742E+00, 6.316E-01, 2.384E+00, 1.794E+00/
      DATA (PH2(I,18,17),I=1,7) /2.494E+01, 2.503E+01,
     1 1.272E+02, 4.288E+00, 5.108E-01, 9.299E-01, 7.195E-01/
      DATA (PH2(I,18,18),I=1,7) /1.709E+01, 2.106E+01,
     1 2.645E+02, 4.796E+00, 4.185E-01, 1.688E+00, 8.943E-01/
      DATA (PH2(I,20, 1),I=1,7) /1.729E+02, 1.369E+02,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,20, 2),I=1,7) /6.297E+02, 1.936E+01,
     1 3.921E+01, 1.862E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,20, 3),I=1,7) /9.472E+01, 1.105E+01,
     1 3.818E+01, 4.192E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,20, 4),I=1,7) /2.618E+01, 2.028E+04,
     1 1.456E+00, 2.560E+01, 2.803E+01, 2.402E-02, 9.323E-03/
      DATA (PH2(I,20, 5),I=1,7) /4.293E+00, 1.293E+00,
     1 1.691E+01, 1.438E+01, 3.461E-05, 9.363E-01, 4.589E-02/
      DATA (PH2(I,20, 6),I=1,7) /1.309E+02, 5.513E+01,
     1 3.828E+02, 2.023E+00, 9.084E-02, 1.833E-02, 9.359E-01/
      DATA (PH2(I,20, 7),I=1,7) /9.980E+00, 1.116E+00,
     1 5.918E+01, 9.005E+00, 3.879E+00, 7.104E+01, 5.311E+00/
      DATA (PH2(I,20, 8),I=1,7) /1.008E+01, 1.849E+03,
     1 1.792E+04, 2.868E+00, 2.410E+02, 6.138E-03, 6.931E+01/
      DATA (PH2(I,20, 9),I=1,7) /2.345E+01, 1.227E+01,
     1 1.312E+01, 9.771E+00, 6.842E-04, 2.417E+01, 5.469E-01/
      DATA (PH2(I,20,10),I=1,7) /2.288E-01, 9.384E-01,
     1 2.549E+02, 1.103E+01, 1.390E+00, 2.478E+01, 3.100E+00/
      DATA (PH2(I,20,11),I=1,7) /1.605E+01, 1.437E+01,
     1 6.989E+02, 3.857E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,20,12),I=1,7) /5.520E-02, 2.076E+02,
     1 1.790E+04, 5.893E+00, 1.843E-03, 2.826E-04, 1.657E+00/
      DATA (PH2(I,20,13),I=1,7) /1.366E+00, 6.641E-01,
     1 3.188E+02, 8.138E+00, 2.806E-01, 1.039E+02, 3.329E+00/
      DATA (PH2(I,20,14),I=1,7) /8.080E-01, 4.760E-01,
     1 3.682E+02, 8.634E+00, 5.720E-01, 1.487E+02, 1.283E+00/
      DATA (PH2(I,20,15),I=1,7) /9.515E+00, 7.642E+01,
     1 8.973E+01, 5.141E+00, 2.471E+00, 4.829E+00, 5.824E+00/
      DATA (PH2(I,20,16),I=1,7) /6.882E-01, 1.523E-01,
     1 1.502E+02, 1.061E+01, 8.227E+00, 1.210E+02, 3.876E+00/
      DATA (PH2(I,20,17),I=1,7) /4.255E+00, 7.736E+00,
     1 1.355E+01, 1.236E+01, 1.369E+00, 1.467E+01, 3.298E-02/
      DATA (PH2(I,20,18),I=1,7) /2.436E+01, 3.815E+01,
     1 2.931E+02, 3.944E+00, 3.126E-01, 1.802E+00, 1.233E+00/
      DATA (PH2(I,20,19),I=1,7) /1.553E+01, 1.064E+07,
     1 7.790E-01, 2.130E+01, 6.453E-01, 2.161E-03, 6.706E-02/
      DATA (PH2(I,20,20),I=1,7) /1.278E+01, 5.370E+05,
     1 3.162E-01, 1.242E+01, 4.477E-01, 1.012E-03, 1.851E-02/
      DATA (PH2(I,26, 1),I=1,7) /2.932E+02, 8.099E+01,
     1 3.288E+01, 2.963E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,26, 2),I=1,7) /1.057E+03, 1.195E+01,
     1 5.769E+01, 1.718E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,26, 3),I=1,7) /7.326E+01, 1.276E+01,
     1 4.914E+01, 4.941E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,26, 4),I=1,7) /4.575E+01, 2.580E+04,
     1 1.358E+00, 2.604E+01, 2.723E+01, 3.582E-02, 8.712E-03/
      DATA (PH2(I,26, 5),I=1,7) /9.713E+00, 7.204E-02,
     1 1.853E+02, 8.843E+00, 9.551E-03, 1.702E+02, 4.263E+00/
      DATA (PH2(I,26, 6),I=1,7) /9.243E+00, 1.098E+01,
     1 7.637E+01, 7.962E+00, 1.748E+00, 4.446E+01, 3.512E+00/
      DATA (PH2(I,26, 7),I=1,7) /2.011E+01, 4.455E-01,
     1 4.236E+01, 9.724E+00, 2.757E+00, 6.847E+01, 3.989E+00/
      DATA (PH2(I,26, 8),I=1,7) /7.519E-04, 6.066E-05,
     1 1.606E+06, 8.813E+00, 4.398E+00, 1.915E+06, 3.140E+01/
      DATA (PH2(I,26, 9),I=1,7) /3.190E+01, 2.388E+00,
     1 2.186E+01, 9.589E+00, 2.902E-02, 3.805E+01, 4.805E-01/
      DATA (PH2(I,26,10),I=1,7) /3.444E-01, 1.452E+00,
     1 3.960E+02, 1.013E+01, 1.264E+00, 2.891E+01, 3.404E+00/
      DATA (PH2(I,26,11),I=1,7) /2.873E+01, 1.207E+01,
     1 5.150E+02, 3.846E+00, 0.000E+00, 0.000E+00, 0.000E+00/
      DATA (PH2(I,26,12),I=1,7) /5.555E-02, 2.108E+02,
     1 2.045E+04, 6.033E+00, 1.885E-03, 2.706E-04, 1.628E+00/
      DATA (PH2(I,26,13),I=1,7) /8.509E-01, 1.454E-01,
     1 1.239E+03, 8.066E+00, 4.937E-01, 4.505E+02, 2.504E+00/
      DATA (PH2(I,26,14),I=1,7) /1.317E-01, 2.791E-03,
     1 2.487E+03, 9.791E+00, 6.938E-01, 2.170E+03, 6.852E-03/
      DATA (PH2(I,26,15),I=1,7) /6.295E+00, 1.738E+00,
     1 1.130E+02, 8.037E+00, 3.096E-01, 4.671E+01, 1.425E-01/
      DATA (PH2(I,26,16),I=1,7) /8.284E+00, 3.281E+00,
     1 5.360E+01, 8.571E+00, 3.279E-01, 2.971E+01, 5.220E-01/
      DATA (PH2(I,26,17),I=1,7) /6.886E+01, 6.470E+01,
     1 2.062E+01, 4.111E+00, 2.778E-04, 1.190E-05, 6.570E-03/
      DATA (PH2(I,26,18),I=1,7) /6.741E+00, 2.687E+01,
     1 1.807E+02, 6.290E+00, 2.387E-04, 2.494E+01, 8.251E+00/
      DATA (PH2(I,26,19),I=1,7) /7.098E-02, 1.979E+01,
     1 1.745E+04, 6.750E+00, 2.158E+02, 2.542E+03, 4.672E+02/
      DATA (PH2(I,26,20),I=1,7) /5.059E+00, 2.420E+04,
     1 4.850E+04, 2.374E+00, 2.516E-03, 4.546E-01, 2.683E+01/
      DATA (PH2(I,26,21),I=1,7) /2.656E+00, 5.259E-01,
     1 1.450E+01, 1.632E+01, 1.558E+01, 3.361E+01, 3.743E-03/
      DATA (PH2(I,26,22),I=1,7) /7.256E-01, 1.523E-03,
     1 3.736E+01, 1.767E+01, 5.064E+01, 8.871E+01, 5.280E-02/
      DATA (PH2(I,26,23),I=1,7) /2.544E+01, 3.653E+02,
     1 8.913E+00, 6.538E+00, 5.602E-01, 0.000E+00, 0.000E+00/
      DATA (PH2(I,26,24),I=1,7) /1.698E-01, 6.107E+00,
     1 1.555E+03, 8.055E+00, 8.698E+00, 1.760E+02, 1.847E+01/
      DATA (PH2(I,26,25),I=1,7) /1.761E-01, 4.365E+03,
     1 6.298E+03, 5.204E+00, 1.141E+01, 9.272E+01, 1.075E+02/
      DATA (PH2(I,26,26),I=1,7) /5.461E-02, 3.062E-01,
     1 2.671E+07, 7.923E+00, 2.069E+01, 1.382E+02, 2.481E-01/
      END
