Trailing-Edge
-
PDP-10 Archives
-
FORTRAN-10_Alpha_31-jul-86
-
sta0.rel
There are 26 other files named sta0.rel in the archive. Click here to see a list.
0 V>* 0 @
A4y&Bb a $ 1 3
"e;l $ \ TB $ + @ -0 w* 1J + S. N N XP , XH wXD @ ,> , / Z * 0J +
DE( $ &
De*A eV>*@ eV>*@ eV>*@ eV>*@
eV>*@ " 0N + S: GZ + XB ah + S: + 8 ,> ,> ,> , / [ ,> ,> , / + D"eV>*@ eV>*@ eV>*@
HF @ ` @| -0 . w~* 1J + !,> , / N N w0P + ), ( " %
!j , l QN 4N +QB8 + +
XJ ", S* J *
w0L ( " -+ 2 w~( D"eV>*@ eV>*@ eV>*
@ eV>*@ eV>*@ !eV>*@ %eV>*@ &eV>*@ )eV>*@ . " /0H + 1 + 4 + 4 w~( 1H 7 Z ,> 4, / Z 5, 7 XD 70 + > ( h S* GJ
w1J + >S. @ GN w~* 0J + [ @Z XD w~XN 0 D"eV>*@ 0eV>*@ 1eV>*@ 2eV>*@ 3eV>*@ 4eV>*@ 6eV>*@ :eV>*@ >eV>*@ B " B0P + ES: GZ + EXB8
al + R 8 Z Hp 2xp + R . Z8 " ( K Pp * 0J 9 H( 1( 9 H6*@ 9 H,> ,> , / + R9 H 8 Z @ S Hp 2xp + Y . 708 9 TZ
8 Jp XB( 9 T,> ,>w~, / + h . * \QN ,, $ XD 0 XP w~XH * 0J + cS: GZ + cXB w~XN A d0 0P + gS: GZ + hXB8 d / D"eV>*@ KeV>*@ MeV>*
@ PeV>*@ QeV>*@ YeV>*@ ZeV>*@ `eV>*@ deV>*@ i " i+ -0 ` ,>
,> , / 4: o,> , / + -0 , Z , D" r78 + [
q1J + v,> ,>( + z, 76 + r[ s1P + |,> ,>D u,> (D" z, / D"
Z@ jeV>*@ keV>*@ meV>*@ o
@ zeV>*@ { ( {+ w@@ Z` S* GJP
aJ + ,> ,> , / X V , L ,>
, / ,> , / + {-0 j @@ ,>` , / V D"eV>*@ eV>*@ ` :@ eV>*@ eV>*@ eV>*@
Z 3 eV>*@ ` :@
( 46&* 0J + ,> , z/ + o[ 0N + ( 0H + ,>X ,> ,> (A ,
@ @ eV>*@ eV>*
@ eV>*
@ eV>*@ eV>*
@ eV>*@ S, GLX
L % L \ XN, ` XPX QHX [
,> ,> , *E / ZX S, GL` [
5L%XV"QV#+ $XV@ XV%+ $-0 . ` "Q
)0H + 37L '+ ,Z0 5P7
P P XH-, Zp
p
` XL( R`( @* 1Z`( @ + r `
` 0L + O7P*+ 8Z
@ 4J8,> D"eV>*@ eV>*@ ` :@ eV>*@ .a|s 'eV>*@ 'eV>*@ ,eV>*@ -eV>*
@ 7 (
7+ ]
P Jp ,>
,> , / 4:r p aN 0 * @+ B,> O,> , P/ P Pp @ H [
. Hp 2rp + I H Z
h " H LH 9F[P ,> ,>P , / D"eV>*@ 9eV>*@ :` :@ <eV>*@ <eV>*
@ AeV>*@ B` :@ D` :@ EeV>*@ K Z L[ 8 QP + N@@
h " T JH 9R
P L [ 8 QN D"` :@ L` :@ M` :@ NeV>*@ N` :@ P` :@ Q` :@ V` :@ W` :@ X A XZX 0H! + [ : XZX + _* 0J + _,> , / + r* 1J + g ? "D aan + d,>@,> , A/ ,> ,> ,> , / D"eV>*@ [eV>*
@ ]eV>*@ ^eV>*@ _eV>*
@ beV>*@ ceV>*@ deV>*@ eeV>*@ f P f Z N, N.[ ,> ,> , K/ XHh, . Zp
p
XL( [ oQN( Z XP( Z( ( 0H XJX / D"` :@ feV>*@ geV>*@ jeV>*@ k` :@ m` :@ n` :@ oeV>*@ qeV>*@ r " s+ -0 p. Hp
Jp S, GL( ,> ,> , / 4:S p 8 ap * A {+ ~,>b,> , / + S p
aj + ,> ,> ,>|,> , }/ D"
D8: seV>*@ teV>*@ weV>*@ yeV>*
@ |eV>*@ }eV>*
@ eV>*
@ eV>*@
p L Ng Nk XP, Zp p 7J + F Np @@p @ [p @ @
Pp 2vp + Z
p .
[
( .
p 8
Lp 9
p &( Hp .( QH, p @ Zp XZ8 p
p XL@ QN@
p ( `h + , l 7Lp + N@@p @ [p @ Np 2vp + CZ
p .
( [ . Hp 2tp + >:
p P p .
XD0 %Z`0 P 0N + <( 0H + 6
p p . S* GJ8 * ( 0J @ 0 . , 0P @
G aH + 3,> ,> , / D"` :@ eV>*@ eV>*@ eV>*@ eV>*@ 'eV>*@ +eV>*@ -eV>*@ 1eV>*@ 2 @ 3. 0N + =,> , / + =
p XL . 0N + =,> [ ,> , 2/ ( ;+ =S( GH0 .4 + "[ ,> ,> , / p
.
@ 0 9 [p ,> D( D p ,>h , ?/ + N . QN, p Zp XZ@
p R`( QP( p
`l ( L+ NS. GN( p XP8 d [
p ,> ,>p , E/ D"eV>*@ 3eV>*@ 5eV>*@ 7eV>*@ 9eV>*@ ;eV>*@ @eV>*@ E` :@ NeV>*@ R Q" " R@ / + -0( 5HW,>,> , / , Z O@ [
X1L + `, "D"" [ Z 4:o[Y1H + a,> ,>$ y,> , ]/ + &@@[ D"eV>*@ S
@ VeV>*@ Wd"e;g@ ]eV>*
@ ^eV>*@ _eV>*@ a *"
a P PG XHb, `XXX 4Xo, 0L XV` 0 1P + `
`aj *
j+ l,>U,> , c/ ,> ,> ,> , / XZX + h D"eV>*@ beV>*@ feV>*@ geV>*
@ keV>*@ leV>*@ meV>*@ meV>*@ n
M@ p (A p, W3Z + u,> [ ,>l^,> , _/ ,~
Ja Jc
XLv, ,~ ( x-0 ,> , / 6X + ,> , y/ D"eV>*@ pd"e;g@ qeV>*
@ seV>*@ teV>*@ ueV>*@ v
% S xeV>*@ zeV>*@ | "
A }3Z + ,> + 2X + O + i,>{, |/ 3Z + ,> [ ,>lr,> (@*A , s/ + * XJ` + D"eV>*@ }eV>*
@ ~eV>*@ eV>*@ eV>*@ d"e;g@ eV>*
@ eV>*@
-0T, 66 +
O + o
Ju Jw
XL XV` + -0 , "" 66 + O +
J
J
XL, XV` + -0s. w~ * " 2H @
, 2H D"eV>*@
eV>*@ eV>*@ eV>*@ }h? eV>*@ eV>*@ eV>*@ @
G
aJ + : + : Z X 6NP + ) w~2H + $,> + + A $
J @@ w~ N 0 P , ZP + , w`H + ,,> , / [P " -0H
+ 2
J @@ w~ N 0 P , + Z
P . D"eV>*@ "eV>*
@ #eV>*@ $` D @ &eV>*
@ +eV>*@ ,eV>*@ .` D @ 0eV>*@ 3 " 30N + I w~3H + ;
P . 0N + E P , 1L + ; P 0 5P>,> ( <, 5/ ,> ,> + p
P * 0J + Z P [@ Hp
al + Z,>
D"eV>*@ 5eV>*@ 6eV>*@ 8eV>*@ :eV>*@ ;eV>*@ <eV>*
@ =eV>*@ ?eV>*
@ C " P D,>
+ p P , 1L + Z P 0 1P + Z+ ; P , 0L + M,> , + " @( L/ + Z P 0 0P + Q
P
0 `J + ;
P * 1J + Z iap + W " @( U,> D"eV>*
@ DeV>*@ EeV>*@ GeV>*@ JeV>*
@ KeV>*@ LeV>*@ NeV>*@ ReV>*
@ U (@ U,>j,>
, k/ ,>P ,> ,> , / ZP 7JP + }[P 0P
+ a
w~2L ( ^+ },>
,> D"eV>*
@ VeV>*@ WeV>*@ XeV>*@ XeV>*@ YeV>*@ ]eV>*
@ ^eV>*
@ _eV>*
@ _ (@ `, L/ + }
P * 1J + } P ( 0H + i
P [( Np 8 ap + } " A h,> + D
P . 1N + } P , 0L + | P 608 + r w~2H + },> " A q,> D"eV>*@ `eV>*@ beV>*@ deV>*
@ heV>*@ jeV>*@ leV>*@ oeV>*
@ peV>*
@ q ( q+ _ P , 1L + | P 0 0P + |
P * 1J + } P ( 1H
+ }
z
P . 1N + },> + <7PP +
w~3L + D P 0
Sal (
+ ,> D"eV>*@ reV>*@ teV>*@ veV>*@ xeV>*@ zeV>*@ |eV>*@ ~eV>*@ eV>*
@ (@ ,>U,>
, V/ ,>P ,> ,> , Y/ ZP [
P 0L
+
7NP +
,> ,> (
+ p 0 7NP @ w~ , 2H @
A aP + ,> D"eV>*
@ eV>*@ eV>*@ eV>*@ eV>*@ eV>*
@ eV>*
@ eV>*@ eV>*@ (@" + <7JP + P , 1L + ,> + < w~2H + 8 * 7PP @
( 7NP " @ G
aJ + !,> ,> , `/
al + !,> , / 0 7LP @ A # ( 6NP @ A , 6JP @
A aP + ),> D"eV>*@ eV>*@ eV>*@ eV>*
@ eV>*
@ eV>*@ eV>*
@ eV>*@ !eV>*
@ ( ( (, / 7NP + <7JP + -,> ,> , (/ 7PP + 0,> ,> , ,/ [P " 10H
+ 5,> ,> D"eV>*@ )eV>*
@ +eV>*
@ ,eV>*@ -eV>*
@ .eV>*
@ /eV>*@ 0eV>*
@ 2eV>*
@ 2 "D< 3,>
P 600 + <,> ,> + 37PP + :,> , 3/ 7NP + < " ;,> + <7PP + E P (
+ C 8 ,> + 7NP + E " D,> D"eV>*
@ 3eV>*@ 4eV>*
@ 6eV>*
@ 7eV>*
@ 9eV>*@ :eV>*@ ;eV>*@ >eV>*@ D (D " D+ <6NX + G@@p + S X `
h ,>0 , / Zp 60p + L + 4,> @ M ` ,>h , Z/ ,> ,>` , N/ ,> ,> , P/ 7LP + _
P . 0N ( U+ _
P 600 + _7JP + Y,> D"eV>*@ IeV>*@ LeV>*@ NeV>*@ OeV>*@ PeV>*@ QeV>*@ ReV>*@ TeV>*
@ X (" Y+ [ w~2H + \,> ,> + p7Pp + _,> , 9/ + 4
P . 0N + { " a6LP + c,> + o
P . 0N + h
P 600 + h,> D"eV>*@ ZeV>*
@ [eV>*
@ [eV>*
@ ]eV>*@ ^eV>*@ `eV>*
@ beV>*@ deV>*
@ g ( D g+ o[
P 0 0L
@ * A aP + n,>,> , / 7NP + q,> ,> (Q p, ^/ + 4
0L + t P S. GN@ . 7PP @ , 7HP @
G aN ( x+ {,> ,> , p/ D"eV>*
@ jeV>*
@ leV>*@ meV>*
@ oeV>*
@ oeV>*@ peV>*
@ yeV>*
@ yeV>*@ z "E {
w~ L L XP|, *
P QJ` P XN` P XH`
P QL` P QP` [
p QJ` 7NP +
P XL`
P l ! P XP` [
P 0J
+ T`` +
P XH` "
7HP + P QP`
P XJ` P Z
@ . 0J!@ Z@ , 0H!@
G aN ( +
P [( Pp 6(@ + @ +
L @@ @ N * J , XZ` " A 7JP + ! P , 1L + !
P XX( 7HP + ([P 1N
+ ( P ( 1H + ( % P * 1J + ( P XX 7NP + , P ( 1H + , P XX8 ,> , / D"eV>*@ |eV>*@ eV>*@ ` D @ eV>*@ eV>*@ $eV>*@ &eV>*@ *eV>*@ - ( .[ ,> ,> , R/ [ ,> ,> , // 7 @ / + S-0. A @" 6 X 7HP + C[
P 1L
+ C P ( 1H + C
P . 0N + ?,> , z/ D"eV>*@ 0eV>*@ 2eV>*@ 4
2ORA 5eV>*@ 5eV>*@ :eV>*@ <eV>*
@ =eV>*@ > (
?+ M P * 0J + D P 8 aP + D,> + P 0
aj (D @
G+ J,> ,>l,>
, m/ ,>P ,> ,> , / D"eV>*@ @eV>*@ CeV>*@ EeV>*
@ HeV>*
@ IeV>*@ JeV>*@ KeV>*@ KeV>*@ L D " M ZP 7PP + O,> + 7JP + Y P 0
Faj + V,> ,>H,>
( @" U, I/ ,>P ,> ,> , L/ ZP 7NP + ] P * D"eV>*@ NeV>*@ QeV>*
@ TeV>*
@ UeV>*@ VeV>*@ WeV>*@ WeV>*@ XeV>*@ [ "" [1J + ],> + _7HP + b,> , </ ,> ,> , >/ + {7LP + e,> (( d, a/ w P{ P} XHf, }
P QJ`
P XL` P XN` P QP` ( l P QH` 7JP + q P 0 D"eV>*@ \eV>*@ ^eV>*@ _eV>*
@ `eV>*@ aeV>*
@ ceV>*@ deV>*@ feV>*@ o " @ o1P + q
P XX( 7NP + u P * 1J + u P XX8 [ ,> ,> , 2/ U( x[
,> ,> , w/ 7 @ / + 46H |+ , p Z wO@|[
~0L + *Q A , } ZO@~[0P + ,> ,>@ ,> , d/ ,~ [0P + O ,~ Q A @ ,~ D"eV>*@ seV>*@ weV>*@ zeV>*@ {
rWA |d"e;g@ eV>*
@ eV>*@
GM
(
-0. w[
0j + w 8 @ @@p ( = Hp
p 2jp + .
p &* A 2XX .+ [X l Pp 4P X l+ 3xX .+ 8 Zp + = A @ / + ,> ,> ! D"eV>*@
eV>*@ eV>*@ eV>*@ eV>*@ eV>*@
eV>*@ eV>*@ "( ,>
, / ,~ -0x( 4H$ 6 ` 6L` + $,> , / ,> ",> ",>
D"eV>*@ eV>*@ 7 eV>*
@ eV>*
@ #eV>*@ $eV>*@ $eV>*@ %eV>*@ % (AD &, / + ,> ,> , / Rah + -,> ,>T,> , U/ ,> D"eV>*@ &
@ 'eV>*
@ (eV>*@ )eV>*
@ +eV>*
@ ,eV>*@ -eV>*@ - @" .,> ",>
, / @ ,~ )ah + 5,> ,>+,> , ,/ ,> ",>
D"eV>*@ .eV>*@ .eV>*@ /
@ 2eV>*
@ 3eV>*@ 4eV>*@ 5eV>*@ 5 " 6,> , / ,~ ( 4H;,> ,> !, #/ ,> ",> # D"eV>*@ 6eV>*@ 7
@ 8eV>*
@ 9eV>*
@ 9eV>*@ :eV>*@ ;eV>*@ ; " <,> , / ,~ ( 4HB
aL + B,> !, :/ ,> ",> ",> D"eV>*@ <eV>*@ =
hS >eV>*
@ >eV>*
@ @eV>*@ AeV>*@ BeV>*@ BeV>*@ C (@ C, / ,~ 1ah + I,> ",>3,> , 4/ ,> ,> #,> , / D"eV>*@ D
Xd3 EeV>*
@ FeV>*
@ GeV>*@ HeV>*@ IeV>*@ IeV>*@ JeV>*@ K A K,~ ( 4HO,> ",> !, A/ ,> ,> ,> , / D"
@ LeV>*
@ MeV>*
@ MeV>*@ NeV>*@ OeV>*@ OeV>*@ PeV>*@ Q E Q@ ,~ Eah + V,>G,> #, H/ ,> $,> ,>
, / @ ,~ R "E Zah + ],>T,> # D"
}Rs ReV>*
@ TeV>*@ UeV>*@ VeV>*@ VeV>*@ WeV>*@ X
_Bs YeV>*
@ [ ( \, U/ ,> ,> ,>
, / @ ,~ @ ` d D"eV>*@ \eV>*@ ]eV>*@ ]eV>*@ ^eV>*@ MV>* a
aeV>*@ geV>*@ i j
D"eV>*@ keV>*@ meV>*@ neV>*@ neV>*@ oeV>*@ peV>*@ peV>*@ qeV>*@ q r ! # D"eV>*@ reV>*@ teV>*@ ueV>*@ veV>*@ veV>*@ weV>*@ weV>*@ xeV>*@ y y $ &>Y ' ) - .<{ * - . D"eV>*@ zeV>*@ {eV>*@ |eV>*@ }eV>*@ ~eV>*@ ~eV>*@ eV>*@ eV>*@ / 1 2 (
@ G# hgG# kGG: 'G k' 8 @ X X ( ( 8 ( ( X P F@ ( 8 ( ` ` ( 0 0 X X X 0 ( ( 8 k:N@ 0 0 0 $@ 8 @ M7 $K: S? H:WM e }D` } X ~~ X Subroutine name ,string or 6-digit integer as unit specifiers UNIT a rewrite statement an as 5terisk as format specifiers a rewrite statement a namelist REC rando =m access key relation/key of reference specifiers END REC in an indexed read Fan asterisk in an indexed read a namelist ENCODE and DECODE REREAD Unfor Nmatted I/O NAMELIST I/O Random access I/O Indexed read key specifiers WUNIT REC C~9 C2:C2|p C2|s@C2|t(C6 C6'C6Md C6Md'CNMi CO wCR
,`G |`G/
Gey`G @G ZG"\J;G2~9 G3k:G7N G7NG? @ G? C@G?$@G?$GI |r hI RI$II$RI$P I
d\IIn I}jSI~H7I~KGIex:Ie}I&l`I'4\ZIJ, IR9:M-j:O~KGOe}OR|H SI S&
E(Sj/;U& U&9:U&-|@U&~ U' ZU:~@ Uj/rc @c Rc$@c$Ic$Rc~0 c~9 c~: cMP cF cF@ cFI c2|p c2|t(c6 c6Md
c6|@ cNL{@cNM` cNMi cNMj cO- cRg&(7g&t@ g&tC@g:=L g?@ it@ i&lP iJ
9>kN.)<uF@ ` @ @ @ ( @ 8 9 @ # " P ` 0 @ , 0 @ 4 = E N " REWRITE statement V REWRITE TYPE PUNCH ACCEPT REREAD D"eV>*@ eV>*@ eV>*@
y` ?( x` ? u` ? t D"` ? s` ?= s` 2U r` ?) o` 9] m` 8t l` 4 l` 3v k` 8u j D"` ?* j` 9m i` 8y h` 4 h` 2} g` 9\ f` 3N f` 9X e` ^p e D"` 3( d` . db 0K c` 3N c` , b` 9 b` 3N acJr ?bG>C: N D"d"e;g c,]U -ed sQ eY]g ` D ` /83 d%@H IeVVn AbLCY{ X D"ed sQ 1eY]g 1` D /` /83 .ed sQ (eY]g '` D %` /83 %` <*o q D"dSM O d% S dSM O d% S c1'} d"e i c1<4 ydSM O wbLCY{ n D"dSM O c` : dc/5: Z`
( ( ]