15 |
|
#include <stdio.h> |
16 |
|
#include <string.h> |
17 |
|
#include <math.h> |
18 |
+ |
|
19 |
+ |
#include "rterror.h" |
20 |
|
#include "calcomp.h" |
21 |
|
|
22 |
|
#define ZNAME "Z`SYS`" /* z function name */ |
31 |
|
#define UP 04 |
32 |
|
#define DOWN 010 |
33 |
|
|
32 |
– |
void quit(), eputs(), wputs(); |
34 |
|
|
35 |
< |
|
35 |
> |
void |
36 |
|
computen(nzp, nrp, z0, r0, z1, r1) /* compute normal */ |
37 |
|
double *nzp, *nrp, z0, r0, z1, r1; |
38 |
|
{ |
70 |
|
} |
71 |
|
|
72 |
|
|
73 |
+ |
void |
74 |
|
printhead(ac, av) /* print command header */ |
75 |
|
register int ac; |
76 |
|
register char **av; |
123 |
|
} |
124 |
|
|
125 |
|
|
126 |
+ |
int |
127 |
|
main(argc, argv) |
128 |
|
int argc; |
129 |
|
char *argv[]; |
239 |
|
lastnz = nz; lastnr = nr; |
240 |
|
nz = nextnz; nr = nextnr; |
241 |
|
} |
242 |
< |
quit(0); |
242 |
> |
return 0; |
243 |
|
|
244 |
|
userror: |
245 |
|
fprintf(stderr, |
246 |
|
"Usage: %s material name z(t) r(t) nseg [-e expr] [-f file] [-s]\n", |
247 |
|
argv[0]); |
248 |
< |
quit(1); |
248 |
> |
return 1; |
249 |
|
} |
250 |
|
|
251 |
|
|