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