xref: /original-bsd/usr.bin/pascal/libpc/LN.c (revision 6c57d260)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)LN.c 1.3 01/06/81";
4 
5 #include <math.h>
6 #include "h01errs.h"
7 
8 double
9 LN(value)
10 
11 	double	value;
12 {
13 	if (value <= 0) {
14 		ERROR(ELN, value);
15 		return;
16 	}
17 	return log(value);
18 }
19