PDP-10 Archive: sta0.rel from FORTRAN-10_V7wLink

Trailing-Edge - PDP-10 Archives - FORTRAN-10_V7wLink_Feb83 - sta0.rel

There are 26 other files named sta0.rel in the archive. Click here to see a list.

0V>*0@	
A4y&Bbaf

"e;lTB=Z0<$?	@-0w*1J+S.NNXP,XHwXD		@,>,/Z*0J+
DE(&

De*AeV>*@eV>*@eV>*@	eV>*@
eV>*@eV>*@ ,/ [,>,>,/ +D"eV>*@eV>*@
HF@`@|	 -0. w~*1J+!,>,/  N N w0P+%,+&"% 
XJ", S* J%

w0L+- w~(0H	+, +0 	D"eV>*@eV>*@eV>*
@eV>*@ eV>*@!eV>*@%eV>*@*eV>*@+eV>*@,	(-+0 w~(1H	7  Z, XD70+5 (hS:GZ w~	 @A5*0J	+EZ XD w~XN00P+<S:GZ+<XB8 8Z

 Lp	"@>2xp+C .7. 9>Z  PpXB@9>,>,>w~,/+R .QN'(@F,$ XD 0XP w~XH*	D"eV>*@.eV>*@/eV>*@/eV>*@3eV>*@5eV>*@9eV>*@CeV>*@DeV>*@J	" J0J+MS:GZ+MXB  w~XN00P+QS:GZ+RXB8d   	 @@ S/+-0  `,>,>,/4:Y,>,/+-0, Z [,78+[
[1J+`,>,>(+d,76+\[]1P+f,>	D"eV>*@NeV>*@S
Z@TeV>*@UeV>*@WeV>*@Yc,>D,>, /+a@@Z`*	0J+k,>,>,/4:p X V  @l . N,>	,/,>,/	D"eV>*
@deV>*@eeV>*@geV>*@heV>*@j`:@keV>*@meV>*@neV>*@o	*Ap+e-0T @@,>`,/  V46*
0J+x,>,d/+Y Ax[0N+(
0H+Z,XQ,	,>,>,>	D"
Z3peV>*@s`:@teV>*@ueV>*
@veV>*@weV>*@zeV>*
@}eV>*
@}	(A"~,w/+x[0H+,>,/S,GLX

 L! LF XN,	 
  `XPX QHX[
,>,>,/ZXS,GL`[

5LXV
+ XV@XV+-0.	D"eV>*@~eV>*
@eV>*@eV>*@eV>*@`:@eV>*@.a|seV>*@	 Q  `0H+7L+Z05P!  P P XH, Zp 
p

`	 QXL(R`(Z`(@+V `

`0L+67P+"Z
@4J",>+D 
P Jp	 D#,>,>,/4:V p N0

1P+D7JP+5 P Np 8 P  D,[	D"eV>*@eV>*@eV>*
@!eV>*@#eV>*@%`:@&eV>*@'`:@+`:@,	 ,. Pp2rp+0 HZ
h JH9-[

P,>,>P,/[8QN+5	 @5@@

+K P P [. Pp2rp+< HZ
h JH99

P L @= [	D"eV>*@2`:@3`:@4`:@5eV>*@5`:@7`:@8`:@=`:@>	 >8QNZX0H!+B :XZX+F*
0J+F,>,~/+V*
1J(G+J,>,>@?eV>*@BeV>*
@DeV>*@EeV>*@FeV>*@HeV>*@HeV>*@I`:@J	"@ PJ 
p

XL([QN( PSZXP(Z((0HXJX/+	D"eV>*@JeV>*@NeV>*@N`:@Q`:@R`:@SeV>*@TeV>*@V
D8:W	(W-0Z.  Hp 
  Jp,>,>,/4:6 p 8ap+a,>,> @ D_,/+6 p 
 aj+f,> ,>,>^,>,_/

p L	D"eV>*@WeV>*@ZeV>*@[eV>*
@_eV>*@`eV>*
@ceV>*
@deV>*@e`:@f	"D@g  NK NO XPh, Zp p7J +(   Np@@p@[p Pp2vp	(o+sZ
p.
[

(.

p8

 Lp9o p&( Hp .1H@0GaN	(@x+1.(QHi,

p ZpXZ0 
p pXP(QL( p 8`h+ 0p	 @[p Pp2vp+$Z
p.
 (@@p [

 Lp2tp+:p P	  @	 p.XD8Z`8 P0P+,0L+ p p.S*GJ@* , 0J@

( .0H@G

aL+,>,>,/	D"eV>*@geV>*@heV>*@veV>*@eV>*@

eV>*@eV>*@eV>*@eV>*@	(@ + pXN00P+,>[

,>+S,GL8.4+[

,>,>	 "" ,/ p .  897Pp+1[

p,> p,>h, /+1 	")an@+1 0QPy,y 
p ZpXZ( pR` QJ

p 0`n+1S0GP  1 p XP8d  [
p,>,>p,'/@/+p-0p(	D"eV>*@eV>*@eV>*@!eV>*@'`:@2eV>*@5eV>*@6

;1L+D, Z4:O[<1H+D	""DA,>,>$c,>,D/+@@>  Pg P* XHE,  DXXX4XO "DI,0LXV`0	D"eV>*
@9eV>*@:d"e;g@AeV>*
@BeV>*@CeV>*@DeV>*@FeV>*@IeV>*@K	"DK1P+C,>,> 
	D"eV>*@MeV>*@MeV>*@N
M@PeV>*@Pd"e;g@QeV>*
@SeV>*@TeV>*@U	*  U JE JF

XLV,,~-0,>,/6X+_,>,Y/3Z+g"( ^,>+d2X+aO+S,>[,\/3Z	D"eV>*@V

%SXeV>*@ZeV>*@\eV>*@]eV>*
@^eV>*@_eV>*@beV>*@b	(c+g,>[,>lR,>,S/+` *XJ` +f-07,66+lO	(QP"k+O 
 JU JW

XLm, XV`+k-0i,66+sO+p 
*P"t Jl Jn

	D"d"e;g@ceV>*
@eeV>*@fleV>*@m	(uXLt, XV`+s-0W. w~ *2H@
 ,2H@

G
aJ+	"P~ :+ : Z k X6NP+  Hu@@0

w~ L * J, ZP(@+
 w`H+
,>,e/[P0H
+ 
	D"}h?xeV>*@xeV>*@zeV>*@{eV>*@`	D @eV>*
@eV>*@	eV>*@	*

 J@@ w~ N 0 P,+0 
P.0N+$ P,0L+ P	 A01P+

P*5J,>,>+ P(0H+1 
P[(Np*8"ap+1,>	D"`	D @
@eV>*@eV>*
@	"P,>+ P01P+1

P*1J+1+ P,0L+(,>,	"@ '/+1 P00P+,

P 
0`J+

P*1J+1,>P,>
@eV>*@ eV>*@"eV>*@$eV>*
@&eV>*@'eV>*@(eV>*@,eV>*@.	 /,>,/ ZP7JP+F[P1P
+F

P*1J+F P(0H	+;	 7 
P[( Np 8ap+F,>	+ 
P.1N+F P,0L+E P"@708+F P,1L+E P0

	D"eV>*@/eV>*@0eV>*@4eV>*@6eV>*
@:eV>*@<eV>*@>eV>*@AeV>*@C	"@ D1P+F,>+7PP+L

P*1J+L,>P,>

P""L0L
+P7NP+P,>	,>
+7NP+T P,1L+T,>	D"eV>*@EeV>*@GeV>*@IeV>*@JeV>*@KeV>*
@NeV>*
@OeV>*@QeV>*@S	(@ @"S+7HP+\ 
P.0N+[P0H
+Z 8,>+O7JP+\,>	(D"\+6JX+^@@p+j X ` h,>@,/ Zp6(p+d +8,> @ "d `,>h,D/,>,>`,e/,>,>,g/	D"eV>*@UeV>*@[eV>*@aeV>*@deV>*@feV>*@feV>*@heV>*@heV>*@j	"j7PP+r

P*0J+r P6(@+r7Lp+r,>
,&/+8

P*	"As0J+6PP+v,>+~

P*0J+z P6(@+z,>+~[P0P
(DA{+},>

+~7LP+,>

	D"eV>*@leV>*
@peV>*@qeV>*@reV>*
@ueV>*@veV>*
@yeV>*
@|eV>*
@~	" 
~,>+8 0N+ PS, GL  w~ Pt P

 XH,&

PQL` 
PXJ` PXN` PQP` PQH`[

pQL`[
P0J
+T``+	  PXP`7PP+

PQL` 
PXJ`

PZ
0 .0J!@Z0 (0P!@	 @EGaN+! 
P[

( Lp600+ 0+!  H@@

 0 N * J	  ,XZ`7JP+% P(1H+% 
PXX(7PP+-[P1N
+-

P0"@)1P+- P*1J+- PXX@7NP+1

P0	D"eV>*
@~eV>*@eV>*@eV>*@`	D @eV>*@#eV>*@(eV>*@*eV>*@.	"/1P+1 PXX8,>,/[

,>,>,i/[,>,>,4/	  A77@/+7-0x.  X7HP+H[

P1L
+H P(1H+H  A@

P.0N+D,>	D"eV>*@2eV>*@4eV>*@7eV>*@8
2ORA9eV>*@:eV>*@>eV>*@@eV>*
@B	(@ B,/+N P*0J+I P 8aP+I,>+Y P0

1P+N DK,>P,>+Y7JP+V P0

	D"eV>*@CeV>*@DeV>*@HeV>*@IeV>*@KeV>*@LeV>*@MeV>*@OeV>*@Q	"@ R1P+V,>P,>
XJ\,

PQL` PXN` PXP` PQH` (c 
PQJ`7LP+h P(	D"eV>*@SeV>*@TeV>*@UeV>*@WeV>*@YeV>*
@YeV>*@ZeV>*@]eV>*@e	"@f1H+h

PXX07PP+l 
P,1L+l PXX@[
,>,>,6/	 U(n[

,>,>,m/7@/+96Hf+u,P ZaO@s[

t0L+}	*QAw,t ZuO@u[w0P+,>,>@,>,Z/,~[x0P+O,~ QA@,~	D"eV>*@ieV>*@neV>*@peV>*@r

rWAsd"e;g@zeV>*
@{eV>*@|
>A,>,>,>	,x/,~,>,>,>	,x/	D"eV>*@eV>*@eV>*@eV>*@7eV>*@eV>*@eV>*@eV>*@ ,~,>,>	,>,x/,~,>,>,>	D"
eV>*@
( ,x/,~,>,>,>,x/,~,>,> 	D"eV>*@

hS

eV>*@

eV>*@
Xd3eV>*@eV>*@",>,x/,~,>,> ,>,x/,~,>!	D"eV>*@eV>*@
}RseV>*@ @,>,>	,x/,~,>,>,>	,x/,~@	`	D"eV>*@eV>*@eV>*@
_BseV>*@eV>*@eV>*@eV>*@MV>*	  %

eV>*@!eV>*@"eV>*@$eV>*@%eV>*@&eV>*@'eV>*@(eV>*@(	)2(@G#hgG#kGG>t8'G";G3	18PXX((8((XP2	d:F(8(``(00PP0(80	1Bk:N@@00$@M7:S?H:e@(}P~~}	 KPSubroutine namestring or 6-digit integeras unit specifiersas fo	 Srmat specifiersrandom accessUnformatted I/ONAMELIST I/OList directed I \/ORandom access I/O	D"eV>*@)
dSMOf,h!?b2OUjreMQ+q`:qbMR!m`Ql`::	D"dQ][i`][V`:Tge%heK)-pedsQ0`	D dSMO^bM	yHF	D"c