Google
 

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.
0V>*0@	
A4y&Bba$	13
"e;l$\TB$	+	@-0w*1J+S. N N XP,   XH wXD  @,>,/Z*0J+
DE($&
De*AeV>*@eV>*@eV>*@	eV>*@
eV>*@	"0N+S:GZ+XB ah+S:+   8,>,>,> ,/ [,>,>,/ +D"eV>*@eV>*@eV>*@
HF@`@|	 -0. w~*1J+!,>,/  N N w0P+), 	("% 
!j ,l QN4N+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,/ Z5,	 7 XD70+> (hS*GJ 
w1J+>S.@GN w~*0J	+[ @Z XD w~XN0	D"eV>*@0eV>*@1eV>*@2eV>*@3eV>*@4eV>*@6eV>*@:eV>*@>eV>*@B	" B0P+ES:GZ+EXB8 
al +R 8Z Hp2xp+R .Z8	 "(K Pp*0J9H(	1(9H6*@9H,>,>,/+R9H 8Z	 @ S Hp2xp+Y .7089TZ
8 JpXB(9T,>	,>w~,/+h .	* \QN,,$ XD 0XP w~XH*0J+cS:GZ+cXB  w~XN A d00P+gS:GZ+hXB8d   /	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+|,>,>Du,>(D"z, /	D"
Z@jeV>*@keV>*@meV>*@o
@zeV>*@{	({+w@@Z`S* GJP 
aJ +,>,>,/ X V , L,>
  ,/,>,/+{-0j @@,>`,/  V	D"eV>*@eV>*@`:@eV>*@eV>*@eV>*@
Z3eV>*@	`:@
	(46&*0J+,>,z/+o[0N+(0H+,>X,>,>(A ,
@@eV>*@eV>*
@eV>*
@eV>*@eV>*
@eV>*@	  S,GLX 

 L% L\ XN,  `XPX QHX[
,>,>,	 *E /ZXS,GL`[
5L%XV"QV#+ $XV@XV%+$-0.  `	"Q
)0H+37L'+,Z05P7 
 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 paN0	*@+B,>O,>,P/ P Pp @ H [
. Hp2rp+I HZ
h"H LH9F[P,>,>P,/	D"eV>*@9eV>*@:`:@<eV>*@<eV>*
@AeV>*@B`:@D`:@EeV>*@K	Z L[8QP+N@@ 
h"T JH9R 
P L [8QN	D"`:@L`:@M`:@NeV>*@N`:@P`:@Q`:@V`:@W`:@X	 AXZX0H!+[ :XZX+_*0J+_,>,/+r*1J+g ?"Daan +d,>@,>,A/,>,>,>,/	D"eV>*@[eV>*
@]eV>*@^eV>*@_eV>*
@beV>*@ceV>*@deV>*@eeV>*@f	 Pf Z  N, N.[,>,>,K/ XHh,. Zp 
p 
XL([ oQN(ZXP(Z((0HXJX/	D"`:@feV>*@geV>*@jeV>*@k`:@m`:@n`:@oeV>*@qeV>*@r	" s+-0p.  Hp 
  JpS,GL(,>	,>,/4:S p 8ap*A{+~,>b,>,/+S p 
 aj+,> ,>,>|,>,}/	D"
D8:seV>*@teV>*@weV>*@yeV>*
@|eV>*@}eV>*
@eV>*
@eV>*@	   
p L  Ng Nk XP, Zp p7J +F   Np@@p@[p	 @@
 Pp2vp+Z
p.
[
(.
p8
 Lp9
 p&( Hp.(QH, p	 @  ZpXZ8 p 
pXL@QN@ 
p (`h+ ,l7Lp+N@@p@[p	 @ Np2vp+CZ
p.
 ( [. Hp2tp+>:
p P p.
XD0	  %Z`0 P0N+<(0H+6 
p p.S*GJ8* (0J@0 . ,0P@
GaH+3,>,>,/	D"`:@eV>*@eV>*@eV>*@eV>*@'eV>*@+eV>*@-eV>*@1eV>*@2	 @ 3.0N+=,>,/+= 
pXL.0N+=,>[,>,2/	(;+=S(GH0.4+"[,>,>,/ p 
.
@ 09[p,>	 D(D p,>h,?/+N .QN, p ZpXZ@ 
pR`(QP( p 
 `l(L+NS.GN( p XP8d  [
p,>,>p,E/	D"eV>*@3eV>*@5eV>*@7eV>*@9eV>*@;eV>*@@eV>*@E`:@NeV>*@R	 Q""R@/+-0(5HW,>,>,/, ZO@[
X1L+`,"D""[ Z4:o[Y1H+a,>,>$y,>,]/+&@@[ 	D"eV>*@S
@VeV>*@Wd"e;g@]eV>*
@^eV>*@_eV>*@a	*"
a P PG XHb,  `XXX4Xo,0LXV`01P+` 
`aj *
j+l,>U,>,c/,>,>,>,/XZX+h	D"eV>*@beV>*@feV>*@geV>*
@keV>*@leV>*@meV>*@meV>*@n
M@p	(Ap,W3Z+u,>[,>l^,>,_/,~ 
 Ja Jc 
XLv,,~(x-0,>,/6X+,>,y/	D"eV>*@pd"e;g@qeV>*
@seV>*@teV>*@ueV>*@v
%SxeV>*@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 
XLXV`+-0	,	"" 66+O+ 
 J
 J 
XL, XV`+-0s. w~ * " 2H@
 ,2H	D"eV>*@
eV>*@eV>*@eV>*@}h?eV>*@eV>*@eV>*@	 @
G
aJ+ :+ : Z  X6NP+) 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+; P05P>,>(<,5/,>,>	+p 
P*0J+Z P[@ Hp 
 al+Z,>
	D"eV>*@5eV>*@6eV>*@8eV>*@:eV>*@;eV>*@<eV>*
@=eV>*@?eV>*
@C	"PD,>
+p P,1L+Z P01P+Z+; P,0L+M,>,+	"@(L/+Z P00P+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,>,>,/ ZP7JP+}[P0P
+a 
w~2L(^+},>
,>	D"eV>*
@VeV>*@WeV>*@XeV>*@XeV>*@YeV>*@]eV>*
@^eV>*
@_eV>*
@_	(@ `,L/+} 
P*1J+} P(0H	+i 
P[( Np 8ap+}	"Ah,>+D 
P.1N+} P,0L+| P608+r w~2H+},>"Aq,>	D"eV>*@`eV>*@beV>*@deV>*
@heV>*@jeV>*@leV>*@oeV>*
@peV>*
@q	(q+_ P,1L+| P00P+| 
P*1J+} P(1H
+}	 
z 
P.1N+},>+<7PP+ 
w~3L+D P0
Sal (
+,>	D"eV>*@reV>*@teV>*@veV>*@xeV>*@zeV>*@|eV>*@~eV>*@eV>*
@	(@,>U,>
,V/,>P,>,>,Y/ ZP[
P0L
+
7NP+
,>,>(
+p 07NP@ w~ ,2H@
AaP+,>	D"eV>*
@eV>*@eV>*@eV>*@eV>*@eV>*
@eV>*
@eV>*@eV>*@	(@"+<7JP+ P,1L+,>+< w~2H+8 *7PP@
 (7NP	 "@G
aJ+!,>,>,`/ 
al +!,>,/ 07LP@ A# (6NP@A ,6JP@
AaP+),>	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,>
P600+<,>,>+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,/ Zp60p+L +4,>	 @  M `,>h,Z/,>,>`,N/,>,>,P/7LP+_ 
P.0N( U+_ 
P600+_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 
P600+h,>	D"eV>*@ZeV>*
@[eV>*
@[eV>*
@]eV>*@^eV>*@`eV>*
@beV>*@deV>*
@g	(Dg+o[
P 00L
@*AaP+n,>,>,/7NP+q,>,>	(Qp,^/+4 
0L+t PS. GN@ .7PP@ ,7HP@
GaN(x+{,>,>,p/	D"eV>*
@jeV>*
@leV>*@meV>*
@oeV>*
@oeV>*@peV>*
@yeV>*
@yeV>*@z	"E{ 
w~ L L XP|,*  
PQJ` PXN` PXH` 
PQL` PQP`	 [
pQJ`7NP+ 
PXL` 
Pl! PXP`[
P0J
+T``+
 PXH`	"
7HP+ PQP` 
PXJ` PZ
@ .0J!@Z@ ,0H!@
GaN	(+ 
P[( Pp6(@+ @+ 
 L@@ @ N * J,XZ`	"A7JP+! P,1L+! 
PXX(7HP+([P1N
+( P(1H+(	 % P*1J+( PXX 7NP+, P(1H+, PXX8,>,/	D"eV>*@|eV>*@eV>*@`	D @eV>*@eV>*@$eV>*@&eV>*@*eV>*@-	 (.[,>,>,R/[,>,>,//7@/+S-0.  	 A@"6 X7HP+C[
P1L
+C P(1H+C 
P.0N+?,>,z/	D"eV>*@0eV>*@2eV>*@4
2ORA5eV>*@5eV>*@:eV>*@<eV>*
@=eV>*@>	(
?+M P*0J+D P 8aP+D,>+ P0
aj (D@
G+J,>,>l,>
,m/,>P,>,>,/	D"eV>*@@eV>*@CeV>*@EeV>*
@HeV>*
@IeV>*@JeV>*@KeV>*@KeV>*@L	 D "M ZP7PP+O,>+7JP+Y P0
Faj +V,>,>H,>
(@"U,I/,>P,>,>,L/ ZP7NP+] P*	D"eV>*@NeV>*@QeV>*
@TeV>*
@UeV>*@VeV>*@WeV>*@WeV>*@XeV>*@[	""[1J+],>+_7HP+b,>,</,>,>	,>/+{7LP+e,>	((d,a/ w P{ P} XHf,}  
PQJ` 
PXL` PXN` PQP` (l PQH`7JP+q P0	D"eV>*@\eV>*@^eV>*@_eV>*
@`eV>*@aeV>*
@ceV>*@deV>*@feV>*@o	"@o1P+q 
PXX(7NP+u P*1J+u PXX8[,>,>,2/	 U(x[
,>,>,w/7@/+46H|+,p ZwO@|[
~0L+	*QA,} ZO@~[0P+	,>,>@,>,d/,~[0P+	O,~ QA	@,~	D"eV>*@seV>*@weV>*@zeV>*@{
rWA|d"e;g@eV>*
@eV>*@
GM
	(
-0. w[
 0j+ w 8 @@@p (= Hp 
p2jp+.
p&*	 A 2XX.+[Xl Pp4P  Xl+3xX.+ 8 Zp+ = A@/+,>,>!	D"eV>*@
eV>*@eV>*@eV>*@eV>*@eV>*@
eV>*@eV>*@	"(,>
,/,~-0x(4H$ 6 `6L`+$,>,/,>",>",>
	D"eV>*@eV>*@7eV>*
@ 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
Xd3EeV>*
@FeV>*
@GeV>*@HeV>*@IeV>*@IeV>*@JeV>*@K AK,~(4HO,>",>!,A/,>,> ,>,/	D"
@LeV>*
@MeV>*
@MeV>*@NeV>*@OeV>*@OeV>*@PeV>*@Q	 EQ@,~ Eah +V,>G,>#,H/,>$,>,>
,/@,~ R"EZah +],>T,>#	D"
}RsReV>*
@TeV>*@UeV>*@VeV>*@VeV>*@WeV>*@X
_BsYeV>*
@[	(\,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>*@	 /12  (	 
@G#hgG#kGG:'Gk' 8@XX((8	 ((XP F@(8(``( 0	 0XXX0(( 8k:N@000$@8@M7 	 $K: S?H:WMe}D`}X~~XSubroutine name	 ,string or 6-digit integeras unit specifiersUNITa rewrite statementan as	 5teriskas format specifiersa rewrite statementa namelistRECrando	 =m accesskey relation/key of reference specifiersENDRECin an indexed read	 Fan asteriskin an indexed reada namelistENCODE and DECODEREREADUnfor	 Nmatted I/ONAMELIST I/ORandom access I/OIndexed read key specifiers	 WUNITRECC~9C2:C2|pC2|s@C2|t(C6 C6'C6Md C6Md'CNMiCOwCR
,`G|`G/
Gey`G@GZG"\J;G2~9 G3k:G7NG7NG?@G?C@G?$@G?$GI|r	 hIRI$II$RI$PI
d\IInI}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@cRc$@c$Ic$Rc~0c~9c~:cMPcFcF@cFIc2|pc2|t(c6 c6Md 	 
c6|@cNL{@cNM`cNMicNMjcO-cRg&(7g&t@	 g&tC@g:=L g?@it@i&lPiJ
9>kN.)<uF@`@@@(@8	9@	 #"P`0@	 ,0@	 4	 =	 E	 N"REWRITE statement VREWRITETYPEPUNCHACCEPTREREAD	D"eV>*@eV>*@eV>*@
y`?(x`?u`?t	D"`?s`?=s`2Ur`?)o`9]m`8tl`4	l`3vk`8uj	D"`?*j`9mi`8yh`4	h`2}g`9\f`3Nf`9Xe`^pe	D"`3(d`.db0Kc`3Nc`,b`9b`3NacJr?bG>C:N	D"d"e;gc,]U-edsQeY]g	`	D `/83d%@HIeVVnAbLCY{X	D"edsQ1eY]g	1`	D /`/83.edsQ(eY]g	'`	D %`/83%`<*oq	D"dSMOd%SdSMOd%S	c1'}d"eic1<4ydSMOwbLCY{n	D"dSMOc`:dc/5:Z`
((]