11663Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21663Smckusick 3*2066Smckusic static char sccsid[] = "@(#)LN.c 1.3 01/06/81"; 41663Smckusick 5*2066Smckusic #include <math.h> 61663Smckusick #include "h01errs.h" 71663Smckusick 81663Smckusick double 91663Smckusick LN(value) 101663Smckusick 111663Smckusick double value; 121663Smckusick { 131663Smckusick if (value <= 0) { 141663Smckusick ERROR(ELN, value); 151663Smckusick return; 161663Smckusick } 171663Smckusick return log(value); 181663Smckusick } 19