      SUBROUTINE RDFIT(IZ,IN,T,ALFAD)
************************************************************************
**
*** Modified - 4 Dec 2007
*** Paul Bryans, Columbia, bryans@astro.columbia.edu
*** 
*** Updated rate coefficients to those on web page of Nigel Badnell
*** (http://amdpp.phys.strath.ac.uk/tamoc/DATA/DR/) for
*** H-like through Mg-like for all elements from H to Zn.
*** Fe M-shell data added - Badnell, 2006, ApJ, 651, 73
*** Data for remaining ions same as originally implemented by Mazzotta.
*** All original data remains in data block if the user wishes to
*** compare data sets.
***
*** Subroutine now in double precision.
***
************************************************************************
C----------------------------------------------------------------------
C-
C-   Version number: 3.0
C-
C-   Modified Version: 
C-  
C-   Modified by Warit Mitthumsiri (wm2109@columbia.edu) on Feb 10, 2005
C-
C-   Purpose and Methods: DR from http://amdpp.phys.starth.ac.uk/tamoc/DATA/DR/
C-                        for H-like through Mg-like ions
C-
C-   Inputs  : IZ - ATOMIC NUMBER
C-             IN - IONIZATION STAGE (1<=IN<=IZ) 
C-                                              (IN=1 =>EL^{+1})
C-                                              (IN=IZ=>Full stripped)
C-             T  - TEMPERATURE IN eV 
C-   Comment: Ne is the number of electrons before recombination
C-
C-   Outputs : ALFAD - RATE COEFFICIENT, cm^3 s^(-1) 
C-
C-       Those data are freely distributed. In order to have coherent
C-       set of data you are not allowed to change the value contained 
C-       in the following data block. 
C-       For any suggestion or problem contact the author. 
C-
C-   Created   7-OCT-1997  by  
C-             Pasquale Mazzotta
C-             Department of Physics
C-             Universita' of  Roma "Tor Vergata"
C-             via della Ricerca Scientifica, 33
C-             I-00133            Roma (Italy)
C-             email: mazzotta@roma2.infn.it
C-
C----------------------------------------------------------------------

      IMPLICIT NONE
      REAL*8 C(4,28,27),E(4,28,27),A(28,27),SUM,T,ALFAD,Ebn,Cbn
      INTEGER I,IN,IZ,Ne
      COMMON/RDFITC/C,E,A
      common/Ebn/Ebn(10,30,30)
      common/Cbn/Cbn(10,30,30)

      Ne=IZ-IN
      IF(Ne.le.12.or.(iz.eq.26.and.Ne.le.18))THEN
         SUM=0.d0
         DO i=1,10
           SUM=(Cbn(i,iz,Ne)*(dexp(-Ebn(i,iz,Ne)/(T/8.6175d-5))))
     &+SUM
         END DO
         ALFAD=((T/8.6175d-5)**(-1.5d0))*SUM
         RETURN

      ELSE IF (IN.EQ.IZ) THEN
        ALFAD=0.d0
        RETURN
      ELSE  
        SUM=0.d0
        DO I=1,4
          SUM=SUM+C(I,IZ,IN)*dEXP(-E(I,IZ,IN)/T)
        ENDDO
        ALFAD=A(IZ,IN)*SUM/T**1.5d0
        RETURN
      ENDIF
      END
C-
C-
C-
      BLOCK DATA RDFITD
      REAL*8 C(4,28,27),E(4,28,27),A(28,27),Ebn,Cbn
      COMMON/RDFITC/C,E,A
      common/Ebn/Ebn(10,30,30)
      common/Cbn/Cbn(10,30,30)
C----------------------------------------------------------------------
C-
C-   DATA VALUE FOR THE DIELECTRONIC RECOMBINATION
C-
C-      
C-
C-   Those data are freely distributed. In order to have coherent
C-   set of data you are not allowed to change the value contained 
C-   in the following data block. 
C-   For any suggestion or problem contact the author. 
C-   
C-   Created   7-OCT-1997  by  
C-             Pasquale Mazzotta
C-             Department of Physics
C-             Universita' of  Roma "Tor Vergata"
C-             via della Ricerca Scientifica, 33
C-             I-00133            Roma (Italy)
C-             email: mazzotta@roma2.infn.it
C----------------------------------------------------------------------
C-
C- DATA FOR C
C-

      DATA (C(I, 2, 1),I=1,4)/
     +2.24000d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 3, 1),I=1,4)/
     +1.32000d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 3, 2),I=1,4)/
     +9.59900d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 4, 1),I=1,4)/
     +5.26620d-10,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 4, 2),I=1,4)/
     +1.26210d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 4, 3),I=1,4)/
     +8.71980d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 5, 1),I=1,4)/
     +1.36020d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 5, 2),I=1,4)/
     +1.43820d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 5, 3),I=1,4)/
     +6.11890d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 5, 4),I=1,4)/
     +1.61380d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 6, 1),I=1,4)/
     +1.04220d-09,5.84840d-10,5.63060d-11,0.00000d+00/
      DATA (C(I, 6, 2),I=1,4)/
     +4.61780d-12,2.82340d-09,0.00000d+00,0.00000d+00/
      DATA (C(I, 6, 3),I=1,4)/
     +5.38580d-10,1.50560d-09,6.03320d-10,0.00000d+00/
      DATA (C(I, 6, 4),I=1,4)/
     +0.14008d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 6, 5),I=1,4)/
     +3.35580d-08,0.00000d-00,0.00000d-00,0.00000d+00/
      DATA (C(I, 7, 1),I=1,4)/
     +0.23837d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 7, 2),I=1,4)/
     +2.05700d-10,3.06090d-09,2.80100d-12,0.00000d+00/
      DATA (C(I, 7, 3),I=1,4)/
     +0.64383d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 7, 4),I=1,4)/
     +2.85030d-09,1.61400d-09,8.93190d-10,0.00000d+00/
      DATA (C(I, 7, 5),I=1,4)/
     +0.36659d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 7, 6),I=1,4)/
     +0.47821d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 8, 1),I=1,4)/
     +0.96900d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 8, 2),I=1,4)/
     +0.38200d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 8, 3),I=1,4)/
     +5.57130d-09,3.50280d-11,5.43590d-09,0.00000d+00/
      DATA (C(I, 8, 4),I=1,4)/
     +0.91690d-08,0.00000d-00,0.00000d+00,0.00000d+00/
      DATA (C(I, 8, 5),I=1,4)/
     +3.20730d-09,3.04240d-09,1.76480d-09,0.00000d+00/
      DATA (C(I, 8, 6),I=1,4)/
     +0.52032d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 8, 7),I=1,4)/
     +0.37755d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 9, 1),I=1,4)/
     +1.22620d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 9, 2),I=1,4)/
     +2.02780d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 9, 3),I=1,4)/
     +6.56110d-10,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 9, 4),I=1,4)/
     +6.08270d-09,9.21980d-09,1.62390d-11,0.00000d+00/
      DATA (C(I, 9, 5),I=1,4)/
     +1.21380d-08,6.40330d-10,0.00000d+00,0.00000d+00/
      DATA (C(I, 9, 6),I=1,4)/
     +4.24720d-09,7.41900d-09,4.85380d-09,0.00000d+00/
      DATA (C(I, 9, 7),I=1,4)/
     +6.79490d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I, 9, 8),I=1,4)/
     +5.49670d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,10, 1),I=1,4)/
     +0.82844d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,10, 2),I=1,4)/
     +0.24796d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,10, 3),I=1,4)/
     +2.91600d-09,2.98110d-09,0.00000d-00,0.00000d+00/
      DATA (C(I,10, 4),I=1,4)/
     +0.45519d-10,0.10900d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,10, 5),I=1,4)/
     +1.82300d-08,1.33640d-11,4.23620d-11,0.00000d+00/
      DATA (C(I,10, 6),I=1,4)/
     +0.11016d-07,0.77985d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,10, 7),I=1,4)/
     +0.11214d-07,0.60141d-08,0.83210d-08,0.00000d+00/
      DATA (C(I,10, 8),I=1,4)/
     +8.95820d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,10, 9),I=1,4)/
     +0.73367d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,11, 1),I=1,4)/
     +1.66120d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,11, 2),I=1,4)/
     +1.96500d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,11, 3),I=1,4)/
     +7.00880d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,11, 4),I=1,4)/
     +2.99430d-08,6.50320d-09,0.00000d+00,0.00000d+00/
      DATA (C(I,11, 5),I=1,4)/
     +3.94110d-08,1.56910d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,11, 6),I=1,4)/
     +2.15070d-10,4.84010d-11,1.01120d-08,4.24430d-08/
      DATA (C(I,11, 7),I=1,4)/
     +7.38810d-09,1.61390d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,11, 8),I=1,4)/
     +2.83530d-08,6.72950d-09,3.32420d-09,0.00000d+00/
      DATA (C(I,11, 9),I=1,4)/
     +1.17530d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,11,10),I=1,4)/
     +7.55350d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,12, 1),I=1,4)/
     +3.65240d-10,0.00000d-00,0.00000d+00,0.00000d+00/
      DATA (C(I,12, 2),I=1,4)/
     +0.25177d-10,0.20914d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,12, 3),I=1,4)/
     +0.47229d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,12, 4),I=1,4)/
     +0.39376d-08,0.61912d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,12, 5),I=1,4)/
     +9.35880d-09,7.55250d-09,0.00000d-00,0.00000d+00/
      DATA (C(I,12, 6),I=1,4)/
     +0.10827d-07,0.29661d-07,0.31299d-09,0.00000d+00/
      DATA (C(I,12, 7),I=1,4)/
     +1.83330d-08,3.29800d-08,2.17430d-10,0.00000d+00/
      DATA (C(I,12, 8),I=1,4)/
     +0.21927d-07,0.23986d-08,0.96429d-08,0.00000d+00/
      DATA (C(I,12, 9),I=1,4)/
     +0.52667d-08,0.55117d-08,0.36781d-07,0.00000d+00/
      DATA (C(I,12,10),I=1,4)/
     +1.45780d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,12,11),I=1,4)/
     +0.74230d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,13, 1),I=1,4)/
     +2.83450d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,13, 2),I=1,4)/
     +1.26533d-09,0.00000d-00,0.00000d+00,0.00000d+00/
      DATA (C(I,13, 3),I=1,4)/
     +5.06560d-10,2.55790d-09,2.50770d-09,0.00000d+00/
      DATA (C(I,13, 4),I=1,4)/
     +5.43930d-09,2.70600d-09,0.00000d+00,0.00000d+00/
      DATA (C(I,13, 5),I=1,4)/
     +9.11880d-09,9.75710d-09,0.00000d+00,0.00000d+00/
      DATA (C(I,13, 6),I=1,4)/
     +7.06000d-08,1.19900d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,13, 7),I=1,4)/
     +9.16900d-08,3.39490d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,13, 8),I=1,4)/
     +7.26700d-11,5.54990d-10,1.97950d-08,6.79840d-08/
      DATA (C(I,13, 9),I=1,4)/
     +2.33540d-08,1.79710d-08,1.04360d-08,0.00000d+00/
      DATA (C(I,13,10),I=1,4)/
     +4.73980d-09,5.58150d-08,9.12690d-09,0.00000d+00/
      DATA (C(I,13,11),I=1,4)/
     +1.75620d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,13,12),I=1,4)/
     +1.02260d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,14, 1),I=1,4)/
     +4.89780d-12,6.07990d-10,0.00000d+00,0.00000d+00/
      DATA (C(I,14, 2),I=1,4)/
     +2.25520d-11,5.60580d-09,0.00000d+00,0.00000d+00/
      DATA (C(I,14, 3),I=1,4)/
     +4.70170d-09,0.00000d-00,0.00000d+00,0.00000d+00/
      DATA (C(I,14, 4),I=1,4)/
     +0.12037d-08,0.43534d-08,0.69715d-08,0.00000d+00/
      DATA (C(I,14, 5),I=1,4)/
     +0.70871d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,14, 6),I=1,4)/
     +0.24189d-07,0.13438d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,14, 7),I=1,4)/
     +1.99170d-08,0.37445d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,14, 8),I=1,4)/
     +0.22671d-07,0.41363d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,14, 9),I=1,4)/
     +7.96280d-08,2.36100d-09,2.24520d-08,5.83840d-10/
      DATA (C(I,14,10),I=1,4)/
     +0.26441d-07,0.71134d-08,0.29975d-07,0.00000d+00/
      DATA (C(I,14,11),I=1,4)/
     +0.28288d-07,0.43159d-07,0.11559d-07,0.00000d+00/
      DATA (C(I,14,12),I=1,4)/
     +2.06730d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,14,13),I=1,4)/
     +0.11532d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 1),I=1,4)/
     +3.12210d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 2),I=1,4)/
     +6.35870d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 3),I=1,4)/
     +1.35590d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 4),I=1,4)/
     +8.37160d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 5),I=1,4)/
     +9.31030d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 6),I=1,4)/
     +7.06150d-09,8.54290d-09,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 7),I=1,4)/
     +1.63420d-08,2.43820d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 8),I=1,4)/
     +4.10290d-08,2.31410d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,15, 9),I=1,4)/
     +3.61310d-08,5.97250d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,15,10),I=1,4)/
     +3.84610d-09,4.60340d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,15,11),I=1,4)/
     +4.22240d-08,1.45010d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,15,12),I=1,4)/
     +9.65730d-09,6.20330d-08,8.65010d-09,9.06970d-08/
      DATA (C(I,15,13),I=1,4)/
     +2.38800d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,15,14),I=1,4)/
     +1.29600d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,16, 1),I=1,4)/
     +0.13700d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,16, 2),I=1,4)/
     +8.07290d-09,1.10120d-10,0.00000d+00,0.00000d+00/
      DATA (C(I,16, 3),I=1,4)/
     +1.81720d-08,5.91950d-11,0.00000d+00,0.00000d+00/
      DATA (C(I,16, 4),I=1,4)/
     +0.17710d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,16, 5),I=1,4)/
     +0.14900d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,16, 6),I=1,4)/
     +0.33052d-08,0.19159d-07,0.51659d-07,0.00000d+00/
      DATA (C(I,16, 7),I=1,4)/
     +0.10719d-07,0.11147d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,16, 8),I=1,4)/
     +2.13220d-08,1.90370d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,16, 9),I=1,4)/
     +2.55170d-08,1.78620d-08,0.00000d-00,0.00000d+00/
      DATA (C(I,16,10),I=1,4)/
     +0.74742d-09,0.57302d-07,0.53172d-07,0.00000d+00/
      DATA (C(I,16,11),I=1,4)/
     +3.57260d-08,2.37840d-07,1.51300d-09,0.00000d+00/
      DATA (C(I,16,12),I=1,4)/
     +0.33539d-07,0.94390d-08,0.73000d-07,0.00000d+00/
      DATA (C(I,16,13),I=1,4)/
     +7.90170d-09,1.16090d-07,1.27260d-08,0.00000d+00/
      DATA (C(I,16,14),I=1,4)/
     +2.71530d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,16,15),I=1,4)/
     +0.14747d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 1),I=1,4)/
     +2.13950d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 2),I=1,4)/
     +6.89340d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 3),I=1,4)/
     +2.51990d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 4),I=1,4)/
     +5.70750d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 5),I=1,4)/
     +4.14480d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 6),I=1,4)/
     +1.57710d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 7),I=1,4)/
     +1.35340d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 8),I=1,4)/
     +1.37340d-08,1.94890d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,17, 9),I=1,4)/
     +2.31490d-08,2.88200d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,17,10),I=1,4)/
     +2.94600d-08,4.20690d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,17,11),I=1,4)/
     +6.31360d-08,6.50300d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,17,12),I=1,4)/
     +7.49660d-08,6.38560d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,17,13),I=1,4)/
     +1.07590d-08,4.88060d-08,8.97040d-08,0.00000d+00/
      DATA (C(I,17,14),I=1,4)/
     +1.46350d-08,1.39460d-07,8.47260d-09,0.00000d+00/
      DATA (C(I,17,15),I=1,4)/
     +3.04600d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,17,16),I=1,4)/
     +1.61260d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 1),I=1,4)/
     +0.80270d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 2),I=1,4)/
     +0.89786d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 3),I=1,4)/
     +0.64347d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 4),I=1,4)/
     +0.34167d-07,0.24798d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 5),I=1,4)/
     +0.75569d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 6),I=1,4)/
     +0.56364d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 7),I=1,4)/
     +0.14257d-07,0.33554d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 8),I=1,4)/
     +1.19380d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,18, 9),I=1,4)/
     +0.27558d-06,0.72516d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,18,10),I=1,4)/
     +0.34885d-07,0.34467d-08,0.18982d-06,0.00000d+00/
      DATA (C(I,18,11),I=1,4)/
     +0.27490d-06,0.27766d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,18,12),I=1,4)/
     +0.23285d-06,0.45296d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,18,13),I=1,4)/
     +0.53477d-07,0.34686d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,18,14),I=1,4)/
     +0.44154d-07,0.98829d-08,0.11284d-06,0.00000d+00/
      DATA (C(I,18,15),I=1,4)/
     +0.14092d-07,0.14407d-06,0.15849d-07,0.00000d+00/
      DATA (C(I,18,16),I=1,4)/
     +3.37720d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,18,17),I=1,4)/
     +0.18038d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 1),I=1,4)/
     +5.12210d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 2),I=1,4)/
     +1.13150d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 3),I=1,4)/
     +3.75590d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 4),I=1,4)/
     +6.74530d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 5),I=1,4)/
     +8.74760d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 6),I=1,4)/
     +9.29570d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 7),I=1,4)/
     +6.92970d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 8),I=1,4)/
     +1.90590d-08,4.04270d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,19, 9),I=1,4)/
     +2.17710d-07,0.00000d-00,0.00000d+00,0.00000d+00/
      DATA (C(I,19,10),I=1,4)/
     +5.91700d-08,2.05660d-09,3.28970d-07,0.00000d+00/
      DATA (C(I,19,11),I=1,4)/
     +4.22130d-09,5.14250d-08,2.52440d-07,0.00000d+00/
      DATA (C(I,19,12),I=1,4)/
     +3.87630d-08,7.13620d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,19,13),I=1,4)/
     +8.99500d-08,5.40890d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,19,14),I=1,4)/
     +6.26840d-08,7.48460d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,19,15),I=1,4)/
     +1.58910d-07,2.02280d-08,4.83170d-08,0.00000d+00/
      DATA (C(I,19,16),I=1,4)/
     +1.21100d-08,1.67710d-08,1.89500d-07,0.00000d+00/
      DATA (C(I,19,17),I=1,4)/
     +3.70570d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,19,18),I=1,4)/
     +1.94780d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 1),I=1,4)/
     +0.28610d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 2),I=1,4)/
     +0.49615d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 3),I=1,4)/
     +0.90582d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 4),I=1,4)/
     +0.11154d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 5),I=1,4)/
     +1.38460d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 6),I=1,4)/
     +0.19928d-07,0.93442d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 7),I=1,4)/
     +0.11486d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 8),I=1,4)/
     +0.87107d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20, 9),I=1,4)/
     +0.35334d-07,0.48322d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,20,10),I=1,4)/
     +3.24210d-07,0.00000d-00,0.00000d+00,0.00000d+00/
      DATA (C(I,20,11),I=1,4)/
     +0.22700d-06,0.29562d-06,0.42190d-08,0.00000d+00/
      DATA (C(I,20,12),I=1,4)/
     +0.51766d-07,0.48132d-08,0.34464d-06,0.00000d+00/
      DATA (C(I,20,13),I=1,4)/
     +4.38340d-08,8.76680d-08,0.00000d-00,0.00000d+00/
      DATA (C(I,20,14),I=1,4)/
     +0.66644d-07,0.25204d-08,0.10171d-06,0.00000d+00/
      DATA (C(I,20,15),I=1,4)/
     +0.64086d-07,0.45226d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,20,16),I=1,4)/
     +0.53607d-07,0.12456d-07,0.20501d-06,0.00000d+00/
      DATA (C(I,20,17),I=1,4)/
     +0.13790d-07,0.18636d-07,0.20503d-06,0.00000d-00/
      DATA (C(I,20,18),I=1,4)/
     +4.02840d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,20,19),I=1,4)/
     +0.21437d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 1),I=1,4)/
     +4.46380d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 2),I=1,4)/
     +1.88570d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 3),I=1,4)/
     +9.39850d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 4),I=1,4)/
     +1.03230d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 5),I=1,4)/
     +1.44040d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 6),I=1,4)/
     +1.80050d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 7),I=1,4)/
     +1.03790d-07,6.12590d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 8),I=1,4)/
     +1.24700d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21, 9),I=1,4)/
     +2.63760d-09,1.23000d-07,1.12730d-07,0.00000d+00/
      DATA (C(I,21,10),I=1,4)/
     +5.39760d-08,7.73650d-09,8.41310d-08,0.00000d+00/
      DATA (C(I,21,11),I=1,4)/
     +4.30390d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21,12),I=1,4)/
     +2.70270d-09,9.55880d-08,5.82610d-07,0.00000d+00/
      DATA (C(I,21,13),I=1,4)/
     +6.45710d-08,5.50620d-09,4.38910d-07,0.00000d+00/
      DATA (C(I,21,14),I=1,4)/
     +4.05820d-08,4.46220d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,21,15),I=1,4)/
     +5.98030d-08,3.39020d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,21,16),I=1,4)/
     +6.89080d-08,5.11250d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,21,17),I=1,4)/
     +2.32980d-07,2.37580d-08,5.56640d-08,0.00000d+00/
      DATA (C(I,21,18),I=1,4)/
     +1.45700d-08,2.09940d-08,2.31390d-07,0.00000d+00/
      DATA (C(I,21,19),I=1,4)/
     +4.34230d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,21,20),I=1,4)/
     +2.63750d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 1),I=1,4)/
     +5.42990d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 2),I=1,4)/
     +4.32730d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 3),I=1,4)/
     +7.10670d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 4),I=1,4)/
     +1.58920d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 5),I=1,4)/
     +8.79790d-08,3.20650d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 6),I=1,4)/
     +1.81920d-07,1.54300d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 7),I=1,4)/
     +2.23890d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 8),I=1,4)/
     +3.73700d-08,1.18780d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,22, 9),I=1,4)/
     +2.58410d-08,1.45420d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,22,10),I=1,4)/
     +4.19900d-08,9.71870d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,22,11),I=1,4)/
     +2.42270d-08,1.40000d-07,6.04100d-08,0.00000d+00/
      DATA (C(I,22,12),I=1,4)/
     +2.53660d-07,2.63160d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,22,13),I=1,4)/
     +3.21910d-07,5.43150d-07,4.87070d-09,0.00000d+00/
      DATA (C(I,22,14),I=1,4)/
     +8.73660d-08,6.22620d-09,5.39080d-07,0.00000d+00/
      DATA (C(I,22,15),I=1,4)/
     +5.11020d-07,4.47100d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,22,16),I=1,4)/
     +3.80330d-07,6.50800d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,22,17),I=1,4)/
     +7.11250d-08,5.72590d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,22,18),I=1,4)/
     +2.86950d-08,5.89480d-08,2.90490d-07,0.00000d+00/
      DATA (C(I,22,19),I=1,4)/
     +1.84250d-08,2.21340d-08,2.71330d-07,0.00000d+00/
      DATA (C(I,22,20),I=1,4)/
     +4.64420d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,22,21),I=1,4)/
     +2.49940d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 1),I=1,4)/
     +5.07490d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 2),I=1,4)/
     +1.83860d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 3),I=1,4)/
     +4.78800d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 4),I=1,4)/
     +1.10560d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 5),I=1,4)/
     +1.97330d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 6),I=1,4)/
     +2.58860d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 7),I=1,4)/
     +2.76620d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 8),I=1,4)/
     +2.67560d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23, 9),I=1,4)/
     +1.51060d-07,8.36650d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,23,10),I=1,4)/
     +1.68690d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23,11),I=1,4)/
     +4.66360d-08,2.23000d-07,6.65760d-08,0.00000d+00/
      DATA (C(I,23,12),I=1,4)/
     +6.84420d-08,3.08080d-08,2.28000d-07,0.00000d+00/
      DATA (C(I,23,13),I=1,4)/
     +6.56950d-07,0.00000d-00,0.00000d+00,0.00000d+00/
      DATA (C(I,23,14),I=1,4)/
     +1.91860d-07,4.09620d-09,8.65680d-07,0.00000d+00/
      DATA (C(I,23,15),I=1,4)/
     +7.36600d-09,5.64680d-07,2.04120d-07,0.00000d+00/
      DATA (C(I,23,16),I=1,4)/
     +4.87300d-08,5.82140d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,23,17),I=1,4)/
     +4.25500d-07,7.11360d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,23,18),I=1,4)/
     +6.32890d-07,7.27890d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,23,19),I=1,4)/
     +2.90540d-07,5.32220d-08,8.79130d-08,0.00000d+00/
      DATA (C(I,23,20),I=1,4)/
     +2.52320d-08,1.89390d-08,2.94550d-07,0.00000d+00/
      DATA (C(I,23,21),I=1,4)/
     +4.93110d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,23,22),I=1,4)/
     +2.63750d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 1),I=1,4)/
     +5.14180d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 2),I=1,4)/
     +1.40520d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 3),I=1,4)/
     +4.45700d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 4),I=1,4)/
     +8.09850d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 5),I=1,4)/
     +8.65570d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 6),I=1,4)/
     +3.17470d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 7),I=1,4)/
     +4.44000d-07,1.60060d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 8),I=1,4)/
     +7.68620d-08,6.09670d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,24, 9),I=1,4)/
     +3.11510d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24,10),I=1,4)/
     +7.33480d-08,1.17750d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,24,11),I=1,4)/
     +7.27000d-08,1.70380d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,24,12),I=1,4)/
     +8.41810d-08,1.15660d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,24,13),I=1,4)/
     +4.02850d-08,3.15000d-07,7.63070d-08,0.00000d+00/
      DATA (C(I,24,14),I=1,4)/
     +3.40340d-07,4.08980d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,24,15),I=1,4)/
     +3.65580d-07,9.16270d-07,5.46410d-09,0.00000d+00/
      DATA (C(I,24,16),I=1,4)/
     +1.70020d-07,7.92740d-09,7.37160d-07,0.00000d+00/
      DATA (C(I,24,17),I=1,4)/
     +5.32070d-08,6.40470d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,24,18),I=1,4)/
     +4.70410d-07,7.92250d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,24,19),I=1,4)/
     +7.83150d-08,6.97900d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,24,20),I=1,4)/
     +3.40660d-08,6.88860d-08,3.80410d-07,0.00000d+00/
      DATA (C(I,24,21),I=1,4)/
     +3.19120d-07,2.67300d-08,1.81690d-08,0.00000d+00/
      DATA (C(I,24,22),I=1,4)/
     +5.20000d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,24,23),I=1,4)/
     +2.81220d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 1),I=1,4)/
     +3.58750d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 2),I=1,4)/
     +1.49500d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 3),I=1,4)/
     +3.56030d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 4),I=1,4)/
     +7.00740d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 5),I=1,4)/
     +1.23820d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 6),I=1,4)/
     +1.87350d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 7),I=1,4)/
     +3.83290d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 8),I=1,4)/
     +1.09190d-07,5.04760d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,25, 9),I=1,4)/
     +6.38480d-08,6.27050d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,25,10),I=1,4)/
     +3.43850d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25,11),I=1,4)/
     +1.15380d-07,1.56940d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,25,12),I=1,4)/
     +1.04940d-07,1.85580d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,25,13),I=1,4)/
     +8.94930d-08,1.29660d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,25,14),I=1,4)/
     +5.39890d-08,4.36000d-07,9.56380d-08,0.00000d+00/
      DATA (C(I,25,15),I=1,4)/
     +3.94220d-07,5.28930d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,25,16),I=1,4)/
     +1.10580d-06,4.06770d-07,6.02370d-09,0.00000d+00/
      DATA (C(I,25,17),I=1,4)/
     +2.10140d-07,8.81690d-09,8.53350d-07,0.00000d+00/
      DATA (C(I,25,18),I=1,4)/
     +5.63550d-08,7.28430d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,25,19),I=1,4)/
     +5.19080d-07,8.32520d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,25,20),I=1,4)/
     +8.58200d-08,7.65670d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,25,21),I=1,4)/
     +5.38980d-08,1.07390d-07,3.86750d-07,0.00000d+00/
      DATA (C(I,25,22),I=1,4)/
     +1.92580d-08,3.23980d-08,3.37840d-07,0.00000d+00/
      DATA (C(I,25,23),I=1,4)/
     +5.44760d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,25,24),I=1,4)/
     +3.00010d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 1),I=1,4)/
     +0.17609d-09,0.80041d-10,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 2),I=1,4)/
     +0.18409d-08,0.21611d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 3),I=1,4)/
     +0.12006d-07,0.37619d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 4),I=1,4)/
     +0.30416d-07,0.12807d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 5),I=1,4)/
     +0.64033d-07,0.19210d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 6),I=1,4)/
     +0.73638d-07,0.32817d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 7),I=1,4)/
     +0.12807d-06,0.28815d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 8),I=1,4)/
     +0.14407d-06,0.56029d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,26, 9),I=1,4)/
     +0.11206d-06,0.20811d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,26,10),I=1,4)/
     +0.80041d-07,0.22412d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,26,11),I=1,4)/
     +0.18009d-06,0.18489d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,26,12),I=1,4)/
     +0.19210d-06,0.13607d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,26,13),I=1,4)/
     +0.20811d-06,0.12807d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,26,14),I=1,4)/
     +0.15208d-06,0.72037d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,26,15),I=1,4)/
     +0.96049d-07,0.96049d-07,0.48025d-06,0.00000d+00/
      DATA (C(I,26,16),I=1,4)/
     +0.45040d-06,0.63367d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,26,17),I=1,4)/
     +0.20250d-08,0.26894d-07,0.14487d-06,0.15368d-05/
      DATA (C(I,26,18),I=1,4)/
     +2.05500d-07,8.80310d-08,8.54460d-07,0.00000d-00/
      DATA (C(I,26,19),I=1,4)/
     +0.12807d-07,0.57389d-07,0.72517d-07,0.59150d-06/
      DATA (C(I,26,20),I=1,4)/
     +0.14808d-07,0.76279d-07,0.63232d-07,0.98451d-06/
      DATA (C(I,26,21),I=1,4)/
     +0.74358d-09,0.10325d-06,0.15368d-06,0.72997d-06/
      DATA (C(I,26,22),I=1,4)/
     +0.40660d-07,0.83362d-07,0.49659d-06,0.00000d+00/
      DATA (C(I,26,23),I=1,4)/
     +0.34225d-07,0.37699d-06,0.18407d-07,0.00000d-00/
      DATA (C(I,26,24),I=1,4)/
     +5.67100d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,26,25),I=1,4)/
     +0.29516d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 1),I=1,4)/
     +2.28400d-10,2.27100d-10,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 2),I=1,4)/
     +4.57260d-09,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 3),I=1,4)/
     +1.28930d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 4),I=1,4)/
     +2.28830d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 5),I=1,4)/
     +4.71240d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 6),I=1,4)/
     +1.08540d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 7),I=1,4)/
     +2.37040d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 8),I=1,4)/
     +2.75600d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27, 9),I=1,4)/
     +4.63230d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27,10),I=1,4)/
     +1.85990d-07,2.10610d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,27,11),I=1,4)/
     +1.73100d-07,1.91270d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,27,12),I=1,4)/
     +3.43420d-07,1.70260d-07,9.99920d-09,0.00000d+00/
      DATA (C(I,27,13),I=1,4)/
     +1.32370d-07,2.55490d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,27,14),I=1,4)/
     +2.42850d-07,1.18020d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,27,15),I=1,4)/
     +1.88530d-07,5.05090d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,27,16),I=1,4)/
     +6.45100d-08,1.06180d-07,7.39000d-07,0.00000d+00/
      DATA (C(I,27,17),I=1,4)/
     +6.30860d-07,6.56260d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,27,18),I=1,4)/
     +3.92350d-07,1.60120d-06,7.00270d-09,0.00000d+00/
      DATA (C(I,27,19),I=1,4)/
     +2.86240d-07,1.08000d-08,1.11090d-06,0.00000d+00/
      DATA (C(I,27,20),I=1,4)/
     +5.01140d-07,9.39880d-08,0.00000d+00,0.00000d+00/
      DATA (C(I,27,21),I=1,4)/
     +9.34090d-08,6.18060d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,27,22),I=1,4)/
     +1.02320d-07,9.09570d-07,0.00000d+00,0.00000d+00/
      DATA (C(I,27,23),I=1,4)/
     +2.45930d-07,4.89670d-07,8.53410d-08,0.00000d+00/
      DATA (C(I,27,24),I=1,4)/
     +1.94730d-08,4.03410d-08,3.77720d-07,0.00000d+00/
      DATA (C(I,27,25),I=1,4)/
     +5.86710d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,27,26),I=1,4)/
     +3.29180d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 1),I=1,4)/
     +0.12215d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 2),I=1,4)/
     +0.73715d-08,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 3),I=1,4)/
     +0.38564d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 4),I=1,4)/
     +0.57170d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 5),I=1,4)/
     +0.94843d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 6),I=1,4)/
     +0.14369d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 7),I=1,4)/
     +0.21084d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 8),I=1,4)/
     +0.28518d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28, 9),I=1,4)/
     +0.32283d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28,10),I=1,4)/
     +0.52689d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28,11),I=1,4)/
     +0.78184d-07,0.54779d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,28,12),I=1,4)/
     +5.41920d-07,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28,13),I=1,4)/
     +0.23396d-06,0.33819d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,28,14),I=1,4)/
     +0.11844d-06,0.35675d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,28,15),I=1,4)/
     +0.98852d-07,0.29036d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,28,16),I=1,4)/
     +0.97305d-07,0.16729d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,28,17),I=1,4)/
     +0.90000d-06,0.83006d-07,0.10862d-06,0.00000d+00/
      DATA (C(I,28,18),I=1,4)/
     +0.54873d-06,0.95218d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,28,19),I=1,4)/
     +0.45631d-06,0.18023d-05,0.79826d-08,0.00000d+00/
      DATA (C(I,28,20),I=1,4)/
     +0.11945d-07,0.12457d-05,0.33260d-06,0.00000d+00/
      DATA (C(I,28,21),I=1,4)/
     +7.96690d-08,3.87990d-07,0.00000d-00,0.00000d+00/
      DATA (C(I,28,22),I=1,4)/
     +0.63414d-06,0.10258d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,28,23),I=1,4)/
     +0.11189d-06,0.98118d-06,0.00000d+00,0.00000d+00/
      DATA (C(I,28,24),I=1,4)/
     +0.71156d-07,0.92295d-07,0.57777d-06,0.00000d+00/
      DATA (C(I,28,25),I=1,4)/
     +0.44618d-07,0.19518d-07,0.39700d-06,0.00000d+00/
      DATA (C(I,28,26),I=1,4)/
     +0.63280d-06,0.00000d+00,0.00000d+00,0.00000d+00/
      DATA (C(I,28,27),I=1,4)/
     +0.35363d-06,0.00000d+00,0.00000d+00,0.00000d+00/
