Mercurial > octave-nkf

annotate libcruft/misc/i1mach.f @ 4720:e759d01692db ss-2-1-53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-01-23 04:13:37 by jwe]
author jwe
date Fri, 23 Jan 2004 04:13:37 +0000
parents db38fe433efd
children 32b15d5c3147
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
981
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
1 INTEGER FUNCTION I1MACH(I)
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
2 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
3 C I/O UNIT NUMBERS.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
4 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
5 C I1MACH( 1) = THE STANDARD INPUT UNIT.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
6 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
7 C I1MACH( 2) = THE STANDARD OUTPUT UNIT.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
8 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
9 C I1MACH( 3) = THE STANDARD PUNCH UNIT.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
10 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
11 C I1MACH( 4) = THE STANDARD ERROR MESSAGE UNIT.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
12 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
13 C WORDS.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
14 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
15 C I1MACH( 5) = THE NUMBER OF BITS PER INTEGER STORAGE UNIT.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
16 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
17 C I1MACH( 6) = THE NUMBER OF CHARACTERS PER CHARACTER STORAGE UNIT.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
18 C FOR FORTRAN 77, THIS IS ALWAYS 1. FOR FORTRAN 66,
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
19 C CHARACTER STORAGE UNIT = INTEGER STORAGE UNIT.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
20 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
21 C INTEGERS.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
22 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
23 C ASSUME INTEGERS ARE REPRESENTED IN THE S-DIGIT, BASE-A FORM
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
24 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
25 C SIGN ( X(S-1)*A**(S-1) + ... + X(1)*A + X(0) )
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
26 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
27 C WHERE 0 .LE. X(I) .LT. A FOR I=0,...,S-1.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
28 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
29 C I1MACH( 7) = A, THE BASE.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
30 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
31 C I1MACH( 8) = S, THE NUMBER OF BASE-A DIGITS.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
32 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
33 C I1MACH( 9) = A**S - 1, THE LARGEST MAGNITUDE.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
34 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
35 C FLOATING-POINT NUMBERS.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
36 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
37 C ASSUME FLOATING-POINT NUMBERS ARE REPRESENTED IN THE T-DIGIT,
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
38 C BASE-B FORM
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
39 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
40 C SIGN (B**E)*( (X(1)/B) + ... + (X(T)/B**T) )
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
41 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
42 C WHERE 0 .LE. X(I) .LT. B FOR I=1,...,T,
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
43 C 0 .LT. X(1), AND EMIN .LE. E .LE. EMAX.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
44 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
45 C I1MACH(10) = B, THE BASE.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
46 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
47 C SINGLE-PRECISION
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
48 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
49 C I1MACH(11) = T, THE NUMBER OF BASE-B DIGITS.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
50 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
51 C I1MACH(12) = EMIN, THE SMALLEST EXPONENT E.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
52 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
53 C I1MACH(13) = EMAX, THE LARGEST EXPONENT E.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
54 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
55 C DOUBLE-PRECISION
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
56 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
57 C I1MACH(14) = T, THE NUMBER OF BASE-B DIGITS.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
58 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
59 C I1MACH(15) = EMIN, THE SMALLEST EXPONENT E.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
60 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
61 C I1MACH(16) = EMAX, THE LARGEST EXPONENT E.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
62 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
63 C TO ALTER THIS FUNCTION FOR A PARTICULAR ENVIRONMENT,
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
64 C THE DESIRED SET OF DATA STATEMENTS SHOULD BE ACTIVATED BY
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
65 C REMOVING THE C FROM COLUMN 1. ALSO, THE VALUES OF
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
66 C I1MACH(1) - I1MACH(4) SHOULD BE CHECKED FOR CONSISTENCY
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
67 C WITH THE LOCAL OPERATING SYSTEM. FOR FORTRAN 77, YOU MAY WISH
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
68 C TO ADJUST THE DATA STATEMENT SO IMACH(6) IS SET TO 1, AND
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
69 C THEN TO COMMENT OUT THE EXECUTABLE TEST ON I .EQ. 6 BELOW.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
70 C ON RARE MACHINES A STATIC STATEMENT MAY NEED TO BE ADDED.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
71 C (BUT PROBABLY MORE SYSTEMS PROHIBIT IT THAN REQUIRE IT.)
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
72 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
73 C FOR IEEE-ARITHMETIC MACHINES (BINARY STANDARD), THE FIRST
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
74 C SET OF CONSTANTS BELOW SHOULD BE APPROPRIATE, EXCEPT PERHAPS
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
75 C FOR IMACH(1) - IMACH(4).
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
76 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
77 INTEGER IMACH(16),OUTPUT,SANITY
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
78 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
79 EQUIVALENCE (IMACH(4),OUTPUT)
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
80 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
81 C MACHINE CONSTANTS FOR IEEE ARITHMETIC MACHINES, SUCH AS THE AT&T
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
82 C 3B SERIES, MOTOROLA 68000 BASED MACHINES (E.G. SUN 3 AND AT&T
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
83 C PC 7300), AND 8087 BASED MICROS (E.G. IBM PC AND AT&T 6300).
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
84 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
85 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
86 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
87 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
88 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
89 C DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
90 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
91 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
92 C DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
93 C DATA IMACH( 9) / 2147483647 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
94 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
95 C DATA IMACH(11) / 24 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
96 C DATA IMACH(12) / -125 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
97 C DATA IMACH(13) / 128 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
98 C DATA IMACH(14) / 53 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
99 C DATA IMACH(15) / -1021 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
100 C DATA IMACH(16) / 1024 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
101 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
102 C MACHINE CONSTANTS FOR AMDAHL MACHINES.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
103 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
104 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
105 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
106 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
107 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
108 C DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
109 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
110 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
111 C DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
112 C DATA IMACH( 9) / 2147483647 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
113 C DATA IMACH(10) / 16 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
114 C DATA IMACH(11) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
115 C DATA IMACH(12) / -64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
116 C DATA IMACH(13) / 63 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
117 C DATA IMACH(14) / 14 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
118 C DATA IMACH(15) / -64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
119 C DATA IMACH(16) / 63 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
120 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
121 C MACHINE CONSTANTS FOR THE BURROUGHS 1700 SYSTEM.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
122 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
123 C DATA IMACH( 1) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
124 C DATA IMACH( 2) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
125 C DATA IMACH( 3) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
126 C DATA IMACH( 4) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
127 C DATA IMACH( 5) / 36 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
128 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
129 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
130 C DATA IMACH( 8) / 33 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
131 C DATA IMACH( 9) / Z1FFFFFFFF /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
132 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
133 C DATA IMACH(11) / 24 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
134 C DATA IMACH(12) / -256 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
135 C DATA IMACH(13) / 255 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
136 C DATA IMACH(14) / 60 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
137 C DATA IMACH(15) / -256 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
138 C DATA IMACH(16) / 255 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
139 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
140 C MACHINE CONSTANTS FOR THE BURROUGHS 5700 SYSTEM.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
141 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
142 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
143 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
144 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
145 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
146 C DATA IMACH( 5) / 48 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
147 C DATA IMACH( 6) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
148 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
149 C DATA IMACH( 8) / 39 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
150 C DATA IMACH( 9) / O0007777777777777 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
151 C DATA IMACH(10) / 8 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
152 C DATA IMACH(11) / 13 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
153 C DATA IMACH(12) / -50 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
154 C DATA IMACH(13) / 76 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
155 C DATA IMACH(14) / 26 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
156 C DATA IMACH(15) / -50 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
157 C DATA IMACH(16) / 76 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
158 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
159 C MACHINE CONSTANTS FOR THE BURROUGHS 6700/7700 SYSTEMS.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
160 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
161 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
162 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
163 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
164 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
165 C DATA IMACH( 5) / 48 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
166 C DATA IMACH( 6) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
167 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
168 C DATA IMACH( 8) / 39 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
169 C DATA IMACH( 9) / O0007777777777777 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
170 C DATA IMACH(10) / 8 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
171 C DATA IMACH(11) / 13 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
172 C DATA IMACH(12) / -50 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
173 C DATA IMACH(13) / 76 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
174 C DATA IMACH(14) / 26 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
175 C DATA IMACH(15) / -32754 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
176 C DATA IMACH(16) / 32780 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
177 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
178 C MACHINE CONSTANTS FOR FTN4 ON THE CDC 6000/7000 SERIES.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
179 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
180 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
181 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
182 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
183 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
184 C DATA IMACH( 5) / 60 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
185 C DATA IMACH( 6) / 10 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
186 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
187 C DATA IMACH( 8) / 48 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
188 C DATA IMACH( 9) / 00007777777777777777B /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
189 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
190 C DATA IMACH(11) / 47 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
191 C DATA IMACH(12) / -929 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
192 C DATA IMACH(13) / 1070 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
193 C DATA IMACH(14) / 94 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
194 C DATA IMACH(15) / -929 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
195 C DATA IMACH(16) / 1069 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
196 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
197 C MACHINE CONSTANTS FOR FTN5 ON THE CDC 6000/7000 SERIES.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
198 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
199 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
200 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
201 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
202 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
203 C DATA IMACH( 5) / 60 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
204 C DATA IMACH( 6) / 10 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
205 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
206 C DATA IMACH( 8) / 48 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
207 C DATA IMACH( 9) / O"00007777777777777777" /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
208 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
209 C DATA IMACH(11) / 47 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
210 C DATA IMACH(12) / -929 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
211 C DATA IMACH(13) / 1070 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
212 C DATA IMACH(14) / 94 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
213 C DATA IMACH(15) / -929 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
214 C DATA IMACH(16) / 1069 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
215 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
216 C MACHINE CONSTANTS FOR CONVEX C-1.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
217 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
218 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
219 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
220 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
221 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
222 C DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
223 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
224 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
225 C DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
226 C DATA IMACH( 9) / 2147483647 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
227 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
228 C DATA IMACH(11) / 24 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
229 C DATA IMACH(12) / -128 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
230 C DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
231 C DATA IMACH(14) / 53 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
232 C DATA IMACH(15) /-1024 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
233 C DATA IMACH(16) / 1023 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
234 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
235 C MACHINE CONSTANTS FOR THE CRAY 1, XMP, 2, AND 3.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
236 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
237 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
238 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
239 C DATA IMACH( 3) / 102 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
240 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
241 C DATA IMACH( 5) / 64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
242 C DATA IMACH( 6) / 8 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
243 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
244 C DATA IMACH( 8) / 63 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
245 C DATA IMACH( 9) / 777777777777777777777B /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
246 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
247 C DATA IMACH(11) / 47 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
248 C DATA IMACH(12) / -8189 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
249 C DATA IMACH(13) / 8190 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
250 C DATA IMACH(14) / 94 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
251 C DATA IMACH(15) / -8099 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
252 C DATA IMACH(16) / 8190 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
253 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
254 C MACHINE CONSTANTS FOR THE DATA GENERAL ECLIPSE S/200.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
255 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
256 C DATA IMACH( 1) / 11 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
257 C DATA IMACH( 2) / 12 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
258 C DATA IMACH( 3) / 8 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
259 C DATA IMACH( 4) / 10 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
260 C DATA IMACH( 5) / 16 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
261 C DATA IMACH( 6) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
262 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
263 C DATA IMACH( 8) / 15 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
264 C DATA IMACH( 9) /32767 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
265 C DATA IMACH(10) / 16 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
266 C DATA IMACH(11) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
267 C DATA IMACH(12) / -64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
268 C DATA IMACH(13) / 63 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
269 C DATA IMACH(14) / 14 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
270 C DATA IMACH(15) / -64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
271 C DATA IMACH(16) / 63 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
272 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
273 C MACHINE CONSTANTS FOR THE HARRIS SLASH 6 AND SLASH 7.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
274 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
275 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
276 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
277 C DATA IMACH( 3) / 0 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
278 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
279 C DATA IMACH( 5) / 24 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
280 C DATA IMACH( 6) / 3 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
281 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
282 C DATA IMACH( 8) / 23 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
283 C DATA IMACH( 9) / 8388607 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
284 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
285 C DATA IMACH(11) / 23 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
286 C DATA IMACH(12) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
287 C DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
288 C DATA IMACH(14) / 38 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
289 C DATA IMACH(15) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
290 C DATA IMACH(16) / 127 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
291 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
292 C MACHINE CONSTANTS FOR THE HONEYWELL DPS 8/70 SERIES.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
293 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
294 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
295 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
296 C DATA IMACH( 3) / 43 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
297 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
298 C DATA IMACH( 5) / 36 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
299 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
300 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
301 C DATA IMACH( 8) / 35 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
302 C DATA IMACH( 9) / O377777777777 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
303 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
304 C DATA IMACH(11) / 27 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
305 C DATA IMACH(12) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
306 C DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
307 C DATA IMACH(14) / 63 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
308 C DATA IMACH(15) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
309 C DATA IMACH(16) / 127 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
310 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
311 C MACHINE CONSTANTS FOR THE IBM 360/370 SERIES,
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
312 C THE XEROX SIGMA 5/7/9 AND THE SEL SYSTEMS 85/86.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
313 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
314 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
315 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
316 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
317 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
318 C DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
319 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
320 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
321 C DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
322 C DATA IMACH( 9) / Z7FFFFFFF /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
323 C DATA IMACH(10) / 16 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
324 C DATA IMACH(11) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
325 C DATA IMACH(12) / -64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
326 C DATA IMACH(13) / 63 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
327 C DATA IMACH(14) / 14 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
328 C DATA IMACH(15) / -64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
329 C DATA IMACH(16) / 63 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
330 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
331 C MACHINE CONSTANTS FOR THE INTERDATA 8/32
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
332 C WITH THE UNIX SYSTEM FORTRAN 77 COMPILER.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
333 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
334 C FOR THE INTERDATA FORTRAN VII COMPILER REPLACE
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
335 C THE Z'S SPECIFYING HEX CONSTANTS WITH Y'S.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
336 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
337 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
338 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
339 C DATA IMACH( 3) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
340 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
341 C DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
342 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
343 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
344 C DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
345 C DATA IMACH( 9) / Z'7FFFFFFF' /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
346 C DATA IMACH(10) / 16 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
347 C DATA IMACH(11) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
348 C DATA IMACH(12) / -64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
349 C DATA IMACH(13) / 62 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
350 C DATA IMACH(14) / 14 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
351 C DATA IMACH(15) / -64 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
352 C DATA IMACH(16) / 62 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
353 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
354 C MACHINE CONSTANTS FOR THE PDP-10 (KA PROCESSOR).
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
355 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
356 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
357 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
358 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
359 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
360 C DATA IMACH( 5) / 36 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
361 C DATA IMACH( 6) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
362 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
363 C DATA IMACH( 8) / 35 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
364 C DATA IMACH( 9) / "377777777777 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
365 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
366 C DATA IMACH(11) / 27 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
367 C DATA IMACH(12) / -128 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
368 C DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
369 C DATA IMACH(14) / 54 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
370 C DATA IMACH(15) / -101 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
371 C DATA IMACH(16) / 127 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
372 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
373 C MACHINE CONSTANTS FOR THE PDP-10 (KI PROCESSOR).
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
374 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
375 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
376 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
377 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
378 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
379 C DATA IMACH( 5) / 36 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
380 C DATA IMACH( 6) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
381 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
382 C DATA IMACH( 8) / 35 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
383 C DATA IMACH( 9) / "377777777777 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
384 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
385 C DATA IMACH(11) / 27 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
386 C DATA IMACH(12) / -128 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
387 C DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
388 C DATA IMACH(14) / 62 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
389 C DATA IMACH(15) / -128 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
390 C DATA IMACH(16) / 127 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
391 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
392 C MACHINE CONSTANTS FOR PDP-11 FORTRANS SUPPORTING
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
393 C 32-BIT INTEGER ARITHMETIC.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
394 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
395 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
396 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
397 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
398 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
399 C DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
400 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
401 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
402 C DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
403 C DATA IMACH( 9) / 2147483647 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
404 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
405 C DATA IMACH(11) / 24 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
406 C DATA IMACH(12) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
407 C DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
408 C DATA IMACH(14) / 56 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
409 C DATA IMACH(15) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
410 C DATA IMACH(16) / 127 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
411 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
412 C MACHINE CONSTANTS FOR PDP-11 FORTRANS SUPPORTING
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
413 C 16-BIT INTEGER ARITHMETIC.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
414 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
415 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
416 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
417 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
418 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
419 C DATA IMACH( 5) / 16 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
420 C DATA IMACH( 6) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
421 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
422 C DATA IMACH( 8) / 15 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
423 C DATA IMACH( 9) / 32767 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
424 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
425 C DATA IMACH(11) / 24 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
426 C DATA IMACH(12) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
427 C DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
428 C DATA IMACH(14) / 56 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
429 C DATA IMACH(15) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
430 C DATA IMACH(16) / 127 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
431 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
432 C MACHINE CONSTANTS FOR THE PRIME 50 SERIES SYSTEMS
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
433 C WTIH 32-BIT INTEGERS AND 64V MODE INSTRUCTIONS,
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
434 C SUPPLIED BY IGOR BRAY.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
435 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
436 C DATA IMACH( 1) / 1 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
437 C DATA IMACH( 2) / 1 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
438 C DATA IMACH( 3) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
439 C DATA IMACH( 4) / 1 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
440 C DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
441 C DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
442 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
443 C DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
444 C DATA IMACH( 9) / :17777777777 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
445 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
446 C DATA IMACH(11) / 23 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
447 C DATA IMACH(12) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
448 C DATA IMACH(13) / +127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
449 C DATA IMACH(14) / 47 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
450 C DATA IMACH(15) / -32895 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
451 C DATA IMACH(16) / +32637 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
452 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
453 C MACHINE CONSTANTS FOR THE SEQUENT BALANCE 8000.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
454 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
455 C DATA IMACH( 1) / 0 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
456 C DATA IMACH( 2) / 0 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
457 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
458 C DATA IMACH( 4) / 0 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
459 C DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
460 C DATA IMACH( 6) / 1 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
461 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
462 C DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
463 C DATA IMACH( 9) / 2147483647 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
464 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
465 C DATA IMACH(11) / 24 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
466 C DATA IMACH(12) / -125 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
467 C DATA IMACH(13) / 128 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
468 C DATA IMACH(14) / 53 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
469 C DATA IMACH(15) / -1021 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
470 C DATA IMACH(16) / 1024 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
471 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
472 C MACHINE CONSTANTS FOR THE UNIVAC 1100 SERIES.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
473 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
474 C NOTE THAT THE PUNCH UNIT, I1MACH(3), HAS BEEN SET TO 7
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
475 C WHICH IS APPROPRIATE FOR THE UNIVAC-FOR SYSTEM.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
476 C IF YOU HAVE THE UNIVAC-FTN SYSTEM, SET IT TO 1.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
477 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
478 C DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
479 C DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
480 C DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
481 C DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
482 C DATA IMACH( 5) / 36 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
483 C DATA IMACH( 6) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
484 C DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
485 C DATA IMACH( 8) / 35 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
486 C DATA IMACH( 9) / O377777777777 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
487 C DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
488 C DATA IMACH(11) / 27 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
489 C DATA IMACH(12) / -128 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
490 C DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
491 C DATA IMACH(14) / 60 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
492 C DATA IMACH(15) /-1024 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
493 C DATA IMACH(16) / 1023 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
494 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
495 C MACHINE CONSTANTS FOR VAX.
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
496 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
497 DATA IMACH( 1) / 5 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
498 DATA IMACH( 2) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
499 DATA IMACH( 3) / 7 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
500 DATA IMACH( 4) / 6 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
501 DATA IMACH( 5) / 32 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
502 DATA IMACH( 6) / 4 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
503 DATA IMACH( 7) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
504 DATA IMACH( 8) / 31 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
505 DATA IMACH( 9) / 2147483647 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
506 DATA IMACH(10) / 2 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
507 DATA IMACH(11) / 24 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
508 DATA IMACH(12) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
509 DATA IMACH(13) / 127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
510 DATA IMACH(14) / 56 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
511 DATA IMACH(15) / -127 /
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
512 DATA IMACH(16) / 127 /, SANITY/987/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
513 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
514 C *** ISSUE STOP 777 IF ALL DATA STATEMENTS ARE COMMENTED...
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
515 IF (SANITY .NE. 987) STOP 777
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
516 IF (I .LT. 1 .OR. I .GT. 16) GO TO 10
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
517 C
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
518 I1MACH = IMACH(I)
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
519 C/6S
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
520 C/7S
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
521 IF(I.EQ.6) I1MACH=1
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
522 C/
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
523 RETURN
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
524 10 WRITE(OUTPUT,1999) I
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
525 1999 FORMAT(' I1MACH - I OUT OF BOUNDS',I10)
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
526 CALL XSTOPX (' ')
982
db38fe433efd [project @ 1994-12-14 03:48:48 by jwe]
jwe
parents: 981
diff changeset
527 I1MACH = 0
981
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
528 END