Import Geant4 8.3.0 source tree

This commit is contained in:
Gabriele Cosmo
2016-06-09 15:07:44 +02:00
parent fe73f43734
commit 75c7fd177d
764 changed files with 45230 additions and 95238 deletions
@@ -24,8 +24,8 @@
// ********************************************************************
//
//
// $Id: G4PSFlatSurfaceFlux.cc,v 1.5 2006/06/29 18:07:45 gunter Exp $
// GEANT4 tag $Name: geant4-08-02 $
// $Id: G4PSFlatSurfaceFlux.cc,v 1.6 2007/04/20 07:53:33 asaim Exp $
// GEANT4 tag $Name: geant4-08-03 $
//
// G4PSFlatSurfaceFlux
#include "G4PSFlatSurfaceFlux.hh"
@@ -47,6 +47,7 @@
// Created: 2005-11-14 Tsukasa ASO, Akinori Kimura.
//
// 18-Nov-2005 T.Aso, To use always positive value for anglefactor.
// 29-Mar-2007 T.Aso, Bug fix for momentum direction at outgoing flux.
///////////////////////////////////////////////////////////////////////////////
G4PSFlatSurfaceFlux::G4PSFlatSurfaceFlux(G4String name,
@@ -70,26 +71,38 @@ G4bool G4PSFlatSurfaceFlux::ProcessHits(G4Step* aStep,G4TouchableHistory*)
G4int dirFlag =IsSelectedSurface(aStep,boxSolid);
if ( dirFlag > 0 ) {
G4int index = GetIndex(aStep);
G4double square = 4.*boxSolid->GetXHalfLength()*boxSolid->GetYHalfLength();
G4TouchableHandle theTouchable = preStep->GetTouchableHandle();
G4ThreeVector pdirection = preStep->GetMomentumDirection();
G4ThreeVector localdir =
theTouchable->GetHistory()->GetTopTransform().TransformAxis(pdirection);
G4double angleFactor = localdir.z();
if ( angleFactor < 0 ) angleFactor *= -1.;
G4double flux = preStep->GetWeight(); // Current (Particle Weight)
flux = flux/angleFactor/square; // Flux with angle.
if ( fDirection == fFlux_InOut || fDirection == dirFlag ){
G4StepPoint* thisStep=0;
if ( dirFlag == fFlux_In ){
thisStep = preStep;
}else if ( dirFlag == fFlux_Out ){
thisStep = aStep->GetPostStepPoint();
}else{
return FALSE;
}
G4TouchableHandle theTouchable = thisStep->GetTouchableHandle();
G4ThreeVector pdirection = thisStep->GetMomentumDirection();
G4ThreeVector localdir =
theTouchable->GetHistory()->GetTopTransform().TransformAxis(pdirection);
//
G4double angleFactor = localdir.z();
if ( angleFactor < 0 ) angleFactor *= -1.;
G4double flux = preStep->GetWeight(); // Current (Particle Weight)
//
G4double square = 4.*boxSolid->GetXHalfLength()*boxSolid->GetYHalfLength();
//
flux = flux/angleFactor/square; // Flux with angle.
//
G4int index = GetIndex(aStep);
EvtMap->add(index,flux);
}
}
#ifdef debug
G4cout << " PASSED vol "
<< index << " trk "<<trkid<<" len " << fFlatSurfaceFlux<<G4endl;
#endif
}
return TRUE;
}
@@ -0,0 +1,187 @@
//
// ********************************************************************
// * License and Disclaimer *
// * *
// * The Geant4 software is copyright of the Copyright Holders of *
// * the Geant4 Collaboration. It is provided under the terms and *
// * conditions of the Geant4 Software License, included in the file *
// * LICENSE and available at http://cern.ch/geant4/license . These *
// * include a list of copyright holders. *
// * *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work make any representation or warranty, express or implied, *
// * regarding this software system or assume any liability for its *
// * use. Please see the license in the file LICENSE and URL above *
// * for the full disclaimer and the limitation of liability. *
// * *
// * This code implementation is the result of the scientific and *
// * technical work of the GEANT4 collaboration. *
// * By using, copying, modifying or distributing the software (or *
// * any work based on the software) you agree to acknowledge its *
// * use in resulting scientific publications, and indicate your *
// * acceptance of all terms of the Geant4 Software license. *
// ********************************************************************
//
//
// $Id: G4PSSphereSurfaceFlux.cc,v 1.1 2007/04/20 07:55:38 asaim Exp $
// GEANT4 tag $Name: geant4-08-03 $
//
// G4PSSphereSurfaceFlux
#include "G4PSSphereSurfaceFlux.hh"
#include "G4StepStatus.hh"
#include "G4Track.hh"
#include "G4UnitsTable.hh"
////////////////////////////////////////////////////////////////////////////////
// (Description)
// This is a primitive scorer class for scoring only Surface Flux.
// Flux version assumes only for G4Sphere shape.
//
// Surface is defined at the inside of sphere.
// Direction -Rmin +Rmax
// 0 IN || OUT ->|<- |
// 1 IN ->| |
// 2 OUT |<- |
//
// Created: 2005-11-14 Tsukasa ASO, Akinori Kimura.
// 29-Mar-2007 T.Aso, Bug fix for momentum direction at outgoing flux.
//
///////////////////////////////////////////////////////////////////////////////
G4PSSphereSurfaceFlux::G4PSSphereSurfaceFlux(G4String name,
G4int direction, G4int depth)
:G4VPrimitiveScorer(name,depth),HCID(-1),fDirection(direction)
{;}
G4PSSphereSurfaceFlux::~G4PSSphereSurfaceFlux()
{;}
G4bool G4PSSphereSurfaceFlux::ProcessHits(G4Step* aStep,G4TouchableHistory*)
{
G4StepPoint* preStep = aStep->GetPreStepPoint();
G4VSolid * solid =
preStep->GetPhysicalVolume()->GetLogicalVolume()->GetSolid();
if( solid->GetEntityType() != "G4Sphere" ){
G4Exception("G4PSSphereSurfaceFluxScorer. - Solid type is not supported.");
return FALSE;
}
G4Sphere* sphereSolid = (G4Sphere*)(solid);
G4int dirFlag =IsSelectedSurface(aStep,sphereSolid);
if ( dirFlag > 0 ) {
if ( fDirection == fFlux_InOut || fDirection == dirFlag ){
G4StepPoint* thisStep=0;
if ( dirFlag == fFlux_In ){
thisStep = preStep;
}else if ( dirFlag == fFlux_Out ){
thisStep = aStep->GetPreStepPoint();
}else{
return FALSE;
}
G4TouchableHandle theTouchable = thisStep->GetTouchableHandle();
G4ThreeVector pdirection = thisStep->GetMomentumDirection();
G4ThreeVector localdir =
theTouchable->GetHistory()->GetTopTransform().TransformAxis(pdirection);
G4double localdirL2 = localdir.x()*localdir.x()
+localdir.y()*localdir.y()
+localdir.z()*localdir.z();
G4ThreeVector stppos1= aStep->GetPreStepPoint()->GetPosition();
G4ThreeVector localpos1 =
theTouchable->GetHistory()->GetTopTransform().TransformPoint(stppos1);
G4double localR2 = localpos1.x()*localpos1.x()
+localpos1.y()*localpos1.y()
+localpos1.z()*localpos1.z();
G4double anglefactor = (localdir.x()*localpos1.x()
+localdir.y()*localpos1.y()
+localdir.z()*localpos1.z())
/std::sqrt(localdirL2)/std::sqrt(localR2);
G4double radi = sphereSolid->GetInsideRadius();
G4double dph = sphereSolid->GetDeltaPhiAngle()/radian;
G4double stth = sphereSolid->GetStartThetaAngle()/radian;
G4double enth = stth+sphereSolid->GetDeltaThetaAngle()/radian;
G4double square = radi*radi*dph*( -std::cos(enth) + std::cos(stth) );
G4double current = thisStep->GetWeight(); // Flux (Particle Weight)
current = current/square; // Flux with angle.
current /= anglefactor;
G4int index = GetIndex(aStep);
EvtMap->add(index,current);
}
}
return TRUE;
}
G4int G4PSSphereSurfaceFlux::IsSelectedSurface(G4Step* aStep, G4Sphere* sphereSolid){
G4TouchableHandle theTouchable =
aStep->GetPreStepPoint()->GetTouchableHandle();
if (aStep->GetPreStepPoint()->GetStepStatus() == fGeomBoundary ){
// Entering Geometry
G4ThreeVector stppos1= aStep->GetPreStepPoint()->GetPosition();
G4ThreeVector localpos1 =
theTouchable->GetHistory()->GetTopTransform().TransformPoint(stppos1);
G4double localR2 = localpos1.x()*localpos1.x()
+localpos1.y()*localpos1.y()
+localpos1.z()*localpos1.z();
G4double InsideRadius2 =
sphereSolid->GetInsideRadius()*sphereSolid->GetInsideRadius();
if(std::fabs( localR2 - InsideRadius2 ) < kCarTolerance ){
return fFlux_In;
}
}
if (aStep->GetPostStepPoint()->GetStepStatus() == fGeomBoundary ){
// Exiting Geometry
G4ThreeVector stppos2= aStep->GetPostStepPoint()->GetPosition();
G4ThreeVector localpos2 =
theTouchable->GetHistory()->GetTopTransform().TransformPoint(stppos2);
G4double localR2 = localpos2.x()*localpos2.x()
+localpos2.y()*localpos2.y()
+localpos2.z()*localpos2.z();
G4double InsideRadius2 =
sphereSolid->GetInsideRadius()*sphereSolid->GetInsideRadius();
if(std::fabs( localR2 - InsideRadius2 ) < kCarTolerance ){
return fFlux_Out;
}
}
return -1;
}
void G4PSSphereSurfaceFlux::Initialize(G4HCofThisEvent* HCE)
{
EvtMap = new G4THitsMap<G4double>(detector->GetName(), GetName());
if ( HCID < 0 ) HCID = GetCollectionID(0);
HCE->AddHitsCollection(HCID, (G4VHitsCollection*)EvtMap);
}
void G4PSSphereSurfaceFlux::EndOfEvent(G4HCofThisEvent*)
{;}
void G4PSSphereSurfaceFlux::clear(){
EvtMap->clear();
}
void G4PSSphereSurfaceFlux::DrawAll()
{;}
void G4PSSphereSurfaceFlux::PrintAll()
{
G4cout << " MultiFunctionalDet " << detector->GetName() << G4endl;
G4cout << " PrimitiveScorer " << GetName() <<G4endl;
G4cout << " Number of entries " << EvtMap->entries() << G4endl;
std::map<G4int,G4double*>::iterator itr = EvtMap->GetMap()->begin();
for(; itr != EvtMap->GetMap()->end(); itr++) {
G4cout << " copy no.: " << itr->first
<< " current : " << *(itr->second)
<< G4endl;
}
}