Gabriele Cosmo
209 lines
4.0 KiB
C++
209 lines
4.0 KiB
C++
// This code implementation is the intellectual property of
|
|
// the GEANT4 collaboration.
|
|
//
|
|
// By copying, distributing or modifying the Program (or any work
|
|
// based on the Program) you indicate your acceptance of this statement,
|
|
// and all its terms.
|
|
//
|
|
// $Id: G4LowEnergyUtilities.cc,v 1.4 2000/01/26 09:50:01 lefebure Exp $
|
|
// GEANT4 tag $Name: geant4-02-00 $
|
|
//
|
|
//
|
|
// --------------------------------------------------------------
|
|
// GEANT 4 class implementation file
|
|
// CERN Geneva Switzerland
|
|
//
|
|
// For information related to this code contact:
|
|
// CERN, IT Division, ASD group
|
|
// ------------ G4LowEnergyUtilities physics process --------
|
|
// by A.Forti 1999/03/02
|
|
// **************************************************************
|
|
// This Class Header
|
|
#include "G4LowEnergyUtilities.hh"
|
|
|
|
// Collaborating Class Headers
|
|
#include "G4Element.hh"
|
|
#include "G4DynamicParticle.hh"
|
|
#include "G4Material.hh"
|
|
#include "CLHEP/String/Strings.h"
|
|
#include "g4std/fstream"
|
|
|
|
G4LowEnergyUtilities::G4LowEnergyUtilities()
|
|
{}
|
|
|
|
G4LowEnergyUtilities::~G4LowEnergyUtilities()
|
|
{}
|
|
|
|
G4SecondLevel* G4LowEnergyUtilities::BuildSecondLevelTables(const G4int TableInd,
|
|
const G4int ParNum,
|
|
const char* prename){
|
|
|
|
|
|
HepString name, prenameStr(prename);
|
|
if(TableInd != 0){
|
|
|
|
HepString Znum(TableInd);
|
|
name = prenameStr + Znum + ".dat";
|
|
}
|
|
else{
|
|
|
|
name = prenameStr+ ".dat";
|
|
}
|
|
|
|
char* path = getenv("G4LEDATA");
|
|
if(!path){
|
|
HepString excep = "Error!!! G4LEDATA (Low Energy Electromagnetic processes data directory) environment variable not set";
|
|
G4Exception(excep);
|
|
}
|
|
|
|
HepString path_string(path);
|
|
HepString dir_file = path_string + "/" + name;
|
|
G4std::ifstream file(dir_file);
|
|
G4std::filebuf* lsdp = file.rdbuf();
|
|
|
|
if(!lsdp->is_open()){
|
|
|
|
HepString excep = "Error!!!! data file: " + dir_file + " NOT found";
|
|
G4Exception(excep);
|
|
}
|
|
|
|
oneAtomTable* oneAtomPar = new oneAtomTable();
|
|
oneShellTable* oneShellPar = new oneShellTable();
|
|
|
|
for(G4int j = 0; j < ParNum; j++){
|
|
|
|
oneShellPar->insertAt(j,new G4Data());
|
|
}
|
|
|
|
G4double a = 0;
|
|
G4int k = 1, s = 0;
|
|
|
|
do{
|
|
|
|
file>>a;
|
|
|
|
if(a == -1){
|
|
|
|
if(s == 0){
|
|
|
|
oneAtomPar->insert(oneShellPar);
|
|
oneShellPar = new oneShellTable();
|
|
|
|
for(G4int j = 0; j < ParNum; j++){
|
|
|
|
oneShellPar->insertAt(j,new G4Data());
|
|
}
|
|
}
|
|
|
|
s++;
|
|
|
|
if(s == ParNum){
|
|
|
|
s = 0;
|
|
}
|
|
}
|
|
|
|
else if(a == -2){
|
|
|
|
delete oneShellPar;
|
|
}
|
|
|
|
else{
|
|
|
|
if(k%ParNum != 0){
|
|
|
|
(*oneShellPar)[k-1]->insert(a);
|
|
k++;
|
|
}
|
|
else if(k%ParNum == 0){
|
|
|
|
(*oneShellPar)[k-1]->insert(a);
|
|
k = 1;
|
|
}
|
|
}
|
|
|
|
}while(a != -2); //end for on file
|
|
|
|
file.close();
|
|
return oneAtomPar;
|
|
}
|
|
|
|
|
|
G4FirstLevel* G4LowEnergyUtilities::BuildFirstLevelTables(const G4int TableInd,
|
|
const G4int ParNum,
|
|
const char* prename){
|
|
|
|
|
|
HepString name, prenameStr(prename);
|
|
if(TableInd != 0){
|
|
|
|
HepString Znum(TableInd);
|
|
name = prenameStr + Znum + ".dat";
|
|
}
|
|
else{
|
|
|
|
name = prenameStr+ ".dat";
|
|
}
|
|
|
|
char* path = getenv("G4LEDATA");
|
|
if(!path){
|
|
HepString excep = "Error!!! G4LEDATA (Low Energy Electromagnetic processes data directory) environment variable not set";
|
|
G4Exception(excep);
|
|
}
|
|
|
|
HepString path_string(path);
|
|
HepString dir_file = path_string + "/" + name;
|
|
G4std::ifstream file(dir_file);
|
|
G4std::filebuf* lsdp = file.rdbuf();
|
|
|
|
if(!lsdp->is_open()){
|
|
|
|
HepString excep = "Error!!!! data file: " + dir_file + " NOT found";
|
|
G4Exception(excep);
|
|
}
|
|
|
|
G4FirstLevel* oneAtomPar = new G4FirstLevel();
|
|
|
|
for(G4int j = 0; j < ParNum; j++){
|
|
|
|
oneAtomPar->insertAt(j,new G4Data());
|
|
}
|
|
|
|
G4double a = 0;
|
|
G4int k = 1;
|
|
|
|
do{
|
|
|
|
file>>a;
|
|
|
|
if(a == -1 || a == -2){
|
|
|
|
}
|
|
else{
|
|
|
|
if(k%ParNum != 0){
|
|
|
|
(*oneAtomPar)[k-1]->insert(a);
|
|
k++;
|
|
}
|
|
else if(k%ParNum == 0){
|
|
|
|
(*oneAtomPar)[k-1]->insert(a);
|
|
k = 1;
|
|
}
|
|
}
|
|
|
|
}while(a != -2); //end for on file
|
|
|
|
file.close();
|
|
return oneAtomPar;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|