11663Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21663Smckusick 3*3867Smckusic static char sccsid[] = "@(#)LN.c 1.4 06/10/81"; 41663Smckusick 52066Smckusic #include <math.h> 61663Smckusick 71663Smckusick double 81663Smckusick LN(value) 91663Smckusick 101663Smckusick double value; 111663Smckusick { 121663Smckusick if (value <= 0) { 13*3867Smckusic ERROR("Non-positive argument of %e to ln\n", value); 141663Smckusick return; 151663Smckusick } 161663Smckusick return log(value); 171663Smckusick } 18