| 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 /*
27 * ===========================================
28 *
29 * Filename: CexmcGenbod.cc
30 *
31 * Description: original fortran routine G
32 *
33 * Version: 1.0
34 * Created: 08.09.2010 14:36:23
35 * Revision: none
36 * Compiler: gcc
37 *
38 * Author: Alexey Radkov (),
39 * Company: PNPI
40 *
41 * ===========================================
42 */
43
44 #ifdef CEXMC_USE_GENBOD
45
46 #include <G4SystemOfUnits.hh>
47 #include "CexmcGenbod.hh"
48 #include "CexmcException.hh"
49
50
51 extern "C"
52 {
53 extern int genbod_( void );
54 }
55
56
57 extern struct genbod_in_data
58 {
59 int np;
60 float tecm;
61 float amass[ 18 ];
62 int kgenev;
63 } genin_;
64
65
66 extern struct genbod_out_data
67 {
68 float pcm[ 18 ][ 5 ];
69 float wt;
70 } genout_;
71
72
73 CexmcGenbod::CexmcGenbod()
74 {
75 genin_.np = 0;
76 genin_.kgenev = 1;
77 }
78
79
80 G4bool CexmcGenbod::CheckKinematics( void )
81 {
82 totalEnergy = 0.;
83 for ( CexmcPhaseSpaceInVector::const_itera
84
85 {
86 totalEnergy += ( *k )->e();
87 }
88
89 /* epsilon is needed to compensate float t
90 * the value 3E-6 was found experimentally
91 * but not smaller */
92 const float epsilon( 3E-6 );
93
94 return totalEnergy - totalMass > 0.0f + ep
95 }
96
97
98 G4double CexmcGenbod::Generate( void )
99 {
100 genin_.tecm = totalEnergy / GeV;
101
102 genbod_();
103
104 float ( *pcm )[ 5 ]( &genout_.pcm[ 0 ] );
105
106 for ( CexmcPhaseSpaceOutVector::iterator
107
108 {
109 k->lVec->setPx( ( *pcm )[ 0 ] * GeV );
110 k->lVec->setPy( ( *pcm )[ 1 ] * GeV );
111 k->lVec->setPz( ( *pcm )[ 2 ] * GeV );
112 k->lVec->setE( ( *pcm++ )[ 3 ] * GeV )
113 }
114
115 return genout_.wt;
116 }
117
118
119 void CexmcGenbod::ParticleChangeHook( void )
120 {
121 size_t nmbOfOutputParticles( outVec.size(
122
123 if ( nmbOfOutputParticles < 2 || nmbOfOutp
124 throw CexmcException( CexmcKinematicsE
125
126 genin_.np = nmbOfOutputParticles;
127
128 float * amass( genin_.amass );
129
130 for ( CexmcPhaseSpaceOutVector::const_iter
131
132 {
133 *amass++ = k->mass / GeV;
134 }
135 }
136
137
138 void CexmcGenbod::FermiEnergyDepStatusChangeH
139 {
140 genin_.kgenev = fermiEnergyDepIsOn ? 2 : 1
141 }
142
143 #endif
144
145