Return to range.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / lib / libF77

Annotation of 43BSDReno/lib/libF77/range.c, revision 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.4     5/13/90
        !             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: #if    hp300
        !            36:        n.i = 0x7fffffffL;
        !            37: #else  hp300
        !            38:        UNKNOWN MACHINE!
        !            39: #endif hp300
        !            40: #endif tahoe
        !            41: #endif vax
        !            42: #endif pdp11
        !            43:        return(n.f);
        !            44: }
        !            45: 
        !            46: double
        !            47: dflmax_()
        !            48: {
        !            49:        union dj n;
        !            50: #if    pdp11
        !            51:        n.j[0] = 0x7fffffffL;
        !            52:        n.j[1] = 0xffffffffL;
        !            53: #else  pdp11
        !            54: #if    vax
        !            55:        n.j[0] = 0xffff7fff;
        !            56:        n.j[1] = 0xffffffff;
        !            57: #else  vax
        !            58: #if    tahoe
        !            59:        n.j[0] = 0x7fffffffL;
        !            60:        n.j[1] = 0xffffffffL;
        !            61: #else  tahoe
        !            62: #if    hp300
        !            63:        n.j[0] = 0x7fffffffL;
        !            64:        n.j[1] = 0xffffffffL;
        !            65: #else  hp300
        !            66:        UNKNOWN MACHINE!
        !            67: #endif hp300
        !            68: #endif tahoe
        !            69: #endif vax
        !            70: #endif pdp11
        !            71:        return(n.d);
        !            72: }
        !            73: 
        !            74: float
        !            75: flmin_()
        !            76: {
        !            77:        union fi n;
        !            78: #if    pdp11
        !            79:        n.i = 0x00800000L;
        !            80: #else  pdp11
        !            81: #if    vax
        !            82:        n.i = 0x00000080;
        !            83: #else  vax
        !            84: #if    tahoe
        !            85:        n.i = 0x00800000L;
        !            86: #else  tahoe
        !            87: #if    hp300
        !            88:        n.i = 0x00800000L;
        !            89: #else  hp300
        !            90:        UNKNOWN MACHINE!
        !            91: #endif hp300
        !            92: #endif tahoe
        !            93: #endif vax
        !            94: #endif pdp11
        !            95:        return(n.f);
        !            96: }
        !            97: 
        !            98: double
        !            99: dflmin_()
        !           100: {
        !           101:        union dj n;
        !           102: #if    pdp11
        !           103:        n.j[0] = 0x00800000L;
        !           104:        n.j[1] = 0;
        !           105: #else  pdp11
        !           106: #if    vax
        !           107:        n.j[0] = 0x00000080;
        !           108:        n.j[1] = 0;
        !           109: #else  vax
        !           110: #if    tahoe
        !           111:        n.j[0] = 0x00800000L;
        !           112:        n.j[1] = 0;
        !           113: #else  tahoe
        !           114: #if    hp300
        !           115:        n.j[0] = 0x00800000L;
        !           116:        n.j[1] = 0;
        !           117: #else  hp300
        !           118:        UNKNOWN MACHINE!
        !           119: #endif hp300
        !           120: #endif tahoe
        !           121: #endif vax
        !           122: #endif pdp11
        !           123:        return(n.d);
        !           124: }
        !           125: 
        !           126: long int
        !           127: inmax_()
        !           128: {
        !           129:        return(0x7fffffffL);
        !           130: }
        !           131: 
        !           132: 
        !           133: float
        !           134: ffrac_()
        !           135: {
        !           136:        union fi n;
        !           137: #if    pdp11
        !           138:        n.i = 0x35000000L;
        !           139: #else  pdp11
        !           140: #if    vax
        !           141:        n.i = 0x00003500;
        !           142: #else  vax
        !           143: #if    tahoe
        !           144:        n.i = 0x35000000L;
        !           145: #else  tahoe
        !           146: #if    hp300
        !           147:        n.i = 0x35000000L;
        !           148: #else  hp300
        !           149:        UNKNOWN MACHINE!
        !           150: #endif hp300
        !           151: #endif tahoe
        !           152: #endif vax
        !           153: #endif pdp11
        !           154:        return(n.f);
        !           155: }
        !           156: 
        !           157: double
        !           158: dffrac_()
        !           159: {
        !           160:        union dj n;
        !           161: #if    pdp11
        !           162:        n.j[0] = 0x25000000L;
        !           163:        n.j[1] = 0;
        !           164: #else  pdp11
        !           165: #if    vax
        !           166:        n.j[0] = 0x00002500;
        !           167:        n.j[1] = 0;
        !           168: #else  vax
        !           169: #if    tahoe
        !           170:        n.j[0] = 0x25000000L;
        !           171:        n.j[1] = 0;
        !           172: #else  tahoe
        !           173: #if    hp300
        !           174:        n.j[0] = 0x25000000L;
        !           175:        n.j[1] = 0;
        !           176: #else  hp300
        !           177:        UNKNOWN MACHINE!
        !           178: #endif hp300
        !           179: #endif tahoe
        !           180: #endif vax
        !           181: #endif pdp11
        !           182:        return(n.d);
        !           183: }

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