![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to range.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / lib / libF77|
Return to range.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / lib / libF77 |
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.