C-
C- DATA FOR E
C-
      DATA (E(I, 2, 1),i=1,4)/  39.7000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 3, 1),i=1,4)/  64.7000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 3, 2),i=1,4)/  91.8000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 4, 1),i=1,4)/   4.0135d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 4, 2),i=1,4)/ 118.5100d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 4, 3),i=1,4)/ 159.1300d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 5, 1),i=1,4)/   9.9546d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 5, 2),i=1,4)/   5.9661d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 5, 3),i=1,4)/ 194.8600d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 5, 4),i=1,4)/ 245.9000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 6, 1),i=1,4)/  12.5690d0,  162.9000d0,
     &   6.2978d0,   0.0000d0/
      DATA (E(I, 6, 2),i=1,4)/   0.4856d0,   11.7770d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 6, 3),i=1,4)/ 185.9600d0,   17.9860d0,
     &   2.4146d0,   0.0000d0/
      DATA (E(I, 6, 4),i=1,4)/ 287.3400d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 6, 5),i=1,4)/ 356.4600d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 7, 1),i=1,4)/  18.9590d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 7, 2),i=1,4)/  10.2190d0,   16.8140d0,
     &   2.1888d0,   0.0000d0/
      DATA (E(I, 7, 3),i=1,4)/  15.9240d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 7, 4),i=1,4)/  11.4270d0,  580.0200d0,
     & 125.7700d0,   0.0000d0/
      DATA (E(I, 7, 5),i=1,4)/ 401.9900d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 7, 6),i=1,4)/ 482.0600d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 8, 1),i=1,4)/  15.6000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 8, 2),i=1,4)/  18.2300d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 8, 3),i=1,4)/  38.1750d0,    1.8813d0,
     &  17.8070d0,   0.0000d0/
      DATA (E(I, 8, 4),i=1,4)/  20.4930d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 8, 5),i=1,4)/  29.3520d0,  297.4400d0,
     &   5.4715d0,   0.0000d0/
      DATA (E(I, 8, 6),i=1,4)/ 529.6800d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 8, 7),i=1,4)/ 517.0200d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 9, 1),i=1,4)/  21.4120d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 9, 2),i=1,4)/  18.0760d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 9, 3),i=1,4)/  18.8740d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 9, 4),i=1,4)/  19.3210d0,   45.3050d0,
     &   1.9577d0,   0.0000d0/
      DATA (E(I, 9, 5),i=1,4)/  24.2900d0,    2.6747d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 9, 6),i=1,4)/ 105.4900d0,  772.8000d0,
     &  12.8660d0,   0.0000d0/
      DATA (E(I, 9, 7),i=1,4)/ 671.6400d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I, 9, 8),i=1,4)/ 744.7400d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,10, 1),i=1,4)/  27.2970d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,10, 2),i=1,4)/  26.0160d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,10, 3),i=1,4)/  19.3020d0,   44.6360d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,10, 4),i=1,4)/   1.8442d0,   26.0160d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,10, 5),i=1,4)/  28.6560d0,    0.0887d0,
     &   0.3876d0,   0.0000d0/
      DATA (E(I,10, 6),i=1,4)/  42.0680d0,   17.6450d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,10, 7),i=1,4)/ 713.6200d0,   13.6310d0,
     & 108.8700d0,   0.0000d0/
      DATA (E(I,10, 8),i=1,4)/ 827.0000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,10, 9),i=1,4)/ 980.6000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,11, 1),i=1,4)/  39.4010d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,11, 2),i=1,4)/  34.0420d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,11, 3),i=1,4)/  29.7090d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,11, 4),i=1,4)/  95.3390d0,   26.0020d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,11, 5),i=1,4)/ 109.3100d0,   38.0190d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,11, 6),i=1,4)/   1.7284d0,    0.3020d0,
     &  22.1000d0,  77.6140d0/
      DATA (E(I,11, 7),i=1,4)/  15.3380d0,   46.4310d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,11, 8),i=1,4)/ 348.5600d0,   28.1860d0,
     &  11.0770d0,   0.0000d0/
      DATA (E(I,11, 9),i=1,4)/ 999.9400d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,11,10),i=1,4)/1096.3000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,12, 1),i=1,4)/   4.3371d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,12, 2),i=1,4)/  37.9440d0,   52.7680d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,12, 3),i=1,4)/  42.9300d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,12, 4),i=1,4)/ 100.1300d0,   32.2270d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,12, 5),i=1,4)/  28.2640d0,  166.1600d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,12, 6),i=1,4)/ 136.7700d0,   43.1210d0,
     &  15.1400d0,   0.0000d0/
      DATA (E(I,12, 7),i=1,4)/  32.3500d0,  121.2800d0,
     &   2.0345d0,   0.0000d0/
      DATA (E(I,12, 8),i=1,4)/  35.7500d0,    4.9392d0,
     & 172.5900d0,   0.0000d0/
      DATA (E(I,12, 9),i=1,4)/  16.1600d0,   22.1300d0,
     & 317.8000d0,   0.0000d0/
      DATA (E(I,12,10),i=1,4)/1185.5000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,12,11),i=1,4)/1249.5000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,13, 1),i=1,4)/   7.4217d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,13, 2),i=1,4)/   5.7862d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,13, 3),i=1,4)/  60.7920d0,   75.2800d0,
     &  95.2000d0,   0.0000d0/
      DATA (E(I,13, 4),i=1,4)/  65.8340d0,  156.3100d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,13, 5),i=1,4)/  36.7000d0,  144.3300d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,13, 6),i=1,4)/ 154.7700d0,   32.8300d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,13, 7),i=1,4)/ 168.9800d0,   36.5360d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,13, 8),i=1,4)/   0.5202d0,    3.6124d0,
     &  28.7110d0, 122.6500d0/
      DATA (E(I,13, 9),i=1,4)/  57.4440d0,  379.3000d0,
     &  16.5820d0,   0.0000d0/
      DATA (E(I,13,10),i=1,4)/  12.2000d0,  419.1800d0,
     &  31.1420d0,   0.0000d0/
      DATA (E(I,13,11),i=1,4)/1386.1000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,13,12),i=1,4)/1489.6000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14, 1),i=1,4)/   2.0527d0,    9.6825d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14, 2),i=1,4)/   2.7584d0,   10.1280d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14, 3),i=1,4)/   8.2136d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14, 4),i=1,4)/  81.6000d0,  102.4100d0,
     & 122.9440d0,   0.0000d0/
      DATA (E(I,14, 5),i=1,4)/  98.2340d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14, 6),i=1,4)/ 130.5500d0,   41.7920d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14, 7),i=1,4)/  35.7600d0,  200.3400d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14, 8),i=1,4)/  30.6680d0,  159.8600d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14, 9),i=1,4)/ 143.3100d0,    4.2234d0,
     &  30.1570d0,   0.7452d0/
      DATA (E(I,14,10),i=1,4)/  47.6890d0,   14.0580d0,
     & 242.5900d0,   0.0000d0/
      DATA (E(I,14,11),i=1,4)/ 178.9600d0,  586.5700d0,
     &  17.6460d0,   0.0000d0/
      DATA (E(I,14,12),i=1,4)/1601.8000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,14,13),i=1,4)/1773.5000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 1),i=1,4)/  14.1590d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 2),i=1,4)/  11.2000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 3),i=1,4)/  11.6790d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 4),i=1,4)/  10.1410d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 5),i=1,4)/  126.470d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 6),i=1,4)/  234.240d0,   81.3700d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 7),i=1,4)/  45.7990d0,  183.7600d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 8),i=1,4)/ 245.2200d0,   39.9660d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15, 9),i=1,4)/  40.8360d0,  240.1500d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15,10),i=1,4)/ 254.0500d0,   39.1040d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15,11),i=1,4)/  92.6230d0,   17.9620d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15,12),i=1,4)/  40.3430d0, 4134.9000d0,
     &  14.9200d0, 483.9400d0/
      DATA (E(I,15,13),i=1,4)/1832.4000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,15,14),i=1,4)/1976.5000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16, 1),i=1,4)/  14.9500d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16, 2),i=1,4)/  17.5610d0,    7.0656d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16, 3),i=1,4)/  16.6180d0,    2.4000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16, 4),i=1,4)/  13.4610d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16, 5),i=1,4)/  12.1050d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16, 6),i=1,4)/ 119.6800d0,  163.2000d0,
     & 197.2000d0,   0.0000d0/
      DATA (E(I,16, 7),i=1,4)/  59.5470d0,  244.7200d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16, 8),i=1,4)/ 273.5000d0,   50.3230d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16, 9),i=1,4)/  44.5800d0,  295.3000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16,10),i=1,4)/  13.2250d0,   61.6680d0,
     & 240.3700d0,   0.0000d0/
      DATA (E(I,16,11),i=1,4)/  49.0980d0,  273.1700d0,
     &  11.0860d0,   0.0000d0/
      DATA (E(I,16,12),i=1,4)/  55.3450d0,   17.2850d0,
     & 305.0500d0,   0.0000d0/
      DATA (E(I,16,13),i=1,4)/  13.6070d0,  529.2500d0,
     &  39.3330d0,   0.0000d0/
      DATA (E(I,16,14),i=1,4)/2078.0000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,16,15),i=1,4)/2262.0000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 1),i=1,4)/  20.8690d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 2),i=1,4)/  15.1480d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 3),i=1,4)/  24.8140d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 4),i=1,4)/  19.8910d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 5),i=1,4)/  16.9480d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 6),i=1,4)/  14.0870d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 7),i=1,4)/ 197.0400d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 8),i=1,4)/  60.2240d0,  296.7600d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17, 9),i=1,4)/  55.0970d0,  337.9900d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17,10),i=1,4)/  48.6510d0,  341.4600d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17,11),i=1,4)/  61.8350d0,  282.4300d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17,12),i=1,4)/  58.5520d0,  331.7100d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17,13),i=1,4)/  11.3510d0,   74.5200d0,
     & 398.2000d0,   0.0000d0/
      DATA (E(I,17,14),i=1,4)/  41.2400d0,  561.4100d0,
     &  13.4860d0,   0.0000d0/
      DATA (E(I,17,15),i=1,4)/2338.6000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,17,16),i=1,4)/2493.9000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 1),i=1,4)/  27.6100d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 2),i=1,4)/  25.2240d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 3),i=1,4)/  26.9340d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 4),i=1,4)/  27.4190d0,   18.5970d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 5),i=1,4)/  22.0180d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 6),i=1,4)/  18.9470d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 7),i=1,4)/ 130.8700d0,   16.4650d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 8),i=1,4)/ 249.9000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18, 9),i=1,4)/ 261.6100d0,   85.9560d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18,10),i=1,4)/ 180.0000d0,   37.9150d0,
     & 304.6900d0,   0.0000d0/
      DATA (E(I,18,11),i=1,4)/ 288.6000d0,   39.6830d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18,12),i=1,4)/ 372.8100d0,   52.0200d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18,13),i=1,4)/  51.3650d0,  393.8000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18,14),i=1,4)/  59.1320d0,   11.4330d0,
     & 374.8900d0,   0.0000d0/
      DATA (E(I,18,15),i=1,4)/  98.6120d0,  509.9100d0,
     &  16.8680d0,   0.0000d0/
      DATA (E(I,18,16),i=1,4)/2614.2000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,18,17),i=1,4)/2784.4000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 1),i=1,4)/   44.412d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 2),i=1,4)/   32.738d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 3),i=1,4)/  30.4160d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 4),i=1,4)/  26.7340d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 5),i=1,4)/   24.814d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 6),i=1,4)/  24.7310d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 7),i=1,4)/  20.2330d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 8),i=1,4)/ 124.6380d0,   18.3140d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19, 9),i=1,4)/ 349.9900d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19,10),i=1,4)/ 194.2700d0,   58.5600d0,
     & 324.2500d0,   0.0000d0/
      DATA (E(I,19,11),i=1,4)/  39.4140d0,  201.1600d0,
     & 343.0100d0,   0.0000d0/
      DATA (E(I,19,12),i=1,4)/  55.3380d0,  410.9600d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19,13),i=1,4)/ 321.7000d0,   56.0360d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19,14),i=1,4)/ 251.1800d0,   47.6520d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19,15),i=1,4)/ 503.5500d0,   21.3010d0,
     &  80.4590d0,   0.0000d0/
      DATA (E(I,19,16),i=1,4)/  15.1820d0,   50.8330d0,
     & 627.0100d0,   0.0000d0/
      DATA (E(I,19,17),i=1,4)/2904.8000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,19,18),i=1,4)/3055.5000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 1),i=1,4)/   3.0892d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 2),i=1,4)/  35.4890d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 3),i=1,4)/  35.2990d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 4),i=1,4)/  33.7050d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 5),i=1,4)/  34.6230d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 6),i=1,4)/  57.6610d0,   26.8070d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 7),i=1,4)/  28.1640d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 8),i=1,4)/  22.6780d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20, 9),i=1,4)/ 162.1400d0,   20.0820d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20,10),i=1,4)/ 403.6200d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20,11),i=1,4)/ 273.8700d0,  411.3600d0,
     &  71.4090d0,   0.0000d0/
      DATA (E(I,20,12),i=1,4)/ 207.8700d0,   40.6400d0,
     & 389.2500d0,   0.0000d0/
      DATA (E(I,20,13),i=1,4)/  59.5470d0,  448.9400d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20,14),i=1,4)/  70.3810d0,   21.6350d0,
     & 440.4900d0,   0.0000d0/
      DATA (E(I,20,15),i=1,4)/  58.4400d0,  500.9200d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20,16),i=1,4)/  66.3230d0,   15.0590d0,
     & 472.0600d0,   0.0000d0/
      DATA (E(I,20,17),i=1,4)/  15.7720d0,   56.4590d0,
     & 643.4200d0,   0.0000d0/
      DATA (E(I,20,18),i=1,4)/3210.4000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,20,19),i=1,4)/3221.7000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 1),i=1,4)/   5.0674d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 2),i=1,4)/   9.9180d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 3),i=1,4)/   41.939d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 4),i=1,4)/   41.033d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 5),i=1,4)/  30.0780d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 6),i=1,4)/  37.7610d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 7),i=1,4)/  31.8130d0,   49.7970d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 8),i=1,4)/  27.6990d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21, 9),i=1,4)/ 108.1800d0,  425.0000d0,
     &  27.0440d0,   0.0000d0/
      DATA (E(I,21,10),i=1,4)/  21.2730d0,   72.4210d0,
     & 296.3000d0,   0.0000d0/
      DATA (E(I,21,11),i=1,4)/ 461.3500d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21,12),i=1,4)/  60.6640d0,  232.9000d0,
     & 414.6500d0,   0.0000d0/
      DATA (E(I,21,13),i=1,4)/ 227.9800d0,   42.0080d0,
     & 428.6100d0,   0.0000d0/
      DATA (E(I,21,14),i=1,4)/  58.3310d0,  481.8700d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21,15),i=1,4)/  60.1100d0,  509.2700d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21,16),i=1,4)/  61.8510d0,  531.9100d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21,17),i=1,4)/ 529.4900d0,   21.4840d0,
     &  86.1580d0,   0.0000d0/
      DATA (E(I,21,18),i=1,4)/  15.7550d0,   58.5530d0,
     & 675.5900d0,   0.0000d0/
      DATA (E(I,21,19),i=1,4)/3531.1000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,21,20),i=1,4)/4288.4000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 1),i=1,4)/   9.6676d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 2),i=1,4)/   16.996d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 3),i=1,4)/   11.1900d0,   0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 4),i=1,4)/   46.981d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 5),i=1,4)/   61.155d0,   25.8030d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 6),i=1,4)/  107.070d0,   25.8940d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 7),i=1,4)/   43.084d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 8),i=1,4)/ 131.640d0,    42.2830d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22, 9),i=1,4)/ 142.170d0,    31.7020d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22,10),i=1,4)/ 114.1600d0,   26.4370d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22,11),i=1,4)/ 131.7400d0,  450.0000d0,
     &  22.8350d0,   0.0000d0/
      DATA (E(I,22,12),i=1,4)/ 366.0000d0,  529.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22,13),i=1,4)/ 321.2600d0,  518.0400d0,
     &  71.1680d0,   0.0000d0/
      DATA (E(I,22,14),i=1,4)/ 253.2800d0,   43.6180d0,
     & 487.5500d0,   0.0000d0/
      DATA (E(I,22,15),i=1,4)/ 542.6600d0,   60.9450d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22,16),i=1,4)/ 577.2700d0,   61.8510d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22,17),i=1,4)/  61.1000d0,  570.2600d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22,18),i=1,4)/  22.4390d0,   93.0650d0,
     & 577.7600d0,   0.0000d0/
      DATA (E(I,22,19),i=1,4)/  17.3300d0,   74.2860d0,
     & 731.5700d0,   0.0000d0/
      DATA (E(I,22,20),i=1,4)/3866.7000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,22,21),i=1,4)/4036.0000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 1),i=1,4)/   11.700d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 2),i=1,4)/   14.299d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 3),i=1,4)/   23.127d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 4),i=1,4)/   50.944d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 5),i=1,4)/   46.565d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 6),i=1,4)/   53.544d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 7),i=1,4)/  51.3420d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 8),i=1,4)/  45.8630d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23, 9),i=1,4)/  37.0300d0,   72.2300d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23,10),i=1,4)/  32.9880d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23,11),i=1,4)/ 140.5200d0,  553.0000d0,
     &  30.7400d0,   0.0000d0/
      DATA (E(I,23,12),i=1,4)/  24.1700d0,  151.7300d0,
     & 525.0000d0,   0.0000d0/
      DATA (E(I,23,13),i=1,4)/ 515.7900d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23,14),i=1,4)/ 296.2100d0,   64.6080d0,
     & 525.9700d0,   0.0000d0/
      DATA (E(I,23,15),i=1,4)/  46.0510d0,  575.3300d0,
     & 322.9500d0,   0.0000d0/
      DATA (E(I,23,16),i=1,4)/  64.3250d0,  585.5200d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23,17),i=1,4)/ 619.1400d0,   65.1730d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23,18),i=1,4)/ 643.9700d0,   60.3720d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23,19),i=1,4)/ 752.7900d0,   35.6100d0,
     & 204.1600d0,   0.0000d0/
      DATA (E(I,23,20),i=1,4)/  75.0180d0,   17.0960d0,
     & 755.1900d0,   0.0000d0/
      DATA (E(I,23,21),i=1,4)/4217.3000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,23,22),i=1,4)/4288.4000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 1),i=1,4)/   17.422d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 2),i=1,4)/   11.724d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 3),i=1,4)/   24.808d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 4),i=1,4)/   29.438d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 5),i=1,4)/   33.320d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 6),i=1,4)/   59.549d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 7),i=1,4)/   97.415d0,   17.8540d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 8),i=1,4)/   18.320d0,  126.3800d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24, 9),i=1,4)/   51.235d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,10),i=1,4)/  194.760d0,   66.1960d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,11),i=1,4)/  189.630d0,   33.1410d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,12),i=1,4)/  204.220d0,   33.1750d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,13),i=1,4)/ 171.2200d0,  590.0000d0,
     &  26.5930d0,   0.0000d0/
      DATA (E(I,24,14),i=1,4)/ 424.0000d0,  675.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,15),i=1,4)/ 357.2200d0,  616.1200d0,
     &  67.9740d0,   0.0000d0/
      DATA (E(I,24,16),i=1,4)/ 319.6200d0,   46.8140d0,
     & 603.0500d0,   0.0000d0/
      DATA (E(I,24,17),i=1,4)/  69.2460d0,  651.7300d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,18),i=1,4)/ 684.2100d0,   72.4460d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,19),i=1,4)/  67.7110d0,  695.9900d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,20),i=1,4)/  28.5630d0,  103.6700d0,
     & 686.3000d0,   0.0000d0/
      DATA (E(I,24,21),i=1,4)/ 760.2500d0,   70.0730d0,
     &  15.8090d0,   0.0000d0/
      DATA (E(I,24,22),i=1,4)/4583.0000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,24,23),i=1,4)/4701.2000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 1),i=1,4)/  11.4570d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 2),i=1,4)/  17.2660d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 3),i=1,4)/  20.7260d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 4),i=1,4)/  26.1600d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 5),i=1,4)/  38.5410d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 6),i=1,4)/  50.9550d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 7),i=1,4)/  63.9190d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 8),i=1,4)/  17.5010d0,  113.6700d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25, 9),i=1,4)/  18.1040d0,  136.1600d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,10),i=1,4)/  54.3740d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,11),i=1,4)/ 213.3000d0,   74.9070d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,12),i=1,4)/ 198.6000d0,   34.1840d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,13),i=1,4)/ 223.9600d0,   36.5450d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,14),i=1,4)/ 185.9800d0,  650.0000d0,
     &  28.7430d0,   0.0000d0/
      DATA (E(I,25,15),i=1,4)/ 727.0000d0,  456.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,16),i=1,4)/ 672.7900d0,  379.9000d0,
     &  66.5090d0,   0.0000d0/
      DATA (E(I,25,17),i=1,4)/ 348.0300d0,   48.3680d0,
     & 672.2700d0,   0.0000d0/
      DATA (E(I,25,18),i=1,4)/  70.8360d0,  688.2400d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,19),i=1,4)/ 731.7800d0,   77.1560d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,20),i=1,4)/  69.1770d0,  746.8000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,21),i=1,4)/  35.3050d0,  186.9400d0,
     & 825.6100d0,   0.0000d0/
      DATA (E(I,25,22),i=1,4)/  16.3000d0,   74.7330d0,
     & 801.7600d0,   0.0000d0/
      DATA (E(I,25,23),i=1,4)/4963.6000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,25,24),i=1,4)/4962.4000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 1),i=1,4)/   5.1200d0,   12.9000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 2),i=1,4)/  16.7000d0,   31.4000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 3),i=1,4)/  28.6000d0,   52.1000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 4),i=1,4)/  37.3000d0,   67.4000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 5),i=1,4)/  54.2000d0,  100.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 6),i=1,4)/  45.5000d0,  360.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 7),i=1,4)/  66.7000d0,  123.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 8),i=1,4)/  66.1000d0,  129.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26, 9),i=1,4)/  21.6000d0,  136.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26,10),i=1,4)/  22.2000d0,  144.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26,11),i=1,4)/  59.6000d0,  362.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26,12),i=1,4)/  75.0000d0,  205.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26,13),i=1,4)/  36.3000d0,  193.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26,14),i=1,4)/  39.4000d0,  198.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26,15),i=1,4)/  24.6000d0,  248.0000d0,
     & 560.0000d0,   0.0000d0/
      DATA (E(I,26,16),i=1,4)/ 479.9800d0,  802.6300d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26,17),i=1,4)/  22.5000d0,  117.0000d0,
     & 341.0000d0, 683.0000d0/
      DATA (E(I,26,18),i=1,4)/ 346.2300d0,   48.2460d0,
     & 662.9200d0,   0.0000d0/
      DATA (E(I,26,19),i=1,4)/  23.7000d0,   85.1000d0,
     & 329.0000d0, 787.0000d0/
      DATA (E(I,26,20),i=1,4)/  13.2000d0,   66.6000d0,
     & 297.0000d0, 714.0000d0/
      DATA (E(I,26,21),i=1,4)/  39.1000d0,   80.3000d0,
     & 392.0000d0, 919.0000d0/
      DATA (E(I,26,22),i=1,4)/  29.0330d0,  113.3300d0,
     & 765.7700d0,   0.0000d0/
      DATA (E(I,26,23),i=1,4)/  68.9510d0,  850.5300d0,
     &  15.1540d0,   0.0000d0/
      DATA (E(I,26,24),i=1,4)/5359.3000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,26,25),i=1,4)/5170.2000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 1),i=1,4)/   4.9816d0,   22.9150d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 2),i=1,4)/  12.4530d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 3),i=1,4)/  25.8650d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 4),i=1,4)/  38.4060d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 5),i=1,4)/  48.5770d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 6),i=1,4)/  62.9300d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 7),i=1,4)/  72.0170d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 8),i=1,4)/  86.3740d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27, 9),i=1,4)/  72.6880d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,10),i=1,4)/ 168.9100d0,   34.8300d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,11),i=1,4)/  35.0110d0,  151.6800d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,12),i=1,4)/  57.5070d0,  168.1700d0,
     &  26.2510d0,   0.0000d0/
      DATA (E(I,27,13),i=1,4)/ 168.9700d0,   64.7050d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,14),i=1,4)/  40.0170d0,  175.6500d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,15),i=1,4)/  41.3360d0,  141.6400d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,16),i=1,4)/ 225.1400d0,   31.8320d0,
     & 800.0000d0,   0.0000d0/
      DATA (E(I,27,17),i=1,4)/ 529.4200d0, 1008.7000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,18),i=1,4)/ 402.9900d0,  764.2200d0,
     &  60.9270d0,   0.0000d0/
      DATA (E(I,27,19),i=1,4)/ 401.2600d0,   51.0470d0,
     & 790.0700d0,   0.0000d0/
      DATA (E(I,27,20),i=1,4)/ 952.9500d0,   98.4920d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,21),i=1,4)/  81.5850d0,  854.7000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,22),i=1,4)/  72.9700d0,  844.9200d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,23),i=1,4)/ 392.6000d0, 1472.7000d0,
     &   45.011d0,   0.0000d0/
      DATA (E(I,27,24),i=1,4)/  15.5150d0,   75.1520d0,
     &   852.54d0,   0.0000d0/
      DATA (E(I,27,25),i=1,4)/5769.9000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,27,26),i=1,4)/5630.5000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 1),i=1,4)/  13.7420d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 2),i=1,4)/  22.4430d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 3),i=1,4)/  35.2790d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 4),i=1,4)/  42.0520d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 5),i=1,4)/  51.1840d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 6),i=1,4)/  51.5900d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 7),i=1,4)/  56.1530d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 8),i=1,4)/  64.7730d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28, 9),i=1,4)/ 107.3800d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,10),i=1,4)/  78.3870d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,11),i=1,4)/ 152.8600d0,   65.0520d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,12),i=1,4)/  65.5050d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,13),i=1,4)/ 149.4700d0,   56.3900d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,14),i=1,4)/ 127.6200d0,   51.4430d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,15),i=1,4)/ 156.3100d0,   45.1530d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,16),i=1,4)/  54.8820d0,   40.2540d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,17),i=1,4)/ 870.0000d0,  244.4000d0,
     &  32.5870d0,   0.0000d0/
      DATA (E(I,28,18),i=1,4)/ 542.0000d0,  952.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,19),i=1,4)/ 431.6400d0,  831.1400d0,
     &  58.8360d0,   0.0000d0/
      DATA (E(I,28,20),i=1,4)/  52.5280d0,  865.7100d0,
     & 429.7600d0,   0.0000d0/
      DATA (E(I,28,21),i=1,4)/  91.3400d0,  905.6400d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,22),i=1,4)/ 960.1400d0,   92.1730d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,23),i=1,4)/  75.9420d0,  911.3000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,24),i=1,4)/  37.2260d0,  168.8200d0,
     & 936.5300d0,   0.0000d0/
      DATA (E(I,28,25),i=1,4)/  75.4450d0,   15.1140d0,
     & 880.6500d0,   0.0000d0/
      DATA (E(I,28,26),i=1,4)/6195.5000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/
      DATA (E(I,28,27),i=1,4)/6011.9000d0,    0.0000d0,
     &   0.0000d0,   0.0000d0/

