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 // G4AdjointSteppingAction class implementatio 27 // 28 // Author: L. Desorgher, SpaceIT GmbH 29 // Contract: ESA contract 21435/08/NL/AT 30 // Customer: ESA/ESTEC 31 // ------------------------------------------- 32 33 #include "G4AdjointSteppingAction.hh" 34 35 #include "G4AdjointCrossSurfChecker.hh" 36 #include "G4AffineTransform.hh" 37 #include "G4PhysicalVolumeStore.hh" 38 #include "G4Track.hh" 39 40 ////////////////////////////////////////////// 41 // 42 G4AdjointSteppingAction::G4AdjointSteppingActi 43 { 44 theG4AdjointCrossSurfChecker = G4AdjointCros 45 } 46 47 ////////////////////////////////////////////// 48 // 49 void G4AdjointSteppingAction::UserSteppingActi 50 { 51 G4Track* aTrack = aStep->GetTrack(); 52 if (! is_adjoint_tracking_mode) // forward 53 { 54 if (! did_one_adj_part_reach_ext_source_du 55 aTrack->SetTrackStatus(fStopAndKill); 56 return; 57 } 58 if (theUserFwdSteppingAction != nullptr) { 59 theUserFwdSteppingAction->UserSteppingAc 60 } 61 return; 62 } 63 64 // Apply first the user adjoint stepping act 65 // ----------------------------------------- 66 67 did_adj_part_reach_ext_source = false; 68 if (theUserAdjointSteppingAction != nullptr) 69 theUserAdjointSteppingAction->UserStepping 70 } 71 72 G4double nb_nuc = 1.; 73 G4ParticleDefinition* thePartDef = aTrack->G 74 75 if (thePartDef->GetParticleType() == "adjoin 76 nb_nuc = G4double(thePartDef->GetBaryonNum 77 } 78 79 // Kill conditions for adjoint particles rea 80 // ----------------------------------------- 81 82 if (aTrack->GetKineticEnergy() >= ext_source 83 aTrack->SetTrackStatus(fStopAndKill); 84 did_adj_part_reach_ext_source = false; 85 return; 86 } 87 88 // Kill conditions for surface crossing 89 // -------------------------------------- 90 91 G4String surface_name; 92 G4double cos_to_surface; 93 G4bool GoingIn; 94 G4ThreeVector crossing_pos; 95 if (theG4AdjointCrossSurfChecker->CrossingOn 96 aStep, surface_name, crossing_pos, cos 97 { 98 if (surface_name == "ExternalSource") { 99 // Registering still needed 100 did_adj_part_reach_ext_source = true; 101 did_one_adj_part_reach_ext_source_during 102 aTrack->SetTrackStatus(fStopAndKill); 103 104 // now register the adjoint particles re 105 last_momentum = aTrack->GetMomentum(); 106 last_ekin = aTrack->GetKineticEnergy(); 107 last_weight = aTrack->GetWeight(); 108 last_part_def = aTrack->GetDefinition(); 109 last_pos = crossing_pos; 110 return; 111 } 112 if (surface_name == "AdjointSource" && Goi 113 did_adj_part_reach_ext_source = false; 114 aTrack->SetTrackStatus(fStopAndKill); 115 return; 116 } 117 } 118 119 // Check for reaching out of world 120 // 121 if (aStep->GetPostStepPoint()->GetStepStatus 122 did_adj_part_reach_ext_source = true; 123 did_one_adj_part_reach_ext_source_during_e 124 last_momentum = aTrack->GetMomentum(); 125 last_ekin = aTrack->GetKineticEnergy(); 126 last_weight = aTrack->GetWeight(); 127 last_part_def = aTrack->GetDefinition(); 128 last_pos = crossing_pos; 129 return; 130 } 131 } 132