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