Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/processes/hadronic/models/coherent_elastic/src/G4NeutrinoElectronNcModel.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/models/coherent_elastic/src/G4NeutrinoElectronNcModel.cc (Version 11.3.0) and /processes/hadronic/models/coherent_elastic/src/G4NeutrinoElectronNcModel.cc (Version 11.0)


  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 //                                                 26 //
 27 // Geant4 Header : G4NeutrinoElectronNcModel       27 // Geant4 Header : G4NeutrinoElectronNcModel
 28 //                                                 28 //
 29 // Author : V.Grichine 6.4.17                      29 // Author : V.Grichine 6.4.17
 30 //                                                 30 //  
 31                                                    31 
 32 #include "G4NeutrinoElectronNcModel.hh"            32 #include "G4NeutrinoElectronNcModel.hh"
 33 #include "G4SystemOfUnits.hh"                      33 #include "G4SystemOfUnits.hh"
 34 #include "G4ParticleTable.hh"                      34 #include "G4ParticleTable.hh"
 35 #include "G4ParticleDefinition.hh"                 35 #include "G4ParticleDefinition.hh"
 36 #include "G4IonTable.hh"                           36 #include "G4IonTable.hh"
 37 #include "Randomize.hh"                            37 #include "Randomize.hh"
 38 #include "G4Electron.hh"                           38 #include "G4Electron.hh"
 39 #include "G4HadronicParameters.hh"                 39 #include "G4HadronicParameters.hh"
 40 #include "G4PhysicsModelCatalog.hh"                40 #include "G4PhysicsModelCatalog.hh"
 41                                                    41 
 42 using namespace std;                               42 using namespace std;
 43 using namespace CLHEP;                             43 using namespace CLHEP;
 44                                                    44 
 45 G4NeutrinoElectronNcModel::G4NeutrinoElectronN     45 G4NeutrinoElectronNcModel::G4NeutrinoElectronNcModel(const G4String& name) 
 46   : G4HadronElastic(name)                          46   : G4HadronElastic(name)
 47 {                                                  47 {
 48   secID = G4PhysicsModelCatalog::GetModelID( "     48   secID = G4PhysicsModelCatalog::GetModelID( "model_" + name );
 49                                                    49 
 50   SetMinEnergy( 0.0*GeV );                         50   SetMinEnergy( 0.0*GeV );
 51   SetMaxEnergy( G4HadronicParameters::Instance     51   SetMaxEnergy( G4HadronicParameters::Instance()->GetMaxEnergy() );
 52   SetLowestEnergyLimit(1.e-6*eV);                  52   SetLowestEnergyLimit(1.e-6*eV);  
 53                                                    53 
 54   theElectron = G4Electron::Electron();            54   theElectron = G4Electron::Electron();
 55   // PDG2016: sin^2 theta Weinberg                 55   // PDG2016: sin^2 theta Weinberg
 56                                                    56 
 57   fSin2tW = 0.23129; // 0.2312;                    57   fSin2tW = 0.23129; // 0.2312;
 58                                                    58 
 59   fCutEnergy = 0.; // default value                59   fCutEnergy = 0.; // default value
 60 }                                                  60 }
 61                                                    61 
 62                                                    62 
 63 G4NeutrinoElectronNcModel::~G4NeutrinoElectron     63 G4NeutrinoElectronNcModel::~G4NeutrinoElectronNcModel()
 64 {}                                                 64 {}
 65                                                    65 
                                                   >>  66 
 66 void G4NeutrinoElectronNcModel::ModelDescripti     67 void G4NeutrinoElectronNcModel::ModelDescription(std::ostream& outFile) const
 67 {                                                  68 {
 68   outFile << "G4NeutrinoElectronNcModel is a n <<  69 
 69     << "model which uses the standard model \n <<  70     outFile << "G4NeutrinoElectronNcModel is a neutrino-electron (neutral current) elastic scattering\n"
 70     << "transfer parameterization.  The model  <<  71             << "model which uses the standard model \n"
                                                   >>  72             << "transfer parameterization.  The model is fully relativistic\n";
                                                   >>  73 
 71 }                                                  74 }
 72                                                    75 
 73 //////////////////////////////////////////////     76 /////////////////////////////////////////////////////////
 74                                                    77 
 75 G4bool G4NeutrinoElectronNcModel::IsApplicable <<  78 G4bool G4NeutrinoElectronNcModel::IsApplicable(const G4HadProjectile & aTrack, 
                                                   >>  79               G4Nucleus & targetNucleus)
 76 {                                                  80 {
 77   G4bool result  = false;                          81   G4bool result  = false;
 78   G4String pName = aTrack.GetDefinition()->Get     82   G4String pName = aTrack.GetDefinition()->GetParticleName();
 79   G4double minEnergy = 0.;                     <<  83   G4double minEnergy = 0., energy = aTrack.GetTotalEnergy();
 80   G4double energy = aTrack.GetTotalEnergy();   << 
 81                                                    84 
 82   if( fCutEnergy > 0. ) // min detected recoil     85   if( fCutEnergy > 0. ) // min detected recoil electron energy
 83   {                                                86   {
 84     minEnergy = 0.5*(fCutEnergy+sqrt(fCutEnerg     87     minEnergy = 0.5*(fCutEnergy+sqrt(fCutEnergy*(fCutEnergy+2.*electron_mass_c2)));
 85   }                                                88   }
 86   if( ( pName == "nu_e"   || pName == "anti_nu     89   if( ( pName == "nu_e"   || pName == "anti_nu_e"   || 
 87         pName == "nu_mu"  || pName == "anti_nu     90         pName == "nu_mu"  || pName == "anti_nu_nu"  || 
 88         pName == "nu_tau" || pName == "anti_nu     91         pName == "nu_tau" || pName == "anti_nu_tau"   ) &&
 89         energy > minEnergy                         92         energy > minEnergy                                 )
 90   {                                                93   {
 91     result = true;                                 94     result = true;
 92   }                                                95   }
                                                   >>  96   G4int Z = targetNucleus.GetZ_asInt();
                                                   >>  97         Z *= 1;
                                                   >>  98 
 93   return result;                                   99   return result;
 94 }                                                 100 }
 95                                                   101 
 96 //////////////////////////////////////////////    102 ////////////////////////////////////////////////
 97 //                                                103 //
 98 //                                                104 //
 99                                                   105 
100 G4HadFinalState* G4NeutrinoElectronNcModel::Ap    106 G4HadFinalState* G4NeutrinoElectronNcModel::ApplyYourself(
101      const G4HadProjectile& aTrack, G4Nucleus& << 107      const G4HadProjectile& aTrack, G4Nucleus& targetNucleus)
102 {                                                 108 {
103   theParticleChange.Clear();                      109   theParticleChange.Clear();
104                                                   110 
105   const G4HadProjectile* aParticle = &aTrack;     111   const G4HadProjectile* aParticle = &aTrack;
106   G4double nuTkin = aParticle->GetKineticEnerg    112   G4double nuTkin = aParticle->GetKineticEnergy();
107                                                   113 
108   if( nuTkin <= LowestEnergyLimit() )             114   if( nuTkin <= LowestEnergyLimit() ) 
109   {                                               115   {
110     theParticleChange.SetEnergyChange(nuTkin);    116     theParticleChange.SetEnergyChange(nuTkin);
111     theParticleChange.SetMomentumChange(aTrack    117     theParticleChange.SetMomentumChange(aTrack.Get4Momentum().vect().unit());
112     return &theParticleChange;                    118     return &theParticleChange;
113   }                                               119   }
114   // sample and make final state in lab frame     120   // sample and make final state in lab frame
115                                                   121 
116   G4double eTkin = SampleElectronTkin( aPartic    122   G4double eTkin = SampleElectronTkin( aParticle );
117                                                   123 
118   if( eTkin > fCutEnergy )                        124   if( eTkin > fCutEnergy )
119   {                                               125   {
120     G4double ePlab = sqrt( eTkin*(eTkin + 2.*e    126     G4double ePlab = sqrt( eTkin*(eTkin + 2.*electron_mass_c2) );
121                                                   127 
122     G4double cost2  = eTkin*(nuTkin + electron    128     G4double cost2  = eTkin*(nuTkin + electron_mass_c2)*(nuTkin + electron_mass_c2);
123              cost2 /= nuTkin*nuTkin*(eTkin + 2    129              cost2 /= nuTkin*nuTkin*(eTkin + 2.*electron_mass_c2);
124                                                   130 
125     if( cost2 > 1. ) cost2 = 1.;                  131     if( cost2 > 1. ) cost2 = 1.;
126     if( cost2 < 0. ) cost2 = 0.;                  132     if( cost2 < 0. ) cost2 = 0.;
127                                                   133 
128     G4double cost = sqrt(cost2);                  134     G4double cost = sqrt(cost2);
129     G4double sint = std::sqrt( (1.0 - cost)*(1    135     G4double sint = std::sqrt( (1.0 - cost)*(1.0 + cost) );
130     G4double phi  = G4UniformRand()*CLHEP::two    136     G4double phi  = G4UniformRand()*CLHEP::twopi;
131                                                   137 
132     G4ThreeVector eP( sint*std::cos(phi), sint    138     G4ThreeVector eP( sint*std::cos(phi), sint*std::sin(phi), cost );
133     eP *= ePlab;                                  139     eP *= ePlab;
134     G4LorentzVector lvt2( eP, eTkin + electron    140     G4LorentzVector lvt2( eP, eTkin + electron_mass_c2 );
135     G4DynamicParticle * aSec = new G4DynamicPa    141     G4DynamicParticle * aSec = new G4DynamicParticle( theElectron, lvt2 );
136     theParticleChange.AddSecondary( aSec, secI    142     theParticleChange.AddSecondary( aSec, secID );
137                                                   143 
138     G4LorentzVector lvp1 = aParticle->Get4Mome    144     G4LorentzVector lvp1 = aParticle->Get4Momentum();
139     G4LorentzVector lvt1(0.,0.,0.,electron_mas    145     G4LorentzVector lvt1(0.,0.,0.,electron_mass_c2);
140     G4LorentzVector lvsum = lvp1+lvt1;            146     G4LorentzVector lvsum = lvp1+lvt1;
141                                                   147 
142     G4LorentzVector lvp2 = lvsum-lvt2;            148     G4LorentzVector lvp2 = lvsum-lvt2;
143     G4double nuTkin2 = lvp2.e()-aParticle->Get    149     G4double nuTkin2 = lvp2.e()-aParticle->GetDefinition()->GetPDGMass();
144     theParticleChange.SetEnergyChange(nuTkin2)    150     theParticleChange.SetEnergyChange(nuTkin2);
145     theParticleChange.SetMomentumChange(lvp2.v    151     theParticleChange.SetMomentumChange(lvp2.vect().unit());
146   }                                               152   }
147   else if( eTkin > 0.0 )                          153   else if( eTkin > 0.0 ) 
148   {                                               154   {
149     theParticleChange.SetLocalEnergyDeposit( e    155     theParticleChange.SetLocalEnergyDeposit( eTkin );
150     nuTkin -= eTkin;                              156     nuTkin -= eTkin;
151                                                   157 
152     if( nuTkin > 0. )                             158     if( nuTkin > 0. )
153     {                                             159     {
154       theParticleChange.SetEnergyChange( nuTki    160       theParticleChange.SetEnergyChange( nuTkin );
155       theParticleChange.SetMomentumChange( aTr    161       theParticleChange.SetMomentumChange( aTrack.Get4Momentum().vect().unit() );
156     }                                             162     }
157   }                                               163   }
158   else                                            164   else 
159   {                                               165   {
160     theParticleChange.SetEnergyChange( nuTkin     166     theParticleChange.SetEnergyChange( nuTkin );
161     theParticleChange.SetMomentumChange( aTrac    167     theParticleChange.SetMomentumChange( aTrack.Get4Momentum().vect().unit() );
162   }                                               168   }
                                                   >> 169   G4int Z = targetNucleus.GetZ_asInt();
                                                   >> 170         Z *= 1;
                                                   >> 171  
163   return &theParticleChange;                      172   return &theParticleChange;
164 }                                                 173 }
165                                                   174 
166 //////////////////////////////////////////////    175 //////////////////////////////////////////////////////
167 //                                                176 //
168 // sample recoil electron energy in lab frame     177 // sample recoil electron energy in lab frame
169                                                   178 
170 G4double G4NeutrinoElectronNcModel::SampleElec    179 G4double G4NeutrinoElectronNcModel::SampleElectronTkin(const G4HadProjectile* aParticle)
171 {                                                 180 {
172   G4double result = 0., xi, cofL, cofR, cofL2,    181   G4double result = 0., xi, cofL, cofR, cofL2, cofR2, cofLR;
173                                                   182 
174   G4double energy = aParticle->GetTotalEnergy(    183   G4double energy = aParticle->GetTotalEnergy();
175   if( energy == 0.) return result; // vmg: < t    184   if( energy == 0.) return result; // vmg: < th?? as in xsc 
176                                                   185 
177   G4String pName  = aParticle->GetDefinition()    186   G4String pName  = aParticle->GetDefinition()->GetParticleName();
178                                                   187 
179   if( pName == "nu_e")                            188   if( pName == "nu_e")
180   {                                               189   {
181     cofL = 0.5 + fSin2tW;                         190     cofL = 0.5 + fSin2tW;
182     cofR = fSin2tW;                               191     cofR = fSin2tW;
183   }                                               192   }
184   else if( pName == "anti_nu_e")                  193   else if( pName == "anti_nu_e")
185   {                                               194   {
186     cofL = fSin2tW;                               195     cofL = fSin2tW;
187     cofR = 0.5 + fSin2tW;                         196     cofR = 0.5 + fSin2tW;
188   }                                               197   }
189   else if( pName == "nu_mu")                      198   else if( pName == "nu_mu")
190   {                                               199   {
191     cofL = -0.5 + fSin2tW;                        200     cofL = -0.5 + fSin2tW;
192     cofR = fSin2tW;                               201     cofR = fSin2tW;
193   }                                               202   }
194   else if( pName == "anti_nu_mu")                 203   else if( pName == "anti_nu_mu")
195   {                                               204   {
196     cofL = fSin2tW;                               205     cofL = fSin2tW;
197     cofR = -0.5 + fSin2tW;                        206     cofR = -0.5 + fSin2tW;
198   }                                               207   }
199   else if( pName == "nu_tau") // vmg: nu_tau a    208   else if( pName == "nu_tau") // vmg: nu_tau as nu_mu ???
200   {                                               209   {
201     cofL = -0.5 + fSin2tW;                        210     cofL = -0.5 + fSin2tW;
202     cofR = fSin2tW;                               211     cofR = fSin2tW;
203   }                                               212   }
204   else if( pName == "anti_nu_tau")                213   else if( pName == "anti_nu_tau")
205   {                                               214   {
206     cofL = fSin2tW;                               215     cofL = fSin2tW;
207     cofR = -0.5 + fSin2tW;                        216     cofR = -0.5 + fSin2tW;
208   }                                               217   }
209   else                                            218   else
210   {                                               219   {
211     return result;                                220     return result;
212   }                                               221   }
213   xi = 0.5*electron_mass_c2/energy;               222   xi = 0.5*electron_mass_c2/energy;
214                                                   223 
215   cofL2 = cofL*cofL;                              224   cofL2 = cofL*cofL;
216   cofR2 = cofR*cofR;                              225   cofR2 = cofR*cofR;
217   cofLR = cofL*cofR;                              226   cofLR = cofL*cofR;
218                                                   227 
219   // cofs of Tkin/Enu 3rd equation                228   // cofs of Tkin/Enu 3rd equation
220                                                   229 
221   G4double a = cofR2/3.;                          230   G4double a = cofR2/3.;
222   G4double b = -(cofR2+cofLR*xi);                 231   G4double b = -(cofR2+cofLR*xi);
223   G4double c = cofL2+cofR2;                       232   G4double c = cofL2+cofR2;
224                                                   233 
225   G4double xMax  = 1./(1. + xi);                  234   G4double xMax  = 1./(1. + xi);
226   G4double xMax2 = xMax*xMax;                     235   G4double xMax2 = xMax*xMax;
227   G4double xMax3 = xMax*xMax2;                    236   G4double xMax3 = xMax*xMax2;
228                                                   237 
229   G4double d  = -( a*xMax3 + b*xMax2 + c*xMax     238   G4double d  = -( a*xMax3 + b*xMax2 + c*xMax );
230            d *= G4UniformRand();                  239            d *= G4UniformRand();
231                                                   240 
232   // G4cout<<a<<"   "<<b<<"   "<<c<<"   "<<d<<    241   // G4cout<<a<<"   "<<b<<"   "<<c<<"   "<<d<<G4endl<<G4endl;
233                                                   242 
234   // cofs of the incomplete 3rd equation          243   // cofs of the incomplete 3rd equation
235                                                   244 
236   G4double p  = c/a;                              245   G4double p  = c/a;
237            p -= b*b/a/a/3.;                       246            p -= b*b/a/a/3.;
238   G4double q  = d/a;                              247   G4double q  = d/a;
239            q -= b*c/a/a/3.;                       248            q -= b*c/a/a/3.;
240            q += 2*b*b*b/a/a/a/27.;                249            q += 2*b*b*b/a/a/a/27.;
241                                                   250 
242                                                   251 
243   // cofs for the incomplete colutions            252   // cofs for the incomplete colutions
244                                                   253 
245   G4double D  = p*p*p/3./3./3.;                   254   G4double D  = p*p*p/3./3./3.;
246            D += q*q/2./2.;                        255            D += q*q/2./2.;
247                                                   256 
248      // G4cout<<"D = "<<D<<G4endl;                257      // G4cout<<"D = "<<D<<G4endl;
249      // D = -D;                                   258      // D = -D;
250      // G4complex A1 = G4complex(- q/2., std::    259      // G4complex A1 = G4complex(- q/2., std::sqrt(-D) );
251      // G4complex A  = std::pow(A1,1./3.);        260      // G4complex A  = std::pow(A1,1./3.);
252                                                   261 
253      // G4complex B1 = G4complex(- q/2., -std:    262      // G4complex B1 = G4complex(- q/2., -std::sqrt(-D) );
254      // G4complex B  = std::pow(B1,1./3.);        263      // G4complex B  = std::pow(B1,1./3.);
255                                                   264 
256   G4double A1 = - q/2. + std::sqrt(D);            265   G4double A1 = - q/2. + std::sqrt(D);
257   G4double A = std::pow(A1,1./3.);                266   G4double A = std::pow(A1,1./3.);
258                                                   267 
259   G4double B1 = - q/2. - std::sqrt(D);            268   G4double B1 = - q/2. - std::sqrt(D);
260   G4double B = std::pow(-B1,1./3.);               269   G4double B = std::pow(-B1,1./3.);
261            B = -B;                                270            B = -B;
262                                                   271 
263   // roots of the incomplete 3rd equation         272   // roots of the incomplete 3rd equation
264                                                   273 
265   G4complex y1 =  A + B;                          274   G4complex y1 =  A + B;
266   // G4complex y2 = -0.5*(A + B) + 0.5*std::sq    275   // G4complex y2 = -0.5*(A + B) + 0.5*std::sqrt(3.)*(A - B)*G4complex(0.,1.);
267   // G4complex y3 = -0.5*(A + B) - 0.5*std::sq    276   // G4complex y3 = -0.5*(A + B) - 0.5*std::sqrt(3.)*(A - B)*G4complex(0.,1.);
268                                                   277  
269   G4complex x1 = y1 - b/a/3.;                     278   G4complex x1 = y1 - b/a/3.;
270   // G4complex x2 = y2 - b/a/3.;                  279   // G4complex x2 = y2 - b/a/3.;
271   // G4complex x3 = y3 - b/a/3.;                  280   // G4complex x3 = y3 - b/a/3.;
272                                                   281 
273   // G4cout<<"re_x1 = "<<real(x1)<<"; re_x2 =     282   // G4cout<<"re_x1 = "<<real(x1)<<"; re_x2 = "<<real(x2)<<"; re_x3 = "<<real(x3)<<G4endl;
274   // G4cout<<"im_x1 = "<<imag(x1)<<"; im_x2 =     283   // G4cout<<"im_x1 = "<<imag(x1)<<"; im_x2 = "<<imag(x2)<<"; im_x3 = "<<imag(x3)<<G4endl<<G4endl;
275                                                   284 
276   result = real(x1)*energy;                       285   result = real(x1)*energy;
277                                                   286 
278   return result;                                  287   return result;
279 }                                                 288 }
280                                                   289 
281 //                                                290 //
282 //                                                291 //
283 ///////////////////////////                       292 ///////////////////////////
284                                                   293