Commit | Line | Data |
---|---|---|
c3c579a2 KM |
1 | /* Copyright (c) 1982 Regents of the University of California */ |
2 | ||
a745d566 | 3 | static char sccsid[] = "@(#)EXP.c 1.2 %G%"; |
c3c579a2 KM |
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); | |
c3c579a2 KM |
18 | } |
19 | return result; | |
20 | } |