51     SCRN [1][1]=  0.5   ; 
SCRN [2][1] = 0.0145;
 
   52     SCRN [1][2]=  1.0   ; 
SCRN [2][2] = 0.0490;
 
   53     SCRN [1][3]=  2.0   ; 
SCRN [2][3] = 0.1400;
 
   54     SCRN [1][4]=  4.0   ; 
SCRN [2][4] = 0.3312;
 
   55     SCRN [1][5]=  8.0   ; 
SCRN [2][5] = 0.6758;
 
   56     SCRN [1][6]=  15.0  ; 
SCRN [2][6] = 1.126;
 
   57     SCRN [1][7]=  20.0  ; 
SCRN [2][7] = 1.367;
 
   58     SCRN [1][8]=  25.0  ; 
SCRN [2][8] = 1.564;
 
   59     SCRN [1][9]=  30.0  ; 
SCRN [2][9] = 1.731;
 
   60     SCRN [1][10]= 35.0  ; 
SCRN [2][10]= 1.875;
 
   61     SCRN [1][11]= 40.0  ; 
SCRN [2][11]= 2.001;
 
   62     SCRN [1][12]= 45.0  ; 
SCRN [2][12]= 2.114;
 
   63     SCRN [1][13]= 50.0  ; 
SCRN [2][13]= 2.216;
 
   64     SCRN [1][14]= 60.0  ; 
SCRN [2][14]= 2.393;
 
   65     SCRN [1][15]= 70.0  ; 
SCRN [2][15]= 2.545;
 
   66     SCRN [1][16]= 80.0  ; 
SCRN [2][16]= 2.676;
 
   67     SCRN [1][17]= 90.0  ; 
SCRN [2][17]= 2.793;
 
   68     SCRN [1][18]= 100.0 ; 
SCRN [2][18]= 2.897;
 
   69     SCRN [1][19]= 120.0 ; 
SCRN [2][19]= 3.078;   
 
   93   G4double aLept1E = aLept0E - aGammaE;
 
  101   G4double Lept0E = aLept0E/m0_c2+1.,   Lept0E2 = Lept0E * Lept0E ;
 
  102   G4double GammaE = aGammaE/m0_c2,      GammaE2 = GammaE * GammaE ;
 
  103   G4double Lept1E = aLept1E/m0_c2+1.,   Lept1E2 = Lept1E * Lept1E ;
 
  110   G4double TMom = std::sqrt(Lept0E2 -1.)* sintheta;
 
  112   G4double Xsi  = 1./(1.+u2)                      , Xsi2 = Xsi * Xsi  ; 
 
  118     Lept0E * Lept1E * Xsi / (121. * GammaE); 
 
  122     GG = std::log(2.* Lept0E * Lept1E / GammaE) - 2. - 
fCoul; 
 
  124   else if ( delta < 120) {
 
  125     for (
G4int j=2; j<=19; j++)  {
 
  126       if(
SCRN[1][j] >= delta)    {
 
  127         GG =std::log(2 * Lept0E * Lept1E / GammaE) - 2 - 
fCoul 
  135     G4double alpha_sc  = (111 * std::pow(
theZ, -1./3.)) / Xsi;
 
  136     GG = std::log(alpha_sc)- 2 - 
fCoul;
 
  141   G4double I_Lept   = (Lept0E2 + Lept1E2) * (3.+2.*GG) - 2 * Lept0E * Lept1E * (1. + 4. * u2 * Xsi2 * GG);
 
  142   G4double F_Lept   = Lept1E * 4. * GammaE *  u * Xsi * (1. - 2 * Xsi) * GG / I_Lept;
 
  143   G4double E_Lept   = Lept0E * 4. * GammaE *  u * Xsi * (2. * Xsi - 1.) * GG / I_Lept; 
 
  144   G4double M_Lept   = 4. * Lept0E * Lept1E * (1. + GG - 2. * Xsi2 * u2 * GG) / I_Lept ;
 
  145   G4double P_Lept   = GammaE2 * (1. + 8. * GG * (Xsi - 0.5)*(Xsi - 0.5)) / I_Lept ;
 
  147   G4double Stokes_SS1 = M_Lept * Stokes_S1 + E_Lept * Stokes_S3;
 
  148   G4double Stokes_SS2 = M_Lept * Stokes_S2 ;
 
  149   G4double Stokes_SS3 = (M_Lept + P_Lept) * Stokes_S3 + F_Lept * Stokes_S1; 
 
  156     G4cout<<
" WARNING in pol-brem theFinalLeptonPolarization \n";
 
  160       <<
"\t delta\t"<<delta
 
  169   G4double I_Gamma   = (Lept0E2 + Lept1E2)*(3+2*GG) - 2 * Lept0E * Lept1E * (1 + 4 * u2 * Xsi2 * GG);
 
  170   G4double D_Gamma   = 8 * Lept0E * Lept1E * u2 * Xsi2 * GG / I_Gamma;
 
  171   G4double L_Gamma   = GammaE * ((Lept0E + Lept1E) * (3 + 2 * GG) 
 
  172                                  - 2 * Lept1E * (1 + 4 * u2 * Xsi2 * GG))/I_Gamma;   
 
  173   G4double T_Gamma   = 4 * GammaE * Lept1E * Xsi * u * (2 * Xsi - 1) * GG / I_Gamma ;
 
  177   G4double Stokes_P3 = (Stokes_S3*L_Gamma + Stokes_S1*T_Gamma) ;
 
  186     G4cout<<
" WARNING in pol-brem theFinalGammaPolarization \n";
 
  190       <<
"\t delta\t"<<delta
 
  198   G4cout<<
"ERROR dummy routine G4PolarizedBremsstrahlungCrossSection::XSection called \n";
 
virtual G4double XSection(const G4StokesVector &pol2, const G4StokesVector &pol3)
 
G4PolarizedBremsstrahlungCrossSection()
 
static G4bool scrnInitialized
 
G4GLOB_DLL std::ostream G4cout
 
static G4double SCRN[3][20]
 
G4StokesVector theFinalLeptonPolarization
 
virtual void Initialize(G4double eps, G4double X, G4double phi, const G4StokesVector &p0, const G4StokesVector &p1, G4int flag=0)
 
G4StokesVector theFinalGammaPolarization