Return to fmod.c CVS log

Up to [Research Unix] / researchv10no / cmd / sky

Annotation of researchv10no/cmd/sky/fmod.c, revision 1.1.1.1

1.1       root        1: double
                      2: fmod(x, y)
                      3: double x, y;
                      4: {
                      5:        extern double modf();
                      6:        double d;
                      7: 
                      8:        if (y == 0.0)
                      9:                return (x);
                     10: #ifndef        u3b
                     11: #ifndef        pdp11
                     12:        (void)
                     13:        /* This MUST be fixed for 5.0!  It is intended to be very temporary! */
                     14: #endif
                     15: #endif
                     16:        modf(x/y, &d);
                     17:        return (x - d * y);
                     18: }

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