C-
C-   DATA FOR A
C-

      DATA A( 2, 1)/ 0.5000d0   /
      DATA A( 3, 1)/ 1.0000d0   /
      DATA A( 3, 2)/ 0.5000d0   /
      DATA A( 4, 1)/ 1.0000d0   /
      DATA A( 4, 2)/ 1.0000d0   /
      DATA A( 4, 3)/ 1.0000d0   /
      DATA A( 5, 1)/ 1.0000d0   /
      DATA A( 5, 2)/ 1.0000d0   /
      DATA A( 5, 3)/ 1.0000d0   /
      DATA A( 5, 4)/ 1.0000d0   /
      DATA A( 6, 1)/ 1.0000d0   /
      DATA A( 6, 2)/ 1.0000d0   /
      DATA A( 6, 3)/ 1.0000d0   /
      DATA A( 6, 4)/ 1.0000d0   /
      DATA A( 6, 5)/ 1.0000d0   /
      DATA A( 7, 1)/ 1.0000d0   /
      DATA A( 7, 2)/ 1.0000d0   /
      DATA A( 7, 3)/ 1.0000d0   /
      DATA A( 7, 4)/ 1.0000d0   /
      DATA A( 7, 5)/ 1.0000d0   /
      DATA A( 7, 6)/ 1.0000d0   /
      DATA A( 8, 1)/ 1.0000d0   /
      DATA A( 8, 2)/ 1.0000d0   /
      DATA A( 8, 3)/ 1.0000d0   /
      DATA A( 8, 4)/ 1.0000d0   /
      DATA A( 8, 5)/ 1.0000d0   /
      DATA A( 8, 6)/ 1.0000d0   /
      DATA A( 8, 7)/ 1.0000d0   /
      DATA A( 9, 1)/ 1.0000d0   /
      DATA A( 9, 2)/ 1.0000d0   /
      DATA A( 9, 3)/ 1.6600d0   /
      DATA A( 9, 4)/ 1.0000d0   /
      DATA A( 9, 5)/ 1.0000d0   /
      DATA A( 9, 6)/ 1.0000d0   /
      DATA A( 9, 7)/ 1.0000d0   /
      DATA A( 9, 8)/ 1.0000d0   /
      DATA A(10, 1)/ 1.0000d0   /
      DATA A(10, 2)/ 1.0000d0   /
      DATA A(10, 3)/ 1.0000d0   /
      DATA A(10, 4)/ 1.6600d0   /
      DATA A(10, 5)/ 1.0000d0   /
      DATA A(10, 6)/ 1.0000d0   /
      DATA A(10, 7)/ 1.0000d0   /
      DATA A(10, 8)/ 1.0000d0   /
      DATA A(10, 9)/ 1.0000d0   /
      DATA A(11, 1)/ 1.0000d0   /
      DATA A(11, 2)/ 1.0000d0   /
      DATA A(11, 3)/ 1.0000d0   /
      DATA A(11, 4)/ 1.0000d0   /
      DATA A(11, 5)/ 1.6600d0   /
      DATA A(11, 6)/ 1.0000d0   /
      DATA A(11, 7)/ 1.0000d0   /
      DATA A(11, 8)/ 1.0000d0   /
      DATA A(11, 9)/ 1.0000d0   /
      DATA A(11,10)/ 1.0000d0   /
      DATA A(12, 1)/ 1.0000d0   /
      DATA A(12, 2)/ 1.0000d0   /
      DATA A(12, 3)/ 1.0000d0   /
      DATA A(12, 4)/ 1.0000d0   /
      DATA A(12, 5)/ 1.0000d0   /
      DATA A(12, 6)/ 1.6600d0   /
      DATA A(12, 7)/ 1.0000d0   /
      DATA A(12, 8)/ 1.0000d0   /
      DATA A(12, 9)/ 1.0000d0   /
      DATA A(12,10)/ 1.0000d0   /
      DATA A(12,11)/ 1.0000d0   /
      DATA A(13, 1)/ 1.0000d0   /
      DATA A(13, 2)/ 1.0000d0   /
      DATA A(13, 3)/ 1.0000d0   /
      DATA A(13, 4)/ 1.0000d0   /
      DATA A(13, 5)/ 1.0000d0   /
      DATA A(13, 6)/ 1.0000d0   /
      DATA A(13, 7)/ 1.6600d0   /
      DATA A(13, 8)/ 1.0000d0   /
      DATA A(13, 9)/ 1.0000d0   /
      DATA A(13,10)/ 1.0000d0   /
      DATA A(13,11)/ 1.0000d0   /
      DATA A(13,12)/ 1.0000d0   /
      DATA A(14, 1)/ 1.0000d0   /
      DATA A(14, 2)/ 1.0000d0   /
      DATA A(14, 3)/ 1.0000d0   /
      DATA A(14, 4)/ 1.0000d0   /
      DATA A(14, 5)/ 1.0000d0   /
      DATA A(14, 6)/ 1.0000d0   /
      DATA A(14, 7)/ 1.0000d0   /
      DATA A(14, 8)/ 1.6600d0   /
      DATA A(14, 9)/ 1.0000d0   /
      DATA A(14,10)/ 1.0000d0   /
      DATA A(14,11)/ 1.0000d0   /
      DATA A(14,12)/ 1.0000d0   /
      DATA A(14,13)/ 1.0000d0   /
      DATA A(15, 1)/ 1.0000d0   /
      DATA A(15, 2)/ 1.0000d0   /
      DATA A(15, 3)/ 1.0000d0   /
      DATA A(15, 4)/ 1.0000d0   /
      DATA A(15, 5)/ 4.0000d0   /
      DATA A(15, 6)/ 1.0000d0   /
      DATA A(15, 7)/ 1.0000d0   /
      DATA A(15, 8)/ 1.0000d0   /
      DATA A(15, 9)/ 1.6600d0   /
      DATA A(15,10)/ 1.4000d0   /
      DATA A(15,11)/ 1.0000d0   /
      DATA A(15,12)/ 1.0000d0   /
      DATA A(15,13)/ 1.0000d0   /
      DATA A(15,14)/ 1.0000d0   /
      DATA A(16, 1)/ 1.0000d0   /
      DATA A(16, 2)/ 1.0000d0   /
      DATA A(16, 3)/ 1.0000d0   /
      DATA A(16, 4)/ 1.0000d0   /
      DATA A(16, 5)/ 1.0000d0   /
      DATA A(16, 6)/ 1.0000d0   /
      DATA A(16, 7)/ 1.0000d0   /
      DATA A(16, 8)/ 1.0000d0   /
      DATA A(16, 9)/ 1.0000d0   /
      DATA A(16,10)/ 1.6600d0   /
      DATA A(16,11)/ 1.0000d0   /
      DATA A(16,12)/ 1.0000d0   /
      DATA A(16,13)/ 1.0000d0   /
      DATA A(16,14)/ 1.0000d0   /
      DATA A(16,15)/ 1.0000d0   /
      DATA A(17, 1)/ 0.6666d0   /
      DATA A(17, 2)/ 0.3704d0   /
      DATA A(17, 3)/ 1.0000d0   /
      DATA A(17, 4)/ 1.0000d0   /
      DATA A(17, 5)/ 1.0000d0   /
      DATA A(17, 6)/ 1.0000d0   /
      DATA A(17, 7)/ 1.0000d0   /
      DATA A(17, 8)/ 1.0000d0   /
      DATA A(17, 9)/ 1.0000d0   /
      DATA A(17,10)/ 1.0000d0   /
      DATA A(17,11)/ 1.6600d0   /
      DATA A(17,12)/ 1.4000d0   /
      DATA A(17,13)/ 1.0000d0   /
      DATA A(17,14)/ 1.0000d0   /
      DATA A(17,15)/ 1.0000d0   /
      DATA A(17,16)/ 1.0000d0   /
      DATA A(18, 1)/ 0.76920d0  /
      DATA A(18, 2)/ 0.6666d0   /
      DATA A(18, 3)/ 0.37037d0  /
      DATA A(18, 4)/ 1.0000d0   /
      DATA A(18, 5)/ 1.0000d0   /
      DATA A(18, 6)/ 1.0000d0   /
      DATA A(18, 7)/ 1.0000d0   /
      DATA A(18, 8)/ 1.0000d0   /
      DATA A(18, 9)/ 1.0000d0   /
      DATA A(18,10)/ 1.0000d0   /
      DATA A(18,11)/ 1.0000d0   /
      DATA A(18,12)/ 1.6600d0   /
      DATA A(18,13)/ 1.0000d0   /
      DATA A(18,14)/ 1.0000d0   /
      DATA A(18,15)/ 1.0000d0   /
      DATA A(18,16)/ 1.0000d0   /
      DATA A(18,17)/ 1.0000d0   /
      DATA A(19, 1)/ 0.3704d0   /
      DATA A(19, 2)/ 0.7692d0   /
      DATA A(19, 3)/ 0.6666d0   /
      DATA A(19, 4)/ 0.3704d0   /
      DATA A(19, 5)/ 1.0000d0   /
      DATA A(19, 6)/ 1.0000d0   /
      DATA A(19, 7)/ 1.0000d0   /
      DATA A(19, 8)/ 1.0000d0   /
      DATA A(19, 9)/ 1.0000d0   /
      DATA A(19,10)/ 1.0000d0   /
      DATA A(19,11)/ 1.0000d0   /
      DATA A(19,12)/ 1.0000d0   /
      DATA A(19,13)/ 1.6600d0   /
      DATA A(19,14)/ 1.4000d0   /
      DATA A(19,15)/ 1.0000d0   /
      DATA A(19,16)/ 1.0000d0   /
      DATA A(19,17)/ 1.0000d0   /
      DATA A(19,18)/ 1.0000d0   /
      DATA A(20, 1)/0.55556d0   /
      DATA A(20, 2)/0.37000d0   /
      DATA A(20, 3)/0.76920d0   /
      DATA A(20, 4)/ 0.6666d0   /
      DATA A(20, 5)/ 0.37037d0  /
      DATA A(20, 6)/ 1.0000d0   /
      DATA A(20, 7)/ 1.0000d0   /
      DATA A(20, 8)/ 1.0000d0   /
      DATA A(20, 9)/ 1.0000d0   /
      DATA A(20,10)/ 1.0000d0   /
      DATA A(20,11)/ 1.0000d0   /
      DATA A(20,12)/ 1.0000d0   /
      DATA A(20,13)/ 1.0000d0   /
      DATA A(20,14)/ 1.6600d0   /
      DATA A(20,15)/ 1.0000d0   /
      DATA A(20,16)/ 1.0000d0   /
      DATA A(20,17)/ 1.0000d0   /
      DATA A(20,18)/ 1.0000d0   /
      DATA A(20,19)/ 1.0000d0   /
      DATA A(21, 1)/ 0.43478d0  /
      DATA A(21, 2)/ 0.5555d0   /
      DATA A(21, 3)/ 0.3704d0   /
      DATA A(21, 4)/ 0.71429d0  /
      DATA A(21, 5)/ 0.6666d0   /
      DATA A(21, 6)/ 0.3704d0   /
      DATA A(21, 7)/ 0.8000d0   /
      DATA A(21, 8)/ 1.0000d0   /
      DATA A(21, 9)/ 1.0000d0   /
      DATA A(21,10)/ 1.0000d0   /
      DATA A(21,11)/ 1.0000d0   /
      DATA A(21,12)/ 1.0000d0   /
      DATA A(21,13)/ 1.0000d0   /
      DATA A(21,14)/ 1.0000d0   /
      DATA A(21,15)/ 1.6600d0   /
      DATA A(21,16)/ 1.0000d0   /
      DATA A(21,17)/ 1.0000d0   /
      DATA A(21,18)/ 1.0000d0   /
      DATA A(21,19)/ 1.0000d0   /
      DATA A(21,20)/ 1.0000d0   /
      DATA A(22, 1)/ 0.625 d0   /
      DATA A(22, 2)/ 0.43478d0  /
      DATA A(22, 3)/ 0.5555d0   /
      DATA A(22, 4)/ 0.3704d0   /
      DATA A(22, 5)/ 0.7692d0   /
      DATA A(22, 6)/ 0.6666d0   /
      DATA A(22, 7)/ 0.3704d0   /
      DATA A(22, 8)/ 1.0000d0   /
      DATA A(22, 9)/ 1.0000d0   /
      DATA A(22,10)/ 1.0000d0   /
      DATA A(22,11)/ 1.0000d0   /
      DATA A(22,12)/ 1.0000d0   /
      DATA A(22,13)/ 1.0000d0   /
      DATA A(22,14)/ 1.0000d0   /
      DATA A(22,15)/ 1.0000d0   /
      DATA A(22,16)/ 1.6600d0   /
      DATA A(22,17)/ 1.0000d0   /
      DATA A(22,18)/ 1.0000d0   /
      DATA A(22,19)/ 1.0000d0   /
      DATA A(22,20)/ 1.0000d0   /
      DATA A(22,21)/ 1.0000d0   /
      DATA A(23, 1)/ 0.5555d0   /
      DATA A(23, 2)/ 0.625 d0   /
      DATA A(23, 3)/ 0.43478d0  /
      DATA A(23, 4)/ 0.5555d0   /
      DATA A(23, 5)/ 0.3704d0   /
      DATA A(23, 6)/ 0.71428d0  /
      DATA A(23, 7)/ 0.6666d0   /
      DATA A(23, 8)/ 0.3704d0   /
      DATA A(23, 9)/ 0.8000d0   /
      DATA A(23,10)/ 1.0000d0   /
      DATA A(23,11)/ 1.0000d0   /
      DATA A(23,12)/ 1.0000d0   /
      DATA A(23,13)/ 1.0000d0   /
      DATA A(23,14)/ 1.0000d0   /
      DATA A(23,15)/ 1.0000d0   /
      DATA A(23,16)/ 1.0000d0   /
      DATA A(23,17)/ 1.6600d0   /
      DATA A(23,18)/ 1.0000d0   /
      DATA A(23,19)/ 1.0000d0   /
      DATA A(23,20)/ 1.0000d0   /
      DATA A(23,21)/ 1.0000d0   /
      DATA A(23,22)/ 1.0000d0   /
      DATA A(24, 1)/ 0.41666d0  /
      DATA A(24, 2)/ 0.55555d0  /
      DATA A(24, 3)/ 0.625 d0   /
      DATA A(24, 4)/ 0.43478d0  /
      DATA A(24, 5)/ 0.5555d0   /
      DATA A(24, 6)/ 0.3704d0   /
      DATA A(24, 7)/ 0.7692d0   /
      DATA A(24, 8)/ 0.6666d0   /
      DATA A(24, 9)/ 0.3704d0   /
      DATA A(24,10)/ 1.0000d0   /
      DATA A(24,11)/ 1.0000d0   /
      DATA A(24,12)/ 1.0000d0   /
      DATA A(24,13)/ 1.0000d0   /
      DATA A(24,14)/ 1.0000d0   /
      DATA A(24,15)/ 1.0000d0   /
      DATA A(24,16)/ 1.0000d0   /
      DATA A(24,17)/ 1.0000d0   /
      DATA A(24,18)/ 1.6600d0   /
      DATA A(24,19)/ 1.0000d0   /
      DATA A(24,20)/ 1.0000d0   /
      DATA A(24,21)/ 1.0000d0   /
      DATA A(24,22)/ 1.0000d0   /
      DATA A(24,23)/ 1.0000d0   /
      DATA A(25, 1)/ 0.2500d0   /
      DATA A(25, 2)/ 0.4166d0   /
      DATA A(25, 3)/ 0.5555d0   /
      DATA A(25, 4)/ 0.6250d0   /
      DATA A(25, 5)/ 0.4348d0   /
      DATA A(25, 6)/ 0.5555d0   /
      DATA A(25, 7)/ 0.3704d0   /
      DATA A(25, 8)/ 0.7692d0   /
      DATA A(25, 9)/ 0.6666d0   /
      DATA A(25,10)/ 0.3704d0   /
      DATA A(25,11)/ 1.0000d0   /
      DATA A(25,12)/ 1.0000d0   /
      DATA A(25,13)/ 1.0000d0   /
      DATA A(25,14)/ 1.0000d0   /
      DATA A(25,15)/ 1.0000d0   /
      DATA A(25,16)/ 1.0000d0   /
      DATA A(25,17)/ 1.0000d0   /
      DATA A(25,18)/ 1.0000d0   /
      DATA A(25,19)/ 1.6600d0   /
      DATA A(25,20)/ 1.0000d0   /
      DATA A(25,21)/ 1.0000d0   /
      DATA A(25,22)/ 1.0000d0   /
      DATA A(25,23)/ 1.0000d0   /
      DATA A(25,24)/ 1.0000d0   /
      DATA A(26, 1)/ 1.0000d0   /
      DATA A(26, 2)/ 1.0000d0   /
      DATA A(26, 3)/ 1.0000d0   /
      DATA A(26, 4)/ 1.0000d0   /
      DATA A(26, 5)/ 1.0000d0   /
      DATA A(26, 6)/ 1.0000d0   /
      DATA A(26, 7)/ 1.0000d0   /
      DATA A(26, 8)/ 1.0000d0   /
      DATA A(26, 9)/ 1.0000d0   /
      DATA A(26,10)/ 1.0000d0   /
      DATA A(26,11)/ 1.0000d0   /
      DATA A(26,12)/ 1.0000d0   /
      DATA A(26,13)/ 1.0000d0   /
      DATA A(26,14)/ 1.0000d0   /
      DATA A(26,15)/ 1.0000d0   /
      DATA A(26,16)/ 1.0000d0   /
      DATA A(26,17)/ 1.0000d0   /
      DATA A(26,18)/ 1.0000d0   /
      DATA A(26,19)/ 1.0000d0   /
      DATA A(26,20)/ 1.0000d0   /
      DATA A(26,21)/ 1.0000d0   /
      DATA A(26,22)/ 1.0000d0   /
      DATA A(26,23)/ 1.0000d0   /
      DATA A(26,24)/ 1.0000d0   /
      DATA A(26,25)/ 1.0000d0   /
      DATA A(27, 1)/ 1.0000d0   /
      DATA A(27, 2)/ 0.50000d0  /
      DATA A(27, 3)/ 0.25000d0  /
      DATA A(27, 4)/ 0.41666d0  /
      DATA A(27, 5)/ 0.55555d0  /
      DATA A(27, 6)/ 0.62500d0  /
      DATA A(27, 7)/ 0.43478d0  /
      DATA A(27, 8)/ 0.55555d0  /
      DATA A(27, 9)/ 0.37037d0  /
      DATA A(27,10)/ 0.76923d0  /
      DATA A(27,11)/ 0.6666d0   /
      DATA A(27,12)/ 0.37037d0  /
      DATA A(27,13)/ 1.0000d0   /
      DATA A(27,14)/ 1.0000d0   /
      DATA A(27,15)/ 1.0000d0   /
      DATA A(27,16)/ 1.0000d0   /
      DATA A(27,17)/ 1.0000d0   /
      DATA A(27,18)/ 1.0000d0   /
      DATA A(27,19)/ 1.0000d0   /
      DATA A(27,20)/ 1.0000d0   /
      DATA A(27,21)/ 1.6600d0   /
      DATA A(27,22)/ 1.0000d0   /
      DATA A(27,23)/ 1.0000d0   /
      DATA A(27,24)/ 1.0000d0   /
      DATA A(27,25)/ 1.0000d0   /
      DATA A(27,26)/ 1.0000d0   /
      DATA A(28, 1)/ 1.0000d0   /
      DATA A(28, 2)/ 1.0000d0   /
      DATA A(28, 3)/0.50000d0   /
      DATA A(28, 4)/0.25000d0   /
      DATA A(28, 5)/0.41600d0   /
      DATA A(28, 6)/0.55555d0   /
      DATA A(28, 7)/0.62500d0   /
      DATA A(28, 8)/0.43470d0   /
      DATA A(28, 9)/0.55556d0   /
      DATA A(28,10)/0.37037d0   /
      DATA A(28,11)/0.76920d0   /
      DATA A(28,12)/ 0.6666d0   /
      DATA A(28,13)/0.37037d0   /
      DATA A(28,14)/ 1.0000d0   /
      DATA A(28,15)/ 1.0000d0   /
      DATA A(28,16)/ 1.0000d0   /
      DATA A(28,17)/ 1.0000d0   /
      DATA A(28,18)/ 1.0000d0   /
      DATA A(28,19)/ 1.0000d0   /
      DATA A(28,20)/ 1.0000d0   /
      DATA A(28,21)/ 1.0000d0   /
      DATA A(28,22)/ 1.6600d0   /
      DATA A(28,23)/ 1.0000d0   /
      DATA A(28,24)/ 1.0000d0   /
      DATA A(28,25)/ 1.0000d0   /
      DATA A(28,26)/ 1.0000d0   /
      DATA A(28,27)/ 1.0000d0   /
