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