1*40865Sbostic /*- 2*40865Sbostic * Copyright (c) 1982 The Regents of the University of California. 3*40865Sbostic * All rights reserved. 4*40865Sbostic * 5*40865Sbostic * %sccs.include.redist.c% 6*40865Sbostic */ 75721Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)EXP.c 1.3 (Berkeley) 04/09/90"; 10*40865Sbostic #endif /* not lint */ 115721Smckusick 125721Smckusick #include <math.h> 135721Smckusick extern int errno; 145721Smckusick 155721Smckusick double 165721Smckusick EXP(value) 175721Smckusick double value; 185721Smckusick { 195721Smckusick double result; 205721Smckusick 215721Smckusick errno = 0; 225721Smckusick result = exp(value); 235721Smckusick if (errno != 0) { 245721Smckusick ERROR("exp(%e) yields a result that is out of the range of reals\n", value); 255721Smckusick } 265721Smckusick return result; 275721Smckusick } 28