C-
      data(Cbn(i, 2, 1),i=1,10)/ 5.966d-04, 1.613d-04,-2.223d-05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 2, 1),i=1,10)/ 4.556d+05, 5.552d+05, 8.982d+05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 3, 1),i=1,10)/ 1.276d-04, 4.084d-03,-3.058d-05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 3, 1),i=1,10)/ 8.503d+05, 1.053d+06, 1.056d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 4, 1),i=1,10)/ 5.962d-04, 1.040d-02,-4.487d-05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 4, 1),i=1,10)/ 1.479d+06, 1.870d+06, 2.204d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 5, 1),i=1,10)/ 6.132d-04, 1.918d-02, 5.603d-04,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 5, 1),i=1,10)/ 2.194d+06, 2.848d+06, 3.943d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 6, 1),i=1,10)/ 1.426d-03, 3.046d-02, 8.373d-04,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 6, 1),i=1,10)/ 3.116d+06, 4.075d+06, 5.749d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 7, 1),i=1,10)/ 2.801d-03, 4.362d-02, 1.117d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 7, 1),i=1,10)/ 4.198d+06, 5.516d+06, 8.050d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 8, 1),i=1,10)/ 4.925d-03, 5.837d-02, 1.359d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 8, 1),i=1,10)/ 5.440d+06, 7.170d+06, 1.152d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 9, 1),i=1,10)/ 7.914d-03, 7.387d-02, 1.699d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 9, 1),i=1,10)/ 6.843d+06, 9.033d+06, 1.420d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 1),i=1,10)/ 1.183d-02, 9.011d-02, 1.828d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 1),i=1,10)/ 8.405d+06, 1.111d+07, 1.812d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 1),i=1,10)/ 1.676d-02, 9.873d-02, 9.214d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 1),i=1,10)/ 1.013d+07, 1.325d+07, 1.721d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 1),i=1,10)/ 2.262d-02, 1.216d-01, 2.531d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 1),i=1,10)/ 1.201d+07, 1.588d+07, 2.473d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 1),i=1,10)/ 3.004d-02, 1.306d-01, 7.786d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 1),i=1,10)/ 1.406d+07, 1.850d+07, 2.431d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 1),i=1,10)/ 3.846d-02, 1.491d-01, 2.779d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 1),i=1,10)/ 1.627d+07, 2.154d+07, 3.827d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 1),i=1,10)/ 4.795d-02, 1.559d-01, 9.546d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 1),i=1,10)/ 1.863d+07, 2.450d+07, 3.212d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 1),i=1,10)/ 6.659d-02, 1.762d-01,-6.522d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 1),i=1,10)/ 2.122d+07, 2.897d+07, 5.786d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 1),i=1,10)/ 7.078d-02, 1.881d-01, 2.828d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 1),i=1,10)/ 2.386d+07, 3.162d+07, 6.619d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 1),i=1,10)/ 9.249d-02, 2.011d-01,-7.153d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 1),i=1,10)/ 2.677d+07, 3.653d+07, 4.729d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 1),i=1,10)/ 9.767d-02, 2.109d-01, 3.459d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 1),i=1,10)/ 2.973d+07, 3.936d+07, 5.935d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 1),i=1,10)/ 1.210d-01, 2.224d-01,-6.832d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 1),i=1,10)/ 3.296d+07, 4.485d+07, 6.312d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 1),i=1,10)/ 1.267d-01, 2.310d-01, 3.729d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 1),i=1,10)/ 3.625d+07, 4.796d+07, 5.822d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 1),i=1,10)/ 1.502d-01, 2.398d-01,-5.507d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 1),i=1,10)/ 3.982d+07, 5.399d+07, 8.472d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 1),i=1,10)/ 1.553d-01, 2.493d-01, 3.204d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 1),i=1,10)/ 4.344d+07, 5.753d+07, 1.042d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 1),i=1,10)/ 1.869d-01, 2.586d-01,-1.771d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 1),i=1,10)/ 4.748d+07, 6.610d+07, 1.079d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 1),i=1,10)/ 1.708d-01, 2.665d-01, 8.877d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 1),i=1,10)/ 5.114d+07, 6.658d+07, 9.660d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 1),i=1,10)/ 1.984d-01, 2.676d-01,-2.293d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 1),i=1,10)/ 5.552d+07, 7.475d+07, 1.236d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 1),i=1,10)/ 1.911d-01, 2.768d-01, 1.122d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 1),i=1,10)/ 5.966d+07, 7.765d+07, 1.418d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 1),i=1,10)/ 2.240d-01, 2.794d-01,-1.172d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 1),i=1,10)/ 6.452d+07, 8.855d+07, 1.508d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 1),i=1,10)/ 2.223d-01, 2.820d-01,-1.013d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 1),i=1,10)/ 6.914d+07, 9.278d+07, 1.482d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 1),i=1,10)/ 2.321d-01, 3.195d-01, 9.645d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 1),i=1,10)/ 7.372d+07, 9.711d+07, 1.585d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 3, 2),i=1,10)/ 2.941d-05, 6.068d-05,-7.753d-07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 3, 2),i=1,10)/ 6.345d+05, 7.024d+05, 8.271d+05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 4, 2),i=1,10)/ 1.942d-04, 1.485d-03, 1.320d-05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 4, 2),i=1,10)/ 1.185d+06, 1.377d+06, 1.904d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 5, 2),i=1,10)/ 9.375d-04, 7.606d-03,-2.683d-04,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 5, 2),i=1,10)/ 1.913d+06, 2.319d+06, 2.732d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 6, 2),i=1,10)/ 2.646d-03, 1.762d-02,-7.843d-04,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 6, 2),i=1,10)/ 2.804d+06, 3.485d+06, 4.324d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 7, 2),i=1,10)/ 5.761d-03, 3.434d-02,-1.660d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 7, 2),i=1,10)/ 3.860d+06, 4.883d+06, 6.259d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 8, 2),i=1,10)/ 6.135d-02, 1.968d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 8, 2),i=1,10)/ 6.113d+06, 3.656d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 9, 2),i=1,10)/ 1.006d-02, 6.743d-02, 1.034d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 9, 2),i=1,10)/ 6.330d+06, 7.859d+06, 9.755d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 2),i=1,10)/ 1.552d-02, 9.008d-02, 1.182d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 2),i=1,10)/ 7.845d+06, 9.803d+06, 1.209d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 2),i=1,10)/ 2.228d-02, 1.133d-01, 1.296d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 2),i=1,10)/ 9.521d+06, 1.195d+07, 1.502d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 2),i=1,10)/ 3.067d-02, 1.375d-01, 1.347d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 2),i=1,10)/ 1.136d+07, 1.431d+07, 1.762d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 2),i=1,10)/ 4.093d-02, 1.618d-01, 1.332d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 2),i=1,10)/ 1.336d+07, 1.689d+07, 2.091d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 2),i=1,10)/ 5.318d-02, 1.874d-01, 1.227d-02,
     & 7.173d-04, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 2),i=1,10)/ 1.552d+07, 1.969d+07, 2.532d+07,
     & 2.696d+08, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 2),i=1,10)/ 6.756d-02, 2.122d-01, 1.292d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 2),i=1,10)/ 1.784d+07, 2.270d+07, 2.867d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 2),i=1,10)/ 8.410d-02, 2.381d-01, 1.065d-02,
     & 1.049d-03, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 2),i=1,10)/ 2.032d+07, 2.592d+07, 3.206d+07,
     & 2.016d+08, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 2),i=1,10)/ 1.172d-01, 6.677d-01,-4.111d-01,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 2),i=1,10)/ 2.302d+07, 3.470d+07, 3.817d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 2),i=1,10)/ 1.220d-01, 2.795d-01, 1.569d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 2),i=1,10)/ 2.576d+07, 3.288d+07, 4.360d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 2),i=1,10)/ 1.598d-01, 3.107d-01,-1.177d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 2),i=1,10)/ 2.879d+07, 3.822d+07, 5.308d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 2),i=1,10)/ 1.659d-01, 3.186d-01, 1.801d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 2),i=1,10)/ 3.186d+07, 4.085d+07, 5.068d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 2),i=1,10)/ 2.046d-01, 6.275d-01,-2.876d-01,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 2),i=1,10)/ 3.521d+07, 5.102d+07, 5.741d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 2),i=1,10)/ 2.099d-01, 3.706d-01, 1.402d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 2),i=1,10)/ 3.861d+07, 5.000d+07, 3.341d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 2),i=1,10)/ 2.464d-01, 3.773d-01,-8.236d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 2),i=1,10)/ 4.229d+07, 5.601d+07, 8.486d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 2),i=1,10)/ 2.486d-01, 3.758d-01, 2.241d-02,
     & 6.461d-04, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 2),i=1,10)/ 4.601d+07, 5.914d+07, 7.241d+07,
     & 3.231d+08, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 2),i=1,10)/ 2.977d-01, 1.039d+00,-6.600d-01,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 2),i=1,10)/ 5.018d+07, 7.823d+07, 8.614d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 2),i=1,10)/ 2.676d-01, 4.097d-01, 2.990d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 2),i=1,10)/ 5.394d+07, 6.854d+07, 9.651d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 2),i=1,10)/ 3.096d-01, 5.586d-01,-1.398d-01,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 2),i=1,10)/ 5.844d+07, 8.074d+07, 9.415d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 2),i=1,10)/ 2.934d-01, 4.324d-01, 2.800d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 2),i=1,10)/ 6.268d+07, 7.990d+07, 1.212d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 2),i=1,10)/ 3.452d-01, 6.344d-01,-2.055d-01,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 2),i=1,10)/ 6.767d+07, 9.628d+07, 1.123d+08,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 2),i=1,10)/ 3.493d-01, 4.849d-01, 1.422d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 2),i=1,10)/ 7.239d+07, 9.475d+07, 9.542d+07,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 4, 3),i=1,10)/ 1.173d-07, 6.362d-04, 9.934d-05,
     & 8.344d-05, 1.620d-05, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 4, 3),i=1,10)/ 1.597d+03, 4.416d+04, 6.100d+04,
     & 1.263d+06, 2.226d+06, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 5, 3),i=1,10)/ 7.643d-08, 3.662d-06, 8.081d-04,
     & 8.497d-04, 2.996d-04, 7.136d-04, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 5, 3),i=1,10)/ 3.043d+02, 1.705d+04, 5.881d+04,
     & 5.947d+04, 9.015d+04, 2.155d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 6, 3),i=1,10)/ 4.673d-07, 1.887d-05, 1.305d-05,
     & 3.099d-03, 3.001d-04, 2.553d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 6, 3),i=1,10)/ 7.233d+02, 2.847d+03, 1.054d+04,
     & 8.915d+04, 2.812d+05, 3.254d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 7, 3),i=1,10)/ 2.040d-06, 6.986d-05, 3.168d-04,
     & 4.353d-03, 7.765d-04, 5.101d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 7, 3),i=1,10)/ 3.084d+03, 1.332d+04, 6.475d+04,
     & 1.181d+05, 6.687d+05, 4.778d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 8, 3),i=1,10)/ 2.389d-05, 1.355d-04, 5.885d-03,
     & 2.163d-03, 6.341d-04, 1.348d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 8, 3),i=1,10)/ 2.326d+04, 3.209d+04, 1.316d+05,
     & 6.731d+05, 1.892d+06, 6.150d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 9, 3),i=1,10)/ 9.351d-05, 1.685d-04, 7.495d-03,
     & 5.079d-03, 2.482d-02, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 9, 3),i=1,10)/ 1.969d+03, 7.939d+03, 1.495d+05,
     & 9.966d+05, 7.740d+06, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 3),i=1,10)/ 2.399d-04, 3.532d-04, 8.928d-03,
     & 5.427d-03, 5.342d-03, 3.981d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 3),i=1,10)/ 2.536d+04, 4.800d+04, 1.770d+05,
     & 1.030d+06, 1.859d+06, 9.743d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 3),i=1,10)/ 1.600d-04, 2.992d-04, 2.233d-03,
     & 9.405d-03, 1.642d-02, 6.149d-02, 2.643d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 3),i=1,10)/ 1.032d+03, 5.538d+03, 1.026d+05,
     & 2.285d+05, 1.710d+06, 1.160d+07, 1.337d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 3),i=1,10)/ 2.582d-04, 5.033d-04, 4.561d-03,
     & 8.754d-03, 2.734d-02, 7.509d-02, 1.385d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 3),i=1,10)/ 2.861d+04, 4.087d+04, 1.528d+05,
     & 2.677d+05, 2.055d+06, 1.298d+07, 1.852d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 3),i=1,10)/ 4.380d-04, 6.900d-04, 6.947d-03,
     & 9.037d-03, 3.925d-02, 1.153d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 3),i=1,10)/ 5.767d+03, 2.207d+04, 1.639d+05,
     & 3.336d+05, 2.519d+06, 1.617d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 3),i=1,10)/ 1.205d-03, 1.309d-02, 5.333d-03,
     & 2.858d-02, 3.195d-02, 1.433d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 3),i=1,10)/ 4.824d+04, 2.137d+05, 5.492d+05,
     & 2.460d+06, 3.647d+06, 1.889d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 3),i=1,10)/ 5.752d-04, 1.464d-03, 1.252d-02,
     & 7.928d-03, 7.315d-02, 2.794d-02, 1.523d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 3),i=1,10)/ 1.764d+04, 4.620d+04, 2.214d+05,
     & 4.539d+05, 3.270d+06, 1.273d+07, 2.289d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 3),i=1,10)/ 1.173d-03, 1.718d-03, 1.657d-02,
     & 7.474d-03, 9.698d-02, 1.399d-01, 7.029d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 3),i=1,10)/ 1.366d+04, 6.371d+04, 2.540d+05,
     & 6.493d+05, 3.868d+06, 2.186d+07, 2.983d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 3),i=1,10)/ 5.299d-04, 1.410d-03, 4.341d-03,
     & 2.068d-02, 4.274d-02, 9.527d-02, 2.357d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 3),i=1,10)/ 3.526d+04, 5.954d+04, 1.461d+05,
     & 3.479d+05, 2.996d+06, 5.413d+06, 2.816d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 3),i=1,10)/ 9.046d-04, 3.613d-03, 1.984d-02,
     & 9.058d-03, 1.497d-01, 2.812d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 3),i=1,10)/ 1.409d+04, 6.954d+04, 2.936d+05,
     & 6.472d+05, 4.759d+06, 2.984d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 3),i=1,10)/ 2.263d-03, 4.026d-03, 2.578d-02,
     & 1.011d-02, 1.816d-01, 3.021d-01, 8.857d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 3),i=1,10)/ 3.553d+04, 1.009d+05, 3.457d+05,
     & 1.311d+06, 5.582d+06, 3.317d+07, 8.634d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 3),i=1,10)/ 2.311d-03, 2.019d-03, 1.789d-02,
     & 2.139d-02, 2.090d-01, 3.375d-01, 1.415d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 3),i=1,10)/ 1.806d+04, 4.286d+04, 2.292d+05,
     & 6.275d+05, 5.896d+06, 3.559d+07, 9.425d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 3),i=1,10)/ 1.195d-03, 3.051d-03, 1.122d-02,
     & 2.845d-02, 1.077d-01, 1.698d-01, 3.629d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 3),i=1,10)/ 1.717d+04, 7.782d+04, 2.123d+05,
     & 4.903d+05, 4.753d+06, 8.942d+06, 4.303d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 3),i=1,10)/ 3.721d-03, 8.448d-03, 3.456d-02,
     & 1.926d-02, 2.798d-01, 3.978d-01, 1.639d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 3),i=1,10)/ 7.484d+04, 1.655d+05, 4.668d+05,
     & 2.495d+06, 7.600d+06, 4.436d+07, 8.304d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 3),i=1,10)/ 3.460d-03, 1.000d-02, 4.023d-02,
     & 5.697d-02, 2.868d-01, 4.377d-01, 9.160d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 3),i=1,10)/ 5.654d+04, 1.457d+05, 4.975d+05,
     & 4.206d+06, 9.053d+06, 5.038d+07, 4.061d+09, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 3),i=1,10)/ 1.816d-03, 6.886d-03, 2.060d-02,
     & 3.264d-02, 7.836d-02, 3.028d-01, 4.671d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 3),i=1,10)/ 3.007d+04, 7.941d+04, 2.916d+05,
     & 6.417d+05, 4.998d+06, 1.008d+07, 5.476d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 3),i=1,10)/ 1.940d-03, 8.212d-03, 4.637d-02,
     & 3.049d-02, 3.855d-01, 4.926d-01, 2.514d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 3),i=1,10)/ 7.799d+03, 7.236d+04, 3.949d+05,
     & 1.891d+06, 9.560d+06, 5.555d+07, 1.525d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 3),i=1,10)/ 7.882d-03, 1.636d-02, 4.868d-02,
     & 4.230d-02, 4.151d-01, 5.339d-01, 4.544d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 3),i=1,10)/ 5.977d+04, 2.074d+05, 6.170d+05,
     & 3.789d+06, 1.086d+07, 6.363d+07, 1.599d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 3),i=1,10)/ 9.309d-03, 1.889d-02, 5.291d-02,
     & 5.813d-02, 4.330d-01, 5.388d-01, 3.519d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 3),i=1,10)/ 5.352d+04, 2.143d+05, 6.564d+05,
     & 4.354d+06, 1.180d+07, 6.509d+07, 1.653d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 3),i=1,10)/ 5.138d-03, 1.029d-02, 4.025d-02,
     & 4.055d-02, 2.531d-01, 3.105d-01, 5.583d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 3),i=1,10)/ 3.365d+04, 8.242d+04, 3.905d+05,
     & 9.752d+05, 8.317d+06, 1.700d+07, 7.728d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 3),i=1,10)/ 9.149d-03, 2.358d-02, 6.477d-02,
     & 7.025d-02, 4.931d-01, 5.226d-01, 1.112d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 3),i=1,10)/ 5.045d+04, 2.145d+05, 7.378d+05,
     & 5.073d+06, 1.340d+07, 7.026d+07, 1.293d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 3),i=1,10)/ 1.067d-02, 9.518d-03, 7.437d-02,
     & 5.717d-02, 5.809d-01, 6.514d-01, 3.030d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 3),i=1,10)/ 4.676d+04, 1.255d+05, 5.455d+05,
     & 3.049d+06, 1.367d+07, 8.256d+07, 5.040d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 5, 4),i=1,10)/ 1.081d-07, 1.328d-07, 3.383d-05,
     & 1.185d-03, 1.218d-04, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 5, 4),i=1,10)/ 8.236d+03, 1.939d+04, 6.615d+04,
     & 1.062d+05, 2.142d+06, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 6, 4),i=1,10)/ 3.489d-06, 2.222d-07, 1.954d-05,
     & 4.212d-03, 2.037d-04, 2.936d-04, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 6, 4),i=1,10)/ 2.660d+03, 3.756d+03, 2.566d+04,
     & 1.400d+05, 1.801d+06, 4.307d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 7, 4),i=1,10)/ 3.386d-06, 3.036d-05, 5.945d-05,
     & 1.195d-03, 6.462d-03, 1.358d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 7, 4),i=1,10)/ 1.406d+03, 6.965d+03, 2.604d+04,
     & 1.304d+05, 1.965d+05, 4.466d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 8, 4),i=1,10)/ 1.615d-05, 9.299d-06, 1.530d-04,
     & 6.616d-04, 1.080d-02, 7.503d-04, 2.892d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 8, 4),i=1,10)/ 7.569d+02, 3.659d+03, 1.984d+04,
     & 8.429d+04, 2.294d+05, 1.161d+06, 6.137d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 9, 4),i=1,10)/ 4.892d-06, 2.086d-05, 2.548d-04,
     & 6.407d-04, 1.450d-02, 3.070d-03, 5.805d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 9, 4),i=1,10)/ 7.694d+02, 1.067d+04, 1.939d+04,
     & 6.150d+04, 2.565d+05, 1.016d+06, 7.782d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 4),i=1,10)/ 8.460d-05, 1.817d-04, 1.176d-03,
     & 1.397d-02, 5.566d-03, 6.229d-03, 1.031d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 4),i=1,10)/ 1.049d+03, 3.829d+03, 6.133d+04,
     & 2.568d+05, 4.600d+05, 1.324d+06, 9.353d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 4),i=1,10)/ 1.741d-05, 7.735d-04, 1.890d-03,
     & 2.254d-02, 1.336d-02, 1.660d-02, 2.665d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 4),i=1,10)/ 3.910d+03, 2.127d+04, 6.185d+04,
     & 3.287d+05, 1.573d+06, 1.130d+07, 2.903d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 4),i=1,10)/ 3.565d-05, 2.017d-05, 1.165d-03,
     & 5.016d-03, 2.434d-02, 2.508d-02, 2.475d-02, 7.087d-04,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 4),i=1,10)/ 1.759d+03, 1.237d+04, 5.651d+04,
     & 1.680d+05, 4.007d+05, 1.991d+06, 1.330d+07, 4.060d+07,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 4),i=1,10)/ 1.049d-05, 5.683d-04, 2.734d-03,
     & 6.968d-03, 2.668d-02, 3.801d-02, 3.651d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 4),i=1,10)/ 1.304d+04, 2.411d+04, 6.993d+04,
     & 2.091d+05, 4.545d+05, 2.349d+06, 1.598d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 4),i=1,10)/ 2.214d-04, 1.260d-03, 3.832d-03,
     & 1.158d-02, 2.871d-02, 5.456d-02, 5.035d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 4),i=1,10)/ 3.586d+03, 1.324d+04, 5.636d+04,
     & 2.498d+05, 5.363d+05, 2.809d+06, 1.854d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 4),i=1,10)/ 3.416d-04, 1.520d-03, 4.087d-03,
     & 3.442d-02, 1.792d-02, 7.679d-02, 6.485d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 4),i=1,10)/ 5.119d+03, 1.559d+04, 8.723d+04,
     & 3.923d+05, 1.161d+06, 3.514d+06, 2.218d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 4),i=1,10)/ 2.610d-04, 9.442d-04, 8.190d-03,
     & 4.271d-02, 1.997d-02, 9.590d-02, 8.444d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 4),i=1,10)/ 5.114d+03, 1.750d+04, 1.061d+05,
     & 4.691d+05, 1.821d+06, 4.033d+06, 2.476d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 4),i=1,10)/ 4.394d-04, 2.394d-03, 8.569d-03,
     & 3.538d-02, 2.438d-02, 1.353d-01, 9.538d-02, 1.390d-02,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 4),i=1,10)/ 4.784d+03, 3.359d+04, 9.827d+04,
     & 4.235d+05, 9.749d+05, 4.254d+06, 2.511d+07, 4.612d+07,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 4),i=1,10)/ 7.348d-04, 5.115d-03, 9.444d-03,
     & 5.143d-02, 3.006d-02, 1.566d-01, 1.309d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 4),i=1,10)/ 5.053d+03, 2.167d+04, 1.280d+05,
     & 5.220d+05, 2.161d+06, 5.084d+06, 3.089d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 4),i=1,10)/ 7.796d-04, 2.483d-03, 1.255d-02,
     & 5.620d-02, 3.451d-02, 2.160d-01, 1.516d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 4),i=1,10)/ 6.895d+03, 4.446d+04, 1.453d+05,
     & 5.627d+05, 2.171d+06, 5.838d+06, 3.565d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 4),i=1,10)/ 2.892d-03, 7.663d-03, 2.689d-02,
     & 5.718d-02, 2.681d-01, 1.709d-01, 2.262d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 4),i=1,10)/ 1.990d+04, 8.624d+04, 3.180d+05,
     & 8.480d+05, 5.735d+06, 3.300d+07, 7.268d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 4),i=1,10)/ 2.622d-04, 5.138d-03, 1.747d-02,
     & 6.624d-02, 4.885d-02, 3.070d-01, 2.039d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 4),i=1,10)/ 1.245d+04, 5.314d+04, 1.758d+05,
     & 6.454d+05, 2.668d+06, 7.132d+06, 4.303d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 4),i=1,10)/ 1.298d-03, 8.940d-03, 2.140d-02,
     & 7.490d-02, 8.937d-02, 3.141d-01, 2.311d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 4),i=1,10)/ 1.249d+04, 4.779d+04, 2.104d+05,
     & 7.527d+05, 4.104d+06, 8.141d+06, 4.660d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 4),i=1,10)/ 6.110d-03, 4.698d-03, 2.402d-02,
     & 8.169d-02, 8.957d-02, 3.810d-01, 2.559d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 4),i=1,10)/ 8.616d+03, 4.385d+04, 2.093d+05,
     & 7.801d+05, 4.000d+06, 8.866d+06, 5.215d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 4),i=1,10)/ 7.589d-04, 6.974d-03, 2.863d-02,
     & 8.418d-02, 6.213d-02, 4.842d-01, 2.945d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 4),i=1,10)/ 1.649d+04, 6.090d+04, 2.490d+05,
     & 8.212d+05, 3.487d+06, 8.974d+06, 5.391d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 4),i=1,10)/ 2.538d-03, 6.556d-03, 3.347d-02,
     & 9.530d-02, 1.447d-01, 4.758d-01, 3.096d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 4),i=1,10)/ 2.787d+04, 7.497d+04, 2.640d+05,
     & 9.107d+05, 5.213d+06, 1.063d+07, 5.943d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 4),i=1,10)/ 2.325d-03, 1.017d-02, 3.572d-02,
     & 9.882d-02, 1.156d-01, 5.792d-01, 3.344d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 4),i=1,10)/ 1.376d+04, 8.251d+04, 2.794d+05,
     & 9.378d+05, 4.688d+06, 1.106d+07, 6.543d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 4),i=1,10)/ 1.446d-03, 1.781d-02, 3.354d-02,
     & 9.668d-02, 7.855d-02, 6.874d-01, 3.720d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 4),i=1,10)/ 3.101d+04, 1.005d+05, 3.213d+05,
     & 9.070d+05, 3.183d+06, 1.108d+07, 6.647d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 4),i=1,10)/ 2.440d-03, 2.224d-02, 4.605d-02,
     & 1.136d-01, 3.381d-01, 5.177d-01, 3.585d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 4),i=1,10)/ 3.553d+04, 9.508d+04, 3.809d+05,
     & 1.134d+06, 7.503d+06, 1.526d+07, 7.788d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 4),i=1,10)/ 6.795d-03, 2.204d-02, 5.253d-02,
     & 1.184d-01, 1.437d-01, 7.654d-01, 4.051d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 4),i=1,10)/ 4.053d+04, 8.717d+04, 4.034d+05,
     & 1.192d+06, 5.515d+06, 1.359d+07, 8.044d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 4),i=1,10)/ 1.014d-02, 2.291d-02, 5.791d-02,
     & 1.289d-01, 3.345d-01, 6.958d-01, 3.860d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 4),i=1,10)/ 3.921d+04, 8.789d+04, 4.283d+05,
     & 1.252d+06, 7.689d+06, 1.651d+07, 9.089d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 6, 5),i=1,10)/ 6.346d-09, 9.793d-09, 1.634d-06,
     & 8.369d-04, 3.355d-04, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 6, 5),i=1,10)/ 1.217d+01, 7.380d+01, 1.523d+04,
     & 1.207d+05, 2.144d+05, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 7, 5),i=1,10)/ 7.712d-08, 4.839d-08, 2.218d-06,
     & 1.536d-03, 3.647d-03, 4.234d-05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 7, 5),i=1,10)/ 7.113d+01, 2.765d+02, 1.439d+04,
     & 1.347d+05, 2.496d+05, 2.204d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 8, 5),i=1,10)/ 3.932d-07, 2.523d-07, 3.447d-05,
     & 5.776d-03, 5.101d-03, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 8, 5),i=1,10)/ 1.509d+02, 6.211d+02, 1.562d+04,
     & 1.936d+05, 4.700d+05, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 9, 5),i=1,10)/ 1.680d-06, 6.779d-06, 8.798d-05,
     & 4.378d-04, 1.102d-02, 7.738d-03, 5.425d-05, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 9, 5),i=1,10)/ 4.614d+02, 7.266d+03, 2.085d+04,
     & 9.543d+04, 2.699d+05, 7.864d+05, 2.643d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 5),i=1,10)/ 5.653d-06, 4.344d-05, 1.086d-04,
     & 5.980d-04, 1.457d-02, 1.601d-02, 5.365d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 5),i=1,10)/ 6.280d+02, 2.812d+03, 1.324d+04,
     & 8.064d+04, 3.052d+05, 1.032d+06, 2.388d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 5),i=1,10)/ 5.677d-06, 4.730d-05, 2.410d-04,
     & 9.606d-04, 1.913d-02, 3.086d-02, 2.334d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 5),i=1,10)/ 1.032d+03, 5.764d+03, 2.123d+04,
     & 8.556d+04, 3.532d+05, 1.364d+06, 7.146d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 5),i=1,10)/ 5.451d-05, 6.999d-05, 3.928d-04,
     & 7.483d-04, 1.851d-02, 1.190d-02, 4.764d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 5),i=1,10)/ 2.196d+02, 4.524d+03, 2.491d+04,
     & 9.111d+04, 3.367d+05, 8.316d+05, 1.817d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 5),i=1,10)/ 1.431d-05, 3.517d-05, 8.709d-04,
     & 5.087d-03, 2.679d-02, 8.922d-02, 2.483d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 5),i=1,10)/ 1.122d+03, 6.431d+03, 5.139d+04,
     & 1.820d+05, 4.936d+05, 2.121d+06, 1.001d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 5),i=1,10)/ 1.246d-04, 6.649d-04, 2.912d-03,
     & 2.912d-02, 3.049d-02, 1.056d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 5),i=1,10)/ 1.167d+03, 9.088d+03, 5.332d+04,
     & 4.219d+05, 1.571d+06, 2.721d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 5),i=1,10)/ 1.664d-04, 1.849d-03, 1.024d-03,
     & 1.310d-02, 3.176d-02, 1.829d-01, 8.145d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 5),i=1,10)/ 3.290d+03, 1.212d+04, 5.375d+04,
     & 2.898d+05, 6.980d+05, 2.984d+06, 1.165d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 5),i=1,10)/ 9.126d-05, 1.691d-04, 3.050d-03,
     & 2.604d-02, 3.245d-02, 2.511d-01, 4.459d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 5),i=1,10)/ 3.575d+03, 1.491d+04, 9.388d+04,
     & 3.856d+05, 9.630d+05, 3.490d+06, 1.743d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 5),i=1,10)/ 7.968d-05, 1.212d-03, 5.278d-03,
     & 3.166d-02, 3.145d-02, 3.193d-01, 4.706d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 5),i=1,10)/ 3.775d+03, 2.304d+04, 8.849d+04,
     & 4.401d+05, 1.166d+06, 3.950d+06, 9.747d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 5),i=1,10)/ 1.885d-04, 3.131d-03, 5.019d-03,
     & 1.104d-02, 4.690d-02, 1.852d-01, 2.407d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 5),i=1,10)/ 4.613d+03, 2.698d+04, 8.987d+04,
     & 3.045d+05, 7.081d+05, 3.524d+06, 5.235d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 5),i=1,10)/ 3.586d-03, 3.935d-03, 1.224d-02,
     & 5.542d-02, 3.164d-01, 2.022d-01, 5.815d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 5),i=1,10)/ 2.541d+03, 1.605d+04, 1.921d+05,
     & 7.584d+05, 4.303d+06, 6.161d+06, 1.089d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 5),i=1,10)/ 1.861d-04, 2.067d-03, 1.079d-02,
     & 5.961d-02, 1.290d-01, 5.155d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 5),i=1,10)/ 8.140d+03, 3.409d+04, 1.535d+05,
     & 6.411d+05, 3.094d+06, 6.161d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 5),i=1,10)/ 5.204d-04, 3.285d-03, 1.138d-02,
     & 5.197d-02, 4.114d-02, 3.664d-01, 3.606d-01, 1.025d-03,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 5),i=1,10)/ 1.904d+04, 4.914d+04, 1.555d+05,
     & 6.245d+05, 1.656d+06, 5.193d+06, 7.497d+06, 6.055d+07,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 5),i=1,10)/ 6.365d-04, 6.765d-03, 2.898d-02,
     & 9.513d-02, 2.735d-01, 5.609d-01, 4.717d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 5),i=1,10)/ 1.119d+04, 4.244d+04, 2.548d+05,
     & 1.115d+06, 5.768d+06, 7.379d+06, 7.735d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 5),i=1,10)/ 5.340d-04, 1.560d-02, 1.793d-02,
     & 7.154d-02, 1.275d-01, 8.764d-01, 1.790d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 5),i=1,10)/ 1.739d+04, 6.203d+04, 1.932d+05,
     & 7.356d+05, 3.164d+06, 7.921d+06, 9.982d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 5),i=1,10)/ 1.967d-03, 2.196d-02, 4.625d-02,
     & 9.195d-02, 3.504d-01, 7.530d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 5),i=1,10)/ 1.379d+04, 4.931d+04, 3.818d+05,
     & 1.261d+06, 5.632d+06, 9.397d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 5),i=1,10)/ 6.583d-03, 7.778d-03, 2.528d-02,
     & 8.838d-02, 1.883d-01, 1.090d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 5),i=1,10)/ 1.190d+04, 4.090d+04, 2.244d+05,
     & 8.350d+05, 3.911d+06, 9.518d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 5),i=1,10)/ 8.382d-03, 7.897d-03, 3.157d-02,
     & 1.159d-01, 3.919d-01, 1.017d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 5),i=1,10)/ 5.297d+03, 5.829d+04, 2.454d+05,
     & 9.663d+05, 5.580d+06, 1.110d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 5),i=1,10)/ 1.779d-03, 1.380d-02, 2.925d-02,
     & 8.643d-02, 7.008d-02, 3.650d-01, 1.135d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 5),i=1,10)/ 4.049d+04, 9.900d+04, 2.980d+05,
     & 8.863d+05, 2.319d+06, 6.460d+06, 1.173d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 5),i=1,10)/ 2.382d-03, 1.513d-02, 8.457d-02,
     & 1.696d-01, 1.374d+00, 2.096d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 5),i=1,10)/ 3.084d+04, 8.144d+04, 4.681d+05,
     & 2.054d+06, 1.035d+07, 1.918d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 5),i=1,10)/ 5.329d-03, 1.393d-02, 4.578d-02,
     & 1.213d-01, 2.908d-01, 1.507d+00, 8.027d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 5),i=1,10)/ 5.975d+03, 8.598d+04, 3.239d+05,
     & 1.118d+06, 5.141d+06, 1.284d+07, 1.689d+09, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 5),i=1,10)/ 7.048d-03, 1.378d-02, 5.462d-02,
     & 1.513d-01, 3.739d-01, 1.561d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 5),i=1,10)/ 2.680d+03, 7.783d+04, 3.489d+05,
     & 1.241d+06, 5.902d+06, 1.403d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 7, 6),i=1,10)/ 1.658d-08, 2.760d-08, 2.391d-09,
     & 7.585d-07, 3.012d-04, 7.132d-04, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 7, 6),i=1,10)/ 1.265d+01, 8.425d+01, 2.964d+02,
     & 5.923d+03, 1.278d+05, 2.184d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 8, 6),i=1,10)/ 1.627d-07, 1.262d-07, 6.663d-07,
     & 3.925d-06, 2.406d-03, 1.146d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 8, 6),i=1,10)/ 4.535d+01, 2.847d+02, 4.166d+03,
     & 2.877d+04, 1.953d+05, 3.646d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 9, 6),i=1,10)/ 3.771d-06, 5.399d-07, 3.307d-06,
     & 1.861d-05, 2.146d-03, 4.197d-03, 2.313d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 9, 6),i=1,10)/ 1.337d+02, 7.575d+02, 7.973d+03,
     & 3.279d+04, 1.956d+05, 3.298d+05, 6.735d+05, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 6),i=1,10)/ 2.922d-06, 7.144d-06, 2.836d-05,
     & 9.820d-05, 8.379d-03, 1.009d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 6),i=1,10)/ 2.050d+02, 2.205d+03, 9.271d+03,
     & 4.988d+04, 2.904d+05, 8.782d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 6),i=1,10)/ 1.118d-04, 1.974d-05, 6.610d-05,
     & 3.533d-04, 1.082d-02, 2.061d-02, 2.115d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 6),i=1,10)/ 3.455d+02, 2.293d+03, 1.670d+04,
     & 7.203d+04, 3.343d+05, 1.090d+06, 1.987d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 6),i=1,10)/ 2.931d-05, 5.192d-05, 1.769d-04,
     & 7.988d-04, 1.488d-02, 4.546d-02, 1.505d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 6),i=1,10)/ 7.667d+02, 3.444d+03, 2.409d+04,
     & 1.190d+05, 3.999d+05, 1.502d+06, 2.464d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 6),i=1,10)/ 3.236d-05, 7.821d-05, 3.899d-04,
     & 2.106d-03, 2.015d-02, 7.710d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 6),i=1,10)/ 9.357d+02, 4.775d+03, 3.796d+04,
     & 1.619d+05, 4.954d+05, 1.885d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 6),i=1,10)/ 5.845d-04, 6.600d-04, 7.180d-04,
     & 1.714d-02, 2.958d-02, 1.075d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 6),i=1,10)/ 9.856d+02, 6.577d+03, 4.281d+04,
     & 3.944d+05, 1.296d+06, 2.441d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 6),i=1,10)/ 4.963d-05, 2.021d-04, 6.269d-04,
     & 7.312d-03, 2.811d-02, 1.880d-01, 6.513d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 6),i=1,10)/ 1.715d+03, 1.028d+04, 4.195d+04,
     & 2.629d+05, 7.272d+05, 2.704d+06, 3.671d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 6),i=1,10)/ 1.371d-04, 3.096d-04, 1.782d-03,
     & 1.278d-02, 3.323d-02, 2.593d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 6),i=1,10)/ 1.505d+03, 1.100d+04, 6.720d+04,
     & 3.364d+05, 9.686d+05, 3.195d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 6),i=1,10)/ 2.671d-04, 1.439d-03, 3.183d-03,
     & 6.145d-03, 2.694d-02, 1.149d-01, 2.573d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 6),i=1,10)/ 1.837d+03, 1.505d+04, 6.655d+04,
     & 3.305d+05, 6.394d+05, 2.563d+06, 4.071d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 6),i=1,10)/ 2.150d-04, 6.864d-04, 2.705d-03,
     & 2.338d-02, 4.951d-02, 4.399d-01, 8.728d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 6),i=1,10)/ 2.258d+03, 1.495d+04, 9.067d+04,
     & 4.780d+05, 1.538d+06, 4.274d+06, 4.681d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 6),i=1,10)/ 4.556d-04, 3.209d-03, 3.770d-03,
     & 2.918d-02, 6.498d-02, 5.392d-01, 1.074d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 6),i=1,10)/ 1.657d+03, 2.028d+04, 1.055d+05,
     & 5.326d+05, 1.891d+06, 4.863d+06, 3.738d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 6),i=1,10)/ 2.456d-04, 1.305d-03, 5.715d-03,
     & 3.863d-02, 1.100d-01, 6.152d-01, 1.463d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 6),i=1,10)/ 3.806d+03, 2.310d+04, 1.194d+05,
     & 6.171d+05, 2.656d+06, 5.600d+06, 8.556d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 6),i=1,10)/ 4.633d-04, 4.520d-03, 6.443d-03,
     & 4.011d-02, 1.153d-01, 7.416d-01, 1.196d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 6),i=1,10)/ 4.064d+03, 2.874d+04, 1.269d+05,
     & 6.166d+05, 2.629d+06, 6.192d+06, 3.296d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 6),i=1,10)/ 4.345d-03, 5.154d-03, 9.236d-03,
     & 4.555d-02, 1.538d-01, 8.330d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 6),i=1,10)/ 4.104d+03, 2.231d+04, 1.461d+05,
     & 6.829d+05, 3.109d+06, 6.933d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 6),i=1,10)/ 3.966d-03, 1.200d-02, 1.170d-02,
     & 5.053d-02, 1.695d-01, 9.674d-01, 1.429d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 6),i=1,10)/ 3.971d+03, 2.680d+04, 1.681d+05,
     & 7.460d+05, 3.310d+06, 7.627d+06, 6.216d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 6),i=1,10)/ 1.192d-03, 6.885d-03, 1.333d-02,
     & 5.489d-02, 2.236d-01, 1.064d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 6),i=1,10)/ 3.361d+03, 4.103d+04, 1.708d+05,
     & 7.629d+05, 3.700d+06, 8.444d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 6),i=1,10)/ 1.599d-03, 1.369d-02, 1.904d-02,
     & 6.204d-02, 1.699d-01, 1.256d+00, 6.804d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 6),i=1,10)/ 7.070d+03, 4.902d+04, 1.967d+05,
     & 9.486d+05, 3.444d+06, 8.852d+06, 8.895d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 6),i=1,10)/ 2.565d-03, 1.685d-02, 1.827d-02,
     & 6.957d-02, 3.254d-01, 5.101d-01, 7.325d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 6),i=1,10)/ 6.553d+03, 4.351d+04, 2.059d+05,
     & 9.250d+05, 4.610d+06, 1.019d+07, 1.019d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 6),i=1,10)/ 6.548d-03, 1.320d-02, 2.041d-02,
     & 5.761d-02, 1.957d-01, 1.548d+00, 8.802d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 6),i=1,10)/ 9.540d+03, 5.179d+04, 2.080d+05,
     & 8.238d+05, 3.231d+06, 1.027d+07, 1.379d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 6),i=1,10)/ 2.180d-03, 1.906d-02, 2.225d-02,
     & 8.285d-02, 3.426d-01, 1.528d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 6),i=1,10)/ 1.389d+04, 6.990d+04, 2.700d+05,
     & 1.049d+06, 4.925d+06, 1.177d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 6),i=1,10)/ 1.873d-03, 2.409d-02, 3.085d-02,
     & 9.358d-02, 4.471d-01, 1.587d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 6),i=1,10)/ 5.412d+03, 6.368d+04, 2.902d+05,
     & 1.176d+06, 5.682d+06, 1.290d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 6),i=1,10)/ 2.790d-03, 2.929d-02, 4.506d-02,
     & 8.789d-02, 3.605d-01, 1.860d+00, 1.109d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 6),i=1,10)/ 9.821d+03, 6.250d+04, 2.949d+05,
     & 1.158d+06, 4.980d+06, 1.326d+07, 3.259d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 8, 7),i=1,10)/ 5.629d-08, 2.550d-07, 6.173d-04,
     & 1.627d-04, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 8, 7),i=1,10)/ 5.395d+03, 1.770d+04, 1.671d+05,
     & 2.687d+05, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 9, 7),i=1,10)/ 4.223d-07, 2.655d-06, 9.461d-06,
     & 3.390d-03, 1.073d-03, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 9, 7),i=1,10)/ 2.017d+03, 5.687d+03, 2.784d+04,
     & 2.161d+05, 5.295d+05, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 7),i=1,10)/ 2.763d-06, 1.053d-05, 4.453d-05,
     & 6.244d-03, 3.146d-04, 4.465d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 7),i=1,10)/ 6.393d+02, 1.499d+03, 3.227d+04,
     & 2.561d+05, 4.505d+05, 7.934d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 7),i=1,10)/ 2.447d-06, 1.008d-05, 8.172d-05,
     & 2.254d-04, 9.976d-03, 1.237d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 7),i=1,10)/ 2.229d+03, 4.689d+03, 2.297d+04,
     & 9.453d+04, 3.122d+05, 1.079d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 7),i=1,10)/ 2.407d-05, 1.187d-04, 3.845d-04,
     & 1.333d-02, 2.804d-02, 8.746d-04, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 7),i=1,10)/ 8.061d+03, 2.154d+04, 6.640d+04,
     & 3.406d+05, 1.327d+06, 3.347d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 7),i=1,10)/ 1.460d-05, 9.728d-05, 6.830d-04,
     & 1.230d-02, 9.660d-03, 5.047d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 7),i=1,10)/ 4.671d+02, 1.234d+04, 4.178d+04,
     & 3.345d+05, 6.942d+05, 1.786d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 7),i=1,10)/ 5.272d-05, 2.282d-04, 1.345d-03,
     & 2.246d-02, 9.606d-02, 8.366d-04, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 7),i=1,10)/ 2.829d+03, 2.617d+04, 1.374d+05,
     & 4.520d+05, 2.072d+06, 7.808d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 7),i=1,10)/ 1.540d-04, 8.484d-04, 3.171d-03,
     & 2.700d-02, 1.512d-01, 1.201d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 7),i=1,10)/ 7.080d+03, 4.679d+04, 1.900d+05,
     & 5.395d+05, 2.499d+06, 1.013d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 7),i=1,10)/ 1.830d-04, 1.551d-03, 1.717d-03,
     & 2.798d-02, 6.933d-02, 1.727d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 7),i=1,10)/ 1.122d+04, 3.121d+04, 9.348d+04,
     & 4.792d+05, 2.052d+06, 3.291d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 7),i=1,10)/ 3.154d-04, 5.858d-04, 2.821d-03,
     & 3.456d-02, 8.550d-02, 2.598d-01, 2.163d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 7),i=1,10)/ 3.028d+03, 1.453d+04, 1.266d+05,
     & 5.511d+05, 2.414d+06, 3.713d+06, 1.357d+09, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 7),i=1,10)/ 7.762d-05, 2.947d-04, 2.841d-03,
     & 2.215d-02, 3.892d-02, 4.219d-01, 1.418d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 7),i=1,10)/ 2.836d+03, 1.624d+04, 8.427d+04,
     & 4.223d+05, 1.125d+06, 3.906d+06, 5.900d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 7),i=1,10)/ 1.085d-04, 1.099d-03, 5.443d-03,
     & 4.604d-02, 2.289d-01, 3.734d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 7),i=1,10)/ 7.952d+03, 2.367d+04, 9.201d+04,
     & 6.356d+05, 3.329d+06, 5.129d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 7),i=1,10)/ 1.162d-04, 2.105d-03, 4.080d-03,
     & 3.587d-02, 8.080d-02, 7.038d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 7),i=1,10)/ 3.547d+03, 2.672d+04, 9.898d+04,
     & 5.104d+05, 1.930d+06, 5.204d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 7),i=1,10)/ 3.682d-04, 1.807d-03, 8.768d-03,
     & 6.135d-02, 4.530d-01, 4.869d-01, 2.122d+02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 7),i=1,10)/ 1.077d+03, 2.773d+04, 1.191d+05,
     & 7.264d+05, 4.368d+06, 6.703d+06, 2.140d+10, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 7),i=1,10)/ 3.803d-04, 1.547d-03, 7.962d-03,
     & 5.152d-02, 2.004d-01, 9.423d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 7),i=1,10)/ 2.814d+03, 2.505d+04, 1.282d+05,
     & 6.453d+05, 3.169d+06, 6.733d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 7),i=1,10)/ 3.125d-04, 3.092d-03, 1.216d-02,
     & 6.128d-02, 1.730d-01, 1.162d+00, 1.752d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 7),i=1,10)/ 1.030d+04, 4.604d+04, 1.480d+05,
     & 7.860d+05, 3.301d+06, 7.175d+06, 8.061d+09, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 7),i=1,10)/ 3.284d-03, 9.460d-03, 5.698d-02,
     & 2.407d-01, 1.314d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 7),i=1,10)/ 1.545d+04, 7.077d+04, 6.005d+05,
     & 3.383d+06, 7.993d+06, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 7),i=1,10)/ 6.023d-04, 5.840d-03, 1.247d-02,
     & 7.276d-02, 3.120d-01, 1.458d+00, 1.656d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 7),i=1,10)/ 5.132d+03, 4.604d+04, 1.923d+05,
     & 8.460d+05, 4.222d+06, 8.800d+06, 4.998d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 7),i=1,10)/ 2.106d-03, 6.569d-03, 1.532d-02,
     & 3.799d-02, 7.669d-02, 6.701d-01, 1.298d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 7),i=1,10)/ 4.463d+03, 3.545d+04, 1.944d+05,
     & 6.148d+05, 1.635d+06, 6.100d+06, 1.026d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 7),i=1,10)/ 1.762d-03, 7.320d-03, 2.261d-02,
     & 8.218d-02, 3.839d-01, 1.870d+00, 4.275d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 7),i=1,10)/ 8.757d+03, 6.061d+04, 2.139d+05,
     & 9.470d+05, 4.648d+06, 1.032d+07, 1.135d+09, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 7),i=1,10)/ 1.685d-03, 1.129d-02, 2.219d-02,
     & 8.431d-02, 3.983d-01, 2.101d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 7),i=1,10)/ 2.629d+03, 6.494d+04, 2.360d+05,
     & 9.672d+05, 4.719d+06, 1.108d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 7),i=1,10)/ 3.540d-03, 1.067d-02, 3.050d-02,
     & 9.291d-02, 5.694d-01, 2.180d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 7),i=1,10)/ 1.603d+03, 6.812d+04, 2.659d+05,
     & 1.076d+06, 5.614d+06, 1.223d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 7),i=1,10)/ 1.512d-03, 1.430d-02, 2.785d-02,
     & 6.244d-02, 1.471d-01, 1.246d+00, 1.645d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 7),i=1,10)/ 8.677d+03, 6.398d+04, 2.689d+05,
     & 8.210d+05, 2.715d+06, 8.661d+06, 1.455d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i, 9, 8),i=1,10)/ 3.096d-09, 8.151d-09, 9.651d-09,
     & 1.431d-08, 5.503d-06, 9.522d-04, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i, 9, 8),i=1,10)/ 4.456d+00, 1.155d+02, 4.434d+02,
     & 1.404d+04, 1.296d+05, 2.380d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 8),i=1,10)/ 2.980d-08, 1.257d-07, 1.122d-06,
     & 2.626d-03, 8.802d-04, 1.231d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 8),i=1,10)/ 4.579d+01, 4.753d+02, 1.481d+04,
     & 2.810d+05, 4.763d+05, 4.677d+08, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 8),i=1,10)/ 3.117d-07, 1.869d-06, 5.359d-06,
     & 3.042d-03, 4.918d-03, 5.673d-04, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 8),i=1,10)/ 3.411d+02, 2.826d+03, 1.431d+04,
     & 2.867d+05, 5.574d+05, 1.215d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 8),i=1,10)/ 2.574d-06, 2.001d-06, 1.829d-05,
     & 2.362d-05, 6.413d-03, 4.118d-03, 7.224d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 8),i=1,10)/ 1.129d+02, 1.585d+03, 1.193d+04,
     & 4.151d+04, 3.684d+05, 6.925d+05, 1.150d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 8),i=1,10)/ 1.096d-06, 7.112d-06, 1.379d-05,
     & 7.521d-05, 4.704d-04, 1.179d-02, 2.374d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 8),i=1,10)/ 1.543d+03, 4.115d+03, 1.890d+04,
     & 7.137d+04, 2.873d+05, 5.406d+05, 1.418d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 8),i=1,10)/ 2.086d-06, 9.423d-06, 3.423d-05,
     & 3.950d-04, 1.535d-02, 4.986d-02, 4.067d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 8),i=1,10)/ 3.708d+02, 3.870d+03, 2.226d+04,
     & 1.318d+05, 5.285d+05, 1.742d+06, 8.392d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 8),i=1,10)/ 4.267d-06, 4.415d-05, 1.083d-04,
     & 1.020d-03, 1.842d-02, 3.816d-02, 5.215d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 8),i=1,10)/ 1.057d+03, 6.996d+03, 2.808d+04,
     & 1.712d+05, 6.095d+05, 1.845d+06, 2.373d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 8),i=1,10)/ 2.924d-05, 3.366d-04, 2.104d-04,
     & 1.910d-02,-4.017d-04, 6.541d-02, 9.546d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 8),i=1,10)/ 7.192d+02, 7.490d+03, 4.510d+04,
     & 5.586d+05, 3.830d+05, 1.976d+06, 2.894d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 8),i=1,10)/ 2.257d-05, 6.796d-05, 2.448d-04,
     & 3.062d-03, 2.900d-02, 2.278d-01, 2.475d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 8),i=1,10)/ 1.599d+03, 8.030d+03, 5.065d+04,
     & 2.973d+05, 8.159d+05, 2.999d+06, 6.580d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 8),i=1,10)/ 1.299d-05, 2.298d-04, 1.023d-03,
     & 9.294d-03, 3.957d-02, 3.174d-01, 3.450d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 8),i=1,10)/ 1.535d+03, 1.464d+04, 6.005d+04,
     & 4.186d+05, 1.213d+06, 3.562d+06, 5.367d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 8),i=1,10)/ 7.004d-05, 3.034d-04, 1.258d-03,
     & 1.743d-02, 5.124d-02, 4.398d-01, 1.119d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 8),i=1,10)/ 1.014d+03, 1.435d+04, 6.515d+04,
     & 5.808d+05, 1.661d+06, 4.153d+06, 1.795d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 8),i=1,10)/ 3.172d-04, 7.229d-04, 5.650d-04,
     & 2.096d-02, 9.479d-02, 5.528d-01, 1.308d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 8),i=1,10)/ 3.452d+03, 1.226d+04, 9.166d+04,
     & 6.084d+05, 2.203d+06, 4.865d+06, 2.751d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 8),i=1,10)/ 1.144d-04, 3.125d-04, 1.268d-03,
     & 2.518d-02, 9.349d-02, 7.214d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 8),i=1,10)/ 3.139d+03, 1.985d+04, 1.188d+05,
     & 6.612d+05, 2.289d+06, 5.372d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 8),i=1,10)/ 6.250d-05, 5.040d-04, 3.140d-03,
     & 3.137d-02, 9.763d-02, 8.181d-01, 8.169d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 8),i=1,10)/ 3.878d+03, 2.410d+04, 1.302d+05,
     & 7.612d+05, 2.654d+06, 5.705d+06, 9.183d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 8),i=1,10)/ 1.015d-04, 1.702d-03, 5.007d-03,
     & 3.709d-02, 8.722d-02, 1.110d+00, 1.219d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 8),i=1,10)/ 5.280d+03, 3.591d+04, 1.178d+05,
     & 8.547d+05, 2.599d+06, 6.447d+06, 2.407d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 8),i=1,10)/ 2.054d-04, 3.637d-03, 3.150d-03,
     & 4.207d-02, 9.411d-02, 4.532d-01, 8.638d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 8),i=1,10)/ 6.785d+03, 3.673d+04, 1.330d+05,
     & 9.161d+05, 3.229d+06, 5.409d+06, 8.193d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 8),i=1,10)/ 1.965d-04, 2.932d-03, 3.563d-03,
     & 4.839d-02, 2.397d-01, 1.389d+00, 1.099d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 8),i=1,10)/ 4.767d+03, 3.913d+04, 1.690d+05,
     & 9.825d+05, 3.938d+06, 8.149d+06, 7.460d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 8),i=1,10)/ 2.033d-04, 1.159d-03, 5.567d-03,
     & 5.482d-02, 3.370d-01, 1.518d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 8),i=1,10)/ 3.502d+03, 3.557d+04, 2.177d+05,
     & 1.078d+06, 4.515d+06, 9.050d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 8),i=1,10)/ 2.682d-04, 1.349d-03, 8.470d-03,
     & 6.186d-02, 2.756d-01, 1.780d+00, 9.760d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 8),i=1,10)/ 8.868d+03, 4.371d+04, 2.387d+05,
     & 1.191d+06, 4.431d+06, 9.551d+06, 1.029d+08, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 8),i=1,10)/ 2.734d-04, 1.839d-03, 1.211d-02,
     & 6.867d-02, 4.983d-01, 1.834d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 8),i=1,10)/ 8.502d+03, 5.098d+04, 2.427d+05,
     & 1.291d+06, 5.474d+06, 1.089d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 8),i=1,10)/ 2.772d-04, 3.515d-03, 1.847d-02,
     & 7.789d-02, 5.809d-01, 1.927d+00, 6.583d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 8),i=1,10)/ 3.945d+03, 6.464d+04, 2.459d+05,
     & 1.417d+06, 6.008d+06, 1.154d+07, 2.664d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 8),i=1,10)/ 1.771d-04, 8.102d-03, 1.921d-02,
     & 8.696d-02, 7.382d-01, 2.062d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 8),i=1,10)/ 7.113d+03, 7.969d+04, 2.579d+05,
     & 1.527d+06, 6.624d+06, 1.288d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,10, 9),i=1,10)/ 4.152d-09, 4.656d-09, 1.310d-08,
     & 1.417d-09, 7.968d-04, 1.271d-05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,10, 9),i=1,10)/ 2.689d+01, 2.021d+02, 7.200d+02,
     & 4.892d+04, 3.144d+05, 6.738d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11, 9),i=1,10)/ 2.756d-08, 8.094d-08, 8.456d-08,
     & 1.712d-03, 8.783d-04, 4.129d-06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11, 9),i=1,10)/ 2.134d+01, 4.550d+02, 1.602d+03,
     & 3.632d+05, 5.690d+05, 2.171d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12, 9),i=1,10)/ 9.400d-08, 3.818d-07, 2.064d-07,
     & 2.710d-05, 3.802d-03, 3.086d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12, 9),i=1,10)/ 2.660d+02, 1.141d+03, 3.210d+03,
     & 1.727d+05, 4.523d+05, 9.105d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13, 9),i=1,10)/ 3.238d-07, 1.152d-06, 2.336d-06,
     & 6.909d-06, 1.925d-03, 5.081d-03, 9.317d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13, 9),i=1,10)/ 2.488d+02, 1.793d+03, 9.919d+03,
     & 4.367d+04, 4.012d+05, 6.513d+05, 1.261d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14, 9),i=1,10)/ 7.163d-07, 2.656d-06, 1.119d-06,
     & 4.796d-05, 4.052d-03, 6.101d-03, 2.366d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14, 9),i=1,10)/ 5.625d+02, 2.952d+03, 9.682d+03,
     & 1.473d+05, 5.064d+05, 8.047d+05, 1.623d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15, 9),i=1,10)/ 1.366d-05, 5.884d-06, 1.645d-06,
     & 2.670d-04, 9.272d-03, 3.583d-02, 2.141d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15, 9),i=1,10)/ 7.064d+02, 4.529d+03, 1.369d+04,
     & 2.824d+05, 6.511d+05, 1.711d+06, 2.295d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16, 9),i=1,10)/ 2.585d-06, 9.517d-06, 5.194d-06,
     & 3.715d-04, 1.553d-02, 1.013d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16, 9),i=1,10)/ 1.277d+03, 5.978d+03, 2.097d+04,
     & 2.292d+05, 7.974d+05, 2.376d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17, 9),i=1,10)/ 4.411d-06, 1.673d-05, 4.946d-05,
     & 7.314d-04, 7.624d-03, 2.206d-02, 1.559d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17, 9),i=1,10)/ 7.915d+02, 7.093d+03, 4.185d+04,
     & 2.508d+05, 7.203d+05, 1.364d+06, 2.906d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18, 9),i=1,10)/ 6.816d-06, 3.234d-05, 2.038d-04,
     & 2.187d-03, 3.042d-02, 2.542d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18, 9),i=1,10)/ 2.083d+03, 1.096d+04, 4.999d+04,
     & 4.238d+05, 1.218d+06, 3.344d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19, 9),i=1,10)/ 1.028d-05, 3.912d-05, 2.908d-05,
     & 4.456d-03, 4.759d-02, 3.620d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19, 9),i=1,10)/ 1.446d+03, 1.149d+04, 4.416d+04,
     & 5.140d+05, 1.596d+06, 3.914d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20, 9),i=1,10)/ 1.420d-05, 5.390d-05, 9.249d-05,
     & 5.689d-03, 5.330d-02, 4.953d-01, 1.608d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20, 9),i=1,10)/ 4.047d+03, 1.614d+04, 7.385d+04,
     & 5.331d+05, 1.746d+06, 4.406d+06, 9.285d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21, 9),i=1,10)/ 2.048d-05, 8.478d-05, 3.820d-04,
     & 8.275d-03, 7.064d-02, 6.447d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21, 9),i=1,10)/ 3.207d+03, 1.856d+04, 9.749d+04,
     & 6.277d+05, 2.072d+06, 5.017d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22, 9),i=1,10)/ 4.940d-05, 2.716d-04, 7.942d-04,
     & 1.454d-02, 1.246d-01, 7.860d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22, 9),i=1,10)/ 2.500d+03, 1.606d+04, 9.998d+04,
     & 8.325d+05, 2.823d+06, 5.761d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23, 9),i=1,10)/ 7.220d-05, 1.162d-03, 1.712d-04,
     & 1.673d-02, 1.883d-01, 9.285d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23, 9),i=1,10)/ 7.649d+03, 2.484d+04, 1.204d+05,
     & 8.823d+05, 3.324d+06, 6.527d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24, 9),i=1,10)/ 4.964d-05, 1.759d-04, 4.590d-04,
     & 1.902d-02, 2.169d-01, 1.123d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24, 9),i=1,10)/ 3.497d+03, 2.756d+04, 1.387d+05,
     & 9.092d+05, 3.640d+06, 7.150d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25, 9),i=1,10)/ 6.185d-05, 2.207d-04, 1.158d-03,
     & 2.408d-02, 3.187d-01, 1.264d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25, 9),i=1,10)/ 9.539d+03, 3.721d+04, 1.897d+05,
     & 1.026d+06, 4.201d+06, 8.097d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26, 9),i=1,10)/ 8.207d-05, 2.766d-04, 1.897d-03,
     & 2.842d-02, 4.022d-01, 1.434d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26, 9),i=1,10)/ 6.365d+03, 3.842d+04, 2.002d+05,
     & 1.150d+06, 4.736d+06, 8.891d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27, 9),i=1,10)/ 9.885d-05, 5.007d-04, 2.833d-03,
     & 3.415d-02, 3.743d-01, 1.703d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27, 9),i=1,10)/ 1.717d+04, 5.894d+04, 2.005d+05,
     & 1.290d+06, 4.814d+06, 9.477d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28, 9),i=1,10)/ 1.505d-04, 1.332d-03, 4.083d-03,
     & 3.905d-02, 3.896d-01, 1.942d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28, 9),i=1,10)/ 4.752d+03, 5.608d+04, 1.810d+05,
     & 1.397d+06, 5.038d+06, 1.021d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29, 9),i=1,10)/ 2.533d-04, 3.926d-03, 1.910d-03,
     & 4.301d-02, 6.300d-01, 1.961d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29, 9),i=1,10)/ 2.540d+04, 6.956d+04, 2.377d+05,
     & 1.466d+06, 6.001d+06, 1.145d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30, 9),i=1,10)/ 3.640d-03, 6.501d-04, 2.472d-03,
     & 4.848d-02, 1.214d+00, 1.647d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30, 9),i=1,10)/ 8.377d+03, 3.615d+04, 2.566d+05,
     & 1.566d+06, 7.424d+06, 1.383d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,11,10),i=1,10)/ 2.673d-06, 1.918d-04, 1.491d-05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,11,10),i=1,10)/ 3.027d+05, 3.732d+05, 4.787d+05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12,10),i=1,10)/ 6.269d-06, 9.181d-04, 3.082d-04,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12,10),i=1,10)/ 4.104d+05, 5.766d+05, 7.310d+05,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13,10),i=1,10)/ 2.468d-05, 2.913d-03, 7.028d-04,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13,10),i=1,10)/ 5.375d+05, 8.436d+05, 1.220d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14,10),i=1,10)/ 1.422d-04, 9.474d-03, 1.650d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14,10),i=1,10)/ 7.685d+05, 1.208d+06, 1.839d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15,10),i=1,10)/ 5.482d-04, 2.391d-02, 3.478d-03,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15,10),i=1,10)/ 9.520d+05, 1.598d+06, 2.594d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16,10),i=1,10)/ 3.931d-05, 4.431d-03, 5.156d-02,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16,10),i=1,10)/ 9.455d+05, 1.365d+06, 2.169d+06,
     & 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17,10),i=1,10)/ 1.698d-04, 5.325d-02, 5.717d-02,
     &-5.152d-03, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17,10),i=1,10)/ 1.146d+06, 2.055d+06, 3.348d+06,
     & 7.186d+06, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18,10),i=1,10)/ 4.331d-04, 9.003d-02, 8.756d-02,
     &-1.061d-02, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18,10),i=1,10)/ 1.351d+06, 2.428d+06, 4.147d+06,
     & 8.446d+06, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19,10),i=1,10)/ 1.105d-03, 1.401d-01, 1.187d-01,
     &-1.088d-02, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19,10),i=1,10)/ 1.586d+06, 2.822d+06, 4.900d+06,
     & 1.090d+07, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20,10),i=1,10)/ 2.582d-03, 2.139d-01, 1.622d-01,
     &-1.290d-02, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20,10),i=1,10)/ 1.843d+06, 3.280d+06, 5.733d+06,
     & 1.592d+07, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21,10),i=1,10)/ 2.067d-04, 1.430d-02, 3.308d-01,
     & 1.649d-01, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21,10),i=1,10)/ 1.764d+06, 2.395d+06, 3.927d+06,
     & 6.349d+06, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22,10),i=1,10)/ 2.689d-04, 2.456d-02, 4.341d-01,
     & 1.991d-01, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22,10),i=1,10)/ 1.950d+06, 2.697d+06, 4.469d+06,
     & 7.175d+06, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23,10),i=1,10)/ 3.408d-04, 3.619d-02, 5.639d-01,
     & 2.305d-01, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23,10),i=1,10)/ 2.143d+06, 2.999d+06, 5.072d+06,
     & 8.185d+06, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24,10),i=1,10)/ 4.254d-04, 4.884d-02, 7.084d-01,
     & 2.630d-01, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24,10),i=1,10)/ 2.344d+06, 3.315d+06, 5.702d+06,
     & 9.254d+06, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25,10),i=1,10)/ 4.460d-04, 5.456d-02, 8.950d-01,
     & 2.852d-01, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25,10),i=1,10)/ 2.546d+06, 3.590d+06, 6.378d+06,
     & 1.074d+07, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26,10),i=1,10)/ 6.342d-04, 8.350d-02, 1.045d+00,
     & 3.663d-01,-3.955d-02, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,10),i=1,10)/ 2.770d+06, 3.978d+06, 7.052d+06,
     & 1.300d+07, 3.579d+07, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27,10),i=1,10)/ 6.806d-04, 1.110d-01, 1.257d+00,
     & 3.878d-01,-5.179d-02, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27,10),i=1,10)/ 2.987d+06, 4.313d+06, 7.789d+06,
     & 1.499d+07, 3.363d+07, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28,10),i=1,10)/ 8.974d-04, 1.503d-01, 1.430d+00,
     & 4.124d-01,-4.913d-02, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28,10),i=1,10)/ 3.226d+06, 4.706d+06, 8.532d+06,
     & 1.628d+07, 5.007d+07, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29,10),i=1,10)/ 9.665d-04, 1.824d-01, 1.644d+00,
     & 4.420d-01,-6.744d-02, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29,10),i=1,10)/ 3.459d+06, 5.060d+06, 9.326d+06,
     & 1.865d+07, 4.223d+07, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30,10),i=1,10)/ 1.214d-03, 2.324d-01, 1.834d+00,
     & 4.752d-01,-6.907d-02, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30,10),i=1,10)/ 3.712d+06, 5.472d+06, 1.012d+07,
     & 2.002d+07, 4.497d+07, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,12,11),i=1,10)/ 3.871d-08, 4.732d-07, 1.599d-03,
     & 2.628d-05, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,12,11),i=1,10)/ 8.415d+03, 1.682d+04, 5.000d+04,
     & 2.759d+05, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13,11),i=1,10)/ 1.629d-06, 3.584d-06, 1.244d-05,
     & 4.155d-03, 2.904d-04, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13,11),i=1,10)/ 3.809d+03, 5.120d+03, 2.166d+04,
     & 7.635d+04, 8.477d+05, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14,11),i=1,10)/ 3.819d-06, 2.421d-05, 2.283d-04,
     & 8.604d-03, 2.617d-03, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14,11),i=1,10)/ 3.802d+03, 1.280d+04, 5.953d+04,
     & 1.026d+05, 1.154d+06, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15,11),i=1,10)/ 2.722d-07, 7.538d-05, 1.466d-04,
     & 1.402d-02, 5.283d-04, 3.280d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15,11),i=1,10)/ 3.732d+03, 2.407d+04, 5.213d+04,
     & 1.247d+05, 8.053d+05, 1.513d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16,11),i=1,10)/ 2.816d-06, 3.172d-05, 1.832d-04,
     & 4.360d-03, 1.618d-02, 7.707d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16,11),i=1,10)/ 7.590d+03, 1.558d+04, 4.013d+04,
     & 1.156d+05, 1.601d+05, 1.839d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17,11),i=1,10)/ 2.041d-05, 2.386d-04, 8.413d-04,
     & 2.724d-02, 8.375d-03, 1.595d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17,11),i=1,10)/ 1.279d+04, 2.238d+04, 6.587d+04,
     & 1.786d+05, 1.782d+06, 2.767d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18,11),i=1,10)/ 1.016d-04, 7.473d-04, 3.394d-02,
     & 2.398d-03, 2.530d-02, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18,11),i=1,10)/ 1.513d+04, 4.784d+04, 1.926d+05,
     & 6.904d+05, 2.715d+06, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19,11),i=1,10)/ 1.030d-06, 3.755d-04, 1.354d-03,
     & 4.108d-02, 4.373d-03, 4.094d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19,11),i=1,10)/ 2.685d+03, 1.684d+04, 5.729d+04,
     & 2.141d+05, 8.556d+05, 3.198d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20,11),i=1,10)/ 6.508d-05, 8.795d-04, 6.576d-03,
     & 4.780d-02, 5.167d-02, 1.859d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20,11),i=1,10)/ 3.711d+03, 4.421d+04, 1.189d+05,
     & 2.603d+05, 3.099d+06, 5.016d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21,11),i=1,10)/ 1.120d-04, 1.532d-03, 2.899d-03,
     & 5.815d-02, 9.603d-03, 1.027d-01, 6.511d-04, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21,11),i=1,10)/ 2.655d+03, 1.861d+04, 5.316d+04,
     & 2.604d+05, 1.186d+06, 4.210d+06, 1.896d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22,11),i=1,10)/ 1.264d-04, 8.031d-04, 4.274d-03,
     & 6.761d-02, 1.252d-02, 1.583d-01, 1.625d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22,11),i=1,10)/ 4.550d+03, 1.434d+04, 9.989d+04,
     & 2.879d+05, 1.331d+06, 4.770d+06, 3.999d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23,11),i=1,10)/ 3.510d-05, 1.137d-03, 8.161d-03,
     & 7.833d-02, 2.057d-02, 5.152d-02, 1.922d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23,11),i=1,10)/ 1.209d+04, 4.097d+04, 1.163d+05,
     & 3.182d+05, 1.659d+06, 4.589d+06, 5.804d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24,11),i=1,10)/ 1.437d-04, 2.295d-03, 1.174d-02,
     & 8.706d-02, 3.242d-02, 1.170d-01, 2.616d-01, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24,11),i=1,10)/ 8.994d+03, 2.734d+04, 1.091d+05,
     & 3.430d+05, 1.913d+06, 5.724d+06, 6.593d+06, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25,11),i=1,10)/ 1.050d-03, 5.850d-03, 1.115d-02,
     & 9.993d-02, 6.156d-02, 5.521d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25,11),i=1,10)/ 9.125d+03, 2.730d+04, 1.065d+05,
     & 3.718d+05, 2.640d+06, 7.225d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26,11),i=1,10)/ 7.676d-04, 5.587d-03, 1.152d-01,
     & 4.929d-02, 7.274d-01, 7.347d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,11),i=1,10)/ 2.935d+04, 8.158d+04, 3.591d+05,
     & 1.735d+06, 7.545d+06, 4.634d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27,11),i=1,10)/ 1.243d-03, 8.226d-03, 1.223d-01,
     & 4.428d-02, 3.794d-01, 5.032d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27,11),i=1,10)/ 1.105d+04, 8.003d+04, 3.613d+05,
     & 1.193d+06, 6.235d+06, 9.861d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28,11),i=1,10)/ 3.419d-04, 4.806d-03, 3.420d-02,
     & 1.305d-01, 1.145d-01, 9.603d-01, 1.076d-02, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28,11),i=1,10)/ 1.531d+04, 4.515d+04, 1.905d+05,
     & 4.703d+05, 3.115d+06, 9.270d+06, 3.490d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29,11),i=1,10)/ 3.268d-03, 8.279d-03, 4.809d-02,
     & 1.384d-01, 2.247d-01, 1.030d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29,11),i=1,10)/ 1.353d+04, 6.265d+04, 2.089d+05,
     & 5.423d+05, 4.439d+06, 1.059d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30,11),i=1,10)/ 8.941d-04, 1.879d-02, 4.694d-02,
     & 1.560d-01, 2.083d-01, 1.258d+00, 8.934d-03, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30,11),i=1,10)/ 8.004d+03, 5.730d+04, 2.268d+05,
     & 5.609d+05, 4.164d+06, 1.106d+07, 3.900d+07, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,13,12),i=1,10)/ 4.495d-07, 2.610d-06, 3.816d-03,
     & 5.803d-04, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,13,12),i=1,10)/ 4.937d+03, 1.395d+04, 8.258d+04,
     & 1.103d+05, 0.000d+00, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,14,12),i=1,10)/ 2.930d-06, 2.803d-06, 9.023d-05,
     & 6.909d-03, 2.582d-05, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,14,12),i=1,10)/ 1.162d+02, 5.721d+03, 3.477d+04,
     & 1.176d+05, 3.505d+06, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,15,12),i=1,10)/ 6.763d-06, 3.864d-06, 3.456d-05,
     & 2.562d-04, 1.430d-02, 2.623d-04, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,15,12),i=1,10)/ 1.532d+03, 2.588d+03, 7.095d+03,
     & 4.171d+04, 1.477d+05, 1.083d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,16,12),i=1,10)/ 9.571d-06, 6.268d-05, 3.807d-04,
     & 1.874d-02, 5.526d-03, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,16,12),i=1,10)/ 1.180d+03, 6.443d+03, 2.264d+04,
     & 1.530d+05, 3.564d+05, 0.000d+00, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,17,12),i=1,10)/ 1.298d-05, 6.784d-05, 2.295d-04,
     & 3.446d-03, 3.153d-02, 2.824d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,17,12),i=1,10)/ 1.010d+03, 3.305d+03, 1.717d+04,
     & 8.541d+04, 2.098d+05, 2.381d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,18,12),i=1,10)/ 5.219d-05, 3.268d-04, 1.514d-03,
     & 5.551d-03, 4.596d-02, 7.266d-03, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,18,12),i=1,10)/ 1.469d+03, 5.106d+03, 2.347d+04,
     & 1.104d+05, 2.415d+05, 2.713d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,19,12),i=1,10)/ 9.176d-05, 1.519d-04, 2.585d-03,
     & 1.364d-02, 5.097d-02, 1.478d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,19,12),i=1,10)/ 1.915d+03, 6.277d+03, 3.614d+04,
     & 1.467d+05, 2.860d+05, 3.142d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,20,12),i=1,10)/ 1.697d-04, 7.725d-04, 5.140d-03,
     & 3.397d-02, 4.806d-02, 2.745d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,20,12),i=1,10)/ 1.590d+03, 7.651d+03, 4.282d+04,
     & 2.047d+05, 3.459d+05, 3.715d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,21,12),i=1,10)/ 1.474d-04, 2.209d-03, 7.660d-03,
     & 8.018d-02, 1.978d-02, 4.575d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,21,12),i=1,10)/ 3.767d+03, 1.589d+04, 5.182d+04,
     & 2.698d+05, 5.686d+05, 4.220d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,22,12),i=1,10)/ 8.273d-04, 2.017d-03, 1.378d-02,
     & 1.013d-01, 1.471d-02, 7.139d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,22,12),i=1,10)/ 2.485d+03, 1.024d+04, 7.455d+04,
     & 3.173d+05, 9.210d+05, 4.932d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,23,12),i=1,10)/ 2.311d-04, 2.759d-03, 1.129d-02,
     & 5.990d-02, 8.430d-02, 1.084d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,23,12),i=1,10)/ 3.489d+03, 1.748d+04, 8.329d+04,
     & 3.717d+05, 7.715d+05, 5.480d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,24,12),i=1,10)/ 5.905d-05, 9.600d-04, 6.084d-03,
     & 1.501d-01, 3.658d-02, 1.516d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,24,12),i=1,10)/ 3.264d+03, 1.786d+04, 1.155d+05,
     & 5.017d+05, 1.482d+06, 6.212d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,25,12),i=1,10)/ 2.366d-03, 5.896d-03, 3.070d-02,
     & 1.583d-01, 3.571d-02, 1.973d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,25,12),i=1,10)/ 3.889d+03, 1.914d+04, 1.155d+05,
     & 4.511d+05, 3.366d+06, 7.114d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26,12),i=1,10)/ 5.636d-04, 7.860d-03, 5.063d-02,
     & 1.753d-01, 1.209d-01, 1.934d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,12),i=1,10)/ 3.628d+03, 2.489d+04, 1.405d+05,
     & 5.133d+05, 5.018d+06, 8.689d+06, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,27,12),i=1,10)/ 9.588d-04, 6.088d-03, 6.343d-02,
     & 2.017d-01, 3.882d-01, 1.544d-02, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,27,12),i=1,10)/ 4.456d+03, 2.764d+04, 1.538d+05,
     & 5.872d+05, 7.474d+06, 2.795d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,28,12),i=1,10)/ 1.245d-03, 9.965d-03, 7.187d-02,
     & 2.085d-01, 1.244d-01, 3.076d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,28,12),i=1,10)/ 4.018d+03, 3.701d+04, 1.603d+05,
     & 6.190d+05, 5.227d+06, 1.031d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,29,12),i=1,10)/ 2.213d-03, 2.605d-02, 8.267d-02,
     & 2.375d-01, 5.413d-01, 1.318d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,29,12),i=1,10)/ 6.663d+03, 3.949d+04, 2.018d+05,
     & 7.130d+05, 8.237d+06, 1.545d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,30,12),i=1,10)/ 3.351d-03, 1.588d-02, 1.090d-01,
     & 2.493d-01, 2.751d-01, 5.147d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,30,12),i=1,10)/ 7.215d+03, 3.479d+04, 2.271d+05,
     & 7.631d+05, 6.263d+06, 1.210d+07, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/

