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     ! 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.