|
|
1.1 ! root 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.