Trailing-Edge
-
PDP-10 Archives
-
bb-4157j-bm_fortran20_v11_16mt9
-
fortran-compiler/sta3.rel
There are 12 other files named sta3.rel in the archive. Click here to see a list.
0 V><v 0 @
A4y&Bb a@ $ + 3
"e;l $ \ TB $ + -0 wZ
c 1J + ,> , / Zw wZ8 1P + ,> , / w + -0 . " 0<$ $ 1
DE( $ &J8#g eV><o@ eV><j@ eV><o@ (NI? eV><o@
H , Zp
p
w 0 XB( S. GN an + ,> , / w " ( 7H@ + L,> ,> , /
w ( < +@< + O+ + #+ >6X + p S, GL@ ,> , /
p
` <
J0 7N` + O,>` + < # ` [ .( QH
, [ 8 Q
p V0 S* GJ0 ,> , / @ , ZX 8 [
.
Jp 2tp + 3,>` , / ZP 8 9 / 7N` + O D@ 4 ` 7V` ,> , / D"eV><o@
eV><j@ eV><o@ eV><o@ eV><o@ eV><o@ eV><o@ +eV><o@ 1eV><o@ 7 7
p
X <
J0 S. GN0 7N` + O,>` , / + O p Z( P S, @ @GL ,> , / Z 7L` + O ` 7V` 5,> , / p X D H< H@ S, GL@ 7L` + O+ <,> ,> , / 4: P p @@8 p / + Q-0 .
Jp [
p .
Jp 2tp + z P Np ,>8 , / D"eV><o@ =eV><o@ AeV><o@ FeV><o@ LeV><o@ MeV><o@ P
q3 QeV><o@ QeV><o@ X " Y Zp 4: j H % p X ,
p Z0
` aj + aS. GNX QLX @ aXNX Vp p @ [ . Hp 2rp 9 U
p Z
0 Jp ,>H , / 66 (@ D j+ kO + ZX ` ap + w p 6, + q,> , / 9 eS* GJ [
` * r Jp . n [ XPX p QVh QV 9 e p
p XV0 XV 9 e9 U R
* { Lp [
p ,> ,> , / ,> ,> z, }/ D"eV><o@ ZeV><o@ ieV><j@ oeV><o@ peV><o@ seV><o@ seV><o@ }eV><o@ ~eV><o@ A / + -0 Q. @@p ~Z Z
[
.
Jp 2rp + -@ H 6N` + ` ah + ,> ,> , / 4:S* GJX + ,> ,> , / 5: A O Tp + !S* GJX + ! ` 0H + * 4J,> D"eV><o@ 6N3 eV><o@ eV><o@
eV><o@
eV><o@ eV><o@ eV><j@ eV><j@ @ ,> , / ` + * 4J ,> ,> , / ` ,> ,> , / 4: S. GNX S: GZX `T + * X ah + % : + % : z D"eV><j@ eV><o@ eV><j@ eV><j@ eV><j@ eV><o@ eV><o@ eV><o@ eV><o@ % A
&
X al + *,>X ,> ,> a,> , / [ ,> ,> , / 9 [
h " .,> Z
h ,> , ,/ ,> Z-,> , 0/ p aP + 6O + 6@ / (" 7+ D"eV><j@ (eV><j@ )eV><o@ *eV><o@ ,eV><o@ 0eV><o@ 1eV><o@ 3eV><o@ 6 ^}S 7 ( 7-0. @ 1Z Z
[
.
Jp 2rp + Q H ,> ,> , / 5:A " @O 9<,> , / 2T + GO ,> ,>` ,> , o/ 9<S( GH` @ H ` ah + M,>` ,> D"eV><o@ 8eV><o@ =eV><o@ ?eV><o@ BeV><o@ CeV><j@ DeV><j@ EeV><o@ FeV><j@ J (@" K,>(,> , )/
` al + O : + P : z 9< 9[h ,> Zh ,> (( S, 2/ ,> Z
Q,> , S/ aV + YO + Y@ / + 7-07. D"eV><j@ KeV><o@ LeV><o@ PeV><o@ TeV><o@ TeV><o@ VeV><o@ Y
i
Cc ZeV><o@ [ [Z Z` Z` Hp
X `j + q
X 4 /. ( Z8 p ( * 0H d@
, . 0L @ A
aJ + q,>p , / Zp XZ` p V@ S( GHX l ( h S,@ BLX
/, (
0 NX 7Lp + |Z0 4r| p . Z@ X u4
X `j + | /. ( Z
<al D"eV><o@ _eV><o@ beV><o@ beV><o@ deV><o@ ieV><o@ merQ"@ peV><o@ ueV><o@ y A
y0 0P + |
8 JX =rs@ / + Z-0 Z[4X*
0J + , Z+ 8 0 3V @ ( 3V @ A aP + N [S* J Z,
`
6 /( ( Z$xp
D"eV><o@ yerQ"@ {eV><o@ } ^'b ~eV><o@ eV><o@ eV><o@ eV><o@
eV><o@
0N +
L` + -0Z. ah + ,>K,> , /
U
( Lp [p .
Lp 2tp + 1 P Pp @ ,>
,> , >/ 4:7S* GJ`
p Q( [p ,> ,> , V/ D"eV><o@
Q3 eV><o@ eV><j@ eV><o@ eV><o@ eV><o@ eV><o@ ! " [
.
Lp 2rp + *H Pp ,> 8 9$ "@ *
p Z
XL( [ 8 QP( QX( XJ` 9 Np [
p 8AVQ< 3,> ,> , !/ ,> ,>1, 4/ / + }-0~ D"eV><o@ &eV><o@ 'eV><o@ *eV><o@ 4eV><o@ 5eV><o@ 6eV><o@ 79eV><o@ ;eV><j@ <eV><o@ =eV><j@ >eV><j@ ?eV><j@ @eV><o@ AeV><o@ A AD" B, / 4:H,> , + H Z9=6:,> , F/ + HF,>: (AD" J, ;/ 4ZR, D"eV><o@ BeV><o@ EeV><j@ EeV><j@ GeV><o@ Hj s IeV><j@ IeV><o@ KeV><j@ L ("* L4LO,>
,> , @/ ,> , B/ 4:^,> , D+ ]
LI,>J, J/ *"* U4Z\ ap + Y,> D"eV><j@ MeV><j@ MeV><o@ NeV><o@ OeV><o@ PeV><o@ QeV><j@ ReV><o@ TeV><j@ W (AD W,>,> , / ,> , O/ 4:^,> + Q,> , G/ ,~ -0. D"eV><j@ XeV><o@ YeV><o@ YeV><o@ ZeV><o@ [eV><j@ \eV><o@ ]
e3,! ^eV><o@ _ (@ E
_ 57H` + e8 Z` H [
,> ,> , 6/ + k
Ual + i,>W,>
( @ h, X/ , P 8 NP ` [P 4Vp[X ,> ZP ,> ,>
, ]/ P pZP 2N + u,>gZP ,> ,>
, o/ ( 0H + x,> geV><o@ heV><j@ oeV><o@ peV><j@ seV><o@ teV><o@ ueV><j@ v * w, t+ &Z
,> , / aZ + },>H ,> *
4:&Z~ Pp H H+
XJ, + Vp , QL, & . XNX D
Zp QPX XTX +RX [T +R XHX Z`X 4HQZX : XRX XTX [P ZP 8 XHP 4. QN, QZP QVh XRh +` ` " " QTX QRX 7J` + ` P XPX [ ,> ,> , d/ + EXPX [,> * " !,> , / D"eV><o@ yeV><j@ {eV><o@ |eV><o@ }eV><o@ eV><o@ eV><o@ eV><o@ eV><o@ " ( Q" #,>, / Z ,> , / / + 7-0 eah + +,>r,> , h/ " (A +7J + .,> , / . QN,
, */ D"eV><o@ $eV><o@ &eV><o@ &0y< 'eV><j@ *eV><o@ +eV><o@ -eV><j@ >eV><o@ ? "
?[` P+Z@ HqZ
` ,> , / QZ` @ + P-0^ <ah + I,>=,> ( E" H, >/ , 3Z + N,> [ ,>h ,> , |/ + '6V2+ P,> D"eV><o@ C
}
EeV><j@ GeV><o@ HeV><o@ Id"e;g@ JeV><j@ LeV><o@ MeV><j@ O * O, L+ ZX 5Nc[X [H ,> ,> , O/ ZX Z
X , 1J @
. 0V D X@ G
aL + T4Vb[X 4R]ZX XZH + ^Z
X JNZX 4R`[X QNH ,> " `,> , "/ O + M[X ZX 0H + fZ` + f[X Z
H 0,P@ 4Rp *A
i3R@+ p[
` ,> ,> , S/
]Z0 Nl,> ,> , a/ 7Hi+ Z
X "@ q0L + v[X 5P
pQJX S, GL( + 5RZ` ZH < XHH
H <
JH z[H Z
P QLH sXN` Z8 8 XP8 8 8 H8 [
8 XJP QT8 XNX + Z
X "D"P 0L + ,>m, + Z` R{ZH PA,>, -/ D"eV><j@ SeV><o@ TeV><o@ `eV><o@ aeV><j@ keV><o@ leV><o@ neV><o@ oeV><o@ *D"P + b D"
}
} @ ` @@D (" -08 w[ 4X
Z XZ` +
L
wZ0 4X[0 QP` w[h ,> " , / wZh ,> , / Z`X
wZ
( LZ0 N@ + H-0 " E . 8 Hp
Jp ,> , / 0Z + p N+ 7 8 ap + $ " " p H ,> + F p H
X Jp [
,> ,> , o/ Z Np @@ "A +O@ Pp @@@@+ #8 4X3,> , Z/ D"eV><o@ eV><o@
(Q"i eV><o@ eV><o@ eV><j@ #eV><o@ )eV><o@ .eV><o@ 0 (E D" 05:3 p N- p P-+ 7 1Z
h , 0 5:8 p P2 p H3O + O p *( 9 P7Z)6Hp + <[9XZ;+ =XH;,
0L + @,> , k/ p P6 p A
AZ
0J! + D : XZ + H. 0N + H,> , ?/ + O N N. *
JXPI, p XHX XXX * D"eV><o@ =eV><j@ >eV><o@ ?eV><o@ DeV><j@ FeV><o@ GeV><o@ HeV><o@ IeV><o@ M ( M0J XV Z`` @ / + -0E % ` ` 7H` + W ` X [
,> ,> (D ( V, (/ + \, 4LZ,> , N/ Z` 8 XZ`
LH LJ XN] ( ^, J Z XPX Z QHX Z
XJX Q
` XLX ZP 0N! + g : XZP ( g+ k( D"eV><o@ O
y
1 PeV><o@ VeV><j@ WeV><j@ XeV><o@ YeV><o@ \eV><o@ ]eV><o@ g " h0H + k,> , F/ + ( 0H XVP , 0L + o,> , / [ ,> " p,> , V/ @ + j-0 D"eV><j@ ieV><o@ jeV><o@ keV><o@ leV><j@ neV><o@ oeV><o@ q
2d M seV><j@ s *E
" t`HS,>S, T/ 5Zx, I,> + z, v3Z + },> [ ,>lK,> , i/ Q |+ . QN^, /
` "" ,> , B/ QZ` @ + |-0'. D"eV><o@ ueV><j@ weV><o@ xd"e;g@ yeV><j@ {eV><o@ |eV><o@
| 3 eV><o@ "QD* Ht,>t, u/ 4Z),> , // 5:O + @ N ,>
,
/ ** 5Z, x,> + +, 2Z + +7T+ /Z
P 4L[P [` ,> ,> D"eV><j@ eV><o@ eV><o@
eV><o@ eV><o@ eV><j@ eV><o@ eV><j@ (@ ( + 7[P 5P [P [
` ,> + 7Z
P ,> , / [
P Lp 7N@+ #,> , " !/ Hp , QZP [P ,> , /
p QJX QV( S, GL( + @, ""Q *3Z + .,> [ ,>lz,> , {/ + @6T+ 1,> , -/ D"eV><o@ eV><o@ !eV><o@ %eV><o@ *d"e;g@ +eV><j@ ,eV><o@ -eV><j@ /eV><o@ 0 (@" " 1+ @ZP 4P4[P [
` ,> + [
P 5J9[P [` ,> ,> , 0/ + @ZP "
9,> , / [P ,> , !/ 7H"+ ?,> , </ Z`P @ / + D-0 (A
B, )3Z + G,> D"eV><j@ 7eV><o@ 8eV><o@ :eV><o@ <eV><o@ ?eV><o@ @
}
'3 AeV><o@ Bd"e;g@ C "(D D[ ,>l,,> , 7/ + A6V.+ J,> , E/ + FZ
X 4L\[X [` ,> " ( L,> , H/ ZX ZX * 0H @
, 0V @
G
aJ + N4V[[X 4TV D UZX XZP + WZX HGZX 4TY[
X QLP ,> ,> , q/ O + I[X 4P_ D ][
X ,> , >/ D"eV><j@ EeV><o@ FeV><j@ HeV><o@ IeV><j@ LeV><o@ MeV><o@ YeV><o@ [eV><o@ _
( _ZX Z
` 1j + c,> , ^/ 7N=+ e,> , b/ ZX HW4HgZ` ,> "
( h,> , Z/ @ + \ D"eV><o@ beV><o@ eeV><o@ geV><o@ iZ j @ ` @TTj (@ j-0. b X Hp [
,> ,> , h/
p Z0 0N! + s : XZ0 + v D"@ s( 0H + v,> , M/ + H}, ^ * j , l l
D"eV><o@ keV><o@ oeV><o@ seV><j@ teV><o@ ueV><o@ veV><o@ yeV><o@ zeV><o@ z {Z`` p XV` . 0N + S: GZ` + XXX X ap + S( GH` X aP ( E + ,> ,> , / XZ` Xp H\ Hw
XJ, w p XN` XX8 (E
Z
<Lp c Pp @@,@@
p J / + P D"eV><o@ |eV><o@ eV><o@ eV><o@ eV><o@ eV><o@ H9< @ ` @W$ * -0sZ8
( 1X @ * 1X @
A , 1X @
A . 1X @ D @ A aH + !,>w, / Z`` @ + D"eV><o@ eV><o@ .az{ " @ ` @ct" (D(P "-0. Hp @@#
J J
XL%, wXN` R`` Z`` Z`` P * 8 8 P8 p H$ / + ! D"eV><o@ "eV><o@ $eV><o@ &eV><o@ -
M> . @ ` @\L. (A
.-0". , Hp
w J/
L% L& XN2, ' wS( GH@ p (
7 H1 / + .-0P. H2 H3
XJ;, 4
k Lp XN`
?XX8 8 ap + D,>8 ,> D"eV><o@ /eV><o@ 1eV><o@ 3eV><o@ 82OCl 9eV><o@ 9eV><o@ :eV><o@ ;eV><j@ B (@ B,>G,> , L/ p
, 1J 7 QZ` <>0 1P + U,> , / <P @ K[` * QJ<, ~< , l . |BNP DGXNP S0 GPP XVP QT` 0 1P (@" S+ [XXX + [[` * 1J + X,>
p
( 0L + ^@ + _ ( @ 5Va@ + b " a[ 8 Zp p .( QHL, L Tp
p XJ`
p XL( 4V{[ 42{ i. @ Hp
Jp Z
Lp 0 N J0 0 p p . L8
<
@ r Jp 7(p + z.
8 Lp
p 0 2P( + y,>( ,> , W/ >p + r * z=2i X( 0H + ,>p , h/ Zp XZ`
p p 8 XN0 { P0 S( , GH@ ( h D"eV><o@ YeV><o@ ZeV><o@ neV><o@ oeV><j@ xeV><o@ yeV><o@ {eV><o@ ~eV><o@ @" S*@ BJ@ 4V[ ,> ,> , n/ [=,> ,>, / / + r-09 ""
eV><o@
eV><o@ eV><o@ eV><o@ eV><j@ (@ D , n/ 6L, ,> ,> , '/ Zp 5: p + JS( GHP ( h Z
(E J,> ,
/ 5:0@@ p . n S0 BPX Z 4XHZ0` [@ 0H + H *
([%42H
.
0 . 4NH P Hp ZP 4T/
X LP HX =2)+ H, 9 (E*
1@@"@ + J 0 P ( H6J, ,> D"eV><o@ eV><o@ eV><o@ eV><o@ eV><o@ eV><o@ !eV><o@ $eV><o@ +eV><o@ 5 "( 6,> , ~/ ,> , !/ 4:H ( X [ . Pp 2rp + E H Z`H A >XXH ( 0H + BS: GZH 9<, 0L 9<S0 GPH 9<,>p ,> , / " G64 + IO + J,> , / / +
@ ` D"eV><o@ 7eV><o@ 7eV><o@ 8eV><o@ ?eV><o@ BeV><o@ FeV><o@ JeV><o@ JMV><e L L <E H
D" NeV><q@ OeV><q@ PeV><q@ QeV><q@ ReV><q@ SeV><q@ SeV><q@ T T H H D"eV><q@ UeV><q@ VeV><q@ VeV><q@ WeV><q@ WeV><q@ eV><q@ `eV><q@ `eV><q@ a a ( 8 ( D( > jX ` <0 X 8 DX < ` [Mc@
exu` r H 0 0 P {P %0 ` X ( ( 0 8 80 8 @ D@ P P X !* & EXTERNAL name the name of an intrinsic function INTRI
NSIC name RECORD FILE SKIPFILE SKIPRECORD AD CK UNLOAD UNLOCKstatement UNLOCK THEN IF THEN Statement`function D"eV><q@ aeV><q@ c 90 X` 9p X` ^ U` 9p T` 9Z R D"` ^ Q` 4 P` : O` ^H M` ^Y M` ^Z LdDe*A Ib
pT FbgYK, 2 D"d At 5e
v 3e
ve? 4bgZ< bHF Zb Ci Jb [e@ 1el?- g e% 8 D"gm!% .f,h!? ` Q +d(`~ *b}
Ji d"dx] c1& eVVn 3d"e;g D D"d"e3
d "]?
cXf2S : D"bJ6( yeV?)" 4c(Hk" #b2ORA QeY_]- 8d"e i c1Uj d(`~
f,h : H D"ed sQ e
g e% gm!% jbHF_ }erQ"
eSY=7 eU&f AcC: YdQ t ` A Ng e& KeK )-
` {0 ` D ` : 9gm!&
D"g e& jbM yH ddq L dQ][ 6dSM O <` /83 cgm!& Ag e$ c