Return to ranf.c CVS log

Up to [Research Unix] / researchv10no / games / trek

Annotation of researchv10no/games/trek/ranf.c, revision 1.1.1.1

1.1       root        1: ranf(max)
                      2: int    max;
                      3: {
                      4:        double  d;
                      5:        register int    t;
                      6: 
                      7:        if (max <= 0)
                      8:                return (0);
                      9:        d = rand()/32768.0;
                     10:        return(t = d*max);
                     11: }
                     12: 
                     13: 
                     14: double franf()
                     15: {
                     16:        double          t;
                     17:        t = rand();
                     18:        return (t / 32767.0);
                     19: }

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