xref: /csrg-svn/usr.bin/pascal/libpc/COS.c (revision 5720)
1*5720Smckusick /* Copyright (c) 1982 Regents of the University of California */
2*5720Smckusick 
3*5720Smckusick static char sccsid[] = "@(#)COS.c 1.1 02/08/82";
4*5720Smckusick 
5*5720Smckusick #include <math.h>
6*5720Smckusick extern int errno;
7*5720Smckusick 
8*5720Smckusick double
9*5720Smckusick COS(value)
10*5720Smckusick 	double	value;
11*5720Smckusick {
12*5720Smckusick 	double result;
13*5720Smckusick 
14*5720Smckusick 	errno = 0;
15*5720Smckusick 	result = cos(value);
16*5720Smckusick 	if (errno != 0) {
17*5720Smckusick 		ERROR("Cannot compute cos(%e)\n", value);
18*5720Smckusick 		return;
19*5720Smckusick 	}
20*5720Smckusick 	return result;
21*5720Smckusick }
22