83{
84 int result;
85 unsigned int numberOfThreads = 1;
86
88 G4String outputFileName =
"FF_Neutron_HP.out";
90
91
92 G4ParticleHPManager::GetInstance()->SetProduceFissionFragments( true );
93
94 char Force[] = "G4FORCENUMBEROFTHREADS";
95 if(std::getenv(Force) != NULL) {
96 char doNotForce[]="G4FORCENUMBEROFTHREADS=1";
97 putenv(doNotForce);
98 }
99
100
101 G4cout << "#### Starting: " << argv[0] << " ####" << G4endl;
102
103
104 for(int i = 1;
105 i < argc;
106 i += 2)
107 {
108
109 if(argv[i][0] != '-')
110 {
111 G4cerr << G4endl << "!!!!" << G4endl;
112 G4cerr << "!!!! Error in argument " << i + 1 << G4endl;
113 G4cerr << "!!!! A command-line option was expected, but \""
114 << argv[i] << "\" was found" << G4endl;
115 G4cerr << "!!!! " << argv[0] << " will now terminate" << G4endl;
116 G4cerr << "!!!!" << G4endl << G4endl;
117
118 return EXIT_FAILURE;
119 }
120
121
122 if(!(i + 1 < argc))
123 {
124 G4cerr << G4endl << "!!!!" << G4endl;
125 G4cerr << "!!!! Error in argument " << i + 2 << G4endl;
126 G4cerr << "!!!! An argument was expected, but \"" << argv[i + 1]
127 << "\" was found" << G4endl;
128 G4cerr << "!!!! Ensure that a space is used to separate the "
129 "option and argument" << G4endl;
130 G4cerr << "!!!! " << argv[0] << " will now terminate" << G4endl;
131 G4cerr << "!!!!" << G4endl << G4endl;
132
133 return EXIT_FAILURE;
134 }
135
136 switch(argv[i][1])
137 {
138 case 'i':
139 scriptFileName = "/control/execute ";
140 scriptFileName.append(argv[i + 1]);
141 break;
142
143 case 'o':
144 outputFileName = argv[i + 1];
145 break;
146
147 case 'n':
148 result = sscanf(argv[i + 1],
149 "%u",
150 &numberOfThreads);
151 if(result != 1)
152 {
153 G4cerr << G4endl << "!!!!" << G4endl;
154 G4cerr << "!!!! Error in argument " << i + 2 << G4endl;
155 G4cerr << "!!!! An positive number was expected, but \""
156 << argv[i + 1] << "\" was found" << G4endl;
157 G4cerr << "!!!! " << argv[0] << " will now terminate"
158 << G4endl;
159 G4cerr << "!!!!" << G4endl << G4endl;
160
161 return EXIT_FAILURE;
162 }
163 break;
164
165 default:
166 G4cout << G4endl << "!!!!" << G4endl;
167 G4cout << "!!!! Warning for command " << i + 1 << G4endl;
168 G4cout << "!!!! \"" << argv[i] << "\" is not a valid command"
169 << G4endl;
170 G4cout << "!!!! " << argv[0] << " will ignore \"" << argv[i]
171 << "\" and \"" << argv[i + 1] << "\"" << G4endl;
172 G4cout << "!!!!" << G4endl << G4endl;
173 }
174 }
175
176
178 if (scriptFileName.length() == 0) {
180 }
181
182
183
184
185 const G4long seed = 62737819;
186#ifndef NDEBUG
187 G4cout << "MT RNG Seed: " << seed << G4endl;
188#endif
190
191
192 auto* runManager = G4RunManagerFactory::CreateRunManager();
193 runManager->SetNumberOfThreads(numberOfThreads);
194 G4cout << " Threads requested: " << numberOfThreads << G4endl;
195 G4cout << " Threads started: " << runManager->GetNumberOfThreads() << G4endl;
196
197
199 runManager->SetUserInitialization(
new QGSP_BIC_HP());
201
202
203 runManager->Initialize();
204
205
207 visManager->Initialize();
208
209
210 UIManager = G4UImanager::GetUIpointer();
211
212 if(!ui)
213 {
214
215 UIManager->ApplyCommand(scriptFileName);
216 } else
217 {
218
219 ui->SessionStart();
220 delete ui;
221 }
222
223
224
225
226
227 delete visManager;
228 delete runManager;
229
230 return 0;
231}