Return to range.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / libF77

Annotation of 43BSDTahoe/usr.lib/libF77/range.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  *
                      6:  *     @(#)range.c     5.3     10/30/86
                      7:  *
                      8:  * routines to return extreme values
                      9:  * VERY MACHINE DEPENDENT
                     10:  */
                     11: 
                     12: union fi
                     13: {      float   f;
                     14:        long    i;
                     15: } ;
                     16: 
                     17: union dj
                     18: {      double  d;
                     19:        long    j[2];
                     20: } ;
                     21: 
                     22: float
                     23: flmax_()
                     24: {
                     25:        union fi n;
                     26: #if    pdp11
                     27:        n.i = 0x7fffffffL;
                     28: #else  pdp11
                     29: #if    vax
                     30:        n.i = 0xffff7fff;
                     31: #else  vax
                     32: #if    tahoe
                     33:        n.i = 0x7fffffffL;
                     34: #else  tahoe
                     35:        UNKNOWN MACHINE!
                     36: #endif tahoe
                     37: #endif vax
                     38: #endif pdp11
                     39:        return(n.f);
                     40: }
                     41: 
                     42: double
                     43: dflmax_()
                     44: {
                     45:        union dj n;
                     46: #if    pdp11
                     47:        n.j[0] = 0x7fffffffL;
                     48:        n.j[1] = 0xffffffffL;
                     49: #else  pdp11
                     50: #if    vax
                     51:        n.j[0] = 0xffff7fff;
                     52:        n.j[1] = 0xffffffff;
                     53: #else  vax
                     54: #if    tahoe
                     55:        n.j[0] = 0x7fffffffL;
                     56:        n.j[1] = 0xffffffffL;
                     57: #else  tahoe
                     58:        UNKNOWN MACHINE!
                     59: #endif tahoe
                     60: #endif vax
                     61: #endif pdp11
                     62:        return(n.d);
                     63: }
                     64: 
                     65: float
                     66: flmin_()
                     67: {
                     68:        union fi n;
                     69: #if    pdp11
                     70:        n.i = 0x00800000L;
                     71: #else  pdp11
                     72: #if    vax
                     73:        n.i = 0x00000080;
                     74: #else  vax
                     75: #if    tahoe
                     76:        n.i = 0x00800000L;
                     77: #else  tahoe
                     78:        UNKNOWN MACHINE!
                     79: #endif tahoe
                     80: #endif vax
                     81: #endif pdp11
                     82:        return(n.f);
                     83: }
                     84: 
                     85: double
                     86: dflmin_()
                     87: {
                     88:        union dj n;
                     89: #if    pdp11
                     90:        n.j[0] = 0x00800000L;
                     91:        n.j[1] = 0;
                     92: #else  pdp11
                     93: #if    vax
                     94:        n.j[0] = 0x00000080;
                     95:        n.j[1] = 0;
                     96: #else  vax
                     97: #if    tahoe
                     98:        n.j[0] = 0x00800000L;
                     99:        n.j[1] = 0;
                    100: #else  tahoe
                    101:        UNKNOWN MACHINE!
                    102: #endif tahoe
                    103: #endif vax
                    104: #endif pdp11
                    105:        return(n.d);
                    106: }
                    107: 
                    108: long int
                    109: inmax_()
                    110: {
                    111:        return(0x7fffffffL);
                    112: }
                    113: 
                    114: 
                    115: float
                    116: ffrac_()
                    117: {
                    118:        union fi n;
                    119: #if    pdp11
                    120:        n.i = 0x35000000L;
                    121: #else  pdp11
                    122: #if    vax
                    123:        n.i = 0x00003500;
                    124: #else  vax
                    125: #if    tahoe
                    126:        n.i = 0x35000000L;
                    127: #else  tahoe
                    128:        UNKNOWN MACHINE!
                    129: #endif tahoe
                    130: #endif vax
                    131: #endif pdp11
                    132:        return(n.f);
                    133: }
                    134: 
                    135: double
                    136: dffrac_()
                    137: {
                    138:        union dj n;
                    139: #if    pdp11
                    140:        n.j[0] = 0x25000000L;
                    141:        n.j[1] = 0;
                    142: #else  pdp11
                    143: #if    vax
                    144:        n.j[0] = 0x00002500;
                    145:        n.j[1] = 0;
                    146: #else  vax
                    147: #if    tahoe
                    148:        n.j[0] = 0x25000000L;
                    149:        n.j[1] = 0;
                    150: #else  tahoe
                    151:        UNKNOWN MACHINE!
                    152: #endif tahoe
                    153: #endif vax
                    154: #endif pdp11
                    155:        return(n.d);
                    156: }

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