Definition at line 216 of file clparse.cc.
217{
218
219
220
221
222
223
224
225 G4int i =0, ipt = 0, k = 0;
226 G4int ni =0, nr = 0, nq = 0;
227 while (ptypes[i] != '\0')
228 {
229 switch (ptypes[i])
230 {
231 case 'i':
232 Ipar[ni] = atoi(tokens[ipt].data());
234 ni++; ipt++;
235 break;
236 case 'r':
237 Rpar[nr] = atof(tokens[ipt].data());
238 nr++; ipt++;
239 break;
240 case 's':
241 Spar[nq] = tokens[ipt];
242 nq++; ipt++;
243 break;
244 case 'I':
245 for (k=0; k <
narray; k++)
246 {
247 Ipar[ni] = atoi(tokens[ipt].data());
248 ni++; ipt++;
249 }
250 break;
251 case 'R':
252 for (k=0; k <
narray; k++)
253 {
254 Rpar[nr] = atof(tokens[ipt].data());
255 nr++; ipt++;
256 }
257 break;
258 case 'Q':
259
260
261
263 for (k=0; k <
narray; k++)
264 {
265 Rpar[nr] = atof(tokens[ipt].data());
266 nr++; ipt++;
267 }
268 break;
269 case 'S':
270 for (k=0; k <
narray; k++)
271 {
272 Spar[nq] = tokens[ipt];
273 nq++; ipt++;
274 }
275 break;
276 default:
277 ofile <<
"unidentified ptype '" << ptypes[i] <<
G4endl;
278 };
279 i++;
280 }
281}
Referenced by PG4gsatt(), PG4gsdet(), PG4gsdeta(), PG4gsdetd(), PG4gsdeth(), PG4gsdetu(), PG4gsdetv(), PG4gsdk(), PG4gsdvn(), PG4gsdvn2(), PG4gsdvt(), PG4gsdvt2(), PG4gsdvx(), PG4gsmate(), PG4gsmixt(), PG4gspart(), PG4gspos(), PG4gsposp(), PG4gsrotm(), PG4gstmed(), PG4gstpar(), and PG4gsvolu().