Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_V7wLink_Feb83 - sta3.rel
There are 12 other files named sta3.rel in the archive. Click here to see a list.
0V><v0@	
A4y&Bba@S
"e;lTB=_0<$?	 -0.  H, Zp 
p 
w|0XB(S.GN an+	,>, / w7H@+E,>,>,/	"
DE(&(NI?eV><o@eV><o@eV><j@eV><o@eV><o@
eV><o@
	 *
 
w ( <+@<+I+++76X+  p 
`<
 L@S*	 A GJ@Z
`1J+,>,/ 7X` Z
`1L+I+5  `[	".(QH, [8Q 
p V0S*GJ0 
 JX 8[.	 @ A& Np2tp+) ` HP89& 7P`+I `7V` ZX1N+/,>	(A.,/ p 
X<
 L@S*GJ@7V` ,ZX1N+I,>,./+I	 "7 pZ( P S,GL  7L`+I `7V` 3ZX1P+?,>,5/ "? 
p X< N0S*GJ07V` <ZX1P+I+5,>	D"eV><j@eV><o@eV><j@.eV><o@/eV><j@5eV><o@6eV><j@>eV><o@?eV><o@E	"F,>,/4:I p@@8 p/+-0.  
  Jp [
p.
	 @ DN Jp2tp+q P Np,>8,/ Zp4:d  H p X,  
p	 WZ0 
`aj+ZS.GNXQLX XNX Vp p @ [. Hp2rp	(_9O 
pZ
0 Jp,>H,/66+eO+wZX `ap+n p6, (Ah+j,>,>/	D"eV><o@GeV><o@I
q3JeV><o@KeV><o@ReV><o@SeV><o@beV><j@heV><o@i	(*j9_S*GJ [
 XJX pQVhQV 9_ p 
pXV0XV 9_9O K 
 	 
r Lp[
p,>,>,/,>,>q,t//+-0J.@@p vZ 	 @ {Z
 [
 .
 Jp2rp+@ H6N`+ ` ah+,>,>,"@ /4:S*GJX+,>	D"eV><o@ueV><o@ueV><o@weV><o@w6N3xeV><o@yeV><o@eV><o@eV><o@	" @,>,/5:
O Tp+S*GJX+ `1H7` `,>,>,	"/4:S.GNXS:GZX`T+ Xah+ :+ :z 
Xal	( +,>X,>,>Z,>,/[,>,>,v/9} z[
h,>Z
h">,>,/	D"eV><o@eV><o@><o@!	"A !,>Z,>, / paP+&O+'@/+x-0x.@ "	  *Z Z
 [
 .
 Jp2rp+H H,>,>,/5:1O9,,>,  2/ 2T	D"eV><o@!eV><o@#eV><o@'^}S(eV><o@(eV><o@.eV><o@/eV><o@2eV><o@3	(@4+9O,>Z(`Q(	,>,>,i/9, /((6, +>O,>	  <Z*`Q*	,>+7S*GJ` 
`aj+D,>`,>,>,>,/ `an(@ E+F :+G :z	D"eV><j@5eV><j@7eV><o@8d$r1G@:eV><j@<eV><j@AeV><j@BeV><o@CeV><o@G	* DG9, )[h,>Zh,>,#/,>Z
H,>,J/aV+PO+P	 PP@/+'-0(.ZZ`Z` Hp 
X`j+e4 
/,(
Z0 PXn0	D"eV><o@KeV><o@KeV><o@MeV><o@P
i
CcQeV><o@ReV><o@VeV><o@XeV><o@Y	 @Y (0P@* ,0J@
AaH+e,>p,/ ZpXZ` p V8	 bS0GPX /0( 
@ JX7Lp+pZ04rp p.Z@4 X`h(j+p 
/*(
Z,Xn,0L+p ( HX=rg@/+Q	D"eV><o@[eV><o@_erQ"@deV><o@ieV><o@meV><o@merQ"@oeV><o@q^'br	"@(r-0ZR4Xv*0J+,Q+t 
 ,3J	@
 .3J	@A
aL	*z+u JUS0 PT, 6
 /((Z$ln
,
0L+z   P`*+-0Q.	D"eV><o@seV><o@weV><o@xeV><o@}eV><o@eV><o@erQ"@
Q3eV><o@	( L 
  Jp [
p.
Jp2tp+P Np 8,>,>,//4:%	 
p,>,>,M/ [
.
 Jp2rp+ H Np	 D"@,>,>,/4zZ`H9 

 L|,U Zp pZ
XJ [8QN  PA QX XH`9  
@ Lp[
p,>,>,/,>,>,"/	D"eV><o@
eV><o@
eV><o@eV><o@eV><o@eV><o@eV><o@#eV><o@#eV><o@%	"@%/+q-0r 
,/H46,>,/4Z.,>.+1eV><o@,eV><o@.eV><j@/	*/ Z(=6),>,7/+,>,-/,~-0. $7H`+;8Z`	  8 H[
,>,>,$/+>,  
P8
 LP `[P4VC[X,>  @ZP,>,>	D"eV><j@0eV><o@1js2eV><o@2eV><o@3
e3,!4eV><o@5eV><o@:eV><j@A	(@"B,1/ZP2N+G,>BZP,>,>,B/(0H+J,>,F+y JZ
,>,/aZ+QZ.HQ.	,>,>,I/+z,>	D"eV><o@BeV><j@FeV><o@GeV><o@GeV><j@IeV><o@LeV><j@OeV><o@PeV><o@Q	"Q,>,F/4:zZr Pp  H H 
XJU,  Vp ,QLV,	 Z  .XNX pQPXXTX RX T R XHXZ`X4HaQV  V^ p6Jp	*@(b+d[S+d QZX:XRXXTX[PZP8XHP .QNY,YQZPQVh	  "kXRh ` `QTXQRX7J`+s ` PXPX[,>,>,:/+t C" 
sXPX[5,>,>t,q/,>e,/Z,>,//+&	D"eV><o@ReV><o@TeV><o@VeV><o@reV><o@veV><o@weV><o@yeV><o@z0y<{	(@
"{-07H+~,>,/ ,QLi,i  aXN`Z``4NQX8 X (	"XH`,;QZ`,XZ` u XQT`Z*XQ*	 J4T
 P< NPS0GPP	"
[` N{Z8 PCZ`,>,/QZ`@+J-04,3Z+,>[ E"D,>h,>,O/+z6V+,>,+QZ
X5L,[X[H,>,>	D"eV><o@}eV><o@
}
eV><o@d"e;g@eV><j@eV><o@eV><j@eV><j@	(",/ZXZX *1H@
 ,0V@
G
aJ+4V+[X4R&ZX	" %XZH+'ZX HZX4R)[
XQLH,>,>,u/O+[XZX0P	(@P-+/Z`+/[X Z
H0*P@4R93R
+9[`,>,>	,/ 
&	"( 6Z
( L5,>,>,*/7P2+KZ
X0J+?[X5NP 9QHXS*GJ 	*>+P5RPZ`ZH<XPH H< HH[HZ
PQJH 
<XL`Z08XN0	 "G 08 P0[0XHPQT0XLX+PZ
X0J+N,>6,+QZ`<RDZH*D"ON><j@4eV><o@5eV><o@7eV><o@8eV><o@Q
}
}R@`@9TR	("R-0& w[ 4XUZ XZ`+VZ
  LL 
wZ04XY[0QP` w[h,>	 "Z,/ wZh,>,P/ Z`X 
wZ
( LPZ0 NO@+2-0R	" E c.  Hp 
 Jp,>,)/0Z+i p Nd+ h 8ap+m	"k p Hi,>	+ p Hc  
X Jp[
,>,>,8/Zc Np@@"AtO@ ` Pp@@a@@t l84X|,>,+/	D"eV><o@[eV><o@]
(Q"ibeV><o@ceV><o@feV><j@leV><o@reV><o@weV><o@y	(E D"y5:| p Nv p Pv+ zZ
h,05: p P{ p H|O+ p	*( PZr6Hp+[XZ+XH,0L+	,>	,4/ p P p	 A

Z
 0J!+.0N+,>
,/+  NU N~ *
XP,W@epXHXXXX*	D"eV><o@eV><j@eV><o@eV><o@+b-0 n ` `7H`+  ` X[
,>,>	(@E,q/+" Z`8XZ` 
 L L XN#, ZXPXZ	 A'QHXZ
XJX  
`XLX ZP0N!+. :XZP+1(0H+1,>
(@A0,/+Q(	D"eV><o@
y
1eV><o@eV><o@"eV><o@$eV><o@.eV><j@/eV><o@0eV><o@1	 20HXVP,0L+6,>
,/[,>,>,/@+1-0 *E
: H/,>),f/5Z>,,>+@,=3Z	D"eV><o@3eV><j@4eV><o@5eV><o@8
2dM9eV><j@:eV><o@<eV><j@=eV><o@?	(Q?+C,>[,>l,>,0/+ .QN$,  VXP`Z``4PHQX@	(D H XER``,QZ`,IXZ`[
`,>,/QZ`@+C-0{. 
 H:* P,>;,;/4Zp,>	D"d"e;g@@eV><j@AeV><o@BeV><o@L
|3NeV><o@OeV><j@OeV><o@QeV><o@R	(D*(S,x/5:UO+ 
+NP,>P,Q/5ZZ,>,>[7TH+vZ
P4L`[P[`,>,>	+~[P5Pc[P[
`,>+}Z
P,>	 Dd,/[
P Lp7N	+i,>,]/ f Hp,JQZP[P,>,L/	D"eV><o@SeV><j@UeV><o@WeV><j@YeV><o@ZeV><j@_eV><o@deV><o@heV><o@l	 (Al  
pQJXQV(S,GL(+,Z3Z+u,>[,>lA,>,B/+	* u6T[+x,>
`,>+_[
P5J[P[`,>"  },>,v/+ZP,>,d/	D"eV><o@pd"e;g@qeV><j@seV><o@teV><j@veV><o@weV><j@}eV><o@~eV><o@	 E([P,>,g/7Hh+,>,/Z`P@/+-0N,p3Z+
,>[,>lr,>,~/+6Vu+,>
}
'3eV><o@	d"e;g@
eV><j@eV><o@
eV><j@	(D@,
/+
X4L#[X[`,>,>	,/ZXZX *0H@
 ,	 0V@
G
aJ+4V"[X4TZXXZP+ZX H
XQLP	 A ,>,>,7/O+[X4P&[
X,>,/ZXZ
`1j+),>(Q@(,%/7N+,,>,(/ZX H4H.Z` ,>	D"eV><o@eV><j@eV><o@eV><o@ eV><o@!eV><o@%eV><o@)eV><o@+eV><o@."@.,>,!/@+"D"eV><o@/Z1@`@M<1	(@ 1-0b. ) X Hp[
,>,>,// 
pZ00N!+9 :XZ0+= D"@9(0H+=,>
,/+Z  HD,%  *j ,ll
	D"eV><o@1eV><o@5eV><o@9eV><j@;eV><o@<eV><o@=eV><o@?eV><o@@eV><o@A	 AZ`` pXV`.0N+FS:GZ`+IXXX Xap+IS(GH` XaP	(EJ+M,>,>,/XZ` Xp  H# H= 
XJN,>  pXN`XX8	(E RZ
 Lp ) Pp@@u@@S,>w,Z/XZ` pXHR 
p JU /+D"eV><o@CeV><o@LeV><o@MeV><o@OeV><o@VeV><o@ZH9<[@`@P
[	*[-09ZX8 (1X@ *1X@
A ,1X@
A .1X@ D@cAaH+g,>w,V/ Z``@+ND"eV><o@\eV><o@f.az{h@`@\\h	(D(Ph-0[. Y Hp@@i 
 JN JO 
XLl,P  wXN`R``Z``Z`` Pq 88 P8 p Hj /+hD"eV><o@ieV><o@keV><o@leV><o@t
M>u@`@U4u	(A
u-0h. s Hp 
w Jv 
 Lk Lm XNy,m  wS(GH@ p	(
 } Hw /+t-0.  Hx Hz 
XJ,z  
2 Lp XN` 
 XX8 8ap+,>8,>	D"eV><o@ueV><o@xeV><o@yeV><o@~2OCleV><o@eV><o@eV><o@eV><j@	(@ 	,>D,>,C/ p 
 1J7   QZ` 01P+,>,/	 P@[` *QJ,D  ,l .|BNP XNPS0GPPXVPQT`01P(@"+"XXX+"[`*1J+,>,;/	D"eV><j@	eV><o@
eV><o@eV><o@eV><o@eV><o@eV><o@eV><j@eV><o@	(D,>,>,>,/QZ` 
p 
(0L+%@+& ( @5V'@+(	  "'[8 Zp p.(QH,  Tp 
pXJ` 
pXL(4V@[42@ 	 0. @ Hp 
  JpZ
  Lp 0 N  J0 p. L@ < Hp7.p	(
8+@. 8 
@ Lp p 
02J +?,> ,>,/>p+8=2/ 	 DA(0H+I,>p,_/ ZpXZ` 
p p8XN0 @ P0S(GH@4VL 
I[,>,>,5/[,>,>L,K/ /	D"eV><o@ eV><o@!eV><j@=eV><o@>eV><o@AeV><o@CeV><o@KeV><o@NeV><o@O	*
O+9-0.,[1H+V,>	,>,>/+<Tp,1L+w"X0P0H+]Z:@,>,>,5/6LT,,>,>,/	D"
 JG,>,S/5:u@@d p .	 PhnS0BPXZM4X
Z0`[@0H+
[j42
 
.
 0.4N
 P	 @*D*q HpZP4Tt 
X LP HX=2n+
,@@g@+ 0 PX (Y HY6J]("D*y,],>,>,R/,>,e/	D"eV><o@ceV><o@eeV><o@feV><o@heV><o@oeV><o@zeV><o@{eV><o@|eV><o@}	*}4:
Om+X,[.Pp2rp+	/HZ`HXXH(0H+S:GZH	(9,0L9S0GPH9,>p,>,/64+
HH
 
H
H	D"eV><q@eV><q@eV><q@eV><q@eV><q@eV><q@eV><q@eV><q@eV><q@	
exu<``HH(6$30 0PP#0^`	8X((08@PPXEXTERNALnamethen	@ameofanintrinsicfunctionthename of a non-generic functionINTRINSIC name IRECORDFILETHENIFTHENStatement function	D"eV><q@
pT
bgYK,w	D"d Atye
vxe
ve?xbgZ<XbHF bCib[e@uel?-Kge%	D"gm!%uf,h!?\`Qtd(`~sb}
Jigc1&eeVVnwd"e;gd"e3Q	D"d u<}`x"Tyb)@wbe6b3vbe-S,bP^#=^d "]?]cXf2SbJ6(K	D"eV?)"yc(Hk"ib2ORA3eY_]-|d"eiWc1UjVd(`~
VedsQ|e
v	D"ge%Zgm!%1bHFCerQ"eSY=7[d$rPx9eU&f2c
dQtS	D"`Age&eK)-M`{0S`	D {`:~gm!&Pge&0bM	yH*D"dqLsdQ][{c