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