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