Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_V7wLink_Feb83 - act1.rel
There are 26 other files named act1.rel in the archive. Click here to see a list.
0y.60 @	
y.$S4xk!4y
A4y&Bbvxf
"e;lTB=_0<$?	 -0 aH +,>w,>,/ 
w~ 
w[([0A7X+! * 
w~=(J0A*O 00J@.	
DE(&-MQ+by.,]MQ+
Qtby./@by./@by.1@by./@	 @ (0N@G ,1X@
GaP+! 
w~ .1J@( ,0H	 @
G 01X@ *1X@
A (1X@AGaN+! 
	(A*(lO/.",>8! wZ*hQ*	,>+F@ 
w~+@,#+C+*+*+*	*E*P%+-+*+@@+0+6+-+6+;+@+* 
w01P+B +C - 
w00P+B +C 
w0.HaP+B,>0,>	D"by./@by.1@by./@+by.*@,by./@.by.*@/by./@1by./@1by.*@4	 4,/+ 
w0 .0P@(DaN+B+B 
w 0`p+>	" = +C 0an@+B +C 
w01P7@4ZH,> wZ.@Q.	 D E,>,>,4/	D"by./@5by./@6by./@8d"e;g@=d"e;g@?by./@Aby.*@Bby.*@Fby./@G	(@ G+5@+G-0,>w,/aZ+O *5JO,>,F/ w* P1JO@ wS0 GP8 aP +V,>,>,/,>w~,>w,/	D"
Q][Iby./@Jby./@Lby.*@Mby./@Nby./@Oby./@Tby./@Uby./@W	"X+-0I w*1JO@P aN +^,>w,>,U/,>w~,>w,W/*`+XD"
QW4Xby./@Yby./@]by./@^by./@`
Qza@`@|a	(*Da-0X.@ w~+@$d++g+l+r+u@+ 
w, .0L@	 i0GaN+ + 
w, .1L@0GaN+ + r 
w,1L+ 	D"by./@aby./@gby./@iby.*@kby./@mby./@oby.*@qby./@rby.*@t	(t+ 
w,0L+ (ap+} (`h+},>Z,(Q,	,>,>,N	  }/ w 
 al+,>Z. Q.	,>,>,|/@+0(0P  @,	D"by./@uby.*@zby.*@|by./@}by.*@by.*@by./@by./@by./@	 M[(A.} 01N@G,GaH+
pz+ 
w (+4Z,> 
wZ.0Q.	,>,>(@,/+ 
wS.BN0@/+`-0. w~ 
  Jp,>	D"by./@
by.*@
by./@by.*@by./@by./@u3{by./@by./@	" ,>,/4: w0N+% w~ 
  J    +' w~    4V(	 "' ` 
1J++@@p . Np+- . Np 0 Pp5V5 (0P+4 
p	 0.*QJ,  Tp 
p pXN0+@+ `,>,>,/ 8	 @8 [. Pp2rp+i8 H0H+c 
HX L`,>	,>,/(A4:0	0P+DS*GJ`[
P5JJ.
1N+W(
	D"by./@ by./@6by./@7`:@8by./@?by./@@by./@Aby./@Eby./@F	" G0H+I :z
+W :+H .n
[P PpZ@5HW7,@+W P N	"OS( H0, Zp 
p 0p
 ,lS.BN( .n pXJ S.GNP @X Pan+\,>P,>,>,>,/
0	D"by./@Hby./@Kby./@Rby./@Sby./@Uby.*@Zby.*@[by./@\by./@\	"]0P+gZ
Z
p2J+gZ0PQ0	,>,>,/+gl ,0L+g e,>,/@@` 
H1l89:[,>,>,7/@@/	 2	D"by.*@aby./@bby./@dby.*@eby./@fby./@k`:@lby.*@l`:@m	 m .(/( Hp2rp+} 
H Jp4J} 8 Np p @ Hp4Hz 
p	 A(v  2N0+z,>0,>	,b/+:
p ..82L+s9o p.	 P~ Np..QNP,1  Tp p pXH@ p Hp2rp+ 
p.
 
/
p	 A
 0 N(9 
XP,P  
.0J+ p p P8S(	"@GH@7.
+ pS*GJ n 
# J  0H+\`X 
p QN0 L  
pS.GN0XLXXTX6NQV8 VZ`X[w~,>,>w~,k/	D"`:@nby.*@xby./@y`:@{`:@by./@by./@
by./@by./@	 @/+-0. w[w.w Hp2rp+- H,>X,/4:.7LX(@D
'9#,>
,x/XPp[p,>,>,/9#@/+@	D"by./@
 8
j$0  2&4)V}=22 
w[.04 NOS0 P
,	 E7 +(h (QH6, 7JQX>Z?"(@XN`XX? wXP` QZ`+H-0/. 4@@@@	D"by.1@5by./@8by./@:}f:<
2NfGCby./@D`:@D`:@E`:@E	 ED F@@p@@ 0H+L 
2L+KO@+O L+O1(
+N : Z+O	 N . N[
w8
 Lpl w[w.w Np2rp+GZ`P H X3X+\ W(	D"`:@Fby./@I`:@J`:@K`:@M`:@Oby./@Qby./@Vby./@W	" W1H+\ Z,hQ,	,>,>
,(/ X+@$]+C+^+ 
QJP[
	"`0L+f `00+t XZ*hQ*	,>,>,[/+t0L
+r[w.w	"@h3H+m bZ.hQ.	,>,>,e/  N=@@5U, L 0 P, @q O@p+tS(GHPO@	D"by.*@Zby./@[by.*@dby./@eby.*@kby./@lby./@m`	D @o`:@s	 E@tXXP6P+ 
 Jm@@n 
 L . Np,XZP".p p`H+C D(| 
`$j 
G0L+3*+C i,>h,>
	D"`:@tby./@u`:@w`	D @w`:@z`:@z`:@}by./@by.*@	*,l+C3*+C+S*GJPR`P+C[
0J
+ Z.hQ.	,>,>	(D 
,/+1J+S0GPPO@QXP X Vp X3X+01P+	(@( Z*hQ*	,>,>
,
/[0P
+"[
w.
w3J+ Z.hQ.	 @(,>,>	D"by./@by.*@	by./@
`:@by./@by.*@by./@by.*@	(,/  Nv@@vU0 P ( Hx, O@p+%1P+%S,GLP	 $O@XXP6J+?[P NpZP Pp @2(8+- Z,hQ,	,>,>, P-/ 
 L@@ 	D"by./@by./@`	D @`:@$`:@%by.*@,by./@-by./@-`:@/	 @/ P ( H ,XZP p 
8$
"
.j 
p`L+A p @/88	" D(8$h 
}0J+>3(+A *,>h,>
,,/+A3(+A+;S.GNP  D(@R`P[p,>,>p,,/	D"`	D @/`:@3`:@4`:@8by./@:by.*@<by./@=by./@>by./@C	 AC H[
,>,>,B/.49S7L+
01P+L1P+L,>
,<" L/ 
; 
(`l+P,>,</,>,/ Z	D"by./@F`:@Gby./@Hby.*@Kby./@Lby./@Oby./@Pby./@Q`:@Q	""R,>,P/QZ 80N+W,>,R/+] L 
 aJ+^ 
 L.(
Z@@. . N 0 P0,XZ+_ 
^XL	D"by./@Rby./@S`:@Sby./@Uby./@Vby./@Y`	D @[`:@]`:@_	  @_ p<7r+/4Z
P5J[P 03N^@(M *1R@
G	("h 
T .0L@GaP+n,>,V/XZP+Z Hp7Jp+ Jp	 Ap.1.+ p6, + 
pZ(Z2N+ 
pZ
0ZP 02J@	 @  y[0 *2Hd@
AaP+Z0 NpXNPZ88XH8+ pZ
8 Lp	(@D +o,>,l/ Zp pXHP *XJ =ra/4 h0P+
S:GZP+ (D 
S,BLPS,GLP+  PZ@@Z 	D"by./@eby./@kby./@lby./@p`:@tby./@by./@by./@
`:@	 @ H * J\,QZ paP+(1H+1H+,>
W	 D 0`n+,>,</ 4S:GZP[w,>,>w,E/ 
p(
.*" QT
	D"`	DZ@`:@by./@by.*@by./@by./@`:@by./@by./@!	*!XL , .Z`ZnXNXV$Q6 Vp*6P p (0H+36L	(E*+3 @ H
pS.BN0 .n 0p (hXLX(2+3R`X /	D"`:@#`:@$`:@%by./@(`:@)by./@/by./@0by./@1by./@4	*4+;-0a w 
,aj+;Z, Q,	,>,>
 al+@,>  =Z. Q.	,>,>,9/+: 
w 0an+E,>0,>,>,>	D"HXw5by.*@9by./@:by.*@<by.*@>by./@?by.*@Cby.*@Cby.*@D	( @
D,[/
 wS(GH@[5HIXPQP+K 
XP0XP@+@-0<.	 M w h Hp 
h Jp 
h Lp h Np p.w h Pp p.w h Hp	 D U 
p.
w 
( Lp w 8 p P3Pp+_7Jp+\6Np+d paN+_"D"^ p ZY 
^0J+i p NH3Np+g7Hp+g7Lp+g,>`,>	D"by./@E`:@G`:@H`:@H`:@I`:@JHYc	Lby./@Lby.*@e(D Qe,?/+i7Hp+i 
p La@/+CD"by./@fby./@i
2NUj@`@$\j	( j-0C.@@p w[w.w Hp2tp+" 
P Jp 
0L+r ( Pp p	"D s @ V' p0H+,>,L/,0L+|Z HpZ
  JpZ  Pp	(D{+|@@p p 
  Jp   Pp+ 
X Lh. N_ @ Hp 
@Jp6Lp	*T@+}t+@D++	@@@+
+%[X4Hg 
0L+ +1,
+ : Zp	+ ( Hp	00P(A(A+ X+*	D"by./@kby./@vby./@wby./@by.*@
by.*@by./@
by./@by./@	"@ 1*
+ : Zp+ . Np 
p	3Jp+g[X Np708+3 p	$8&p	  H8[8 Np	 
 L,@@+ p	$` 
&
p J ( H, p	QZ80	 @P(<72+g 
(
.
pZ0 Lp
 
 J!@@" p	$`&p H . N%	  0, p
XZ@=2)+g(<72+A 
(
.
p7,(+@ (.p	 P@9Z@  N,@@- p	$`&p H , L0, (.pXZ@=25 p P@A.	D"by./@!`	D @$by./@'by./@,`	D @/by./@3by./@9`	D @<by./@A	"@B1.+g 
p 
(al+g p[@2Nz+g 
pZ(Z
`<
XL`Z`5PK	 AJS(GH`Z% Hp7Jp+a Jp3Jp+_ p(1(+_ 
p60(+_ p	 (S pZ
8Z
 2L+_ p pZ
8Z
 2L+_ p[82HF+_ 
pZ(	  [ Pp pXP8Z@8XH@+g 
pZ
0 Jp+LZ`5NcS:BZ`+e,>	(Dd,/  pXX  ,XL`,>,>,/4:zS.GNX n0N	*@l+  HX*0J+ p 82PX+,>p,/ 
p ZpXZ( 
p @u p N0S0GP8+,>	D"by./@Oby./@cby./@dby./@gby./@iby./@kby./@nby./@rby./@w	"U(x,>,/5:{ Zp+,>,5/5:+z +@D++@@	"A@++,>,>,/+,>,>,/4:S*GJX 
kj"D	0J+mNX+,>,>,/	D"by./@yby./@|by./@by./@by./@by./@by./@by./@by./@
 Lp	 A
 p,>h,C/68+ Zp+ sQX@(*GaH+,QZ` A
 p P	D"by./@by./@by./@by./@`:@by./@by./@by./@`:@	 @ [p,>,>p,/9n[w,>,>w,!/ p/+4-0[4X+	 @"
( 
w2J`+* +Z`+' w N:  P:,,  +*-0j. "
0 w ` Hp6J`+;6N+6,>	D"by./@!by./@$by./@%
2]V&by./@,
2OUj/by./@0by.,@3by./@4	"AA4,>,I+7,>,>,X/5:9O@p+L *QJp+L6N+>,>,>	* =,I+?,>,>,X/4:O ` X,>,>,$/ [
.
 Jp"E2rp+H HXVHZ`H9E,>p,>,/	D"by./@6by./@7by.,@;by./@<by./@>by./@?by./@Aby./@Cby./@J	"J Zp4zL .QNp[w,>,>w,B/ p/+&-0. w 6H	(A D"S+[6L+V,>,>,I+X,>,>,X/5:ZO+Q6+  U D"[ 
<
+@4]++_+j+6N	D"by./@Nby./@O
2OFPby./@Qby.,@Sby./@Tby./@Vby./@Xby.,@_	(@_+b,>,>,I+c,>,>,X/4: 
 
 L(   N(,> @h,/ +6N+m,>,>,I+n,>	D"by./@`by./@bby./@c`:@e`:@gby./@hby.,@jby./@kby./@m	"@m,>,X/4:  [
.*QJ-,= [
8
Q  N`@	  v[ Pp2tp+{ . 
.
 
( L 9w,>,>,I/  	"(~7N+  
d ` H( 
` L(+6N+,>,>,I+,>,>(E(,X/4: *QJq,r  
L`,>,>,|/	D"by./@nby./@}`:@`:@by.,@by./@by./@by./@by./@
` J  
` L ,>,h/ [,>,>	(,N/[,>,>,/[,>,>,/[
w,>,>w,/ 7@/+	D"`:@`:@by./@by./@by./@by./@by./@by./@
EZTS 	(A -05.7Hw~+n7Lw+n w~(0H+n 
w~.5Nn w*0J+n	 @@) w05Pn 
w~,
 LpO@p@2Np+0:p w~ h Pp (2Hp+8	 1:p@@ 
w~ 
( L7.7 .: Z,  Zp 0
2Pp+@:p E: w~ 
  J2 
  L37.47	D"by./@!by./@$by./@&by./@'by./@)by./@+by.*@4by.*@5by.*@=	 T
= .: Z6,6 7 Zp 0
2Pp+I:p 
w~ ( H; 
( L<7.<7	 TF .: Z>,? ? Zp;@p+n w0 PpO@p@2Hp+O:p w	  P
N 
h Jp ,2Lp+W:p@@C w 8 PD7(E7 .: ZG,G H	 P
W Zp *
2Jp+`:p 
w 0 NQ 0 PS7(S7 .: ZU,V V P
_ Zp *
2Jp+h:p w 
8 LZ 8 P[7(\7	D"by.*@=by.*@Eby.*@Fby./@Jby.*@Tby.*@Tby.*@\by.*@]by.*@e	 TDe .: Z^,^ _ Zp;@p+n  H	 
p J, 
p L . N=,	(n+o@/+K-0L,> w[  
``j, 
w.0N+7(`+{"@@v 
 Jj@@k `&0 N ( Hm,+ 
w 
(3L	D"by.*@eby./@i`	Dy@lby./@o
}+,>,>,>,>,>`  Pw@@w ( H , Lz,+,>,> 
,>	D"by./@}by./@~by./@~by./@by./@`	D @by./@by./@by./@	 
,>,>`Z`,>+ w 
 `J+6,`+
@`+  N@@,`	D"@P,(,H,+7,`+b@Nby./@
`	D @by./@`	D @by./@by./@by./@by./@	 P(,>`  N@@ 0 P ( H,,>,/,^+j-0& w*" !0J	+'[  Xan+',>,>,/+/ }0N+6 w*	D"by./@`	D @by./@2O_ by./@!by.*@$by.*@%by./@&by./@)	" )0J+0. 00N@* ,0J@
GaP+4+3.1N+3	 D""2*0J+4@+6,>,%/+&   H 
'0J+:@@+; . D"": N	D"by./@*by./@,by./@0by./@2by.*@4by./@5by./@6by.,@9by.,@:	 ; w0  (0P@[
8 ,1J@
A0 *1P@
AaH+F	""C ,QL7 . N	+F@@E,-  
Fl! .n! wQP`*!0J+P @L@
l" .n!,>,p/XZ` +6	D"by./@;by./@@by./@Hby./@Iby./@Jby./@Lby./@Mby./@O
%@HQ	(Q-0/."@@p w[w.w Hp2rp+	< 
H0J+H,>, /68	(DY+[ +	?6Pp+]XXpQXp+	;XX@XXp+	;@@p H `7N`+	
b0H+d,>+s[
.
  P Np Np # PD PG  XHg,F 	 @j *j	,QZP Zp 
p .XN0QT0 p(0H+s p,#1L+u @s,>	D"by./@Qby./@Xby.*@cby./@gby./@hby./@kby./@oby./@qby.*@s	(AAs,5/+	?,>,>p,I/4:	?,>p,J/aZ+~ pZ*hQ*	,>	" |,>,s/+	? *QJi,	 Zp p ,XL8Z`8 pXP8 p H8 P	 	 H 
XJ8Z`84J	QN(pP	[/(Q,>[.8,>,.D	y./@	
by./@		"D 	 Zp5:	 Zp7J`+	,>p,/ p+	?7J`+	4,>p,	/ p[8	 
	 pXT@XTp $ H~ Hh 
 XJ	,i [
pXLPQTp .n	 pXPP	 "	 [@ HpZ
@8
XJ@ ,QL	 Pp, pQZ8QTh pXHh[
p Jp 
p	 (	(XL( `[,>,>,	
/ p XQH8 
XQJ86LX+	1 YXZ8+	2	 A	1 XXH8[,>,>+	5[,>,>,	+/6Np+	9 p Zp+	;[p 	9XH8ZpXZp.2+T[w,>,>w,	5/ p/"	D"by./@	by./@	by./@	by./@	by./@	by./@	+by./@	6by./@	>by./@	?	*	?+P-0Q.$( Hpd @@p w[
w.
w Jp2rp+
j 
H0L+	s  	(	H P	# H X Hp@@*%0J+	Q.1N+	Q[
 5J	QZ. Q.	,>,>(	P,|/	D"
\|D!	@by./@	@by./@	Aby./@	Gby.,@	Jby./@	Jby./@	Lby.*@	Pby./@	Q	  	Q pS0 GP8 8ap+	X(0H+	XZ,8Q,	,>,>+
Z p 
 aj	(	Z+	]Z, Q,	,>,>+
Z6LX+	a X[X4P	a *QJ	H :+	b@ Z		(A	b,	  	bp6Hp+	gXVpQVp+	hXV XVp ,l%,>H,P/QZX(A 	k5:	lZ`X+
k00P+
i *BJX *j[
X Lp,>,p/	D"by./@	Tby.*@	Wby.*@	\by./@	dby./@	hby./@	jby./@	lby./@	oby./@	r	" D	rXZX+
i@@p H X7PX+
"[
0J+	x,>+
[.  ` Pp	"E@	{ # H	` H	c 
 XJ	{,	b  ,l!,kQZ` Zp p 0XP8QX8 p	""
7J +
,>+
 p @ Np Np* 0J+

,#1L+
,>+
 
p""
0	D"by.*@	wby./@	{by./@	|by./@	by.*@
by./@
by./@
	by.*@

by./@
	"  
1P+
,>,	P/+
k:
 p H(,>,x/aZ+
 pZ,hQ,		 E
,>,>+
Z ,QL	},	$ Zp p .XN@Z`@ 
pXJ@ p H@ J	 H		( 
 
	XL@Z`@4L
 QP0 
p J
[/(Q,>,	@/ Zp5:
) Zp7LX	(A@
&+
(,>p,	/ p+
k7LX+
d,>p,
'/ p[@ pXX XXp 
$*@
. J
 J	| 
 	D"by.*@
by./@
by./@
by.*@
by./@
#by./@
'by./@
+by./@
.by./@
/	*
0XL
.,	} [pXN`QXp 0p! pXH`[
  JpZ
 8
XL  .QN
0	"
8 Hp,
 pQZ@QXh 
pXJh[
p Lp pXN0 X[,>,>,	=/	 
A P0&1P+
E pZ,hQ,	,>+
Y,1L+
I pZ(hQ(	,>+
Y	 "
I pQV  P0&0P+
C,0L+
G pQV 6PP+
Q 	/XZ +
] P "
R `,>,>,
@/,&	D"by./@
3by./@
@by./@
Aby./@
Eby./@
Kby./@
Lby./@
Rby./@
Tby./@
T	"
U0L+
G(1H+
[ pZ*hQ*	,>,>,
/+
k 
pZ
XL(7l
	(
]+
b pZh,>,>,>,/>
][,>,>,
S/6Pp+
g p"
f Zp+
i[
pXJ@ZpXZp.2+	E pp p/$+	?@	`	D"by./@
Vby.*@
Yby./@
Zby.*@
`by./@
aby./@
dby./@
jby./@
kJy.%
m 
m+-/
o	D"
y.*
mby.1@
mby.1@
nby.1@
oby.1@
pby.1@
qby.1@
qby.1@
rby.1@
s	 
s026	"
|7Z:; 	D"by.1@
sby.1@
t`:@
vby.1@
{by.1@
|by.1@
~by.1@`:@
y./	 80(0,00  (F(((D(0P	 PP((D( 0 D`(`0$@P(`	 0(BP$@( @0D08X$@8$@@	  X<(@ 88$   8``	 (`@ 8HH0 X(Xas INTRINSIC or EXTERNALas dummy p	 1arameterin type statementin DATA statementin COMMONin EQUIVALENCEas an entr	 9y point nameas statement functionas COMMON blockas NAMELIST as an arr	 Bay or FUNCTIONas an arrayas a FUNCTIONPBPBPwPvPwP@	 JPtpCpv@pwPPw		 S
	D"
y.1-by.1@Nby.1@Oby.1@Pby.1@Qby.1@Qby.1@Rby.1@Sby.1@S	 Ta variable or arraya scalar variablean ar	 \raya subprogram nameDummy variablei4r[r_rghrDUMMYCOMMO eN variableVARIABLEin an I/O list	D"by.1@Vby.1@Vby.1@WJy.,`^F`2V`2k`^o`3b	D"`3`^`^4`3`3'`4	dF2J
dF2L
`.
~	D"`8w
}`4	
}`^E
{`4
z`3
z`3%
y`3y
y`_
x`^1
x	D"`_
w`_
w`3
v`_
u`4	
u`^
t`_
p`^2
r`3
n	D"b\|E3
``:
be!4r
*be-S
 bP^#=
d "]?
d8HXqedsQedsQ	D"edsQedsQedsQz`LsedsQm`QegbL>OgbM&
agm!&Pb
pT
ge%PbLTB'	D"gm!% c(Hk"	bHF_redsQ>edsQ0edsQ&eSY=7xedsQbh#mK	D"edsQ]c^hMdedsQ1edsQ edsQyedsQpeY]g	dqL
P`	xqA	D"d"e0HBba``@edsQ7ejn)1ge&
lb})rwdDdMO`<*o7cXf2S
/	D"f,h!?fc
|dSMO
0`	D eK)-
cbM	yH
9`/83
8cXq
o	D"`ox
gm!&	@ge$obHFzZeVVnLbJ6(
gm!$ ge%c
ZD"bNZM]gm!%p((i