140865Sbostic /*- 2*62096Sbostic * Copyright (c) 1982, 1993 3*62096Sbostic * The Regents of the University of California. All rights reserved. 440865Sbostic * 540865Sbostic * %sccs.include.redist.c% 640865Sbostic */ 75719Smckusick 840865Sbostic #ifndef lint 9*62096Sbostic static char sccsid[] = "@(#)SIN.c 8.1 (Berkeley) 06/06/93"; 1040865Sbostic #endif /* not lint */ 115719Smckusick 125719Smckusick #include <math.h> 135719Smckusick extern int errno; 145719Smckusick 155719Smckusick double SIN(value)165719SmckusickSIN(value) 175719Smckusick double value; 185719Smckusick { 195719Smckusick double result; 205719Smckusick 215719Smckusick errno = 0; 225719Smckusick result = sin(value); 235719Smckusick if (errno != 0) { 245719Smckusick ERROR("Cannot compute sin(%e)\n", value); 255719Smckusick } 265719Smckusick return result; 275719Smckusick } 28