Return to acos.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libnm

Annotation of 42BSD/usr.lib/libnm/acos.c, revision 1.1.1.1

1.1       root        1: /*
                      2: acos(arg) return the arccos,
                      3:        respectively of their arguments.
                      4: 
                      5:        Arctan is called after appropriate range reduction.
                      6: */
                      7: 
                      8: #include       <errno.h>
                      9: int errno;
                     10: double atan();
                     11: double asin();
                     12: static double pio2     = 1.570796326794896619;
                     13: 
                     14: double
                     15: acos(arg) double arg; {
                     16: 
                     17:        asm("   bispsw  $0xe0");
                     18:        if(arg > 1.|| arg < -1.){
                     19:                errno = EDOM;
                     20:                return(0.);
                     21:        }
                     22: 
                     23:        return(pio2 - asin(arg));
                     24: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.