1: /* Copyright (c) 1979 Regents of the University of California */ 2: 3: static char sccsid[] = "@(#)LN.c 1.4 6/10/81"; 4: 5: #include <math.h> 6: 7: double 8: LN(value) 9: 10: double value; 11: { 12: if (value <= 0) { 13: ERROR("Non-positive argument of %e to ln\n", value); 14: return; 15: } 16: return log(value); 17: }