| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 // G4RToEConvForProton class implementation
27 //
28 // Author: H.Kurashige, 05 October 2002 - Firs
29 // -------------------------------------------
30
31 #include "G4RToEConvForProton.hh"
32 #include "G4ParticleTable.hh"
33
34 #include "G4PhysicalConstants.hh"
35 #include "G4SystemOfUnits.hh"
36
37 // -------------------------------------------
38 G4RToEConvForProton::G4RToEConvForProton()
39 : G4VRangeToEnergyConverter()
40 {
41 theParticle = G4ParticleTable::GetParticleTa
42 if (theParticle == nullptr)
43 {
44 #ifdef G4VERBOSE
45 if (GetVerboseLevel()>0)
46 {
47 G4cout << "G4RToEConvForProton::G4RToECo
48 G4cout << "Proton is not defined !!" <<
49 }
50 #endif
51 }
52 else
53 {
54 fPDG = theParticle->GetPDGEncoding();
55 }
56 }
57
58 // -------------------------------------------
59 G4RToEConvForProton::~G4RToEConvForProton()
60 {}
61
62 // -------------------------------------------
63 G4double G4RToEConvForProton::Convert(const G4
64 const G4
65 {
66 #ifdef G4VERBOSE
67 if (GetVerboseLevel()>3)
68 {
69 G4cout << "G4RToEConvForProton::Convert()
70 G4cout << " with Range Cut " << rangeCut/m
71 }
72 #endif
73 // Simple formula - range = Ekin/(100*keV)*(
74 return (rangeCut/(1.0*CLHEP::mm)) * (100.0*C
75 }
76
77 // -------------------------------------------
78 G4double G4RToEConvForProton::ComputeValue(con
79 {
80 return 0.0;
81 }
82
83 // -------------------------------------------
84