| 173 |
|
char *binval = NULL; |
| 174 |
|
char fmt[8]; |
| 175 |
|
int i, j; |
| 176 |
+ |
/* need at least one argument */ |
| 177 |
+ |
if (argc < 2) { |
| 178 |
+ |
fprintf(stderr, |
| 179 |
+ |
"Usage: %s [-n nprocs][-r][-e expr][-f source][-o ospec][-b binv] {-m mod | -M file} [rtrace options] octree\n", |
| 180 |
+ |
argv[0]); |
| 181 |
+ |
exit(1); |
| 182 |
+ |
} |
| 183 |
|
/* global program name */ |
| 184 |
|
gargv = argv; |
| 185 |
|
/* initialize calcomp routines */ |
| 322 |
|
error(USER, "missing octree argument"); |
| 323 |
|
rtargv[rtargc++] = octree = argv[i]; |
| 324 |
|
rtargv[rtargc] = NULL; |
| 325 |
< |
/* start rtrace & compute contributions */ |
| 325 |
> |
/* start rtrace */ |
| 326 |
|
init(nprocs); |
| 327 |
|
if (recover) /* perform recovery if requested */ |
| 328 |
|
recover_output(stdin); |
| 329 |
< |
trace_contribs(stdin); |
| 329 |
> |
trace_contribs(stdin); /* compute contributions */ |
| 330 |
|
quit(0); |
| 331 |
|
} |
| 332 |
|
|
| 1097 |
|
if (lastout < 0) { |
| 1098 |
|
error(WARNING, "no output files to recover"); |
| 1099 |
|
return; |
| 1100 |
+ |
} |
| 1101 |
+ |
if (raysleft && lastout >= raysleft) { |
| 1102 |
+ |
error(WARNING, "output appears to be complete"); |
| 1103 |
+ |
/* XXX should read & discard input? */ |
| 1104 |
+ |
quit(0); |
| 1105 |
|
} |
| 1106 |
|
/* seek on all files */ |
| 1107 |
|
nvals = lastout * outvsiz; |