1*40865Sbostic /*- 2*40865Sbostic * Copyright (c) 1982 The Regents of the University of California. 3*40865Sbostic * All rights reserved. 4*40865Sbostic * 5*40865Sbostic * %sccs.include.redist.c% 6*40865Sbostic */ 75719Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)SIN.c 1.3 (Berkeley) 04/09/90"; 10*40865Sbostic #endif /* not lint */ 115719Smckusick 125719Smckusick #include <math.h> 135719Smckusick extern int errno; 145719Smckusick 155719Smckusick double 165719Smckusick SIN(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