Commit | Line | Data |
---|---|---|
eaef4d9b | 1 | /* |
775a163d | 2 | char id_range[] = "@(#)range.c 1.2"; |
eaef4d9b DW |
3 | * |
4 | * routines to return extreme values | |
5 | * VERY MACHINE DEPENDENT | |
6 | */ | |
7 | ||
8 | union fi | |
9 | { float f; | |
10 | long i; | |
11 | } ; | |
12 | ||
13 | union dj | |
14 | { double d; | |
15 | long j[2]; | |
16 | } ; | |
17 | ||
18 | float | |
19 | flmax_() | |
20 | { | |
21 | union fi n; | |
775a163d | 22 | #if pdp11 |
eaef4d9b | 23 | n.i = 0x7fffffffL; |
775a163d DW |
24 | #else pdp11 |
25 | #if vax | |
eaef4d9b | 26 | n.i = 0xffff7fff; |
775a163d DW |
27 | #else vax |
28 | UNKNOWN MACHINE! | |
29 | #endif vax | |
30 | #endif pdp11 | |
eaef4d9b DW |
31 | return(n.f); |
32 | } | |
33 | ||
34 | double | |
35 | dflmax_() | |
36 | { | |
37 | union dj n; | |
775a163d | 38 | #if pdp11 |
eaef4d9b DW |
39 | n.j[0] = 0x7fffffffL; |
40 | n.j[1] = 0xffffffffL; | |
775a163d DW |
41 | #else pdp11 |
42 | #if vax | |
eaef4d9b DW |
43 | n.j[0] = 0xffff7fff; |
44 | n.j[1] = 0xffffffff; | |
775a163d DW |
45 | #else vax |
46 | UNKNOWN MACHINE! | |
47 | #endif vax | |
48 | #endif pdp11 | |
eaef4d9b DW |
49 | return(n.d); |
50 | } | |
51 | ||
52 | float | |
53 | flmin_() | |
54 | { | |
55 | union fi n; | |
775a163d | 56 | #if pdp11 |
eaef4d9b | 57 | n.i = 0x00800000L; |
775a163d DW |
58 | #else pdp11 |
59 | #if vax | |
eaef4d9b | 60 | n.i = 0x00000080; |
775a163d DW |
61 | #else vax |
62 | UNKNOWN MACHINE! | |
63 | #endif vax | |
64 | #endif pdp11 | |
eaef4d9b DW |
65 | return(n.f); |
66 | } | |
67 | ||
68 | double | |
69 | dflmin_() | |
70 | { | |
71 | union dj n; | |
775a163d | 72 | #if pdp11 |
eaef4d9b DW |
73 | n.j[0] = 0x00800000L; |
74 | n.j[1] = 0; | |
775a163d DW |
75 | #else pdp11 |
76 | #if vax | |
eaef4d9b DW |
77 | n.j[0] = 0x00000080; |
78 | n.j[1] = 0; | |
775a163d DW |
79 | #else vax |
80 | UNKNOWN MACHINE! | |
81 | #endif vax | |
82 | #endif pdp11 | |
eaef4d9b DW |
83 | return(n.d); |
84 | } | |
85 | ||
86 | long int | |
87 | inmax_() | |
88 | { | |
775a163d | 89 | return(0x7fffffffL); |
eaef4d9b DW |
90 | } |
91 | ||
775a163d DW |
92 | |
93 | float | |
94 | ffrac_() | |
95 | { | |
96 | union fi n; | |
97 | #if pdp11 | |
98 | n.i = 0x35000000L; | |
99 | #else pdp11 | |
100 | #if vax | |
101 | n.i = 0x00003500; | |
102 | #else vax | |
103 | UNKNOWN MACHINE! | |
104 | #endif vax | |
105 | #endif pdp11 | |
106 | return(n.f); | |
107 | } | |
108 | ||
109 | double | |
110 | dffrac_() | |
111 | { | |
112 | union dj n; | |
113 | #if pdp11 | |
114 | n.j[0] = 0x25000000L; | |
115 | n.j[1] = 0; | |
116 | #else pdp11 | |
117 | #if vax | |
118 | n.j[0] = 0x00002500; | |
119 | n.j[1] = 0; | |
120 | #else vax | |
121 | UNKNOWN MACHINE! | |
122 | #endif vax | |
123 | #endif pdp11 | |
124 | return(n.d); | |
125 | } |