1 /* Copyright (c) 1982 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)EXP.c 1.1 02/08/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 } 22