1*1946325eSmckusick /* Copyright (c) 1979 Regents of the University of California */ 2*1946325eSmckusick 3*1946325eSmckusick static char sccsid[] = "@(#)LN.c 1.1 10/30/80"; 4*1946325eSmckusick 5*1946325eSmckusick #include "h01errs.h" 6*1946325eSmckusick 7*1946325eSmckusick double 8*1946325eSmckusick LN(value) 9*1946325eSmckusick 10*1946325eSmckusick double value; 11*1946325eSmckusick { 12*1946325eSmckusick if (value <= 0) { 13*1946325eSmckusick ERROR(ELN, value); 14*1946325eSmckusick return; 15*1946325eSmckusick } 16*1946325eSmckusick return log(value); 17*1946325eSmckusick } 18