c      data(Cbn(i,26,12),i=1,10)/ 5.636d-04, 7.390d-03, 3.635d-02,
c     & 1.693d-01, 3.315d-02, 2.288d-01, 7.316d-02, 0.000d+00,
c     & 0.000d+00, 0.000d+00/
c      data(Ebn(i,26,12),i=1,10)/ 3.628d+03, 2.432d+04, 1.226d+05,
c     & 4.351d+05, 1.411d+06, 6.589d+06, 1.030d+07, 0.000d+00,
c     & 0.000d+00, 0.000d+00/  
      data(Cbn(i,26,13),i=1,10)/ 1.090d-03, 7.801d-03, 1.132d-02,
     & 4.740d-02, 1.990d-01, 3.379d-02, 1.140d-01, 1.250d-01,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,13),i=1,10)/ 1.246d+03, 1.063d+04, 4.719d+04,
     & 1.952d+05, 5.637d+05, 2.248d+06, 7.202d+06, 3.999d+09,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26,14),i=1,10)/ 3.266d-03, 7.637d-03, 1.005d-02,
     & 2.527d-02, 6.389d-02, 1.564d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,14),i=1,10)/ 1.242d+03, 1.001d+04, 4.466d+04,
     & 1.497d+05, 3.919d+05, 6.853d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26,15),i=1,10)/ 1.074d-03, 6.080d-03, 1.887d-02,
     & 2.540d-02, 7.580d-02, 2.773d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,15),i=1,10)/ 1.387d+03, 1.048d+04, 3.955d+04,
     & 1.461d+05, 4.010d+05, 7.208d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26,16),i=1,10)/ 9.073d-04, 3.777d-03, 1.027d-02,
     & 3.321d-02, 8.529d-02, 2.778d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,16),i=1,10)/ 1.525d+03, 1.071d+04, 4.033d+04,
     & 1.564d+05, 4.196d+05, 7.580d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26,17),i=1,10)/ 5.335d-04, 1.827d-03, 4.851d-03,
     & 2.710d-02, 8.226d-02, 3.147d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,17),i=1,10)/ 2.032d+03, 1.018d+04, 4.638d+04,
     & 1.698d+05, 4.499d+05, 7.880d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Cbn(i,26,18),i=1,10)/ 7.421d-04, 2.526d-03, 4.605d-03,
     & 1.489d-02, 5.891d-02, 2.318d-01, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/
      data(Ebn(i,26,18),i=1,10)/ 3.468d+03, 1.353d+04, 3.690d+04,
     & 1.957d+05, 4.630d+05, 8.202d+05, 0.000d+00, 0.000d+00,
     & 0.000d+00, 0.000d+00/

      END
