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