| 9 | 
  | 
 | 
| 10 | 
  | 
#include  "ray.h" | 
| 11 | 
  | 
 | 
| 12 | 
+ | 
#include  "paths.h" | 
| 13 | 
+ | 
 | 
| 14 | 
  | 
#include  "otypes.h" | 
| 15 | 
  | 
 | 
| 16 | 
  | 
#include  "func.h" | 
| 33 | 
  | 
static OBJREC  *fobj = NULL;    /* current function object */ | 
| 34 | 
  | 
static RAY  *fray = NULL;       /* current function ray */ | 
| 35 | 
  | 
 | 
| 36 | 
< | 
static double  l_erf(), l_erfc(), l_arg(); | 
| 36 | 
> | 
static double  l_erf(char *), l_erfc(char *), l_arg(char *); | 
| 37 | 
  | 
 | 
| 38 | 
  | 
 | 
| 39 | 
  | 
MFUNC * | 
| 211 | 
  | 
 | 
| 212 | 
  | 
 | 
| 213 | 
  | 
static double | 
| 214 | 
< | 
l_arg()                         /* return nth real argument */ | 
| 214 | 
> | 
l_arg(char *nm)                 /* return nth real argument */ | 
| 215 | 
  | 
{ | 
| 216 | 
  | 
        register int  n; | 
| 217 | 
  | 
 | 
| 232 | 
  | 
 | 
| 233 | 
  | 
 | 
| 234 | 
  | 
static double | 
| 235 | 
< | 
l_erf()                         /* error function */ | 
| 235 | 
> | 
l_erf(char *nm)                 /* error function */ | 
| 236 | 
  | 
{ | 
| 237 | 
  | 
        extern double  erf(); | 
| 238 | 
  | 
 | 
| 241 | 
  | 
 | 
| 242 | 
  | 
 | 
| 243 | 
  | 
static double | 
| 244 | 
< | 
l_erfc()                        /* cumulative error function */ | 
| 244 | 
> | 
l_erfc(char *nm)                /* cumulative error function */ | 
| 245 | 
  | 
{ | 
| 246 | 
  | 
        extern double  erfc(); | 
| 247 | 
  | 
 |