Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/processes/hadronic/cross_sections/src/G4ElectroNuclearCrossSection.cc

Version: [ ReleaseNotes ] [ 1.0 ] [ 1.1 ] [ 2.0 ] [ 3.0 ] [ 3.1 ] [ 3.2 ] [ 4.0 ] [ 4.0.p1 ] [ 4.0.p2 ] [ 4.1 ] [ 4.1.p1 ] [ 5.0 ] [ 5.0.p1 ] [ 5.1 ] [ 5.1.p1 ] [ 5.2 ] [ 5.2.p1 ] [ 5.2.p2 ] [ 6.0 ] [ 6.0.p1 ] [ 6.1 ] [ 6.2 ] [ 6.2.p1 ] [ 6.2.p2 ] [ 7.0 ] [ 7.0.p1 ] [ 7.1 ] [ 7.1.p1 ] [ 8.0 ] [ 8.0.p1 ] [ 8.1 ] [ 8.1.p1 ] [ 8.1.p2 ] [ 8.2 ] [ 8.2.p1 ] [ 8.3 ] [ 8.3.p1 ] [ 8.3.p2 ] [ 9.0 ] [ 9.0.p1 ] [ 9.0.p2 ] [ 9.1 ] [ 9.1.p1 ] [ 9.1.p2 ] [ 9.1.p3 ] [ 9.2 ] [ 9.2.p1 ] [ 9.2.p2 ] [ 9.2.p3 ] [ 9.2.p4 ] [ 9.3 ] [ 9.3.p1 ] [ 9.3.p2 ] [ 9.4 ] [ 9.4.p1 ] [ 9.4.p2 ] [ 9.4.p3 ] [ 9.4.p4 ] [ 9.5 ] [ 9.5.p1 ] [ 9.5.p2 ] [ 9.6 ] [ 9.6.p1 ] [ 9.6.p2 ] [ 9.6.p3 ] [ 9.6.p4 ] [ 10.0 ] [ 10.0.p1 ] [ 10.0.p2 ] [ 10.0.p3 ] [ 10.0.p4 ] [ 10.1 ] [ 10.1.p1 ] [ 10.1.p2 ] [ 10.1.p3 ] [ 10.2 ] [ 10.2.p1 ] [ 10.2.p2 ] [ 10.2.p3 ] [ 10.3 ] [ 10.3.p1 ] [ 10.3.p2 ] [ 10.3.p3 ] [ 10.4 ] [ 10.4.p1 ] [ 10.4.p2 ] [ 10.4.p3 ] [ 10.5 ] [ 10.5.p1 ] [ 10.6 ] [ 10.6.p1 ] [ 10.6.p2 ] [ 10.6.p3 ] [ 10.7 ] [ 10.7.p1 ] [ 10.7.p2 ] [ 10.7.p3 ] [ 10.7.p4 ] [ 11.0 ] [ 11.0.p1 ] [ 11.0.p2 ] [ 11.0.p3, ] [ 11.0.p4 ] [ 11.1 ] [ 11.1.1 ] [ 11.1.2 ] [ 11.1.3 ] [ 11.2 ] [ 11.2.1 ] [ 11.2.2 ] [ 11.3.0 ]

Diff markup

Differences between /processes/hadronic/cross_sections/src/G4ElectroNuclearCrossSection.cc (Version 11.3.0) and /processes/hadronic/cross_sections/src/G4ElectroNuclearCrossSection.cc (Version 10.0.p1)


  1 //                                                  1 //
  2 // *******************************************      2 // ********************************************************************
  3 // * License and Disclaimer                         3 // * License and Disclaimer                                           *
  4 // *                                                4 // *                                                                  *
  5 // * The  Geant4 software  is  copyright of th      5 // * The  Geant4 software  is  copyright of the Copyright Holders  of *
  6 // * the Geant4 Collaboration.  It is provided      6 // * the Geant4 Collaboration.  It is provided  under  the terms  and *
  7 // * conditions of the Geant4 Software License      7 // * conditions of the Geant4 Software License,  included in the file *
  8 // * LICENSE and available at  http://cern.ch/      8 // * LICENSE and available at  http://cern.ch/geant4/license .  These *
  9 // * include a list of copyright holders.           9 // * include a list of copyright holders.                             *
 10 // *                                               10 // *                                                                  *
 11 // * Neither the authors of this software syst     11 // * Neither the authors of this software system, nor their employing *
 12 // * institutes,nor the agencies providing fin     12 // * institutes,nor the agencies providing financial support for this *
 13 // * work  make  any representation or  warran     13 // * work  make  any representation or  warranty, express or implied, *
 14 // * regarding  this  software system or assum     14 // * regarding  this  software system or assume any liability for its *
 15 // * use.  Please see the license in the file      15 // * use.  Please see the license in the file  LICENSE  and URL above *
 16 // * for the full disclaimer and the limitatio     16 // * for the full disclaimer and the limitation of liability.         *
 17 // *                                               17 // *                                                                  *
 18 // * This  code  implementation is the result      18 // * This  code  implementation is the result of  the  scientific and *
 19 // * technical work of the GEANT4 collaboratio     19 // * technical work of the GEANT4 collaboration.                      *
 20 // * By using,  copying,  modifying or  distri     20 // * By using,  copying,  modifying or  distributing the software (or *
 21 // * any work based  on the software)  you  ag     21 // * any work based  on the software)  you  agree  to acknowledge its *
 22 // * use  in  resulting  scientific  publicati     22 // * use  in  resulting  scientific  publications,  and indicate your *
 23 // * acceptance of all terms of the Geant4 Sof     23 // * acceptance of all terms of the Geant4 Software license.          *
 24 // *******************************************     24 // ********************************************************************
 25 //                                                 25 //
                                                   >>  26 // $Id: G4ElectroNuclearCrossSection.cc 73758 2013-09-10 12:47:00Z gcosmo $
 26 //                                                 27 //
 27 // G4 Physics class: G4ElectroNuclearCrossSect     28 // G4 Physics class: G4ElectroNuclearCrossSection for gamma+A cross sections
 28 // Created: M.V. Kossov, CERN/ITEP(Moscow), 10     29 // Created: M.V. Kossov, CERN/ITEP(Moscow), 10-OCT-01
 29 // The last update: M.V. Kossov, CERN/ITEP (Mo     30 // The last update: M.V. Kossov, CERN/ITEP (Moscow) 17-Oct-03
 30                                                    31 
 31 // A. Dotti 2-May-2013: I keep exactly the sam     32 // A. Dotti 2-May-2013: I keep exactly the same algorithm, including the same
 32 //                      general assumptions ab     33 //                      general assumptions about optimization (i.e. cache
 33 //                      and "lastSeen" reuse),     34 //                      and "lastSeen" reuse), but I rewrite the caching
 34 //                      mechanism and redue th     35 //                      mechanism and redue the use of TLS.
 35 //                      On simple setups this      36 //                      On simple setups this algo should be 40%
 36 //                      faster                     37 //                      faster
 37 // W. Pokorski 29-08-2013: Major clean up, res     38 // W. Pokorski 29-08-2013: Major clean up, restructuring and speed up of the code. The calculation
 38 //                      of the cross section i     39 //                      of the cross section is stil the same but it is not done per isotope (Z, N),
 39 //                      but per element (Z). A     40 //                      but per element (Z). Average is taken for NIST.
 40                                                    41 
 41 #include <iostream>                                42 #include <iostream>
 42                                                    43 
 43 #include "G4SystemOfUnits.hh"                      44 #include "G4SystemOfUnits.hh"
 44 #include "G4PhysicalConstants.hh"              << 
 45 #include "G4HadTmpUtil.hh"                         45 #include "G4HadTmpUtil.hh"
 46 #include "G4ElectroNuclearCrossSection.hh"         46 #include "G4ElectroNuclearCrossSection.hh"
 47                                                    47 
 48 // factory                                         48 // factory
 49 #include "G4CrossSectionFactory.hh"                49 #include "G4CrossSectionFactory.hh"
 50 //                                                 50 //
 51 G4_DECLARE_XS_FACTORY(G4ElectroNuclearCrossSec     51 G4_DECLARE_XS_FACTORY(G4ElectroNuclearCrossSection);
 52                                                    52 
 53 //                                                 53 //
 54 //A. Dotti 2-May-2013                              54 //A. Dotti 2-May-2013
 55 //Optimizing code                                  55 //Optimizing code
 56                                                    56 
 57 // W. Pokorski 22-August-2013                      57 // W. Pokorski 22-August-2013
 58 // Moved cache element to header file              58 // Moved cache element to header file
 59 // all static variables moved to private membe     59 // all static variables moved to private members
 60                                                    60 
 61 // removing all the static consts and putting      61 // removing all the static consts and putting them here
 62                                                    62 
 63 // Parametrization of the PhotoNucCS               63 // Parametrization of the PhotoNucCS
 64 static const G4double sLowEnergyLimit = 100.;  << 
 65 static const G4double shd=1.0734;                  64 static const G4double shd=1.0734;              // HE PomShadowing(D)
 66 static const G4double poc=0.0375;                  65 static const G4double poc=0.0375;              // HE Pomeron coefficient
 67 static const G4double pos=16.5;                    66 static const G4double pos=16.5;                // HE Pomeron shift
 68 static const G4double reg=.11;                     67 static const G4double reg=.11;                 // HE Reggeon slope
 69 static const G4double mel=0.5109989;               68 static const G4double mel=0.5109989;           // Mass of an electron in MeV
 70 static const G4double mel2=mel*mel;     // Squ     69 static const G4double mel2=mel*mel;     // Squared Mass of electron in MeV
 71 static const G4double lmel=G4Log(mel);      // <<  70 static const G4double lmel=std::log(mel);      // Log of an electron mass
 72 //                                                 71 //
 73 static const G4int nE=336;                         72 static const G4int nE=336;
 74 static const G4int mLL=nE-1;                   <<  73 static const G4int mL=nE-1;
 75 static const G4double EMi=2.0612; // Minimum t     74 static const G4double EMi=2.0612; // Minimum tabulated Energy of the Electron
 76 static const G4double EMa=50000.; // Maximum t     75 static const G4double EMa=50000.; // Maximum tabulated Energy of the Electron
 77 static const G4double EMa2=EMa*EMa; // Maximum     76 static const G4double EMa2=EMa*EMa; // Maximum tabulated Energy of the Electron ^2
 78 static const G4double lEMi=G4Log(EMi);  // Min <<  77 static const G4double lEMi=std::log(EMi);  // Minimum tabulated logarithmic Energy of the Electron
 79 static const G4double lEMa=G4Log(EMa);  // Max <<  78 static const G4double lEMa=std::log(EMa);  // Maximum tabulated logarithmic Energy of the Electron
 80 static const G4double lEMa2=lEMa*lEMa;  // Max     79 static const G4double lEMa2=lEMa*lEMa;  // Maximum tabulated logarithmic Energy of the Electron ^2
 81 static const G4double dlnE=(lEMa-lEMi)/mLL; // <<  80 static const G4double dlnE=(lEMa-lEMi)/mL; // Logarithmic step in the table for the electron Energy
 82 static const G4double alop=1./137.036/3.141592     81 static const G4double alop=1./137.036/3.14159265; //coef. for the calculated functions (Ee>50000.)
 83 static const G4double le1=(lEMa-1.)*EMa;  // ( <<  82 static const G4double le1=(lEMa-1.)*EMa;  // (std::log(E0)-1)*E0
 84 static const G4double leh=(lEMa-.5)*EMa2; // ( <<  83 static const G4double leh=(lEMa-.5)*EMa2; // (std::log(E0)-.5)*E0^2
 85 //                                                 84 //
 86 static const G4double ha=poc*.5;        // a/2     85 static const G4double ha=poc*.5;        // a/2
 87 static const G4double hab=ha*pos;    // a*b/2      86 static const G4double hab=ha*pos;    // a*b/2
 88 static const G4double ab=poc*pos;      // a*b      87 static const G4double ab=poc*pos;      // a*b
 89 static const G4double d1 = 1 - reg;                88 static const G4double d1 = 1 - reg;
 90 static const G4double d2 = 2 - reg;                89 static const G4double d2 = 2 - reg;
 91 static const G4double cd=shd/reg;    // c/d        90 static const G4double cd=shd/reg;    // c/d
 92 static const G4double cd1=shd/d1;    // c/d1       91 static const G4double cd1=shd/d1;    // c/d1
 93 static const G4double cd2=shd/d2;    // c/d2       92 static const G4double cd2=shd/d2;    // c/d2
 94 static const G4double ele=G4Exp(-reg*lEMa); // <<  93 static const G4double ele=std::exp(-reg*lEMa); // E0^(-d)
 95 static const G4double ele1=G4Exp(d1*lEMa); //  <<  94 static const G4double ele1=std::exp(d1*lEMa); // E0^(-d1)
 96 static const G4double ele2=G4Exp(d2*lEMa); //  <<  95 static const G4double ele2=std::exp(d2*lEMa); // E0^(-d2)
 97 //                                                 96 //
 98 static const G4double phte=poc*(lEMa-pos)+shd*     97 static const G4double phte=poc*(lEMa-pos)+shd*ele; // CrossX on theHighTableEdge (small change)
 99 static const G4int    imax=27;   // Not more t     98 static const G4int    imax=27;   // Not more than "imax" steps to find the solution
100 static const G4double eps=0.001; // Accuracy w     99 static const G4double eps=0.001; // Accuracy which satisfies the search
101 //                                                100 //
102 static const G4double infEn = 9.e27;              101 static const G4double infEn = 9.e27;
103 //                                                102 //
104 static const G4double dM=938.27+939.57; // Mea    103 static const G4double dM=938.27+939.57; // Mean double nucleon mass = m_n+m_p (@@ no binding)
105 static const G4double Q0=843.;          // Coe    104 static const G4double Q0=843.;          // Coefficient of the dipole nucleonic form-factor
106 static const G4double Q02=Q0*Q0;        // Squ    105 static const G4double Q02=Q0*Q0;        // Squared coefficient of the dipole nucleonic form-factor
107 static const G4double blK0=G4Log(185.);   // C << 106 static const G4double blK0=std::log(185.);   // Coefficient of the b-function
108 static const G4double bp=0.85;          // Pow    107 static const G4double bp=0.85;          // Power of the b-function
109 static const G4double clK0=G4Log(1390.);  // C << 108 static const G4double clK0=std::log(1390.);  // Coefficient of the c-function
110 static const G4double cp=3.;            // Pow    109 static const G4double cp=3.;            // Power of the c-function
111 //                                                110 //
112 static const G4int nN=14;                         111 static const G4int nN=14;
113 //                                                112 //
114 static const G4int LL[nN]={138, 2, 32, 75, 26, << 113 static const G4int L[nN]={138, 2, 32, 75, 26, 41, 0, 67, 58, 46, 41, 38, 39, 36};
115 // !! @@ Change it from ln(A) to A approximati    114 // !! @@ Change it from ln(A) to A approximation !!
116 static const G4double A[nN]={1.,2.,3.,4.,6.,7.    115 static const G4double A[nN]={1.,2.,3.,4.,6.,7.,9.,12.,16.,27.,63.546,118.71,207.2,238.472};
117 //                                                116 //
118 static const G4double P00[nE]={                   117 static const G4double P00[nE]={
119     0.000000e+00,0.000000e+00,0.000000e+00,0.0    118     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
120     0.000000e+00,0.000000e+00,0.000000e+00,0.0    119     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
121     0.000000e+00,0.000000e+00,0.000000e+00,0.0    120     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
122     0.000000e+00,0.000000e+00,0.000000e+00,0.0    121     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
123     0.000000e+00,0.000000e+00,0.000000e+00,0.0    122     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
124     0.000000e+00,0.000000e+00,0.000000e+00,0.0    123     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
125     0.000000e+00,0.000000e+00,0.000000e+00,0.0    124     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
126     0.000000e+00,0.000000e+00,0.000000e+00,0.0    125     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
127     0.000000e+00,0.000000e+00,0.000000e+00,0.0    126     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
128     0.000000e+00,0.000000e+00,0.000000e+00,0.0    127     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
129     0.000000e+00,0.000000e+00,0.000000e+00,0.0    128     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
130     0.000000e+00,0.000000e+00,0.000000e+00,0.0    129     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
131     0.000000e+00,0.000000e+00,0.000000e+00,0.0    130     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
132     0.000000e+00,0.000000e+00,0.000000e+00,0.0    131     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
133     0.000000e+00,0.000000e+00,0.000000e+00,0.0    132     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
134     0.000000e+00,0.000000e+00,0.000000e+00,0.0    133     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
135     0.000000e+00,0.000000e+00,0.000000e+00,0.0    134     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
136     0.000000e+00,0.000000e+00,0.000000e+00,0.0    135     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
137     0.000000e+00,0.000000e+00,0.000000e+00,0.0    136     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
138     0.000000e+00,0.000000e+00,0.000000e+00,0.0    137     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,9.508853e-10,
139     5.658793e-09,1.254527e-08,2.393031e-08,4.5    138     5.658793e-09,1.254527e-08,2.393031e-08,4.505061e-08,8.774895e-08,1.786164e-07,3.761182e-07,
140     8.030425e-07,1.694925e-06,3.434914e-06,6.4    139     8.030425e-07,1.694925e-06,3.434914e-06,6.495386e-06,1.124554e-05,1.778700e-05,2.601897e-05,
141     3.581584e-05,4.713652e-05,6.004450e-05,7.4    140     3.581584e-05,4.713652e-05,6.004450e-05,7.469108e-05,9.129458e-05,1.101221e-04,1.314694e-04,
142     1.556326e-04,1.828616e-04,2.132878e-04,2.4    141     1.556326e-04,1.828616e-04,2.132878e-04,2.468359e-04,2.831345e-04,3.214679e-04,3.608144e-04,
143     3.999890e-04,4.378523e-04,4.735003e-04,5.0    142     3.999890e-04,4.378523e-04,4.735003e-04,5.063667e-04,5.362207e-04,5.630982e-04,5.872062e-04,
144     6.088412e-04,6.283321e-04,6.460063e-04,6.6    143     6.088412e-04,6.283321e-04,6.460063e-04,6.621724e-04,6.771140e-04,6.910895e-04,7.043362e-04,
145     7.170748e-04,7.295161e-04,7.418666e-04,7.5    144     7.170748e-04,7.295161e-04,7.418666e-04,7.543331e-04,7.671270e-04,7.804653e-04,7.945670e-04,
146     8.096392e-04,8.258506e-04,8.432877e-04,8.6    145     8.096392e-04,8.258506e-04,8.432877e-04,8.619005e-04,8.814550e-04,9.015289e-04,9.215770e-04,
147     9.410623e-04,9.595795e-04,9.769243e-04,9.9    146     9.410623e-04,9.595795e-04,9.769243e-04,9.930963e-04,1.008264e-03,1.022722e-03,1.036854e-03,
148     1.051075e-03,1.065714e-03,1.080833e-03,1.0    147     1.051075e-03,1.065714e-03,1.080833e-03,1.096129e-03,1.111117e-03,1.125415e-03,1.138885e-03,
149     1.151571e-03,1.163605e-03,1.175135e-03,1.1    148     1.151571e-03,1.163605e-03,1.175135e-03,1.186298e-03,1.197206e-03,1.207945e-03,1.218575e-03,
150     1.229133e-03,1.239639e-03,1.250100e-03,1.2    149     1.229133e-03,1.239639e-03,1.250100e-03,1.260515e-03,1.270882e-03,1.281197e-03,1.291459e-03,
151     1.301668e-03,1.311824e-03,1.321929e-03,1.3    150     1.301668e-03,1.311824e-03,1.321929e-03,1.331985e-03,1.341993e-03,1.351954e-03,1.361871e-03,
152     1.371743e-03,1.381573e-03,1.391360e-03,1.4    151     1.371743e-03,1.381573e-03,1.391360e-03,1.401105e-03,1.410808e-03,1.420471e-03,1.430093e-03,
153     1.439674e-03,1.449216e-03,1.458718e-03,1.4    152     1.439674e-03,1.449216e-03,1.458718e-03,1.468180e-03,1.477604e-03,1.486990e-03,1.496338e-03,
154     1.505649e-03,1.514923e-03,1.524160e-03,1.5    153     1.505649e-03,1.514923e-03,1.524160e-03,1.533363e-03,1.542530e-03,1.551662e-03,1.560761e-03,
155     1.569826e-03,1.578859e-03,1.587860e-03,1.5    154     1.569826e-03,1.578859e-03,1.587860e-03,1.596829e-03,1.605768e-03,1.614676e-03,1.623555e-03,
156     1.632405e-03,1.641227e-03,1.650021e-03,1.6    155     1.632405e-03,1.641227e-03,1.650021e-03,1.658788e-03,1.667529e-03,1.676244e-03,1.684933e-03,
157     1.693598e-03,1.702238e-03,1.710855e-03,1.7    156     1.693598e-03,1.702238e-03,1.710855e-03,1.719449e-03,1.728020e-03,1.736570e-03,1.745097e-03,
158     1.753604e-03,1.762091e-03,1.770557e-03,1.7    157     1.753604e-03,1.762091e-03,1.770557e-03,1.779004e-03,1.787432e-03,1.795842e-03,1.804234e-03,
159     1.812608e-03,1.820965e-03,1.829305e-03,1.8    158     1.812608e-03,1.820965e-03,1.829305e-03,1.837630e-03,1.845938e-03,1.854231e-03,1.862510e-03,
160     1.870774e-03,1.879024e-03,1.887260e-03,1.8    159     1.870774e-03,1.879024e-03,1.887260e-03,1.895483e-03,1.903693e-03,1.911891e-03,1.920077e-03,
161     1.928252e-03,1.936415e-03,1.944567e-03,1.9    160     1.928252e-03,1.936415e-03,1.944567e-03,1.952709e-03,1.960841e-03,1.968963e-03,1.977075e-03,
162     1.985179e-03,1.993274e-03,2.001361e-03,2.0    161     1.985179e-03,1.993274e-03,2.001361e-03,2.009440e-03,2.017511e-03,2.025576e-03,2.033633e-03,
163     2.041684e-03,2.049728e-03,2.057767e-03,2.0    162     2.041684e-03,2.049728e-03,2.057767e-03,2.065800e-03,2.073828e-03,2.081851e-03,2.089870e-03,
164     2.097884e-03,2.105894e-03,2.113901e-03,2.1    163     2.097884e-03,2.105894e-03,2.113901e-03,2.121904e-03,2.129905e-03,2.137903e-03,2.145898e-03,
165     2.153892e-03,2.161884e-03,2.169874e-03,2.1    164     2.153892e-03,2.161884e-03,2.169874e-03,2.177863e-03,2.185852e-03,2.193839e-03,2.201827e-03,
166     2.209815e-03,2.217803e-03,2.225791e-03,2.2    165     2.209815e-03,2.217803e-03,2.225791e-03,2.233781e-03,2.241771e-03,2.249764e-03,2.257757e-03};
167 static const G4double P10[nE]={                   166 static const G4double P10[nE]={
168     0.000000e+00,0.000000e+00,0.000000e+00,0.0    167     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
169     0.000000e+00,0.000000e+00,0.000000e+00,0.0    168     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
170     0.000000e+00,0.000000e+00,0.000000e+00,0.0    169     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
171     0.000000e+00,0.000000e+00,0.000000e+00,0.0    170     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
172     0.000000e+00,0.000000e+00,0.000000e+00,0.0    171     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
173     0.000000e+00,0.000000e+00,0.000000e+00,0.0    172     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
174     0.000000e+00,0.000000e+00,0.000000e+00,0.0    173     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
175     0.000000e+00,0.000000e+00,0.000000e+00,0.0    174     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
176     0.000000e+00,0.000000e+00,0.000000e+00,0.0    175     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
177     0.000000e+00,0.000000e+00,0.000000e+00,0.0    176     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
178     0.000000e+00,0.000000e+00,0.000000e+00,0.0    177     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
179     0.000000e+00,0.000000e+00,0.000000e+00,0.0    178     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
180     0.000000e+00,0.000000e+00,0.000000e+00,0.0    179     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
181     0.000000e+00,0.000000e+00,0.000000e+00,0.0    180     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
182     0.000000e+00,0.000000e+00,0.000000e+00,0.0    181     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
183     0.000000e+00,0.000000e+00,0.000000e+00,0.0    182     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
184     0.000000e+00,0.000000e+00,0.000000e+00,0.0    183     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
185     0.000000e+00,0.000000e+00,0.000000e+00,0.0    184     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
186     0.000000e+00,0.000000e+00,0.000000e+00,0.0    185     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
187     0.000000e+00,0.000000e+00,0.000000e+00,0.0    186     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,1.283819e-07,
188     7.765990e-07,1.754155e-06,3.420430e-06,6.6    187     7.765990e-07,1.754155e-06,3.420430e-06,6.607329e-06,1.324941e-05,2.782040e-05,6.046430e-05,
189     1.331907e-04,2.897632e-04,6.045196e-04,1.1    188     1.331907e-04,2.897632e-04,6.045196e-04,1.174950e-03,2.087179e-03,3.381598e-03,5.060191e-03,
190     7.118943e-03,9.570755e-03,1.245202e-02,1.5    189     7.118943e-03,9.570755e-03,1.245202e-02,1.582161e-02,1.975854e-02,2.435970e-02,2.973661e-02,
191     3.600931e-02,4.329446e-02,5.168438e-02,6.1    190     3.600931e-02,4.329446e-02,5.168438e-02,6.121832e-02,7.184951e-02,8.342000e-02,9.565929e-02,
192     1.082176e-01,1.207266e-01,1.328639e-01,1.4    191     1.082176e-01,1.207266e-01,1.328639e-01,1.443966e-01,1.551929e-01,1.652103e-01,1.744709e-01,
193     1.830362e-01,1.909891e-01,1.984219e-01,2.0    192     1.830362e-01,1.909891e-01,1.984219e-01,2.054289e-01,2.121037e-01,2.185384e-01,2.248245e-01,
194     2.310550e-01,2.373266e-01,2.437434e-01,2.5    193     2.310550e-01,2.373266e-01,2.437434e-01,2.504191e-01,2.574803e-01,2.650677e-01,2.733352e-01,
195     2.824425e-01,2.925383e-01,3.037299e-01,3.1    194     2.824425e-01,2.925383e-01,3.037299e-01,3.160413e-01,3.293712e-01,3.434732e-01,3.579873e-01,
196     3.725249e-01,3.867626e-01,4.005068e-01,4.1    195     3.725249e-01,3.867626e-01,4.005068e-01,4.137140e-01,4.264807e-01,4.390234e-01,4.516594e-01,
197     4.647653e-01,4.786698e-01,4.934691e-01,5.0    196     4.647653e-01,4.786698e-01,4.934691e-01,5.089000e-01,5.244803e-01,5.397990e-01,5.546715e-01,
198     5.691075e-01,5.832202e-01,5.971567e-01,6.1    197     5.691075e-01,5.832202e-01,5.971567e-01,6.110630e-01,6.250681e-01,6.392783e-01,6.537749e-01,
199     6.686149e-01,6.838333e-01,6.994497e-01,7.1    198     6.686149e-01,6.838333e-01,6.994497e-01,7.154739e-01,7.319115e-01,7.487683e-01,7.660517e-01,
200     7.837715e-01,8.019397e-01,8.205697e-01,8.3    199     7.837715e-01,8.019397e-01,8.205697e-01,8.396760e-01,8.592735e-01,8.793773e-01,9.000027e-01,
201     9.211652e-01,9.428799e-01,9.651625e-01,9.8    200     9.211652e-01,9.428799e-01,9.651625e-01,9.880287e-01,1.011494e+00,1.035576e+00,1.060290e+00,
202     1.085653e+00,1.111684e+00,1.138400e+00,1.1    201     1.085653e+00,1.111684e+00,1.138400e+00,1.165821e+00,1.193964e+00,1.222851e+00,1.252503e+00,
203     1.282939e+00,1.314184e+00,1.346258e+00,1.3    202     1.282939e+00,1.314184e+00,1.346258e+00,1.379187e+00,1.412994e+00,1.447705e+00,1.483345e+00,
204     1.519941e+00,1.557522e+00,1.596116e+00,1.6    203     1.519941e+00,1.557522e+00,1.596116e+00,1.635752e+00,1.676460e+00,1.718273e+00,1.761223e+00,
205     1.805343e+00,1.850668e+00,1.897234e+00,1.9    204     1.805343e+00,1.850668e+00,1.897234e+00,1.945076e+00,1.994234e+00,2.044746e+00,2.096652e+00,
206     2.149995e+00,2.204816e+00,2.261160e+00,2.3    205     2.149995e+00,2.204816e+00,2.261160e+00,2.319074e+00,2.378603e+00,2.439796e+00,2.502703e+00,
207     2.567376e+00,2.633867e+00,2.702233e+00,2.7    206     2.567376e+00,2.633867e+00,2.702233e+00,2.772528e+00,2.844812e+00,2.919145e+00,2.995588e+00,
208     3.074206e+00,3.155064e+00,3.238230e+00,3.3    207     3.074206e+00,3.155064e+00,3.238230e+00,3.323776e+00,3.411772e+00,3.502294e+00,3.595419e+00,
209     3.691226e+00,3.789797e+00,3.891216e+00,3.9    208     3.691226e+00,3.789797e+00,3.891216e+00,3.995572e+00,4.102954e+00,4.213454e+00,4.327169e+00,
210     4.444197e+00,4.564641e+00,4.688605e+00,4.8    209     4.444197e+00,4.564641e+00,4.688605e+00,4.816199e+00,4.947534e+00,5.082726e+00,5.221895e+00,
211     5.365163e+00,5.512657e+00,5.664510e+00,5.8    210     5.365163e+00,5.512657e+00,5.664510e+00,5.820856e+00,5.981835e+00,6.147591e+00,6.318273e+00,
212     6.494036e+00,6.675037e+00,6.861440e+00,7.0    211     6.494036e+00,6.675037e+00,6.861440e+00,7.053415e+00,7.251136e+00,7.454784e+00,7.664543e+00,
213     7.880607e+00,8.103173e+00,8.332447e+00,8.5    212     7.880607e+00,8.103173e+00,8.332447e+00,8.568639e+00,8.811968e+00,9.062659e+00,9.320945e+00,
214     9.587066e+00,9.861271e+00,1.014381e+01,1.0    213     9.587066e+00,9.861271e+00,1.014381e+01,1.043496e+01,1.073499e+01,1.104417e+01,1.136281e+01,
215     1.169119e+01,1.202964e+01,1.237847e+01,1.2    214     1.169119e+01,1.202964e+01,1.237847e+01,1.273802e+01,1.310862e+01,1.349063e+01,1.388442e+01};
216 static const G4double P20[nE]={                   215 static const G4double P20[nE]={
217     0.000000e+00,0.000000e+00,0.000000e+00,0.0    216     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
218     0.000000e+00,0.000000e+00,0.000000e+00,0.0    217     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
219     0.000000e+00,0.000000e+00,0.000000e+00,0.0    218     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
220     0.000000e+00,0.000000e+00,0.000000e+00,0.0    219     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
221     0.000000e+00,0.000000e+00,0.000000e+00,0.0    220     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
222     0.000000e+00,0.000000e+00,0.000000e+00,0.0    221     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
223     0.000000e+00,0.000000e+00,0.000000e+00,0.0    222     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
224     0.000000e+00,0.000000e+00,0.000000e+00,0.0    223     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
225     0.000000e+00,0.000000e+00,0.000000e+00,0.0    224     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
226     0.000000e+00,0.000000e+00,0.000000e+00,0.0    225     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
227     0.000000e+00,0.000000e+00,0.000000e+00,0.0    226     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
228     0.000000e+00,0.000000e+00,0.000000e+00,0.0    227     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
229     0.000000e+00,0.000000e+00,0.000000e+00,0.0    228     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
230     0.000000e+00,0.000000e+00,0.000000e+00,0.0    229     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
231     0.000000e+00,0.000000e+00,0.000000e+00,0.0    230     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
232     0.000000e+00,0.000000e+00,0.000000e+00,0.0    231     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
233     0.000000e+00,0.000000e+00,0.000000e+00,0.0    232     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
234     0.000000e+00,0.000000e+00,0.000000e+00,0.0    233     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
235     0.000000e+00,0.000000e+00,0.000000e+00,0.0    234     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
236     0.000000e+00,0.000000e+00,0.000000e+00,0.0    235     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,1.733331e-05,
237     1.065910e-04,2.453685e-04,4.892572e-04,9.7    236     1.065910e-04,2.453685e-04,4.892572e-04,9.701734e-04,2.003481e-03,4.340178e-03,9.736092e-03,
238     2.212593e-02,4.961468e-02,1.065569e-01,2.1    237     2.212593e-02,4.961468e-02,1.065569e-01,2.128855e-01,3.880845e-01,6.442424e-01,9.865527e-01,
239     1.419220e+00,1.950269e+00,2.593461e+00,3.3    238     1.419220e+00,1.950269e+00,2.593461e+00,3.368727e+00,4.302302e+00,5.426842e+00,6.781267e+00,
240     8.409767e+00,1.035907e+01,1.267273e+01,1.5    239     8.409767e+00,1.035907e+01,1.267273e+01,1.538236e+01,1.849628e+01,2.198896e+01,2.579646e+01,
241     2.982262e+01,3.395557e+01,3.808836e+01,4.2    240     2.982262e+01,3.395557e+01,3.808836e+01,4.213540e+01,4.604002e+01,4.977393e+01,5.333143e+01,
242     5.672268e+01,5.996799e+01,6.309401e+01,6.6    241     5.672268e+01,5.996799e+01,6.309401e+01,6.613132e+01,6.911336e+01,7.207629e+01,7.505958e+01,
243     7.810711e+01,8.126885e+01,8.460302e+01,8.8    242     7.810711e+01,8.126885e+01,8.460302e+01,8.817811e+01,9.207556e+01,9.639190e+01,1.012394e+02,
244     1.067429e+02,1.130306e+02,1.202141e+02,1.2    243     1.067429e+02,1.130306e+02,1.202141e+02,1.283582e+02,1.374455e+02,1.473530e+02,1.578615e+02,
245     1.687086e+02,1.796566e+02,1.905484e+02,2.0    244     1.687086e+02,1.796566e+02,1.905484e+02,2.013353e+02,2.120818e+02,2.229636e+02,2.342629e+02,
246     2.463419e+02,2.595499e+02,2.740378e+02,2.8    245     2.463419e+02,2.595499e+02,2.740378e+02,2.896053e+02,3.058034e+02,3.222162e+02,3.386384e+02,
247     3.550669e+02,3.716193e+02,3.884660e+02,4.0    246     3.550669e+02,3.716193e+02,3.884660e+02,4.057911e+02,4.237738e+02,4.425787e+02,4.623501e+02,
248     4.832092e+02,5.052552e+02,5.285702e+02,5.5    247     4.832092e+02,5.052552e+02,5.285702e+02,5.532261e+02,5.792925e+02,6.068416e+02,6.359524e+02,
249     6.667118e+02,6.992147e+02,7.335640e+02,7.6    248     6.667118e+02,6.992147e+02,7.335640e+02,7.698696e+02,8.082482e+02,8.488235e+02,8.917255e+02,
250     9.370917e+02,9.850666e+02,1.035803e+03,1.0    249     9.370917e+02,9.850666e+02,1.035803e+03,1.089461e+03,1.146211e+03,1.206233e+03,1.269717e+03,
251     1.336863e+03,1.407884e+03,1.483006e+03,1.5    250     1.336863e+03,1.407884e+03,1.483006e+03,1.562468e+03,1.646521e+03,1.735436e+03,1.829495e+03,
252     1.929001e+03,2.034272e+03,2.145649e+03,2.2    251     1.929001e+03,2.034272e+03,2.145649e+03,2.263490e+03,2.388177e+03,2.520114e+03,2.659730e+03,
253     2.807480e+03,2.963847e+03,3.129341e+03,3.3    252     2.807480e+03,2.963847e+03,3.129341e+03,3.304506e+03,3.489917e+03,3.686187e+03,3.893961e+03,
254     4.113928e+03,4.346817e+03,4.593401e+03,4.8    253     4.113928e+03,4.346817e+03,4.593401e+03,4.854501e+03,5.130987e+03,5.423784e+03,5.733871e+03,
255     6.062289e+03,6.410140e+03,6.778595e+03,7.1    254     6.062289e+03,6.410140e+03,6.778595e+03,7.168898e+03,7.582366e+03,8.020398e+03,8.484480e+03,
256     8.976188e+03,9.497193e+03,1.004927e+04,1.0    255     8.976188e+03,9.497193e+03,1.004927e+04,1.063431e+04,1.125430e+04,1.191137e+04,1.260778e+04,
257     1.334591e+04,1.412831e+04,1.495767e+04,1.5    256     1.334591e+04,1.412831e+04,1.495767e+04,1.583685e+04,1.676890e+04,1.775703e+04,1.880469e+04,
258     1.991550e+04,2.109332e+04,2.234227e+04,2.3    257     1.991550e+04,2.109332e+04,2.234227e+04,2.366670e+04,2.507122e+04,2.656077e+04,2.814056e+04,
259     2.981612e+04,3.159335e+04,3.347850e+04,3.5    258     2.981612e+04,3.159335e+04,3.347850e+04,3.547822e+04,3.759955e+04,3.985000e+04,4.223753e+04,
260     4.477059e+04,4.745818e+04,5.030985e+04,5.3    259     4.477059e+04,4.745818e+04,5.030985e+04,5.333573e+04,5.654661e+04,5.995394e+04,6.356990e+04,
261     6.740741e+04,7.148022e+04,7.580293e+04,8.0    260     6.740741e+04,7.148022e+04,7.580293e+04,8.039107e+04,8.526113e+04,9.043063e+04,9.591822e+04,
262     1.017437e+05,1.079281e+05,1.144938e+05,1.2    261     1.017437e+05,1.079281e+05,1.144938e+05,1.214646e+05,1.288658e+05,1.367242e+05,1.450685e+05,
263     1.539289e+05,1.633378e+05,1.733295e+05,1.8    262     1.539289e+05,1.633378e+05,1.733295e+05,1.839405e+05,1.952096e+05,2.071781e+05,2.198898e+05,
264     2.333914e+05,2.477325e+05,2.629658e+05,2.7    263     2.333914e+05,2.477325e+05,2.629658e+05,2.791474e+05,2.963371e+05,3.145981e+05,3.339980e+05};
265 static const G4double P01[nE]={                   264 static const G4double P01[nE]={
266     0.000000e+00,0.000000e+00,0.000000e+00,2.9    265     0.000000e+00,0.000000e+00,0.000000e+00,2.954211e-05,9.596085e-05,1.664204e-04,2.410445e-04,
267     3.199604e-04,4.032996e-04,4.911973e-04,5.8    266     3.199604e-04,4.032996e-04,4.911973e-04,5.837930e-04,6.812306e-04,7.836580e-04,8.913164e-04,
268     1.004812e-03,1.124386e-03,1.250223e-03,1.3    267     1.004812e-03,1.124386e-03,1.250223e-03,1.382516e-03,1.521462e-03,1.667264e-03,1.820132e-03,
269     1.980284e-03,2.147940e-03,2.320852e-03,2.4    268     1.980284e-03,2.147940e-03,2.320852e-03,2.496690e-03,2.675545e-03,2.857507e-03,3.042673e-03,
270     3.231140e-03,3.423010e-03,3.617256e-03,3.8    269     3.231140e-03,3.423010e-03,3.617256e-03,3.809214e-03,3.998293e-03,4.184404e-03,4.367457e-03,
271     4.547357e-03,4.723746e-03,4.895195e-03,5.0    270     4.547357e-03,4.723746e-03,4.895195e-03,5.061371e-03,5.222113e-03,5.377254e-03,5.526693e-03,
272     5.670813e-03,5.809570e-03,5.942803e-03,6.0    271     5.670813e-03,5.809570e-03,5.942803e-03,6.070341e-03,6.192646e-03,6.310189e-03,6.422827e-03,
273     6.530413e-03,6.633483e-03,6.732384e-03,6.8    272     6.530413e-03,6.633483e-03,6.732384e-03,6.826989e-03,6.917342e-03,7.004039e-03,7.087050e-03,
274     7.166336e-03,7.242378e-03,7.315204e-03,7.3    273     7.166336e-03,7.242378e-03,7.315204e-03,7.384814e-03,7.451592e-03,7.515520e-03,7.576720e-03,
275     7.635427e-03,7.691607e-03,7.745512e-03,7.7    274     7.635427e-03,7.691607e-03,7.745512e-03,7.797147e-03,7.846671e-03,7.894156e-03,7.939695e-03,
276     7.983384e-03,8.025299e-03,8.065520e-03,8.1    275     7.983384e-03,8.025299e-03,8.065520e-03,8.104132e-03,8.141187e-03,8.176782e-03,8.210952e-03,
277     8.243782e-03,8.275321e-03,8.305622e-03,8.3    276     8.243782e-03,8.275321e-03,8.305622e-03,8.334750e-03,8.362747e-03,8.389662e-03,8.415545e-03,
278     8.440441e-03,8.464389e-03,8.487429e-03,8.5    277     8.440441e-03,8.464389e-03,8.487429e-03,8.509600e-03,8.530939e-03,8.551482e-03,8.571260e-03,
279     8.590305e-03,8.608648e-03,8.626317e-03,8.6    278     8.590305e-03,8.608648e-03,8.626317e-03,8.643340e-03,8.659743e-03,8.675552e-03,8.690789e-03,
280     8.705479e-03,8.719642e-03,8.733300e-03,8.7    279     8.705479e-03,8.719642e-03,8.733300e-03,8.746472e-03,8.759179e-03,8.771437e-03,8.783264e-03,
281     8.794677e-03,8.805692e-03,8.816325e-03,8.8    280     8.794677e-03,8.805692e-03,8.816325e-03,8.826589e-03,8.836500e-03,8.846069e-03,8.855311e-03,
282     8.864237e-03,8.872859e-03,8.881188e-03,8.8    281     8.864237e-03,8.872859e-03,8.881188e-03,8.889236e-03,8.897012e-03,8.904527e-03,8.911790e-03,
283     8.918810e-03,8.925597e-03,8.932158e-03,8.9    282     8.918810e-03,8.925597e-03,8.932158e-03,8.938501e-03,8.944635e-03,8.950567e-03,8.956303e-03,
284     8.961852e-03,8.967219e-03,8.972411e-03,8.9    283     8.961852e-03,8.967219e-03,8.972411e-03,8.977434e-03,8.982294e-03,8.986998e-03,8.991551e-03,
285     8.995958e-03,9.000224e-03,9.004354e-03,9.0    284     8.995958e-03,9.000224e-03,9.004354e-03,9.008353e-03,9.012227e-03,9.015984e-03,9.019633e-03,
286     9.023195e-03,9.026706e-03,9.030244e-03,9.0    285     9.023195e-03,9.026706e-03,9.030244e-03,9.033965e-03,9.038176e-03,9.043389e-03,9.050276e-03,
287     9.059416e-03,9.071006e-03,9.084867e-03,9.1    286     9.059416e-03,9.071006e-03,9.084867e-03,9.100704e-03,9.118316e-03,9.137649e-03,9.158778e-03,
288     9.181864e-03,9.207136e-03,9.234874e-03,9.2    287     9.181864e-03,9.207136e-03,9.234874e-03,9.265398e-03,9.299061e-03,9.336228e-03,9.377254e-03,
289     9.422441e-03,9.471977e-03,9.525862e-03,9.5    288     9.422441e-03,9.471977e-03,9.525862e-03,9.583820e-03,9.645241e-03,9.709165e-03,9.774343e-03,
290     9.839376e-03,9.902903e-03,9.963776e-03,1.0    289     9.839376e-03,9.902903e-03,9.963776e-03,1.002117e-02,1.007462e-02,1.012399e-02,1.016939e-02,
291     1.021107e-02,1.024941e-02,1.028482e-02,1.0    290     1.021107e-02,1.024941e-02,1.028482e-02,1.031771e-02,1.034850e-02,1.037759e-02,1.040535e-02,
292     1.043213e-02,1.045828e-02,1.048413e-02,1.0    291     1.043213e-02,1.045828e-02,1.048413e-02,1.051000e-02,1.053619e-02,1.056302e-02,1.059074e-02,
293     1.061960e-02,1.064973e-02,1.068119e-02,1.0    292     1.061960e-02,1.064973e-02,1.068119e-02,1.071387e-02,1.074750e-02,1.078164e-02,1.081576e-02,
294     1.084929e-02,1.088177e-02,1.091287e-02,1.0    293     1.084929e-02,1.088177e-02,1.091287e-02,1.094245e-02,1.097052e-02,1.099725e-02,1.102293e-02,
295     1.104790e-02,1.107250e-02,1.109694e-02,1.1    294     1.104790e-02,1.107250e-02,1.109694e-02,1.112120e-02,1.114507e-02,1.116831e-02,1.119086e-02,
296     1.121276e-02,1.123411e-02,1.125504e-02,1.1    295     1.121276e-02,1.123411e-02,1.125504e-02,1.127562e-02,1.129594e-02,1.131605e-02,1.133598e-02,
297     1.135576e-02,1.137542e-02,1.139497e-02,1.1    296     1.135576e-02,1.137542e-02,1.139497e-02,1.141444e-02,1.143383e-02,1.145315e-02,1.147240e-02,
298     1.149159e-02,1.151073e-02,1.152981e-02,1.1    297     1.149159e-02,1.151073e-02,1.152981e-02,1.154882e-02,1.156778e-02,1.158668e-02,1.160552e-02,
299     1.162429e-02,1.164299e-02,1.166162e-02,1.1    298     1.162429e-02,1.164299e-02,1.166162e-02,1.168018e-02,1.169867e-02,1.171708e-02,1.173542e-02,
300     1.175368e-02,1.177187e-02,1.178998e-02,1.1    299     1.175368e-02,1.177187e-02,1.178998e-02,1.180802e-02,1.182597e-02,1.184385e-02,1.186166e-02,
301     1.187939e-02,1.189704e-02,1.191463e-02,1.1    300     1.187939e-02,1.189704e-02,1.191463e-02,1.193214e-02,1.194957e-02,1.196694e-02,1.198424e-02,
302     1.200146e-02,1.201862e-02,1.203572e-02,1.2    301     1.200146e-02,1.201862e-02,1.203572e-02,1.205275e-02,1.206972e-02,1.208662e-02,1.210346e-02,
303     1.212025e-02,1.213697e-02,1.215364e-02,1.2    302     1.212025e-02,1.213697e-02,1.215364e-02,1.217025e-02,1.218681e-02,1.220331e-02,1.221976e-02,
304     1.223616e-02,1.225251e-02,1.226881e-02,1.2    303     1.223616e-02,1.225251e-02,1.226881e-02,1.228506e-02,1.230127e-02,1.231743e-02,1.233355e-02,
305     1.234962e-02,1.236566e-02,1.238165e-02,1.2    304     1.234962e-02,1.236566e-02,1.238165e-02,1.239760e-02,1.241351e-02,1.242939e-02,1.244523e-02,
306     1.246103e-02,1.247679e-02,1.249253e-02,1.2    305     1.246103e-02,1.247679e-02,1.249253e-02,1.250823e-02,1.252390e-02,1.253953e-02,1.255514e-02,
307     1.257072e-02,1.258627e-02,1.260179e-02,1.2    306     1.257072e-02,1.258627e-02,1.260179e-02,1.261728e-02,1.263275e-02,1.264819e-02,1.266361e-02,
308     1.267901e-02,1.269438e-02,1.270973e-02,1.2    307     1.267901e-02,1.269438e-02,1.270973e-02,1.272506e-02,1.274037e-02,1.275566e-02,1.277093e-02,
309     1.278618e-02,1.280141e-02,1.281663e-02,1.2    308     1.278618e-02,1.280141e-02,1.281663e-02,1.283183e-02,1.284702e-02,1.286219e-02,1.287735e-02,
310     1.289249e-02,1.290763e-02,1.292275e-02,1.2    309     1.289249e-02,1.290763e-02,1.292275e-02,1.293786e-02,1.295296e-02,1.296804e-02,1.298312e-02,
311     1.299819e-02,1.301326e-02,1.302831e-02,1.3    310     1.299819e-02,1.301326e-02,1.302831e-02,1.304336e-02,1.305840e-02,1.307344e-02,1.308847e-02,
312     1.310350e-02,1.311853e-02,1.313355e-02,1.3    311     1.310350e-02,1.311853e-02,1.313355e-02,1.314857e-02,1.316358e-02,1.317860e-02,1.319362e-02,
313     1.320863e-02,1.322365e-02,1.323866e-02,1.3    312     1.320863e-02,1.322365e-02,1.323866e-02,1.325368e-02,1.326870e-02,1.328372e-02,1.329875e-02};
314 static const G4double P11[nE]={                   313 static const G4double P11[nE]={
315     0.000000e+00,0.000000e+00,0.000000e+00,5.1    314     0.000000e+00,0.000000e+00,0.000000e+00,5.142599e-05,1.703905e-04,3.015318e-04,4.458151e-04,
316     6.042723e-04,7.780058e-04,9.681932e-04,1.1    315     6.042723e-04,7.780058e-04,9.681932e-04,1.176093e-03,1.403047e-03,1.650491e-03,1.920179e-03,
317     2.214927e-03,2.536789e-03,2.887800e-03,3.2    316     2.214927e-03,2.536789e-03,2.887800e-03,3.270133e-03,3.686105e-03,4.138189e-03,4.629026e-03,
318     5.161429e-03,5.738401e-03,6.354262e-03,7.0    317     5.161429e-03,5.738401e-03,6.354262e-03,7.002399e-03,7.684563e-03,8.402602e-03,9.158473e-03,
319     9.954245e-03,1.079211e-02,1.166922e-02,1.2    318     9.954245e-03,1.079211e-02,1.166922e-02,1.256544e-02,1.347811e-02,1.440680e-02,1.535097e-02,
320     1.631002e-02,1.728180e-02,1.825789e-02,1.9    319     1.631002e-02,1.728180e-02,1.825789e-02,1.923543e-02,2.021240e-02,2.118654e-02,2.215588e-02,
321     2.312152e-02,2.408180e-02,2.503409e-02,2.5    320     2.312152e-02,2.408180e-02,2.503409e-02,2.597551e-02,2.690781e-02,2.783303e-02,2.874848e-02,
322     2.965126e-02,3.054421e-02,3.142876e-02,3.2    321     2.965126e-02,3.054421e-02,3.142876e-02,3.230222e-02,3.316333e-02,3.401622e-02,3.485909e-02,
323     3.568998e-02,3.651243e-02,3.732532e-02,3.8    322     3.568998e-02,3.651243e-02,3.732532e-02,3.812714e-02,3.892091e-02,3.970501e-02,4.047958e-02,
324     4.124621e-02,4.200316e-02,4.275250e-02,4.3    323     4.124621e-02,4.200316e-02,4.275250e-02,4.349304e-02,4.422580e-02,4.495060e-02,4.566768e-02,
325     4.637734e-02,4.707965e-02,4.777482e-02,4.8    324     4.637734e-02,4.707965e-02,4.777482e-02,4.846319e-02,4.914460e-02,4.981971e-02,5.048815e-02,
326     5.115054e-02,5.180682e-02,5.245710e-02,5.3    325     5.115054e-02,5.180682e-02,5.245710e-02,5.310179e-02,5.374084e-02,5.437439e-02,5.500269e-02,
327     5.562592e-02,5.624410e-02,5.685739e-02,5.7    326     5.562592e-02,5.624410e-02,5.685739e-02,5.746597e-02,5.806996e-02,5.866950e-02,5.926469e-02,
328     5.985567e-02,6.044255e-02,6.102544e-02,6.1    327     5.985567e-02,6.044255e-02,6.102544e-02,6.160445e-02,6.217970e-02,6.275130e-02,6.331935e-02,
329     6.388395e-02,6.444520e-02,6.500318e-02,6.5    328     6.388395e-02,6.444520e-02,6.500318e-02,6.555801e-02,6.610977e-02,6.665854e-02,6.720441e-02,
330     6.774747e-02,6.828779e-02,6.882546e-02,6.9    329     6.774747e-02,6.828779e-02,6.882546e-02,6.936055e-02,6.989314e-02,7.042330e-02,7.095109e-02,
331     7.147659e-02,7.199987e-02,7.252099e-02,7.3    330     7.147659e-02,7.199987e-02,7.252099e-02,7.304001e-02,7.355699e-02,7.407199e-02,7.458508e-02,
332     7.509630e-02,7.560571e-02,7.611336e-02,7.6    331     7.509630e-02,7.560571e-02,7.611336e-02,7.661930e-02,7.712359e-02,7.762628e-02,7.812740e-02,
333     7.862701e-02,7.912515e-02,7.962186e-02,8.0    332     7.862701e-02,7.912515e-02,7.962186e-02,8.011718e-02,8.061117e-02,8.110391e-02,8.159563e-02,
334     8.208616e-02,8.257558e-02,8.306395e-02,8.3    333     8.208616e-02,8.257558e-02,8.306395e-02,8.355139e-02,8.403811e-02,8.452456e-02,8.501170e-02,
335     8.550172e-02,8.599961e-02,8.651664e-02,8.7    334     8.550172e-02,8.599961e-02,8.651664e-02,8.707738e-02,8.773149e-02,8.856633e-02,8.970318e-02,
336     9.125803e-02,9.328999e-02,9.579442e-02,9.8    335     9.125803e-02,9.328999e-02,9.579442e-02,9.874335e-02,1.021230e-01,1.059470e-01,1.102541e-01,
337     1.151048e-01,1.205775e-01,1.267685e-01,1.3    336     1.151048e-01,1.205775e-01,1.267685e-01,1.337904e-01,1.417717e-01,1.508542e-01,1.611870e-01,
338     1.729166e-01,1.861694e-01,2.010268e-01,2.1    337     1.729166e-01,1.861694e-01,2.010268e-01,2.174967e-01,2.354851e-01,2.547793e-01,2.750538e-01,
339     2.959020e-01,3.168904e-01,3.376171e-01,3.5    338     2.959020e-01,3.168904e-01,3.376171e-01,3.577581e-01,3.770900e-01,3.954917e-01,4.129288e-01,
340     4.294320e-01,4.450769e-01,4.599676e-01,4.7    339     4.294320e-01,4.450769e-01,4.599676e-01,4.742255e-01,4.879821e-01,5.013750e-01,5.145470e-01,
341     5.276464e-01,5.408286e-01,5.542584e-01,5.6    340     5.276464e-01,5.408286e-01,5.542584e-01,5.681099e-01,5.825682e-01,5.978263e-01,6.140796e-01,
342     6.315125e-01,6.502781e-01,6.704690e-01,6.9    341     6.315125e-01,6.502781e-01,6.704690e-01,6.920855e-01,7.150085e-01,7.389925e-01,7.636899e-01,
343     7.887092e-01,8.136834e-01,8.383295e-01,8.6    342     7.887092e-01,8.136834e-01,8.383295e-01,8.624834e-01,8.861115e-01,9.093041e-01,9.322622e-01,
344     9.552702e-01,9.786340e-01,1.002560e+00,1.0    343     9.552702e-01,9.786340e-01,1.002560e+00,1.027034e+00,1.051840e+00,1.076745e+00,1.101644e+00,
345     1.126566e+00,1.151612e+00,1.176902e+00,1.2    344     1.126566e+00,1.151612e+00,1.176902e+00,1.202547e+00,1.228636e+00,1.255240e+00,1.282420e+00,
346     1.310225e+00,1.338704e+00,1.367897e+00,1.3    345     1.310225e+00,1.338704e+00,1.367897e+00,1.397846e+00,1.428588e+00,1.460157e+00,1.492584e+00,
347     1.525899e+00,1.560130e+00,1.595301e+00,1.6    346     1.525899e+00,1.560130e+00,1.595301e+00,1.631438e+00,1.668565e+00,1.706703e+00,1.745877e+00,
348     1.786109e+00,1.827424e+00,1.869844e+00,1.9    347     1.786109e+00,1.827424e+00,1.869844e+00,1.913396e+00,1.958105e+00,2.003998e+00,2.051103e+00,
349     2.099449e+00,2.149066e+00,2.199987e+00,2.2    348     2.099449e+00,2.149066e+00,2.199987e+00,2.252243e+00,2.305870e+00,2.360904e+00,2.417381e+00,
350     2.475340e+00,2.534822e+00,2.595869e+00,2.6    349     2.475340e+00,2.534822e+00,2.595869e+00,2.658523e+00,2.722829e+00,2.788834e+00,2.856587e+00,
351     2.926136e+00,2.997533e+00,3.070832e+00,3.1    350     2.926136e+00,2.997533e+00,3.070832e+00,3.146088e+00,3.223356e+00,3.302697e+00,3.384170e+00,
352     3.467838e+00,3.553766e+00,3.642020e+00,3.7    351     3.467838e+00,3.553766e+00,3.642020e+00,3.732669e+00,3.825784e+00,3.921439e+00,4.019708e+00,
353     4.120669e+00,4.224403e+00,4.330993e+00,4.4    352     4.120669e+00,4.224403e+00,4.330993e+00,4.440524e+00,4.553084e+00,4.668764e+00,4.787659e+00,
354     4.909864e+00,5.035479e+00,5.164607e+00,5.2    353     4.909864e+00,5.035479e+00,5.164607e+00,5.297355e+00,5.433831e+00,5.574149e+00,5.718425e+00,
355     5.866778e+00,6.019333e+00,6.176218e+00,6.3    354     5.866778e+00,6.019333e+00,6.176218e+00,6.337563e+00,6.503506e+00,6.674186e+00,6.849749e+00,
356     7.030342e+00,7.216120e+00,7.407242e+00,7.6    355     7.030342e+00,7.216120e+00,7.407242e+00,7.603871e+00,7.806178e+00,8.014335e+00,8.228524e+00,
357     8.448929e+00,8.675743e+00,8.909163e+00,9.1    356     8.448929e+00,8.675743e+00,8.909163e+00,9.149393e+00,9.396644e+00,9.651133e+00,9.913084e+00,
358     1.018273e+01,1.046031e+01,1.074606e+01,1.1    357     1.018273e+01,1.046031e+01,1.074606e+01,1.104026e+01,1.134314e+01,1.165500e+01,1.197610e+01,
359     1.230674e+01,1.264721e+01,1.299783e+01,1.3    358     1.230674e+01,1.264721e+01,1.299783e+01,1.335890e+01,1.373077e+01,1.411376e+01,1.450823e+01,
360     1.491454e+01,1.533306e+01,1.576417e+01,1.6    359     1.491454e+01,1.533306e+01,1.576417e+01,1.620828e+01,1.666579e+01,1.713713e+01,1.762273e+01,
361     1.812306e+01,1.863856e+01,1.916973e+01,1.9    360     1.812306e+01,1.863856e+01,1.916973e+01,1.971706e+01,2.028107e+01,2.086229e+01,2.146127e+01,
362     2.207856e+01,2.271477e+01,2.337048e+01,2.4    361     2.207856e+01,2.271477e+01,2.337048e+01,2.404633e+01,2.474296e+01,2.546103e+01,2.620123e+01};
363 static const G4double P21[nE]={                   362 static const G4double P21[nE]={
364     0.000000e+00,0.000000e+00,0.000000e+00,8.9    363     0.000000e+00,0.000000e+00,0.000000e+00,8.952320e-05,3.026305e-04,5.467439e-04,8.257448e-04,
365     1.143952e-03,1.506169e-03,1.917732e-03,2.3    364     1.143952e-03,1.506169e-03,1.917732e-03,2.384568e-03,2.913257e-03,3.511097e-03,4.186748e-03,
366     4.952288e-03,5.818752e-03,6.797967e-03,7.9    365     4.952288e-03,5.818752e-03,6.797967e-03,7.903042e-03,9.148496e-03,1.055041e-02,1.212656e-02,
367     1.389665e-02,1.588243e-02,1.807616e-02,2.0    366     1.389665e-02,1.588243e-02,1.807616e-02,2.046542e-02,2.306750e-02,2.590121e-02,2.898706e-02,
368     3.234740e-02,3.600656e-02,3.996753e-02,4.4    367     3.234740e-02,3.600656e-02,3.996753e-02,4.415218e-02,4.855802e-02,5.319252e-02,5.806289e-02,
369     6.317608e-02,6.853047e-02,7.408791e-02,7.9    368     6.317608e-02,6.853047e-02,7.408791e-02,7.983893e-02,8.577731e-02,9.189460e-02,9.818275e-02,
370     1.046534e-01,1.112996e-01,1.181068e-01,1.2    369     1.046534e-01,1.112996e-01,1.181068e-01,1.250565e-01,1.321638e-01,1.394471e-01,1.468879e-01,
371     1.544640e-01,1.622007e-01,1.701127e-01,1.7    370     1.544640e-01,1.622007e-01,1.701127e-01,1.781777e-01,1.863853e-01,1.947763e-01,2.033353e-01,
372     2.120436e-01,2.209398e-01,2.300138e-01,2.3    371     2.120436e-01,2.209398e-01,2.300138e-01,2.392506e-01,2.486866e-01,2.583048e-01,2.681087e-01,
373     2.781207e-01,2.883204e-01,2.987380e-01,3.0    372     2.781207e-01,2.883204e-01,2.987380e-01,3.093594e-01,3.202022e-01,3.312664e-01,3.425587e-01,
374     3.540870e-01,3.658557e-01,3.778718e-01,3.9    373     3.540870e-01,3.658557e-01,3.778718e-01,3.901450e-01,4.026762e-01,4.154819e-01,4.285591e-01,
375     4.419246e-01,4.555823e-01,4.695390e-01,4.8    374     4.419246e-01,4.555823e-01,4.695390e-01,4.838088e-01,4.983965e-01,5.133109e-01,5.285640e-01,
376     5.441662e-01,5.601251e-01,5.764518e-01,5.9    375     5.441662e-01,5.601251e-01,5.764518e-01,5.931578e-01,6.102545e-01,6.277536e-01,6.456668e-01,
377     6.640062e-01,6.827845e-01,7.020148e-01,7.2    376     6.640062e-01,6.827845e-01,7.020148e-01,7.217106e-01,7.418860e-01,7.625554e-01,7.837337e-01,
378     8.054363e-01,8.276787e-01,8.504769e-01,8.7    377     8.054363e-01,8.276787e-01,8.504769e-01,8.738478e-01,8.978095e-01,9.223790e-01,9.475746e-01,
379     9.734160e-01,9.999218e-01,1.027113e+00,1.0    378     9.734160e-01,9.999218e-01,1.027113e+00,1.055010e+00,1.083634e+00,1.113008e+00,1.143153e+00,
380     1.174094e+00,1.205855e+00,1.238460e+00,1.2    379     1.174094e+00,1.205855e+00,1.238460e+00,1.271935e+00,1.306308e+00,1.341604e+00,1.377853e+00,
381     1.415083e+00,1.453324e+00,1.492606e+00,1.5    380     1.415083e+00,1.453324e+00,1.492606e+00,1.532963e+00,1.574426e+00,1.617029e+00,1.660807e+00,
382     1.705796e+00,1.752032e+00,1.799555e+00,1.8    381     1.705796e+00,1.752032e+00,1.799555e+00,1.848402e+00,1.898615e+00,1.950243e+00,2.003346e+00,
383     2.057951e+00,2.114105e+00,2.171862e+00,2.2    382     2.057951e+00,2.114105e+00,2.171862e+00,2.231280e+00,2.292433e+00,2.355430e+00,2.420453e+00,
384     2.487871e+00,2.558479e+00,2.634058e+00,2.7    383     2.487871e+00,2.558479e+00,2.634058e+00,2.718555e+00,2.820170e+00,2.953872e+00,3.141548e+00,
385     3.406090e+00,3.762360e+00,4.214883e+00,4.7    384     3.406090e+00,3.762360e+00,4.214883e+00,4.764020e+00,5.412646e+00,6.169038e+00,7.047144e+00,
386     8.066375e+00,9.251616e+00,1.063353e+01,1.2    385     8.066375e+00,9.251616e+00,1.063353e+01,1.224899e+01,1.414150e+01,1.636113e+01,1.896376e+01,
387     2.200875e+01,2.555457e+01,2.965149e+01,3.4    386     2.200875e+01,2.555457e+01,2.965149e+01,3.433211e+01,3.960073e+01,4.542475e+01,5.173186e+01,
388     5.841585e+01,6.535063e+01,7.240850e+01,7.9    387     5.841585e+01,6.535063e+01,7.240850e+01,7.947682e+01,8.646893e+01,9.332839e+01,1.000274e+02,
389     1.065618e+02,1.129463e+02,1.192092e+02,1.2    388     1.065618e+02,1.129463e+02,1.192092e+02,1.253898e+02,1.315359e+02,1.377029e+02,1.439541e+02,
390     1.503616e+02,1.570072e+02,1.639851e+02,1.7    389     1.503616e+02,1.570072e+02,1.639851e+02,1.714029e+02,1.793829e+02,1.880626e+02,1.975917e+02,
391     2.081256e+02,2.198120e+02,2.327710e+02,2.4    390     2.081256e+02,2.198120e+02,2.327710e+02,2.470695e+02,2.626961e+02,2.795460e+02,2.974276e+02,
392     3.160962e+02,3.353012e+02,3.548335e+02,3.7    391     3.160962e+02,3.353012e+02,3.548335e+02,3.745617e+02,3.944512e+02,4.145723e+02,4.351002e+02,
393     4.563033e+02,4.784941e+02,5.019153e+02,5.2    392     4.563033e+02,4.784941e+02,5.019153e+02,5.266048e+02,5.523951e+02,5.790813e+02,6.065771e+02,
394     6.349401e+02,6.643178e+02,6.948910e+02,7.2    393     6.349401e+02,6.643178e+02,6.948910e+02,7.268416e+02,7.603404e+02,7.955471e+02,8.326159e+02,
395     8.716998e+02,9.129543e+02,9.565398e+02,1.0    394     8.716998e+02,9.129543e+02,9.565398e+02,1.002622e+03,1.051371e+03,1.102964e+03,1.157582e+03,
396     1.215413e+03,1.276652e+03,1.341501e+03,1.4    395     1.215413e+03,1.276652e+03,1.341501e+03,1.410169e+03,1.482875e+03,1.559849e+03,1.641333e+03,
397     1.727580e+03,1.818857e+03,1.915447e+03,2.0    396     1.727580e+03,1.818857e+03,1.915447e+03,2.017647e+03,2.125773e+03,2.240159e+03,2.361159e+03,
398     2.489147e+03,2.624520e+03,2.767701e+03,2.9    397     2.489147e+03,2.624520e+03,2.767701e+03,2.919136e+03,3.079298e+03,3.248691e+03,3.427846e+03,
399     3.617331e+03,3.817744e+03,4.029722e+03,4.2    398     3.617331e+03,3.817744e+03,4.029722e+03,4.253941e+03,4.491115e+03,4.742005e+03,5.007417e+03,
400     5.288205e+03,5.585276e+03,5.899591e+03,6.2    399     5.288205e+03,5.585276e+03,5.899591e+03,6.232171e+03,6.584097e+03,6.956519e+03,7.350654e+03,
401     7.767793e+03,8.209307e+03,8.676651e+03,9.1    400     7.767793e+03,8.209307e+03,8.676651e+03,9.171366e+03,9.695090e+03,1.024956e+04,1.083661e+04,
402     1.145821e+04,1.211642e+04,1.281345e+04,1.3    401     1.145821e+04,1.211642e+04,1.281345e+04,1.355162e+04,1.433343e+04,1.516149e+04,1.603861e+04,
403     1.696773e+04,1.795200e+04,1.899477e+04,2.0    402     1.696773e+04,1.795200e+04,1.899477e+04,2.009956e+04,2.127014e+04,2.251050e+04,2.382486e+04,
404     2.521774e+04,2.669389e+04,2.825838e+04,2.9    403     2.521774e+04,2.669389e+04,2.825838e+04,2.991659e+04,3.167424e+04,3.353738e+04,3.551246e+04,
405     3.760630e+04,3.982616e+04,4.217976e+04,4.4    404     3.760630e+04,3.982616e+04,4.217976e+04,4.467528e+04,4.732140e+04,5.012737e+04,5.310298e+04,
406     5.625866e+04,5.960545e+04,6.315512e+04,6.6    405     5.625866e+04,5.960545e+04,6.315512e+04,6.692013e+04,7.091374e+04,7.515004e+04,7.964399e+04,
407     8.441148e+04,8.946939e+04,9.483567e+04,1.0    406     8.441148e+04,8.946939e+04,9.483567e+04,1.005294e+05,1.065708e+05,1.129813e+05,1.197840e+05,
408     1.270030e+05,1.346642e+05,1.427950e+05,1.5    407     1.270030e+05,1.346642e+05,1.427950e+05,1.514246e+05,1.605840e+05,1.703061e+05,1.806259e+05,
409     1.915807e+05,2.032100e+05,2.155559e+05,2.2    408     1.915807e+05,2.032100e+05,2.155559e+05,2.286629e+05,2.425788e+05,2.573538e+05,2.730419e+05,
410     2.896999e+05,3.073887e+05,3.261726e+05,3.4    409     2.896999e+05,3.073887e+05,3.261726e+05,3.461204e+05,3.673050e+05,3.898039e+05,4.136996e+05,
411     4.390797e+05,4.660376e+05,4.946723e+05,5.2    410     4.390797e+05,4.660376e+05,4.946723e+05,5.250894e+05,5.574009e+05,5.917262e+05,6.281921e+05};
412 static const G4double P02[nE]={                   411 static const G4double P02[nE]={
413     0.000000e+00,0.000000e+00,0.000000e+00,0.0    412     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
414     0.000000e+00,0.000000e+00,0.000000e+00,0.0    413     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
415     0.000000e+00,0.000000e+00,0.000000e+00,0.0    414     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
416     0.000000e+00,0.000000e+00,0.000000e+00,0.0    415     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
417     0.000000e+00,0.000000e+00,0.000000e+00,0.0    416     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,4.420900e-05,1.361817e-04,
418     2.266269e-04,3.153714e-04,4.017279e-04,4.8    417     2.266269e-04,3.153714e-04,4.017279e-04,4.855357e-04,5.667169e-04,6.451910e-04,7.209150e-04,
419     7.941235e-04,8.648089e-04,9.328938e-04,9.9    418     7.941235e-04,8.648089e-04,9.328938e-04,9.982988e-04,1.061300e-03,1.122181e-03,1.180878e-03,
420     1.237327e-03,1.291871e-03,1.344747e-03,1.3    419     1.237327e-03,1.291871e-03,1.344747e-03,1.395901e-03,1.445399e-03,1.493678e-03,1.540753e-03,
421     1.586647e-03,1.631791e-03,1.676264e-03,1.7    420     1.586647e-03,1.631791e-03,1.676264e-03,1.720139e-03,1.763868e-03,1.807513e-03,1.851337e-03,
422     1.895742e-03,1.940822e-03,1.987146e-03,2.0    421     1.895742e-03,1.940822e-03,1.987146e-03,2.034882e-03,2.084594e-03,2.136652e-03,2.191607e-03,
423     2.250027e-03,2.312541e-03,2.379824e-03,2.4    422     2.250027e-03,2.312541e-03,2.379824e-03,2.452669e-03,2.531743e-03,2.617905e-03,2.711676e-03,
424     2.813598e-03,2.923687e-03,3.041745e-03,3.1    423     2.813598e-03,2.923687e-03,3.041745e-03,3.166730e-03,3.297379e-03,3.432040e-03,3.568683e-03,
425     3.705488e-03,3.840963e-03,3.973777e-03,4.1    424     3.705488e-03,3.840963e-03,3.973777e-03,4.102940e-03,4.227769e-03,4.347808e-03,4.462773e-03,
426     4.572513e-03,4.676977e-03,4.776189e-03,4.8    425     4.572513e-03,4.676977e-03,4.776189e-03,4.870234e-03,4.959240e-03,5.043366e-03,5.122795e-03,
427     5.197723e-03,5.268357e-03,5.334907e-03,5.3    426     5.197723e-03,5.268357e-03,5.334907e-03,5.397586e-03,5.456607e-03,5.512171e-03,5.564479e-03,
428     5.613724e-03,5.660086e-03,5.703745e-03,5.7    427     5.613724e-03,5.660086e-03,5.703745e-03,5.744862e-03,5.783597e-03,5.820098e-03,5.854504e-03,
429     5.886946e-03,5.917549e-03,5.946428e-03,5.9    428     5.886946e-03,5.917549e-03,5.946428e-03,5.973693e-03,5.999444e-03,6.023779e-03,6.046787e-03,
430     6.068552e-03,6.089154e-03,6.108666e-03,6.1    429     6.068552e-03,6.089154e-03,6.108666e-03,6.127159e-03,6.144698e-03,6.161344e-03,6.177157e-03,
431     6.192190e-03,6.206496e-03,6.220122e-03,6.2    430     6.192190e-03,6.206496e-03,6.220122e-03,6.233117e-03,6.245523e-03,6.257148e-03,6.267814e-03,
432     6.278332e-03,6.288730e-03,6.299041e-03,6.3    431     6.278332e-03,6.288730e-03,6.299041e-03,6.309306e-03,6.319568e-03,6.329890e-03,6.340346e-03,
433     6.351039e-03,6.362103e-03,6.373708e-03,6.3    432     6.351039e-03,6.362103e-03,6.373708e-03,6.386067e-03,6.399432e-03,6.414085e-03,6.430316e-03,
434     6.448411e-03,6.468623e-03,6.491167e-03,6.5    433     6.448411e-03,6.468623e-03,6.491167e-03,6.516222e-03,6.543944e-03,6.574484e-03,6.608010e-03,
435     6.644722e-03,6.684861e-03,6.728714e-03,6.7    434     6.644722e-03,6.684861e-03,6.728714e-03,6.776610e-03,6.828910e-03,6.885984e-03,6.948178e-03,
436     7.015759e-03,7.088847e-03,7.167329e-03,7.2    435     7.015759e-03,7.088847e-03,7.167329e-03,7.250781e-03,7.338407e-03,7.429041e-03,7.521215e-03,
437     7.613307e-03,7.703728e-03,7.791106e-03,7.8    436     7.613307e-03,7.703728e-03,7.791106e-03,7.874414e-03,7.953011e-03,8.026631e-03,8.095312e-03,
438     8.159311e-03,8.219026e-03,8.274939e-03,8.3    437     8.159311e-03,8.219026e-03,8.274939e-03,8.327565e-03,8.377428e-03,8.425044e-03,8.470912e-03,
439     8.515509e-03,8.559288e-03,8.602682e-03,8.6    438     8.515509e-03,8.559288e-03,8.602682e-03,8.646088e-03,8.689867e-03,8.734324e-03,8.779691e-03,
440     8.826098e-03,8.873546e-03,8.921888e-03,8.9    439     8.826098e-03,8.873546e-03,8.921888e-03,8.970825e-03,9.019927e-03,9.068684e-03,9.116571e-03,
441     9.163124e-03,9.207992e-03,9.250957e-03,9.2    440     9.163124e-03,9.207992e-03,9.250957e-03,9.291937e-03,9.330961e-03,9.368142e-03,9.403647e-03,
442     9.437672e-03,9.470422e-03,9.502096e-03,9.5    441     9.437672e-03,9.470422e-03,9.502096e-03,9.532883e-03,9.562954e-03,9.592457e-03,9.621524e-03,
443     9.650264e-03,9.678770e-03,9.707115e-03,9.7    442     9.650264e-03,9.678770e-03,9.707115e-03,9.735359e-03,9.763547e-03,9.791714e-03,9.819881e-03,
444     9.848065e-03,9.876273e-03,9.904506e-03,9.9    443     9.848065e-03,9.876273e-03,9.904506e-03,9.932763e-03,9.961037e-03,9.989320e-03,1.001760e-02,
445     1.004587e-02,1.007412e-02,1.010233e-02,1.0    444     1.004587e-02,1.007412e-02,1.010233e-02,1.013050e-02,1.015861e-02,1.018666e-02,1.021463e-02,
446     1.024251e-02,1.027031e-02,1.029800e-02,1.0    445     1.024251e-02,1.027031e-02,1.029800e-02,1.032560e-02,1.035308e-02,1.038046e-02,1.040771e-02,
447     1.043486e-02,1.046188e-02,1.048878e-02,1.0    446     1.043486e-02,1.046188e-02,1.048878e-02,1.051555e-02,1.054221e-02,1.056874e-02,1.059515e-02,
448     1.062144e-02,1.064761e-02,1.067366e-02,1.0    447     1.062144e-02,1.064761e-02,1.067366e-02,1.069959e-02,1.072540e-02,1.075110e-02,1.077668e-02,
449     1.080215e-02,1.082752e-02,1.085277e-02,1.0    448     1.080215e-02,1.082752e-02,1.085277e-02,1.087792e-02,1.090296e-02,1.092791e-02,1.095275e-02,
450     1.097749e-02,1.100214e-02,1.102670e-02,1.1    449     1.097749e-02,1.100214e-02,1.102670e-02,1.105116e-02,1.107554e-02,1.109983e-02,1.112403e-02,
451     1.114815e-02,1.117219e-02,1.119615e-02,1.1    450     1.114815e-02,1.117219e-02,1.119615e-02,1.122003e-02,1.124383e-02,1.126757e-02,1.129123e-02,
452     1.131482e-02,1.133834e-02,1.136179e-02,1.1    451     1.131482e-02,1.133834e-02,1.136179e-02,1.138518e-02,1.140851e-02,1.143178e-02,1.145498e-02,
453     1.147813e-02,1.150122e-02,1.152426e-02,1.1    452     1.147813e-02,1.150122e-02,1.152426e-02,1.154724e-02,1.157017e-02,1.159305e-02,1.161588e-02,
454     1.163867e-02,1.166140e-02,1.168409e-02,1.1    453     1.163867e-02,1.166140e-02,1.168409e-02,1.170674e-02,1.172935e-02,1.175192e-02,1.177444e-02,
455     1.179693e-02,1.181938e-02,1.184180e-02,1.1    454     1.179693e-02,1.181938e-02,1.184180e-02,1.186418e-02,1.188652e-02,1.190884e-02,1.193113e-02,
456     1.195338e-02,1.197561e-02,1.199781e-02,1.2    455     1.195338e-02,1.197561e-02,1.199781e-02,1.201998e-02,1.204213e-02,1.206425e-02,1.208635e-02,
457     1.210843e-02,1.213049e-02,1.215253e-02,1.2    456     1.210843e-02,1.213049e-02,1.215253e-02,1.217455e-02,1.219655e-02,1.221854e-02,1.224051e-02,
458     1.226246e-02,1.228440e-02,1.230633e-02,1.2    457     1.226246e-02,1.228440e-02,1.230633e-02,1.232825e-02,1.235016e-02,1.237205e-02,1.239394e-02,
459     1.241582e-02,1.243769e-02,1.245956e-02,1.2    458     1.241582e-02,1.243769e-02,1.245956e-02,1.248142e-02,1.250328e-02,1.252513e-02,1.254699e-02,
460     1.256884e-02,1.259069e-02,1.261254e-02,1.2    459     1.256884e-02,1.259069e-02,1.261254e-02,1.263439e-02,1.265624e-02,1.267809e-02,1.269995e-02};
461 static const G4double P12[nE]={                   460 static const G4double P12[nE]={
462     0.000000e+00,0.000000e+00,0.000000e+00,0.0    461     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
463     0.000000e+00,0.000000e+00,0.000000e+00,0.0    462     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
464     0.000000e+00,0.000000e+00,0.000000e+00,0.0    463     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
465     0.000000e+00,0.000000e+00,0.000000e+00,0.0    464     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
466     0.000000e+00,0.000000e+00,0.000000e+00,0.0    465     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,2.225283e-04,6.969163e-04,
467     1.179082e-03,1.668007e-03,2.159647e-03,2.6    466     1.179082e-03,1.668007e-03,2.159647e-03,2.652656e-03,3.146065e-03,3.638813e-03,4.130000e-03,
468     4.620522e-03,5.109707e-03,5.596353e-03,6.0    467     4.620522e-03,5.109707e-03,5.596353e-03,6.079144e-03,6.559396e-03,7.038618e-03,7.515675e-03,
469     7.989358e-03,8.461919e-03,8.934839e-03,9.4    468     7.989358e-03,8.461919e-03,8.934839e-03,9.407147e-03,9.878911e-03,1.035387e-02,1.083189e-02,
470     1.131287e-02,1.180118e-02,1.229762e-02,1.2    469     1.131287e-02,1.180118e-02,1.229762e-02,1.280305e-02,1.332290e-02,1.385829e-02,1.441300e-02,
471     1.499297e-02,1.560045e-02,1.624454e-02,1.6    470     1.499297e-02,1.560045e-02,1.624454e-02,1.692928e-02,1.766499e-02,1.845978e-02,1.932536e-02,
472     2.027454e-02,2.132233e-02,2.248557e-02,2.3    471     2.027454e-02,2.132233e-02,2.248557e-02,2.378467e-02,2.523919e-02,2.687393e-02,2.870892e-02,
473     3.076594e-02,3.305745e-02,3.559175e-02,3.8    472     3.076594e-02,3.305745e-02,3.559175e-02,3.835869e-02,4.134135e-02,4.451165e-02,4.782902e-02,
474     5.125391e-02,5.475126e-02,5.828676e-02,6.1    473     5.125391e-02,5.475126e-02,5.828676e-02,6.183222e-02,6.536541e-02,6.886876e-02,7.232843e-02,
475     7.573356e-02,7.907571e-02,8.234849e-02,8.5    474     7.573356e-02,7.907571e-02,8.234849e-02,8.554717e-02,8.866842e-02,9.171009e-02,9.467100e-02,
476     9.755076e-02,1.003496e-01,1.030683e-01,1.0    475     9.755076e-02,1.003496e-01,1.030683e-01,1.057082e-01,1.082710e-01,1.107584e-01,1.131724e-01,
477     1.155154e-01,1.177894e-01,1.199970e-01,1.2    476     1.155154e-01,1.177894e-01,1.199970e-01,1.221403e-01,1.242219e-01,1.262440e-01,1.282088e-01,
478     1.301187e-01,1.319759e-01,1.337825e-01,1.3    477     1.301187e-01,1.319759e-01,1.337825e-01,1.355408e-01,1.372527e-01,1.389203e-01,1.405455e-01,
479     1.421304e-01,1.436768e-01,1.451865e-01,1.4    478     1.421304e-01,1.436768e-01,1.451865e-01,1.466613e-01,1.481032e-01,1.495139e-01,1.508951e-01,
480     1.522486e-01,1.535763e-01,1.548799e-01,1.5    479     1.522486e-01,1.535763e-01,1.548799e-01,1.561612e-01,1.574222e-01,1.586397e-01,1.597917e-01,
481     1.609624e-01,1.621554e-01,1.633749e-01,1.6    480     1.609624e-01,1.621554e-01,1.633749e-01,1.646261e-01,1.659155e-01,1.672522e-01,1.686479e-01,
482     1.701192e-01,1.716882e-01,1.733847e-01,1.7    481     1.701192e-01,1.716882e-01,1.733847e-01,1.752469e-01,1.773226e-01,1.796681e-01,1.823462e-01,
483     1.854234e-01,1.889661e-01,1.930388e-01,1.9    482     1.854234e-01,1.889661e-01,1.930388e-01,1.977039e-01,2.030239e-01,2.090644e-01,2.158990e-01,
484     2.236126e-01,2.323048e-01,2.420924e-01,2.5    483     2.236126e-01,2.323048e-01,2.420924e-01,2.531103e-01,2.655101e-01,2.794568e-01,2.951204e-01,
485     3.126625e-01,3.322153e-01,3.538544e-01,3.7    484     3.126625e-01,3.322153e-01,3.538544e-01,3.775683e-01,4.032308e-01,4.305865e-01,4.592584e-01,
486     4.887811e-01,5.186554e-01,5.484082e-01,5.7    485     4.887811e-01,5.186554e-01,5.484082e-01,5.776430e-01,6.060694e-01,6.335111e-01,6.598960e-01,
487     6.852353e-01,7.096034e-01,7.331188e-01,7.5    486     6.852353e-01,7.096034e-01,7.331188e-01,7.559302e-01,7.782067e-01,8.001315e-01,8.218986e-01,
488     8.437111e-01,8.657805e-01,8.883258e-01,9.1    487     8.437111e-01,8.657805e-01,8.883258e-01,9.115688e-01,9.357297e-01,9.610168e-01,9.876119e-01,
489     1.015650e+00,1.045194e+00,1.076217e+00,1.1    488     1.015650e+00,1.045194e+00,1.076217e+00,1.108583e+00,1.142051e+00,1.176301e+00,1.210968e+00,
490     1.245702e+00,1.280202e+00,1.314250e+00,1.3    489     1.245702e+00,1.280202e+00,1.314250e+00,1.347718e+00,1.380565e+00,1.412820e+00,1.444563e+00,
491     1.475916e+00,1.507016e+00,1.538017e+00,1.5    490     1.475916e+00,1.507016e+00,1.538017e+00,1.569073e+00,1.600334e+00,1.631945e+00,1.664042e+00,
492     1.696751e+00,1.730185e+00,1.764449e+00,1.7    491     1.696751e+00,1.730185e+00,1.764449e+00,1.799637e+00,1.835830e+00,1.873102e+00,1.911516e+00,
493     1.951130e+00,1.991990e+00,2.034139e+00,2.0    492     1.951130e+00,1.991990e+00,2.034139e+00,2.077614e+00,2.122447e+00,2.168668e+00,2.216301e+00,
494     2.265373e+00,2.315904e+00,2.367919e+00,2.4    493     2.265373e+00,2.315904e+00,2.367919e+00,2.421439e+00,2.476486e+00,2.533084e+00,2.591258e+00,
495     2.651032e+00,2.712435e+00,2.775494e+00,2.8    494     2.651032e+00,2.712435e+00,2.775494e+00,2.840241e+00,2.906709e+00,2.974931e+00,3.044946e+00,
496     3.116791e+00,3.190508e+00,3.266141e+00,3.3    495     3.116791e+00,3.190508e+00,3.266141e+00,3.343734e+00,3.423336e+00,3.504997e+00,3.588769e+00,
497     3.674707e+00,3.762868e+00,3.853312e+00,3.9    496     3.674707e+00,3.762868e+00,3.853312e+00,3.946099e+00,4.041295e+00,4.138965e+00,4.239180e+00,
498     4.342009e+00,4.447529e+00,4.555814e+00,4.6    497     4.342009e+00,4.447529e+00,4.555814e+00,4.666945e+00,4.781004e+00,4.898075e+00,5.018245e+00,
499     5.141606e+00,5.268252e+00,5.398277e+00,5.5    498     5.141606e+00,5.268252e+00,5.398277e+00,5.531782e+00,5.668870e+00,5.809647e+00,5.954223e+00,
500     6.102709e+00,6.255223e+00,6.411885e+00,6.5    499     6.102709e+00,6.255223e+00,6.411885e+00,6.572819e+00,6.738153e+00,6.908018e+00,7.082551e+00,
501     7.261893e+00,7.446187e+00,7.635583e+00,7.8    500     7.261893e+00,7.446187e+00,7.635583e+00,7.830235e+00,8.030303e+00,8.235949e+00,8.447343e+00,
502     8.664658e+00,8.888076e+00,9.117781e+00,9.3    501     8.664658e+00,8.888076e+00,9.117781e+00,9.353964e+00,9.596824e+00,9.846563e+00,1.010339e+01,
503     1.036753e+01,1.063919e+01,1.091862e+01,1.1    502     1.036753e+01,1.063919e+01,1.091862e+01,1.120604e+01,1.150170e+01,1.180587e+01,1.211879e+01,
504     1.244074e+01,1.277199e+01,1.311284e+01,1.3    503     1.244074e+01,1.277199e+01,1.311284e+01,1.346358e+01,1.382452e+01,1.419596e+01,1.457824e+01,
505     1.497170e+01,1.537667e+01,1.579352e+01,1.6    504     1.497170e+01,1.537667e+01,1.579352e+01,1.622262e+01,1.666435e+01,1.711910e+01,1.758728e+01,
506     1.806931e+01,1.856562e+01,1.907666e+01,1.9    505     1.806931e+01,1.856562e+01,1.907666e+01,1.960289e+01,2.014478e+01,2.070283e+01,2.127756e+01,
507     2.186947e+01,2.247911e+01,2.310704e+01,2.3    506     2.186947e+01,2.247911e+01,2.310704e+01,2.375385e+01,2.442012e+01,2.510646e+01,2.581353e+01,
508     2.654196e+01,2.729244e+01,2.806568e+01,2.8    507     2.654196e+01,2.729244e+01,2.806568e+01,2.886238e+01,2.968330e+01,3.052921e+01,3.140091e+01,
509     3.229921e+01,3.322497e+01,3.417906e+01,3.5    508     3.229921e+01,3.322497e+01,3.417906e+01,3.516238e+01,3.617589e+01,3.722053e+01,3.829731e+01};
510 static const G4double P22[nE]={                   509 static const G4double P22[nE]={
511     0.000000e+00,0.000000e+00,0.000000e+00,0.0    510     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
512     0.000000e+00,0.000000e+00,0.000000e+00,0.0    511     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
513     0.000000e+00,0.000000e+00,0.000000e+00,0.0    512     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
514     0.000000e+00,0.000000e+00,0.000000e+00,0.0    513     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
515     0.000000e+00,0.000000e+00,0.000000e+00,0.0    514     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,1.120131e-03,3.567208e-03,
516     6.137882e-03,8.831785e-03,1.163101e-02,1.4    515     6.137882e-03,8.831785e-03,1.163101e-02,1.453145e-02,1.753060e-02,2.062489e-02,2.381127e-02,
517     2.709822e-02,3.048398e-02,3.396264e-02,3.7    516     2.709822e-02,3.048398e-02,3.396264e-02,3.752670e-02,4.118793e-02,4.496040e-02,4.883801e-02,
518     5.281322e-02,5.690771e-02,6.113789e-02,6.5    517     5.281322e-02,5.690771e-02,6.113789e-02,6.549907e-02,6.999581e-02,7.466886e-02,7.952312e-02,
519     8.456445e-02,8.984669e-02,9.538880e-02,1.0    518     8.456445e-02,8.984669e-02,9.538880e-02,1.012118e-01,1.073922e-01,1.139603e-01,1.209824e-01,
520     1.285578e-01,1.367447e-01,1.457007e-01,1.5    519     1.285578e-01,1.367447e-01,1.457007e-01,1.555238e-01,1.664127e-01,1.785480e-01,1.921825e-01,
521     2.076059e-01,2.251690e-01,2.452818e-01,2.6    520     2.076059e-01,2.251690e-01,2.452818e-01,2.684512e-01,2.952087e-01,3.262268e-01,3.621378e-01,
522     4.036571e-01,4.513583e-01,5.057654e-01,5.6    521     4.036571e-01,4.513583e-01,5.057654e-01,5.670252e-01,6.351235e-01,7.097670e-01,7.903118e-01,
523     8.760602e-01,9.663525e-01,1.060475e+00,1.1    522     8.760602e-01,9.663525e-01,1.060475e+00,1.157804e+00,1.257815e+00,1.360070e+00,1.464190e+00,
524     1.569856e+00,1.676792e+00,1.784762e+00,1.8    523     1.569856e+00,1.676792e+00,1.784762e+00,1.893564e+00,2.003028e+00,2.113012e+00,2.223396e+00,
525     2.334084e+00,2.444997e+00,2.556071e+00,2.6    524     2.334084e+00,2.444997e+00,2.556071e+00,2.667265e+00,2.778554e+00,2.889911e+00,3.001327e+00,
526     3.112811e+00,3.224358e+00,3.335994e+00,3.4    525     3.112811e+00,3.224358e+00,3.335994e+00,3.447730e+00,3.559596e+00,3.671622e+00,3.783838e+00,
527     3.896283e+00,4.009001e+00,4.122034e+00,4.2    526     3.896283e+00,4.009001e+00,4.122034e+00,4.235431e+00,4.349243e+00,4.463526e+00,4.578342e+00,
528     4.693754e+00,4.809831e+00,4.926647e+00,5.0    527     4.693754e+00,4.809831e+00,4.926647e+00,5.044285e+00,5.162832e+00,5.282382e+00,5.403039e+00,
529     5.524919e+00,5.648145e+00,5.772858e+00,5.8    528     5.524919e+00,5.648145e+00,5.772858e+00,5.899215e+00,6.027391e+00,6.154925e+00,6.279335e+00,
530     6.409661e+00,6.546552e+00,6.690783e+00,6.8    529     6.409661e+00,6.546552e+00,6.690783e+00,6.843308e+00,7.005336e+00,7.178452e+00,7.364781e+00,
531     7.567228e+00,7.789765e+00,8.037769e+00,8.3    530     7.567228e+00,7.789765e+00,8.037769e+00,8.318377e+00,8.640763e+00,9.016247e+00,9.458163e+00,
532     9.981511e+00,1.060252e+01,1.133833e+01,1.2    531     9.981511e+00,1.060252e+01,1.133833e+01,1.220702e+01,1.322802e+01,1.442289e+01,1.581627e+01,
533     1.743708e+01,1.931953e+01,2.150424e+01,2.4    532     1.743708e+01,1.931953e+01,2.150424e+01,2.403895e+01,2.697907e+01,3.038737e+01,3.433257e+01,
534     3.888631e+01,4.411756e+01,5.008434e+01,5.6    533     3.888631e+01,4.411756e+01,5.008434e+01,5.682345e+01,6.433960e+01,7.259691e+01,8.151634e+01,
535     9.098150e+01,1.008525e+02,1.109841e+02,1.2    534     9.098150e+01,1.008525e+02,1.109841e+02,1.212442e+02,1.315260e+02,1.417556e+02,1.518925e+02,
536     1.619260e+02,1.718706e+02,1.817614e+02,1.9    535     1.619260e+02,1.718706e+02,1.817614e+02,1.916501e+02,2.016029e+02,2.116989e+02,2.220295e+02,
537     2.326990e+02,2.438250e+02,2.555393e+02,2.6    536     2.326990e+02,2.438250e+02,2.555393e+02,2.679864e+02,2.813215e+02,2.957058e+02,3.112976e+02,
538     3.282386e+02,3.466366e+02,3.665465e+02,3.8    537     3.282386e+02,3.466366e+02,3.665465e+02,3.879537e+02,4.107678e+02,4.348286e+02,4.599280e+02,
539     4.858444e+02,5.123742e+02,5.393579e+02,5.6    538     4.858444e+02,5.123742e+02,5.393579e+02,5.666943e+02,5.943443e+02,6.223268e+02,6.507098e+02,
540     6.796009e+02,7.091381e+02,7.394822e+02,7.7    539     6.796009e+02,7.091381e+02,7.394822e+02,7.708109e+02,8.033129e+02,8.371852e+02,8.726312e+02,
541     9.098582e+02,9.490768e+02,9.904994e+02,1.0    540     9.098582e+02,9.490768e+02,9.904994e+02,1.034340e+03,1.080815e+03,1.130139e+03,1.182532e+03,
542     1.238214e+03,1.297406e+03,1.360335e+03,1.4    541     1.238214e+03,1.297406e+03,1.360335e+03,1.427230e+03,1.498326e+03,1.573865e+03,1.654097e+03,
543     1.739279e+03,1.829682e+03,1.925585e+03,2.0    542     1.739279e+03,1.829682e+03,1.925585e+03,2.027284e+03,2.135086e+03,2.249318e+03,2.370323e+03,
544     2.498462e+03,2.634120e+03,2.777703e+03,2.9    543     2.498462e+03,2.634120e+03,2.777703e+03,2.929640e+03,3.090388e+03,3.260429e+03,3.440278e+03,
545     3.630477e+03,3.831604e+03,4.044271e+03,4.2    544     3.630477e+03,3.831604e+03,4.044271e+03,4.269129e+03,4.506868e+03,4.758219e+03,5.023960e+03,
546     5.304913e+03,5.601955e+03,5.916011e+03,6.2    545     5.304913e+03,5.601955e+03,5.916011e+03,6.248067e+03,6.599167e+03,6.970418e+03,7.362995e+03,
547     7.778144e+03,8.217189e+03,8.681530e+03,9.1    546     7.778144e+03,8.217189e+03,8.681530e+03,9.172656e+03,9.692145e+03,1.024167e+04,1.082301e+04,
548     1.143804e+04,1.208877e+04,1.277731e+04,1.3    547     1.143804e+04,1.208877e+04,1.277731e+04,1.350591e+04,1.427696e+04,1.509299e+04,1.595667e+04,
549     1.687087e+04,1.783860e+04,1.886306e+04,1.9    548     1.687087e+04,1.783860e+04,1.886306e+04,1.994767e+04,2.109602e+04,2.231195e+04,2.359952e+04,
550     2.496305e+04,2.640711e+04,2.793656e+04,2.9    549     2.496305e+04,2.640711e+04,2.793656e+04,2.955655e+04,3.127256e+04,3.309039e+04,3.501622e+04,
551     3.705657e+04,3.921839e+04,4.150907e+04,4.3    550     3.705657e+04,3.921839e+04,4.150907e+04,4.393642e+04,4.650876e+04,4.923490e+04,5.212422e+04,
552     5.518666e+04,5.843278e+04,6.187379e+04,6.5    551     5.518666e+04,5.843278e+04,6.187379e+04,6.552160e+04,6.938886e+04,7.348899e+04,7.783625e+04,
553     8.244579e+04,8.733369e+04,9.251705e+04,9.8    552     8.244579e+04,8.733369e+04,9.251705e+04,9.801401e+04,1.038438e+05,1.100270e+05,1.165853e+05,
554     1.235418e+05,1.309211e+05,1.387492e+05,1.4    553     1.235418e+05,1.309211e+05,1.387492e+05,1.470539e+05,1.558646e+05,1.652126e+05,1.751311e+05,
555     1.856555e+05,1.968232e+05,2.086742e+05,2.2    554     1.856555e+05,1.968232e+05,2.086742e+05,2.212509e+05,2.345983e+05,2.487643e+05,2.637997e+05,
556     2.797587e+05,2.966988e+05,3.146809e+05,3.3    555     2.797587e+05,2.966988e+05,3.146809e+05,3.337702e+05,3.540357e+05,3.755506e+05,3.983931e+05,
557     4.226461e+05,4.483978e+05,4.757419e+05,5.0    556     4.226461e+05,4.483978e+05,4.757419e+05,5.047781e+05,5.356124e+05,5.683574e+05,6.031331e+05,
558     6.400668e+05,6.792939e+05,7.209586e+05,7.6    557     6.400668e+05,6.792939e+05,7.209586e+05,7.652140e+05,8.122231e+05,8.621592e+05,9.152064e+05};
559 static const G4double P03[nE]={                   558 static const G4double P03[nE]={
560     0.000000e+00,0.000000e+00,0.000000e+00,0.0    559     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
561     0.000000e+00,0.000000e+00,0.000000e+00,0.0    560     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
562     0.000000e+00,0.000000e+00,0.000000e+00,0.0    561     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
563     0.000000e+00,0.000000e+00,0.000000e+00,0.0    562     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
564     0.000000e+00,0.000000e+00,0.000000e+00,0.0    563     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
565     0.000000e+00,0.000000e+00,0.000000e+00,0.0    564     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
566     0.000000e+00,0.000000e+00,0.000000e+00,0.0    565     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
567     0.000000e+00,0.000000e+00,0.000000e+00,0.0    566     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
568     0.000000e+00,0.000000e+00,0.000000e+00,0.0    567     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
569     0.000000e+00,0.000000e+00,0.000000e+00,0.0    568     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
570     0.000000e+00,0.000000e+00,0.000000e+00,0.0    569     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,1.409974e-04,
571     3.120096e-04,5.006502e-04,7.064650e-04,9.2    570     3.120096e-04,5.006502e-04,7.064650e-04,9.273072e-04,1.160607e-03,1.403015e-03,1.650417e-03,
572     1.899130e-03,2.146133e-03,2.388721e-03,2.6    571     1.899130e-03,2.146133e-03,2.388721e-03,2.624876e-03,2.853195e-03,3.072731e-03,3.282883e-03,
573     3.483317e-03,3.673901e-03,3.854657e-03,4.0    572     3.483317e-03,3.673901e-03,3.854657e-03,4.025724e-03,4.187333e-03,4.339776e-03,4.483396e-03,
574     4.618564e-03,4.745669e-03,4.865110e-03,4.9    573     4.618564e-03,4.745669e-03,4.865110e-03,4.977295e-03,5.082631e-03,5.181502e-03,5.274289e-03,
575     5.361367e-03,5.443076e-03,5.519761e-03,5.5    574     5.361367e-03,5.443076e-03,5.519761e-03,5.591731e-03,5.659291e-03,5.722723e-03,5.782293e-03,
576     5.838252e-03,5.890835e-03,5.940264e-03,5.9    575     5.838252e-03,5.890835e-03,5.940264e-03,5.986745e-03,6.030472e-03,6.071627e-03,6.110379e-03,
577     6.146889e-03,6.181306e-03,6.213770e-03,6.2    576     6.146889e-03,6.181306e-03,6.213770e-03,6.244412e-03,6.273357e-03,6.300718e-03,6.326607e-03,
578     6.351124e-03,6.374368e-03,6.396429e-03,6.4    577     6.351124e-03,6.374368e-03,6.396429e-03,6.417395e-03,6.437348e-03,6.456265e-03,6.474073e-03,
579     6.491149e-03,6.507570e-03,6.523412e-03,6.5    578     6.491149e-03,6.507570e-03,6.523412e-03,6.538764e-03,6.553724e-03,6.568408e-03,6.582959e-03,
580     6.597557e-03,6.612423e-03,6.627837e-03,6.6    579     6.597557e-03,6.612423e-03,6.627837e-03,6.644132e-03,6.661699e-03,6.680967e-03,6.702376e-03,
581     6.726353e-03,6.753276e-03,6.783463e-03,6.8    580     6.726353e-03,6.753276e-03,6.783463e-03,6.817177e-03,6.854643e-03,6.896074e-03,6.941701e-03,
582     6.991787e-03,7.046648e-03,7.106649e-03,7.1    581     6.991787e-03,7.046648e-03,7.106649e-03,7.172202e-03,7.243749e-03,7.321731e-03,7.406542e-03,
583     7.498466e-03,7.597591e-03,7.703710e-03,7.8    582     7.498466e-03,7.597591e-03,7.703710e-03,7.816238e-03,7.934150e-03,8.055987e-03,8.179938e-03,
584     8.304010e-03,8.426239e-03,8.544896e-03,8.6    583     8.304010e-03,8.426239e-03,8.544896e-03,8.658642e-03,8.766594e-03,8.868315e-03,8.963752e-03,
585     9.053136e-03,9.136896e-03,9.215579e-03,9.2    584     9.053136e-03,9.136896e-03,9.215579e-03,9.289794e-03,9.360172e-03,9.427339e-03,9.491904e-03,
586     9.554447e-03,9.615520e-03,9.675636e-03,9.7    585     9.554447e-03,9.615520e-03,9.675636e-03,9.735266e-03,9.794830e-03,9.854684e-03,9.915103e-03,
587     9.976259e-03,1.003820e-02,1.010084e-02,1.0    586     9.976259e-03,1.003820e-02,1.010084e-02,1.016395e-02,1.022716e-02,1.029004e-02,1.035209e-02,
588     1.041285e-02,1.047195e-02,1.052910e-02,1.0    587     1.041285e-02,1.047195e-02,1.052910e-02,1.058414e-02,1.063704e-02,1.068785e-02,1.073670e-02,
589     1.078376e-02,1.082922e-02,1.087331e-02,1.0    588     1.078376e-02,1.082922e-02,1.087331e-02,1.091623e-02,1.095817e-02,1.099930e-02,1.103978e-02,
590     1.107975e-02,1.111933e-02,1.115860e-02,1.1    589     1.107975e-02,1.111933e-02,1.115860e-02,1.119765e-02,1.123654e-02,1.127531e-02,1.131400e-02,
591     1.135262e-02,1.139120e-02,1.142974e-02,1.1    590     1.135262e-02,1.139120e-02,1.142974e-02,1.146824e-02,1.150669e-02,1.154509e-02,1.158343e-02,
592     1.162169e-02,1.165987e-02,1.169795e-02,1.1    591     1.162169e-02,1.165987e-02,1.169795e-02,1.173592e-02,1.177377e-02,1.181149e-02,1.184906e-02,
593     1.188649e-02,1.192375e-02,1.196086e-02,1.1    592     1.188649e-02,1.192375e-02,1.196086e-02,1.199779e-02,1.203454e-02,1.207112e-02,1.210751e-02,
594     1.214372e-02,1.217975e-02,1.221559e-02,1.2    593     1.214372e-02,1.217975e-02,1.221559e-02,1.225124e-02,1.228671e-02,1.232200e-02,1.235710e-02,
595     1.239202e-02,1.242676e-02,1.246133e-02,1.2    594     1.239202e-02,1.242676e-02,1.246133e-02,1.249572e-02,1.252994e-02,1.256399e-02,1.259787e-02,
596     1.263159e-02,1.266515e-02,1.269855e-02,1.2    595     1.263159e-02,1.266515e-02,1.269855e-02,1.273181e-02,1.276490e-02,1.279786e-02,1.283067e-02,
597     1.286333e-02,1.289586e-02,1.292826e-02,1.2    596     1.286333e-02,1.289586e-02,1.292826e-02,1.296053e-02,1.299266e-02,1.302467e-02,1.305656e-02,
598     1.308833e-02,1.311999e-02,1.315153e-02,1.3    597     1.308833e-02,1.311999e-02,1.315153e-02,1.318296e-02,1.321428e-02,1.324550e-02,1.327661e-02,
599     1.330763e-02,1.333855e-02,1.336937e-02,1.3    598     1.330763e-02,1.333855e-02,1.336937e-02,1.340010e-02,1.343074e-02,1.346130e-02,1.349177e-02,
600     1.352215e-02,1.355246e-02,1.358269e-02,1.3    599     1.352215e-02,1.355246e-02,1.358269e-02,1.361284e-02,1.364292e-02,1.367293e-02,1.370287e-02,
601     1.373274e-02,1.376254e-02,1.379228e-02,1.3    600     1.373274e-02,1.376254e-02,1.379228e-02,1.382196e-02,1.385158e-02,1.388114e-02,1.391065e-02,
602     1.394010e-02,1.396950e-02,1.399885e-02,1.4    601     1.394010e-02,1.396950e-02,1.399885e-02,1.402815e-02,1.405740e-02,1.408661e-02,1.411577e-02,
603     1.414489e-02,1.417397e-02,1.420301e-02,1.4    602     1.414489e-02,1.417397e-02,1.420301e-02,1.423201e-02,1.426098e-02,1.428992e-02,1.431882e-02,
604     1.434768e-02,1.437652e-02,1.440533e-02,1.4    603     1.434768e-02,1.437652e-02,1.440533e-02,1.443412e-02,1.446287e-02,1.449161e-02,1.452032e-02,
605     1.454901e-02,1.457768e-02,1.460633e-02,1.4    604     1.454901e-02,1.457768e-02,1.460633e-02,1.463496e-02,1.466358e-02,1.469218e-02,1.472077e-02,
606     1.474934e-02,1.477791e-02,1.480646e-02,1.4    605     1.474934e-02,1.477791e-02,1.480646e-02,1.483501e-02,1.486355e-02,1.489208e-02,1.492061e-02,
607     1.494914e-02,1.497766e-02,1.500618e-02,1.5    606     1.494914e-02,1.497766e-02,1.500618e-02,1.503470e-02,1.506322e-02,1.509175e-02,1.512027e-02};
608 static const G4double P13[nE]={                   607 static const G4double P13[nE]={
609     0.000000e+00,0.000000e+00,0.000000e+00,0.0    608     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
610     0.000000e+00,0.000000e+00,0.000000e+00,0.0    609     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
611     0.000000e+00,0.000000e+00,0.000000e+00,0.0    610     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
612     0.000000e+00,0.000000e+00,0.000000e+00,0.0    611     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
613     0.000000e+00,0.000000e+00,0.000000e+00,0.0    612     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
614     0.000000e+00,0.000000e+00,0.000000e+00,0.0    613     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
615     0.000000e+00,0.000000e+00,0.000000e+00,0.0    614     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
616     0.000000e+00,0.000000e+00,0.000000e+00,0.0    615     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
617     0.000000e+00,0.000000e+00,0.000000e+00,0.0    616     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
618     0.000000e+00,0.000000e+00,0.000000e+00,0.0    617     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
619     0.000000e+00,0.000000e+00,0.000000e+00,0.0    618     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,2.762798e-03,
620     6.214464e-03,1.014119e-02,1.455950e-02,1.9    619     6.214464e-03,1.014119e-02,1.455950e-02,1.944870e-02,2.477496e-02,3.048202e-02,3.648846e-02,
621     4.271502e-02,4.909153e-02,5.554923e-02,6.2    620     4.271502e-02,4.909153e-02,5.554923e-02,6.203158e-02,6.849397e-02,7.490114e-02,8.122529e-02,
622     8.744455e-02,9.354199e-02,9.950466e-02,1.0    621     8.744455e-02,9.354199e-02,9.950466e-02,1.053230e-01,1.109903e-01,1.165020e-01,1.218558e-01,
623     1.270507e-01,1.320872e-01,1.369666e-01,1.4    622     1.270507e-01,1.320872e-01,1.369666e-01,1.416915e-01,1.462653e-01,1.506913e-01,1.549735e-01,
624     1.591164e-01,1.631241e-01,1.670017e-01,1.7    623     1.591164e-01,1.631241e-01,1.670017e-01,1.707532e-01,1.743837e-01,1.778977e-01,1.812996e-01,
625     1.845939e-01,1.877850e-01,1.908772e-01,1.9    624     1.845939e-01,1.877850e-01,1.908772e-01,1.938747e-01,1.967815e-01,1.996017e-01,2.023391e-01,
626     2.049976e-01,2.075809e-01,2.100927e-01,2.1    625     2.049976e-01,2.075809e-01,2.100927e-01,2.125365e-01,2.149160e-01,2.172346e-01,2.194959e-01,
627     2.217034e-01,2.238606e-01,2.259710e-01,2.2    626     2.217034e-01,2.238606e-01,2.259710e-01,2.280383e-01,2.300664e-01,2.320480e-01,2.339710e-01,
628     2.358717e-01,2.377555e-01,2.396290e-01,2.4    627     2.358717e-01,2.377555e-01,2.396290e-01,2.415002e-01,2.433797e-01,2.452813e-01,2.472236e-01,
629     2.492319e-01,2.513402e-01,2.535933e-01,2.5    628     2.492319e-01,2.513402e-01,2.535933e-01,2.560486e-01,2.587768e-01,2.618611e-01,2.653936e-01,
630     2.694712e-01,2.741902e-01,2.796437e-01,2.8    629     2.694712e-01,2.741902e-01,2.796437e-01,2.859211e-01,2.931111e-01,3.013060e-01,3.106073e-01,
631     3.211310e-01,3.330113e-01,3.464030e-01,3.6    630     3.211310e-01,3.330113e-01,3.464030e-01,3.614827e-01,3.784459e-01,3.975016e-01,4.188614e-01,
632     4.427220e-01,4.692400e-01,4.984989e-01,5.3    631     4.427220e-01,4.692400e-01,4.984989e-01,5.304750e-01,5.650069e-01,6.017804e-01,6.403371e-01,
633     6.801126e-01,7.204962e-01,7.608999e-01,8.0    632     6.801126e-01,7.204962e-01,7.608999e-01,8.008170e-01,8.398607e-01,8.777776e-01,9.144416e-01,
634     9.498326e-01,9.840127e-01,1.017105e+00,1.0    633     9.498326e-01,9.840127e-01,1.017105e+00,1.049275e+00,1.080716e+00,1.111643e+00,1.142283e+00,
635     1.172873e+00,1.203659e+00,1.234892e+00,1.2    634     1.172873e+00,1.203659e+00,1.234892e+00,1.266822e+00,1.299693e+00,1.333737e+00,1.369155e+00,
636     1.406103e+00,1.444672e+00,1.484870e+00,1.5    635     1.406103e+00,1.444672e+00,1.484870e+00,1.526605e+00,1.569693e+00,1.613861e+00,1.658784e+00,
637     1.704122e+00,1.749563e+00,1.794852e+00,1.8    636     1.704122e+00,1.749563e+00,1.794852e+00,1.839808e+00,1.884335e+00,1.928413e+00,1.972085e+00,
638     2.015447e+00,2.058627e+00,2.101780e+00,2.1    637     2.015447e+00,2.058627e+00,2.101780e+00,2.145070e+00,2.188667e+00,2.232736e+00,2.277440e+00,
639     2.322931e+00,2.369348e+00,2.416823e+00,2.4    638     2.322931e+00,2.369348e+00,2.416823e+00,2.465473e+00,2.515403e+00,2.566707e+00,2.619468e+00,
640     2.673759e+00,2.729644e+00,2.787177e+00,2.8    639     2.673759e+00,2.729644e+00,2.787177e+00,2.846409e+00,2.907381e+00,2.970134e+00,3.034703e+00,
641     3.101119e+00,3.169415e+00,3.239621e+00,3.3    640     3.101119e+00,3.169415e+00,3.239621e+00,3.311767e+00,3.385883e+00,3.462001e+00,3.540153e+00,
642     3.620375e+00,3.702702e+00,3.787172e+00,3.8    641     3.620375e+00,3.702702e+00,3.787172e+00,3.873828e+00,3.962711e+00,4.053869e+00,4.147350e+00,
643     4.243205e+00,4.341489e+00,4.442258e+00,4.5    642     4.243205e+00,4.341489e+00,4.442258e+00,4.545574e+00,4.651497e+00,4.760095e+00,4.871437e+00,
644     4.985593e+00,5.102639e+00,5.222653e+00,5.3    643     4.985593e+00,5.102639e+00,5.222653e+00,5.345715e+00,5.471910e+00,5.601324e+00,5.734049e+00,
645     5.870177e+00,6.009805e+00,6.153034e+00,6.2    644     5.870177e+00,6.009805e+00,6.153034e+00,6.299967e+00,6.450712e+00,6.605379e+00,6.764082e+00,
646     6.926941e+00,7.094076e+00,7.265614e+00,7.4    645     6.926941e+00,7.094076e+00,7.265614e+00,7.441685e+00,7.622423e+00,7.807966e+00,7.998458e+00,
647     8.194045e+00,8.394879e+00,8.601118e+00,8.8    646     8.194045e+00,8.394879e+00,8.601118e+00,8.812923e+00,9.030461e+00,9.253904e+00,9.483429e+00,
648     9.719220e+00,9.961464e+00,1.021036e+01,1.0    647     9.719220e+00,9.961464e+00,1.021036e+01,1.046610e+01,1.072890e+01,1.099897e+01,1.127653e+01,
649     1.156181e+01,1.185504e+01,1.215646e+01,1.2    648     1.156181e+01,1.185504e+01,1.215646e+01,1.246633e+01,1.278490e+01,1.311243e+01,1.344920e+01,
650     1.379550e+01,1.415161e+01,1.451783e+01,1.4    649     1.379550e+01,1.415161e+01,1.451783e+01,1.489447e+01,1.528186e+01,1.568033e+01,1.609020e+01,
651     1.651185e+01,1.694562e+01,1.739189e+01,1.7    650     1.651185e+01,1.694562e+01,1.739189e+01,1.785105e+01,1.832350e+01,1.880965e+01,1.930992e+01,
652     1.982475e+01,2.035460e+01,2.089992e+01,2.1    651     1.982475e+01,2.035460e+01,2.089992e+01,2.146121e+01,2.203895e+01,2.263366e+01,2.324587e+01,
653     2.387613e+01,2.452501e+01,2.519307e+01,2.5    652     2.387613e+01,2.452501e+01,2.519307e+01,2.588093e+01,2.658921e+01,2.731854e+01,2.806960e+01,
654     2.884305e+01,2.963961e+01,3.046001e+01,3.1    653     2.884305e+01,2.963961e+01,3.046001e+01,3.130500e+01,3.217535e+01,3.307186e+01,3.399537e+01,
655     3.494673e+01,3.592682e+01,3.693656e+01,3.7    654     3.494673e+01,3.592682e+01,3.693656e+01,3.797687e+01,3.904875e+01,4.015319e+01,4.129122e+01,
656     4.246392e+01,4.367240e+01,4.491780e+01,4.6    655     4.246392e+01,4.367240e+01,4.491780e+01,4.620129e+01,4.752410e+01,4.888749e+01,5.029275e+01};
657 static const G4double P23[nE]={                   656 static const G4double P23[nE]={
658     0.000000e+00,0.000000e+00,0.000000e+00,0.0    657     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
659     0.000000e+00,0.000000e+00,0.000000e+00,0.0    658     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
660     0.000000e+00,0.000000e+00,0.000000e+00,0.0    659     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
661     0.000000e+00,0.000000e+00,0.000000e+00,0.0    660     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
662     0.000000e+00,0.000000e+00,0.000000e+00,0.0    661     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
663     0.000000e+00,0.000000e+00,0.000000e+00,0.0    662     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
664     0.000000e+00,0.000000e+00,0.000000e+00,0.0    663     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
665     0.000000e+00,0.000000e+00,0.000000e+00,0.0    664     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
666     0.000000e+00,0.000000e+00,0.000000e+00,0.0    665     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
667     0.000000e+00,0.000000e+00,0.000000e+00,0.0    666     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
668     0.000000e+00,0.000000e+00,0.000000e+00,0.0    667     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,5.413975e-02,
669     1.238128e-01,2.055575e-01,3.004149e-01,4.0    668     1.238128e-01,2.055575e-01,3.004149e-01,4.086648e-01,5.302738e-01,6.646463e-01,8.104828e-01,
670     9.663775e-01,1.131003e+00,1.302922e+00,1.4    669     9.663775e-01,1.131003e+00,1.302922e+00,1.480873e+00,1.663800e+00,1.850809e+00,2.041137e+00,
671     2.234130e+00,2.429223e+00,2.625932e+00,2.8    670     2.234130e+00,2.429223e+00,2.625932e+00,2.823840e+00,3.022593e+00,3.221891e+00,3.421481e+00,
672     3.621155e+00,3.820738e+00,4.020088e+00,4.2    671     3.621155e+00,3.820738e+00,4.020088e+00,4.219105e+00,4.417721e+00,4.615865e+00,4.813503e+00,
673     5.010628e+00,5.207217e+00,5.403298e+00,5.5    672     5.010628e+00,5.207217e+00,5.403298e+00,5.598873e+00,5.793981e+00,5.988660e+00,6.182946e+00,
674     6.376896e+00,6.570570e+00,6.764031e+00,6.9    673     6.376896e+00,6.570570e+00,6.764031e+00,6.957349e+00,7.150601e+00,7.343872e+00,7.537254e+00,
675     7.730848e+00,7.924762e+00,8.119112e+00,8.3    674     7.730848e+00,7.924762e+00,8.119112e+00,8.314031e+00,8.509661e+00,8.706158e+00,8.903694e+00,
676     9.102464e+00,9.302681e+00,9.504585e+00,9.7    675     9.102464e+00,9.302681e+00,9.504585e+00,9.708450e+00,9.914589e+00,1.012220e+01,1.032986e+01,
677     1.054144e+01,1.075759e+01,1.097915e+01,1.1    676     1.054144e+01,1.075759e+01,1.097915e+01,1.120725e+01,1.144340e+01,1.168966e+01,1.194894e+01,
678     1.222528e+01,1.252429e+01,1.285366e+01,1.3    677     1.222528e+01,1.252429e+01,1.285366e+01,1.322363e+01,1.364736e+01,1.414112e+01,1.472402e+01,
679     1.541751e+01,1.624472e+01,1.723002e+01,1.8    678     1.541751e+01,1.624472e+01,1.723002e+01,1.839895e+01,1.977888e+01,2.139989e+01,2.329619e+01,
680     2.550749e+01,2.808038e+01,3.106957e+01,3.4    679     2.550749e+01,2.808038e+01,3.106957e+01,3.453874e+01,3.856086e+01,4.321766e+01,4.859753e+01,
681     5.479148e+01,6.188616e+01,6.995395e+01,7.9    680     5.479148e+01,6.188616e+01,6.995395e+01,7.904100e+01,8.915485e+01,1.002549e+02,1.122494e+02,
682     1.250017e+02,1.383453e+02,1.521040e+02,1.6    681     1.250017e+02,1.383453e+02,1.521040e+02,1.661133e+02,1.802356e+02,1.943703e+02,2.084566e+02,
683     2.224704e+02,2.364195e+02,2.503384e+02,2.6    682     2.224704e+02,2.364195e+02,2.503384e+02,2.642840e+02,2.783315e+02,2.925726e+02,3.071140e+02,
684     3.220770e+02,3.375972e+02,3.538252e+02,3.7    683     3.220770e+02,3.375972e+02,3.538252e+02,3.709238e+02,3.890662e+02,4.084313e+02,4.291951e+02,
685     4.515193e+02,4.755366e+02,5.013340e+02,5.2    684     4.515193e+02,4.755366e+02,5.013340e+02,5.289387e+02,5.583096e+02,5.893384e+02,6.218631e+02,
686     6.556933e+02,6.906377e+02,7.265303e+02,7.6    685     6.556933e+02,6.906377e+02,7.265303e+02,7.632504e+02,8.007334e+02,8.389740e+02,8.780231e+02,
687     9.179815e+02,9.589917e+02,1.001230e+03,1.0    686     9.179815e+02,9.589917e+02,1.001230e+03,1.044901e+03,1.090228e+03,1.137450e+03,1.186818e+03,
688     1.238592e+03,1.293040e+03,1.350433e+03,1.4    687     1.238592e+03,1.293040e+03,1.350433e+03,1.411047e+03,1.475160e+03,1.543054e+03,1.615014e+03,
689     1.691327e+03,1.772284e+03,1.858181e+03,1.9    688     1.691327e+03,1.772284e+03,1.858181e+03,1.949319e+03,2.046009e+03,2.148567e+03,2.257322e+03,
690     2.372614e+03,2.494796e+03,2.624240e+03,2.7    689     2.372614e+03,2.494796e+03,2.624240e+03,2.761331e+03,2.906477e+03,3.060105e+03,3.222666e+03,
691     3.394638e+03,3.576525e+03,3.768859e+03,3.9    690     3.394638e+03,3.576525e+03,3.768859e+03,3.972206e+03,4.187166e+03,4.414372e+03,4.654499e+03,
692     4.908260e+03,5.176412e+03,5.459761e+03,5.7    691     4.908260e+03,5.176412e+03,5.459761e+03,5.759158e+03,6.075508e+03,6.409771e+03,6.762966e+03,
693     7.136172e+03,7.530536e+03,7.947272e+03,8.3    692     7.136172e+03,7.530536e+03,7.947272e+03,8.387671e+03,8.853101e+03,9.345011e+03,9.864941e+03,
694     1.041452e+04,1.099549e+04,1.160967e+04,1.2    693     1.041452e+04,1.099549e+04,1.160967e+04,1.225902e+04,1.294560e+04,1.367160e+04,1.443934e+04,
695     1.525129e+04,1.611006e+04,1.701843e+04,1.7    694     1.525129e+04,1.611006e+04,1.701843e+04,1.797933e+04,1.899589e+04,2.007140e+04,2.120939e+04,
696     2.241358e+04,2.368790e+04,2.503657e+04,2.6    695     2.241358e+04,2.368790e+04,2.503657e+04,2.646401e+04,2.797495e+04,2.957440e+04,3.126766e+04,
697     3.306037e+04,3.495851e+04,3.696842e+04,3.9    696     3.306037e+04,3.495851e+04,3.696842e+04,3.909684e+04,4.135092e+04,4.373823e+04,4.626684e+04,
698     4.894528e+04,5.178262e+04,5.478849e+04,5.7    697     4.894528e+04,5.178262e+04,5.478849e+04,5.797312e+04,6.134735e+04,6.492269e+04,6.871139e+04,
699     7.272641e+04,7.698154e+04,8.149143e+04,8.6    698     7.272641e+04,7.698154e+04,8.149143e+04,8.627160e+04,9.133857e+04,9.670985e+04,1.024041e+05,
700     1.084410e+05,1.148416e+05,1.216281e+05,1.2    699     1.084410e+05,1.148416e+05,1.216281e+05,1.288244e+05,1.364554e+05,1.445480e+05,1.531304e+05,
701     1.622330e+05,1.718876e+05,1.821283e+05,1.9    700     1.622330e+05,1.718876e+05,1.821283e+05,1.929912e+05,2.045148e+05,2.167399e+05,2.297098e+05,
702     2.434706e+05,2.580712e+05,2.735637e+05,2.9    701     2.434706e+05,2.580712e+05,2.735637e+05,2.900034e+05,3.074489e+05,3.259628e+05,3.456113e+05,
703     3.664650e+05,3.885990e+05,4.120927e+05,4.3    702     3.664650e+05,3.885990e+05,4.120927e+05,4.370310e+05,4.635039e+05,4.916070e+05,5.214420e+05,
704     5.531172e+05,5.867475e+05,6.224550e+05,6.6    703     5.531172e+05,5.867475e+05,6.224550e+05,6.603699e+05,7.006301e+05,7.433826e+05,7.887837e+05,
705     8.369994e+05,8.882063e+05,9.425923e+05,1.0    704     8.369994e+05,8.882063e+05,9.425923e+05,1.000357e+06,1.061713e+06,1.126885e+06,1.196115e+06};
706 static const G4double P04[nE]={                   705 static const G4double P04[nE]={
707     0.000000e+00,0.000000e+00,0.000000e+00,0.0    706     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
708     0.000000e+00,0.000000e+00,0.000000e+00,0.0    707     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
709     0.000000e+00,0.000000e+00,0.000000e+00,0.0    708     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
710     0.000000e+00,0.000000e+00,0.000000e+00,0.0    709     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,4.442863e-06,
711     1.519363e-05,2.703219e-05,4.014211e-05,5.5    710     1.519363e-05,2.703219e-05,4.014211e-05,5.519168e-05,7.230975e-05,9.155962e-05,1.130065e-04,
712     1.367177e-04,1.629335e-04,1.925910e-04,2.2    711     1.367177e-04,1.629335e-04,1.925910e-04,2.259139e-04,2.630146e-04,3.040085e-04,3.491052e-04,
713     3.991538e-04,4.544632e-04,5.151945e-04,5.8    712     3.991538e-04,4.544632e-04,5.151945e-04,5.815134e-04,6.535550e-04,7.314583e-04,8.154027e-04,
714     9.055657e-04,1.001169e-03,1.101697e-03,1.2    713     9.055657e-04,1.001169e-03,1.101697e-03,1.207300e-03,1.317649e-03,1.430881e-03,1.546863e-03,
715     1.665438e-03,1.784771e-03,1.904473e-03,2.0    714     1.665438e-03,1.784771e-03,1.904473e-03,2.024325e-03,2.143171e-03,2.260820e-03,2.377119e-03,
716     2.491853e-03,2.605055e-03,2.717349e-03,2.8    715     2.491853e-03,2.605055e-03,2.717349e-03,2.828874e-03,2.940853e-03,3.054038e-03,3.169999e-03,
717     3.290343e-03,3.417114e-03,3.552511e-03,3.6    716     3.290343e-03,3.417114e-03,3.552511e-03,3.699143e-03,3.859120e-03,4.034680e-03,4.226785e-03,
718     4.435314e-03,4.658182e-03,4.892305e-03,5.1    717     4.435314e-03,4.658182e-03,4.892305e-03,5.131845e-03,5.371783e-03,5.606701e-03,5.831779e-03,
719     6.043927e-03,6.241290e-03,6.422941e-03,6.5    718     6.043927e-03,6.241290e-03,6.422941e-03,6.588882e-03,6.739685e-03,6.876237e-03,6.999584e-03,
720     7.110833e-03,7.211089e-03,7.301407e-03,7.3    719     7.110833e-03,7.211089e-03,7.301407e-03,7.382776e-03,7.456105e-03,7.522221e-03,7.581872e-03,
721     7.635730e-03,7.684395e-03,7.728406e-03,7.7    720     7.635730e-03,7.684395e-03,7.728406e-03,7.768250e-03,7.804367e-03,7.837137e-03,7.866907e-03,
722     7.893992e-03,7.918663e-03,7.941175e-03,7.9    721     7.893992e-03,7.918663e-03,7.941175e-03,7.961745e-03,7.980577e-03,7.997848e-03,8.013718e-03,
723     8.028333e-03,8.041823e-03,8.054305e-03,8.0    722     8.028333e-03,8.041823e-03,8.054305e-03,8.065884e-03,8.076657e-03,8.086709e-03,8.096119e-03,
724     8.104959e-03,8.113293e-03,8.121181e-03,8.1    723     8.104959e-03,8.113293e-03,8.121181e-03,8.128676e-03,8.135829e-03,8.142686e-03,8.149290e-03,
725     8.155681e-03,8.161895e-03,8.167971e-03,8.1    724     8.155681e-03,8.161895e-03,8.167971e-03,8.173941e-03,8.179842e-03,8.185532e-03,8.190791e-03,
726     8.196173e-03,8.201721e-03,8.207490e-03,8.2    725     8.196173e-03,8.201721e-03,8.207490e-03,8.213549e-03,8.219997e-03,8.226961e-03,8.234619e-03,
727     8.243208e-03,8.253043e-03,8.264530e-03,8.2    726     8.243208e-03,8.253043e-03,8.264530e-03,8.278167e-03,8.294543e-03,8.314306e-03,8.338122e-03,
728     8.366621e-03,8.400357e-03,8.439779e-03,8.4    727     8.366621e-03,8.400357e-03,8.439779e-03,8.485245e-03,8.537046e-03,8.595453e-03,8.660753e-03,
729     8.733284e-03,8.813450e-03,8.901722e-03,8.9    728     8.733284e-03,8.813450e-03,8.901722e-03,8.998630e-03,9.104733e-03,9.220575e-03,9.346623e-03,
730     9.483175e-03,9.630255e-03,9.787493e-03,9.9    729     9.483175e-03,9.630255e-03,9.787493e-03,9.954018e-03,1.012840e-02,1.030865e-02,1.049233e-02,
731     1.067675e-02,1.085922e-02,1.103733e-02,1.1    730     1.067675e-02,1.085922e-02,1.103733e-02,1.120911e-02,1.137317e-02,1.152871e-02,1.167547e-02,
732     1.181358e-02,1.194350e-02,1.206587e-02,1.2    731     1.181358e-02,1.194350e-02,1.206587e-02,1.218146e-02,1.229109e-02,1.239560e-02,1.249580e-02,
733     1.259247e-02,1.268636e-02,1.277816e-02,1.2    732     1.259247e-02,1.268636e-02,1.277816e-02,1.286849e-02,1.295790e-02,1.304686e-02,1.313576e-02,
734     1.322486e-02,1.331430e-02,1.340408e-02,1.3    733     1.322486e-02,1.331430e-02,1.340408e-02,1.349406e-02,1.358398e-02,1.367348e-02,1.376212e-02,
735     1.384946e-02,1.393508e-02,1.401867e-02,1.4    734     1.384946e-02,1.393508e-02,1.401867e-02,1.409996e-02,1.417885e-02,1.425528e-02,1.432934e-02,
736     1.440114e-02,1.447087e-02,1.453873e-02,1.4    735     1.440114e-02,1.447087e-02,1.453873e-02,1.460494e-02,1.466972e-02,1.473329e-02,1.479584e-02,
737     1.485754e-02,1.491855e-02,1.497899e-02,1.5    736     1.485754e-02,1.491855e-02,1.497899e-02,1.503897e-02,1.509858e-02,1.515789e-02,1.521695e-02,
738     1.527579e-02,1.533444e-02,1.539291e-02,1.5    737     1.527579e-02,1.533444e-02,1.539291e-02,1.545122e-02,1.550935e-02,1.556730e-02,1.562507e-02,
739     1.568263e-02,1.573999e-02,1.579713e-02,1.5    738     1.568263e-02,1.573999e-02,1.579713e-02,1.585402e-02,1.591067e-02,1.596706e-02,1.602317e-02,
740     1.607900e-02,1.613455e-02,1.618979e-02,1.6    739     1.607900e-02,1.613455e-02,1.618979e-02,1.624474e-02,1.629938e-02,1.635372e-02,1.640774e-02,
741     1.646145e-02,1.651485e-02,1.656795e-02,1.6    740     1.646145e-02,1.651485e-02,1.656795e-02,1.662073e-02,1.667321e-02,1.672539e-02,1.677727e-02,
742     1.682885e-02,1.688015e-02,1.693115e-02,1.6    741     1.682885e-02,1.688015e-02,1.693115e-02,1.698188e-02,1.703233e-02,1.708251e-02,1.713242e-02,
743     1.718208e-02,1.723147e-02,1.728062e-02,1.7    742     1.718208e-02,1.723147e-02,1.728062e-02,1.732953e-02,1.737819e-02,1.742662e-02,1.747483e-02,
744     1.752281e-02,1.757058e-02,1.761813e-02,1.7    743     1.752281e-02,1.757058e-02,1.761813e-02,1.766548e-02,1.771262e-02,1.775957e-02,1.780632e-02,
745     1.785289e-02,1.789928e-02,1.794549e-02,1.7    744     1.785289e-02,1.789928e-02,1.794549e-02,1.799152e-02,1.803739e-02,1.808309e-02,1.812863e-02,
746     1.817402e-02,1.821925e-02,1.826434e-02,1.8    745     1.817402e-02,1.821925e-02,1.826434e-02,1.830928e-02,1.835409e-02,1.839875e-02,1.844329e-02,
747     1.848769e-02,1.853197e-02,1.857613e-02,1.8    746     1.848769e-02,1.853197e-02,1.857613e-02,1.862017e-02,1.866409e-02,1.870791e-02,1.875161e-02,
748     1.879521e-02,1.883871e-02,1.888210e-02,1.8    747     1.879521e-02,1.883871e-02,1.888210e-02,1.892541e-02,1.896862e-02,1.901173e-02,1.905476e-02,
749     1.909771e-02,1.914058e-02,1.918336e-02,1.9    748     1.909771e-02,1.914058e-02,1.918336e-02,1.922607e-02,1.926871e-02,1.931127e-02,1.935377e-02,
750     1.939619e-02,1.943856e-02,1.948086e-02,1.9    749     1.939619e-02,1.943856e-02,1.948086e-02,1.952311e-02,1.956530e-02,1.960743e-02,1.964952e-02,
751     1.969155e-02,1.973354e-02,1.977548e-02,1.9    750     1.969155e-02,1.973354e-02,1.977548e-02,1.981737e-02,1.985923e-02,1.990105e-02,1.994283e-02,
752     1.998458e-02,2.002629e-02,2.006798e-02,2.0    751     1.998458e-02,2.002629e-02,2.006798e-02,2.010963e-02,2.015126e-02,2.019287e-02,2.023445e-02,
753     2.027601e-02,2.031756e-02,2.035908e-02,2.0    752     2.027601e-02,2.031756e-02,2.035908e-02,2.040059e-02,2.044209e-02,2.048358e-02,2.052506e-02,
754     2.056653e-02,2.060799e-02,2.064945e-02,2.0    753     2.056653e-02,2.060799e-02,2.064945e-02,2.069091e-02,2.073236e-02,2.077382e-02,2.081528e-02};
755 static const G4double P14[nE]={                   754 static const G4double P14[nE]={
756     0.000000e+00,0.000000e+00,0.000000e+00,0.0    755     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
757     0.000000e+00,0.000000e+00,0.000000e+00,0.0    756     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
758     0.000000e+00,0.000000e+00,0.000000e+00,0.0    757     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
759     0.000000e+00,0.000000e+00,0.000000e+00,0.0    758     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,1.830684e-05,
760     6.371064e-05,1.154186e-04,1.746380e-04,2.4    759     6.371064e-05,1.154186e-04,1.746380e-04,2.449308e-04,3.275905e-04,4.236803e-04,5.343383e-04,
761     6.607827e-04,8.052700e-04,9.741837e-04,1.1    760     6.607827e-04,8.052700e-04,9.741837e-04,1.170286e-03,1.395863e-03,1.653360e-03,1.945987e-03,
762     2.281454e-03,2.664366e-03,3.098601e-03,3.5    761     2.281454e-03,2.664366e-03,3.098601e-03,3.588306e-03,4.137638e-03,4.751029e-03,5.433489e-03,
763     6.190306e-03,7.018768e-03,7.918090e-03,8.8    762     6.190306e-03,7.018768e-03,7.918090e-03,8.893328e-03,9.945232e-03,1.105935e-02,1.223722e-02,
764     1.348004e-02,1.477087e-02,1.610715e-02,1.7    763     1.348004e-02,1.477087e-02,1.610715e-02,1.748784e-02,1.890063e-02,2.034378e-02,2.181580e-02,
765     2.331419e-02,2.483956e-02,2.640072e-02,2.8    764     2.331419e-02,2.483956e-02,2.640072e-02,2.800033e-02,2.965740e-02,3.138528e-02,3.321162e-02,
766     3.516681e-02,3.729155e-02,3.963237e-02,4.2    765     3.516681e-02,3.729155e-02,3.963237e-02,4.224740e-02,4.519013e-02,4.852109e-02,5.228032e-02,
767     5.648894e-02,6.112768e-02,6.615316e-02,7.1    766     5.648894e-02,6.112768e-02,6.615316e-02,7.145565e-02,7.693264e-02,8.246248e-02,8.792602e-02,
768     9.323627e-02,9.833048e-02,1.031653e-01,1.0    767     9.323627e-02,9.833048e-02,1.031653e-01,1.077195e-01,1.119872e-01,1.159719e-01,1.196832e-01,
769     1.231347e-01,1.263418e-01,1.293208e-01,1.3    768     1.231347e-01,1.263418e-01,1.293208e-01,1.320879e-01,1.346591e-01,1.370493e-01,1.392727e-01,
770     1.413425e-01,1.432706e-01,1.450684e-01,1.4    769     1.413425e-01,1.432706e-01,1.450684e-01,1.467463e-01,1.483144e-01,1.497813e-01,1.511550e-01,
771     1.524436e-01,1.536536e-01,1.547918e-01,1.5    770     1.524436e-01,1.536536e-01,1.547918e-01,1.558640e-01,1.568759e-01,1.578326e-01,1.587389e-01,
772     1.595992e-01,1.604178e-01,1.611987e-01,1.6    771     1.595992e-01,1.604178e-01,1.611987e-01,1.619454e-01,1.626615e-01,1.633503e-01,1.640150e-01,
773     1.646587e-01,1.652843e-01,1.658945e-01,1.6    772     1.646587e-01,1.652843e-01,1.658945e-01,1.664923e-01,1.670804e-01,1.676615e-01,1.682383e-01,
774     1.688138e-01,1.693906e-01,1.699718e-01,1.7    773     1.688138e-01,1.693906e-01,1.699718e-01,1.705606e-01,1.711603e-01,1.717563e-01,1.723243e-01,
775     1.729235e-01,1.735601e-01,1.742424e-01,1.7    774     1.729235e-01,1.735601e-01,1.742424e-01,1.749812e-01,1.757914e-01,1.766935e-01,1.777159e-01,
776     1.788979e-01,1.802932e-01,1.819727e-01,1.8    775     1.788979e-01,1.802932e-01,1.819727e-01,1.840281e-01,1.865720e-01,1.897363e-01,1.936664e-01,
777     1.985139e-01,2.044278e-01,2.115504e-01,2.2    776     1.985139e-01,2.044278e-01,2.115504e-01,2.200166e-01,2.299583e-01,2.415112e-01,2.548236e-01,
778     2.700636e-01,2.874240e-01,3.071261e-01,3.2    777     2.700636e-01,2.874240e-01,3.071261e-01,3.294187e-01,3.545749e-01,3.828823e-01,4.146274e-01,
779     4.500720e-01,4.894190e-01,5.327720e-01,5.8    778     4.500720e-01,4.894190e-01,5.327720e-01,5.800920e-01,6.311614e-01,6.855655e-01,7.427020e-01,
780     8.018245e-01,8.621139e-01,9.227611e-01,9.8    779     8.018245e-01,8.621139e-01,9.227611e-01,9.830442e-01,1.042383e+00,1.100363e+00,1.156744e+00,
781     1.211429e+00,1.264444e+00,1.315911e+00,1.3    780     1.211429e+00,1.264444e+00,1.315911e+00,1.366015e+00,1.414994e+00,1.463113e+00,1.510663e+00,
782     1.557947e+00,1.605276e+00,1.652968e+00,1.7    781     1.557947e+00,1.605276e+00,1.652968e+00,1.701334e+00,1.750675e+00,1.801276e+00,1.853388e+00,
783     1.907216e+00,1.962904e+00,2.020515e+00,2.0    782     1.907216e+00,1.962904e+00,2.020515e+00,2.080026e+00,2.141319e+00,2.204187e+00,2.268359e+00,
784     2.333525e+00,2.399370e+00,2.465608e+00,2.5    783     2.333525e+00,2.399370e+00,2.465608e+00,2.532008e+00,2.598408e+00,2.664720e+00,2.730931e+00,
785     2.797093e+00,2.863310e+00,2.929727e+00,2.9    784     2.797093e+00,2.863310e+00,2.929727e+00,2.996517e+00,3.063869e+00,3.131981e+00,3.201051e+00,
786     3.271270e+00,3.342824e+00,3.415884e+00,3.4    785     3.271270e+00,3.342824e+00,3.415884e+00,3.490610e+00,3.567148e+00,3.645628e+00,3.726167e+00,
787     3.808870e+00,3.893828e+00,3.981122e+00,4.0    786     3.808870e+00,3.893828e+00,3.981122e+00,4.070824e+00,4.163000e+00,4.257706e+00,4.354996e+00,
788     4.454920e+00,4.557525e+00,4.662858e+00,4.7    787     4.454920e+00,4.557525e+00,4.662858e+00,4.770965e+00,4.881891e+00,4.995685e+00,5.112397e+00,
789     5.232077e+00,5.354782e+00,5.480568e+00,5.6    788     5.232077e+00,5.354782e+00,5.480568e+00,5.609497e+00,5.741634e+00,5.877047e+00,6.015807e+00,
790     6.157992e+00,6.303681e+00,6.452959e+00,6.6    789     6.157992e+00,6.303681e+00,6.452959e+00,6.605913e+00,6.762637e+00,6.923226e+00,7.087782e+00,
791     7.256411e+00,7.429221e+00,7.606326e+00,7.7    790     7.256411e+00,7.429221e+00,7.606326e+00,7.787844e+00,7.973899e+00,8.164617e+00,8.360131e+00,
792     8.560577e+00,8.766096e+00,8.976834e+00,9.1    791     8.560577e+00,8.766096e+00,8.976834e+00,9.192943e+00,9.414578e+00,9.641901e+00,9.875078e+00,
793     1.011428e+01,1.035969e+01,1.061148e+01,1.0    792     1.011428e+01,1.035969e+01,1.061148e+01,1.086986e+01,1.113500e+01,1.140711e+01,1.168641e+01,
794     1.197310e+01,1.226741e+01,1.256956e+01,1.2    793     1.197310e+01,1.226741e+01,1.256956e+01,1.287978e+01,1.319833e+01,1.352545e+01,1.386140e+01,
795     1.420644e+01,1.456086e+01,1.492492e+01,1.5    794     1.420644e+01,1.456086e+01,1.492492e+01,1.529892e+01,1.568317e+01,1.607798e+01,1.648366e+01,
796     1.690054e+01,1.732896e+01,1.776928e+01,1.8    795     1.690054e+01,1.732896e+01,1.776928e+01,1.822186e+01,1.868707e+01,1.916530e+01,1.965693e+01,
797     2.016239e+01,2.068210e+01,2.121649e+01,2.1    796     2.016239e+01,2.068210e+01,2.121649e+01,2.176601e+01,2.233113e+01,2.291232e+01,2.351008e+01,
798     2.412492e+01,2.475737e+01,2.540797e+01,2.6    797     2.412492e+01,2.475737e+01,2.540797e+01,2.607728e+01,2.676588e+01,2.747436e+01,2.820334e+01,
799     2.895345e+01,2.972536e+01,3.051974e+01,3.1    798     2.895345e+01,2.972536e+01,3.051974e+01,3.133728e+01,3.217872e+01,3.304478e+01,3.393625e+01,
800     3.485392e+01,3.579859e+01,3.677113e+01,3.7    799     3.485392e+01,3.579859e+01,3.677113e+01,3.777240e+01,3.880330e+01,3.986476e+01,4.095774e+01,
801     4.208324e+01,4.324227e+01,4.443590e+01,4.5    800     4.208324e+01,4.324227e+01,4.443590e+01,4.566522e+01,4.693134e+01,4.823544e+01,4.957871e+01,
802     5.096240e+01,5.238778e+01,5.385619e+01,5.5    801     5.096240e+01,5.238778e+01,5.385619e+01,5.536898e+01,5.692756e+01,5.853340e+01,6.018799e+01,
803     6.189289e+01,6.364971e+01,6.546010e+01,6.7    802     6.189289e+01,6.364971e+01,6.546010e+01,6.732578e+01,6.924851e+01,7.123011e+01,7.327248e+01};
804 static const G4double P24[nE]={                   803 static const G4double P24[nE]={
805     0.000000e+00,0.000000e+00,0.000000e+00,0.0    804     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
806     0.000000e+00,0.000000e+00,0.000000e+00,0.0    805     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
807     0.000000e+00,0.000000e+00,0.000000e+00,0.0    806     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
808     0.000000e+00,0.000000e+00,0.000000e+00,0.0    807     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,7.543486e-05,
809     2.672072e-04,4.930762e-04,7.606037e-04,1.0    808     2.672072e-04,4.930762e-04,7.606037e-04,1.088954e-03,1.488138e-03,1.967834e-03,2.538841e-03,
810     3.213192e-03,4.009598e-03,4.971730e-03,6.1    809     3.213192e-03,4.009598e-03,4.971730e-03,6.125875e-03,7.497533e-03,9.115105e-03,1.101410e-02,
811     1.326287e-02,1.591403e-02,1.901913e-02,2.2    810     1.326287e-02,1.591403e-02,1.901913e-02,2.263546e-02,2.682459e-02,3.165470e-02,3.720349e-02,
812     4.355667e-02,5.073638e-02,5.878240e-02,6.7    811     4.355667e-02,5.073638e-02,5.878240e-02,6.778949e-02,7.781758e-02,8.878053e-02,1.007435e-01,
813     1.137711e-01,1.277352e-01,1.426538e-01,1.5    812     1.137711e-01,1.277352e-01,1.426538e-01,1.585606e-01,1.753566e-01,1.930607e-01,2.116938e-01,
814     2.312639e-01,2.518194e-01,2.735251e-01,2.9    813     2.312639e-01,2.518194e-01,2.735251e-01,2.964705e-01,3.209937e-01,3.473739e-01,3.761401e-01,
815     4.079082e-01,4.435227e-01,4.839951e-01,5.3    814     4.079082e-01,4.435227e-01,4.839951e-01,5.306350e-01,5.847703e-01,6.479743e-01,7.215434e-01,
816     8.064902e-01,9.030479e-01,1.010929e+00,1.1    815     8.064902e-01,9.030479e-01,1.010929e+00,1.128315e+00,1.253346e+00,1.383526e+00,1.516159e+00,
817     1.649089e+00,1.780588e+00,1.909280e+00,2.0    816     1.649089e+00,1.780588e+00,1.909280e+00,2.034281e+00,2.155065e+00,2.271349e+00,2.383027e+00,
818     2.490116e+00,2.592716e+00,2.690981e+00,2.7    817     2.490116e+00,2.592716e+00,2.690981e+00,2.785094e+00,2.875255e+00,2.961673e+00,3.044553e+00,
819     3.124097e+00,3.200497e+00,3.273938e+00,3.3    818     3.124097e+00,3.200497e+00,3.273938e+00,3.344609e+00,3.412697e+00,3.478359e+00,3.541758e+00,
820     3.603063e+00,3.662412e+00,3.719967e+00,3.7    819     3.603063e+00,3.662412e+00,3.719967e+00,3.775859e+00,3.830236e+00,3.883236e+00,3.934991e+00,
821     3.985641e+00,4.035323e+00,4.084172e+00,4.1    820     3.985641e+00,4.035323e+00,4.084172e+00,4.132329e+00,4.179936e+00,4.227142e+00,4.274100e+00,
822     4.320973e+00,4.367929e+00,4.415151e+00,4.4    821     4.320973e+00,4.367929e+00,4.415151e+00,4.462832e+00,4.511183e+00,4.560430e+00,4.610824e+00,
823     4.662638e+00,4.716179e+00,4.771788e+00,4.8    822     4.662638e+00,4.716179e+00,4.771788e+00,4.829854e+00,4.890825e+00,4.953249e+00,5.014598e+00,
824     5.081309e+00,5.154369e+00,5.235071e+00,5.3    823     5.081309e+00,5.154369e+00,5.235071e+00,5.325147e+00,5.426966e+00,5.543825e+00,5.680343e+00,
825     5.843034e+00,6.040974e+00,6.286575e+00,6.5    824     5.843034e+00,6.040974e+00,6.286575e+00,6.596368e+00,6.991576e+00,7.498259e+00,8.146893e+00,
826     8.971439e+00,1.000824e+01,1.129521e+01,1.2    825     8.971439e+00,1.000824e+01,1.129521e+01,1.287183e+01,1.477996e+01,1.706532e+01,1.977947e+01,
827     2.298186e+01,2.674168e+01,3.113945e+01,3.6    826     2.298186e+01,2.674168e+01,3.113945e+01,3.626805e+01,4.223285e+01,4.915057e+01,5.714619e+01,
828     6.634717e+01,7.687414e+01,8.882816e+01,1.0    827     6.634717e+01,7.687414e+01,8.882816e+01,1.022756e+02,1.172331e+02,1.336549e+02,1.514294e+02,
829     1.703848e+02,1.903058e+02,2.109585e+02,2.3    828     1.703848e+02,1.903058e+02,2.109585e+02,2.321157e+02,2.535790e+02,2.751935e+02,2.968551e+02,
830     3.185090e+02,3.401451e+02,3.617925e+02,3.8    829     3.185090e+02,3.401451e+02,3.617925e+02,3.835128e+02,4.053955e+02,4.275534e+02,4.501201e+02,
831     4.732483e+02,4.971083e+02,5.218876e+02,5.4    830     4.732483e+02,4.971083e+02,5.218876e+02,5.477871e+02,5.750188e+02,6.038010e+02,6.343508e+02,
832     6.668734e+02,7.015497e+02,7.385227e+02,7.7    831     6.668734e+02,7.015497e+02,7.385227e+02,7.778839e+02,8.196641e+02,8.638306e+02,9.102926e+02,
833     9.589179e+02,1.009554e+03,1.062052e+03,1.1    832     9.589179e+02,1.009554e+03,1.062052e+03,1.116289e+03,1.172185e+03,1.229716e+03,1.288919e+03,
834     1.349889e+03,1.412779e+03,1.477789e+03,1.5    833     1.349889e+03,1.412779e+03,1.477789e+03,1.545167e+03,1.615193e+03,1.688177e+03,1.764452e+03,
835     1.844372e+03,1.928304e+03,2.016627e+03,2.1    834     1.844372e+03,1.928304e+03,2.016627e+03,2.109729e+03,2.208008e+03,2.311865e+03,2.421710e+03,
836     2.537958e+03,2.661032e+03,2.791360e+03,2.9    835     2.537958e+03,2.661032e+03,2.791360e+03,2.929384e+03,3.075553e+03,3.230332e+03,3.394201e+03,
837     3.567658e+03,3.751220e+03,3.945429e+03,4.1    836     3.567658e+03,3.751220e+03,3.945429e+03,4.150853e+03,4.368085e+03,4.597754e+03,4.840519e+03,
838     5.097080e+03,5.368173e+03,5.654580e+03,5.9    837     5.097080e+03,5.368173e+03,5.654580e+03,5.957127e+03,6.276691e+03,6.614199e+03,6.970636e+03,
839     7.347046e+03,7.744537e+03,8.164282e+03,8.6    838     7.347046e+03,7.744537e+03,8.164282e+03,8.607528e+03,9.075596e+03,9.569887e+03,1.009189e+04,
840     1.064318e+04,1.122542e+04,1.184040e+04,1.2    839     1.064318e+04,1.122542e+04,1.184040e+04,1.249000e+04,1.317620e+04,1.390113e+04,1.466703e+04,
841     1.547628e+04,1.633140e+04,1.723507e+04,1.8    840     1.547628e+04,1.633140e+04,1.723507e+04,1.819012e+04,1.919958e+04,2.026662e+04,2.139464e+04,
842     2.258721e+04,2.384817e+04,2.518152e+04,2.6    841     2.258721e+04,2.384817e+04,2.518152e+04,2.659158e+04,2.808286e+04,2.966020e+04,3.132870e+04,
843     3.309379e+04,3.496121e+04,3.693706e+04,3.9    842     3.309379e+04,3.496121e+04,3.693706e+04,3.902782e+04,4.124035e+04,4.358193e+04,4.606030e+04,
844     4.868365e+04,5.146069e+04,5.440064e+04,5.7    843     4.868365e+04,5.146069e+04,5.440064e+04,5.751330e+04,6.080907e+04,6.429899e+04,6.799476e+04,
845     7.190880e+04,7.605431e+04,8.044530e+04,8.5    844     7.190880e+04,7.605431e+04,8.044530e+04,8.509662e+04,9.002404e+04,9.524433e+04,1.007752e+05,
846     1.066357e+05,1.128456e+05,1.194264e+05,1.2    845     1.066357e+05,1.128456e+05,1.194264e+05,1.264006e+05,1.337923e+05,1.416267e+05,1.499311e+05,
847     1.587342e+05,1.680664e+05,1.779602e+05,1.8    846     1.587342e+05,1.680664e+05,1.779602e+05,1.884499e+05,1.995721e+05,2.113657e+05,2.238718e+05,
848     2.371343e+05,2.511997e+05,2.661175e+05,2.8    847     2.371343e+05,2.511997e+05,2.661175e+05,2.819400e+05,2.987232e+05,3.165263e+05,3.354123e+05,
849     3.554481e+05,3.767048e+05,3.992580e+05,4.2    848     3.554481e+05,3.767048e+05,3.992580e+05,4.231879e+05,4.485800e+05,4.755247e+05,5.041186e+05,
850     5.344641e+05,5.666699e+05,6.008519e+05,6.3    849     5.344641e+05,5.666699e+05,6.008519e+05,6.371329e+05,6.756438e+05,7.165233e+05,7.599193e+05,
851     8.059888e+05,8.548986e+05,9.068263e+05,9.6    850     8.059888e+05,8.548986e+05,9.068263e+05,9.619605e+05,1.020502e+06,1.082664e+06,1.148672e+06,
852     1.218769e+06,1.293211e+06,1.372270e+06,1.4    851     1.218769e+06,1.293211e+06,1.372270e+06,1.456236e+06,1.545418e+06,1.640143e+06,1.740759e+06};
853 static const G4double P05[nE]={                   852 static const G4double P05[nE]={
854     0.000000e+00,0.000000e+00,0.000000e+00,0.0    853     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
855     0.000000e+00,0.000000e+00,0.000000e+00,0.0    854     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
856     0.000000e+00,0.000000e+00,0.000000e+00,0.0    855     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
857     0.000000e+00,0.000000e+00,0.000000e+00,0.0    856     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
858     0.000000e+00,0.000000e+00,0.000000e+00,0.0    857     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
859     0.000000e+00,0.000000e+00,0.000000e+00,0.0    858     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
860     5.861537e-07,3.061765e-06,5.963955e-06,9.3    859     5.861537e-07,3.061765e-06,5.963955e-06,9.305785e-06,1.342109e-05,1.865336e-05,2.503676e-05,
861     3.261650e-05,4.273714e-05,5.639991e-05,7.3    860     3.261650e-05,4.273714e-05,5.639991e-05,7.371320e-05,9.607336e-05,1.289866e-04,1.733628e-04,
862     2.302289e-04,3.053102e-04,4.003118e-04,5.1    861     2.302289e-04,3.053102e-04,4.003118e-04,5.138222e-04,6.363068e-04,7.666567e-04,9.046405e-04,
863     1.049782e-03,1.203029e-03,1.370490e-03,1.5    862     1.049782e-03,1.203029e-03,1.370490e-03,1.553883e-03,1.754746e-03,1.974232e-03,2.209369e-03,
864     2.457122e-03,2.712762e-03,2.971183e-03,3.2    863     2.457122e-03,2.712762e-03,2.971183e-03,3.228184e-03,3.480597e-03,3.726495e-03,3.965194e-03,
865     4.197027e-03,4.422883e-03,4.643939e-03,4.8    864     4.197027e-03,4.422883e-03,4.643939e-03,4.861858e-03,5.077910e-03,5.293416e-03,5.509553e-03,
866     5.727123e-03,5.946622e-03,6.168285e-03,6.3    865     5.727123e-03,5.946622e-03,6.168285e-03,6.392006e-03,6.617371e-03,6.843719e-03,7.070191e-03,
867     7.295793e-03,7.519457e-03,7.740099e-03,7.9    866     7.295793e-03,7.519457e-03,7.740099e-03,7.956683e-03,8.168260e-03,8.374004e-03,8.573230e-03,
868     8.765403e-03,8.950129e-03,9.127152e-03,9.2    867     8.765403e-03,8.950129e-03,9.127152e-03,9.296334e-03,9.457647e-03,9.611145e-03,9.756957e-03,
869     9.895275e-03,1.002632e-02,1.015036e-02,1.0    868     9.895275e-03,1.002632e-02,1.015036e-02,1.026766e-02,1.037853e-02,1.048327e-02,1.058218e-02,
870     1.067556e-02,1.076370e-02,1.084690e-02,1.0    869     1.067556e-02,1.076370e-02,1.084690e-02,1.092544e-02,1.099957e-02,1.106956e-02,1.113566e-02,
871     1.119809e-02,1.125710e-02,1.131288e-02,1.1    870     1.119809e-02,1.125710e-02,1.131288e-02,1.136563e-02,1.141557e-02,1.146285e-02,1.150766e-02,
872     1.155017e-02,1.159052e-02,1.162888e-02,1.1    871     1.155017e-02,1.159052e-02,1.162888e-02,1.166537e-02,1.170014e-02,1.173328e-02,1.176483e-02,
873     1.179510e-02,1.182421e-02,1.185232e-02,1.1    872     1.179510e-02,1.182421e-02,1.185232e-02,1.187957e-02,1.190617e-02,1.193232e-02,1.195832e-02,
874     1.198450e-02,1.201129e-02,1.203924e-02,1.2    873     1.198450e-02,1.201129e-02,1.203924e-02,1.206900e-02,1.210130e-02,1.213697e-02,1.217683e-02,
875     1.222166e-02,1.227215e-02,1.232884e-02,1.2    874     1.222166e-02,1.227215e-02,1.232884e-02,1.239218e-02,1.246252e-02,1.254018e-02,1.262551e-02,
876     1.271890e-02,1.282083e-02,1.293183e-02,1.3    875     1.271890e-02,1.282083e-02,1.293183e-02,1.305251e-02,1.318351e-02,1.332543e-02,1.347880e-02,
877     1.364395e-02,1.382089e-02,1.400920e-02,1.4    876     1.364395e-02,1.382089e-02,1.400920e-02,1.420789e-02,1.441539e-02,1.462947e-02,1.484742e-02,
878     1.506624e-02,1.528290e-02,1.549464e-02,1.5    877     1.506624e-02,1.528290e-02,1.549464e-02,1.569920e-02,1.589495e-02,1.608089e-02,1.625664e-02,
879     1.642228e-02,1.657827e-02,1.672530e-02,1.6    878     1.642228e-02,1.657827e-02,1.672530e-02,1.686422e-02,1.699595e-02,1.712141e-02,1.724154e-02,
880     1.735724e-02,1.746933e-02,1.757862e-02,1.7    879     1.735724e-02,1.746933e-02,1.757862e-02,1.768580e-02,1.779151e-02,1.789629e-02,1.800058e-02,
881     1.810471e-02,1.820886e-02,1.831308e-02,1.8    880     1.810471e-02,1.820886e-02,1.831308e-02,1.841729e-02,1.852126e-02,1.862466e-02,1.872709e-02,
882     1.882813e-02,1.892735e-02,1.902442e-02,1.9    881     1.882813e-02,1.892735e-02,1.902442e-02,1.911908e-02,1.921116e-02,1.930062e-02,1.938748e-02,
883     1.947187e-02,1.955394e-02,1.963391e-02,1.9    882     1.947187e-02,1.955394e-02,1.963391e-02,1.971200e-02,1.978844e-02,1.986346e-02,1.993725e-02,
884     2.001002e-02,2.008193e-02,2.015313e-02,2.0    883     2.001002e-02,2.008193e-02,2.015313e-02,2.022374e-02,2.029385e-02,2.036355e-02,2.043289e-02,
885     2.050193e-02,2.057069e-02,2.063918e-02,2.0    884     2.050193e-02,2.057069e-02,2.063918e-02,2.070743e-02,2.077542e-02,2.084316e-02,2.091063e-02,
886     2.097784e-02,2.104476e-02,2.111138e-02,2.1    885     2.097784e-02,2.104476e-02,2.111138e-02,2.117769e-02,2.124368e-02,2.130933e-02,2.137464e-02,
887     2.143959e-02,2.150419e-02,2.156841e-02,2.1    886     2.143959e-02,2.150419e-02,2.156841e-02,2.163227e-02,2.169575e-02,2.175885e-02,2.182157e-02,
888     2.188391e-02,2.194588e-02,2.200747e-02,2.2    887     2.188391e-02,2.194588e-02,2.200747e-02,2.206869e-02,2.212954e-02,2.219003e-02,2.225016e-02,
889     2.230994e-02,2.236936e-02,2.242845e-02,2.2    888     2.230994e-02,2.236936e-02,2.242845e-02,2.248720e-02,2.254562e-02,2.260371e-02,2.266149e-02,
890     2.271896e-02,2.277613e-02,2.283300e-02,2.2    889     2.271896e-02,2.277613e-02,2.283300e-02,2.288957e-02,2.294587e-02,2.300189e-02,2.305764e-02,
891     2.311312e-02,2.316835e-02,2.322333e-02,2.3    890     2.311312e-02,2.316835e-02,2.322333e-02,2.327806e-02,2.333255e-02,2.338681e-02,2.344084e-02,
892     2.349466e-02,2.354825e-02,2.360164e-02,2.3    891     2.349466e-02,2.354825e-02,2.360164e-02,2.365482e-02,2.370780e-02,2.376059e-02,2.381319e-02,
893     2.386561e-02,2.391784e-02,2.396991e-02,2.4    892     2.386561e-02,2.391784e-02,2.396991e-02,2.402180e-02,2.407353e-02,2.412509e-02,2.417651e-02,
894     2.422776e-02,2.427888e-02,2.432984e-02,2.4    893     2.422776e-02,2.427888e-02,2.432984e-02,2.438067e-02,2.443137e-02,2.448193e-02,2.453236e-02,
895     2.458267e-02,2.463286e-02,2.468294e-02,2.4    894     2.458267e-02,2.463286e-02,2.468294e-02,2.473290e-02,2.478275e-02,2.483249e-02,2.488213e-02,
896     2.493168e-02,2.498112e-02,2.503047e-02,2.5    895     2.493168e-02,2.498112e-02,2.503047e-02,2.507974e-02,2.512891e-02,2.517800e-02,2.522701e-02,
897     2.527595e-02,2.532480e-02,2.537359e-02,2.5    896     2.527595e-02,2.532480e-02,2.537359e-02,2.542230e-02,2.547095e-02,2.551954e-02,2.556806e-02,
898     2.561653e-02,2.566494e-02,2.571329e-02,2.5    897     2.561653e-02,2.566494e-02,2.571329e-02,2.576160e-02,2.580985e-02,2.585807e-02,2.590623e-02,
899     2.595436e-02,2.600245e-02,2.605050e-02,2.6    898     2.595436e-02,2.600245e-02,2.605050e-02,2.609852e-02,2.614650e-02,2.619446e-02,2.624239e-02,
900     2.629030e-02,2.633818e-02,2.638604e-02,2.6    899     2.629030e-02,2.633818e-02,2.638604e-02,2.643389e-02,2.648172e-02,2.652953e-02,2.657733e-02,
901     2.662513e-02,2.667291e-02,2.672069e-02,2.6    900     2.662513e-02,2.667291e-02,2.672069e-02,2.676847e-02,2.681624e-02,2.686402e-02,2.691179e-02};
902 static const G4double P15[nE]={                   901 static const G4double P15[nE]={
903     0.000000e+00,0.000000e+00,0.000000e+00,0.0    902     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
904     0.000000e+00,0.000000e+00,0.000000e+00,0.0    903     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
905     0.000000e+00,0.000000e+00,0.000000e+00,0.0    904     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
906     0.000000e+00,0.000000e+00,0.000000e+00,0.0    905     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
907     0.000000e+00,0.000000e+00,0.000000e+00,0.0    906     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
908     0.000000e+00,0.000000e+00,0.000000e+00,0.0    907     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
909     3.974782e-06,2.111703e-05,4.187126e-05,6.6    908     3.974782e-06,2.111703e-05,4.187126e-05,6.655079e-05,9.794658e-05,1.391596e-04,1.910712e-04,
910     2.547110e-04,3.424807e-04,4.647771e-04,6.2    909     2.547110e-04,3.424807e-04,4.647771e-04,6.247355e-04,8.380779e-04,1.162192e-03,1.613141e-03,
911     2.209563e-03,3.022272e-03,4.083389e-03,5.3    910     2.209563e-03,3.022272e-03,4.083389e-03,5.391437e-03,6.847763e-03,8.447014e-03,1.019379e-02,
912     1.208961e-02,1.415500e-02,1.648372e-02,1.9    911     1.208961e-02,1.415500e-02,1.648372e-02,1.911481e-02,2.208779e-02,2.543914e-02,2.914260e-02,
913     3.316793e-02,3.745194e-02,4.191903e-02,4.6    912     3.316793e-02,3.745194e-02,4.191903e-02,4.650110e-02,5.114289e-02,5.580689e-02,6.047654e-02,
914     6.515418e-02,6.985421e-02,7.459850e-02,7.9    913     6.515418e-02,6.985421e-02,7.459850e-02,7.942200e-02,8.435394e-02,8.942726e-02,9.467447e-02,
915     1.001215e-01,1.057883e-01,1.116895e-01,1.1    914     1.001215e-01,1.057883e-01,1.116895e-01,1.178312e-01,1.242106e-01,1.308174e-01,1.376334e-01,
916     1.446344e-01,1.517909e-01,1.590700e-01,1.6    915     1.446344e-01,1.517909e-01,1.590700e-01,1.664371e-01,1.738573e-01,1.812967e-01,1.887238e-01,
917     1.961101e-01,2.034302e-01,2.106622e-01,2.1    916     1.961101e-01,2.034302e-01,2.106622e-01,2.177880e-01,2.247927e-01,2.316643e-01,2.383937e-01,
918     2.449747e-01,2.514023e-01,2.576744e-01,2.6    917     2.449747e-01,2.514023e-01,2.576744e-01,2.637892e-01,2.697473e-01,2.755497e-01,2.811981e-01,
919     2.866954e-01,2.920447e-01,2.972497e-01,3.0    918     2.866954e-01,2.920447e-01,2.972497e-01,3.023141e-01,3.072423e-01,3.120386e-01,3.167076e-01,
920     3.212540e-01,3.256827e-01,3.299983e-01,3.3    919     3.212540e-01,3.256827e-01,3.299983e-01,3.342061e-01,3.383109e-01,3.423179e-01,3.462322e-01,
921     3.500593e-01,3.538045e-01,3.574734e-01,3.6    920     3.500593e-01,3.538045e-01,3.574734e-01,3.610719e-01,3.646061e-01,3.680773e-01,3.714851e-01,
922     3.748540e-01,3.781939e-01,3.815172e-01,3.8    921     3.748540e-01,3.781939e-01,3.815172e-01,3.848393e-01,3.881806e-01,3.915678e-01,3.950376e-01,
923     3.986393e-01,4.024394e-01,4.065252e-01,4.1    922     3.986393e-01,4.024394e-01,4.065252e-01,4.110083e-01,4.160253e-01,4.217350e-01,4.283120e-01,
924     4.359366e-01,4.447861e-01,4.550284e-01,4.6    923     4.359366e-01,4.447861e-01,4.550284e-01,4.668217e-01,4.803198e-01,4.956807e-01,5.130757e-01,
925     5.326983e-01,5.547703e-01,5.795448e-01,6.0    924     5.326983e-01,5.547703e-01,5.795448e-01,6.073059e-01,6.383637e-01,6.730439e-01,7.116699e-01,
926     7.545360e-01,8.018700e-01,8.537886e-01,9.1    925     7.545360e-01,8.018700e-01,8.537886e-01,9.102508e-01,9.710179e-01,1.035633e+00,1.103430e+00,
927     1.173580e+00,1.245163e+00,1.317264e+00,1.3    926     1.173580e+00,1.245163e+00,1.317264e+00,1.389054e+00,1.459853e+00,1.529164e+00,1.596682e+00,
928     1.662267e+00,1.725924e+00,1.787763e+00,1.8    927     1.662267e+00,1.725924e+00,1.787763e+00,1.847980e+00,1.906827e+00,1.964596e+00,2.021606e+00,
929     2.078191e+00,2.134696e+00,2.191472e+00,2.2    928     2.078191e+00,2.134696e+00,2.191472e+00,2.248861e+00,2.307198e+00,2.366794e+00,2.427929e+00,
930     2.490835e+00,2.555683e+00,2.622564e+00,2.6    929     2.490835e+00,2.555683e+00,2.622564e+00,2.691483e+00,2.762350e+00,2.834987e+00,2.909144e+00,
931     2.984527e+00,3.060829e+00,3.137758e+00,3.2    930     2.984527e+00,3.060829e+00,3.137758e+00,3.215070e+00,3.292583e+00,3.370189e+00,3.447853e+00,
932     3.525611e+00,3.603556e+00,3.681827e+00,3.7    931     3.525611e+00,3.603556e+00,3.681827e+00,3.760598e+00,3.840066e+00,3.920438e+00,4.001928e+00,
933     4.084743e+00,4.169087e+00,4.255151e+00,4.3    932     4.084743e+00,4.169087e+00,4.255151e+00,4.343112e+00,4.433133e+00,4.525363e+00,4.619934e+00,
934     4.716965e+00,4.816561e+00,4.918816e+00,5.0    933     4.716965e+00,4.816561e+00,4.918816e+00,5.023813e+00,5.131626e+00,5.242324e+00,5.355968e+00,
935     5.472618e+00,5.592327e+00,5.715152e+00,5.8    934     5.472618e+00,5.592327e+00,5.715152e+00,5.841146e+00,5.970363e+00,6.102860e+00,6.238695e+00,
936     6.377929e+00,6.520625e+00,6.666852e+00,6.8    935     6.377929e+00,6.520625e+00,6.666852e+00,6.816680e+00,6.970186e+00,7.127448e+00,7.288551e+00,
937     7.453583e+00,7.622638e+00,7.795812e+00,7.9    936     7.453583e+00,7.622638e+00,7.795812e+00,7.973209e+00,8.154935e+00,8.341103e+00,8.531830e+00,
938     8.727236e+00,8.927450e+00,9.132601e+00,9.3    937     8.727236e+00,8.927450e+00,9.132601e+00,9.342828e+00,9.558272e+00,9.779080e+00,1.000540e+01,
939     1.023740e+01,1.047524e+01,1.071908e+01,1.0    938     1.023740e+01,1.047524e+01,1.071908e+01,1.096910e+01,1.122548e+01,1.148841e+01,1.175808e+01,
940     1.203469e+01,1.231843e+01,1.260954e+01,1.2    939     1.203469e+01,1.231843e+01,1.260954e+01,1.290821e+01,1.321468e+01,1.352918e+01,1.385194e+01,
941     1.418323e+01,1.452328e+01,1.487236e+01,1.5    940     1.418323e+01,1.452328e+01,1.487236e+01,1.523075e+01,1.559872e+01,1.597656e+01,1.636457e+01,
942     1.676306e+01,1.717234e+01,1.759273e+01,1.8    941     1.676306e+01,1.717234e+01,1.759273e+01,1.802457e+01,1.846822e+01,1.892402e+01,1.939234e+01,
943     1.987358e+01,2.036810e+01,2.087633e+01,2.1    942     1.987358e+01,2.036810e+01,2.087633e+01,2.139868e+01,2.193558e+01,2.248747e+01,2.305481e+01,
944     2.363808e+01,2.423775e+01,2.485434e+01,2.5    943     2.363808e+01,2.423775e+01,2.485434e+01,2.548836e+01,2.614035e+01,2.681085e+01,2.750044e+01,
945     2.820970e+01,2.893925e+01,2.968970e+01,3.0    944     2.820970e+01,2.893925e+01,2.968970e+01,3.046170e+01,3.125593e+01,3.207305e+01,3.291380e+01,
946     3.377889e+01,3.466908e+01,3.558515e+01,3.6    945     3.377889e+01,3.466908e+01,3.558515e+01,3.652791e+01,3.749819e+01,3.849684e+01,3.952475e+01,
947     4.058284e+01,4.167204e+01,4.279334e+01,4.3    946     4.058284e+01,4.167204e+01,4.279334e+01,4.394772e+01,4.513625e+01,4.635997e+01,4.762000e+01,
948     4.891749e+01,5.025360e+01,5.162956e+01,5.3    947     4.891749e+01,5.025360e+01,5.162956e+01,5.304662e+01,5.450609e+01,5.600929e+01,5.755762e+01,
949     5.915250e+01,6.079540e+01,6.248786e+01,6.4    948     5.915250e+01,6.079540e+01,6.248786e+01,6.423144e+01,6.602777e+01,6.787852e+01,6.978543e+01,
950     7.175028e+01,7.377494e+01,7.586129e+01,7.8    949     7.175028e+01,7.377494e+01,7.586129e+01,7.801133e+01,8.022707e+01,8.251063e+01,8.486417e+01};
951 static const G4double P25[nE]={                   950 static const G4double P25[nE]={
952     0.000000e+00,0.000000e+00,0.000000e+00,0.0    951     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
953     0.000000e+00,0.000000e+00,0.000000e+00,0.0    952     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
954     0.000000e+00,0.000000e+00,0.000000e+00,0.0    953     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
955     0.000000e+00,0.000000e+00,0.000000e+00,0.0    954     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
956     0.000000e+00,0.000000e+00,0.000000e+00,0.0    955     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
957     0.000000e+00,0.000000e+00,0.000000e+00,0.0    956     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
958     2.695366e-05,1.456646e-04,2.940957e-04,4.7    957     2.695366e-05,1.456646e-04,2.940957e-04,4.763706e-04,7.159105e-04,1.040560e-03,1.462756e-03,
959     1.997124e-03,2.758357e-03,3.853132e-03,5.3    958     1.997124e-03,2.758357e-03,3.853132e-03,5.331120e-03,7.366831e-03,1.055881e-02,1.514171e-02,
960     2.139761e-02,3.019542e-02,4.204851e-02,5.7    959     2.139761e-02,3.019542e-02,4.204851e-02,5.712316e-02,7.444010e-02,9.406277e-02,1.161775e-01,
961     1.409425e-01,1.687811e-01,2.011671e-01,2.3    960     1.409425e-01,1.687811e-01,2.011671e-01,2.389176e-01,2.829245e-01,3.341005e-01,3.924354e-01,
962     4.578416e-01,5.296390e-01,6.068635e-01,6.8    961     4.578416e-01,5.296390e-01,6.068635e-01,6.885638e-01,7.739318e-01,8.624020e-01,9.537611e-01,
963     1.048148e+00,1.145963e+00,1.247793e+00,1.3    962     1.048148e+00,1.145963e+00,1.247793e+00,1.354566e+00,1.467159e+00,1.586602e+00,1.714000e+00,
964     1.850381e+00,1.996693e+00,2.153810e+00,2.3    963     1.850381e+00,1.996693e+00,2.153810e+00,2.322424e+00,2.503024e+00,2.695880e+00,2.901036e+00,
965     3.118309e+00,3.347312e+00,3.587475e+00,3.8    964     3.118309e+00,3.347312e+00,3.587475e+00,3.838086e+00,4.098335e+00,4.367355e+00,4.644260e+00,
966     4.928176e+00,5.218268e+00,5.513750e+00,5.8    965     4.928176e+00,5.218268e+00,5.513750e+00,5.813904e+00,6.118091e+00,6.425733e+00,6.736332e+00,
967     7.049470e+00,7.364768e+00,7.681941e+00,8.0    966     7.049470e+00,7.364768e+00,7.681941e+00,8.000723e+00,8.320924e+00,8.642387e+00,8.964984e+00,
968     9.288638e+00,9.613299e+00,9.938942e+00,1.0    967     9.288638e+00,9.613299e+00,9.938942e+00,1.026557e+01,1.059321e+01,1.092191e+01,1.125175e+01,
969     1.158282e+01,1.191526e+01,1.224919e+01,1.2    968     1.158282e+01,1.191526e+01,1.224919e+01,1.258480e+01,1.292228e+01,1.326186e+01,1.360381e+01,
970     1.394841e+01,1.429602e+01,1.464702e+01,1.5    969     1.394841e+01,1.429602e+01,1.464702e+01,1.500188e+01,1.536112e+01,1.572479e+01,1.609281e+01,
971     1.646782e+01,1.685103e+01,1.724405e+01,1.7    970     1.646782e+01,1.685103e+01,1.724405e+01,1.764902e+01,1.806883e+01,1.850751e+01,1.897069e+01,
972     1.946627e+01,2.000522e+01,2.060253e+01,2.1    971     1.946627e+01,2.000522e+01,2.060253e+01,2.127807e+01,2.205730e+01,2.297138e+01,2.405664e+01,
973     2.535341e+01,2.690469e+01,2.875518e+01,3.0    972     2.535341e+01,2.690469e+01,2.875518e+01,3.095123e+01,3.354183e+01,3.658031e+01,4.012667e+01,
974     4.424985e+01,4.902993e+01,5.455981e+01,6.0    973     4.424985e+01,4.902993e+01,5.455981e+01,6.094631e+01,6.831029e+01,7.678525e+01,8.651380e+01,
975     9.764114e+01,1.103048e+02,1.246205e+02,1.4    974     9.764114e+01,1.103048e+02,1.246205e+02,1.406659e+02,1.584635e+02,1.779675e+02,1.990585e+02,
976     2.215491e+02,2.452021e+02,2.697554e+02,2.9    975     2.215491e+02,2.452021e+02,2.697554e+02,2.949511e+02,3.205598e+02,3.463985e+02,3.723392e+02,
977     3.983095e+02,4.242881e+02,4.502985e+02,4.7    976     3.983095e+02,4.242881e+02,4.502985e+02,4.764027e+02,5.026947e+02,5.292959e+02,5.563519e+02,
978     5.840293e+02,6.125149e+02,6.420137e+02,6.7    977     5.840293e+02,6.125149e+02,6.420137e+02,6.727452e+02,7.049409e+02,7.388395e+02,7.746786e+02,
979     8.126858e+02,8.530658e+02,8.959874e+02,9.4    978     8.126858e+02,8.530658e+02,8.959874e+02,9.415706e+02,9.898771e+02,1.040906e+03,1.094598e+03,
980     1.150848e+03,1.209525e+03,1.270497e+03,1.3    979     1.150848e+03,1.209525e+03,1.270497e+03,1.333646e+03,1.398899e+03,1.466229e+03,1.535674e+03,
981     1.607330e+03,1.681358e+03,1.757972e+03,1.8    980     1.607330e+03,1.681358e+03,1.757972e+03,1.837437e+03,1.920058e+03,2.006179e+03,2.096171e+03,
982     2.190427e+03,2.289361e+03,2.393404e+03,2.5    981     2.190427e+03,2.289361e+03,2.393404e+03,2.502995e+03,2.618587e+03,2.740640e+03,2.869622e+03,
983     3.006011e+03,3.150290e+03,3.302954e+03,3.4    982     3.006011e+03,3.150290e+03,3.302954e+03,3.464511e+03,3.635478e+03,3.816392e+03,4.007807e+03,
984     4.210296e+03,4.424458e+03,4.650917e+03,4.8    983     4.210296e+03,4.424458e+03,4.650917e+03,4.890329e+03,5.143382e+03,5.410798e+03,5.693341e+03,
985     5.991817e+03,6.307078e+03,6.640026e+03,6.9    984     5.991817e+03,6.307078e+03,6.640026e+03,6.991616e+03,7.362858e+03,7.754825e+03,8.168654e+03,
986     8.605548e+03,9.066788e+03,9.553727e+03,1.0    985     8.605548e+03,9.066788e+03,9.553727e+03,1.006780e+04,1.061054e+04,1.118357e+04,1.178858e+04,
987     1.242741e+04,1.310199e+04,1.381436e+04,1.4    986     1.242741e+04,1.310199e+04,1.381436e+04,1.456669e+04,1.536129e+04,1.620059e+04,1.708718e+04,
988     1.802382e+04,1.901340e+04,2.005902e+04,2.1    987     1.802382e+04,1.901340e+04,2.005902e+04,2.116395e+04,2.233167e+04,2.356584e+04,2.487038e+04,
989     2.624943e+04,2.770738e+04,2.924888e+04,3.0    988     2.624943e+04,2.770738e+04,2.924888e+04,3.087888e+04,3.260261e+04,3.442562e+04,3.635382e+04,
990     3.839344e+04,4.055112e+04,4.283390e+04,4.5    989     3.839344e+04,4.055112e+04,4.283390e+04,4.524923e+04,4.780502e+04,5.050969e+04,5.337213e+04,
991     5.640180e+04,5.960874e+04,6.300357e+04,6.6    990     5.640180e+04,5.960874e+04,6.300357e+04,6.659759e+04,7.040280e+04,7.443190e+04,7.869840e+04,
992     8.321661e+04,8.800174e+04,9.306993e+04,9.8    991     8.321661e+04,8.800174e+04,9.306993e+04,9.843832e+04,1.041251e+05,1.101495e+05,1.165321e+05,
993     1.232946e+05,1.304601e+05,1.380532e+05,1.4    992     1.232946e+05,1.304601e+05,1.380532e+05,1.460998e+05,1.546276e+05,1.636660e+05,1.732461e+05,
994     1.834010e+05,1.941660e+05,2.055782e+05,2.1    993     1.834010e+05,1.941660e+05,2.055782e+05,2.176775e+05,2.305058e+05,2.441079e+05,2.585314e+05,
995     2.738267e+05,2.900474e+05,3.072504e+05,3.2    994     2.738267e+05,2.900474e+05,3.072504e+05,3.254964e+05,3.448495e+05,3.653781e+05,3.871546e+05,
996     4.102564e+05,4.347651e+05,4.607680e+05,4.8    995     4.102564e+05,4.347651e+05,4.607680e+05,4.883575e+05,5.176318e+05,5.486956e+05,5.816597e+05,
997     6.166422e+05,6.537685e+05,6.931719e+05,7.3    996     6.166422e+05,6.537685e+05,6.931719e+05,7.349941e+05,7.793856e+05,8.265066e+05,8.765271e+05,
998     9.296281e+05,9.860018e+05,1.045853e+06,1.1    997     9.296281e+05,9.860018e+05,1.045853e+06,1.109398e+06,1.176869e+06,1.248512e+06,1.324586e+06,
999     1.405371e+06,1.491162e+06,1.582272e+06,1.6    998     1.405371e+06,1.491162e+06,1.582272e+06,1.679036e+06,1.781809e+06,1.890967e+06,2.006914e+06};
1000 static const G4double P06[nE]={                  999 static const G4double P06[nE]={
1001     1.177941e-08,2.588247e-08,4.232501e-08,6.    1000     1.177941e-08,2.588247e-08,4.232501e-08,6.117863e-08,8.251710e-08,1.064164e-07,1.329550e-07,
1002     1.622136e-07,1.942754e-07,2.292262e-07,2.    1001     1.622136e-07,1.942754e-07,2.292262e-07,2.671543e-07,3.081509e-07,3.523099e-07,4.005143e-07,
1003     4.568609e-07,5.221504e-07,5.966563e-07,6.    1002     4.568609e-07,5.221504e-07,5.966563e-07,6.806607e-07,7.744541e-07,8.783361e-07,9.926154e-07,
1004     1.117610e-06,1.253648e-06,1.407254e-06,1.    1003     1.117610e-06,1.253648e-06,1.407254e-06,1.585177e-06,1.788160e-06,2.016972e-06,2.272402e-06,
1005     2.555265e-06,2.866400e-06,3.210941e-06,3.    1004     2.555265e-06,2.866400e-06,3.210941e-06,3.607791e-06,4.060525e-06,4.570854e-06,5.140538e-06,
1006     5.771395e-06,6.471521e-06,7.274318e-06,8.    1005     5.771395e-06,6.471521e-06,7.274318e-06,8.187243e-06,9.213663e-06,1.035705e-05,1.162722e-05,
1007     1.307801e-05,1.472581e-05,1.657663e-05,1.    1006     1.307801e-05,1.472581e-05,1.657663e-05,1.863670e-05,2.096335e-05,2.361557e-05,2.660333e-05,
1008     2.993756e-05,3.371561e-05,3.801233e-05,4.    1007     2.993756e-05,3.371561e-05,3.801233e-05,4.284356e-05,4.826338e-05,5.444679e-05,6.143438e-05,
1009     6.927898e-05,7.822982e-05,8.836866e-05,9.    1008     6.927898e-05,7.822982e-05,8.836866e-05,9.979567e-05,1.128693e-04,1.276837e-04,1.445433e-04,
1010     1.638882e-04,1.858924e-04,2.113879e-04,2.    1009     1.638882e-04,1.858924e-04,2.113879e-04,2.406623e-04,2.749277e-04,3.149839e-04,3.626925e-04,
1011     4.199591e-04,4.903319e-04,5.776505e-04,6.    1010     4.199591e-04,4.903319e-04,5.776505e-04,6.896213e-04,8.327844e-04,1.019672e-03,1.256072e-03,
1012     1.545358e-03,1.876495e-03,2.234266e-03,2.    1011     1.545358e-03,1.876495e-03,2.234266e-03,2.599517e-03,2.965057e-03,3.327538e-03,3.688496e-03,
1013     4.049256e-03,4.410120e-03,4.770247e-03,5.    1012     4.049256e-03,4.410120e-03,4.770247e-03,5.127797e-03,5.480662e-03,5.826902e-03,6.164910e-03,
1014     6.493445e-03,6.811580e-03,7.118638e-03,7.    1013     6.493445e-03,6.811580e-03,7.118638e-03,7.414125e-03,7.697697e-03,7.969130e-03,8.228314e-03,
1015     8.475244e-03,8.710011e-03,8.932790e-03,9.    1014     8.475244e-03,8.710011e-03,8.932790e-03,9.143846e-03,9.343514e-03,9.532163e-03,9.710217e-03,
1016     9.878136e-03,1.003638e-02,1.018543e-02,1.    1015     9.878136e-03,1.003638e-02,1.018543e-02,1.032577e-02,1.045788e-02,1.058222e-02,1.069925e-02,
1017     1.080940e-02,1.091309e-02,1.101074e-02,1.    1016     1.080940e-02,1.091309e-02,1.101074e-02,1.110271e-02,1.118937e-02,1.127107e-02,1.134814e-02,
1018     1.142087e-02,1.148956e-02,1.155449e-02,1.    1017     1.142087e-02,1.148956e-02,1.155449e-02,1.161591e-02,1.167407e-02,1.172919e-02,1.178149e-02,
1019     1.183119e-02,1.187846e-02,1.192350e-02,1.    1018     1.183119e-02,1.187846e-02,1.192350e-02,1.196648e-02,1.200757e-02,1.204672e-02,1.208376e-02,
1020     1.211950e-02,1.215412e-02,1.218777e-02,1.    1019     1.211950e-02,1.215412e-02,1.218777e-02,1.222066e-02,1.225302e-02,1.228514e-02,1.231736e-02,
1021     1.235014e-02,1.238405e-02,1.241978e-02,1.    1020     1.235014e-02,1.238405e-02,1.241978e-02,1.245819e-02,1.250024e-02,1.254701e-02,1.259955e-02,
1022     1.265887e-02,1.272581e-02,1.280106e-02,1.    1021     1.265887e-02,1.272581e-02,1.280106e-02,1.288513e-02,1.297844e-02,1.308135e-02,1.319425e-02,
1023     1.331759e-02,1.345191e-02,1.359785e-02,1.    1022     1.331759e-02,1.345191e-02,1.359785e-02,1.375610e-02,1.392741e-02,1.411249e-02,1.431192e-02,
1024     1.452607e-02,1.475493e-02,1.499797e-02,1.    1023     1.452607e-02,1.475493e-02,1.499797e-02,1.525402e-02,1.552116e-02,1.579678e-02,1.607760e-02,
1025     1.636002e-02,1.664033e-02,1.691510e-02,1.    1024     1.636002e-02,1.664033e-02,1.691510e-02,1.718143e-02,1.743714e-02,1.768081e-02,1.791177e-02,
1026     1.812995e-02,1.833578e-02,1.853000e-02,1.    1025     1.812995e-02,1.833578e-02,1.853000e-02,1.871357e-02,1.888757e-02,1.905313e-02,1.921139e-02,
1027     1.936343e-02,1.951030e-02,1.965297e-02,1.    1026     1.936343e-02,1.951030e-02,1.965297e-02,1.979231e-02,1.992912e-02,2.006408e-02,2.019774e-02,
1028     2.033054e-02,2.046278e-02,2.059460e-02,2.    1027     2.033054e-02,2.046278e-02,2.059460e-02,2.072598e-02,2.085680e-02,2.098677e-02,2.111556e-02,
1029     2.124276e-02,2.136797e-02,2.149083e-02,2.    1028     2.124276e-02,2.136797e-02,2.149083e-02,2.161106e-02,2.172847e-02,2.184294e-02,2.195448e-02,
1030     2.206318e-02,2.216917e-02,2.227266e-02,2.    1029     2.206318e-02,2.216917e-02,2.227266e-02,2.237386e-02,2.247304e-02,2.257041e-02,2.266623e-02,
1031     2.276069e-02,2.285400e-02,2.294633e-02,2.    1030     2.276069e-02,2.285400e-02,2.294633e-02,2.303782e-02,2.312859e-02,2.321873e-02,2.330833e-02,
1032     2.339744e-02,2.348610e-02,2.357434e-02,2.    1031     2.339744e-02,2.348610e-02,2.357434e-02,2.366216e-02,2.374958e-02,2.383660e-02,2.392321e-02,
1033     2.400939e-02,2.409515e-02,2.418046e-02,2.    1032     2.400939e-02,2.409515e-02,2.418046e-02,2.426532e-02,2.434971e-02,2.443362e-02,2.451703e-02,
1034     2.459996e-02,2.468237e-02,2.476428e-02,2.    1033     2.459996e-02,2.468237e-02,2.476428e-02,2.484568e-02,2.492656e-02,2.500692e-02,2.508678e-02,
1035     2.516612e-02,2.524495e-02,2.532328e-02,2.    1034     2.516612e-02,2.524495e-02,2.532328e-02,2.540111e-02,2.547844e-02,2.555530e-02,2.563167e-02,
1036     2.570757e-02,2.578302e-02,2.585800e-02,2.    1035     2.570757e-02,2.578302e-02,2.585800e-02,2.593255e-02,2.600666e-02,2.608034e-02,2.615360e-02,
1037     2.622645e-02,2.629891e-02,2.637098e-02,2.    1036     2.622645e-02,2.629891e-02,2.637098e-02,2.644266e-02,2.651397e-02,2.658492e-02,2.665552e-02,
1038     2.672577e-02,2.679569e-02,2.686527e-02,2.    1037     2.672577e-02,2.679569e-02,2.686527e-02,2.693454e-02,2.700349e-02,2.707214e-02,2.714049e-02,
1039     2.720856e-02,2.727634e-02,2.734385e-02,2.    1038     2.720856e-02,2.727634e-02,2.734385e-02,2.741110e-02,2.747808e-02,2.754481e-02,2.761130e-02,
1040     2.767754e-02,2.774355e-02,2.780934e-02,2.    1039     2.767754e-02,2.774355e-02,2.780934e-02,2.787490e-02,2.794025e-02,2.800540e-02,2.807034e-02,
1041     2.813508e-02,2.819963e-02,2.826399e-02,2.    1040     2.813508e-02,2.819963e-02,2.826399e-02,2.832817e-02,2.839218e-02,2.845601e-02,2.851968e-02,
1042     2.858319e-02,2.864654e-02,2.870974e-02,2.    1041     2.858319e-02,2.864654e-02,2.870974e-02,2.877279e-02,2.883570e-02,2.889848e-02,2.896112e-02,
1043     2.902362e-02,2.908601e-02,2.914827e-02,2.    1042     2.902362e-02,2.908601e-02,2.914827e-02,2.921042e-02,2.927245e-02,2.933437e-02,2.939619e-02,
1044     2.945791e-02,2.951952e-02,2.958105e-02,2.    1043     2.945791e-02,2.951952e-02,2.958105e-02,2.964248e-02,2.970383e-02,2.976509e-02,2.982628e-02,
1045     2.988738e-02,2.994842e-02,3.000938e-02,3.    1044     2.988738e-02,2.994842e-02,3.000938e-02,3.007028e-02,3.013111e-02,3.019189e-02,3.025260e-02,
1046     3.031327e-02,3.037388e-02,3.043444e-02,3.    1045     3.031327e-02,3.037388e-02,3.043444e-02,3.049496e-02,3.055544e-02,3.061588e-02,3.067628e-02,
1047     3.073665e-02,3.079699e-02,3.085730e-02,3.    1046     3.073665e-02,3.079699e-02,3.085730e-02,3.091759e-02,3.097785e-02,3.103809e-02,3.109832e-02,
1048     3.115854e-02,3.121874e-02,3.127894e-02,3.    1047     3.115854e-02,3.121874e-02,3.127894e-02,3.133912e-02,3.139931e-02,3.145949e-02,3.151968e-02};
1049 static const G4double P16[nE]={                  1048 static const G4double P16[nE]={
1050     1.804258e-08,4.051712e-08,6.777154e-08,1.    1049     1.804258e-08,4.051712e-08,6.777154e-08,1.002656e-07,1.384927e-07,1.829820e-07,2.343007e-07,
1051     2.930569e-07,3.599020e-07,4.355335e-07,5.    1050     2.930569e-07,3.599020e-07,4.355335e-07,5.206986e-07,6.161967e-07,7.228834e-07,8.436657e-07,
1052     9.900430e-07,1.165832e-06,1.373705e-06,1.    1051     9.900430e-07,1.165832e-06,1.373705e-06,1.616528e-06,1.897372e-06,2.219523e-06,2.586504e-06,
1053     3.002083e-06,3.470293e-06,4.017609e-06,4.    1052     3.002083e-06,3.470293e-06,4.017609e-06,4.673657e-06,5.448091e-06,6.351250e-06,7.394207e-06,
1054     8.588820e-06,9.947777e-06,1.150413e-05,1.    1053     8.588820e-06,9.947777e-06,1.150413e-05,1.335773e-05,1.554391e-05,1.809134e-05,2.103071e-05,
1055     2.439490e-05,2.825371e-05,3.282620e-05,3.    1054     2.439490e-05,2.825371e-05,3.282620e-05,3.819883e-05,4.443975e-05,5.162192e-05,5.986434e-05,
1056     6.958951e-05,8.099809e-05,9.423242e-05,1.    1055     6.958951e-05,8.099809e-05,9.423242e-05,1.094449e-04,1.271888e-04,1.480744e-04,1.723673e-04,
1057     2.003571e-04,2.331035e-04,2.715493e-04,3.    1056     2.003571e-04,2.331035e-04,2.715493e-04,3.161734e-04,3.678507e-04,4.287074e-04,4.996878e-04,
1058     5.819333e-04,6.787875e-04,7.920050e-04,9.    1057     5.819333e-04,6.787875e-04,7.920050e-04,9.236902e-04,1.079162e-03,1.260946e-03,1.474428e-03,
1059     1.727161e-03,2.023776e-03,2.378366e-03,2.    1058     1.727161e-03,2.023776e-03,2.378366e-03,2.798406e-03,3.305670e-03,3.917386e-03,4.669086e-03,
1060     5.599801e-03,6.779798e-03,8.289933e-03,1.    1059     5.599801e-03,6.779798e-03,8.289933e-03,1.028773e-02,1.292223e-02,1.646960e-02,2.109720e-02,
1061     2.693730e-02,3.383013e-02,4.151002e-02,4.    1060     2.693730e-02,3.383013e-02,4.151002e-02,4.959508e-02,5.793931e-02,6.647249e-02,7.523542e-02,
1062     8.426714e-02,9.358336e-02,1.031704e-01,1.    1061     8.426714e-02,9.358336e-02,1.031704e-01,1.129855e-01,1.229736e-01,1.330792e-01,1.432514e-01,
1063     1.534460e-01,1.636247e-01,1.737542e-01,1.    1062     1.534460e-01,1.636247e-01,1.737542e-01,1.838047e-01,1.937493e-01,2.035636e-01,2.132257e-01,
1064     2.227163e-01,2.320190e-01,2.411202e-01,2.    1063     2.227163e-01,2.320190e-01,2.411202e-01,2.500095e-01,2.586795e-01,2.671245e-01,2.753418e-01,
1065     2.833311e-01,2.910927e-01,2.986297e-01,3.    1064     2.833311e-01,2.910927e-01,2.986297e-01,3.059453e-01,3.130445e-01,3.199327e-01,3.266157e-01,
1066     3.331003e-01,3.393933e-01,3.455017e-01,3.    1065     3.331003e-01,3.393933e-01,3.455017e-01,3.514328e-01,3.571940e-01,3.627927e-01,3.682364e-01,
1067     3.735326e-01,3.786887e-01,3.837123e-01,3.    1066     3.735326e-01,3.786887e-01,3.837123e-01,3.886108e-01,3.933918e-01,3.980628e-01,4.026315e-01,
1068     4.071056e-01,4.114928e-01,4.158014e-01,4.    1067     4.071056e-01,4.114928e-01,4.158014e-01,4.200395e-01,4.242160e-01,4.283169e-01,4.323171e-01,
1069     4.362959e-01,4.402669e-01,4.442464e-01,4.    1068     4.362959e-01,4.402669e-01,4.442464e-01,4.482555e-01,4.523215e-01,4.564807e-01,4.607821e-01,
1070     4.652924e-01,4.701007e-01,4.753240e-01,4.    1069     4.652924e-01,4.701007e-01,4.753240e-01,4.811110e-01,4.876429e-01,4.951294e-01,5.037993e-01,
1071     5.138871e-01,5.256210e-01,5.392151e-01,5.    1070     5.138871e-01,5.256210e-01,5.392151e-01,5.548691e-01,5.727754e-01,5.931301e-01,6.161452e-01,
1072     6.420599e-01,6.711473e-01,7.037187e-01,7.    1071     6.420599e-01,6.711473e-01,7.037187e-01,7.401224e-01,7.807376e-01,8.259614e-01,8.761869e-01,
1073     9.317722e-01,9.929958e-01,1.060005e+00,1.    1072     9.317722e-01,9.929958e-01,1.060005e+00,1.132763e+00,1.211000e+00,1.294186e+00,1.381542e+00,
1074     1.472082e+00,1.564697e+00,1.658261e+00,1.    1073     1.472082e+00,1.564697e+00,1.658261e+00,1.751727e+00,1.844213e+00,1.935045e+00,2.023775e+00,
1075     2.110166e+00,2.194160e+00,2.275844e+00,2.    1074     2.110166e+00,2.194160e+00,2.275844e+00,2.355414e+00,2.433149e+00,2.509381e+00,2.584481e+00,
1076     2.658844e+00,2.732878e+00,2.806997e+00,2.    1075     2.658844e+00,2.732878e+00,2.806997e+00,2.881608e+00,2.957106e+00,3.033862e+00,3.112213e+00,
1077     3.192444e+00,3.274781e+00,3.359367e+00,3.    1076     3.192444e+00,3.274781e+00,3.359367e+00,3.446260e+00,3.535423e+00,3.626726e+00,3.719962e+00,
1078     3.814868e+00,3.911152e+00,4.008524e+00,4.    1077     3.814868e+00,3.911152e+00,4.008524e+00,4.106726e+00,4.205551e+00,4.304862e+00,4.404592e+00,
1079     4.504750e+00,4.605408e+00,4.706697e+00,4.    1078     4.504750e+00,4.605408e+00,4.706697e+00,4.808789e+00,4.911889e+00,5.016222e+00,5.122024e+00,
1080     5.229531e+00,5.338975e+00,5.450581e+00,5.    1079     5.229531e+00,5.338975e+00,5.450581e+00,5.564558e+00,5.681101e+00,5.800388e+00,5.922581e+00,
1081     6.047825e+00,6.176250e+00,6.307973e+00,6.    1080     6.047825e+00,6.176250e+00,6.307973e+00,6.443097e+00,6.581718e+00,6.723919e+00,6.869782e+00,
1082     7.019380e+00,7.172786e+00,7.330069e+00,7.    1081     7.019380e+00,7.172786e+00,7.330069e+00,7.491299e+00,7.656547e+00,7.825885e+00,7.999388e+00,
1083     8.177134e+00,8.359207e+00,8.545692e+00,8.    1082     8.177134e+00,8.359207e+00,8.545692e+00,8.736681e+00,8.932270e+00,9.132563e+00,9.337664e+00,
1084     9.547688e+00,9.762753e+00,9.982984e+00,1.    1083     9.547688e+00,9.762753e+00,9.982984e+00,1.020851e+01,1.043947e+01,1.067600e+01,1.091825e+01,
1085     1.116638e+01,1.142055e+01,1.168091e+01,1.    1084     1.116638e+01,1.142055e+01,1.168091e+01,1.194766e+01,1.222096e+01,1.250100e+01,1.278798e+01,
1086     1.308209e+01,1.338354e+01,1.369254e+01,1.    1085     1.308209e+01,1.338354e+01,1.369254e+01,1.400932e+01,1.433410e+01,1.466711e+01,1.500860e+01,
1087     1.535881e+01,1.571802e+01,1.608647e+01,1.    1086     1.535881e+01,1.571802e+01,1.608647e+01,1.646446e+01,1.685226e+01,1.725016e+01,1.765847e+01,
1088     1.807750e+01,1.850756e+01,1.894900e+01,1.    1087     1.807750e+01,1.850756e+01,1.894900e+01,1.940215e+01,1.986736e+01,2.034499e+01,2.083543e+01,
1089     2.133906e+01,2.185627e+01,2.238747e+01,2.    1088     2.133906e+01,2.185627e+01,2.238747e+01,2.293309e+01,2.349357e+01,2.406936e+01,2.466091e+01,
1090     2.526871e+01,2.589326e+01,2.653505e+01,2.    1089     2.526871e+01,2.589326e+01,2.653505e+01,2.719463e+01,2.787252e+01,2.856929e+01,2.928551e+01,
1091     3.002178e+01,3.077871e+01,3.155693e+01,3.    1090     3.002178e+01,3.077871e+01,3.155693e+01,3.235711e+01,3.317990e+01,3.402601e+01,3.489614e+01,
1092     3.579106e+01,3.671150e+01,3.765827e+01,3.    1091     3.579106e+01,3.671150e+01,3.765827e+01,3.863217e+01,3.963405e+01,4.066476e+01,4.172521e+01,
1093     4.281631e+01,4.393901e+01,4.509429e+01,4.    1092     4.281631e+01,4.393901e+01,4.509429e+01,4.628318e+01,4.750671e+01,4.876596e+01,5.006205e+01,
1094     5.139612e+01,5.276937e+01,5.418302e+01,5.    1093     5.139612e+01,5.276937e+01,5.418302e+01,5.563833e+01,5.713661e+01,5.867921e+01,6.026751e+01,
1095     6.190297e+01,6.358705e+01,6.532129e+01,6.    1094     6.190297e+01,6.358705e+01,6.532129e+01,6.710728e+01,6.894664e+01,7.084106e+01,7.279228e+01,
1096     7.480211e+01,7.687239e+01,7.900504e+01,8.    1095     7.480211e+01,7.687239e+01,7.900504e+01,8.120204e+01,8.346544e+01,8.579735e+01,8.819995e+01,
1097     9.067549e+01,9.322629e+01,9.585477e+01,9.    1096     9.067549e+01,9.322629e+01,9.585477e+01,9.856339e+01,1.013547e+02,1.042314e+02,1.071962e+02};
1098 static const G4double P26[nE]={                  1097 static const G4double P26[nE]={
1099     2.763953e-08,6.345949e-08,1.086410e-07,1.    1098     2.763953e-08,6.345949e-08,1.086410e-07,1.646514e-07,2.331424e-07,3.159704e-07,4.152194e-07,
1100     5.332258e-07,6.726060e-07,8.362873e-07,1.    1099     5.332258e-07,6.726060e-07,8.362873e-07,1.027541e-06,1.250021e-06,1.507800e-06,1.810470e-06,
1101     2.190769e-06,2.664122e-06,3.244155e-06,3.    1100     2.190769e-06,2.664122e-06,3.244155e-06,3.946134e-06,4.787143e-06,5.786279e-06,6.964869e-06,
1102     8.346712e-06,9.958338e-06,1.190868e-05,1.    1101     8.346712e-06,9.958338e-06,1.190868e-05,1.432794e-05,1.728288e-05,2.084815e-05,2.510710e-05,
1103     3.015277e-05,3.608891e-05,4.311988e-05,5.    1102     3.015277e-05,3.608891e-05,4.311988e-05,5.177849e-05,6.233615e-05,7.505340e-05,9.022094e-05,
1104     1.081628e-04,1.294330e-04,1.554788e-04,1.    1103     1.081628e-04,1.294330e-04,1.554788e-04,1.870999e-04,2.250498e-04,2.701684e-04,3.236600e-04,
1105     3.888571e-04,4.678518e-04,5.624921e-04,6.    1104     3.888571e-04,4.678518e-04,5.624921e-04,6.748370e-04,8.101707e-04,9.746542e-04,1.172191e-03,
1106     1.407177e-03,1.691031e-03,2.035063e-03,2.    1105     1.407177e-03,1.691031e-03,2.035063e-03,2.447271e-03,2.940049e-03,3.539047e-03,4.260131e-03,
1107     5.122493e-03,6.170607e-03,7.434979e-03,8.    1106     5.122493e-03,6.170607e-03,7.434979e-03,8.952649e-03,1.080167e-02,1.303248e-02,1.573588e-02,
1108     1.903802e-02,2.303667e-02,2.796869e-02,3.    1107     1.903802e-02,2.303667e-02,2.796869e-02,3.399608e-02,4.150621e-02,5.084875e-02,6.269354e-02,
1109     7.782102e-02,9.760857e-02,1.237277e-01,1.    1108     7.782102e-02,9.760857e-02,1.237277e-01,1.593755e-01,2.078596e-01,2.751986e-01,3.657927e-01,
1110     4.837016e-01,6.271917e-01,7.920609e-01,9.    1109     4.837016e-01,6.271917e-01,7.920609e-01,9.710429e-01,1.161533e+00,1.362429e+00,1.575182e+00,
1111     1.801311e+00,2.041842e+00,2.297083e+00,2.    1110     1.801311e+00,2.041842e+00,2.297083e+00,2.566537e+00,2.849279e+00,3.144251e+00,3.450405e+00,
1112     3.766771e+00,4.092464e+00,4.426651e+00,4.    1111     3.766771e+00,4.092464e+00,4.426651e+00,4.768529e+00,5.117305e+00,5.472190e+00,5.832406e+00,
1113     6.197200e+00,6.565854e+00,6.937695e+00,7.    1112     6.197200e+00,6.565854e+00,6.937695e+00,7.312125e+00,7.688622e+00,8.066700e+00,8.445965e+00,
1114     8.826109e+00,9.206837e+00,9.587977e+00,9.    1113     8.826109e+00,9.206837e+00,9.587977e+00,9.969349e+00,1.035087e+01,1.073249e+01,1.111417e+01,
1115     1.149595e+01,1.187788e+01,1.226005e+01,1.    1114     1.149595e+01,1.187788e+01,1.226005e+01,1.264257e+01,1.302559e+01,1.340927e+01,1.379384e+01,
1116     1.417951e+01,1.456656e+01,1.495527e+01,1.    1115     1.417951e+01,1.456656e+01,1.495527e+01,1.534597e+01,1.573905e+01,1.613491e+01,1.653401e+01,
1117     1.693687e+01,1.734407e+01,1.775627e+01,1.    1116     1.693687e+01,1.734407e+01,1.775627e+01,1.817421e+01,1.859874e+01,1.902838e+01,1.946037e+01,
1118     1.990328e+01,2.035890e+01,2.082955e+01,2.    1117     1.990328e+01,2.035890e+01,2.082955e+01,2.131826e+01,2.182915e+01,2.236781e+01,2.294202e+01,
1119     2.356264e+01,2.424460e+01,2.500821e+01,2.    1118     2.356264e+01,2.424460e+01,2.500821e+01,2.588024e+01,2.689479e+01,2.809335e+01,2.952398e+01,
1120     3.123968e+01,3.329659e+01,3.575267e+01,3.    1119     3.123968e+01,3.329659e+01,3.575267e+01,3.866763e+01,4.210424e+01,4.613052e+01,5.082266e+01,
1121     5.626792e+01,6.256728e+01,6.983744e+01,7.    1120     5.626792e+01,6.256728e+01,6.983744e+01,7.821214e+01,8.784217e+01,9.889362e+01,1.115436e+02,
1122     1.259725e+02,1.423521e+02,1.608289e+02,1.    1121     1.259725e+02,1.423521e+02,1.608289e+02,1.815051e+02,2.044192e+02,2.295289e+02,2.567044e+02,
1123     2.857326e+02,3.163352e+02,3.481975e+02,3.    1122     2.857326e+02,3.163352e+02,3.481975e+02,3.810013e+02,4.144549e+02,4.483161e+02,4.824071e+02,
1124     5.166161e+02,5.508948e+02,5.852521e+02,6.    1123     5.166161e+02,5.508948e+02,5.852521e+02,6.197460e+02,6.544766e+02,6.895795e+02,7.252210e+02,
1125     7.615940e+02,7.989157e+02,8.374251e+02,8.    1124     7.615940e+02,7.989157e+02,8.374251e+02,8.773781e+02,9.190446e+02,9.627033e+02,1.008634e+03,
1126     1.057108e+03,1.108378e+03,1.162661e+03,1.    1125     1.057108e+03,1.108378e+03,1.162661e+03,1.220133e+03,1.280910e+03,1.345053e+03,1.412558e+03,
1127     1.483376e+03,1.557421e+03,1.634595e+03,1.    1126     1.483376e+03,1.557421e+03,1.634595e+03,1.714809e+03,1.798003e+03,1.884166e+03,1.973341e+03,
1128     2.065641e+03,2.161241e+03,2.260386e+03,2.    1127     2.065641e+03,2.161241e+03,2.260386e+03,2.363376e+03,2.470569e+03,2.582365e+03,2.699205e+03,
1129     2.821563e+03,2.949940e+03,3.084860e+03,3.    1128     2.821563e+03,2.949940e+03,3.084860e+03,3.226865e+03,3.376512e+03,3.534371e+03,3.701025e+03,
1130     3.877070e+03,4.063111e+03,4.259770e+03,4.    1129     3.877070e+03,4.063111e+03,4.259770e+03,4.467683e+03,4.687502e+03,4.919903e+03,5.165583e+03,
1131     5.425268e+03,5.699711e+03,5.989703e+03,6.    1130     5.425268e+03,5.699711e+03,5.989703e+03,6.296071e+03,6.619683e+03,6.961453e+03,7.322347e+03,
1132     7.703383e+03,8.105638e+03,8.530251e+03,8.    1131     7.703383e+03,8.105638e+03,8.530251e+03,8.978428e+03,9.451447e+03,9.950663e+03,1.047751e+04,
1133     1.103351e+04,1.162029e+04,1.223954e+04,1.    1132     1.103351e+04,1.162029e+04,1.223954e+04,1.289309e+04,1.358286e+04,1.431090e+04,1.507936e+04,
1134     1.589056e+04,1.674691e+04,1.765102e+04,1.    1133     1.589056e+04,1.674691e+04,1.765102e+04,1.860561e+04,1.961359e+04,2.067805e+04,2.180224e+04,
1135     2.298963e+04,2.424390e+04,2.556894e+04,2.    1134     2.298963e+04,2.424390e+04,2.556894e+04,2.696888e+04,2.844810e+04,3.001123e+04,3.166322e+04,
1136     3.340927e+04,3.525492e+04,3.720606e+04,3.    1135     3.340927e+04,3.525492e+04,3.720606e+04,3.926890e+04,4.145005e+04,4.375653e+04,4.619574e+04,
1137     4.877559e+04,5.150442e+04,5.439111e+04,5.    1136     4.877559e+04,5.150442e+04,5.439111e+04,5.744506e+04,6.067625e+04,6.409526e+04,6.771333e+04,
1138     7.154238e+04,7.559504e+04,7.988472e+04,8.    1137     7.154238e+04,7.559504e+04,7.988472e+04,8.442567e+04,8.923299e+04,9.432270e+04,9.971181e+04,
1139     1.054184e+05,1.114616e+05,1.178617e+05,1.    1138     1.054184e+05,1.114616e+05,1.178617e+05,1.246404e+05,1.318205e+05,1.394264e+05,1.474839e+05,
1140     1.560204e+05,1.650649e+05,1.746485e+05,1.    1139     1.560204e+05,1.650649e+05,1.746485e+05,1.848038e+05,1.955658e+05,2.069713e+05,2.190597e+05,
1141     2.318726e+05,2.454544e+05,2.598521e+05,2.    1140     2.318726e+05,2.454544e+05,2.598521e+05,2.751156e+05,2.912980e+05,3.084555e+05,3.266481e+05,
1142     3.459394e+05,3.663968e+05,3.880920e+05,4.    1141     3.459394e+05,3.663968e+05,3.880920e+05,4.111014e+05,4.355058e+05,4.613913e+05,4.888493e+05,
1143     5.179768e+05,5.488770e+05,5.816596e+05,6.    1142     5.179768e+05,5.488770e+05,5.816596e+05,6.164410e+05,6.533451e+05,6.925033e+05,7.340555e+05,
1144     7.781503e+05,8.249455e+05,8.746091e+05,9.    1143     7.781503e+05,8.249455e+05,8.746091e+05,9.273193e+05,9.832659e+05,1.042650e+06,1.105687e+06,
1145     1.172603e+06,1.243642e+06,1.319059e+06,1.    1144     1.172603e+06,1.243642e+06,1.319059e+06,1.399130e+06,1.484145e+06,1.574413e+06,1.670262e+06,
1146     1.772044e+06,1.880129e+06,1.994914e+06,2.    1145     1.772044e+06,1.880129e+06,1.994914e+06,2.116817e+06,2.246287e+06,2.383799e+06,2.529858e+06};
1147 static const G4double P07[nE]={                  1146 static const G4double P07[nE]={
1148     0.000000e+00,0.000000e+00,0.000000e+00,0.    1147     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1149     0.000000e+00,0.000000e+00,0.000000e+00,0.    1148     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1150     0.000000e+00,0.000000e+00,0.000000e+00,0.    1149     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1151     0.000000e+00,0.000000e+00,0.000000e+00,0.    1150     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1152     0.000000e+00,0.000000e+00,0.000000e+00,0.    1151     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1153     0.000000e+00,0.000000e+00,0.000000e+00,0.    1152     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1154     0.000000e+00,0.000000e+00,0.000000e+00,0.    1153     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1155     0.000000e+00,0.000000e+00,0.000000e+00,0.    1154     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1156     0.000000e+00,0.000000e+00,0.000000e+00,0.    1155     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1157     0.000000e+00,0.000000e+00,0.000000e+00,0.    1156     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,5.615850e-06,7.317061e-05,
1158     1.569824e-04,2.639676e-04,4.016252e-04,5.    1157     1.569824e-04,2.639676e-04,4.016252e-04,5.863944e-04,8.328386e-04,1.177938e-03,1.649296e-03,
1159     2.302400e-03,3.161734e-03,4.237816e-03,5.    1158     2.302400e-03,3.161734e-03,4.237816e-03,5.456960e-03,6.730797e-03,7.960891e-03,9.085925e-03,
1160     1.009134e-02,1.098015e-02,1.176593e-02,1.    1159     1.009134e-02,1.098015e-02,1.176593e-02,1.246461e-02,1.309051e-02,1.365573e-02,1.417019e-02,
1161     1.464189e-02,1.507718e-02,1.548101e-02,1.    1160     1.464189e-02,1.507718e-02,1.548101e-02,1.585724e-02,1.620889e-02,1.653832e-02,1.684741e-02,
1162     1.713770e-02,1.741048e-02,1.766689e-02,1.    1161     1.713770e-02,1.741048e-02,1.766689e-02,1.790792e-02,1.813454e-02,1.834756e-02,1.854780e-02,
1163     1.873604e-02,1.891300e-02,1.907937e-02,1.    1162     1.873604e-02,1.891300e-02,1.907937e-02,1.923580e-02,1.938293e-02,1.952135e-02,1.965163e-02,
1164     1.977430e-02,1.988986e-02,1.999879e-02,2.    1163     1.977430e-02,1.988986e-02,1.999879e-02,2.010154e-02,2.019852e-02,2.029015e-02,2.037679e-02,
1165     2.045879e-02,2.053649e-02,2.061020e-02,2.    1164     2.045879e-02,2.053649e-02,2.061020e-02,2.068021e-02,2.074680e-02,2.081022e-02,2.087073e-02,
1166     2.092857e-02,2.098394e-02,2.103706e-02,2.    1165     2.092857e-02,2.098394e-02,2.103706e-02,2.108813e-02,2.113735e-02,2.118465e-02,2.122987e-02,
1167     2.127393e-02,2.131701e-02,2.135933e-02,2.    1166     2.127393e-02,2.131701e-02,2.135933e-02,2.140114e-02,2.144273e-02,2.148447e-02,2.152683e-02,
1168     2.157041e-02,2.161596e-02,2.166444e-02,2.    1167     2.157041e-02,2.161596e-02,2.166444e-02,2.171699e-02,2.177491e-02,2.183961e-02,2.191251e-02,
1169     2.199488e-02,2.208782e-02,2.219215e-02,2.    1168     2.199488e-02,2.208782e-02,2.219215e-02,2.230849e-02,2.243729e-02,2.257897e-02,2.273395e-02,
1170     2.290275e-02,2.308599e-02,2.328443e-02,2.    1169     2.290275e-02,2.308599e-02,2.328443e-02,2.349891e-02,2.373031e-02,2.397948e-02,2.424715e-02,
1171     2.453375e-02,2.483929e-02,2.516314e-02,2.    1170     2.453375e-02,2.483929e-02,2.516314e-02,2.550390e-02,2.585931e-02,2.622620e-02,2.660061e-02,
1172     2.697807e-02,2.735392e-02,2.772372e-02,2.    1171     2.697807e-02,2.735392e-02,2.772372e-02,2.808361e-02,2.843053e-02,2.876237e-02,2.907794e-02,
1173     2.937688e-02,2.965945e-02,2.992642e-02,3.    1172     2.937688e-02,2.965945e-02,2.992642e-02,3.017888e-02,3.041812e-02,3.064554e-02,3.086254e-02,
1174     3.107052e-02,3.127081e-02,3.146466e-02,3.    1173     3.107052e-02,3.127081e-02,3.146466e-02,3.165321e-02,3.183749e-02,3.201839e-02,3.219668e-02,
1175     3.237296e-02,3.254769e-02,3.272115e-02,3.    1174     3.237296e-02,3.254769e-02,3.272115e-02,3.289347e-02,3.306460e-02,3.323440e-02,3.340257e-02,
1176     3.356878e-02,3.373266e-02,3.389385e-02,3.    1175     3.356878e-02,3.373266e-02,3.389385e-02,3.405206e-02,3.420704e-02,3.435868e-02,3.450692e-02,
1177     3.465181e-02,3.479348e-02,3.493210e-02,3.    1176     3.465181e-02,3.479348e-02,3.493210e-02,3.506790e-02,3.520114e-02,3.533207e-02,3.546095e-02,
1178     3.558802e-02,3.571351e-02,3.583761e-02,3.    1177     3.558802e-02,3.571351e-02,3.583761e-02,3.596050e-02,3.608232e-02,3.620319e-02,3.632322e-02,
1179     3.644246e-02,3.656098e-02,3.667881e-02,3.    1178     3.644246e-02,3.656098e-02,3.667881e-02,3.679597e-02,3.691248e-02,3.702833e-02,3.714354e-02,
1180     3.725808e-02,3.737196e-02,3.748515e-02,3.    1179     3.725808e-02,3.737196e-02,3.748515e-02,3.759766e-02,3.770946e-02,3.782055e-02,3.793092e-02,
1181     3.804056e-02,3.814948e-02,3.825765e-02,3.    1180     3.804056e-02,3.814948e-02,3.825765e-02,3.836510e-02,3.847181e-02,3.857779e-02,3.868304e-02,
1182     3.878758e-02,3.889140e-02,3.899452e-02,3.    1181     3.878758e-02,3.889140e-02,3.899452e-02,3.909694e-02,3.919867e-02,3.929974e-02,3.940014e-02,
1183     3.949989e-02,3.959900e-02,3.969749e-02,3.    1182     3.949989e-02,3.959900e-02,3.969749e-02,3.979536e-02,3.989264e-02,3.998933e-02,4.008545e-02,
1184     4.018101e-02,4.027603e-02,4.037051e-02,4.    1183     4.018101e-02,4.027603e-02,4.037051e-02,4.046447e-02,4.055793e-02,4.065089e-02,4.074337e-02,
1185     4.083538e-02,4.092693e-02,4.101803e-02,4.    1184     4.083538e-02,4.092693e-02,4.101803e-02,4.110870e-02,4.119895e-02,4.128879e-02,4.137822e-02,
1186     4.146726e-02,4.155592e-02,4.164422e-02,4.    1185     4.146726e-02,4.155592e-02,4.164422e-02,4.173215e-02,4.181972e-02,4.190696e-02,4.199387e-02,
1187     4.208045e-02,4.216671e-02,4.225267e-02,4.    1186     4.208045e-02,4.216671e-02,4.225267e-02,4.233834e-02,4.242371e-02,4.250880e-02,4.259361e-02,
1188     4.267816e-02,4.276246e-02,4.284650e-02,4.    1187     4.267816e-02,4.276246e-02,4.284650e-02,4.293029e-02,4.301385e-02,4.309718e-02,4.318028e-02,
1189     4.326316e-02,4.334584e-02,4.342831e-02,4.    1188     4.326316e-02,4.334584e-02,4.342831e-02,4.351058e-02,4.359266e-02,4.367456e-02,4.375627e-02,
1190     4.383781e-02,4.391918e-02,4.400038e-02,4.    1189     4.383781e-02,4.391918e-02,4.400038e-02,4.408143e-02,4.416233e-02,4.424307e-02,4.432368e-02,
1191     4.440415e-02,4.448448e-02,4.456469e-02,4.    1190     4.440415e-02,4.448448e-02,4.456469e-02,4.464477e-02,4.472474e-02,4.480460e-02,4.488434e-02,
1192     4.496398e-02,4.504353e-02,4.512297e-02,4.    1191     4.496398e-02,4.504353e-02,4.512297e-02,4.520233e-02,4.528160e-02,4.536079e-02,4.543990e-02,
1193     4.551894e-02,4.559790e-02,4.567681e-02,4.    1192     4.551894e-02,4.559790e-02,4.567681e-02,4.575564e-02,4.583443e-02,4.591315e-02,4.599183e-02,
1194     4.607046e-02,4.614905e-02,4.622760e-02,4.    1193     4.607046e-02,4.614905e-02,4.622760e-02,4.630612e-02,4.638460e-02,4.646306e-02,4.654149e-02,
1195     4.661990e-02,4.669829e-02,4.677667e-02,4.    1194     4.661990e-02,4.669829e-02,4.677667e-02,4.685504e-02,4.693340e-02,4.701176e-02,4.709012e-02};
1196 static const G4double P17[nE]={                  1195 static const G4double P17[nE]={
1197     0.000000e+00,0.000000e+00,0.000000e+00,0.    1196     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1198     0.000000e+00,0.000000e+00,0.000000e+00,0.    1197     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1199     0.000000e+00,0.000000e+00,0.000000e+00,0.    1198     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1200     0.000000e+00,0.000000e+00,0.000000e+00,0.    1199     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1201     0.000000e+00,0.000000e+00,0.000000e+00,0.    1200     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1202     0.000000e+00,0.000000e+00,0.000000e+00,0.    1201     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1203     0.000000e+00,0.000000e+00,0.000000e+00,0.    1202     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1204     0.000000e+00,0.000000e+00,0.000000e+00,0.    1203     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1205     0.000000e+00,0.000000e+00,0.000000e+00,0.    1204     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1206     0.000000e+00,0.000000e+00,0.000000e+00,0.    1205     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,8.694188e-05,1.151450e-03,
1207     2.513681e-03,4.307796e-03,6.688706e-03,9.    1206     2.513681e-03,4.307796e-03,6.688706e-03,9.985798e-03,1.452144e-02,2.107299e-02,3.030290e-02,
1208     4.349128e-02,6.138684e-02,8.449316e-02,1.    1207     4.349128e-02,6.138684e-02,8.449316e-02,1.114863e-01,1.405633e-01,1.695167e-01,1.968221e-01,
1209     2.219850e-01,2.449239e-01,2.658362e-01,2.    1208     2.219850e-01,2.449239e-01,2.658362e-01,2.850105e-01,3.027228e-01,3.192162e-01,3.346962e-01,
1210     3.493314e-01,3.632567e-01,3.765775e-01,3.    1209     3.493314e-01,3.632567e-01,3.765775e-01,3.893736e-01,4.017050e-01,4.136155e-01,4.251374e-01,
1211     4.362941e-01,4.471031e-01,4.575777e-01,4.    1210     4.362941e-01,4.471031e-01,4.575777e-01,4.677296e-01,4.775694e-01,4.871054e-01,4.963468e-01,
1212     5.053029e-01,5.139821e-01,5.223946e-01,5.    1211     5.053029e-01,5.139821e-01,5.223946e-01,5.305490e-01,5.384555e-01,5.461239e-01,5.535637e-01,
1213     5.607851e-01,5.677982e-01,5.746128e-01,5.    1212     5.607851e-01,5.677982e-01,5.746128e-01,5.812389e-01,5.876864e-01,5.939653e-01,6.000854e-01,
1214     6.060565e-01,6.118886e-01,6.175915e-01,6.    1213     6.060565e-01,6.118886e-01,6.175915e-01,6.231750e-01,6.286492e-01,6.340241e-01,6.393099e-01,
1215     6.445170e-01,6.496560e-01,6.547378e-01,6.    1214     6.445170e-01,6.496560e-01,6.547378e-01,6.597740e-01,6.647766e-01,6.697321e-01,6.746154e-01,
1216     6.795190e-01,6.844617e-01,6.894666e-01,6.    1215     6.795190e-01,6.844617e-01,6.894666e-01,6.945629e-01,6.997888e-01,7.051949e-01,7.108496e-01,
1217     7.168454e-01,7.233059e-01,7.303926e-01,7.    1216     7.168454e-01,7.233059e-01,7.303926e-01,7.383100e-01,7.473057e-01,7.576639e-01,7.696919e-01,
1218     7.837012e-01,7.999913e-01,8.188394e-01,8.    1217     7.837012e-01,7.999913e-01,8.188394e-01,8.405009e-01,8.652194e-01,8.932419e-01,9.248353e-01,
1219     9.603004e-01,9.999814e-01,1.044271e+00,1.    1218     9.603004e-01,9.999814e-01,1.044271e+00,1.093607e+00,1.148468e+00,1.209355e+00,1.276765e+00,
1220     1.351156e+00,1.432891e+00,1.522179e+00,1.    1219     1.351156e+00,1.432891e+00,1.522179e+00,1.619010e+00,1.723096e+00,1.833831e+00,1.950298e+00,
1221     2.071307e+00,2.195490e+00,2.321415e+00,2.    1220     2.071307e+00,2.195490e+00,2.321415e+00,2.447717e+00,2.573196e+00,2.696895e+00,2.818133e+00,
1222     2.936495e+00,3.051807e+00,3.164089e+00,3.    1221     2.936495e+00,3.051807e+00,3.164089e+00,3.273524e+00,3.380405e+00,3.485116e+00,3.588094e+00,
1223     3.689814e+00,3.790775e+00,3.891483e+00,3.    1222     3.689814e+00,3.790775e+00,3.891483e+00,3.992439e+00,4.094131e+00,4.197019e+00,4.301527e+00,
1224     4.408024e+00,4.516815e+00,4.628125e+00,4.    1223     4.408024e+00,4.516815e+00,4.628125e+00,4.742085e+00,4.858732e+00,4.978006e+00,5.099759e+00,
1225     5.223773e+00,5.349792e+00,5.477539e+00,5.    1224     5.223773e+00,5.349792e+00,5.477539e+00,5.606756e+00,5.737222e+00,5.868772e+00,6.001315e+00,
1226     6.134829e+00,6.269367e+00,6.405046e+00,6.    1225     6.134829e+00,6.269367e+00,6.405046e+00,6.542037e+00,6.680554e+00,6.820840e+00,6.963154e+00,
1227     7.107768e+00,7.254950e+00,7.404963e+00,7.    1226     7.107768e+00,7.254950e+00,7.404963e+00,7.558058e+00,7.714470e+00,7.874417e+00,8.038099e+00,
1228     8.205696e+00,8.377371e+00,8.553273e+00,8.    1227     8.205696e+00,8.377371e+00,8.553273e+00,8.733533e+00,8.918273e+00,9.107605e+00,9.301632e+00,
1229     9.500452e+00,9.704160e+00,9.912848e+00,1.    1228     9.500452e+00,9.704160e+00,9.912848e+00,1.012661e+01,1.034554e+01,1.056973e+01,1.079929e+01,
1230     1.103432e+01,1.127492e+01,1.152121e+01,1.    1229     1.103432e+01,1.127492e+01,1.152121e+01,1.177333e+01,1.203138e+01,1.229551e+01,1.256585e+01,
1231     1.284257e+01,1.312581e+01,1.341573e+01,1.    1230     1.284257e+01,1.312581e+01,1.341573e+01,1.371252e+01,1.401634e+01,1.432738e+01,1.464584e+01,
1232     1.497192e+01,1.530584e+01,1.564780e+01,1.    1231     1.497192e+01,1.530584e+01,1.564780e+01,1.599804e+01,1.635679e+01,1.672429e+01,1.710079e+01,
1233     1.748656e+01,1.788187e+01,1.828699e+01,1.    1232     1.748656e+01,1.788187e+01,1.828699e+01,1.870221e+01,1.912783e+01,1.956415e+01,2.001149e+01,
1234     2.047018e+01,2.094055e+01,2.142296e+01,2.    1233     2.047018e+01,2.094055e+01,2.142296e+01,2.191775e+01,2.242530e+01,2.294600e+01,2.348023e+01,
1235     2.402840e+01,2.459093e+01,2.516825e+01,2.    1234     2.402840e+01,2.459093e+01,2.516825e+01,2.576081e+01,2.636905e+01,2.699347e+01,2.763453e+01,
1236     2.829276e+01,2.896865e+01,2.966276e+01,3.    1235     2.829276e+01,2.896865e+01,2.966276e+01,3.037563e+01,3.110782e+01,3.185993e+01,3.263256e+01,
1237     3.342632e+01,3.424188e+01,3.507988e+01,3.    1236     3.342632e+01,3.424188e+01,3.507988e+01,3.594100e+01,3.682597e+01,3.773550e+01,3.867034e+01,
1238     3.963126e+01,4.061907e+01,4.163459e+01,4.    1237     3.963126e+01,4.061907e+01,4.163459e+01,4.267867e+01,4.375217e+01,4.485602e+01,4.599113e+01,
1239     4.715847e+01,4.835904e+01,4.959386e+01,5.    1238     4.715847e+01,4.835904e+01,4.959386e+01,5.086399e+01,5.217051e+01,5.351455e+01,5.489727e+01,
1240     5.631988e+01,5.778360e+01,5.928972e+01,6.    1239     5.631988e+01,5.778360e+01,5.928972e+01,6.083956e+01,6.243446e+01,6.407585e+01,6.576516e+01,
1241     6.750389e+01,6.929358e+01,7.113583e+01,7.    1240     6.750389e+01,6.929358e+01,7.113583e+01,7.303229e+01,7.498465e+01,7.699466e+01,7.906413e+01,
1242     8.119494e+01,8.338901e+01,8.564834e+01,8.    1241     8.119494e+01,8.338901e+01,8.564834e+01,8.797497e+01,9.037104e+01,9.283874e+01,9.538033e+01,
1243     9.799814e+01,1.006946e+02,1.034722e+02,1.    1242     9.799814e+01,1.006946e+02,1.034722e+02,1.063335e+02,1.092812e+02,1.123179e+02,1.154467e+02,
1244     1.186703e+02,1.219918e+02,1.254143e+02,1.    1243     1.186703e+02,1.219918e+02,1.254143e+02,1.289411e+02,1.325755e+02,1.363208e+02,1.401808e+02};
1245 static const G4double P27[nE]={                  1244 static const G4double P27[nE]={
1246     0.000000e+00,0.000000e+00,0.000000e+00,0.    1245     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1247     0.000000e+00,0.000000e+00,0.000000e+00,0.    1246     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1248     0.000000e+00,0.000000e+00,0.000000e+00,0.    1247     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1249     0.000000e+00,0.000000e+00,0.000000e+00,0.    1248     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1250     0.000000e+00,0.000000e+00,0.000000e+00,0.    1249     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1251     0.000000e+00,0.000000e+00,0.000000e+00,0.    1250     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1252     0.000000e+00,0.000000e+00,0.000000e+00,0.    1251     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1253     0.000000e+00,0.000000e+00,0.000000e+00,0.    1252     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1254     0.000000e+00,0.000000e+00,0.000000e+00,0.    1253     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1255     0.000000e+00,0.000000e+00,0.000000e+00,0.    1254     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,1.345993e-03,1.812154e-02,
1256     4.026430e-02,7.035354e-02,1.115368e-01,1.    1255     4.026430e-02,7.035354e-02,1.115368e-01,1.703760e-01,2.538581e-01,3.782461e-01,5.589961e-01,
1257     8.253354e-01,1.198038e+00,1.694231e+00,2.    1256     8.253354e-01,1.198038e+00,1.694231e+00,2.291935e+00,2.955705e+00,3.637254e+00,4.300026e+00,
1258     4.929838e+00,5.521904e+00,6.078501e+00,6.    1257     4.929838e+00,5.521904e+00,6.078501e+00,6.604750e+00,7.106030e+00,7.587357e+00,8.053179e+00,
1259     8.507290e+00,8.952817e+00,9.392248e+00,9.    1258     8.507290e+00,8.952817e+00,9.392248e+00,9.827489e+00,1.025995e+01,1.069061e+01,1.112015e+01,
1260     1.154897e+01,1.197730e+01,1.240524e+01,1.    1259     1.154897e+01,1.197730e+01,1.240524e+01,1.283285e+01,1.326014e+01,1.368706e+01,1.411358e+01,
1261     1.453973e+01,1.496547e+01,1.539087e+01,1.    1260     1.453973e+01,1.496547e+01,1.539087e+01,1.581597e+01,1.624088e+01,1.666572e+01,1.709063e+01,
1262     1.751579e+01,1.794142e+01,1.836777e+01,1.    1261     1.751579e+01,1.794142e+01,1.836777e+01,1.879512e+01,1.922377e+01,1.965407e+01,2.008642e+01,
1263     2.052125e+01,2.095904e+01,2.140031e+01,2.    1262     2.052125e+01,2.095904e+01,2.140031e+01,2.184566e+01,2.229574e+01,2.275125e+01,2.321300e+01,
1264     2.368188e+01,2.415886e+01,2.464505e+01,2.    1263     2.368188e+01,2.415886e+01,2.464505e+01,2.514170e+01,2.565021e+01,2.616939e+01,2.669677e+01,
1265     2.724263e+01,2.780976e+01,2.840169e+01,2.    1264     2.724263e+01,2.780976e+01,2.840169e+01,2.902295e+01,2.967960e+01,3.037978e+01,3.113466e+01,
1266     3.195970e+01,3.287602e+01,3.391207e+01,3.    1265     3.195970e+01,3.287602e+01,3.391207e+01,3.510515e+01,3.650240e+01,3.816072e+01,4.014549e+01,
1267     4.252816e+01,4.538374e+01,4.878905e+01,5.    1266     4.252816e+01,4.538374e+01,4.878905e+01,5.282265e+01,5.756664e+01,6.310963e+01,6.955058e+01,
1268     7.700256e+01,8.559606e+01,9.548163e+01,1.    1267     7.700256e+01,8.559606e+01,9.548163e+01,1.068314e+02,1.198391e+02,1.347180e+02,1.516961e+02,
1269     1.710065e+02,1.928734e+02,2.174931e+02,2.    1268     1.710065e+02,1.928734e+02,2.174931e+02,2.450103e+02,2.754950e+02,3.089205e+02,3.451524e+02,
1270     3.839498e+02,4.249834e+02,4.678667e+02,5.    1269     3.839498e+02,4.249834e+02,4.678667e+02,5.121950e+02,5.575832e+02,6.036977e+02,6.502788e+02,
1271     6.971481e+02,7.442078e+02,7.914355e+02,8.    1270     6.971481e+02,7.442078e+02,7.914355e+02,8.388753e+02,8.866283e+02,9.348447e+02,9.837162e+02,
1272     1.033470e+03,1.084366e+03,1.136689e+03,1.    1271     1.033470e+03,1.084366e+03,1.136689e+03,1.190749e+03,1.246871e+03,1.305393e+03,1.366657e+03,
1273     1.430999e+03,1.498741e+03,1.570174e+03,1.    1272     1.430999e+03,1.498741e+03,1.570174e+03,1.645547e+03,1.725059e+03,1.808851e+03,1.897003e+03,
1274     1.989542e+03,2.086454e+03,2.187703e+03,2.    1273     1.989542e+03,2.086454e+03,2.187703e+03,2.293252e+03,2.403083e+03,2.517218e+03,2.635733e+03,
1275     2.758773e+03,2.886552e+03,3.019360e+03,3.    1274     2.758773e+03,2.886552e+03,3.019360e+03,3.157558e+03,3.301573e+03,3.451893e+03,3.609055e+03,
1276     3.773646e+03,3.946289e+03,4.127639e+03,4.    1275     3.773646e+03,3.946289e+03,4.127639e+03,4.318381e+03,4.519221e+03,4.730887e+03,4.954126e+03,
1277     5.189702e+03,5.438396e+03,5.701012e+03,5.    1276     5.189702e+03,5.438396e+03,5.701012e+03,5.978373e+03,6.271328e+03,6.580753e+03,6.907557e+03,
1278     7.252683e+03,7.617117e+03,8.001887e+03,8.    1277     7.252683e+03,7.617117e+03,8.001887e+03,8.408074e+03,8.836812e+03,9.289295e+03,9.766784e+03,
1279     1.027061e+04,1.080218e+04,1.136297e+04,1.    1278     1.027061e+04,1.080218e+04,1.136297e+04,1.195458e+04,1.257866e+04,1.323698e+04,1.393143e+04,
1280     1.466398e+04,1.543675e+04,1.625197e+04,1.    1279     1.466398e+04,1.543675e+04,1.625197e+04,1.711202e+04,1.801940e+04,1.897679e+04,1.998700e+04,
1281     2.105305e+04,2.217810e+04,2.336552e+04,2.    1280     2.105305e+04,2.217810e+04,2.336552e+04,2.461890e+04,2.594203e+04,2.733891e+04,2.881382e+04,
1282     3.037128e+04,3.201606e+04,3.375326e+04,3.    1281     3.037128e+04,3.201606e+04,3.375326e+04,3.558825e+04,3.752676e+04,3.957482e+04,4.173887e+04,
1283     4.402572e+04,4.644258e+04,4.899711e+04,5.    1282     4.402572e+04,4.644258e+04,4.899711e+04,5.169743e+04,5.455215e+04,5.757040e+04,6.076187e+04,
1284     6.413682e+04,6.770616e+04,7.148143e+04,7.    1283     6.413682e+04,6.770616e+04,7.148143e+04,7.547490e+04,7.969957e+04,8.416924e+04,8.889853e+04,
1285     9.390298e+04,9.919906e+04,1.048042e+05,1.    1284     9.390298e+04,9.919906e+04,1.048042e+05,1.107370e+05,1.170172e+05,1.236655e+05,1.307042e+05,
1286     1.381568e+05,1.460482e+05,1.544049e+05,1.    1285     1.381568e+05,1.460482e+05,1.544049e+05,1.632551e+05,1.726285e+05,1.825569e+05,1.930738e+05,
1287     2.042150e+05,2.160183e+05,2.285240e+05,2.    1286     2.042150e+05,2.160183e+05,2.285240e+05,2.417748e+05,2.558161e+05,2.706959e+05,2.864654e+05,
1288     3.031790e+05,3.208942e+05,3.396723e+05,3.    1287     3.031790e+05,3.208942e+05,3.396723e+05,3.595783e+05,3.806813e+05,4.030546e+05,4.267761e+05,
1289     4.519286e+05,4.786000e+05,5.068836e+05,5.    1288     4.519286e+05,4.786000e+05,5.068836e+05,5.368787e+05,5.686906e+05,6.024313e+05,6.382197e+05,
1290     6.761823e+05,7.164532e+05,7.591751e+05,8.    1289     6.761823e+05,7.164532e+05,7.591751e+05,8.044997e+05,8.525881e+05,9.036114e+05,9.577516e+05,
1291     1.015202e+06,1.076168e+06,1.140869e+06,1.    1290     1.015202e+06,1.076168e+06,1.140869e+06,1.209535e+06,1.282415e+06,1.359770e+06,1.441879e+06,
1292     1.529038e+06,1.621562e+06,1.719787e+06,1.    1291     1.529038e+06,1.621562e+06,1.719787e+06,1.824068e+06,1.934784e+06,2.052338e+06,2.177156e+06,
1293     2.309695e+06,2.450437e+06,2.599897e+06,2.    1292     2.309695e+06,2.450437e+06,2.599897e+06,2.758623e+06,2.927195e+06,3.106232e+06,3.296392e+06};
1294 static const G4double P08[nE]={                  1293 static const G4double P08[nE]={
1295     0.000000e+00,0.000000e+00,0.000000e+00,0.    1294     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1296     0.000000e+00,0.000000e+00,0.000000e+00,0.    1295     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1297     0.000000e+00,0.000000e+00,0.000000e+00,0.    1296     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1298     0.000000e+00,0.000000e+00,0.000000e+00,0.    1297     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1299     0.000000e+00,0.000000e+00,0.000000e+00,0.    1298     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1300     0.000000e+00,0.000000e+00,0.000000e+00,0.    1299     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1301     0.000000e+00,0.000000e+00,0.000000e+00,0.    1300     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1302     0.000000e+00,0.000000e+00,0.000000e+00,0.    1301     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1303     0.000000e+00,0.000000e+00,0.000000e+00,5.    1302     0.000000e+00,0.000000e+00,0.000000e+00,5.850394e-06,3.813802e-05,7.678856e-05,1.235890e-04,
1304     1.811834e-04,2.505496e-04,3.370214e-04,4.    1303     1.811834e-04,2.505496e-04,3.370214e-04,4.423119e-04,5.737849e-04,7.362470e-04,9.394324e-04,
1305     1.193306e-03,1.512903e-03,1.914433e-03,2.    1304     1.193306e-03,1.512903e-03,1.914433e-03,2.424835e-03,3.067238e-03,3.887084e-03,4.914388e-03,
1306     6.198077e-03,7.742119e-03,9.530727e-03,1.    1305     6.198077e-03,7.742119e-03,9.530727e-03,1.145750e-02,1.342370e-02,1.532690e-02,1.710499e-02,
1307     1.873750e-02,2.022106e-02,2.156321e-02,2.    1306     1.873750e-02,2.022106e-02,2.156321e-02,2.277662e-02,2.387485e-02,2.487089e-02,2.577662e-02,
1308     2.660257e-02,2.735786e-02,2.805033e-02,2.    1307     2.660257e-02,2.735786e-02,2.805033e-02,2.868661e-02,2.927238e-02,2.981248e-02,3.031106e-02,
1309     3.077178e-02,3.119783e-02,3.159205e-02,3.    1308     3.077178e-02,3.119783e-02,3.159205e-02,3.195707e-02,3.229527e-02,3.260875e-02,3.289948e-02,
1310     3.316932e-02,3.341990e-02,3.365279e-02,3.    1309     3.316932e-02,3.341990e-02,3.365279e-02,3.386940e-02,3.407105e-02,3.425896e-02,3.443423e-02,
1311     3.459791e-02,3.475094e-02,3.489419e-02,3.    1310     3.459791e-02,3.475094e-02,3.489419e-02,3.502849e-02,3.515456e-02,3.527311e-02,3.538476e-02,
1312     3.549011e-02,3.558968e-02,3.568400e-02,3.    1311     3.549011e-02,3.558968e-02,3.568400e-02,3.577351e-02,3.585865e-02,3.593982e-02,3.601738e-02,
1313     3.609170e-02,3.616308e-02,3.623182e-02,3.    1312     3.609170e-02,3.616308e-02,3.623182e-02,3.629822e-02,3.636254e-02,3.642405e-02,3.648154e-02,
1314     3.653815e-02,3.659408e-02,3.664961e-02,3.    1313     3.653815e-02,3.659408e-02,3.664961e-02,3.670503e-02,3.676072e-02,3.681714e-02,3.687490e-02,
1315     3.693479e-02,3.699783e-02,3.706528e-02,3.    1314     3.693479e-02,3.699783e-02,3.706528e-02,3.713867e-02,3.721973e-02,3.731032e-02,3.741226e-02,
1316     3.752719e-02,3.765644e-02,3.780102e-02,3.    1315     3.752719e-02,3.765644e-02,3.780102e-02,3.796161e-02,3.813871e-02,3.833276e-02,3.854422e-02,
1317     3.877367e-02,3.902186e-02,3.928968e-02,3.    1316     3.877367e-02,3.902186e-02,3.928968e-02,3.957815e-02,3.988836e-02,4.022139e-02,4.057812e-02,
1318     4.095916e-02,4.136456e-02,4.179369e-02,4.    1317     4.095916e-02,4.136456e-02,4.179369e-02,4.224495e-02,4.271572e-02,4.320224e-02,4.369977e-02,
1319     4.420281e-02,4.470553e-02,4.520218e-02,4.    1318     4.420281e-02,4.470553e-02,4.520218e-02,4.568761e-02,4.615755e-02,4.660887e-02,4.703959e-02,
1320     4.744879e-02,4.783646e-02,4.820329e-02,4.    1319     4.744879e-02,4.783646e-02,4.820329e-02,4.855044e-02,4.887942e-02,4.919191e-02,4.948968e-02,
1321     4.977449e-02,5.004805e-02,5.031198e-02,5.    1320     4.977449e-02,5.004805e-02,5.031198e-02,5.056777e-02,5.081677e-02,5.106018e-02,5.129904e-02,
1322     5.153419e-02,5.176632e-02,5.199590e-02,5.    1321     5.153419e-02,5.176632e-02,5.199590e-02,5.222324e-02,5.244845e-02,5.267151e-02,5.289225e-02,
1323     5.311040e-02,5.332567e-02,5.353771e-02,5.    1322     5.311040e-02,5.332567e-02,5.353771e-02,5.374625e-02,5.395103e-02,5.415190e-02,5.434879e-02,
1324     5.454172e-02,5.473078e-02,5.491615e-02,5.    1323     5.454172e-02,5.473078e-02,5.491615e-02,5.509804e-02,5.527672e-02,5.545245e-02,5.562552e-02,
1325     5.579619e-02,5.596472e-02,5.613134e-02,5.    1324     5.579619e-02,5.596472e-02,5.613134e-02,5.629624e-02,5.645961e-02,5.662158e-02,5.678228e-02,
1326     5.694179e-02,5.710018e-02,5.725750e-02,5.    1325     5.694179e-02,5.710018e-02,5.725750e-02,5.741379e-02,5.756906e-02,5.772332e-02,5.787658e-02,
1327     5.802884e-02,5.818008e-02,5.833029e-02,5.    1326     5.802884e-02,5.818008e-02,5.833029e-02,5.847948e-02,5.862764e-02,5.877475e-02,5.892081e-02,
1328     5.906581e-02,5.920977e-02,5.935267e-02,5.    1327     5.906581e-02,5.920977e-02,5.935267e-02,5.949453e-02,5.963535e-02,5.977514e-02,5.991390e-02,
1329     6.005165e-02,6.018840e-02,6.032417e-02,6.    1328     6.005165e-02,6.018840e-02,6.032417e-02,6.045897e-02,6.059282e-02,6.072574e-02,6.085774e-02,
1330     6.098884e-02,6.111906e-02,6.124841e-02,6.    1329     6.098884e-02,6.111906e-02,6.124841e-02,6.137693e-02,6.150463e-02,6.163152e-02,6.175763e-02,
1331     6.188297e-02,6.200757e-02,6.213144e-02,6.    1330     6.188297e-02,6.200757e-02,6.213144e-02,6.225460e-02,6.237706e-02,6.249886e-02,6.261999e-02,
1332     6.274049e-02,6.286037e-02,6.297964e-02,6.    1331     6.274049e-02,6.286037e-02,6.297964e-02,6.309831e-02,6.321642e-02,6.333396e-02,6.345096e-02,
1333     6.356743e-02,6.368338e-02,6.379883e-02,6.    1332     6.356743e-02,6.368338e-02,6.379883e-02,6.391380e-02,6.402828e-02,6.414231e-02,6.425588e-02,
1334     6.436902e-02,6.448173e-02,6.459402e-02,6.    1333     6.436902e-02,6.448173e-02,6.459402e-02,6.470592e-02,6.481742e-02,6.492854e-02,6.503929e-02,
1335     6.514969e-02,6.525973e-02,6.536943e-02,6.    1334     6.514969e-02,6.525973e-02,6.536943e-02,6.547880e-02,6.558786e-02,6.569660e-02,6.580504e-02,
1336     6.591318e-02,6.602104e-02,6.612863e-02,6.    1335     6.591318e-02,6.602104e-02,6.612863e-02,6.623595e-02,6.634300e-02,6.644981e-02,6.655637e-02,
1337     6.666270e-02,6.676880e-02,6.687467e-02,6.    1336     6.666270e-02,6.676880e-02,6.687467e-02,6.698034e-02,6.708579e-02,6.719105e-02,6.729611e-02,
1338     6.740099e-02,6.750569e-02,6.761022e-02,6.    1337     6.740099e-02,6.750569e-02,6.761022e-02,6.771458e-02,6.781878e-02,6.792283e-02,6.802673e-02,
1339     6.813049e-02,6.823412e-02,6.833761e-02,6.    1338     6.813049e-02,6.823412e-02,6.833761e-02,6.844098e-02,6.854423e-02,6.864738e-02,6.875041e-02,
1340     6.885334e-02,6.895618e-02,6.905893e-02,6.    1339     6.885334e-02,6.895618e-02,6.905893e-02,6.916159e-02,6.926418e-02,6.936669e-02,6.946912e-02,
1341     6.957150e-02,6.967381e-02,6.977607e-02,6.    1340     6.957150e-02,6.967381e-02,6.977607e-02,6.987829e-02,6.998045e-02,7.008258e-02,7.018467e-02,
1342     7.028673e-02,7.038876e-02,7.049077e-02,7.    1341     7.028673e-02,7.038876e-02,7.049077e-02,7.059277e-02,7.069475e-02,7.079672e-02,7.089869e-02};
1343 static const G4double P18[nE]={                  1342 static const G4double P18[nE]={
1344     0.000000e+00,0.000000e+00,0.000000e+00,0.    1343     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1345     0.000000e+00,0.000000e+00,0.000000e+00,0.    1344     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1346     0.000000e+00,0.000000e+00,0.000000e+00,0.    1345     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1347     0.000000e+00,0.000000e+00,0.000000e+00,0.    1346     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1348     0.000000e+00,0.000000e+00,0.000000e+00,0.    1347     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1349     0.000000e+00,0.000000e+00,0.000000e+00,0.    1348     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1350     0.000000e+00,0.000000e+00,0.000000e+00,0.    1349     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1351     0.000000e+00,0.000000e+00,0.000000e+00,0.    1350     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1352     0.000000e+00,0.000000e+00,0.000000e+00,6.    1351     0.000000e+00,0.000000e+00,0.000000e+00,6.824362e-05,4.522706e-04,9.266015e-04,1.519331e-03,
1353     2.271897e-03,3.207104e-03,4.409961e-03,5.    1352     2.271897e-03,3.207104e-03,4.409961e-03,5.920914e-03,7.867568e-03,1.034890e-02,1.355071e-02,
1354     1.767709e-02,2.303624e-02,2.998068e-02,3.    1353     1.767709e-02,2.303624e-02,2.998068e-02,3.908692e-02,5.090796e-02,6.646885e-02,8.657934e-02,
1355     1.124957e-01,1.446424e-01,1.830426e-01,2.    1354     1.124957e-01,1.446424e-01,1.830426e-01,2.256984e-01,2.705794e-01,3.153773e-01,3.585357e-01,
1356     3.993962e-01,4.376870e-01,4.734083e-01,5.    1355     3.993962e-01,4.376870e-01,4.734083e-01,5.067098e-01,5.377891e-01,5.668544e-01,5.941073e-01,
1357     6.197329e-01,6.438952e-01,6.667360e-01,6.    1356     6.197329e-01,6.438952e-01,6.667360e-01,6.883758e-01,7.089162e-01,7.284426e-01,7.470277e-01,
1358     7.647338e-01,7.816149e-01,7.977194e-01,8.    1357     7.647338e-01,7.816149e-01,7.977194e-01,8.130925e-01,8.277769e-01,8.418093e-01,8.552264e-01,
1359     8.680643e-01,8.803545e-01,8.921305e-01,9.    1358     8.680643e-01,8.803545e-01,8.921305e-01,9.034214e-01,9.142574e-01,9.246668e-01,9.346759e-01,
1360     9.443113e-01,9.535980e-01,9.625599e-01,9.    1359     9.443113e-01,9.535980e-01,9.625599e-01,9.712203e-01,9.796014e-01,9.877249e-01,9.956119e-01,
1361     1.003283e+00,1.010757e+00,1.018054e+00,1.    1360     1.003283e+00,1.010757e+00,1.018054e+00,1.025193e+00,1.032192e+00,1.039071e+00,1.045846e+00,
1362     1.052537e+00,1.059162e+00,1.065739e+00,1.    1361     1.052537e+00,1.059162e+00,1.065739e+00,1.072287e+00,1.078824e+00,1.085267e+00,1.091476e+00,
1363     1.097776e+00,1.104194e+00,1.110761e+00,1.    1362     1.097776e+00,1.104194e+00,1.110761e+00,1.117517e+00,1.124514e+00,1.131820e+00,1.139531e+00,
1364     1.147772e+00,1.156712e+00,1.166573e+00,1.    1363     1.147772e+00,1.156712e+00,1.166573e+00,1.177631e+00,1.190221e+00,1.204723e+00,1.221543e+00,
1365     1.241088e+00,1.263744e+00,1.289862e+00,1.    1364     1.241088e+00,1.263744e+00,1.289862e+00,1.319764e+00,1.353751e+00,1.392131e+00,1.435238e+00,
1366     1.483446e+00,1.537190e+00,1.596963e+00,1.    1365     1.483446e+00,1.537190e+00,1.596963e+00,1.663320e+00,1.736867e+00,1.818241e+00,1.908081e+00,
1367     2.006982e+00,2.115434e+00,2.233748e+00,2.    1366     2.006982e+00,2.115434e+00,2.233748e+00,2.361978e+00,2.499847e+00,2.646693e+00,2.801459e+00,
1368     2.962731e+00,3.128831e+00,3.297953e+00,3.    1367     2.962731e+00,3.128831e+00,3.297953e+00,3.468314e+00,3.638292e+00,3.806530e+00,3.972005e+00,
1369     4.134030e+00,4.292233e+00,4.446513e+00,4.    1368     4.134030e+00,4.292233e+00,4.446513e+00,4.596991e+00,4.743962e+00,4.887846e+00,5.029151e+00,
1370     5.168447e+00,5.306340e+00,5.443454e+00,5.    1369     5.168447e+00,5.306340e+00,5.443454e+00,5.580411e+00,5.717819e+00,5.856258e+00,5.996267e+00,
1371     6.138329e+00,6.282856e+00,6.430177e+00,6.    1370     6.138329e+00,6.282856e+00,6.430177e+00,6.580525e+00,6.734031e+00,6.890722e+00,7.050529e+00,
1372     7.213302e+00,7.378833e+00,7.546883e+00,7.    1371     7.213302e+00,7.378833e+00,7.546883e+00,7.717208e+00,7.889591e+00,8.063859e+00,8.239901e+00,
1373     8.417680e+00,8.597232e+00,8.778664e+00,8.    1372     8.417680e+00,8.597232e+00,8.778664e+00,8.962146e+00,9.147902e+00,9.336191e+00,9.527301e+00,
1374     9.721535e+00,9.919203e+00,1.012061e+01,1.    1373     9.721535e+00,9.919203e+00,1.012061e+01,1.032605e+01,1.053580e+01,1.075013e+01,1.096928e+01,
1375     1.119347e+01,1.142290e+01,1.165776e+01,1.    1374     1.119347e+01,1.142290e+01,1.165776e+01,1.189822e+01,1.214442e+01,1.239652e+01,1.265463e+01,
1376     1.291891e+01,1.318945e+01,1.346640e+01,1.    1375     1.291891e+01,1.318945e+01,1.346640e+01,1.374986e+01,1.403997e+01,1.433686e+01,1.464064e+01,
1377     1.495148e+01,1.526949e+01,1.559485e+01,1.    1376     1.495148e+01,1.526949e+01,1.559485e+01,1.592771e+01,1.626825e+01,1.661662e+01,1.697304e+01,
1378     1.733768e+01,1.771076e+01,1.809249e+01,1.    1377     1.733768e+01,1.771076e+01,1.809249e+01,1.848310e+01,1.888282e+01,1.929190e+01,1.971059e+01,
1379     2.013915e+01,2.057787e+01,2.102702e+01,2.    1378     2.013915e+01,2.057787e+01,2.102702e+01,2.148690e+01,2.195783e+01,2.244012e+01,2.293409e+01,
1380     2.344009e+01,2.395847e+01,2.448959e+01,2.    1379     2.344009e+01,2.395847e+01,2.448959e+01,2.503383e+01,2.559158e+01,2.616323e+01,2.674919e+01,
1381     2.734990e+01,2.796580e+01,2.859733e+01,2.    1380     2.734990e+01,2.796580e+01,2.859733e+01,2.924496e+01,2.990918e+01,3.059048e+01,3.128937e+01,
1382     3.200638e+01,3.274207e+01,3.349698e+01,3.    1381     3.200638e+01,3.274207e+01,3.349698e+01,3.427170e+01,3.506682e+01,3.588297e+01,3.672077e+01,
1383     3.758087e+01,3.846397e+01,3.937074e+01,4.    1382     3.758087e+01,3.846397e+01,3.937074e+01,4.030190e+01,4.125820e+01,4.224040e+01,4.324928e+01,
1384     4.428566e+01,4.535037e+01,4.644426e+01,4.    1383     4.428566e+01,4.535037e+01,4.644426e+01,4.756824e+01,4.872322e+01,4.991015e+01,5.112999e+01,
1385     5.238376e+01,5.367249e+01,5.499726e+01,5.    1384     5.238376e+01,5.367249e+01,5.499726e+01,5.635916e+01,5.775935e+01,5.919898e+01,6.067929e+01,
1386     6.220151e+01,6.376694e+01,6.537690e+01,6.    1385     6.220151e+01,6.376694e+01,6.537690e+01,6.703278e+01,6.873600e+01,7.048801e+01,7.229032e+01,
1387     7.414450e+01,7.605215e+01,7.801493e+01,8.    1386     7.414450e+01,7.605215e+01,7.801493e+01,8.003455e+01,8.211279e+01,8.425146e+01,8.645245e+01,
1388     8.871771e+01,9.104924e+01,9.344911e+01,9.    1387     8.871771e+01,9.104924e+01,9.344911e+01,9.591946e+01,9.846249e+01,1.010805e+02,1.037758e+02,
1389     1.065509e+02,1.094082e+02,1.123504e+02,1.    1388     1.065509e+02,1.094082e+02,1.123504e+02,1.153801e+02,1.185000e+02,1.217131e+02,1.250223e+02,
1390     1.284306e+02,1.319411e+02,1.355571e+02,1.    1389     1.284306e+02,1.319411e+02,1.355571e+02,1.392819e+02,1.431190e+02,1.470720e+02,1.511445e+02,
1391     1.553403e+02,1.596635e+02,1.641179e+02,1.    1390     1.553403e+02,1.596635e+02,1.641179e+02,1.687079e+02,1.734378e+02,1.783119e+02,1.833351e+02};
1392 static const G4double P28[nE]={                  1391 static const G4double P28[nE]={
1393     0.000000e+00,0.000000e+00,0.000000e+00,0.    1392     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1394     0.000000e+00,0.000000e+00,0.000000e+00,0.    1393     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1395     0.000000e+00,0.000000e+00,0.000000e+00,0.    1394     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1396     0.000000e+00,0.000000e+00,0.000000e+00,0.    1395     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1397     0.000000e+00,0.000000e+00,0.000000e+00,0.    1396     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1398     0.000000e+00,0.000000e+00,0.000000e+00,0.    1397     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1399     0.000000e+00,0.000000e+00,0.000000e+00,0.    1398     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1400     0.000000e+00,0.000000e+00,0.000000e+00,0.    1399     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1401     0.000000e+00,0.000000e+00,0.000000e+00,7.    1400     0.000000e+00,0.000000e+00,0.000000e+00,7.960502e-04,5.364017e-03,1.118562e-02,1.869316e-02,
1402     2.852749e-02,4.113714e-02,5.787072e-02,7.    1401     2.852749e-02,4.113714e-02,5.787072e-02,7.955515e-02,1.083806e-01,1.462818e-01,1.967401e-01,
1403     2.638146e-01,3.536865e-01,4.737998e-01,6.    1402     2.638146e-01,3.536865e-01,4.737998e-01,6.362798e-01,8.538194e-01,1.149192e+00,1.542907e+00,
1404     2.066174e+00,2.735516e+00,3.560003e+00,4.    1403     2.066174e+00,2.735516e+00,3.560003e+00,4.504415e+00,5.528958e+00,6.583511e+00,7.631145e+00,
1405     8.653933e+00,9.642298e+00,1.059309e+01,1.    1404     8.653933e+00,9.642298e+00,1.059309e+01,1.150711e+01,1.238671e+01,1.323493e+01,1.405501e+01,
1406     1.485012e+01,1.562315e+01,1.637661e+01,1.    1405     1.485012e+01,1.562315e+01,1.637661e+01,1.711263e+01,1.783294e+01,1.853896e+01,1.923178e+01,
1407     1.991230e+01,2.058123e+01,2.123916e+01,2.    1406     1.991230e+01,2.058123e+01,2.123916e+01,2.188666e+01,2.252430e+01,2.315250e+01,2.377173e+01,
1408     2.438256e+01,2.498540e+01,2.558088e+01,2.    1407     2.438256e+01,2.498540e+01,2.558088e+01,2.616948e+01,2.675181e+01,2.732849e+01,2.790012e+01,
1409     2.846739e+01,2.903101e+01,2.959170e+01,3.    1408     2.846739e+01,2.903101e+01,2.959170e+01,3.015023e+01,3.070742e+01,3.126414e+01,3.182130e+01,
1410     3.237989e+01,3.294094e+01,3.350557e+01,3.    1409     3.237989e+01,3.294094e+01,3.350557e+01,3.407498e+01,3.465046e+01,3.523340e+01,3.582530e+01,
1411     3.642781e+01,3.704271e+01,3.767193e+01,3.    1410     3.642781e+01,3.704271e+01,3.767193e+01,3.831763e+01,3.898218e+01,3.965715e+01,4.032768e+01,
1412     4.102906e+01,4.176548e+01,4.254216e+01,4.    1411     4.102906e+01,4.176548e+01,4.254216e+01,4.336573e+01,4.424489e+01,4.519125e+01,4.622060e+01,
1413     4.735458e+01,4.862267e+01,5.006425e+01,5.    1412     4.735458e+01,4.862267e+01,5.006425e+01,5.173064e+01,5.368618e+01,5.600789e+01,5.878339e+01,
1414     6.210756e+01,6.607900e+01,7.079781e+01,7.    1413     6.210756e+01,6.607900e+01,7.079781e+01,7.636571e+01,8.288853e+01,9.048030e+01,9.926829e+01,
1415     1.093979e+02,1.210367e+02,1.343782e+02,1.    1414     1.093979e+02,1.210367e+02,1.343782e+02,1.496435e+02,1.670814e+02,1.869668e+02,2.095939e+02,
1416     2.352665e+02,2.642811e+02,2.969039e+02,3.    1415     2.352665e+02,2.642811e+02,2.969039e+02,3.333440e+02,3.737232e+02,4.180489e+02,4.661957e+02,
1417     5.179023e+02,5.727873e+02,6.303818e+02,6.    1416     5.179023e+02,5.727873e+02,6.303818e+02,6.901743e+02,7.516590e+02,8.143781e+02,8.779563e+02,
1418     9.421156e+02,1.006680e+03,1.071573e+03,1.    1417     9.421156e+02,1.006680e+03,1.071573e+03,1.136805e+03,1.202469e+03,1.268723e+03,1.335784e+03,
1419     1.403917e+03,1.473430e+03,1.544668e+03,1.    1418     1.403917e+03,1.473430e+03,1.544668e+03,1.618005e+03,1.693837e+03,1.772579e+03,1.854654e+03,
1420     1.940482e+03,2.030475e+03,2.125017e+03,2.    1419     1.940482e+03,2.030475e+03,2.125017e+03,2.224456e+03,2.329092e+03,2.439170e+03,2.554874e+03,
1421     2.676334e+03,2.803633e+03,2.936826e+03,3.    1420     2.676334e+03,2.803633e+03,2.936826e+03,3.075954e+03,3.221074e+03,3.372272e+03,3.529685e+03,
1422     3.693517e+03,3.864050e+03,4.041643e+03,4.    1421     3.693517e+03,3.864050e+03,4.041643e+03,4.226743e+03,4.419872e+03,4.621628e+03,4.832678e+03,
1423     5.053744e+03,5.285606e+03,5.529085e+03,5.    1422     5.053744e+03,5.285606e+03,5.529085e+03,5.785043e+03,6.054376e+03,6.338009e+03,6.636897e+03,
1424     6.952019e+03,7.284382e+03,7.635021e+03,8.    1423     6.952019e+03,7.284382e+03,7.635021e+03,8.005001e+03,8.395420e+03,8.807417e+03,9.242171e+03,
1425     9.700911e+03,1.018492e+04,1.069554e+04,1.    1424     9.700911e+03,1.018492e+04,1.069554e+04,1.123417e+04,1.180231e+04,1.240150e+04,1.303339e+04,
1426     1.369971e+04,1.440231e+04,1.514313e+04,1.    1425     1.369971e+04,1.440231e+04,1.514313e+04,1.592423e+04,1.674777e+04,1.761608e+04,1.853161e+04,
1427     1.949694e+04,2.051483e+04,2.158819e+04,2.    1426     1.949694e+04,2.051483e+04,2.158819e+04,2.272013e+04,2.391392e+04,2.517305e+04,2.650119e+04,
1428     2.790227e+04,2.938043e+04,3.094006e+04,3.    1427     2.790227e+04,2.938043e+04,3.094006e+04,3.258584e+04,3.432269e+04,3.615588e+04,3.809095e+04,
1429     4.013379e+04,4.229066e+04,4.456817e+04,4.    1428     4.013379e+04,4.229066e+04,4.456817e+04,4.697334e+04,4.951363e+04,5.219692e+04,5.503158e+04,
1430     5.802649e+04,6.119106e+04,6.453527e+04,6.    1429     5.802649e+04,6.119106e+04,6.453527e+04,6.806970e+04,7.180556e+04,7.575476e+04,7.992991e+04,
1431     8.434440e+04,8.901242e+04,9.394902e+04,9.    1430     8.434440e+04,8.901242e+04,9.394902e+04,9.917018e+04,1.046928e+05,1.105349e+05,1.167156e+05,
1432     1.232549e+05,1.301745e+05,1.374970e+05,1.    1431     1.232549e+05,1.301745e+05,1.374970e+05,1.452466e+05,1.534490e+05,1.621312e+05,1.713222e+05,
1433     1.810526e+05,1.913548e+05,2.022635e+05,2.    1432     1.810526e+05,1.913548e+05,2.022635e+05,2.138150e+05,2.260484e+05,2.390048e+05,2.527280e+05,
1434     2.672645e+05,2.826635e+05,2.989775e+05,3.    1433     2.672645e+05,2.826635e+05,2.989775e+05,3.162621e+05,3.345761e+05,3.539825e+05,3.745475e+05,
1435     3.963420e+05,4.194409e+05,4.439240e+05,4.    1434     3.963420e+05,4.194409e+05,4.439240e+05,4.698758e+05,4.973862e+05,5.265506e+05,5.574705e+05,
1436     5.902534e+05,6.250137e+05,6.618730e+05,7.    1435     5.902534e+05,6.250137e+05,6.618730e+05,7.009603e+05,7.424127e+05,7.863758e+05,8.330043e+05,
1437     8.824628e+05,9.349258e+05,9.905789e+05,1.    1436     8.824628e+05,9.349258e+05,9.905789e+05,1.049619e+06,1.112257e+06,1.178714e+06,1.249227e+06,
1438     1.324048e+06,1.403444e+06,1.487699e+06,1.    1437     1.324048e+06,1.403444e+06,1.487699e+06,1.577115e+06,1.672012e+06,1.772733e+06,1.879639e+06,
1439     1.993117e+06,2.113574e+06,2.241448e+06,2.    1438     1.993117e+06,2.113574e+06,2.241448e+06,2.377201e+06,2.521325e+06,2.674344e+06,2.836814e+06,
1440     3.009326e+06,3.192510e+06,3.387034e+06,3.    1439     3.009326e+06,3.192510e+06,3.387034e+06,3.593610e+06,3.812994e+06,4.045989e+06,4.293452e+06};
1441 static const G4double P09[nE]={                  1440 static const G4double P09[nE]={
1442     0.000000e+00,0.000000e+00,0.000000e+00,0.    1441     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1443     0.000000e+00,0.000000e+00,0.000000e+00,0.    1442     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1444     0.000000e+00,0.000000e+00,0.000000e+00,0.    1443     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1445     0.000000e+00,0.000000e+00,0.000000e+00,0.    1444     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1446     0.000000e+00,0.000000e+00,0.000000e+00,0.    1445     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1447     0.000000e+00,0.000000e+00,0.000000e+00,0.    1446     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1448     0.000000e+00,0.000000e+00,0.000000e+00,0.    1447     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,7.515803e-06,1.731827e-05,
1449     2.874685e-05,4.278170e-05,6.015953e-05,8.    1448     2.874685e-05,4.278170e-05,6.015953e-05,8.098262e-05,1.059240e-04,1.374744e-04,1.760954e-04,
1450     2.225746e-04,2.816669e-04,3.547278e-04,4.    1449     2.225746e-04,2.816669e-04,3.547278e-04,4.438203e-04,5.576081e-04,6.979665e-04,8.731555e-04,
1451     1.095439e-03,1.369207e-03,1.718647e-03,2.    1450     1.095439e-03,1.369207e-03,1.718647e-03,2.151439e-03,2.698367e-03,3.379582e-03,4.229614e-03,
1452     5.283815e-03,6.581892e-03,8.166275e-03,1.    1451     5.283815e-03,6.581892e-03,8.166275e-03,1.007243e-02,1.232577e-02,1.488678e-02,1.770487e-02,
1453     2.061095e-02,2.348657e-02,2.621326e-02,2.    1452     2.061095e-02,2.348657e-02,2.621326e-02,2.873192e-02,3.102728e-02,3.310043e-02,3.496870e-02,
1454     3.665237e-02,3.817043e-02,3.954315e-02,4.    1453     3.665237e-02,3.817043e-02,3.954315e-02,4.078897e-02,4.192379e-02,4.296125e-02,4.391292e-02,
1455     4.478859e-02,4.559645e-02,4.634342e-02,4.    1454     4.478859e-02,4.559645e-02,4.634342e-02,4.703529e-02,4.767699e-02,4.827277e-02,4.882633e-02,
1456     4.934096e-02,4.981961e-02,5.026497e-02,5.    1455     4.934096e-02,4.981961e-02,5.026497e-02,5.067957e-02,5.106575e-02,5.142564e-02,5.176126e-02,
1457     5.207454e-02,5.236721e-02,5.264095e-02,5.    1456     5.207454e-02,5.236721e-02,5.264095e-02,5.289729e-02,5.313769e-02,5.336347e-02,5.357588e-02,
1458     5.377608e-02,5.396514e-02,5.414407e-02,5.    1457     5.377608e-02,5.396514e-02,5.414407e-02,5.431378e-02,5.447513e-02,5.462891e-02,5.477585e-02,
1459     5.491664e-02,5.505189e-02,5.518220e-02,5.    1458     5.491664e-02,5.505189e-02,5.518220e-02,5.530808e-02,5.543004e-02,5.554853e-02,5.566397e-02,
1460     5.577674e-02,5.588719e-02,5.599565e-02,5.    1459     5.577674e-02,5.588719e-02,5.599565e-02,5.610241e-02,5.620776e-02,5.631089e-02,5.641045e-02,
1461     5.650990e-02,5.660948e-02,5.670951e-02,5.    1460     5.650990e-02,5.660948e-02,5.670951e-02,5.681040e-02,5.691268e-02,5.701709e-02,5.712461e-02,
1462     5.723655e-02,5.735463e-02,5.748102e-02,5.    1461     5.723655e-02,5.735463e-02,5.748102e-02,5.761830e-02,5.776937e-02,5.793723e-02,5.812477e-02,
1463     5.833443e-02,5.856813e-02,5.882715e-02,5.    1462     5.833443e-02,5.856813e-02,5.882715e-02,5.911232e-02,5.942417e-02,5.976317e-02,6.012990e-02,
1464     6.052514e-02,6.094997e-02,6.140573e-02,6.    1463     6.052514e-02,6.094997e-02,6.140573e-02,6.189398e-02,6.241639e-02,6.297464e-02,6.357021e-02,
1465     6.420419e-02,6.487694e-02,6.558787e-02,6.    1464     6.420419e-02,6.487694e-02,6.558787e-02,6.633509e-02,6.711523e-02,6.792326e-02,6.875260e-02,
1466     6.959533e-02,7.044270e-02,7.128573e-02,7.    1465     6.959533e-02,7.044270e-02,7.128573e-02,7.211586e-02,7.292555e-02,7.370873e-02,7.446102e-02,
1467     7.517973e-02,7.586367e-02,7.651297e-02,7.    1466     7.517973e-02,7.586367e-02,7.651297e-02,7.712872e-02,7.771273e-02,7.826729e-02,7.879494e-02,
1468     7.929835e-02,7.978018e-02,8.024301e-02,8.    1467     7.929835e-02,7.978018e-02,8.024301e-02,8.068929e-02,8.112124e-02,8.154090e-02,8.195006e-02,
1469     8.235029e-02,8.274289e-02,8.312891e-02,8.    1468     8.235029e-02,8.274289e-02,8.312891e-02,8.350916e-02,8.388422e-02,8.425443e-02,8.461996e-02,
1470     8.498082e-02,8.533691e-02,8.568805e-02,8.    1469     8.498082e-02,8.533691e-02,8.568805e-02,8.603405e-02,8.637472e-02,8.670993e-02,8.703958e-02,
1471     8.736369e-02,8.768234e-02,8.799567e-02,8.    1470     8.736369e-02,8.768234e-02,8.799567e-02,8.830390e-02,8.860731e-02,8.890618e-02,8.920084e-02,
1472     8.949159e-02,8.977874e-02,9.006257e-02,9.    1471     8.949159e-02,8.977874e-02,9.006257e-02,9.034333e-02,9.062125e-02,9.089651e-02,9.116928e-02,
1473     9.143968e-02,9.170781e-02,9.197375e-02,9.    1472     9.143968e-02,9.170781e-02,9.197375e-02,9.223754e-02,9.249923e-02,9.275884e-02,9.301639e-02,
1474     9.327188e-02,9.352532e-02,9.377671e-02,9.    1473     9.327188e-02,9.352532e-02,9.377671e-02,9.402605e-02,9.427335e-02,9.451861e-02,9.476185e-02,
1475     9.500306e-02,9.524227e-02,9.547949e-02,9.    1474     9.500306e-02,9.524227e-02,9.547949e-02,9.571474e-02,9.594804e-02,9.617943e-02,9.640892e-02,
1476     9.663655e-02,9.686235e-02,9.708636e-02,9.    1475     9.663655e-02,9.686235e-02,9.708636e-02,9.730860e-02,9.752912e-02,9.774795e-02,9.796512e-02,
1477     9.818069e-02,9.839467e-02,9.860712e-02,9.    1476     9.818069e-02,9.839467e-02,9.860712e-02,9.881806e-02,9.902755e-02,9.923560e-02,9.944226e-02,
1478     9.964757e-02,9.985156e-02,1.000543e-01,1.    1477     9.964757e-02,9.985156e-02,1.000543e-01,1.002557e-01,1.004560e-01,1.006550e-01,1.008529e-01,
1479     1.010497e-01,1.012454e-01,1.014400e-01,1.    1478     1.010497e-01,1.012454e-01,1.014400e-01,1.016336e-01,1.018262e-01,1.020178e-01,1.022085e-01,
1480     1.023982e-01,1.025870e-01,1.027750e-01,1.    1479     1.023982e-01,1.025870e-01,1.027750e-01,1.029621e-01,1.031484e-01,1.033339e-01,1.035186e-01,
1481     1.037025e-01,1.038858e-01,1.040682e-01,1.    1480     1.037025e-01,1.038858e-01,1.040682e-01,1.042500e-01,1.044311e-01,1.046116e-01,1.047914e-01,
1482     1.049706e-01,1.051492e-01,1.053272e-01,1.    1481     1.049706e-01,1.051492e-01,1.053272e-01,1.055046e-01,1.056815e-01,1.058578e-01,1.060337e-01,
1483     1.062090e-01,1.063838e-01,1.065581e-01,1.    1482     1.062090e-01,1.063838e-01,1.065581e-01,1.067320e-01,1.069054e-01,1.070784e-01,1.072510e-01,
1484     1.074231e-01,1.075949e-01,1.077663e-01,1.    1483     1.074231e-01,1.075949e-01,1.077663e-01,1.079373e-01,1.081079e-01,1.082783e-01,1.084482e-01,
1485     1.086179e-01,1.087872e-01,1.089563e-01,1.    1484     1.086179e-01,1.087872e-01,1.089563e-01,1.091250e-01,1.092935e-01,1.094617e-01,1.096296e-01,
1486     1.097973e-01,1.099648e-01,1.101320e-01,1.    1485     1.097973e-01,1.099648e-01,1.101320e-01,1.102990e-01,1.104659e-01,1.106325e-01,1.107989e-01,
1487     1.109651e-01,1.111312e-01,1.112971e-01,1.    1486     1.109651e-01,1.111312e-01,1.112971e-01,1.114629e-01,1.116285e-01,1.117940e-01,1.119593e-01,
1488     1.121246e-01,1.122897e-01,1.124547e-01,1.    1487     1.121246e-01,1.122897e-01,1.124547e-01,1.126197e-01,1.127845e-01,1.129493e-01,1.131140e-01,
1489     1.132786e-01,1.134432e-01,1.136078e-01,1.    1488     1.132786e-01,1.134432e-01,1.136078e-01,1.137723e-01,1.139367e-01,1.141012e-01,1.142656e-01};
1490 static const G4double P19[nE]={                  1489 static const G4double P19[nE]={
1491     0.000000e+00,0.000000e+00,0.000000e+00,0.    1490     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1492     0.000000e+00,0.000000e+00,0.000000e+00,0.    1491     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1493     0.000000e+00,0.000000e+00,0.000000e+00,0.    1492     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1494     0.000000e+00,0.000000e+00,0.000000e+00,0.    1493     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1495     0.000000e+00,0.000000e+00,0.000000e+00,0.    1494     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1496     0.000000e+00,0.000000e+00,0.000000e+00,0.    1495     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1497     0.000000e+00,0.000000e+00,0.000000e+00,0.    1496     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,5.927935e-05,1.389914e-04,
1498     2.349414e-04,3.566209e-04,5.121431e-04,7.    1497     2.349414e-04,3.566209e-04,5.121431e-04,7.045053e-04,9.423805e-04,1.252973e-03,1.645359e-03,
1499     2.132778e-03,2.772367e-03,3.588379e-03,4.    1498     2.132778e-03,2.772367e-03,3.588379e-03,4.615362e-03,5.968874e-03,7.691507e-03,9.910494e-03,
1500     1.281519e-02,1.650640e-02,2.136751e-02,2.    1499     1.281519e-02,1.650640e-02,2.136751e-02,2.757845e-02,3.567673e-02,4.608131e-02,5.947584e-02,
1501     7.661025e-02,9.837506e-02,1.257751e-01,1.    1500     7.661025e-02,9.837506e-02,1.257751e-01,1.597774e-01,2.012338e-01,2.498273e-01,3.049689e-01,
1502     3.636123e-01,4.234494e-01,4.819630e-01,5.    1501     3.636123e-01,4.234494e-01,4.819630e-01,5.377010e-01,5.900857e-01,6.388778e-01,6.842212e-01,
1503     7.263609e-01,7.655421e-01,8.020772e-01,8.    1502     7.263609e-01,7.655421e-01,8.020772e-01,8.362684e-01,8.683839e-01,8.986585e-01,9.272944e-01,
1504     9.544631e-01,9.803078e-01,1.004947e+00,1.    1503     9.544631e-01,9.803078e-01,1.004947e+00,1.028478e+00,1.050980e+00,1.072520e+00,1.093154e+00,
1505     1.112933e+00,1.131898e+00,1.150092e+00,1.    1504     1.112933e+00,1.131898e+00,1.150092e+00,1.167553e+00,1.184321e+00,1.200431e+00,1.215920e+00,
1506     1.230825e+00,1.245180e+00,1.259022e+00,1.    1505     1.230825e+00,1.245180e+00,1.259022e+00,1.272384e+00,1.285302e+00,1.297810e+00,1.309940e+00,
1507     1.321726e+00,1.333200e+00,1.344393e+00,1.    1506     1.321726e+00,1.333200e+00,1.344393e+00,1.355338e+00,1.366064e+00,1.376603e+00,1.386983e+00,
1508     1.397235e+00,1.407387e+00,1.417470e+00,1.    1507     1.397235e+00,1.407387e+00,1.417470e+00,1.427510e+00,1.437537e+00,1.447579e+00,1.457663e+00,
1509     1.467817e+00,1.478068e+00,1.488444e+00,1.    1508     1.467817e+00,1.478068e+00,1.488444e+00,1.498973e+00,1.509682e+00,1.520485e+00,1.531238e+00,
1510     1.542307e+00,1.553733e+00,1.565564e+00,1.    1509     1.542307e+00,1.553733e+00,1.565564e+00,1.577862e+00,1.590714e+00,1.604236e+00,1.618589e+00,
1511     1.633991e+00,1.650739e+00,1.669215e+00,1.    1510     1.633991e+00,1.650739e+00,1.669215e+00,1.689901e+00,1.713363e+00,1.740235e+00,1.771177e+00,
1512     1.806833e+00,1.847794e+00,1.894587e+00,1.    1511     1.806833e+00,1.847794e+00,1.894587e+00,1.947683e+00,2.007527e+00,2.074576e+00,2.149333e+00,
1513     2.232374e+00,2.324368e+00,2.426086e+00,2.    1512     2.232374e+00,2.324368e+00,2.426086e+00,2.538395e+00,2.662248e+00,2.798655e+00,2.948644e+00,
1514     3.113195e+00,3.293165e+00,3.489174e+00,3.    1513     3.113195e+00,3.293165e+00,3.489174e+00,3.701503e+00,3.929974e+00,4.173863e+00,4.431848e+00,
1515     4.702026e+00,4.982009e+00,5.269084e+00,5.    1514     4.702026e+00,4.982009e+00,5.269084e+00,5.560423e+00,5.853292e+00,6.145244e+00,6.434268e+00,
1516     6.718845e+00,6.997954e+00,7.271040e+00,7.    1515     6.718845e+00,6.997954e+00,7.271040e+00,7.537949e+00,7.798855e+00,8.054192e+00,8.304585e+00,
1517     8.550792e+00,8.793666e+00,9.034113e+00,9.    1516     8.550792e+00,8.793666e+00,9.034113e+00,9.273058e+00,9.511420e+00,9.750093e+00,9.989927e+00,
1518     1.023171e+01,1.047615e+01,1.072385e+01,1.    1517     1.023171e+01,1.047615e+01,1.072385e+01,1.097533e+01,1.123096e+01,1.149102e+01,1.175565e+01,
1519     1.202490e+01,1.229872e+01,1.257701e+01,1.    1518     1.202490e+01,1.229872e+01,1.257701e+01,1.285961e+01,1.314639e+01,1.343720e+01,1.373195e+01,
1520     1.403061e+01,1.433323e+01,1.463991e+01,1.    1519     1.403061e+01,1.433323e+01,1.463991e+01,1.495084e+01,1.526627e+01,1.558650e+01,1.591187e+01,
1521     1.624276e+01,1.657956e+01,1.692265e+01,1.    1520     1.624276e+01,1.657956e+01,1.692265e+01,1.727242e+01,1.762926e+01,1.799350e+01,1.836549e+01,
1522     1.874553e+01,1.913392e+01,1.953093e+01,1.    1521     1.874553e+01,1.913392e+01,1.953093e+01,1.993678e+01,2.035173e+01,2.077597e+01,2.120973e+01,
1523     2.165319e+01,2.210656e+01,2.257002e+01,2.    1522     2.165319e+01,2.210656e+01,2.257002e+01,2.304378e+01,2.352804e+01,2.402301e+01,2.452891e+01,
1524     2.504595e+01,2.557440e+01,2.611448e+01,2.    1523     2.504595e+01,2.557440e+01,2.611448e+01,2.666648e+01,2.723067e+01,2.780733e+01,2.839679e+01,
1525     2.899935e+01,2.961537e+01,3.024518e+01,3.    1524     2.899935e+01,2.961537e+01,3.024518e+01,3.088917e+01,3.154771e+01,3.222121e+01,3.291007e+01,
1526     3.361474e+01,3.433567e+01,3.507331e+01,3.    1525     3.361474e+01,3.433567e+01,3.507331e+01,3.582815e+01,3.660069e+01,3.739145e+01,3.820096e+01,
1527     3.902978e+01,3.987847e+01,4.074762e+01,4.    1526     3.902978e+01,3.987847e+01,4.074762e+01,4.163784e+01,4.254976e+01,4.348402e+01,4.444130e+01,
1528     4.542228e+01,4.642768e+01,4.745822e+01,4.    1527     4.542228e+01,4.642768e+01,4.745822e+01,4.851467e+01,4.959779e+01,5.070840e+01,5.184732e+01,
1529     5.301540e+01,5.421353e+01,5.544261e+01,5.    1528     5.301540e+01,5.421353e+01,5.544261e+01,5.670357e+01,5.799738e+01,5.932503e+01,6.068754e+01,
1530     6.208597e+01,6.352141e+01,6.499498e+01,6.    1529     6.208597e+01,6.352141e+01,6.499498e+01,6.650784e+01,6.806117e+01,6.965620e+01,7.129421e+01,
1531     7.297649e+01,7.470440e+01,7.647932e+01,7.    1530     7.297649e+01,7.470440e+01,7.647932e+01,7.830269e+01,8.017598e+01,8.210072e+01,8.407848e+01,
1532     8.611087e+01,8.819958e+01,9.034631e+01,9.    1531     8.611087e+01,8.819958e+01,9.034631e+01,9.255287e+01,9.482106e+01,9.715280e+01,9.955002e+01,
1533     1.020148e+02,1.045491e+02,1.071551e+02,1.    1532     1.020148e+02,1.045491e+02,1.071551e+02,1.098351e+02,1.125913e+02,1.154261e+02,1.183418e+02,
1534     1.213411e+02,1.244265e+02,1.276007e+02,1.    1533     1.213411e+02,1.244265e+02,1.276007e+02,1.308664e+02,1.342265e+02,1.376838e+02,1.412415e+02,
1535     1.449027e+02,1.486706e+02,1.525485e+02,1.    1534     1.449027e+02,1.486706e+02,1.525485e+02,1.565399e+02,1.606483e+02,1.648774e+02,1.692309e+02,
1536     1.737129e+02,1.783272e+02,1.830781e+02,1.    1535     1.737129e+02,1.783272e+02,1.830781e+02,1.879699e+02,1.930070e+02,1.981940e+02,2.035356e+02,
1537     2.090368e+02,2.147025e+02,2.205380e+02,2.    1536     2.090368e+02,2.147025e+02,2.205380e+02,2.265486e+02,2.327400e+02,2.391178e+02,2.456880e+02,
1538     2.524567e+02,2.594302e+02,2.666150e+02,2.    1537     2.524567e+02,2.594302e+02,2.666150e+02,2.740179e+02,2.816459e+02,2.895062e+02,2.976061e+02};
1539 static const G4double P29[nE]={                  1538 static const G4double P29[nE]={
1540     0.000000e+00,0.000000e+00,0.000000e+00,0.    1539     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1541     0.000000e+00,0.000000e+00,0.000000e+00,0.    1540     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1542     0.000000e+00,0.000000e+00,0.000000e+00,0.    1541     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1543     0.000000e+00,0.000000e+00,0.000000e+00,0.    1542     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1544     0.000000e+00,0.000000e+00,0.000000e+00,0.    1543     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1545     0.000000e+00,0.000000e+00,0.000000e+00,0.    1544     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1546     0.000000e+00,0.000000e+00,0.000000e+00,0.    1545     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,4.675863e-04,1.115848e-03,
1547     1.921474e-03,2.976502e-03,4.368459e-03,6.    1546     1.921474e-03,2.976502e-03,4.368459e-03,6.145635e-03,8.414529e-03,1.147236e-02,1.545930e-02,
1548     2.057119e-02,2.749440e-02,3.660912e-02,4.    1547     2.057119e-02,2.749440e-02,3.660912e-02,4.844832e-02,6.454972e-02,8.569351e-02,1.138020e-01,
1549     1.517623e-01,2.015348e-01,2.691639e-01,3.    1548     1.517623e-01,2.015348e-01,2.691639e-01,3.583034e-01,4.782232e-01,6.371509e-01,8.482346e-01,
1550     1.126750e+00,1.491709e+00,1.965598e+00,2.    1549     1.126750e+00,1.491709e+00,1.965598e+00,2.572184e+00,3.334953e+00,4.257053e+00,5.336097e+00,
1551     6.519588e+00,7.764801e+00,9.020575e+00,1.    1550     6.519588e+00,7.764801e+00,9.020575e+00,1.025416e+01,1.144977e+01,1.259820e+01,1.369879e+01,
1552     1.475356e+01,1.576491e+01,1.673737e+01,1.    1551     1.475356e+01,1.576491e+01,1.673737e+01,1.767581e+01,1.858475e+01,1.946828e+01,2.033001e+01,
1553     2.117302e+01,2.199989e+01,2.281269e+01,2.    1552     2.117302e+01,2.199989e+01,2.281269e+01,2.361303e+01,2.440215e+01,2.518099e+01,2.595023e+01,
1554     2.671041e+01,2.746196e+01,2.820524e+01,2.    1553     2.671041e+01,2.746196e+01,2.820524e+01,2.894070e+01,2.966884e+01,3.039005e+01,3.110491e+01,
1555     3.181409e+01,3.251822e+01,3.321818e+01,3.    1554     3.181409e+01,3.251822e+01,3.321818e+01,3.391476e+01,3.460900e+01,3.530194e+01,3.599472e+01,
1556     3.668862e+01,3.738499e+01,3.808532e+01,3.    1555     3.668862e+01,3.738499e+01,3.808532e+01,3.879119e+01,3.950432e+01,4.022655e+01,4.095989e+01,
1557     4.170647e+01,4.246862e+01,4.324879e+01,4.    1556     4.170647e+01,4.246862e+01,4.324879e+01,4.404966e+01,4.487409e+01,4.572515e+01,4.660610e+01,
1558     4.752048e+01,4.847204e+01,4.946482e+01,5.    1557     4.752048e+01,4.847204e+01,4.946482e+01,5.050316e+01,5.159177e+01,5.272361e+01,5.388496e+01,
1559     5.511729e+01,5.642837e+01,5.782761e+01,5.    1558     5.511729e+01,5.642837e+01,5.782761e+01,5.932695e+01,6.094192e+01,6.269331e+01,6.460937e+01,
1560     6.672884e+01,6.910427e+01,7.180553e+01,7.    1559     6.672884e+01,6.910427e+01,7.180553e+01,7.492262e+01,7.856680e+01,8.286884e+01,8.797459e+01,
1561     9.403866e+01,1.012187e+02,1.096725e+02,1.    1560     9.403866e+01,1.012187e+02,1.096725e+02,1.195593e+02,1.310443e+02,1.443066e+02,1.595468e+02,
1562     1.769950e+02,1.969173e+02,2.196207e+02,2.    1561     1.769950e+02,1.969173e+02,2.196207e+02,2.454567e+02,2.748218e+02,3.081551e+02,3.459309e+02,
1563     3.886448e+02,4.367924e+02,4.908381e+02,5.    1562     3.886448e+02,4.367924e+02,4.908381e+02,5.511773e+02,6.180927e+02,6.917113e+02,7.719694e+02,
1564     8.585945e+02,9.511118e+02,1.048877e+03,1.    1563     8.585945e+02,9.511118e+02,1.048877e+03,1.151132e+03,1.257071e+03,1.365912e+03,1.476962e+03,
1565     1.589651e+03,1.703560e+03,1.818425e+03,1.    1564     1.589651e+03,1.703560e+03,1.818425e+03,1.934131e+03,2.050699e+03,2.168274e+03,2.287105e+03,
1566     2.407530e+03,2.529963e+03,2.654887e+03,2.    1565     2.407530e+03,2.529963e+03,2.654887e+03,2.782834e+03,2.914378e+03,3.050129e+03,3.190720e+03,
1567     3.336794e+03,3.488995e+03,3.647955e+03,3.    1566     3.336794e+03,3.488995e+03,3.647955e+03,3.814276e+03,3.988525e+03,4.171219e+03,4.362818e+03,
1568     4.563730e+03,4.774309e+03,4.994874e+03,5.    1567     4.563730e+03,4.774309e+03,4.994874e+03,5.225720e+03,5.467141e+03,5.719453e+03,5.983016e+03,
1569     6.258253e+03,6.545669e+03,6.845863e+03,7.    1568     6.258253e+03,6.545669e+03,6.845863e+03,7.159534e+03,7.487485e+03,7.830622e+03,8.189944e+03,
1570     8.566547e+03,8.961603e+03,9.376365e+03,9.    1569     8.566547e+03,8.961603e+03,9.376365e+03,9.812149e+03,1.027033e+04,1.075235e+04,1.125969e+04,
1571     1.179388e+04,1.235652e+04,1.294923e+04,1.    1570     1.179388e+04,1.235652e+04,1.294923e+04,1.357370e+04,1.423170e+04,1.492505e+04,1.565562e+04,
1572     1.642541e+04,1.723648e+04,1.809099e+04,1.    1571     1.642541e+04,1.723648e+04,1.809099e+04,1.899122e+04,1.993956e+04,2.093854e+04,2.199082e+04,
1573     2.309921e+04,2.426670e+04,2.549643e+04,2.    1572     2.309921e+04,2.426670e+04,2.549643e+04,2.679175e+04,2.815618e+04,2.959348e+04,3.110761e+04,
1574     3.270279e+04,3.438349e+04,3.615442e+04,3.    1573     3.270279e+04,3.438349e+04,3.615442e+04,3.802062e+04,3.998739e+04,4.206039e+04,4.424559e+04,
1575     4.654932e+04,4.897832e+04,5.153970e+04,5.    1574     4.654932e+04,4.897832e+04,5.153970e+04,5.424101e+04,5.709028e+04,6.009598e+04,6.326712e+04,
1576     6.661323e+04,7.014443e+04,7.387144e+04,7.    1575     6.661323e+04,7.014443e+04,7.387144e+04,7.780561e+04,8.195901e+04,8.634439e+04,9.097530e+04,
1577     9.586609e+04,1.010320e+05,1.064891e+05,1.    1576     9.586609e+04,1.010320e+05,1.064891e+05,1.122546e+05,1.183466e+05,1.247843e+05,1.315882e+05,
1578     1.387798e+05,1.463820e+05,1.544194e+05,1.    1577     1.387798e+05,1.463820e+05,1.544194e+05,1.629175e+05,1.719038e+05,1.814074e+05,1.914589e+05,
1579     2.020912e+05,2.133387e+05,2.252383e+05,2.    1578     2.020912e+05,2.133387e+05,2.252383e+05,2.378290e+05,2.511522e+05,2.652516e+05,2.801740e+05,
1580     2.959687e+05,3.126882e+05,3.303881e+05,3.    1579     2.959687e+05,3.126882e+05,3.303881e+05,3.491275e+05,3.689692e+05,3.899795e+05,4.122292e+05,
1581     4.357933e+05,4.607512e+05,4.871874e+05,5.    1580     4.357933e+05,4.607512e+05,4.871874e+05,5.151917e+05,5.448592e+05,5.762909e+05,6.095943e+05,
1582     6.448833e+05,6.822787e+05,7.219092e+05,7.    1581     6.448833e+05,6.822787e+05,7.219092e+05,7.639111e+05,8.084294e+05,8.556178e+05,9.056399e+05,
1583     9.586691e+05,1.014890e+06,1.074498e+06,1.    1582     9.586691e+05,1.014890e+06,1.074498e+06,1.137701e+06,1.204721e+06,1.275792e+06,1.351163e+06,
1584     1.431099e+06,1.515882e+06,1.605811e+06,1.    1583     1.431099e+06,1.515882e+06,1.605811e+06,1.701204e+06,1.802397e+06,1.909751e+06,2.023645e+06,
1585     2.144486e+06,2.272704e+06,2.408756e+06,2.    1584     2.144486e+06,2.272704e+06,2.408756e+06,2.553128e+06,2.706338e+06,2.868935e+06,3.041503e+06,
1586     3.224662e+06,3.419071e+06,3.625434e+06,3.    1585     3.224662e+06,3.419071e+06,3.625434e+06,3.844494e+06,4.077045e+06,4.323928e+06,4.586041e+06,
1587     4.864335e+06,5.159824e+06,5.473583e+06,5.    1586     4.864335e+06,5.159824e+06,5.473583e+06,5.806757e+06,6.160565e+06,6.536300e+06,6.935340e+06};
1588 static const G4double P010[nE]={                 1587 static const G4double P010[nE]={
1589     0.000000e+00,0.000000e+00,0.000000e+00,0.    1588     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1590     0.000000e+00,0.000000e+00,0.000000e+00,0.    1589     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1591     0.000000e+00,0.000000e+00,0.000000e+00,0.    1590     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1592     0.000000e+00,0.000000e+00,0.000000e+00,0.    1591     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1593     0.000000e+00,0.000000e+00,0.000000e+00,0.    1592     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1594     0.000000e+00,0.000000e+00,0.000000e+00,0.    1593     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1595     1.420000e-05,4.701887e-05,8.694089e-05,1.    1594     1.420000e-05,4.701887e-05,8.694089e-05,1.341836e-04,1.940077e-04,2.718261e-04,3.681895e-04,
1596     4.837658e-04,6.323004e-04,8.240919e-04,1.    1595     4.837658e-04,6.323004e-04,8.240919e-04,1.060464e-03,1.350967e-03,1.731360e-03,2.208133e-03,
1597     2.792245e-03,3.550245e-03,4.501045e-03,5.    1596     2.792245e-03,3.550245e-03,4.501045e-03,5.670796e-03,7.167402e-03,9.014729e-03,1.129037e-02,
1598     1.410796e-02,1.749772e-02,2.157807e-02,2.    1597     1.410796e-02,1.749772e-02,2.157807e-02,2.639241e-02,3.199085e-02,3.841369e-02,4.559250e-02,
1599     5.345748e-02,6.167108e-02,6.986856e-02,7.    1598     5.345748e-02,6.167108e-02,6.986856e-02,7.767193e-02,8.480019e-02,9.117305e-02,9.677277e-02,
1600     1.016834e-01,1.059752e-01,1.097284e-01,1.    1599     1.016834e-01,1.059752e-01,1.097284e-01,1.130297e-01,1.159373e-01,1.185096e-01,1.207998e-01,
1601     1.228498e-01,1.246924e-01,1.263587e-01,1.    1600     1.228498e-01,1.246924e-01,1.263587e-01,1.278743e-01,1.292600e-01,1.305329e-01,1.317074e-01,
1602     1.327952e-01,1.338059e-01,1.347478e-01,1.    1601     1.327952e-01,1.338059e-01,1.347478e-01,1.356275e-01,1.364508e-01,1.372227e-01,1.379475e-01,
1603     1.386291e-01,1.392709e-01,1.398763e-01,1.    1602     1.386291e-01,1.392709e-01,1.398763e-01,1.404481e-01,1.409894e-01,1.415026e-01,1.419903e-01,
1604     1.424548e-01,1.428983e-01,1.433229e-01,1.    1603     1.424548e-01,1.428983e-01,1.433229e-01,1.437305e-01,1.441228e-01,1.445015e-01,1.448681e-01,
1605     1.452240e-01,1.455704e-01,1.459086e-01,1.    1604     1.452240e-01,1.455704e-01,1.459086e-01,1.462395e-01,1.465641e-01,1.468832e-01,1.471976e-01,
1606     1.475078e-01,1.478144e-01,1.481178e-01,1.    1605     1.475078e-01,1.478144e-01,1.481178e-01,1.484184e-01,1.487165e-01,1.490123e-01,1.493060e-01,
1607     1.495976e-01,1.498872e-01,1.501749e-01,1.    1606     1.495976e-01,1.498872e-01,1.501749e-01,1.504606e-01,1.507445e-01,1.510251e-01,1.513010e-01,
1608     1.515759e-01,1.518503e-01,1.521247e-01,1.    1607     1.515759e-01,1.518503e-01,1.521247e-01,1.524003e-01,1.526783e-01,1.529609e-01,1.532511e-01,
1609     1.535529e-01,1.538711e-01,1.542117e-01,1.    1608     1.535529e-01,1.538711e-01,1.542117e-01,1.545816e-01,1.549877e-01,1.554367e-01,1.559341e-01,
1610     1.564842e-01,1.570896e-01,1.577520e-01,1.    1609     1.564842e-01,1.570896e-01,1.577520e-01,1.584720e-01,1.592503e-01,1.600875e-01,1.609849e-01,
1611     1.619445e-01,1.629686e-01,1.640604e-01,1.    1610     1.619445e-01,1.629686e-01,1.640604e-01,1.652234e-01,1.664613e-01,1.677779e-01,1.691764e-01,
1612     1.706592e-01,1.722273e-01,1.738801e-01,1.    1611     1.706592e-01,1.722273e-01,1.738801e-01,1.756140e-01,1.774230e-01,1.792977e-01,1.812255e-01,
1613     1.831911e-01,1.851767e-01,1.871639e-01,1.    1612     1.831911e-01,1.851767e-01,1.871639e-01,1.891341e-01,1.910700e-01,1.929567e-01,1.947824e-01,
1614     1.965384e-01,1.982195e-01,1.998234e-01,2.    1613     1.965384e-01,1.982195e-01,1.998234e-01,2.013502e-01,2.028018e-01,2.041820e-01,2.054950e-01,
1615     2.067461e-01,2.079405e-01,2.090837e-01,2.    1614     2.067461e-01,2.079405e-01,2.090837e-01,2.101810e-01,2.112372e-01,2.122572e-01,2.132451e-01,
1616     2.142048e-01,2.151398e-01,2.160530e-01,2.    1615     2.142048e-01,2.151398e-01,2.160530e-01,2.169469e-01,2.178237e-01,2.186851e-01,2.195325e-01,
1617     2.203669e-01,2.211890e-01,2.219995e-01,2.    1616     2.203669e-01,2.211890e-01,2.219995e-01,2.227987e-01,2.235869e-01,2.243642e-01,2.251309e-01,
1618     2.258871e-01,2.266330e-01,2.273689e-01,2.    1617     2.258871e-01,2.266330e-01,2.273689e-01,2.280950e-01,2.288117e-01,2.295194e-01,2.302182e-01,
1619     2.309088e-01,2.315914e-01,2.322663e-01,2.    1618     2.309088e-01,2.315914e-01,2.322663e-01,2.329339e-01,2.335944e-01,2.342481e-01,2.348952e-01,
1620     2.355358e-01,2.361701e-01,2.367983e-01,2.    1619     2.355358e-01,2.361701e-01,2.367983e-01,2.374202e-01,2.380361e-01,2.386460e-01,2.392499e-01,
1621     2.398478e-01,2.404398e-01,2.410260e-01,2.    1620     2.398478e-01,2.404398e-01,2.410260e-01,2.416063e-01,2.421808e-01,2.427496e-01,2.433128e-01,
1622     2.438703e-01,2.444223e-01,2.449688e-01,2.    1621     2.438703e-01,2.444223e-01,2.449688e-01,2.455100e-01,2.460459e-01,2.465767e-01,2.471023e-01,
1623     2.476231e-01,2.481389e-01,2.486500e-01,2.    1622     2.476231e-01,2.481389e-01,2.486500e-01,2.491565e-01,2.496584e-01,2.501560e-01,2.506492e-01,
1624     2.511383e-01,2.516232e-01,2.521042e-01,2.    1623     2.511383e-01,2.516232e-01,2.521042e-01,2.525813e-01,2.530547e-01,2.535244e-01,2.539906e-01,
1625     2.544533e-01,2.549127e-01,2.553688e-01,2.    1624     2.544533e-01,2.549127e-01,2.553688e-01,2.558217e-01,2.562715e-01,2.567184e-01,2.571623e-01,
1626     2.576034e-01,2.580418e-01,2.584775e-01,2.    1625     2.576034e-01,2.580418e-01,2.584775e-01,2.589107e-01,2.593413e-01,2.597694e-01,2.601952e-01,
1627     2.606187e-01,2.610399e-01,2.614590e-01,2.    1626     2.606187e-01,2.610399e-01,2.614590e-01,2.618760e-01,2.622909e-01,2.627038e-01,2.631147e-01,
1628     2.635238e-01,2.639311e-01,2.643365e-01,2.    1627     2.635238e-01,2.639311e-01,2.643365e-01,2.647403e-01,2.651423e-01,2.655427e-01,2.659416e-01,
1629     2.663389e-01,2.667347e-01,2.671291e-01,2.    1628     2.663389e-01,2.667347e-01,2.671291e-01,2.675220e-01,2.679136e-01,2.683038e-01,2.686928e-01,
1630     2.690805e-01,2.694670e-01,2.698523e-01,2.    1629     2.690805e-01,2.694670e-01,2.698523e-01,2.702364e-01,2.706195e-01,2.710015e-01,2.713824e-01,
1631     2.717623e-01,2.721413e-01,2.725193e-01,2.    1630     2.717623e-01,2.721413e-01,2.725193e-01,2.728963e-01,2.732725e-01,2.736479e-01,2.740223e-01,
1632     2.743960e-01,2.747690e-01,2.751411e-01,2.    1631     2.743960e-01,2.747690e-01,2.751411e-01,2.755126e-01,2.758833e-01,2.762534e-01,2.766228e-01,
1633     2.769916e-01,2.773598e-01,2.777275e-01,2.    1632     2.769916e-01,2.773598e-01,2.777275e-01,2.780946e-01,2.784611e-01,2.788272e-01,2.791927e-01,
1634     2.795578e-01,2.799225e-01,2.802868e-01,2.    1633     2.795578e-01,2.799225e-01,2.802868e-01,2.806506e-01,2.810141e-01,2.813772e-01,2.817400e-01,
1635     2.821025e-01,2.824646e-01,2.828265e-01,2.    1634     2.821025e-01,2.824646e-01,2.828265e-01,2.831881e-01,2.835495e-01,2.839107e-01,2.842716e-01,
1636     2.846324e-01,2.849930e-01,2.853535e-01,2.    1635     2.846324e-01,2.849930e-01,2.853535e-01,2.857138e-01,2.860740e-01,2.864341e-01,2.867942e-01};
1637 static const G4double P110[nE]={                 1636 static const G4double P110[nE]={
1638     0.000000e+00,0.000000e+00,0.000000e+00,0.    1637     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1639     0.000000e+00,0.000000e+00,0.000000e+00,0.    1638     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1640     0.000000e+00,0.000000e+00,0.000000e+00,0.    1639     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1641     0.000000e+00,0.000000e+00,0.000000e+00,0.    1640     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1642     0.000000e+00,0.000000e+00,0.000000e+00,0.    1641     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1643     0.000000e+00,0.000000e+00,0.000000e+00,0.    1642     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1644     9.591763e-05,3.231969e-04,6.087125e-04,9.    1643     9.591763e-05,3.231969e-04,6.087125e-04,9.576234e-04,1.414059e-03,2.027041e-03,2.810721e-03,
1645     3.781121e-03,5.069066e-03,6.785649e-03,8.    1644     3.781121e-03,5.069066e-03,6.785649e-03,8.969373e-03,1.174027e-02,1.548527e-02,2.032949e-02,
1646     2.645527e-02,3.465992e-02,4.527966e-02,5.    1645     2.645527e-02,3.465992e-02,4.527966e-02,5.876373e-02,7.656597e-02,9.923844e-02,1.280600e-01,
1647     1.648770e-01,2.105763e-01,2.673302e-01,3.    1646     1.648770e-01,2.105763e-01,2.673302e-01,3.364120e-01,4.192864e-01,5.173684e-01,6.304481e-01,
1648     7.582455e-01,8.958848e-01,1.037582e+00,1.    1647     7.582455e-01,8.958848e-01,1.037582e+00,1.176684e+00,1.307744e+00,1.428590e+00,1.538109e+00,
1649     1.637162e+00,1.726448e+00,1.806975e+00,1.    1648     1.637162e+00,1.726448e+00,1.806975e+00,1.880027e+00,1.946380e+00,2.006917e+00,2.062500e+00,
1650     2.113806e+00,2.161365e+00,2.205714e+00,2.    1649     2.113806e+00,2.161365e+00,2.205714e+00,2.247309e+00,2.286523e+00,2.323671e+00,2.359012e+00,
1651     2.392761e+00,2.425097e+00,2.456165e+00,2.    1650     2.392761e+00,2.425097e+00,2.456165e+00,2.486085e+00,2.514957e+00,2.542866e+00,2.569884e+00,
1652     2.596079e+00,2.621512e+00,2.646242e+00,2.    1651     2.596079e+00,2.621512e+00,2.646242e+00,2.670327e+00,2.693830e+00,2.716805e+00,2.739313e+00,
1653     2.761415e+00,2.783170e+00,2.804641e+00,2.    1652     2.761415e+00,2.783170e+00,2.804641e+00,2.825886e+00,2.846969e+00,2.867949e+00,2.888885e+00,
1654     2.909838e+00,2.930865e+00,2.952023e+00,2.    1653     2.909838e+00,2.930865e+00,2.952023e+00,2.973366e+00,2.994948e+00,3.016818e+00,3.039026e+00,
1655     3.061616e+00,3.084631e+00,3.108110e+00,3.    1654     3.061616e+00,3.084631e+00,3.108110e+00,3.132088e+00,3.156597e+00,3.181666e+00,3.207319e+00,
1656     3.233578e+00,3.260461e+00,3.287985e+00,3.    1655     3.233578e+00,3.260461e+00,3.287985e+00,3.316164e+00,3.345014e+00,3.374420e+00,3.404208e+00,
1657     3.434812e+00,3.466295e+00,3.498755e+00,3.    1656     3.434812e+00,3.466295e+00,3.498755e+00,3.532340e+00,3.567273e+00,3.603879e+00,3.642620e+00,
1658     3.684134e+00,3.729263e+00,3.779065e+00,3.    1657     3.684134e+00,3.729263e+00,3.779065e+00,3.834802e+00,3.897876e+00,3.969744e+00,4.051813e+00,
1659     4.145355e+00,4.251473e+00,4.371124e+00,4.    1658     4.145355e+00,4.251473e+00,4.371124e+00,4.505184e+00,4.654526e+00,4.820112e+00,5.003050e+00,
1660     5.204640e+00,5.426399e+00,5.670065e+00,5.    1659     5.204640e+00,5.426399e+00,5.670065e+00,5.937583e+00,6.231072e+00,6.552772e+00,6.904959e+00,
1661     7.289825e+00,7.709327e+00,8.164993e+00,8.    1660     7.289825e+00,7.709327e+00,8.164993e+00,8.657708e+00,9.187498e+00,9.753341e+00,1.035304e+01,
1662     1.098318e+01,1.163929e+01,1.231599e+01,1.    1661     1.098318e+01,1.163929e+01,1.231599e+01,1.300745e+01,1.370769e+01,1.441103e+01,1.511244e+01,
1663     1.580777e+01,1.649383e+01,1.716840e+01,1.    1662     1.580777e+01,1.649383e+01,1.716840e+01,1.783020e+01,1.847874e+01,1.911420e+01,1.973730e+01,
1664     2.034918e+01,2.095125e+01,2.154514e+01,2.    1663     2.034918e+01,2.095125e+01,2.154514e+01,2.213262e+01,2.271548e+01,2.329555e+01,2.387461e+01,
1665     2.445438e+01,2.503650e+01,2.562246e+01,2.    1664     2.445438e+01,2.503650e+01,2.562246e+01,2.621364e+01,2.681125e+01,2.741634e+01,2.802980e+01,
1666     2.865235e+01,2.928457e+01,2.992690e+01,3.    1665     2.865235e+01,2.928457e+01,2.992690e+01,3.057966e+01,3.124314e+01,3.191753e+01,3.260304e+01,
1667     3.329988e+01,3.400829e+01,3.472857e+01,3.    1666     3.329988e+01,3.400829e+01,3.472857e+01,3.546106e+01,3.620616e+01,3.696434e+01,3.773610e+01,
1668     3.852199e+01,3.932257e+01,4.013841e+01,4.    1667     3.852199e+01,3.932257e+01,4.013841e+01,4.097009e+01,4.181816e+01,4.268318e+01,4.356564e+01,
1669     4.446606e+01,4.538488e+01,4.632254e+01,4.    1668     4.446606e+01,4.538488e+01,4.632254e+01,4.727946e+01,4.825604e+01,4.925267e+01,5.026972e+01,
1670     5.130758e+01,5.236662e+01,5.344725e+01,5.    1669     5.130758e+01,5.236662e+01,5.344725e+01,5.454987e+01,5.567490e+01,5.682280e+01,5.799403e+01,
1671     5.918909e+01,6.040851e+01,6.165285e+01,6.    1670     5.918909e+01,6.040851e+01,6.165285e+01,6.292269e+01,6.421865e+01,6.554139e+01,6.689158e+01,
1672     6.826996e+01,6.967727e+01,7.111431e+01,7.    1671     6.826996e+01,6.967727e+01,7.111431e+01,7.258189e+01,7.408087e+01,7.561215e+01,7.717665e+01,
1673     7.877533e+01,8.040918e+01,8.207925e+01,8.    1672     7.877533e+01,8.040918e+01,8.207925e+01,8.378660e+01,8.553234e+01,8.731762e+01,8.914361e+01,
1674     9.101153e+01,9.292265e+01,9.487827e+01,9.    1673     9.101153e+01,9.292265e+01,9.487827e+01,9.687973e+01,9.892841e+01,1.010257e+02,1.031732e+02,
1675     1.053723e+02,1.076245e+02,1.099316e+02,1.    1674     1.053723e+02,1.076245e+02,1.099316e+02,1.122952e+02,1.147170e+02,1.171987e+02,1.197421e+02,
1676     1.223492e+02,1.250219e+02,1.277621e+02,1.    1675     1.223492e+02,1.250219e+02,1.277621e+02,1.305719e+02,1.334534e+02,1.364088e+02,1.394403e+02,
1677     1.425502e+02,1.457410e+02,1.490151e+02,1.    1676     1.425502e+02,1.457410e+02,1.490151e+02,1.523749e+02,1.558232e+02,1.593625e+02,1.629957e+02,
1678     1.667257e+02,1.705553e+02,1.744876e+02,1.    1677     1.667257e+02,1.705553e+02,1.744876e+02,1.785257e+02,1.826729e+02,1.869325e+02,1.913079e+02,
1679     1.958027e+02,2.004204e+02,2.051650e+02,2.    1678     1.958027e+02,2.004204e+02,2.051650e+02,2.100402e+02,2.150500e+02,2.201987e+02,2.254904e+02,
1680     2.309295e+02,2.365206e+02,2.422684e+02,2.    1679     2.309295e+02,2.365206e+02,2.422684e+02,2.481777e+02,2.542534e+02,2.605007e+02,2.669250e+02,
1681     2.735316e+02,2.803262e+02,2.873146e+02,2.    1680     2.735316e+02,2.803262e+02,2.873146e+02,2.945029e+02,3.018973e+02,3.095041e+02,3.173299e+02,
1682     3.253817e+02,3.336664e+02,3.421912e+02,3.    1681     3.253817e+02,3.336664e+02,3.421912e+02,3.509637e+02,3.599917e+02,3.692831e+02,3.788461e+02,
1683     3.886893e+02,3.988214e+02,4.092516e+02,4.    1682     3.886893e+02,3.988214e+02,4.092516e+02,4.199893e+02,4.310440e+02,4.424257e+02,4.541449e+02,
1684     4.662121e+02,4.786383e+02,4.914349e+02,5.    1683     4.662121e+02,4.786383e+02,4.914349e+02,5.046135e+02,5.181864e+02,5.321660e+02,5.465652e+02,
1685     5.613974e+02,5.766763e+02,5.924161e+02,6.    1684     5.613974e+02,5.766763e+02,5.924161e+02,6.086315e+02,6.253377e+02,6.425504e+02,6.602857e+02};
1686 static const G4double P210[nE]={                 1685 static const G4double P210[nE]={
1687     0.000000e+00,0.000000e+00,0.000000e+00,0.    1686     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1688     0.000000e+00,0.000000e+00,0.000000e+00,0.    1687     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1689     0.000000e+00,0.000000e+00,0.000000e+00,0.    1688     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1690     0.000000e+00,0.000000e+00,0.000000e+00,0.    1689     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1691     0.000000e+00,0.000000e+00,0.000000e+00,0.    1690     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1692     0.000000e+00,0.000000e+00,0.000000e+00,0.    1691     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1693     6.479160e-04,2.222020e-03,4.264157e-03,6.    1692     6.479160e-04,2.222020e-03,4.264157e-03,6.841262e-03,1.032399e-02,1.515291e-02,2.152677e-02,
1694     2.967511e-02,4.084384e-02,5.620899e-02,7.    1693     2.967511e-02,4.084384e-02,5.620899e-02,7.638501e-02,1.028167e-01,1.396897e-01,1.889132e-01,
1695     2.531616e-01,3.419767e-01,4.606012e-01,6.    1694     2.531616e-01,3.419767e-01,4.606012e-01,6.160489e-01,8.278253e-01,1.106110e+00,1.471173e+00,
1696     1.952294e+00,2.568440e+00,3.357900e+00,4.    1695     1.952294e+00,2.568440e+00,3.357900e+00,4.349247e+00,5.576148e+00,7.074057e+00,8.855419e+00,
1697     1.093215e+01,1.323883e+01,1.568832e+01,1.    1696     1.093215e+01,1.323883e+01,1.568832e+01,1.816813e+01,2.057800e+01,2.286974e+01,2.501187e+01,
1698     2.701003e+01,2.886770e+01,3.059561e+01,3.    1697     2.701003e+01,2.886770e+01,3.059561e+01,3.221218e+01,3.372653e+01,3.515134e+01,3.650043e+01,
1699     3.778462e+01,3.901221e+01,4.019267e+01,4.    1698     3.778462e+01,3.901221e+01,4.019267e+01,4.133432e+01,4.244420e+01,4.352833e+01,4.459184e+01,
1700     4.563906e+01,4.667362e+01,4.769852e+01,4.    1699     4.563906e+01,4.667362e+01,4.769852e+01,4.871621e+01,4.972874e+01,5.073786e+01,5.174512e+01,
1701     5.275195e+01,5.375980e+01,5.477015e+01,5.    1700     5.275195e+01,5.375980e+01,5.477015e+01,5.578467e+01,5.680527e+01,5.783387e+01,5.887274e+01,
1702     5.992444e+01,6.099162e+01,6.207742e+01,6.    1701     5.992444e+01,6.099162e+01,6.207742e+01,6.318504e+01,6.431812e+01,6.548052e+01,6.667634e+01,
1703     6.791004e+01,6.918632e+01,7.051016e+01,7.    1702     6.791004e+01,6.918632e+01,7.051016e+01,7.188680e+01,7.332174e+01,7.482073e+01,7.638975e+01,
1704     7.803498e+01,7.976279e+01,8.157970e+01,8.    1703     7.803498e+01,7.976279e+01,8.157970e+01,8.349240e+01,8.550769e+01,8.763244e+01,8.987365e+01,
1705     9.223838e+01,9.473382e+01,9.736730e+01,1.    1704     9.223838e+01,9.473382e+01,9.736730e+01,1.001464e+02,1.030792e+02,1.061603e+02,1.093776e+02,
1706     1.127846e+02,1.163971e+02,1.202362e+02,1.    1705     1.127846e+02,1.163971e+02,1.202362e+02,1.243305e+02,1.287201e+02,1.334613e+02,1.386334e+02,
1707     1.443459e+02,1.507468e+02,1.580279e+02,1.    1706     1.443459e+02,1.507468e+02,1.580279e+02,1.664268e+02,1.762236e+02,1.877291e+02,2.012708e+02,
1708     2.171791e+02,2.357799e+02,2.573961e+02,2.    1707     2.171791e+02,2.357799e+02,2.573961e+02,2.823579e+02,3.110181e+02,3.437701e+02,3.810638e+02,
1709     4.234203e+02,4.714435e+02,5.258289e+02,5.    1708     4.234203e+02,4.714435e+02,5.258289e+02,5.873688e+02,6.569534e+02,7.355652e+02,8.242650e+02,
1710     9.241665e+02,1.036396e+03,1.162036e+03,1.    1709     9.241665e+02,1.036396e+03,1.162036e+03,1.302054e+03,1.457221e+03,1.628023e+03,1.814588e+03,
1711     2.016629e+03,2.233434e+03,2.463894e+03,2.    1710     2.016629e+03,2.233434e+03,2.463894e+03,2.706587e+03,2.959889e+03,3.222102e+03,3.491605e+03,
1712     3.766953e+03,4.046947e+03,4.330688e+03,4.    1711     3.766953e+03,4.046947e+03,4.330688e+03,4.617582e+03,4.907339e+03,5.199952e+03,5.495663e+03,
1713     5.794940e+03,6.098442e+03,6.406997e+03,6.    1712     5.794940e+03,6.098442e+03,6.406997e+03,6.721566e+03,7.043226e+03,7.373149e+03,7.712587e+03,
1714     8.062854e+03,8.425307e+03,8.801331e+03,9.    1713     8.062854e+03,8.425307e+03,8.801331e+03,9.192321e+03,9.599669e+03,1.002475e+04,1.046890e+04,
1715     1.093345e+04,1.141964e+04,1.192874e+04,1.    1714     1.093345e+04,1.141964e+04,1.192874e+04,1.246195e+04,1.302049e+04,1.360562e+04,1.421860e+04,
1716     1.486078e+04,1.553362e+04,1.623867e+04,1.    1715     1.486078e+04,1.553362e+04,1.623867e+04,1.697762e+04,1.775231e+04,1.856473e+04,1.941702e+04,
1717     2.031147e+04,2.125054e+04,2.223681e+04,2.    1716     2.031147e+04,2.125054e+04,2.223681e+04,2.327300e+04,2.436195e+04,2.550666e+04,2.671021e+04,
1718     2.797583e+04,2.930685e+04,3.070674e+04,3.    1717     2.797583e+04,2.930685e+04,3.070674e+04,3.217911e+04,3.372772e+04,3.535650e+04,3.706952e+04,
1719     3.887109e+04,4.076570e+04,4.275810e+04,4.    1718     3.887109e+04,4.076570e+04,4.275810e+04,4.485325e+04,4.705643e+04,4.937318e+04,5.180937e+04,
1720     5.437120e+04,5.706526e+04,5.989850e+04,6.    1719     5.437120e+04,5.706526e+04,5.989850e+04,6.287829e+04,6.601245e+04,6.930926e+04,7.277750e+04,
1721     7.642649e+04,8.026610e+04,8.430679e+04,8.    1720     7.642649e+04,8.026610e+04,8.430679e+04,8.855965e+04,9.303645e+04,9.774966e+04,1.027125e+05,
1722     1.079389e+05,1.134438e+05,1.192429e+05,1.    1721     1.079389e+05,1.134438e+05,1.192429e+05,1.253529e+05,1.317915e+05,1.385774e+05,1.457304e+05,
1723     1.532716e+05,1.612234e+05,1.696092e+05,1.    1722     1.532716e+05,1.612234e+05,1.696092e+05,1.784543e+05,1.877851e+05,1.976298e+05,2.080182e+05,
1724     2.189820e+05,2.305546e+05,2.427716e+05,2.    1723     2.189820e+05,2.305546e+05,2.427716e+05,2.556706e+05,2.692916e+05,2.836769e+05,2.988713e+05,
1725     3.149225e+05,3.318808e+05,3.497998e+05,3.    1724     3.149225e+05,3.318808e+05,3.497998e+05,3.687362e+05,3.887501e+05,4.099053e+05,4.322695e+05,
1726     4.559143e+05,4.809159e+05,5.073551e+05,5.    1725     4.559143e+05,4.809159e+05,5.073551e+05,5.353173e+05,5.648935e+05,5.961799e+05,6.292788e+05,
1727     6.642985e+05,7.013543e+05,7.405681e+05,7.    1726     6.642985e+05,7.013543e+05,7.405681e+05,7.820695e+05,8.259959e+05,8.724933e+05,9.217165e+05,
1728     9.738297e+05,1.029007e+06,1.087434e+06,1.    1727     9.738297e+05,1.029007e+06,1.087434e+06,1.149308e+06,1.214835e+06,1.284239e+06,1.357754e+06,
1729     1.435629e+06,1.518129e+06,1.605537e+06,1.    1728     1.435629e+06,1.518129e+06,1.605537e+06,1.698150e+06,1.796285e+06,1.900280e+06,2.010491e+06,
1730     2.127300e+06,2.251108e+06,2.382345e+06,2.    1729     2.127300e+06,2.251108e+06,2.382345e+06,2.521465e+06,2.668952e+06,2.825320e+06,2.991112e+06,
1731     3.166910e+06,3.353328e+06,3.551019e+06,3.    1730     3.166910e+06,3.353328e+06,3.551019e+06,3.760679e+06,3.983046e+06,4.218903e+06,4.469084e+06,
1732     4.734475e+06,5.016015e+06,5.314705e+06,5.    1731     4.734475e+06,5.016015e+06,5.314705e+06,5.631606e+06,5.967849e+06,6.324634e+06,6.703234e+06,
1733     7.105007e+06,7.531392e+06,7.983922e+06,8.    1732     7.105007e+06,7.531392e+06,7.983922e+06,8.464224e+06,8.974029e+06,9.515176e+06,1.008962e+07,
1734     1.069945e+07,1.134686e+07,1.203421e+07,1.    1733     1.069945e+07,1.134686e+07,1.203421e+07,1.276399e+07,1.353888e+07,1.436168e+07,1.523540e+07};
1735 static const G4double P011[nE]={                 1734 static const G4double P011[nE]={
1736     0.000000e+00,0.000000e+00,0.000000e+00,0.    1735     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1737     0.000000e+00,0.000000e+00,0.000000e+00,0.    1736     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1738     0.000000e+00,0.000000e+00,0.000000e+00,0.    1737     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1739     0.000000e+00,0.000000e+00,0.000000e+00,0.    1738     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1740     0.000000e+00,0.000000e+00,0.000000e+00,0.    1739     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1741     0.000000e+00,0.000000e+00,0.000000e+00,0.    1740     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,8.561707e-05,1.906331e-04,3.154098e-04,
1742     4.819877e-04,6.963055e-04,9.598242e-04,1.    1741     4.819877e-04,6.963055e-04,9.598242e-04,1.274050e-03,1.676401e-03,2.205375e-03,2.864847e-03,
1743     3.659508e-03,4.684845e-03,6.012414e-03,7.    1742     3.659508e-03,4.684845e-03,6.012414e-03,7.651465e-03,9.662871e-03,1.227193e-02,1.552037e-02,
1744     1.946512e-02,2.442244e-02,3.048669e-02,3.    1743     1.946512e-02,2.442244e-02,3.048669e-02,3.773801e-02,4.644389e-02,5.668052e-02,6.855143e-02,
1745     8.219187e-02,9.763501e-02,1.147626e-01,1.    1744     8.219187e-02,9.763501e-02,1.147626e-01,1.335674e-01,1.528473e-01,1.718772e-01,1.898295e-01,
1746     2.058575e-01,2.199478e-01,2.320907e-01,2.    1745     2.058575e-01,2.199478e-01,2.320907e-01,2.425378e-01,2.514765e-01,2.591877e-01,2.658072e-01,
1747     2.715525e-01,2.765412e-01,2.808940e-01,2.    1746     2.715525e-01,2.765412e-01,2.808940e-01,2.847237e-01,2.881029e-01,2.911027e-01,2.937862e-01,
1748     2.962019e-01,2.983884e-01,3.003811e-01,3.    1747     2.962019e-01,2.983884e-01,3.003811e-01,3.022094e-01,3.038971e-01,3.054638e-01,3.069258e-01,
1749     3.082963e-01,3.095866e-01,3.108058e-01,3.    1748     3.082963e-01,3.095866e-01,3.108058e-01,3.119616e-01,3.130607e-01,3.141086e-01,3.151103e-01,
1750     3.160703e-01,3.169924e-01,3.178803e-01,3.    1749     3.160703e-01,3.169924e-01,3.178803e-01,3.187374e-01,3.195668e-01,3.203714e-01,3.211538e-01,
1751     3.219164e-01,3.226615e-01,3.233911e-01,3.    1750     3.219164e-01,3.226615e-01,3.233911e-01,3.241070e-01,3.248106e-01,3.255035e-01,3.261867e-01,
1752     3.268613e-01,3.275281e-01,3.281876e-01,3.    1751     3.268613e-01,3.275281e-01,3.281876e-01,3.288405e-01,3.294869e-01,3.301272e-01,3.307613e-01,
1753     3.313894e-01,3.320112e-01,3.326266e-01,3.    1752     3.313894e-01,3.320112e-01,3.326266e-01,3.332354e-01,3.338373e-01,3.344320e-01,3.350193e-01,
1754     3.355989e-01,3.361705e-01,3.367340e-01,3.    1753     3.355989e-01,3.361705e-01,3.367340e-01,3.372893e-01,3.378364e-01,3.383744e-01,3.389023e-01,
1755     3.394248e-01,3.399435e-01,3.404607e-01,3.    1754     3.394248e-01,3.399435e-01,3.404607e-01,3.409797e-01,3.415051e-01,3.420432e-01,3.426019e-01,
1756     3.431912e-01,3.438227e-01,3.445089e-01,3.    1755     3.431912e-01,3.438227e-01,3.445089e-01,3.452623e-01,3.460940e-01,3.470130e-01,3.480253e-01,
1757     3.491345e-01,3.503420e-01,3.516483e-01,3.    1756     3.491345e-01,3.503420e-01,3.516483e-01,3.530539e-01,3.545595e-01,3.561672e-01,3.578801e-01,
1758     3.597024e-01,3.616397e-01,3.636979e-01,3.    1757     3.597024e-01,3.616397e-01,3.636979e-01,3.658841e-01,3.682050e-01,3.706672e-01,3.732763e-01,
1759     3.760363e-01,3.789488e-01,3.820118e-01,3.    1758     3.760363e-01,3.789488e-01,3.820118e-01,3.852192e-01,3.885601e-01,3.920181e-01,3.955715e-01,
1760     3.991939e-01,4.028554e-01,4.065239e-01,4.    1759     3.991939e-01,4.028554e-01,4.065239e-01,4.101673e-01,4.137552e-01,4.172611e-01,4.206628e-01,
1761     4.239442e-01,4.270940e-01,4.301065e-01,4.    1760     4.239442e-01,4.270940e-01,4.301065e-01,4.329801e-01,4.357169e-01,4.383219e-01,4.408018e-01,
1762     4.431646e-01,4.454194e-01,4.475751e-01,4.    1761     4.431646e-01,4.454194e-01,4.475751e-01,4.496409e-01,4.516255e-01,4.535373e-01,4.553840e-01,
1763     4.571727e-01,4.589098e-01,4.606012e-01,4.    1762     4.571727e-01,4.589098e-01,4.606012e-01,4.622520e-01,4.638665e-01,4.654485e-01,4.670014e-01,
1764     4.685277e-01,4.700296e-01,4.715090e-01,4.    1763     4.685277e-01,4.700296e-01,4.715090e-01,4.729673e-01,4.744057e-01,4.758250e-01,4.772260e-01,
1765     4.786094e-01,4.799758e-01,4.813257e-01,4.    1764     4.786094e-01,4.799758e-01,4.813257e-01,4.826595e-01,4.839778e-01,4.852810e-01,4.865695e-01,
1766     4.878438e-01,4.891042e-01,4.903511e-01,4.    1765     4.878438e-01,4.891042e-01,4.903511e-01,4.915848e-01,4.928055e-01,4.940135e-01,4.952088e-01,
1767     4.963917e-01,4.975623e-01,4.987206e-01,4.    1766     4.963917e-01,4.975623e-01,4.987206e-01,4.998667e-01,5.010006e-01,5.021224e-01,5.032320e-01,
1768     5.043297e-01,5.054154e-01,5.064892e-01,5.    1767     5.043297e-01,5.054154e-01,5.064892e-01,5.075511e-01,5.086014e-01,5.096401e-01,5.106674e-01,
1769     5.116834e-01,5.126883e-01,5.136823e-01,5.    1768     5.116834e-01,5.126883e-01,5.136823e-01,5.146656e-01,5.156384e-01,5.166009e-01,5.175533e-01,
1770     5.184958e-01,5.194287e-01,5.203523e-01,5.    1769     5.184958e-01,5.194287e-01,5.203523e-01,5.212667e-01,5.221722e-01,5.230690e-01,5.239574e-01,
1771     5.248375e-01,5.257097e-01,5.265740e-01,5.    1770     5.248375e-01,5.257097e-01,5.265740e-01,5.274309e-01,5.282804e-01,5.291227e-01,5.299582e-01,
1772     5.307869e-01,5.316092e-01,5.324250e-01,5.    1771     5.307869e-01,5.316092e-01,5.324250e-01,5.332348e-01,5.340385e-01,5.348365e-01,5.356289e-01,
1773     5.364158e-01,5.371974e-01,5.379738e-01,5.    1772     5.364158e-01,5.371974e-01,5.379738e-01,5.387453e-01,5.395119e-01,5.402738e-01,5.410311e-01,
1774     5.417840e-01,5.425326e-01,5.432770e-01,5.    1773     5.417840e-01,5.425326e-01,5.432770e-01,5.440173e-01,5.447537e-01,5.454863e-01,5.462151e-01,
1775     5.469403e-01,5.476620e-01,5.483803e-01,5.    1774     5.469403e-01,5.476620e-01,5.483803e-01,5.490953e-01,5.498071e-01,5.505157e-01,5.512213e-01,
1776     5.519240e-01,5.526238e-01,5.533208e-01,5.    1775     5.519240e-01,5.526238e-01,5.533208e-01,5.540151e-01,5.547068e-01,5.553960e-01,5.560827e-01,
1777     5.567669e-01,5.574489e-01,5.581286e-01,5.    1776     5.567669e-01,5.574489e-01,5.581286e-01,5.588061e-01,5.594815e-01,5.601548e-01,5.608261e-01,
1778     5.614955e-01,5.621630e-01,5.628287e-01,5.    1777     5.614955e-01,5.621630e-01,5.628287e-01,5.634926e-01,5.641548e-01,5.648154e-01,5.654744e-01,
1779     5.661318e-01,5.667877e-01,5.674422e-01,5.    1778     5.661318e-01,5.667877e-01,5.674422e-01,5.680953e-01,5.687470e-01,5.693975e-01,5.700467e-01,
1780     5.706946e-01,5.713415e-01,5.719872e-01,5.    1779     5.706946e-01,5.713415e-01,5.719872e-01,5.726318e-01,5.732754e-01,5.739180e-01,5.745597e-01,
1781     5.752004e-01,5.758403e-01,5.764794e-01,5.    1780     5.752004e-01,5.758403e-01,5.764794e-01,5.771176e-01,5.777552e-01,5.783920e-01,5.790281e-01,
1782     5.796636e-01,5.802985e-01,5.809328e-01,5.    1781     5.796636e-01,5.802985e-01,5.809328e-01,5.815666e-01,5.821998e-01,5.828326e-01,5.834650e-01,
1783     5.840970e-01,5.847286e-01,5.853599e-01,5.    1782     5.840970e-01,5.847286e-01,5.853599e-01,5.859909e-01,5.866216e-01,5.872521e-01,5.878823e-01};
1784 static const G4double P111[nE]={                 1783 static const G4double P111[nE]={
1785     0.000000e+00,0.000000e+00,0.000000e+00,0.    1784     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1786     0.000000e+00,0.000000e+00,0.000000e+00,0.    1785     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1787     0.000000e+00,0.000000e+00,0.000000e+00,0.    1786     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1788     0.000000e+00,0.000000e+00,0.000000e+00,0.    1787     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1789     0.000000e+00,0.000000e+00,0.000000e+00,0.    1788     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1790     0.000000e+00,0.000000e+00,0.000000e+00,0.    1789     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,5.209548e-04,1.180711e-03,1.990663e-03,
1791     3.107743e-03,4.592002e-03,6.476688e-03,8.    1790     3.107743e-03,4.592002e-03,6.476688e-03,8.797445e-03,1.186734e-02,1.603420e-02,2.139747e-02,
1792     2.806967e-02,3.696045e-02,4.884261e-02,6.    1791     2.806967e-02,3.696045e-02,4.884261e-02,6.398504e-02,8.316995e-02,1.088558e-01,1.418609e-01,
1793     1.832285e-01,2.368826e-01,3.046122e-01,3.    1792     1.832285e-01,2.368826e-01,3.046122e-01,3.881885e-01,4.917300e-01,6.173520e-01,7.676664e-01,
1794     9.458741e-01,1.154034e+00,1.392213e+00,1.    1793     9.458741e-01,1.154034e+00,1.392213e+00,1.661998e+00,1.947285e+00,2.237778e+00,2.520414e+00,
1795     2.780710e+00,3.016745e+00,3.226555e+00,3.    1794     2.780710e+00,3.016745e+00,3.226555e+00,3.412755e+00,3.577076e+00,3.723291e+00,3.852749e+00,
1796     3.968634e+00,4.072420e+00,4.165812e+00,4.    1795     3.968634e+00,4.072420e+00,4.165812e+00,4.250554e+00,4.327670e+00,4.398270e+00,4.463397e+00,
1797     4.523860e+00,4.580294e+00,4.633332e+00,4.    1796     4.523860e+00,4.580294e+00,4.633332e+00,4.683510e+00,4.731274e+00,4.776995e+00,4.820987e+00,
1798     4.863513e+00,4.904792e+00,4.945010e+00,4.    1797     4.863513e+00,4.904792e+00,4.945010e+00,4.984323e+00,5.022866e+00,5.060755e+00,5.098099e+00,
1799     5.134994e+00,5.171534e+00,5.207809e+00,5.    1798     5.134994e+00,5.171534e+00,5.207809e+00,5.243910e+00,5.279928e+00,5.315948e+00,5.352059e+00,
1800     5.388348e+00,5.424899e+00,5.461794e+00,5.    1799     5.388348e+00,5.424899e+00,5.461794e+00,5.499112e+00,5.536929e+00,5.575317e+00,5.614339e+00,
1801     5.654057e+00,5.694526e+00,5.735793e+00,5.    1800     5.654057e+00,5.694526e+00,5.735793e+00,5.777899e+00,5.820879e+00,5.864759e+00,5.909560e+00,
1802     5.955296e+00,6.001974e+00,6.049594e+00,6.    1801     5.955296e+00,6.001974e+00,6.049594e+00,6.098153e+00,6.147641e+00,6.198045e+00,6.249350e+00,
1803     6.301538e+00,6.354593e+00,6.408503e+00,6.    1802     6.301538e+00,6.354593e+00,6.408503e+00,6.463261e+00,6.518875e+00,6.575240e+00,6.632248e+00,
1804     6.690414e+00,6.749930e+00,6.811096e+00,6.    1803     6.690414e+00,6.749930e+00,6.811096e+00,6.874363e+00,6.940381e+00,7.010064e+00,7.084648e+00,
1805     7.165738e+00,7.255305e+00,7.355625e+00,7.    1804     7.165738e+00,7.255305e+00,7.355625e+00,7.469147e+00,7.598323e+00,7.745430e+00,7.912453e+00,
1806     8.101065e+00,8.312698e+00,8.548675e+00,8.    1805     8.101065e+00,8.312698e+00,8.548675e+00,8.810356e+00,9.099276e+00,9.417241e+00,9.766397e+00,
1807     1.014926e+01,1.056874e+01,1.102811e+01,1.    1806     1.014926e+01,1.056874e+01,1.102811e+01,1.153097e+01,1.208119e+01,1.268281e+01,1.333988e+01,
1808     1.405626e+01,1.483537e+01,1.567986e+01,1.    1807     1.405626e+01,1.483537e+01,1.567986e+01,1.659126e+01,1.756967e+01,1.861338e+01,1.971876e+01,
1809     2.088013e+01,2.208995e+01,2.333920e+01,2.    1808     2.088013e+01,2.208995e+01,2.333920e+01,2.461789e+01,2.591570e+01,2.722262e+01,2.852960e+01,
1810     2.982889e+01,3.111433e+01,3.238135e+01,3.    1809     2.982889e+01,3.111433e+01,3.238135e+01,3.362699e+01,3.484969e+01,3.604911e+01,3.722590e+01,
1811     3.838153e+01,3.951805e+01,4.063795e+01,4.    1810     3.838153e+01,3.951805e+01,4.063795e+01,4.174401e+01,4.283916e+01,4.392643e+01,4.500884e+01,
1812     4.608939e+01,4.717095e+01,4.825627e+01,4.    1811     4.608939e+01,4.717095e+01,4.825627e+01,4.934793e+01,5.044832e+01,5.155962e+01,5.268381e+01,
1813     5.382263e+01,5.497760e+01,5.615006e+01,5.    1812     5.382263e+01,5.497760e+01,5.615006e+01,5.734118e+01,5.855195e+01,5.978329e+01,6.103600e+01,
1814     6.231082e+01,6.360849e+01,6.492971e+01,6.    1813     6.231082e+01,6.360849e+01,6.492971e+01,6.627522e+01,6.764576e+01,6.904207e+01,7.046495e+01,
1815     7.191516e+01,7.339351e+01,7.490076e+01,7.    1814     7.191516e+01,7.339351e+01,7.490076e+01,7.643768e+01,7.800500e+01,7.960342e+01,8.123360e+01,
1816     8.289618e+01,8.459176e+01,8.632091e+01,8.    1815     8.289618e+01,8.459176e+01,8.632091e+01,8.808419e+01,8.988213e+01,9.171528e+01,9.358418e+01,
1817     9.548939e+01,9.743150e+01,9.941112e+01,1.    1816     9.548939e+01,9.743150e+01,9.941112e+01,1.014289e+02,1.034855e+02,1.055817e+02,1.077184e+02,
1818     1.098962e+02,1.121162e+02,1.143792e+02,1.    1817     1.098962e+02,1.121162e+02,1.143792e+02,1.166864e+02,1.190388e+02,1.214375e+02,1.238837e+02,
1819     1.263787e+02,1.289239e+02,1.315205e+02,1.    1818     1.263787e+02,1.289239e+02,1.315205e+02,1.341702e+02,1.368742e+02,1.396344e+02,1.424522e+02,
1820     1.453293e+02,1.482676e+02,1.512688e+02,1.    1819     1.453293e+02,1.482676e+02,1.512688e+02,1.543349e+02,1.574678e+02,1.606694e+02,1.639419e+02,
1821     1.672875e+02,1.707082e+02,1.742066e+02,1.    1820     1.672875e+02,1.707082e+02,1.742066e+02,1.777848e+02,1.814453e+02,1.851906e+02,1.890234e+02,
1822     1.929462e+02,1.969619e+02,2.010732e+02,2.    1821     1.929462e+02,1.969619e+02,2.010732e+02,2.052830e+02,2.095944e+02,2.140105e+02,2.185344e+02,
1823     2.231694e+02,2.279189e+02,2.327864e+02,2.    1822     2.231694e+02,2.279189e+02,2.327864e+02,2.377754e+02,2.428897e+02,2.481330e+02,2.535094e+02,
1824     2.590228e+02,2.646774e+02,2.704774e+02,2.    1823     2.590228e+02,2.646774e+02,2.704774e+02,2.764274e+02,2.825319e+02,2.887956e+02,2.952232e+02,
1825     3.018199e+02,3.085907e+02,3.155410e+02,3.    1824     3.018199e+02,3.085907e+02,3.155410e+02,3.226763e+02,3.300021e+02,3.375242e+02,3.452488e+02,
1826     3.531820e+02,3.613300e+02,3.696996e+02,3.    1825     3.531820e+02,3.613300e+02,3.696996e+02,3.782975e+02,3.871306e+02,3.962063e+02,4.055319e+02,
1827     4.151151e+02,4.249638e+02,4.350862e+02,4.    1826     4.151151e+02,4.249638e+02,4.350862e+02,4.454907e+02,4.561860e+02,4.671811e+02,4.784852e+02,
1828     4.901079e+02,5.020589e+02,5.143485e+02,5.    1827     4.901079e+02,5.020589e+02,5.143485e+02,5.269872e+02,5.399857e+02,5.533553e+02,5.671075e+02,
1829     5.812541e+02,5.958075e+02,6.107802e+02,6.    1828     5.812541e+02,5.958075e+02,6.107802e+02,6.261855e+02,6.420367e+02,6.583478e+02,6.751333e+02,
1830     6.924079e+02,7.101869e+02,7.284863e+02,7.    1829     6.924079e+02,7.101869e+02,7.284863e+02,7.473223e+02,7.667118e+02,7.866722e+02,8.072215e+02,
1831     8.283782e+02,8.501616e+02,8.725913e+02,8.    1830     8.283782e+02,8.501616e+02,8.725913e+02,8.956879e+02,9.194725e+02,9.439667e+02,9.691932e+02,
1832     9.951752e+02,1.021937e+03,1.049502e+03,1.    1831     9.951752e+02,1.021937e+03,1.049502e+03,1.077898e+03,1.107150e+03,1.137285e+03,1.168332e+03};
1833 static const G4double P211[nE]={                 1832 static const G4double P211[nE]={
1834     0.000000e+00,0.000000e+00,0.000000e+00,0.    1833     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1835     0.000000e+00,0.000000e+00,0.000000e+00,0.    1834     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1836     0.000000e+00,0.000000e+00,0.000000e+00,0.    1835     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1837     0.000000e+00,0.000000e+00,0.000000e+00,0.    1836     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1838     0.000000e+00,0.000000e+00,0.000000e+00,0.    1837     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1839     0.000000e+00,0.000000e+00,0.000000e+00,0.    1838     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,3.170118e-03,7.315363e-03,1.257339e-02,
1840     2.006524e-02,3.034536e-02,4.382582e-02,6.    1839     2.006524e-02,3.034536e-02,4.382582e-02,6.096755e-02,8.439254e-02,1.172188e-01,1.608402e-01,
1841     2.168665e-01,2.939658e-01,4.003237e-01,5.    1840     2.168665e-01,2.939658e-01,4.003237e-01,5.402293e-01,7.232315e-01,9.761260e-01,1.311496e+00,
1842     1.745343e+00,2.326101e+00,3.082613e+00,4.    1841     1.745343e+00,2.326101e+00,3.082613e+00,4.045963e+00,5.277513e+00,6.819248e+00,8.722748e+00,
1843     1.105116e+01,1.385719e+01,1.716964e+01,2.    1842     1.105116e+01,1.385719e+01,1.716964e+01,2.104044e+01,2.526219e+01,2.969696e+01,3.414706e+01,
1844     3.837462e+01,4.232892e+01,4.595438e+01,4.    1843     3.837462e+01,4.232892e+01,4.595438e+01,4.927332e+01,5.229426e+01,5.506693e+01,5.759896e+01,
1845     5.993661e+01,6.209595e+01,6.409989e+01,6.    1844     5.993661e+01,6.209595e+01,6.409989e+01,6.597519e+01,6.773518e+01,6.939684e+01,7.097759e+01,
1846     7.249103e+01,7.394773e+01,7.535948e+01,7.    1845     7.249103e+01,7.394773e+01,7.535948e+01,7.673677e+01,7.808864e+01,7.942302e+01,8.074691e+01,
1847     8.206649e+01,8.338723e+01,8.471403e+01,8.    1846     8.206649e+01,8.338723e+01,8.471403e+01,8.605126e+01,8.740299e+01,8.877308e+01,9.016530e+01,
1848     9.158348e+01,9.303155e+01,9.451368e+01,9.    1847     9.158348e+01,9.303155e+01,9.451368e+01,9.603439e+01,9.759857e+01,9.921130e+01,1.008781e+02,
1849     1.026050e+02,1.043980e+02,1.062640e+02,1.    1848     1.026050e+02,1.043980e+02,1.062640e+02,1.082097e+02,1.102423e+02,1.123692e+02,1.145981e+02,
1850     1.169368e+02,1.193933e+02,1.219754e+02,1.    1849     1.169368e+02,1.193933e+02,1.219754e+02,1.246913e+02,1.275491e+02,1.305566e+02,1.337220e+02,
1851     1.370529e+02,1.405572e+02,1.442423e+02,1.    1850     1.370529e+02,1.405572e+02,1.442423e+02,1.481158e+02,1.521850e+02,1.564570e+02,1.609392e+02,
1852     1.656389e+02,1.705636e+02,1.757217e+02,1.    1851     1.656389e+02,1.705636e+02,1.757217e+02,1.811220e+02,1.867754e+02,1.926811e+02,1.988382e+02,
1853     2.053134e+02,2.121426e+02,2.193769e+02,2.    1852     2.053134e+02,2.121426e+02,2.193769e+02,2.270897e+02,2.353854e+02,2.444109e+02,2.543683e+02,
1854     2.655272e+02,2.782318e+02,2.928987e+02,3.    1853     2.655272e+02,2.782318e+02,2.928987e+02,3.100059e+02,3.300699e+02,3.536201e+02,3.811791e+02,
1855     4.132549e+02,4.503497e+02,4.929799e+02,5.    1854     4.132549e+02,4.503497e+02,4.929799e+02,5.417037e+02,5.971489e+02,6.600395e+02,7.312176e+02,
1856     8.116615e+02,9.025013e+02,1.005029e+03,1.    1855     8.116615e+02,9.025013e+02,1.005029e+03,1.120706e+03,1.251160e+03,1.398173e+03,1.563658e+03,
1857     1.749612e+03,1.958046e+03,2.190894e+03,2.    1856     1.749612e+03,1.958046e+03,2.190894e+03,2.449893e+03,2.736450e+03,3.051500e+03,3.395381e+03,
1858     3.767744e+03,4.167523e+03,4.592970e+03,5.    1857     3.767744e+03,4.167523e+03,4.592970e+03,5.041778e+03,5.511247e+03,5.998488e+03,6.500670e+03,
1859     7.015188e+03,7.539806e+03,8.072749e+03,8.    1858     7.015188e+03,7.539806e+03,8.072749e+03,8.612744e+03,9.159028e+03,9.711325e+03,1.026981e+04,
1860     1.083504e+04,1.140796e+04,1.198979e+04,1.    1859     1.083504e+04,1.140796e+04,1.198979e+04,1.258204e+04,1.318641e+04,1.380480e+04,1.443930e+04,
1861     1.509210e+04,1.576553e+04,1.646199e+04,1.    1860     1.509210e+04,1.576553e+04,1.646199e+04,1.718399e+04,1.793404e+04,1.871473e+04,1.952866e+04,
1862     2.037842e+04,2.126663e+04,2.219590e+04,2.    1861     2.037842e+04,2.126663e+04,2.219590e+04,2.316886e+04,2.418816e+04,2.525650e+04,2.637667e+04,
1863     2.755151e+04,2.878401e+04,3.007731e+04,3.    1862     2.755151e+04,2.878401e+04,3.007731e+04,3.143470e+04,3.285966e+04,3.435587e+04,3.592721e+04,
1864     3.757777e+04,3.931185e+04,4.113396e+04,4.    1863     3.757777e+04,3.931185e+04,4.113396e+04,4.304881e+04,4.506131e+04,4.717656e+04,4.939988e+04,
1865     5.173679e+04,5.419304e+04,5.677458e+04,5.    1864     5.173679e+04,5.419304e+04,5.677458e+04,5.948765e+04,6.233872e+04,6.533460e+04,6.848239e+04,
1866     7.178955e+04,7.526394e+04,7.891383e+04,8.    1865     7.178955e+04,7.526394e+04,7.891383e+04,8.274793e+04,8.677546e+04,9.100617e+04,9.545036e+04,
1867     1.001189e+05,1.050235e+05,1.101763e+05,1.    1866     1.001189e+05,1.050235e+05,1.101763e+05,1.155902e+05,1.212792e+05,1.272577e+05,1.335413e+05,
1868     1.401464e+05,1.470904e+05,1.543917e+05,1.    1867     1.401464e+05,1.470904e+05,1.543917e+05,1.620700e+05,1.701459e+05,1.786414e+05,1.875799e+05,
1869     1.969859e+05,2.068858e+05,2.173072e+05,2.    1868     1.969859e+05,2.068858e+05,2.173072e+05,2.282796e+05,2.398340e+05,2.520035e+05,2.648230e+05,
1870     2.783297e+05,2.925628e+05,3.075639e+05,3.    1869     2.783297e+05,2.925628e+05,3.075639e+05,3.233770e+05,3.400491e+05,3.576294e+05,3.761706e+05,
1871     3.957283e+05,4.163613e+05,4.381322e+05,4.    1870     3.957283e+05,4.163613e+05,4.381322e+05,4.611072e+05,4.853564e+05,5.109543e+05,5.379797e+05,
1872     5.665162e+05,5.966524e+05,6.284822e+05,6.    1871     5.665162e+05,5.966524e+05,6.284822e+05,6.621053e+05,6.976273e+05,7.351601e+05,7.748225e+05,
1873     8.167405e+05,8.610475e+05,9.078852e+05,9.    1872     8.167405e+05,8.610475e+05,9.078852e+05,9.574039e+05,1.009763e+06,1.065131e+06,1.123687e+06,
1874     1.185622e+06,1.251138e+06,1.320447e+06,1.    1873     1.185622e+06,1.251138e+06,1.320447e+06,1.393779e+06,1.471372e+06,1.553484e+06,1.640385e+06,
1875     1.732364e+06,1.829725e+06,1.932793e+06,2.    1874     1.732364e+06,1.829725e+06,1.932793e+06,2.041912e+06,2.157447e+06,2.279787e+06,2.409342e+06,
1876     2.546550e+06,2.691874e+06,2.845807e+06,3.    1875     2.546550e+06,2.691874e+06,2.845807e+06,3.008872e+06,3.181623e+06,3.364649e+06,3.558578e+06,
1877     3.764073e+06,3.981840e+06,4.212628e+06,4.    1876     3.764073e+06,3.981840e+06,4.212628e+06,4.457233e+06,4.716501e+06,4.991329e+06,5.282672e+06,
1878     5.591541e+06,5.919014e+06,6.266233e+06,6.    1877     5.591541e+06,5.919014e+06,6.266233e+06,6.634412e+06,7.024842e+06,7.438893e+06,7.878021e+06,
1879     8.343775e+06,8.837797e+06,9.361836e+06,9.    1878     8.343775e+06,8.837797e+06,9.361836e+06,9.917747e+06,1.050750e+07,1.113320e+07,1.179707e+07,
1880     1.250148e+07,1.324894e+07,1.404213e+07,1.    1879     1.250148e+07,1.324894e+07,1.404213e+07,1.488389e+07,1.577725e+07,1.672542e+07,1.773181e+07,
1881     1.880006e+07,1.993402e+07,2.113780e+07,2.    1880     1.880006e+07,1.993402e+07,2.113780e+07,2.241576e+07,2.377254e+07,2.521307e+07,2.674259e+07};
1882 static const G4double P012[nE]={                 1881 static const G4double P012[nE]={
1883     0.000000e+00,0.000000e+00,0.000000e+00,0.    1882     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1884     0.000000e+00,0.000000e+00,0.000000e+00,0.    1883     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1885     0.000000e+00,0.000000e+00,0.000000e+00,0.    1884     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1886     0.000000e+00,0.000000e+00,0.000000e+00,0.    1885     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1887     0.000000e+00,0.000000e+00,0.000000e+00,0.    1886     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1888     0.000000e+00,0.000000e+00,0.000000e+00,0.    1887     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,4.229739e-04,1.122568e-03,
1889     2.064930e-03,3.284750e-03,4.790517e-03,6.    1888     2.064930e-03,3.284750e-03,4.790517e-03,6.590986e-03,8.900132e-03,1.193812e-02,1.572724e-02,
1890     2.029405e-02,2.612967e-02,3.360287e-02,4.    1889     2.029405e-02,2.612967e-02,3.360287e-02,4.276376e-02,5.386159e-02,6.777878e-02,8.469189e-02,
1891     1.048143e-01,1.292053e-01,1.582020e-01,1.    1890     1.048143e-01,1.292053e-01,1.582020e-01,1.919795e-01,2.308545e-01,2.750062e-01,3.220332e-01,
1892     3.681689e-01,4.129651e-01,4.533231e-01,4.    1891     3.681689e-01,4.129651e-01,4.533231e-01,4.884559e-01,5.187789e-01,5.444843e-01,5.662268e-01,
1893     5.846749e-01,6.003010e-01,6.136180e-01,6.    1892     5.846749e-01,6.003010e-01,6.136180e-01,6.250143e-01,6.347777e-01,6.432341e-01,6.505388e-01,
1894     6.569272e-01,6.625246e-01,6.674590e-01,6.    1893     6.569272e-01,6.625246e-01,6.674590e-01,6.718492e-01,6.757719e-01,6.793023e-01,6.825069e-01,
1895     6.854375e-01,6.881350e-01,6.906373e-01,6.    1894     6.854375e-01,6.881350e-01,6.906373e-01,6.929758e-01,6.951759e-01,6.972587e-01,6.992414e-01,
1896     7.011385e-01,7.029615e-01,7.047201e-01,7.    1895     7.011385e-01,7.029615e-01,7.047201e-01,7.064225e-01,7.080751e-01,7.096835e-01,7.112527e-01,
1897     7.127865e-01,7.142885e-01,7.157619e-01,7.    1896     7.127865e-01,7.142885e-01,7.157619e-01,7.172092e-01,7.186329e-01,7.200349e-01,7.214168e-01,
1898     7.227802e-01,7.241260e-01,7.254552e-01,7.    1897     7.227802e-01,7.241260e-01,7.254552e-01,7.267683e-01,7.280657e-01,7.293477e-01,7.306141e-01,
1899     7.318649e-01,7.330998e-01,7.343184e-01,7.    1898     7.318649e-01,7.330998e-01,7.343184e-01,7.355204e-01,7.367051e-01,7.378722e-01,7.390210e-01,
1900     7.401512e-01,7.412621e-01,7.423534e-01,7.    1899     7.401512e-01,7.412621e-01,7.423534e-01,7.434246e-01,7.444755e-01,7.455059e-01,7.465157e-01,
1901     7.475050e-01,7.484740e-01,7.494234e-01,7.    1900     7.475050e-01,7.484740e-01,7.494234e-01,7.503538e-01,7.512667e-01,7.521635e-01,7.530473e-01,
1902     7.539251e-01,7.548030e-01,7.556892e-01,7.    1901     7.539251e-01,7.548030e-01,7.556892e-01,7.565948e-01,7.575336e-01,7.585223e-01,7.595799e-01,
1903     7.607266e-01,7.619819e-01,7.633625e-01,7.    1902     7.607266e-01,7.619819e-01,7.633625e-01,7.648809e-01,7.665452e-01,7.683588e-01,7.703228e-01,
1904     7.724363e-01,7.746990e-01,7.771113e-01,7.    1903     7.724363e-01,7.746990e-01,7.771113e-01,7.796756e-01,7.823961e-01,7.852792e-01,7.883330e-01,
1905     7.915675e-01,7.949937e-01,7.986237e-01,8.    1904     7.915675e-01,7.949937e-01,7.986237e-01,8.024699e-01,8.065444e-01,8.108585e-01,8.154213e-01,
1906     8.202389e-01,8.253131e-01,8.306399e-01,8.    1905     8.202389e-01,8.253131e-01,8.306399e-01,8.362083e-01,8.419994e-01,8.479855e-01,8.541308e-01,
1907     8.603917e-01,8.667190e-01,8.730602e-01,8.    1906     8.603917e-01,8.667190e-01,8.730602e-01,8.793625e-01,8.855761e-01,8.916562e-01,8.975657e-01,
1908     9.032762e-01,9.087677e-01,9.140286e-01,9.    1907     9.032762e-01,9.087677e-01,9.140286e-01,9.190547e-01,9.238476e-01,9.284140e-01,9.327639e-01,
1909     9.369096e-01,9.408651e-01,9.446450e-01,9.    1908     9.369096e-01,9.408651e-01,9.446450e-01,9.482641e-01,9.517370e-01,9.550773e-01,9.582984e-01,
1910     9.614123e-01,9.644302e-01,9.673624e-01,9.    1909     9.614123e-01,9.644302e-01,9.673624e-01,9.702179e-01,9.730048e-01,9.757305e-01,9.784010e-01,
1911     9.810219e-01,9.835976e-01,9.861323e-01,9.    1910     9.810219e-01,9.835976e-01,9.861323e-01,9.886290e-01,9.910907e-01,9.935195e-01,9.959175e-01,
1912     9.982862e-01,1.000627e+00,1.002941e+00,1.    1911     9.982862e-01,1.000627e+00,1.002941e+00,1.005229e+00,1.007492e+00,1.009731e+00,1.011947e+00,
1913     1.014139e+00,1.016308e+00,1.018455e+00,1.    1912     1.014139e+00,1.016308e+00,1.018455e+00,1.020580e+00,1.022683e+00,1.024763e+00,1.026822e+00,
1914     1.028859e+00,1.030874e+00,1.032867e+00,1.    1913     1.028859e+00,1.030874e+00,1.032867e+00,1.034838e+00,1.036787e+00,1.038714e+00,1.040619e+00,
1915     1.042502e+00,1.044363e+00,1.046202e+00,1.    1914     1.042502e+00,1.044363e+00,1.046202e+00,1.048019e+00,1.049815e+00,1.051590e+00,1.053344e+00,
1916     1.055077e+00,1.056790e+00,1.058483e+00,1.    1915     1.055077e+00,1.056790e+00,1.058483e+00,1.060156e+00,1.061810e+00,1.063446e+00,1.065062e+00,
1917     1.066661e+00,1.068243e+00,1.069807e+00,1.    1916     1.066661e+00,1.068243e+00,1.069807e+00,1.071355e+00,1.072886e+00,1.074402e+00,1.075902e+00,
1918     1.077388e+00,1.078859e+00,1.080316e+00,1.    1917     1.077388e+00,1.078859e+00,1.080316e+00,1.081759e+00,1.083190e+00,1.084607e+00,1.086012e+00,
1919     1.087404e+00,1.088785e+00,1.090155e+00,1.    1918     1.087404e+00,1.088785e+00,1.090155e+00,1.091513e+00,1.092861e+00,1.094198e+00,1.095525e+00,
1920     1.096843e+00,1.098150e+00,1.099449e+00,1.    1919     1.096843e+00,1.098150e+00,1.099449e+00,1.100739e+00,1.102020e+00,1.103292e+00,1.104557e+00,
1921     1.105813e+00,1.107062e+00,1.108303e+00,1.    1920     1.105813e+00,1.107062e+00,1.108303e+00,1.109537e+00,1.110764e+00,1.111984e+00,1.113197e+00,
1922     1.114404e+00,1.115605e+00,1.116799e+00,1.    1921     1.114404e+00,1.115605e+00,1.116799e+00,1.117988e+00,1.119171e+00,1.120348e+00,1.121520e+00,
1923     1.122687e+00,1.123848e+00,1.125005e+00,1.    1922     1.122687e+00,1.123848e+00,1.125005e+00,1.126156e+00,1.127304e+00,1.128446e+00,1.129584e+00,
1924     1.130718e+00,1.131848e+00,1.132973e+00,1.    1923     1.130718e+00,1.131848e+00,1.132973e+00,1.134095e+00,1.135213e+00,1.136328e+00,1.137438e+00,
1925     1.138545e+00,1.139649e+00,1.140750e+00,1.    1924     1.138545e+00,1.139649e+00,1.140750e+00,1.141847e+00,1.142942e+00,1.144033e+00,1.145122e+00,
1926     1.146208e+00,1.147291e+00,1.148371e+00,1.    1925     1.146208e+00,1.147291e+00,1.148371e+00,1.149450e+00,1.150525e+00,1.151598e+00,1.152669e+00,
1927     1.153738e+00,1.154805e+00,1.155870e+00,1.    1926     1.153738e+00,1.154805e+00,1.155870e+00,1.156933e+00,1.157993e+00,1.159053e+00,1.160110e+00,
1928     1.161166e+00,1.162220e+00,1.163272e+00,1.    1927     1.161166e+00,1.162220e+00,1.163272e+00,1.164324e+00,1.165373e+00,1.166422e+00,1.167469e+00,
1929     1.168515e+00,1.169560e+00,1.170604e+00,1.    1928     1.168515e+00,1.169560e+00,1.170604e+00,1.171647e+00,1.172688e+00,1.173729e+00,1.174769e+00,
1930     1.175809e+00,1.176847e+00,1.177885e+00,1.    1929     1.175809e+00,1.176847e+00,1.177885e+00,1.178923e+00,1.179959e+00,1.180996e+00,1.182031e+00};
1931 static const G4double P112[nE]={                 1930 static const G4double P112[nE]={
1932     0.000000e+00,0.000000e+00,0.000000e+00,0.    1931     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1933     0.000000e+00,0.000000e+00,0.000000e+00,0.    1932     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1934     0.000000e+00,0.000000e+00,0.000000e+00,0.    1933     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1935     0.000000e+00,0.000000e+00,0.000000e+00,0.    1934     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1936     0.000000e+00,0.000000e+00,0.000000e+00,0.    1935     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1937     0.000000e+00,0.000000e+00,0.000000e+00,0.    1936     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,2.669456e-03,7.210759e-03,
1938     1.353042e-02,2.197839e-02,3.274774e-02,4.    1937     1.353042e-02,2.197839e-02,3.274774e-02,4.604543e-02,6.366403e-02,8.759503e-02,1.184107e-01,
1939     1.567549e-01,2.073542e-01,2.742402e-01,3.    1938     1.567549e-01,2.073542e-01,2.742402e-01,3.588721e-01,4.647151e-01,6.017175e-01,7.735506e-01,
1940     9.845531e-01,1.248518e+00,1.572353e+00,1.    1939     9.845531e-01,1.248518e+00,1.572353e+00,1.961623e+00,2.423926e+00,2.965705e+00,3.560928e+00,
1941     4.163437e+00,4.766978e+00,5.327878e+00,5.    1940     4.163437e+00,4.766978e+00,5.327878e+00,5.831605e+00,6.280136e+00,6.672360e+00,7.014629e+00,
1942     7.314181e+00,7.575938e+00,7.806026e+00,8.    1941     7.314181e+00,7.575938e+00,7.806026e+00,8.009145e+00,8.188626e+00,8.348974e+00,8.491835e+00,
1943     8.620696e+00,8.737148e+00,8.843020e+00,8.    1942     8.620696e+00,8.737148e+00,8.843020e+00,8.940169e+00,9.029691e+00,9.112779e+00,9.190558e+00,
1944     9.263911e+00,9.333538e+00,9.400141e+00,9.    1943     9.263911e+00,9.333538e+00,9.400141e+00,9.464325e+00,9.526593e+00,9.587378e+00,9.647045e+00,
1945     9.705909e+00,9.764235e+00,9.822253e+00,9.    1944     9.705909e+00,9.764235e+00,9.822253e+00,9.880155e+00,9.938113e+00,9.996274e+00,1.005477e+01,
1946     1.011373e+01,1.017325e+01,1.023345e+01,1.    1945     1.011373e+01,1.017325e+01,1.023345e+01,1.029441e+01,1.035624e+01,1.041901e+01,1.048279e+01,
1947     1.054767e+01,1.061369e+01,1.068090e+01,1.    1946     1.054767e+01,1.061369e+01,1.068090e+01,1.074936e+01,1.081909e+01,1.089011e+01,1.096245e+01,
1948     1.103609e+01,1.111104e+01,1.118729e+01,1.    1947     1.103609e+01,1.111104e+01,1.118729e+01,1.126481e+01,1.134358e+01,1.142356e+01,1.150472e+01,
1949     1.158702e+01,1.167041e+01,1.175485e+01,1.    1948     1.158702e+01,1.167041e+01,1.175485e+01,1.184030e+01,1.192670e+01,1.201403e+01,1.210224e+01,
1950     1.219132e+01,1.228126e+01,1.237208e+01,1.    1949     1.219132e+01,1.228126e+01,1.237208e+01,1.246383e+01,1.255663e+01,1.265058e+01,1.274603e+01,
1951     1.284374e+01,1.294447e+01,1.304928e+01,1.    1950     1.284374e+01,1.294447e+01,1.304928e+01,1.315968e+01,1.327765e+01,1.340570e+01,1.354690e+01,
1952     1.370470e+01,1.388274e+01,1.408458e+01,1.    1951     1.370470e+01,1.388274e+01,1.408458e+01,1.431338e+01,1.457185e+01,1.486217e+01,1.518618e+01,
1953     1.554557e+01,1.594212e+01,1.637787e+01,1.    1952     1.554557e+01,1.594212e+01,1.637787e+01,1.685527e+01,1.737730e+01,1.794750e+01,1.857000e+01,
1954     1.924953e+01,1.999143e+01,2.080156e+01,2.    1953     1.924953e+01,1.999143e+01,2.080156e+01,2.168625e+01,2.265222e+01,2.370633e+01,2.485539e+01,
1955     2.610582e+01,2.746321e+01,2.893183e+01,3.    1954     2.610582e+01,2.746321e+01,2.893183e+01,3.051411e+01,3.221007e+01,3.401687e+01,3.592851e+01,
1956     3.793576e+01,4.002641e+01,4.218581e+01,4.    1955     3.793576e+01,4.002641e+01,4.218581e+01,4.439773e+01,4.664525e+01,4.891184e+01,5.118231e+01,
1957     5.344347e+01,5.568452e+01,5.789724e+01,6.    1956     5.344347e+01,5.568452e+01,5.789724e+01,6.007592e+01,6.221721e+01,6.431975e+01,6.638393e+01,
1958     6.841150e+01,7.040530e+01,7.236897e+01,7.    1957     6.841150e+01,7.040530e+01,7.236897e+01,7.430671e+01,7.622307e+01,7.812281e+01,8.001079e+01,
1959     8.189187e+01,8.377082e+01,8.565227e+01,8.    1958     8.189187e+01,8.377082e+01,8.565227e+01,8.754065e+01,8.944017e+01,9.135476e+01,9.328811e+01,
1960     9.524359e+01,9.722429e+01,9.923302e+01,1.    1959     9.524359e+01,9.722429e+01,9.923302e+01,1.012723e+02,1.033445e+02,1.054517e+02,1.075958e+02,
1961     1.097786e+02,1.120016e+02,1.142666e+02,1.    1960     1.097786e+02,1.120016e+02,1.142666e+02,1.165748e+02,1.189278e+02,1.213268e+02,1.237731e+02,
1962     1.262679e+02,1.288124e+02,1.314077e+02,1.    1961     1.262679e+02,1.288124e+02,1.314077e+02,1.340547e+02,1.367544e+02,1.395077e+02,1.423154e+02,
1963     1.451783e+02,1.480970e+02,1.510722e+02,1.    1962     1.451783e+02,1.480970e+02,1.510722e+02,1.541047e+02,1.571950e+02,1.603439e+02,1.635520e+02,
1964     1.668202e+02,1.701491e+02,1.735398e+02,1.    1963     1.668202e+02,1.701491e+02,1.735398e+02,1.769930e+02,1.805099e+02,1.840917e+02,1.877394e+02,
1965     1.914545e+02,1.952384e+02,1.990926e+02,2.    1964     1.914545e+02,1.952384e+02,1.990926e+02,2.030187e+02,2.070186e+02,2.110939e+02,2.152468e+02,
1966     2.194793e+02,2.237936e+02,2.281918e+02,2.    1965     2.194793e+02,2.237936e+02,2.281918e+02,2.326765e+02,2.372501e+02,2.419151e+02,2.466743e+02,
1967     2.515305e+02,2.564865e+02,2.615454e+02,2.    1966     2.515305e+02,2.564865e+02,2.615454e+02,2.667102e+02,2.719843e+02,2.773708e+02,2.828733e+02,
1968     2.884953e+02,2.942405e+02,3.001125e+02,3.    1967     2.884953e+02,2.942405e+02,3.001125e+02,3.061153e+02,3.122530e+02,3.185296e+02,3.249493e+02,
1969     3.315166e+02,3.382361e+02,3.451123e+02,3.    1968     3.315166e+02,3.382361e+02,3.451123e+02,3.521500e+02,3.593542e+02,3.667299e+02,3.742825e+02,
1970     3.820173e+02,3.899398e+02,3.980558e+02,4.    1969     3.820173e+02,3.899398e+02,3.980558e+02,4.063711e+02,4.148920e+02,4.236245e+02,4.325751e+02,
1971     4.417506e+02,4.511576e+02,4.608034e+02,4.    1970     4.417506e+02,4.511576e+02,4.608034e+02,4.706951e+02,4.808402e+02,4.912465e+02,5.019218e+02,
1972     5.128744e+02,5.241128e+02,5.356456e+02,5.    1971     5.128744e+02,5.241128e+02,5.356456e+02,5.474817e+02,5.596305e+02,5.721016e+02,5.849046e+02,
1973     5.980497e+02,6.115475e+02,6.254086e+02,6.    1972     5.980497e+02,6.115475e+02,6.254086e+02,6.396443e+02,6.542659e+02,6.692852e+02,6.847145e+02,
1974     7.005664e+02,7.168537e+02,7.335900e+02,7.    1973     7.005664e+02,7.168537e+02,7.335900e+02,7.507889e+02,7.684647e+02,7.866322e+02,8.053064e+02,
1975     8.245030e+02,8.442381e+02,8.645283e+02,8.    1974     8.245030e+02,8.442381e+02,8.645283e+02,8.853909e+02,9.068435e+02,9.289045e+02,9.515927e+02,
1976     9.749276e+02,9.989293e+02,1.023618e+03,1.    1975     9.749276e+02,9.989293e+02,1.023618e+03,1.049017e+03,1.075146e+03,1.102029e+03,1.129689e+03,
1977     1.158151e+03,1.187440e+03,1.217582e+03,1.    1976     1.158151e+03,1.187440e+03,1.217582e+03,1.248602e+03,1.280530e+03,1.313394e+03,1.347222e+03,
1978     1.382046e+03,1.417896e+03,1.454806e+03,1.    1977     1.382046e+03,1.417896e+03,1.454806e+03,1.492808e+03,1.531936e+03,1.572228e+03,1.613719e+03,
1979     1.656447e+03,1.700453e+03,1.745775e+03,1.    1978     1.656447e+03,1.700453e+03,1.745775e+03,1.792457e+03,1.840541e+03,1.890072e+03,1.941097e+03};
1980 static const G4double P212[nE]={                 1979 static const G4double P212[nE]={
1981     0.000000e+00,0.000000e+00,0.000000e+00,0.    1980     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1982     0.000000e+00,0.000000e+00,0.000000e+00,0.    1981     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1983     0.000000e+00,0.000000e+00,0.000000e+00,0.    1982     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1984     0.000000e+00,0.000000e+00,0.000000e+00,0.    1983     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1985     0.000000e+00,0.000000e+00,0.000000e+00,0.    1984     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
1986     0.000000e+00,0.000000e+00,0.000000e+00,0.    1985     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,1.684810e-02,4.632984e-02,
1987     8.871441e-02,1.472267e-01,2.242564e-01,3.    1986     8.871441e-02,1.472267e-01,2.242564e-01,3.224773e-01,4.569173e-01,6.454442e-01,8.960796e-01,
1988     1.218055e+00,1.656827e+00,2.255513e+00,3.    1987     1.218055e+00,1.656827e+00,2.255513e+00,3.037441e+00,4.046981e+00,5.395760e+00,7.141687e+00,
1989     9.354437e+00,1.221137e+01,1.582824e+01,2.    1988     9.354437e+00,1.221137e+01,1.582824e+01,2.031476e+01,2.581295e+01,3.246157e+01,3.999597e+01,
1990     4.786507e+01,5.599726e+01,6.379332e+01,7.    1989     4.786507e+01,5.599726e+01,6.379332e+01,7.101625e+01,7.765137e+01,8.363657e+01,8.902498e+01,
1991     9.388937e+01,9.827447e+01,1.022502e+02,1.    1990     9.388937e+01,9.827447e+01,1.022502e+02,1.058707e+02,1.091704e+02,1.122111e+02,1.150053e+02,
1992     1.176048e+02,1.200277e+02,1.222995e+02,1.    1991     1.176048e+02,1.200277e+02,1.222995e+02,1.244494e+02,1.264926e+02,1.284483e+02,1.303362e+02,
1993     1.321723e+02,1.339697e+02,1.357426e+02,1.    1992     1.321723e+02,1.339697e+02,1.357426e+02,1.375044e+02,1.392669e+02,1.410410e+02,1.428367e+02,
1994     1.446633e+02,1.465296e+02,1.484437e+02,1.    1993     1.446633e+02,1.465296e+02,1.484437e+02,1.504133e+02,1.524461e+02,1.545493e+02,1.567303e+02,
1995     1.589966e+02,1.613556e+02,1.638152e+02,1.    1994     1.589966e+02,1.613556e+02,1.638152e+02,1.663834e+02,1.690685e+02,1.718788e+02,1.748232e+02,
1996     1.779103e+02,1.811492e+02,1.845488e+02,1.    1995     1.779103e+02,1.811492e+02,1.845488e+02,1.881180e+02,1.918658e+02,1.958012e+02,1.999327e+02,
1997     2.042690e+02,2.088184e+02,2.135892e+02,2.    1996     2.042690e+02,2.088184e+02,2.135892e+02,2.185894e+02,2.238267e+02,2.293087e+02,2.350430e+02,
1998     2.410367e+02,2.472972e+02,2.538316e+02,2.    1997     2.410367e+02,2.472972e+02,2.538316e+02,2.606472e+02,2.677517e+02,2.751528e+02,2.828593e+02,
1999     2.908809e+02,2.992293e+02,3.079187e+02,3.    1998     2.908809e+02,2.992293e+02,3.079187e+02,3.169676e+02,3.264006e+02,3.362449e+02,3.465537e+02,
2000     3.574312e+02,3.689892e+02,3.813869e+02,3.    1999     3.574312e+02,3.689892e+02,3.813869e+02,3.948465e+02,4.096708e+02,4.262580e+02,4.451096e+02,
2001     4.668260e+02,4.920818e+02,5.215910e+02,5.    2000     4.668260e+02,4.920818e+02,5.215910e+02,5.560706e+02,5.962149e+02,6.426899e+02,6.961495e+02,
2002     7.572662e+02,8.267702e+02,9.054874e+02,9.    2001     7.572662e+02,8.267702e+02,9.054874e+02,9.943751e+02,1.094553e+03,1.207331e+03,1.334230e+03,
2003     1.477006e+03,1.637665e+03,1.818480e+03,2.    2002     1.477006e+03,1.637665e+03,1.818480e+03,2.021994e+03,2.251016e+03,2.508599e+03,2.797992e+03,
2004     3.122568e+03,3.485707e+03,3.890646e+03,4.    2003     3.122568e+03,3.485707e+03,3.890646e+03,4.340289e+03,4.837003e+03,5.382390e+03,5.977096e+03,
2005     6.620672e+03,7.311514e+03,8.046928e+03,8.    2004     6.620672e+03,7.311514e+03,8.046928e+03,8.823291e+03,9.636310e+03,1.048133e+04,1.135372e+04,
2006     1.224914e+04,1.316377e+04,1.409450e+04,1.    2005     1.224914e+04,1.316377e+04,1.409450e+04,1.503898e+04,1.599568e+04,1.696385e+04,1.794346e+04,
2007     1.893518e+04,1.994025e+04,2.096045e+04,2.    2006     1.893518e+04,1.994025e+04,2.096045e+04,2.199802e+04,2.305557e+04,2.413607e+04,2.524277e+04,
2008     2.637920e+04,2.754912e+04,2.875647e+04,3.    2007     2.637920e+04,2.754912e+04,2.875647e+04,3.000538e+04,3.130013e+04,3.264512e+04,3.404488e+04,
2009     3.550403e+04,3.702724e+04,3.861931e+04,4.    2008     3.550403e+04,3.702724e+04,3.861931e+04,4.028511e+04,4.202960e+04,4.385786e+04,4.577509e+04,
2010     4.778667e+04,4.989812e+04,5.211519e+04,5.    2009     4.778667e+04,4.989812e+04,5.211519e+04,5.444383e+04,5.689024e+04,5.946088e+04,6.216245e+04,
2011     6.500194e+04,6.798661e+04,7.112399e+04,7.    2010     6.500194e+04,6.798661e+04,7.112399e+04,7.442190e+04,7.788844e+04,8.153200e+04,8.536127e+04,
2012     8.938526e+04,9.361335e+04,9.805527e+04,1.    2011     8.938526e+04,9.361335e+04,9.805527e+04,1.027212e+05,1.076216e+05,1.127678e+05,1.181712e+05,
2013     1.238442e+05,1.297996e+05,1.360510e+05,1.    2012     1.238442e+05,1.297996e+05,1.360510e+05,1.426127e+05,1.495000e+05,1.567288e+05,1.643162e+05,
2014     1.722801e+05,1.806398e+05,1.894154e+05,1.    2013     1.722801e+05,1.806398e+05,1.894154e+05,1.986284e+05,2.083016e+05,2.184591e+05,2.291266e+05,
2015     2.403312e+05,2.521018e+05,2.644689e+05,2.    2014     2.403312e+05,2.521018e+05,2.644689e+05,2.774648e+05,2.911240e+05,3.054827e+05,3.205795e+05,
2016     3.364554e+05,3.531535e+05,3.707199e+05,3.    2015     3.364554e+05,3.531535e+05,3.707199e+05,3.892030e+05,4.086544e+05,4.291288e+05,4.506839e+05,
2017     4.733811e+05,4.972852e+05,5.224649e+05,5.    2016     4.733811e+05,4.972852e+05,5.224649e+05,5.489933e+05,5.769474e+05,6.064091e+05,6.374651e+05,
2018     6.702071e+05,7.047325e+05,7.411446e+05,7.    2017     6.702071e+05,7.047325e+05,7.411446e+05,7.795524e+05,8.200720e+05,8.628259e+05,9.079443e+05,
2019     9.555652e+05,1.005835e+06,1.058907e+06,1.    2018     9.555652e+05,1.005835e+06,1.058907e+06,1.114948e+06,1.174130e+06,1.236639e+06,1.302669e+06,
2020     1.372430e+06,1.446140e+06,1.524033e+06,1.    2019     1.372430e+06,1.446140e+06,1.524033e+06,1.606356e+06,1.693372e+06,1.785359e+06,1.882612e+06,
2021     1.985444e+06,2.094187e+06,2.209195e+06,2.    2020     1.985444e+06,2.094187e+06,2.209195e+06,2.330839e+06,2.459517e+06,2.595650e+06,2.739683e+06,
2022     2.892091e+06,3.053375e+06,3.224069e+06,3.    2021     2.892091e+06,3.053375e+06,3.224069e+06,3.404739e+06,3.595986e+06,3.798446e+06,4.012797e+06,
2023     4.239756e+06,4.480087e+06,4.734597e+06,5.    2022     4.239756e+06,4.480087e+06,4.734597e+06,5.004147e+06,5.289647e+06,5.592067e+06,5.912434e+06,
2024     6.251840e+06,6.611444e+06,6.992476e+06,7.    2023     6.251840e+06,6.611444e+06,6.992476e+06,7.396245e+06,7.824137e+06,8.277627e+06,8.758281e+06,
2025     9.267762e+06,9.807836e+06,1.038038e+07,1.    2024     9.267762e+06,9.807836e+06,1.038038e+07,1.098738e+07,1.163097e+07,1.231338e+07,1.303701e+07,
2026     1.380440e+07,1.461824e+07,1.548140e+07,1.    2025     1.380440e+07,1.461824e+07,1.548140e+07,1.639693e+07,1.736806e+07,1.839823e+07,1.949109e+07,
2027     2.065053e+07,2.188068e+07,2.318592e+07,2.    2026     2.065053e+07,2.188068e+07,2.318592e+07,2.457091e+07,2.604061e+07,2.760029e+07,2.925554e+07,
2028     3.101232e+07,3.287695e+07,3.485616e+07,3.    2027     3.101232e+07,3.287695e+07,3.485616e+07,3.695711e+07,3.918738e+07,4.155507e+07,4.406876e+07};
2029 static const G4double P013[nE]={                 2028 static const G4double P013[nE]={
2030     0.000000e+00,0.000000e+00,0.000000e+00,0.    2029     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2031     0.000000e+00,0.000000e+00,0.000000e+00,0.    2030     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2032     0.000000e+00,0.000000e+00,0.000000e+00,0.    2031     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2033     0.000000e+00,0.000000e+00,0.000000e+00,0.    2032     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2034     0.000000e+00,0.000000e+00,0.000000e+00,0.    2033     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2035     0.000000e+00,0.000000e+00,3.486588e-04,9.    2034     0.000000e+00,0.000000e+00,3.486588e-04,9.620452e-04,1.718673e-03,2.622926e-03,3.703060e-03,
2036     5.154692e-03,7.030543e-03,9.343593e-03,1.    2035     5.154692e-03,7.030543e-03,9.343593e-03,1.210723e-02,1.562440e-02,2.020681e-02,2.588705e-02,
2037     3.270264e-02,4.120096e-02,5.179545e-02,6.    2036     3.270264e-02,4.120096e-02,5.179545e-02,6.455027e-02,7.958144e-02,9.716667e-02,1.174069e-01,
2038     1.402537e-01,1.647614e-01,1.907608e-01,2.    2037     1.402537e-01,1.647614e-01,1.907608e-01,2.180777e-01,2.456543e-01,2.733481e-01,3.011684e-01,
2039     3.291280e-01,3.571385e-01,3.844637e-01,4.    2038     3.291280e-01,3.571385e-01,3.844637e-01,4.109055e-01,4.353907e-01,4.572419e-01,4.764803e-01,
2040     4.931270e-01,5.074779e-01,5.198558e-01,5.    2039     4.931270e-01,5.074779e-01,5.198558e-01,5.305684e-01,5.398436e-01,5.479555e-01,5.550351e-01,
2041     5.612855e-01,5.668161e-01,5.717392e-01,5.    2040     5.612855e-01,5.668161e-01,5.717392e-01,5.761608e-01,5.801498e-01,5.837742e-01,5.870950e-01,
2042     5.901599e-01,5.930068e-01,5.956710e-01,5.    2041     5.901599e-01,5.930068e-01,5.956710e-01,5.981820e-01,6.005639e-01,6.028363e-01,6.050157e-01,
2043     6.071155e-01,6.091467e-01,6.111183e-01,6.    2042     6.071155e-01,6.091467e-01,6.111183e-01,6.130377e-01,6.149109e-01,6.167431e-01,6.185383e-01,
2044     6.203001e-01,6.220315e-01,6.237350e-01,6.    2043     6.203001e-01,6.220315e-01,6.237350e-01,6.254128e-01,6.270666e-01,6.286979e-01,6.303078e-01,
2045     6.318973e-01,6.334668e-01,6.350169e-01,6.    2044     6.318973e-01,6.334668e-01,6.350169e-01,6.365477e-01,6.380590e-01,6.395509e-01,6.410229e-01,
2046     6.424746e-01,6.439056e-01,6.453153e-01,6.    2045     6.424746e-01,6.439056e-01,6.453153e-01,6.467032e-01,6.480686e-01,6.494110e-01,6.507298e-01,
2047     6.520247e-01,6.532950e-01,6.545406e-01,6.    2046     6.520247e-01,6.532950e-01,6.545406e-01,6.557611e-01,6.569564e-01,6.581265e-01,6.592715e-01,
2048     6.603918e-01,6.614881e-01,6.625614e-01,6.    2047     6.603918e-01,6.614881e-01,6.625614e-01,6.636131e-01,6.646453e-01,6.656609e-01,6.666658e-01,
2049     6.676680e-01,6.686761e-01,6.697018e-01,6.    2048     6.676680e-01,6.686761e-01,6.697018e-01,6.707597e-01,6.718679e-01,6.730471e-01,6.743195e-01,
2050     6.757071e-01,6.772293e-01,6.789009e-01,6.    2049     6.757071e-01,6.772293e-01,6.789009e-01,6.807315e-01,6.827259e-01,6.848850e-01,6.872080e-01,
2051     6.896938e-01,6.923421e-01,6.951548e-01,6.    2050     6.896938e-01,6.923421e-01,6.951548e-01,6.981356e-01,7.012908e-01,7.046287e-01,7.081597e-01,
2052     7.118958e-01,7.158503e-01,7.200374e-01,7.    2051     7.118958e-01,7.158503e-01,7.200374e-01,7.244715e-01,7.291667e-01,7.341357e-01,7.393889e-01,
2053     7.449331e-01,7.507700e-01,7.568949e-01,7.    2052     7.449331e-01,7.507700e-01,7.568949e-01,7.632950e-01,7.699485e-01,7.768239e-01,7.838803e-01,
2054     7.910682e-01,7.983318e-01,8.056115e-01,8.    2053     7.910682e-01,7.983318e-01,8.056115e-01,8.128477e-01,8.199835e-01,8.269680e-01,8.337591e-01,
2055     8.403238e-01,8.466393e-01,8.526920e-01,8.    2054     8.403238e-01,8.466393e-01,8.526920e-01,8.584765e-01,8.639943e-01,8.692526e-01,8.742622e-01,
2056     8.790371e-01,8.835929e-01,8.879462e-01,8.    2055     8.790371e-01,8.835929e-01,8.879462e-01,8.921136e-01,8.961116e-01,8.999559e-01,9.036615e-01,
2057     9.072423e-01,9.107112e-01,9.140799e-01,9.    2056     9.072423e-01,9.107112e-01,9.140799e-01,9.173590e-01,9.205578e-01,9.236848e-01,9.267473e-01,
2058     9.297517e-01,9.327034e-01,9.356072e-01,9.    2057     9.297517e-01,9.327034e-01,9.356072e-01,9.384670e-01,9.412861e-01,9.440675e-01,9.468134e-01,
2059     9.495258e-01,9.522065e-01,9.548567e-01,9.    2058     9.495258e-01,9.522065e-01,9.548567e-01,9.574777e-01,9.600704e-01,9.626357e-01,9.651742e-01,
2060     9.676864e-01,9.701728e-01,9.726336e-01,9.    2059     9.676864e-01,9.701728e-01,9.726336e-01,9.750691e-01,9.774794e-01,9.798646e-01,9.822246e-01,
2061     9.845594e-01,9.868688e-01,9.891530e-01,9.    2060     9.845594e-01,9.868688e-01,9.891530e-01,9.914116e-01,9.936448e-01,9.958524e-01,9.980344e-01,
2062     1.000191e+00,1.002322e+00,1.004428e+00,1.    2061     1.000191e+00,1.002322e+00,1.004428e+00,1.006508e+00,1.008564e+00,1.010594e+00,1.012601e+00,
2063     1.014583e+00,1.016542e+00,1.018478e+00,1.    2062     1.014583e+00,1.016542e+00,1.018478e+00,1.020391e+00,1.022281e+00,1.024150e+00,1.025997e+00,
2064     1.027824e+00,1.029630e+00,1.031416e+00,1.    2063     1.027824e+00,1.029630e+00,1.031416e+00,1.033183e+00,1.034931e+00,1.036661e+00,1.038373e+00,
2065     1.040068e+00,1.041746e+00,1.043408e+00,1.    2064     1.040068e+00,1.041746e+00,1.043408e+00,1.045054e+00,1.046684e+00,1.048300e+00,1.049901e+00,
2066     1.051488e+00,1.053062e+00,1.054622e+00,1.    2065     1.051488e+00,1.053062e+00,1.054622e+00,1.056169e+00,1.057704e+00,1.059227e+00,1.060738e+00,
2067     1.062238e+00,1.063727e+00,1.065205e+00,1.    2066     1.062238e+00,1.063727e+00,1.065205e+00,1.066673e+00,1.068130e+00,1.069578e+00,1.071017e+00,
2068     1.072446e+00,1.073866e+00,1.075278e+00,1.    2067     1.072446e+00,1.073866e+00,1.075278e+00,1.076681e+00,1.078076e+00,1.079463e+00,1.080843e+00,
2069     1.082215e+00,1.083579e+00,1.084937e+00,1.    2068     1.082215e+00,1.083579e+00,1.084937e+00,1.086288e+00,1.087632e+00,1.088970e+00,1.090301e+00,
2070     1.091626e+00,1.092946e+00,1.094259e+00,1.    2069     1.091626e+00,1.092946e+00,1.094259e+00,1.095567e+00,1.096870e+00,1.098168e+00,1.099460e+00,
2071     1.100747e+00,1.102030e+00,1.103308e+00,1.    2070     1.100747e+00,1.102030e+00,1.103308e+00,1.104581e+00,1.105850e+00,1.107115e+00,1.108376e+00,
2072     1.109632e+00,1.110885e+00,1.112134e+00,1.    2071     1.109632e+00,1.110885e+00,1.112134e+00,1.113379e+00,1.114621e+00,1.115859e+00,1.117094e+00,
2073     1.118326e+00,1.119555e+00,1.120780e+00,1.    2072     1.118326e+00,1.119555e+00,1.120780e+00,1.122003e+00,1.123223e+00,1.124440e+00,1.125655e+00,
2074     1.126867e+00,1.128077e+00,1.129284e+00,1.    2073     1.126867e+00,1.128077e+00,1.129284e+00,1.130489e+00,1.131692e+00,1.132893e+00,1.134092e+00,
2075     1.135289e+00,1.136484e+00,1.137677e+00,1.    2074     1.135289e+00,1.136484e+00,1.137677e+00,1.138868e+00,1.140058e+00,1.141247e+00,1.142434e+00,
2076     1.143619e+00,1.144803e+00,1.145986e+00,1.    2075     1.143619e+00,1.144803e+00,1.145986e+00,1.147168e+00,1.148349e+00,1.149528e+00,1.150707e+00,
2077     1.151884e+00,1.153061e+00,1.154237e+00,1.    2076     1.151884e+00,1.153061e+00,1.154237e+00,1.155413e+00,1.156587e+00,1.157761e+00,1.158935e+00};
2078 static const G4double P113[nE]={                 2077 static const G4double P113[nE]={
2079     0.000000e+00,0.000000e+00,0.000000e+00,0.    2078     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2080     0.000000e+00,0.000000e+00,0.000000e+00,0.    2079     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2081     0.000000e+00,0.000000e+00,0.000000e+00,0.    2080     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2082     0.000000e+00,0.000000e+00,0.000000e+00,0.    2081     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2083     0.000000e+00,0.000000e+00,0.000000e+00,0.    2082     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2084     0.000000e+00,0.000000e+00,1.995454e-03,5.    2083     0.000000e+00,0.000000e+00,1.995454e-03,5.606334e-03,1.020784e-02,1.588884e-02,2.290033e-02,
2085     3.263520e-02,4.562653e-02,6.216957e-02,8.    2084     3.263520e-02,4.562653e-02,6.216957e-02,8.258086e-02,1.094157e-01,1.455118e-01,1.917068e-01,
2086     2.489316e-01,3.226120e-01,4.174284e-01,5.    2085     2.489316e-01,3.226120e-01,4.174284e-01,5.352577e-01,6.785911e-01,8.516731e-01,1.057284e+00,
2087     1.296801e+00,1.561942e+00,1.852224e+00,2.    2086     1.296801e+00,1.561942e+00,1.852224e+00,2.166939e+00,2.494770e+00,2.834492e+00,3.186635e+00,
2088     3.551797e+00,3.929232e+00,4.309095e+00,4.    2087     3.551797e+00,3.929232e+00,4.309095e+00,4.688324e+00,5.050545e+00,5.384012e+00,5.686875e+00,
2089     5.957193e+00,6.197595e+00,6.411465e+00,6.    2088     5.957193e+00,6.197595e+00,6.411465e+00,6.602403e+00,6.772914e+00,6.926734e+00,7.065197e+00,
2090     7.191277e+00,7.306340e+00,7.411974e+00,7.    2089     7.191277e+00,7.306340e+00,7.411974e+00,7.509819e+00,7.600857e+00,7.686161e+00,7.766762e+00,
2091     7.843477e+00,7.916960e+00,7.987876e+00,8.    2090     7.843477e+00,7.916960e+00,7.987876e+00,8.056797e+00,8.124211e+00,8.190532e+00,8.256119e+00,
2092     8.321275e+00,8.386263e+00,8.451305e+00,8.    2091     8.321275e+00,8.386263e+00,8.451305e+00,8.516592e+00,8.582289e+00,8.648537e+00,8.715465e+00,
2093     8.783185e+00,8.851798e+00,8.921398e+00,8.    2092     8.783185e+00,8.851798e+00,8.921398e+00,8.992070e+00,9.063890e+00,9.136925e+00,9.211233e+00,
2094     9.286866e+00,9.363861e+00,9.442250e+00,9.    2093     9.286866e+00,9.363861e+00,9.442250e+00,9.522053e+00,9.603281e+00,9.685935e+00,9.770007e+00,
2095     9.855482e+00,9.942335e+00,1.003054e+01,1.    2094     9.855482e+00,9.942335e+00,1.003054e+01,1.012005e+01,1.021082e+01,1.030282e+01,1.039600e+01,
2096     1.049029e+01,1.058565e+01,1.068203e+01,1.    2095     1.049029e+01,1.058565e+01,1.068203e+01,1.077938e+01,1.087765e+01,1.097681e+01,1.107684e+01,
2097     1.117772e+01,1.127947e+01,1.138215e+01,1.    2096     1.117772e+01,1.127947e+01,1.138215e+01,1.148585e+01,1.159077e+01,1.169718e+01,1.180571e+01,
2098     1.191727e+01,1.203294e+01,1.215425e+01,1.    2097     1.191727e+01,1.203294e+01,1.215425e+01,1.228322e+01,1.242248e+01,1.257521e+01,1.274509e+01,
2099     1.293604e+01,1.315194e+01,1.339632e+01,1.    2098     1.293604e+01,1.315194e+01,1.339632e+01,1.367216e+01,1.398189e+01,1.432750e+01,1.471074e+01,
2100     1.513342e+01,1.559757e+01,1.610563e+01,1.    2099     1.513342e+01,1.559757e+01,1.610563e+01,1.666058e+01,1.726601e+01,1.792615e+01,1.864590e+01,
2101     1.943082e+01,2.028712e+01,2.122158e+01,2.    2100     1.943082e+01,2.028712e+01,2.122158e+01,2.224152e+01,2.335462e+01,2.456876e+01,2.589168e+01,
2102     2.733069e+01,2.889211e+01,3.058077e+01,3.    2101     2.733069e+01,2.889211e+01,3.058077e+01,3.239937e+01,3.434789e+01,3.642310e+01,3.861815e+01,
2103     4.092260e+01,4.332263e+01,4.580166e+01,4.    2102     4.092260e+01,4.332263e+01,4.580166e+01,4.834130e+01,5.092240e+01,5.352617e+01,5.613531e+01,
2104     5.873476e+01,6.131210e+01,6.385783e+01,6.    2103     5.873476e+01,6.131210e+01,6.385783e+01,6.636527e+01,6.883039e+01,7.125148e+01,7.362876e+01,
2105     7.596408e+01,7.826048e+01,8.052200e+01,8.    2104     7.596408e+01,7.826048e+01,8.052200e+01,8.275327e+01,8.495940e+01,8.714572e+01,8.931771e+01,
2106     9.148086e+01,9.364060e+01,9.580217e+01,9.    2105     9.148086e+01,9.364060e+01,9.580217e+01,9.797066e+01,1.001509e+02,1.023474e+02,1.045645e+02,
2107     1.068062e+02,1.090760e+02,1.113772e+02,1.    2106     1.068062e+02,1.090760e+02,1.113772e+02,1.137131e+02,1.160862e+02,1.184992e+02,1.209544e+02,
2108     1.234539e+02,1.259998e+02,1.285938e+02,1.    2107     1.234539e+02,1.259998e+02,1.285938e+02,1.312377e+02,1.339332e+02,1.366818e+02,1.394850e+02,
2109     1.423440e+02,1.452603e+02,1.482350e+02,1.    2108     1.423440e+02,1.452603e+02,1.482350e+02,1.512691e+02,1.543638e+02,1.575200e+02,1.607384e+02,
2110     1.640199e+02,1.673652e+02,1.707750e+02,1.    2109     1.640199e+02,1.673652e+02,1.707750e+02,1.742501e+02,1.777910e+02,1.813985e+02,1.850734e+02,
2111     1.888164e+02,1.926284e+02,1.965104e+02,2.    2110     1.888164e+02,1.926284e+02,1.965104e+02,2.004634e+02,2.044885e+02,2.085870e+02,2.127603e+02,
2112     2.170098e+02,2.213372e+02,2.257441e+02,2.    2111     2.170098e+02,2.213372e+02,2.257441e+02,2.302324e+02,2.348040e+02,2.394612e+02,2.442060e+02,
2113     2.490408e+02,2.539681e+02,2.589904e+02,2.    2112     2.490408e+02,2.539681e+02,2.589904e+02,2.641105e+02,2.693311e+02,2.746552e+02,2.800858e+02,
2114     2.856261e+02,2.912794e+02,2.970490e+02,3.    2113     2.856261e+02,2.912794e+02,2.970490e+02,3.029386e+02,3.089517e+02,3.150921e+02,3.213638e+02,
2115     3.277707e+02,3.343169e+02,3.410068e+02,3.    2114     3.277707e+02,3.343169e+02,3.410068e+02,3.478447e+02,3.548352e+02,3.619830e+02,3.692928e+02,
2116     3.767697e+02,3.844189e+02,3.922454e+02,4.    2115     3.767697e+02,3.844189e+02,3.922454e+02,4.002549e+02,4.084528e+02,4.168450e+02,4.254374e+02,
2117     4.342361e+02,4.432473e+02,4.524776e+02,4.    2116     4.342361e+02,4.432473e+02,4.524776e+02,4.619337e+02,4.716224e+02,4.815508e+02,4.917263e+02,
2118     5.021563e+02,5.128485e+02,5.238111e+02,5.    2117     5.021563e+02,5.128485e+02,5.238111e+02,5.350521e+02,5.465802e+02,5.584039e+02,5.705323e+02,
2119     5.829747e+02,5.957407e+02,6.088401e+02,6.    2118     5.829747e+02,5.957407e+02,6.088401e+02,6.222830e+02,6.360800e+02,6.502418e+02,6.647796e+02,
2120     6.797048e+02,6.950292e+02,7.107652e+02,7.    2119     6.797048e+02,6.950292e+02,7.107652e+02,7.269252e+02,7.435222e+02,7.605696e+02,7.780812e+02,
2121     7.960713e+02,8.145545e+02,8.335460e+02,8.    2120     7.960713e+02,8.145545e+02,8.335460e+02,8.530613e+02,8.731166e+02,8.937286e+02,9.149143e+02,
2122     9.366915e+02,9.590784e+02,9.820938e+02,1.    2121     9.366915e+02,9.590784e+02,9.820938e+02,1.005757e+03,1.030089e+03,1.055109e+03,1.080839e+03,
2123     1.107302e+03,1.134519e+03,1.162515e+03,1.    2122     1.107302e+03,1.134519e+03,1.162515e+03,1.191313e+03,1.220939e+03,1.251419e+03,1.282778e+03,
2124     1.315045e+03,1.348248e+03,1.382416e+03,1.    2123     1.315045e+03,1.348248e+03,1.382416e+03,1.417580e+03,1.453770e+03,1.491019e+03,1.529361e+03,
2125     1.568829e+03,1.609460e+03,1.651289e+03,1.    2124     1.568829e+03,1.609460e+03,1.651289e+03,1.694355e+03,1.738697e+03,1.784354e+03,1.831369e+03,
2126     1.879785e+03,1.929646e+03,1.980999e+03,2.    2125     1.879785e+03,1.929646e+03,1.980999e+03,2.033889e+03,2.088367e+03,2.144482e+03,2.202288e+03};
2127 static const G4double P213[nE]={                 2126 static const G4double P213[nE]={
2128     0.000000e+00,0.000000e+00,0.000000e+00,0.    2127     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2129     0.000000e+00,0.000000e+00,0.000000e+00,0.    2128     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2130     0.000000e+00,0.000000e+00,0.000000e+00,0.    2129     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2131     0.000000e+00,0.000000e+00,0.000000e+00,0.    2130     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2132     0.000000e+00,0.000000e+00,0.000000e+00,0.    2131     0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,0.000000e+00,
2133     0.000000e+00,0.000000e+00,1.142094e-02,3.    2132     0.000000e+00,0.000000e+00,1.142094e-02,3.267935e-02,6.066632e-02,9.636049e-02,1.418783e-01,
2134     2.071675e-01,2.971476e-01,4.154746e-01,5.    2133     2.071675e-01,2.971476e-01,4.154746e-01,5.662385e-01,7.709965e-01,1.055354e+00,1.431069e+00,
2135     1.911579e+00,2.550442e+00,3.399081e+00,4.    2134     1.911579e+00,2.550442e+00,3.399081e+00,4.487682e+00,5.854588e+00,7.558283e+00,9.647155e+00,
2136     1.215838e+01,1.502709e+01,1.826833e+01,2.    2135     1.215838e+01,1.502709e+01,1.826833e+01,2.189443e+01,2.579202e+01,2.995976e+01,3.441746e+01,
2137     3.918699e+01,4.427325e+01,4.955437e+01,5.    2136     3.918699e+01,4.427325e+01,4.955437e+01,5.499373e+01,6.035267e+01,6.544206e+01,7.021030e+01,
2138     7.460021e+01,7.862768e+01,8.232331e+01,8.    2137     7.460021e+01,7.862768e+01,8.232331e+01,8.572679e+01,8.886164e+01,9.177863e+01,9.448690e+01,
2139     9.703032e+01,9.942442e+01,1.016911e+02,1.    2138     9.703032e+01,9.942442e+01,1.016911e+02,1.038565e+02,1.059344e+02,1.079422e+02,1.098987e+02,
2140     1.118190e+02,1.137160e+02,1.156037e+02,1.    2139     1.118190e+02,1.137160e+02,1.156037e+02,1.174956e+02,1.194037e+02,1.213395e+02,1.233134e+02,
2141     1.253353e+02,1.274148e+02,1.295607e+02,1.    2140     1.253353e+02,1.274148e+02,1.295607e+02,1.317816e+02,1.340858e+02,1.364815e+02,1.389768e+02,
2142     1.415800e+02,1.442993e+02,1.471432e+02,1.    2141     1.415800e+02,1.442993e+02,1.471432e+02,1.501202e+02,1.532394e+02,1.565095e+02,1.599395e+02,
2143     1.635387e+02,1.673159e+02,1.712805e+02,1.    2142     1.635387e+02,1.673159e+02,1.712805e+02,1.754412e+02,1.798071e+02,1.843868e+02,1.891890e+02,
2144     1.942219e+02,1.994937e+02,2.050125e+02,2.    2143     1.942219e+02,1.994937e+02,2.050125e+02,2.107860e+02,2.168218e+02,2.231274e+02,2.297101e+02,
2145     2.365773e+02,2.437362e+02,2.511944e+02,2.    2144     2.365773e+02,2.437362e+02,2.511944e+02,2.589596e+02,2.670399e+02,2.754442e+02,2.841827e+02,
2146     2.932671e+02,3.027119e+02,3.125358e+02,3.    2145     2.932671e+02,3.027119e+02,3.125358e+02,3.227634e+02,3.334288e+02,3.445781e+02,3.563001e+02,
2147     3.687193e+02,3.819927e+02,3.963408e+02,4.    2146     3.687193e+02,3.819927e+02,3.963408e+02,4.120653e+02,4.295658e+02,4.493503e+02,4.720319e+02,
2148     4.983109e+02,5.289362e+02,5.646649e+02,6.    2147     4.983109e+02,5.289362e+02,5.646649e+02,6.062317e+02,6.543377e+02,7.096627e+02,7.728953e+02,
2149     8.447731e+02,9.261237e+02,1.017903e+03,1.    2148     8.447731e+02,9.261237e+02,1.017903e+03,1.121228e+03,1.237410e+03,1.367978e+03,1.514703e+03,
2150     1.679620e+03,1.865051e+03,2.073617e+03,2.    2149     1.679620e+03,1.865051e+03,2.073617e+03,2.308241e+03,2.572149e+03,2.868835e+03,3.202016e+03,
2151     3.575541e+03,3.993264e+03,4.458871e+03,4.    2150     3.575541e+03,3.993264e+03,4.458871e+03,4.975670e+03,5.546355e+03,6.172760e+03,6.855637e+03,
2152     7.594502e+03,8.387576e+03,9.231842e+03,1.    2151     7.594502e+03,8.387576e+03,9.231842e+03,1.012323e+04,1.105692e+04,1.202765e+04,1.303017e+04,
2153     1.405955e+04,1.511144e+04,1.618224e+04,1.    2152     1.405955e+04,1.511144e+04,1.618224e+04,1.726924e+04,1.837063e+04,1.948547e+04,2.061368e+04,
2154     2.175592e+04,2.291353e+04,2.408848e+04,2.    2153     2.175592e+04,2.291353e+04,2.408848e+04,2.528322e+04,2.650068e+04,2.774417e+04,2.901736e+04,
2155     3.032420e+04,3.166894e+04,3.305604e+04,3.    2154     3.032420e+04,3.166894e+04,3.305604e+04,3.449021e+04,3.597630e+04,3.751935e+04,3.912456e+04,
2156     4.079722e+04,4.254275e+04,4.436670e+04,4.    2155     4.079722e+04,4.254275e+04,4.436670e+04,4.627470e+04,4.827254e+04,5.036614e+04,5.256157e+04,
2157     5.486506e+04,5.728307e+04,5.982226e+04,6.    2156     5.486506e+04,5.728307e+04,5.982226e+04,6.248955e+04,6.529208e+04,6.823731e+04,7.133295e+04,
2158     7.458700e+04,7.800776e+04,8.160383e+04,8.    2157     7.458700e+04,7.800776e+04,8.160383e+04,8.538411e+04,8.935781e+04,9.353444e+04,9.792387e+04,
2159     1.025363e+05,1.073824e+05,1.124731e+05,1.    2158     1.025363e+05,1.073824e+05,1.124731e+05,1.178200e+05,1.234350e+05,1.293307e+05,1.355202e+05,
2160     1.420175e+05,1.488372e+05,1.559945e+05,1.    2159     1.420175e+05,1.488372e+05,1.559945e+05,1.635058e+05,1.713882e+05,1.796600e+05,1.883405e+05,
2161     1.974500e+05,2.070104e+05,2.170444e+05,2.    2160     1.974500e+05,2.070104e+05,2.170444e+05,2.275766e+05,2.386327e+05,2.502401e+05,2.624280e+05,
2162     2.752272e+05,2.886704e+05,3.027922e+05,3.    2161     2.752272e+05,2.886704e+05,3.027922e+05,3.176294e+05,3.332210e+05,3.496083e+05,3.668349e+05,
2163     3.849474e+05,4.039947e+05,4.240291e+05,4.    2162     3.849474e+05,4.039947e+05,4.240291e+05,4.451057e+05,4.672829e+05,4.906228e+05,5.151909e+05,
2164     5.410568e+05,5.682940e+05,5.969807e+05,6.    2163     5.410568e+05,5.682940e+05,5.969807e+05,6.271995e+05,6.590381e+05,6.925891e+05,7.279509e+05,
2165     7.652278e+05,8.045300e+05,8.459747e+05,8.    2164     7.652278e+05,8.045300e+05,8.459747e+05,8.896858e+05,9.357945e+05,9.844402e+05,1.035770e+06,
2166     1.089941e+06,1.147119e+06,1.207478e+06,1.    2165     1.089941e+06,1.147119e+06,1.207478e+06,1.271207e+06,1.338501e+06,1.409570e+06,1.484636e+06,
2167     1.563934e+06,1.647715e+06,1.736241e+06,1.    2166     1.563934e+06,1.647715e+06,1.736241e+06,1.829794e+06,1.928671e+06,2.033188e+06,2.143679e+06,
2168     2.260499e+06,2.384024e+06,2.514653e+06,2.    2167     2.260499e+06,2.384024e+06,2.514653e+06,2.652811e+06,2.798946e+06,2.953535e+06,3.117084e+06,
2169     3.290130e+06,3.473241e+06,3.667023e+06,3.    2168     3.290130e+06,3.473241e+06,3.667023e+06,3.872116e+06,4.089200e+06,4.318999e+06,4.562278e+06,
2170     4.819852e+06,5.092583e+06,5.381389e+06,5.    2169     4.819852e+06,5.092583e+06,5.381389e+06,5.687242e+06,6.011176e+06,6.354288e+06,6.717741e+06,
2171     7.102774e+06,7.510697e+06,7.942907e+06,8.    2170     7.102774e+06,7.510697e+06,7.942907e+06,8.400882e+06,8.886195e+06,9.400517e+06,9.945620e+06,
2172     1.052339e+07,1.113582e+07,1.178504e+07,1.    2171     1.052339e+07,1.113582e+07,1.178504e+07,1.247331e+07,1.320302e+07,1.397672e+07,1.479713e+07,
2173     1.566710e+07,1.658970e+07,1.756817e+07,1.    2172     1.566710e+07,1.658970e+07,1.756817e+07,1.860597e+07,1.970674e+07,2.087440e+07,2.211307e+07,
2174     2.342715e+07,2.482132e+07,2.630054e+07,2.    2173     2.342715e+07,2.482132e+07,2.630054e+07,2.787009e+07,2.953558e+07,3.130298e+07,3.317862e+07,
2175     3.516924e+07,3.728200e+07,3.952452e+07,4.    2174     3.516924e+07,3.728200e+07,3.952452e+07,4.190489e+07,4.443171e+07,4.711414e+07,4.996191e+07};
2176 static const G4double* P0[nN]={P00,P01,P02,P0    2175 static const G4double* P0[nN]={P00,P01,P02,P03,P04,P05,P06,P07,P08,P09,P010,P011,P012,P013};
2177 static const G4double* P1[nN]={P10,P11,P12,P1    2176 static const G4double* P1[nN]={P10,P11,P12,P13,P14,P15,P16,P17,P18,P19,P110,P111,P112,P113};
2178 static const G4double* P2[nN]={P20,P21,P22,P2    2177 static const G4double* P2[nN]={P20,P21,P22,P23,P24,P25,P26,P27,P28,P29,P210,P211,P212,P213};
2179 //                                               2178 //
2180                                                  2179 
2181 G4ElectroNuclearCrossSection::G4ElectroNuclea    2180 G4ElectroNuclearCrossSection::G4ElectroNuclearCrossSection():G4VCrossSectionDataSet(Default_Name()),
2182 currentN(0), currentZ(0), lastZ(0),lastE(0),  << 2181 currentN(0), currentZ(0), lastZ(0),
2183 mNeut(neutron_mass_c2), mProt(proton_mass_c2) << 2182 lastE(0), lastSig(0), lastG(0), lastL(0), mNeut(G4NucleiProperties::GetNuclearMass(1,0)), mProt(G4NucleiProperties::GetNuclearMass(1,1))
2184 {                                                2183 {
2185     SetForAllAtomsAndEnergies(true);          << 
2186     //Initialize caches                          2184     //Initialize caches
2187     lastUsedCacheEl = new cacheEl_t();        << 2185     lastUsedCacheEl = new cacheEl_t;
2188     nistmngr = G4NistManager::Instance();        2186     nistmngr = G4NistManager::Instance();
2189                                                  2187     
2190     for (G4int i=0;i<120;i++)                    2188     for (G4int i=0;i<120;i++)
2191     {                                            2189     {
2192         cache.push_back(nullptr);             << 2190         cache.push_back(0);
2193     }                                            2191     }
2194                                                  2192     
2195 }                                                2193 }
2196                                                  2194 
2197 G4ElectroNuclearCrossSection::~G4ElectroNucle    2195 G4ElectroNuclearCrossSection::~G4ElectroNuclearCrossSection()
2198 {                                                2196 {
2199      std::vector<cacheEl_t*>::iterator it = c    2197      std::vector<cacheEl_t*>::iterator it = cache.begin();
2200      while ( it != cache.end() )  /* Loop che << 2198      while ( it != cache.end() )
2201      {                                           2199      {
2202          if ( *it ) {                         << 2200      delete[] (*it)->J1; (*it)->J1 = 0;
2203              delete[] (*it)->J1; (*it)->J1 =  << 2201      delete[] (*it)->J2; (*it)->J2 = 0;
2204              delete[] (*it)->J2; (*it)->J2 =  << 2202      delete[] (*it)->J3; (*it)->J3 = 0;
2205              delete[] (*it)->J3; (*it)->J3 =  << 
2206              delete *it;                      << 
2207          }                                    << 
2208      ++it;                                       2203      ++it;
2209      }                                           2204      }
2210      cache.clear();                              2205      cache.clear();
2211      delete lastUsedCacheEl;                  << 
2212 }                                                2206 }
2213                                                  2207 
2214 G4double G4ElectroNuclearCrossSection::HighEn << 2208 inline G4double G4ElectroNuclearCrossSection::HighEnergyJ1(G4double lE)
2215 {                                                2209 {
2216     return ha*(lE*lE-lEMa2)-ab*(lE-lEMa)-cd*( << 2210     return ha*(lE*lE-lEMa2)-ab*(lE-lEMa)-cd*(std::exp(-reg*lE)-ele);
2217 }                                                2211 }
2218                                                  2212 
2219 G4double G4ElectroNuclearCrossSection::HighEn << 2213 inline G4double G4ElectroNuclearCrossSection::HighEnergyJ2(G4double lE, G4double E)
2220 {                                                2214 {
2221     return poc*((lE-1.)*E-le1)-ab*(E-EMa)+cd1 << 2215     return poc*((lE-1.)*E-le1)-ab*(E-EMa)+cd1*(std::exp(d1*lE)-ele1);
2222 }                                                2216 }
2223                                                  2217 
2224 G4double G4ElectroNuclearCrossSection::HighEn << 2218 inline G4double G4ElectroNuclearCrossSection::HighEnergyJ3(G4double lE, G4double E2)
2225 {                                                2219 {
2226     return ha*((lE-.5)*E2-leh)-hab*(E2-EMa2)+ << 2220     return ha*((lE-.5)*E2-leh)-hab*(E2-EMa2)+cd2*(std::exp(d2*lE)-ele2);
2227 }                                                2221 }
2228                                                  2222 
2229 G4double G4ElectroNuclearCrossSection::DFun(G << 2223 inline G4double
                                                   >> 2224 G4ElectroNuclearCrossSection::DFun(G4double x)
2230 {                                                2225 {
2231     G4double y=G4Exp(x-lastG-lmel);           << 2226     G4double y=std::exp(x-lastG-lmel);             // y for the x
2232     G4double flux=lastG*(2.-y*(2.-y))-1.;        2227     G4double flux=lastG*(2.-y*(2.-y))-1.;          // flux factor
2233     return (poc*(x-pos)+shd*G4Exp(-reg*x))*fl << 2228     return (poc*(x-pos)+shd*std::exp(-reg*x))*flux;
2234 }                                                2229 }
2235                                                  2230 
2236 G4double G4ElectroNuclearCrossSection::Fun(G4 << 2231 inline G4double
                                                   >> 2232 G4ElectroNuclearCrossSection::Fun(G4double x)
2237 {                                                2233 {
2238     // Integrated PhoNuc cross section           2234     // Integrated PhoNuc cross section
2239     G4double dlg1=lastG+lastG-1.;                2235     G4double dlg1=lastG+lastG-1.;
2240     G4double lgoe=lastG/lastE;                   2236     G4double lgoe=lastG/lastE;
2241     G4double HE2=HighEnergyJ2(x, G4Exp(x));   << 2237     G4double HE2=HighEnergyJ2(x, std::exp(x));
2242     return dlg1*HighEnergyJ1(x)-lgoe*(HE2+HE2 << 2238     return dlg1*HighEnergyJ1(x)-lgoe*(HE2+HE2-HighEnergyJ3(x, std::exp(2*x))/lastE);
2243 }                                                2239 }
2244                                                  2240 
2245 void                                             2241 void
2246 G4ElectroNuclearCrossSection::CrossSectionDes    2242 G4ElectroNuclearCrossSection::CrossSectionDescription(std::ostream& outFile) const
2247 {                                                2243 {
2248     outFile << "G4ElectroNuclearCrossSection     2244     outFile << "G4ElectroNuclearCrossSection provides the total inelastic\n"
2249     << "cross section for e- and e+ interacti    2245     << "cross section for e- and e+ interactions with nuclei.  The\n"
2250     << "cross sections are retrieved from a t    2246     << "cross sections are retrieved from a table which is\n"
2251     << "generated using the equivalent photon    2247     << "generated using the equivalent photon approximation.  In\n"
2252     << "this approximation real gammas are pr    2248     << "this approximation real gammas are produced from the virtual\n"
2253     << "ones generated at the electromagnetic    2249     << "ones generated at the electromagnetic vertex.  This cross\n"
2254     << "section set is valid for incident ele    2250     << "section set is valid for incident electrons and positrons at\n"
2255     << "all energies.\n";                        2251     << "all energies.\n";
2256 }                                                2252 }
2257                                                  2253 
2258 G4bool G4ElectroNuclearCrossSection::IsElemen << 2254 G4bool G4ElectroNuclearCrossSection::IsElementApplicable(const G4DynamicParticle* /*aParticle*/, G4int /*Z*/, const G4Material*)
2259 {                                                2255 {
2260   return true;                                << 2256     return true;
2261 }                                                2257 }
2262                                                  2258 
                                                   >> 2259 
2263 G4double G4ElectroNuclearCrossSection::GetEle    2260 G4double G4ElectroNuclearCrossSection::GetElementCrossSection(const G4DynamicParticle* aPart, G4int ZZ, const G4Material*)
2264 {                                                2261 {
2265     const G4double Energy = aPart->GetKinetic << 2262     const G4double Energy = aPart->GetKineticEnergy()/MeV; // Energy of the electron
2266                                                  2263 
2267     if (Energy <= sLowEnergyLimit || ZZ >= 12 << 2264     if (Energy<=EMi) return 0.;              // Energy is below the minimum energy in the table
2268                                                  2265     
2269     if(ZZ!=lastZ)      // This nucleus was no    2266     if(ZZ!=lastZ)      // This nucleus was not the last used element
2270     {                                            2267     {
2271         lastE    = 0.;                           2268         lastE    = 0.;                       // New history in the electron Energy
2272         lastG    = 0.;                           2269         lastG    = 0.;                       // New history in the photon Energy
2273         lastZ = ZZ;                              2270         lastZ = ZZ;
2274                                                  2271         
2275         //key to search in cache                 2272         //key to search in cache
2276         if(!cache[ZZ]){                          2273         if(!cache[ZZ]){
2277             lastUsedCacheEl->J1 = new G4doubl    2274             lastUsedCacheEl->J1 = new G4double[nE];  // Allocate memory for the new J1 function
2278             lastUsedCacheEl->J2 = new G4doubl    2275             lastUsedCacheEl->J2 = new G4double[nE];  // Allocate memory for the new J2 function
2279             lastUsedCacheEl->J3 = new G4doubl    2276             lastUsedCacheEl->J3 = new G4double[nE];  // Allocate memory for the new J3 function
2280             G4double Aa = nistmngr->GetAtomic    2277             G4double Aa = nistmngr->GetAtomicMassAmu(ZZ); // average A
2281             G4int N = (G4int)Aa - ZZ;            2278             G4int N = (G4int)Aa - ZZ;
2282             lastUsedCacheEl->F  = GetFunction    2279             lastUsedCacheEl->F  = GetFunctions(Aa,lastUsedCacheEl->J1,lastUsedCacheEl->J2,lastUsedCacheEl->J3); // new ZeroPos and filling of J-functions
2283             lastUsedCacheEl->H  = alop*Aa*(1. << 2280             lastUsedCacheEl->H  = alop*Aa*(1.-.072*std::log(Aa));// corresponds to lastSP from G4PhotonuclearCrossSection
2284             lastUsedCacheEl->TH = ThresholdEn    2281             lastUsedCacheEl->TH = ThresholdEnergy(ZZ, N); // The last Threshold Energy
2285             cacheEl_t* new_el = new cacheEl_t    2282             cacheEl_t* new_el = new cacheEl_t(*lastUsedCacheEl);
2286             cache[ZZ] = new_el;                  2283             cache[ZZ] = new_el;
2287         }                                        2284         }
2288         else                                     2285         else
2289         { //found in cache                       2286         { //found in cache
2290             const cacheEl_t& el = *(cache[ZZ]    2287             const cacheEl_t& el = *(cache[ZZ]);
2291             lastUsedCacheEl->F  = el.F;          2288             lastUsedCacheEl->F  = el.F;
2292             lastUsedCacheEl->TH = el.TH;         2289             lastUsedCacheEl->TH = el.TH;
2293             lastUsedCacheEl->H  = el.H;          2290             lastUsedCacheEl->H  = el.H;
2294             lastUsedCacheEl->J1 = el.J1;         2291             lastUsedCacheEl->J1 = el.J1;
2295             lastUsedCacheEl->J2 = el.J2;         2292             lastUsedCacheEl->J2 = el.J2;
2296             lastUsedCacheEl->J3 = el.J3;         2293             lastUsedCacheEl->J3 = el.J3;
2297         }                                        2294         }
2298     }                                            2295     }
2299     else                                         2296     else
2300     { //current isotope is the same as previo    2297     { //current isotope is the same as previous one
2301         if ( lastE == Energy ) return lastSig    2298         if ( lastE == Energy ) return lastSig*millibarn; // Don't calc. same CS twice
2302     }                                            2299     }
2303     //End of optimization: now lastUsedCacheE    2300     //End of optimization: now lastUsedCacheEl structure contains the correct data for this isotope
2304                                                  2301 
2305     // ============================== NOW Cal    2302     // ============================== NOW Calculate the Cross Section ==========================
2306     lastE=Energy;                          //    2303     lastE=Energy;                          // lastE - the electron energy
2307                                                  2304     
2308     if ( Energy <= lastUsedCacheEl->TH ) // c    2305     if ( Energy <= lastUsedCacheEl->TH ) // check that the eE is higher than the ThreshE
2309     {                                            2306     {
2310         lastSig=0.;                              2307         lastSig=0.;
2311         return 0.;                               2308         return 0.;
2312     }                                            2309     }
2313                                                  2310     
2314     G4double lE=G4Log(Energy);                << 2311     G4double lE=std::log(Energy);               // std::log(eE) (it is necessary at this point for the fit)
2315                                                  2312 
2316     lastG=lE-lmel;                         // << 2313     lastG=lE-lmel;                         // Gamma of the electron (used to recover std::log(eE))
2317     G4double dlg1=lastG+lastG-1.;                2314     G4double dlg1=lastG+lastG-1.;
2318     G4double lgoe=lastG/lastE;                   2315     G4double lgoe=lastG/lastE;
2319     if(lE<lEMa) // Linear fit is made explici    2316     if(lE<lEMa) // Linear fit is made explicitly to fix the last bin for the randomization
2320   {                                              2317   {
2321         G4double shift=(lE-lEMi)/dlnE;           2318         G4double shift=(lE-lEMi)/dlnE;
2322         G4int    blast=static_cast<G4int>(shi << 2319         G4int    blast=static_cast<int>(shift);
2323         if(blast<0)   blast=0;                   2320         if(blast<0)   blast=0;
2324         if(blast>=mLL) blast=mLL-1;           << 2321         if(blast>=mL) blast=mL-1;
2325         shift-=blast;                            2322         shift-=blast;
2326         lastL=blast+1;                           2323         lastL=blast+1;
2327         G4double YNi=dlg1*lastUsedCacheEl->J1    2324         G4double YNi=dlg1*lastUsedCacheEl->J1[blast]-lgoe*(lastUsedCacheEl->J2[blast]+lastUsedCacheEl->J2[blast]-lastUsedCacheEl->J3[blast]/lastE);
2328         G4double YNj=dlg1*lastUsedCacheEl->J1    2325         G4double YNj=dlg1*lastUsedCacheEl->J1[lastL]-lgoe*(lastUsedCacheEl->J2[lastL]+lastUsedCacheEl->J2[lastL]-lastUsedCacheEl->J3[lastL]/lastE);
2329         lastSig= YNi+shift*(YNj-YNi);            2326         lastSig= YNi+shift*(YNj-YNi);
2330         if(lastSig>YNj)lastSig=YNj;              2327         if(lastSig>YNj)lastSig=YNj;
2331     }                                            2328     }
2332     else                                         2329     else
2333   {                                              2330   {
2334         lastL=mLL;                            << 2331         lastL=mL;
2335                                                  2332         
2336         G4double term1=lastUsedCacheEl->J1[mL << 2333         G4double term1=lastUsedCacheEl->J1[mL]+lastUsedCacheEl->H*HighEnergyJ1(lE);
2337                                                  2334         
2338         G4double term2=lastUsedCacheEl->J2[mL << 2335         G4double term2=lastUsedCacheEl->J2[mL]+lastUsedCacheEl->H*HighEnergyJ2(lE, Energy);
2339                                                  2336         
2340         G4double En2 = Energy*Energy;            2337         G4double En2 = Energy*Energy;
2341         G4double term3=lastUsedCacheEl->J3[mL << 2338         G4double term3=lastUsedCacheEl->J3[mL]+lastUsedCacheEl->H*HighEnergyJ3(lE, En2);
2342                                                  2339 
2343         lastSig=dlg1*term1-lgoe*(term2+term2-    2340         lastSig=dlg1*term1-lgoe*(term2+term2-term3/lastE);
2344     }                                            2341     }
2345                                                  2342     
2346     if(lastSig<0.) lastSig = 0.;                 2343     if(lastSig<0.) lastSig = 0.;
2347                                                  2344 
2348     return lastSig*millibarn;                    2345     return lastSig*millibarn;
2349 }                                                2346 }
2350                                                  2347 
2351 // Gives the threshold energy for different n    2348 // Gives the threshold energy for different nuclei (min of p- and n-threshold)
2352 G4double G4ElectroNuclearCrossSection::Thresh    2349 G4double G4ElectroNuclearCrossSection::ThresholdEnergy(G4int Z, G4int N)
2353 {                                                2350 {
2354     // ---------                                 2351     // ---------
2355                                                  2352     
2356     G4int Aa=Z+N;                                2353     G4int Aa=Z+N;
2357     if(Aa<1) return infEn;                       2354     if(Aa<1) return infEn;
2358     else if(Aa==1) return 134.9766; // Pi0 th    2355     else if(Aa==1) return 134.9766; // Pi0 threshold for the nucleon
2359                                                  2356     
2360     G4double mT= 0.;                             2357     G4double mT= 0.;
2361     if(G4NucleiProperties::IsInStableTable(Aa    2358     if(G4NucleiProperties::IsInStableTable(Aa,Z)) mT = G4NucleiProperties::GetNuclearMass(Aa,Z);
2362     // If it is not in the Table of Stable Nu    2359     // If it is not in the Table of Stable Nuclei, then the Threshold=inf
2363     else return infEn;                           2360     else return infEn;
2364     // ---------                                 2361     // ---------
2365     G4double mP= infEn;                          2362     G4double mP= infEn;
2366     //if(Z) mP= G4QPDGCode(111).GetNuclMass(Z    2363     //if(Z) mP= G4QPDGCode(111).GetNuclMass(Z-1,N,0);
2367     if(Z&&G4NucleiProperties::IsInStableTable    2364     if(Z&&G4NucleiProperties::IsInStableTable(Aa-1,Z-1)) mP = G4NucleiProperties::GetNuclearMass(Aa-1,Z-1);
2368     else return infEn;                           2365     else return infEn;
2369     G4double mN= infEn;                          2366     G4double mN= infEn;
2370     //if(N) mN= G4QPDGCode(111).GetNuclMass(Z    2367     //if(N) mN= G4QPDGCode(111).GetNuclMass(Z,N-1,0);
2371     if(N&&G4NucleiProperties::IsInStableTable    2368     if(N&&G4NucleiProperties::IsInStableTable(Aa-1,Z)) mN = G4NucleiProperties::GetNuclearMass(Aa-1,Z);
2372     else return infEn;                           2369     else return infEn;
2373     G4double dP= mP+mProt-mT;                    2370     G4double dP= mP+mProt-mT;
2374     G4double dN= mN+mNeut-mT;                    2371     G4double dN= mN+mNeut-mT;
2375     if(dP<dN)dN=dP;                              2372     if(dP<dN)dN=dP;
2376     return dN;                                   2373     return dN;
2377 }                                                2374 }
2378                                                  2375 
2379                                                  2376 
2380 // Calculate the functions for the G4Log(A)   << 2377 // Calculate the functions for the std::log(A)
2381 G4int G4ElectroNuclearCrossSection::GetFuncti    2378 G4int G4ElectroNuclearCrossSection::GetFunctions(G4double a, G4double* xx, G4double* yy, G4double* zz)
2382 {                                                2379 {
2383     // --------------------------------          2380     // --------------------------------
2384     G4int r=-1;                             /    2381     G4int r=-1;                             // Low channel for J-functions
2385                                               << 2382     if(a<=.9999 || a>238.49)                // Plutonium 244 is forbidden
2386     //AR-24Apr2018 Switch to allow transurani << 
2387     const G4bool isHeavyElementAllowed = true << 
2388     if(a<=.9999 || ( !isHeavyElementAllowed & << 
2389     {                                            2383     {
2390         G4cout<<"***G4ElectroNuclearCrossSect    2384         G4cout<<"***G4ElectroNuclearCrossSection::GetFunctions: A="<<a<<"(?). No CS returned!"<<G4endl;
2391         return r;                                2385         return r;
2392     }                                            2386     }
2393     G4int iA=static_cast<G4int>(a+.499);    /    2387     G4int iA=static_cast<G4int>(a+.499);    // Make the round integer of the atomic number
2394     G4double ai=iA;                              2388     G4double ai=iA;
2395     if(a!=ai) a=ai;                              2389     if(a!=ai) a=ai;
2396     for(G4int i=0; i<nN; i++)                    2390     for(G4int i=0; i<nN; i++)
2397     {                                            2391     {
2398         if(std::abs(a-A[i])<.0005)               2392         if(std::abs(a-A[i])<.0005)                 // A coincide with one of the basic A's -> get from Tab
2399         {                                        2393         {
2400             for(G4int k=0; k<nE; k++)            2394             for(G4int k=0; k<nE; k++)
2401             {                                    2395             {
2402                 xx[k]=P0[i][k];                  2396                 xx[k]=P0[i][k];                    // J0
2403                 yy[k]=P1[i][k];                  2397                 yy[k]=P1[i][k];                    // J1
2404                 zz[k]=P2[i][k];                  2398                 zz[k]=P2[i][k];                    // J2
2405             }                                    2399             }
2406             r=LL[i];                          << 2400             r=L[i];                             // Low channel for the J-functions
2407         }                                        2401         }
2408         if(r<0)                                  2402         if(r<0)                               // Not the basic A-value -> must be calculated
2409         {                                        2403         {
2410             G4int k=0;                           2404             G4int k=0;                          // !! To be good for different compilers !!
2411             for(k=1; k<nN; k++)if(a<A[k]) bre    2405             for(k=1; k<nN; k++)if(a<A[k]) break;// Find the top basic A-value
2412             if(k<1) k=1;                         2406             if(k<1) k=1;                        // Extrapolation from the first bin (D)
2413             if(k>=nN) k=nN-1;                    2407             if(k>=nN) k=nN-1;                   // Extrapolation from the last bin (U)
2414             G4int     k1=k-1;                    2408             G4int     k1=k-1;
2415             G4double  xi=A[k1];                  2409             G4double  xi=A[k1];
2416             G4double   b=(a-xi)/(A[k]-xi);       2410             G4double   b=(a-xi)/(A[k]-xi);
2417             for(G4int q=0; q<nE; q++)            2411             for(G4int q=0; q<nE; q++)
2418             {                                    2412             {
2419                 xi=P0[k1][q];                    2413                 xi=P0[k1][q];
2420                 xx[q]=xi+(P0[k][q]-xi)*b;        2414                 xx[q]=xi+(P0[k][q]-xi)*b;
2421                 G4double yi=P1[k1][q];           2415                 G4double yi=P1[k1][q];
2422                 yy[q]=yi+(P1[k][q]-yi)*b;        2416                 yy[q]=yi+(P1[k][q]-yi)*b;
2423                 G4double zi=P2[k1][q];           2417                 G4double zi=P2[k1][q];
2424                 zz[q]=zi+(P2[k][q]-zi)*b;        2418                 zz[q]=zi+(P2[k][q]-zi)*b;
2425             }                                    2419             }
2426             r=LL[k];                          << 2420             r=L[k];
2427             if(LL[k1]<r) r=LL[k1];            << 2421             if(L[k1]<r) r=L[k1];
2428         }                                        2422         }
2429     }                                            2423     }
2430     return r;                                    2424     return r;
2431 }                                                2425 }
2432                                                  2426 
2433 G4double G4ElectroNuclearCrossSection::GetEqu    2427 G4double G4ElectroNuclearCrossSection::GetEquivalentPhotonEnergy()
2434 {                                                2428 {
2435     if(lastSig <= 0.0) { return 0.0; }  // VI    2429     if(lastSig <= 0.0) { return 0.0; }  // VI
2436     G4double phLE = 0.;                       << 2430     G4double phLE = 0.;                        // Prototype of the std::log(nu=E_gamma)
2437     G4double Y[nE] = {0.0};                      2431     G4double Y[nE] = {0.0};                    // Prepare the array for randomization
2438                                                  2432     
2439     G4double lastLE=lastG+lmel;   // recover  << 2433     G4double lastLE=lastG+lmel;   // recover std::log(eE) from the gamma (lastG)
2440     G4double dlg1=lastG+lastG-1.;                2434     G4double dlg1=lastG+lastG-1.;
2441     G4double lgoe=lastG/lastE;                   2435     G4double lgoe=lastG/lastE;
2442     for (G4int i=lastUsedCacheEl->F;i<=lastL;    2436     for (G4int i=lastUsedCacheEl->F;i<=lastL;i++) {
2443         Y[i] = dlg1*lastUsedCacheEl->J1[i]-lg    2437         Y[i] = dlg1*lastUsedCacheEl->J1[i]-lgoe*(lastUsedCacheEl->J2[i]+lastUsedCacheEl->J2[i]-lastUsedCacheEl->J3[i]/lastE);
2444         if(Y[i] < 0.0) { Y[i] = 0.0; }           2438         if(Y[i] < 0.0) { Y[i] = 0.0; }
2445     }                                            2439     }
2446     // Tempory IF of H.P.: delete it if the *    2440     // Tempory IF of H.P.: delete it if the *HP* err message does not
2447     // show up M.K.                              2441     // show up M.K.
2448     if(lastSig>0.99*Y[lastL] && lastL<mLL &&  << 2442     if(lastSig>0.99*Y[lastL] && lastL<mL && Y[lastL]<1.E-30)
2449     {                                            2443     {
2450         G4cerr << "*HP*G4ElNucCS::GetEqPhotE:    2444         G4cerr << "*HP*G4ElNucCS::GetEqPhotE:S=" << lastSig <<">" << Y[lastL]
2451         << ",l=" << lastL << ">" << mLL << G4 << 2445         << ",l=" << lastL << ">" << mL << G4endl;
2452         if(lastSig <= 0.0) { return 0.0; }  /    2446         if(lastSig <= 0.0) { return 0.0; }  // VI
2453     }                                            2447     }
2454     G4double ris = lastSig*G4UniformRand(); / << 2448     G4double ris = lastSig*G4UniformRand(); // Sig can be > Y[lastL = mL], then it
2455     // is in the funct. region                   2449     // is in the funct. region
2456                                                  2450     
2457     if (ris < Y[lastL]) {               // Se    2451     if (ris < Y[lastL]) {               // Search the table
2458         G4int j = lastUsedCacheEl->F;            2452         G4int j = lastUsedCacheEl->F;
2459         G4double Yj = Y[j];               //     2453         G4double Yj = Y[j];               // It must be 0 (sometimes just very small)
2460         while (ris > Yj && j < lastL) {   //  << 2454         while (ris > Yj && j < lastL) {   // Associative search
2461             j++;                                 2455             j++;
2462             Yj = Y[j];                      /    2456             Yj = Y[j];                      // Yj is first value above ris
2463         }                                        2457         }
2464         G4int j1 = j-1;                          2458         G4int j1 = j-1;
2465         G4double Yi = Y[j1];              //     2459         G4double Yi = Y[j1];              // Previous value is below ris
2466         phLE = lEMi + (j1 + (ris-Yi)/(Yj-Yi)     2460         phLE = lEMi + (j1 + (ris-Yi)/(Yj-Yi) )*dlnE;
2467     } else {                            // Se    2461     } else {                            // Search with the function
2468         if (lastL < mLL) G4cerr << "**G4EleNu << 2462         if (lastL < mL) G4cerr << "**G4EleNucCS::GetEfPhE:L=" << lastL << ",S="
2469             << lastSig << ",Y=" << Y[lastL] <    2463             << lastSig << ",Y=" << Y[lastL] << G4endl;
2470         G4double f = (ris-Y[lastL])/lastUsedC    2464         G4double f = (ris-Y[lastL])/lastUsedCacheEl->H;    // The scaled residual value of the cross-section integral
2471         phLE=SolveTheEquation(f);           /    2465         phLE=SolveTheEquation(f);           // Solve the equation to find theLog(phE) (compare with lastLE)
2472     }                                            2466     }
2473                                                  2467     
2474     if (phLE>lastLE) {                           2468     if (phLE>lastLE) {
2475         G4cerr << "***G4ElectroNuclearCS::Get    2469         G4cerr << "***G4ElectroNuclearCS::GetEquPhotE:N=" << currentN << ",Z="
2476         << currentZ << ", lpE" << phLE << ">l    2470         << currentZ << ", lpE" << phLE << ">leE" << lastLE << ",Sig="
2477         << lastSig << ",rndSig=" << ris << ",    2471         << lastSig << ",rndSig=" << ris << ",Beg=" << lastUsedCacheEl->F << ",End="
2478         << lastL << ",Y=" << Y[lastL] << G4en    2472         << lastL << ",Y=" << Y[lastL] << G4endl;
2479         if(lastLE<7.2) phLE=G4Log(G4Exp(lastL << 2473         if(lastLE<7.2) phLE=std::log(std::exp(lastLE)-.511);
2480         else phLE=7.;                            2474         else phLE=7.;
2481     }                                            2475     }
2482     return G4Exp(phLE);                       << 2476     return std::exp(phLE);
2483 }                                                2477 }
2484                                                  2478 
2485                                                  2479 
2486 G4double G4ElectroNuclearCrossSection::SolveT    2480 G4double G4ElectroNuclearCrossSection::SolveTheEquation(G4double f)
2487 {                                                2481 {
2488     G4double lastLE=lastG+lmel;               << 2482     G4double lastLE=lastG+lmel;                          // recover std::log(eE) from the gamma (lastG)
2489     G4double topLim=lastLE-.001;              << 2483     G4double topLim=lastLE-.001;                         // maximum std::log(phE) for equivalent photons
2490     G4double rE=EMa/G4Exp(lastLE);            << 2484     G4double rE=EMa/std::exp(lastLE);                         // r=EMa/Eel to make the firs guess
2491     G4double x=lEMa+f/phte/(lastG*(2.-rE*(2.-    2485     G4double x=lEMa+f/phte/(lastG*(2.-rE*(2.-rE))-1.);         // First guess (the first step from the edge)
2492     if(x>topLim) x=topLim;                       2486     if(x>topLim) x=topLim;
2493     for(G4int i=0; i<imax; i++)                  2487     for(G4int i=0; i<imax; i++)
2494     {                                            2488     {
2495         G4double fx=Fun(x);                      2489         G4double fx=Fun(x);
2496         G4double df=DFun(x);                     2490         G4double df=DFun(x);
2497         G4double d=(f-fx)/df;                    2491         G4double d=(f-fx)/df;
2498         x=x+d;                                   2492         x=x+d;
2499         if(x>=lastLE)                            2493         if(x>=lastLE)
2500         {                                        2494         {
2501             G4cerr<<"*G4ElNCS::SolveTheEq:*Co    2495             G4cerr<<"*G4ElNCS::SolveTheEq:*Correction*"<<i<<",d="<<d<<",x="<<x<<">lE="<<lastLE<<",f="<<f
2502             <<",fx="<<fx<<",df="<<df<<",A(Z="    2496             <<",fx="<<fx<<",df="<<df<<",A(Z="<<currentZ<<",N="<<currentN<<")"<<G4endl;
2503             x=topLim;                            2497             x=topLim;
2504         }                                        2498         }
2505         if(std::abs(d)<eps) break;               2499         if(std::abs(d)<eps) break;
2506         if(i+1>=imax) G4cerr<<"*G4ElNucCS::So    2500         if(i+1>=imax) G4cerr<<"*G4ElNucCS::SolveTheEq:"<<i+2<<">"<<imax<<"->Use bigger max. ln(eE)="
2507             <<lastLE<<",Z="<<currentZ<<", N="    2501             <<lastLE<<",Z="<<currentZ<<", N="<<currentN<<G4endl;
2508     }                                            2502     }
2509     return x;                                    2503     return x;
2510 }                                                2504 }
2511                                                  2505 
2512 G4double G4ElectroNuclearCrossSection::GetEqu    2506 G4double G4ElectroNuclearCrossSection::GetEquivalentPhotonQ2(G4double nu)
2513 {                                                2507 {
2514     if(lastG <= 0.0 || lastE <= 0.0) { return    2508     if(lastG <= 0.0 || lastE <= 0.0) { return 0.; } // VI
2515     if(lastSig <= 0.0) { return 0.0; }  // VI    2509     if(lastSig <= 0.0) { return 0.0; }  // VI
2516     G4double y=nu/lastE;                    /    2510     G4double y=nu/lastE;                    // Part of energy carried by the equivalent pfoton
2517     if(y>=1.-1./(lastG+lastG)) return 0.;   /    2511     if(y>=1.-1./(lastG+lastG)) return 0.;   // The region where the method does not work
2518     G4double y2=y*y;                        /    2512     G4double y2=y*y;                        // Squared photonic part of energy
2519     G4double ye=1.-y;                       /    2513     G4double ye=1.-y;                       // Part of energy carried by the secondary electron
2520     G4double Qi2=mel2*y2/ye;                /    2514     G4double Qi2=mel2*y2/ye;                // Minimum Q2
2521     G4double Qa2=4*lastE*lastE*ye;          /    2515     G4double Qa2=4*lastE*lastE*ye;          // Maximum Q2
2522     G4double iar=Qi2/Qa2;                   /    2516     G4double iar=Qi2/Qa2;                   // Q2min/Q2max ratio
2523     G4double Dy=ye+.5*y2;                   /    2517     G4double Dy=ye+.5*y2;                   // D(y) function
2524     G4double Py=ye/Dy;                      /    2518     G4double Py=ye/Dy;                      // P(y) function
2525     G4double ePy=1.-G4Exp(Py);                << 2519     G4double ePy=1.-std::exp(Py);                // 1-std::exp(P(y)) part
2526     G4double Uy=Py*(1.-iar);                /    2520     G4double Uy=Py*(1.-iar);                // U(y) function
2527     G4double Fy=(ye+ye)*(1.+ye)*iar/y2;     /    2521     G4double Fy=(ye+ye)*(1.+ye)*iar/y2;     // F(y) function
2528     G4double fr=iar/(1.-ePy*iar);           /    2522     G4double fr=iar/(1.-ePy*iar);           // Q-fraction
2529     if(Fy<=-fr)                                  2523     if(Fy<=-fr)
2530     {                                            2524     {
2531         return 0.;                               2525         return 0.;
2532     }                                            2526     }
2533     G4double LyQa2=G4Log(Fy+fr);              << 2527     G4double LyQa2=std::log(Fy+fr);              // L(y,Q2max) function
2534     G4bool cond=true;                            2528     G4bool cond=true;
2535     G4int maxTry=3;                              2529     G4int maxTry=3;
2536     G4int cntTry=0;                              2530     G4int cntTry=0;
2537     G4double Q2=Qi2;                             2531     G4double Q2=Qi2;
2538     while(cond&&cntTry<maxTry)             // << 2532     while(cond&&cntTry<maxTry)             // The loop to avoid x>1.
2539     {                                            2533     {
2540         G4double R=G4UniformRand();              2534         G4double R=G4UniformRand();           // Random number (0,1)
2541         Q2=Qi2*(ePy+1./(G4Exp(R*LyQa2-(1.-R)* << 2535         Q2=Qi2*(ePy+1./(std::exp(R*LyQa2-(1.-R)*Uy)-Fy));
2542         cntTry++;                                2536         cntTry++;
2543         cond = Q2>1878.*nu;                      2537         cond = Q2>1878.*nu;
2544     }                                            2538     }
2545     if(Q2<Qi2)                                   2539     if(Q2<Qi2)
2546     {                                            2540     {
2547         return Qi2;                              2541         return Qi2;
2548     }                                            2542     }
2549     if(Q2>Qa2)                                   2543     if(Q2>Qa2)
2550     {                                            2544     {
2551         return Qa2;                              2545         return Qa2;
2552     }                                            2546     }
2553     return Q2;                                   2547     return Q2;
2554 }                                                2548 }
2555                                                  2549 
2556 G4double G4ElectroNuclearCrossSection::GetVir    2550 G4double G4ElectroNuclearCrossSection::GetVirtualFactor(G4double nu, G4double Q2)
2557 {                                                2551 {
2558     if(nu <= 0.0 || Q2 <= 0.0) { return 0.0;     2552     if(nu <= 0.0 || Q2 <= 0.0) { return 0.0; }
2559     //G4double x=Q2/dM/nu;                  /    2553     //G4double x=Q2/dM/nu;                  // Direct x definition
2560     G4double K=nu-Q2/dM;                    /    2554     G4double K=nu-Q2/dM;                    // K=nu*(1-x)
2561     if(K <= 0.) // VI                            2555     if(K <= 0.) // VI
2562     {                                            2556     {
2563         return 0.;                               2557         return 0.;
2564     }                                            2558     }
2565     G4double lK=G4Log(K);                     << 2559     G4double lK=std::log(K);                     // ln(K)
2566     G4double x=1.-K/nu;                     /    2560     G4double x=1.-K/nu;                     // This definitin saves one div.
2567     G4double GD=1.+Q2/Q02;                  /    2561     G4double GD=1.+Q2/Q02;                  // Reversed nucleonic form-factor
2568     G4double b=G4Exp(bp*(lK-blK0));           << 2562     G4double b=std::exp(bp*(lK-blK0));           // b-factor
2569     G4double c=G4Exp(cp*(lK-clK0));           << 2563     G4double c=std::exp(cp*(lK-clK0));           // c-factor
2570     G4double r=.5*G4Log(Q2+nu*nu)-lK;         << 2564     G4double r=.5*std::log(Q2+nu*nu)-lK;         // r=.5*std::log((Q^2+nu^2)/K^2)
2571     G4double ef=G4Exp(r*(b-c*r*r));           << 2565     G4double ef=std::exp(r*(b-c*r*r));           // exponential factor
2572     return (1.-x)*ef/GD/GD;                      2566     return (1.-x)*ef/GD/GD;
2573 }                                                2567 }
2574                                                  2568