1: /* Copyright (c) 1982 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)EXP.c 1.1 2/8/82";
4:
5: #include <math.h>
6: extern int errno;
7:
8: double
9: EXP(value)
10: double value;
11: {
12: double result;
13:
14: errno = 0;
15: result = exp(value);
16: if (errno != 0) {
17: ERROR("exp(%e) yields a result that is out of the range of reals\n", value);
18: return;
19: }
20: return result;
21: }
Defined functions
EXP
defined in line
8; used 2 times
Defined variables
sccsid
defined in line
3;
never used