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
Last modified: 1983-02-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 894
Valid CSS Valid XHTML 1.0 Strict