xref: /csrg-svn/usr.bin/pascal/libpc/LN.c (revision 40865)
1*40865Sbostic /*-
2*40865Sbostic  * Copyright (c) 1979 The Regents of the University of California.
3*40865Sbostic  * All rights reserved.
4*40865Sbostic  *
5*40865Sbostic  * %sccs.include.redist.c%
6*40865Sbostic  */
71663Smckusick 
8*40865Sbostic #ifndef lint
9*40865Sbostic static char sccsid[] = "@(#)LN.c	1.6 (Berkeley) 04/09/90";
10*40865Sbostic #endif /* not lint */
111663Smckusick 
122066Smckusic #include <math.h>
131663Smckusick 
141663Smckusick double
151663Smckusick LN(value)
161663Smckusick 
171663Smckusick 	double	value;
181663Smckusick {
191663Smckusick 	if (value <= 0) {
203867Smckusic 		ERROR("Non-positive argument of %e to ln\n", value);
211663Smckusick 	}
221663Smckusick 	return log(value);
231663Smckusick }
24