11946325eSmckusick /* Copyright (c) 1979 Regents of the University of California */ 21946325eSmckusick 3*997dfbf1Smckusic static char sccsid[] = "@(#)LN.c 1.3 01/06/81"; 41946325eSmckusick 5*997dfbf1Smckusic #include <math.h> 61946325eSmckusick #include "h01errs.h" 71946325eSmckusick 81946325eSmckusick double 91946325eSmckusick LN(value) 101946325eSmckusick 111946325eSmckusick double value; 121946325eSmckusick { 131946325eSmckusick if (value <= 0) { 141946325eSmckusick ERROR(ELN, value); 151946325eSmckusick return; 161946325eSmckusick } 171946325eSmckusick return log(value); 181946325eSmckusick } 19