Definition at line 218 of file clparse.cc.
219{
220
221
222
223
224
225
226
227 G4int i =0, ipt = 0, k = 0;
228 G4int ni =0, nr = 0, nq = 0;
229 while (ptypes[i] != '\0')
230 {
231 switch (ptypes[i])
232 {
233 case 'i':
234 Ipar[ni] = atoi(tokens[ipt].data());
236 ni++; ipt++;
237 break;
238 case 'r':
239 Rpar[nr] = atof(tokens[ipt].data());
240 nr++; ipt++;
241 break;
242 case 's':
243 Spar[nq] = tokens[ipt];
244 nq++; ipt++;
245 break;
246 case 'I':
247 for (k=0; k <
narray; k++)
248 {
249 Ipar[ni] = atoi(tokens[ipt].data());
250 ni++; ipt++;
251 }
252 break;
253 case 'R':
254 for (k=0; k <
narray; k++)
255 {
256 Rpar[nr] = atof(tokens[ipt].data());
257 nr++; ipt++;
258 }
259 break;
260 case 'Q':
261
262
263
265 for (k=0; k <
narray; k++)
266 {
267 Rpar[nr] = atof(tokens[ipt].data());
268 nr++; ipt++;
269 }
270 break;
271 case 'S':
272 for (k=0; k <
narray; k++)
273 {
274 Spar[nq] = tokens[ipt];
275 nq++; ipt++;
276 }
277 break;
278 default:
279 ofile <<
"unidentified ptype '" << ptypes[i] <<
G4endl;
280 };
281 i++;
282 }
283}
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().