# | Line 15 | Line 15 | static char SCCSid[] = "$SunId$ LBL"; | |
---|---|---|
15 | */ | |
16 | ||
17 | #include <stdio.h> | |
18 | + | #include <math.h> |
19 | ||
20 | < | #define ZNAME "Z_" /* z function name */ |
21 | < | #define RNAME "R_" /* r function name */ |
20 | > | #define ZNAME "Z`SYS`" /* z function name */ |
21 | > | #define RNAME "R`SYS`" /* r function name */ |
22 | ||
23 | #define PI 3.14159265358979323846 | |
24 | ||
# | Line 160 | Line 161 | userror: | |
161 | computen(nzp, nrp, z0, r0, z1, r1) /* compute normal */ | |
162 | double *nzp, *nrp, z0, r0, z1, r1; | |
163 | { | |
163 | – | extern double sqrt(); |
164 | double dr, dz, len; | |
165 | ||
166 | dz = r0 - r1; /* right angle vector */ |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |