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