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 // G4tgrParameterMgr implementation 27 // 28 // Author: P.Arce, CIEMAT (November 2007) 29 // ------------------------------------------- 30 31 #include "G4tgrParameterMgr.hh" 32 #include "G4tgrUtils.hh" 33 #include "G4tgrMaterialFactory.hh" 34 #include "G4tgrRotationMatrixFactory.hh" 35 #include "G4tgrFileReader.hh" 36 #include "G4tgrMessenger.hh" 37 #include "G4UIcommand.hh" 38 39 G4ThreadLocal G4tgrParameterMgr* G4tgrParamete 40 41 // ------------------------------------------- 42 G4tgrParameterMgr::G4tgrParameterMgr() 43 { 44 } 45 46 // ------------------------------------------- 47 G4tgrParameterMgr::~G4tgrParameterMgr() 48 { 49 delete theInstance; 50 } 51 52 // ------------------------------------------- 53 G4tgrParameterMgr* G4tgrParameterMgr::GetInsta 54 { 55 if(theInstance == nullptr) 56 { 57 theInstance = new G4tgrParameterMgr; 58 } 59 return theInstance; 60 } 61 62 // ------------------------------------------- 63 void G4tgrParameterMgr::AddParameterNumber(con 64 G4b 65 { 66 CheckIfNewParameter(wl, mustBeNew); 67 68 //----- Convert third argument to double, bu 69 // for later use in CLHEP evaluator 70 G4float val = G4tgrUtils::GetDou 71 theParameterList[wl[1]] = G4UIcommand::Conve 72 73 #ifdef G4VERBOSE 74 if(G4tgrMessenger::GetVerboseLevel() >= 2) 75 { 76 G4cout << " G4tgrParameterMgr::AddParamete 77 << " parameter added " << wl[1] << 78 << G4endl; 79 } 80 #endif 81 } 82 83 // ------------------------------------------- 84 void G4tgrParameterMgr::AddParameterString(con 85 G4b 86 { 87 CheckIfNewParameter(wl, mustBeNew); 88 89 //----- Store parameter as string 90 theParameterList[wl[1]] = wl[2]; 91 92 #ifdef G4VERBOSE 93 if(G4tgrMessenger::GetVerboseLevel() >= 2) 94 { 95 G4cout << " G4tgrParameterMgr::AddParamete 96 << " parameter added " << wl[1] << 97 << G4endl; 98 } 99 #endif 100 } 101 102 // ------------------------------------------- 103 void G4tgrParameterMgr::CheckIfNewParameter(co 104 G4 105 { 106 //---------- Find first if it exists already 107 G4bool existsAlready; 108 G4mapss::const_iterator sdite = theParameter 109 if(sdite == theParameterList.cend()) 110 { 111 existsAlready = false; 112 } 113 else 114 { 115 existsAlready = true; 116 } 117 118 if(existsAlready) 119 { 120 if(mustBeNew) 121 { 122 G4String ErrMessage = "Parameter already 123 G4Exception("G4tgrParameterMgr::CheckPar 124 FatalException, ErrMessage); 125 } 126 else 127 { 128 G4String WarMessage = "Parameter already 129 G4Exception("G4tgrParameterMgr::CheckPar 130 JustWarning, WarMessage); 131 } 132 } 133 134 //---------- Check for miminum number of wor 135 G4tgrUtils::CheckWLsize(wl, 3, WLSIZE_EQ, "P 136 } 137 138 // ------------------------------------------- 139 G4String G4tgrParameterMgr::FindParameter(cons 140 { 141 G4String par = ""; 142 143 G4mapss::const_iterator sdite = theParameter 144 if(sdite == theParameterList.cend()) 145 { 146 if(exists) 147 { 148 DumpList(); 149 G4String ErrMessage = "Parameter not fou 150 G4Exception("G4tgrParameterMgr::FindPara 151 FatalException, ErrMessage); 152 } 153 } 154 else 155 { 156 exists = 1; 157 par = ((*sdite).second); 158 #ifdef G4VERBOSE 159 if(G4tgrMessenger::GetVerboseLevel() >= 3) 160 { 161 G4cout << " G4tgrParameterMgr::FindParam 162 << " parameter found " << name << 163 } 164 #endif 165 } 166 167 return par; 168 } 169 170 // ------------------------------------------- 171 void G4tgrParameterMgr::DumpList() 172 { 173 //---------- Dump number of objects of each 174 G4cout << " @@@@@@@@@@@@@@@@@@ Dumping param 175 for(auto cite = theParameterList.cbegin(); 176 cite != theParameterList.cend(); ++ 177 { 178 G4cout << (*cite).first << " = " << (*cite 179 } 180 } 181