Google
 

Trailing-Edge - PDP-10 Archives - bb-4157j-bm_fortran20_v11_16mt9 - fortran-system/forddt.rel
There are 45 other files named forddt.rel in the archive. Click here to see a list.
 	~*(AgigI(0(AgH	"U*T*+ -
w,u+(-
w,u+',^ 0@@(C*`j	* O@(6@(P-
w,u,>\"1,^,>\"1,^,>\"1,^	 UQ
-< ^f,z6@(+Z
 J+ 
J,+"*BPB',hO@& 
4,M@@XJ: "dl@ 5	*Q
E(" X5,a+% "l @"!*Z J 
b JbZ* J-6@'+.,
1++	*Q***,/ 5 H9@@9`BO@9 H5,8 -Q`A6 @"@"7 z,j@@	k@@$	*U3@@1@@5@@%@@#@@4@@H,>,>Z" #d$Z" $,^,^,>\"1	 U(;,^,4,}4F. FF5D77$ze l  F 6Y 6 O*(J}(D	("D5DC 2  f3F+L2F+I:Q*dE5RK:1RY 6Y	 L /$`.6 X+C\G"(1G>vJ7I I&l[YI?,+OJ~\O?%pQfY>[>$P]F@	 U*U_B-`a.9 em}RgR-gR~gSrigPo"@@'@~@U@@@~@	@|@`	*U*U*]@!@Q@
d@@@
@i@&@d@@	l7@f+.7@'+`	*"Qf7@&+@  f, +.!*Z J,j 
9d6@9l J5`B+q	"T*Un!$@ D6,
e+v+s!$ D6,
O+v+J'4@",h,fZ, 4Jz	*Uw @l-<+ C(& IlC<,-*
(,R+`	**",o+C+ 1 
'7@'+` JA f!*gp&7l&2K7
A,D Df7@&	*Q*U*+@,R+/,h!*Z J,R4 ,45D74F7,n H5,8+. 9d	(P"E6@9l+ 7ad+ p3B8+! "6@(+8B D(!"\$:	"
(4Q"l`C$)[D+@4DCpDEp"6@(+;(B,>	(U*!\"=,^,>\"1,^C$p DA+R5 ,7@'+3,O+2@@'@@g	*Q(U*@@h,f-*
 *,4H:3H,+:,z *Z*+	*
;4H<2H+8
,^7@,~,>\"1,^,>\"A,^+G7@, J,	*D@ C3J,+G J,,>\"D,^,N,>\"D,^,>\"1,^7JC	(U*U*L 
Z
+m6@'+g6@&+j-
w,uO@'6@9+U,
+U H9@@9`B	*TO@9,8,>Z"  ,^,>\"E,^Z
-7@(+_,>\"G,^	"],>\"1,^7,m,>\"I,^ 
=d6@=l,!,>\"J	 U(T
e,^ "+.+U@@'@@C@@&,~7@'+ 
 */A* J-+U6@(	(D (n+M7@+r2j+Q,>\"T,^,>\"U,^,*+X1+z	**Dv Jg,,>\"[,^ 
g,7@D+,>\"[,^ 
Dd6@D	"U*l,!,>\"1,^,~4 	ul@@@M,+++C2F\+l+9	*U*U* Jh@@g6 z+(,45D74F(7@M+3F\+=3F]+=3F]+76 z+7	*P*T*3F^+(2F^+7d l,.,O JN6 z+7@@MdB+_5D,T0D	*"+7,40D+7[f1FM+$1FI +#1F\ +#1Fi +"1F}+"1Fy +!	*U
E*!+7:M:M:M:M:Ml,.,O JNdB+a 
c Jg7
c,.1	"U*U*) 
(4*7*
h6 z+5 J;,45D7 
;4F52F]+76 z+,O5J21D	(
Q*2+/0*0j+QJh 
;l ,R+,|+.@**
h J;+/6 z+l	*U(D(:,45D73F\+=2F]+77 z,jZ ,u,>C(& IC<,z,^+.	*D"Q
C6@B+ $`B+H`d+d$@3Dd:M+Kad+ 3D\:M (	(@T"K3D:.*+l`+	 JO *O,~,d0L+u,e	 E*U T0,,~+u!*Z J7@'+`6JC+] *e3JJ+)4 ),.1 
(4*7	*U P(\+* 
CJA,h,f-*
C<,7`+ @
l  @
	"U(T*e & f H+h g H\$ "+qXB h+z  
 &?	"((m4u@B 
+l lhd( H<f|1f+g+e@B	(D
"v 
\" 	+ + 	+ \"h7\"l\"o	(A"~\"C<,,^+.\"r\",^+.FORDDT?{(HfHv"x@
	(Q" 
4 $l@,+w+  Fm $`B+d&@2Fd6 z++  3F\	*U*D*6 z+,45D73F\+2F]+l7 z,jZ ,?@A+. $K mZ	"*1H(+ .$1dY++ (3H:.*.*@@@@@@+.2Fx+7Z 	(U**&,@A+z4 7@@c7@&+@,O+Tl@@]@@]@@A@@B,+l+{	(P*Q. Jh`B, 
$[
(aB+y e6 z+74Dc1D+c1D+Q0D+7	(EQ
7@@g,>,4,^4F7*z0Je?m@ Jg4D?1D+?0D+7+76 z	* A?+77Jg *6@#+C@@]+F`P@a@+F0J1J:#1J+1J+	"H1J+1J+a1J+?d@1J+c1J+}1J+1J+1J+	*T*U"P+7 
h J# 
] J]d  
1 Jl,+l+7 l2H1+na@ +[ ]	*U*(Y2d]*] D] 
;+]2*#*
# Jh,a+  
$[
(aJ+/ e1D+7	*A*Ua7 z4Dc+7l &,: 
c*
h,{*
h Kh Jc:haPh`@1+u	"(Ajl,>1,> 
{ J1 
h,{,*+ +p,^,^+],^,^ J1@@1	"U"U(r`BO@1 
c Kh:h7@#+x`P+{3d#+d+.>
h@@z@@#e@`Ph	*TP({>
h,4+.,O+el &`@ &,:+dl &,:+dl`,T	"Q**0D+M 
} Jb &,: 
b Jb+d`P@m Y` 
1 Jl 
; Jm,	*UE
+l+7 m D; l D1 ( DcaP@+d 
( Jc+dl+l e	(E(U Dnl,T0D+s,k,d+el 
} Jc7@#+d@d6@A+w	*D(",T6 z+7 ,@@cdB+8 
}`P@* ~,k1D0+6dB+D	"
U
%`n`+"1l`@+)aP@+;7@c++ Jc+- JcaB+ ZLz,j	"T

.aP+d c4Dd c(D)D(5H3)D|+1(Ddfl Dc Fc+d	"*T(6mB+"d+%d 
} Jc Jc+eZLz7@#,jaP+e$J(J	(T(U"?+el,T6 z+70D+; $]7@A+G B/A8.A<	"(Q*Gf F[ *, 
d*p,{,k0D+Q,k1D+Qi 
~ J4,T	*AD"P,ji+V` 
,z1L,{d=hK * Jz *<(XJ+V ]	*AU*X/]4h] 
; 
($*  [
L=j[ 
~ J4,T7 z,j 
;7@]+y	((*a+.l@*6 z+e,T6 z+e@l *`P@ *
1,T6 z+n0D	(QD i+k``@+7+g1D+g0D+nh @+g/$4$W0$+W)LG<Js	*E*E*r,T7 z+naP@+v Lc Nc+v Nc,je`@+dL@cL@c:c7@c:c	*U P*z+d6 z+7,a+l,%+. 
  
,k0D1D+ ~ F4,V	"
"0D57XJ1n0+d4D,k0D1D1,V5D0H+M 	"E*T0D+,k1D++
7@&+@,O+T,M@@	kl l @@4``m 	"*E
d ,d ,+.@@#@@]@@]@@A@@BY`,+m1+1,%+~	*D 
,5d,,>\"
XF!1d +~,> ,^+ 	 AD(% ((,>\"1,^*0J+ 
 J;^*{.J5,>,a+,^ $(	(E-+u,>Z",^ 
E 
(,~1D+eB+4,l  J% 
(*
%	(T(U"6 JEl,M+m*
5aP+N; $]7@A+> B/A8.A<	 >h  *, 
,`P@+C0f &,D+N,,>\",^	 D
DG` 
(1H,*1J,,=fG,>\",^,~aP+Q	(E""O, &,+aP+V, E 
 Jc 
 &`@ &,+aP +[,	(A
"X E 
 Jc 
 &,+aP+], 4,RaP+b, 4,RaP@	*E"Q"`+b,.,RaP+f,,EaP@+f,.,EaP+m,,>\"	 ET i,^(J,EaP@+m,.(J,EaP+s,5*q,>\",^+s	""
q,>\",^aP+u+b,>\"1,^7@#+~`P+|:
E`@	*U*Az:
E3j#+4+~ 
E:]3d]+47 z+,~eP+,>\",^	(T*U" 
%,~ J# 
] J]d  
1 Jl,+m+7 l2H1+nd@+32*#	(A*P**
#1D+7l aP+4 ]2d]*] D]+4``0D+,_+Q`	*A

6 z+7+0*0j+0D5D7,!,^x+~a`+.,^x4D~+7 JE	*D
A*@@F, 
G<
 J]`@(J.
E J# 
E,~dB+*7H(	c+*3H=+*	*T @*$ H5 = H@ = H?d6@(	gl,>,,^ ((H(nH	k+i H	k,>	"U*U(-$*.
,>,,>+,>4,>z J,ZJ+ 
 J4,,^z,^4,^+,^,,^ (	"U"U"5(H(j	k H	k+~+m@@>@@=`B+<,
+l 
5 J=+D!$ D6,
O	*Q
>+l 
5 J=@@=`BO@=< D> r.$ 
`j@+B_
#J?.
.*	(U*DF J>aB+J 
 J5,
G+J J> 
= J5,~MO	( AOPRSUVX	" WY[\^_a	 A`bdegh	( Ahjkmnpq	" qstvwyz	 Ay|}	( A		" 

	 @D(L 
 (4D D,~,o	"",>\",^+.  J@@( J,~d
C& 
4J) (3D;+%	 @A
$  
(+"d  (`hl`hl +u,>,> 
;l,*+=+=	 ,,^,^  h`B+0d$@l$2Dh,~l h$d0D1Dm	 (D51Dl0De l $ D&$1D$aD+<lC+h J#.:+u	 (E=,^,^,~,>,_, +D,rd@+a@+@+>,^, J,	 @UF H@@  ; D `@l*`@ l* J ,K+u h/g D( g D(@@(	(Q*D"N JF,~, F J+K6JF+U, +`@+Z 
(+W`@+Z 
(	*
D W4J% JF ( Fg.( Fh,~O@F? &+% h Jg h Jh.:,~ ;	* A _*:, ,~ H:`@,~,",~,>\",^ 
;,*+ + ,>	(
D(h\",^,o+.,z,~+R, +X`@7# ,W+.l@ 
:	*P
p J;, ,~a@, ,~ ( ( D,,xa@@,~ 
4Jv+s7J	 T A*y,~  ,+x,A,>\"1,^+.m l4 {,44F{,}+	*Q*U"+7,n H1@@1`BO@1 H5,a+l J; e6 z+l,?1D+0D-	(Q**
+
l ,+.0D+7,45D74F7)D0D+7, +1+8@@Gl@	**E*+@@^,>, +`@+,r, +a@+@@F, 
G J^@@G	*D 
; J:,^l,.1 
(d Jh,?1D+&0D1D+<a`.$	"P"U*#1D.+%,o+7l d`+( * Jg 
h3*g+Y7@G,?,O 
h/
g	"Q*A,8
7@G:G$JGa`+,	+76J^2*G,~,>\"1,^,>\"$	 DQ4,^,9,>\"%,^,~,r+. 
;d,*+ + ,~l`	*U(@=+7 
h Jg+6 z+75Dv+T,>\"1,^,>,>Z" #d$	 DEZ" $,^,^,>\"1,^7H+),>\"+,^,>\"1	"
N,^4Hv,>\"1,^,>\".,^,>\"1,^ 4Hv,W	"P
V  +U,>,>\"1,^ 
  J;, 
G`@(Ja@ +_ ;$
	(Q_,
,>Z",^,>Z",^@@F 
;d,*+ +0,>Z"	 **g,^,>\"1,^,Q 
g,
,>\"2,^ 
h,
,z+r	" "p,>\"2,^+j,>\"3,^,^`@+5`@+8`@ +;a@	(A T*x+>`@+B,~`@+~7JF,~ 
(4Jv+u7`&,~+u@@G@@F,Q	*" 	 
h/
g8
7@G:G$JG,z,~+	,>,> G`h+	`@(Ha@ 	*A		+	 
;%(5H	`j+	 .(&(7@(ah`hp+	:,^,^,~	*E**	4 
M,O4j0j+ = D(	g = D(	c$*6 z+D.
 J,ZJ+ 
E J4	*U
Q"	,$,V5D	6 z+.+	ZJ.
F F D4O@z$,V5D	" $6 z,~ (	#,> ,^`ZJ0H	'+	,~
 	/
 	6
 	>
 	E
 	M
 	T
 	\
	"	l,>\"1,^,>\"I,^ 
=d6@=l,!,>\"1,^	(Q	t7
3O
,> * J *K6@(+	|.*1jY+	wZ ,&7A+I,>\"1	 D 
	},^ 2KZ
H4J
,>\"1,^,>\"M,^ 
H,*+{,	"A
,>\"1,^,>\"N,^7JD+
,>d6@Dl,!,^6@H	(D
+
 
H5J
,>\"1,^,>\"P,^^
H,R[
H4J
,>\"1	 E
,^,>\"Q,^[
H,R6@H+S.21rY+	~Z ,	z6A+W	(@ 
+
F,>\"1,^,>\"\,^,>\"],^Z/$K&$(D	**U
' D
F 
`j+
7 
1J^@@;@@H,M+{ 
F 
,>\",^	"*U*
0,>\"(
C,^`j+
=Z
1J`@@;@@H,M+{+
4
:,>	(Q
8\",^+
-,>\",^+
-4
@,>\",^+
,>	(
A\",^+
LT. LE. EQ. NE. GT. GE. ,>\"1,^,^4*.	**
I,
N,A,>\"1,^+.,
N+. 26@H	c+
T=r
N,>\"1,^	"*
R,>\"a,^,~ 2+
b7@H	c+
b,>\"1,^l ,>\"d	 
Z,^ 
 4,R,>\"2,^,>Z",^ *H$*,	.21r	(

c+
Ud ,~4 
m,.1 
(4J
g Ju0D+
m,_+7aP+
md@dP	 *U*
kldPl@ @" 
u J< 
e J7@'+k6JC+]+)-
w,u 
f6@(	 
Q
t7
(Z
(<
JO@&l@@0,*+ J0,>,,^a@@+	 L	(*

| 
/1J+a@+	?`E+e,>Z",^ 
,7J0+	"*
,>\"i,^,@@06 <+
,`1+	C*e	*E
UJJ0+.eB +	 
l,7+++
|,G,4,
+7,~ J5	*,8 
=,>\"1,^,>\"1,^,!,>\"3,^,>Z"	 
,^a@@+
@@E,~,>\"1,^4 7l,d,3+l,
	(E'4h: 
4J9d*2J+6 
 
( J<d*(Jq1j@@<aB+6,>,>>	 U"/,> 
 J>,
&+5 D;O@D,^,^>,^+9,^,^>,^ 
ej@+<	**A"83J5 D;.$/(5h&d@+.+l7@;+9l,>6@<+id,! ;	*"@6@D+C`j@+H+D`j+H,>\"k,^@@;@@D,^+9,>\"d	 (@I,^,>Z",^ 
5,!,>\"k,^,>Z",^+D	*D"Q4 ',44F7@,&z1F+m1F+n1F+o1F+p1F+q1F+r	"
E(Z1F+s1F+t0F+7l
6 z+`4DR0D+7+R L-+.!$ D6	*Qb $5,mdaB+mdB@`B1+j,
&7+s!$7!$ D6	(DDk,
O7+s!$ D6dB@`B1+v,
G1+s`B,~,
e,~ D$	 

s 
 7
:x:x,~!$@ D6+r7D $(D,~@,3+
.	 *U|/$ _
#`.$/2Nu3Nu+
2Nv+
 DH
 JH
8/5h| R
	"
@
,~7V
	,~3DX
	+
=v
,~.X
/X
+
	"E A
d 
5 J5!$@ D6,
e+v.$/(4hv 
`j@+
 d Dm Hi	 (*
_
#J..$ 
 J5,
H+
 
( l+u i m+u,3,~	(Q 
  D8./$ 3H5+u_5(
%.2$8+
!,~ 
5 >Z8,
7	"D*U*
(7+u<hv.$+
(d6@D+
/7@=+
5C*D,G JD+
26@=+
2C*=	**U
1,G J=lO@= 
D $=,
7+v+u 
D2J=+v+u,>,>,>,>	  
9  d((Hq d&(Fq2F+
Dd*pd$p (2F+
D8>@9

?	 T
B,^,^,^,^+u,^,^,^,^+v6D>7H?,~ 
aj@+
Ld*	*

J2J5+
M 
+u`B ,~.$/(5h
H,~@
,3,~,>,
4h
a 
	"Q 

Sd*2J+
` Dr  
5 HlZ8 af+
[ 6`f+
\+
^ 6	 D*"
[af7,
77+
c.$=h
W r l.$/(+
Q Hl5L
c,^+v,^	"D( 
d 
 l+u@
,3,~,
4h
t 
aj@+
rf
62J5+
r 
`j@+
u	(DD

l5L
o 
 Hl 
+
rlaB ,~2J+
rl@+
u.$/(5h
g4Lv 	(A*U*
u l 
+u6@(+
v7@g+
z:
w+
} @_ v* f _6@(+
	*U*Q"
} 

wPJIZJ
w "O@g+

v J
w7@(ZJ
w7J
v 
Id*RJ
vS>_*>@@g+

v	"

*	 
2&2f2F3F3f3& *.J
/*K	lU("JC*(
C:JJ	(Q*T"
( J
 
/s;7@(PJ
-
w6WXWUZ[aJ`+60JX1JW+6,[C6
+ 
a,`+,u@@1O@&,g,Oa,MZ
	(AD
J&*XJ@",>\"1,^6 t+x,>\"{,^7Jt 
PJI	 Q*D
/l,*+1+[,^ 
g,+
0`j++
`j@+,!,>\"[,^ 
Dd6@D	"U"*l J5,!,
++#7Jt+,>\"1,^@z,!,d !&(&d`BFZcFZ++.7@t+~ +
,>\"1,^"`t,O,Y+.,>l 
0+,>d*} D;,>	(
Q
\"~,^,!,^,Oa,7 t+ 
Dd6@Dl J5,7 t	*P(E*%++,^
Jt+	(@
U*-,,>\"1,^aC%6@t+4,#+M JJ@@t@@t,f+7	*((6 
PJI6(aHh+=/*4JM9*I D $> h,#+M JJ*w1JV+I	**T*>R
JXJL*j 
LS>*>C+L JL,*w	""Q"G1JX+O1JW+,[-*
w++,`	 Q"U*O DX"Pl BPiXL D-*
Q
L*
0_+W 
C%L,	*U( X+M;
L 
J+,`Ri DPH: DPH J D,~ #
`/"J(dPC&a &
D,#+sGJ	(A(*ir[`4Dp *(JbJ
	*"qP
,+.&:1f
s=7D+x,+ /&0&K+v	"T
E"z,~ 
@@K**Z+.,> ,#+,!,^@@; $K 	3H+7@	(U*T D;.$1dY+7D;+z K 
g K 
h K/$K&$ &(FBFZ``	*E
GFZZ
g4Jv(D.$
M J 
N1JOC* J 
N1JOC* J 
O J	 DT,~*,o,~+*aDx+ J+u J_+u*,>,>(D{Z"	 Q"`dA+Al$,^,^ J+u,+,~*,o,~	 $+ *aDx7
_a+u,>7@(d$ 
,^+u@@Dd,E,~+3	 D*U(-aB  L7 0 N7d@+1, l Bn,:+ n4Ju D7 ..(	*U"5 N7 o,:+u o l,>d+,>,>,>.$/(4hC `n@	(DP>+;,>,
+ @@D,^aB+C O@D ND,^,^,^,~U$ D6	(E"U"F@@p@
 Jk`B 7D>+P ?l,e+L+u+u > ?d,e+P	*(U*O+u+ul,3+v 
k,e+X1+u 
6 Jp 
l Jp 
o Jo Lq	"(U*WU$ D6d,3+v 
k,e+v1+u7@p+b 
63*p+b 
p J6	*U"U
` 
p Jl 
o Jo 
q4Ju4Lv  l 
6+u,
4h0aB+ Ln Fi	 P@ h d&2F+ 
,>Z08
3J0+ 0 F
5*qh6/i6	 U Qq/F
46}266+},
+	,>,>7J1+z ,
77+z,^,^	(y+},^,^ V6 Ln Do x Fl<.,5hl+,^ 
0+,^ 
n	*@ i+ `n@`n+  F
5*h6/i6/F
464V	**@
366+5he+0,+7N1+,> 
d,@3L+,^+	"*@,^ V6 
DoHl+,+
d,@2L+,^ 
	( ( Hl `n@+)+um@+&l an@+" 
 Hl+)5Vu 
0d*@	 QQ($d.@2N+u+) 
 Hl `n@+)@@6+ 
0+u /*/0N3n/	(Q*",+d+ /1N+ N/+4Lv3J0+u 0/
+u,> 6,	 "5  ,^6@:x,~,G`@+: 
+!,>\"1,^,>\"	 QD=,^+9,G6J3JH,~ JH`B@+E,>\"[,^+9,>\"	 F,^,~*
x J0 
x,>C,K,> 
+0,^,^,~7J,~ Jj	*D""N*
; Jj 
1d6@1l Jk`P+^`@,, +Z 
jl@@k,*	**Q*W+ JkaB 
 k+m 
j4Je J;, +ea@+b,+T, +a	*U"_ 
^ ]+m 
^,+ 
jl,*,~ +m 
jl,*,~7	*Q*Qh+ Dj Ng 
j/
 J;, +X 
j g Ngd6@1l,,>Z"	 E(*p,^,>;,> ^G@@F@@C 
gd@(L Lk * JG,Q,>g,>G 
h	(T(@y/
g8
$JG:C,z1+w C  
k,H,H&
.
 L *
=r~	*(7C+ 
 ,
.(=r,>Z",^ G,^,^;7@A+,>Z"	  P
,^,> 
A,
,>\"2,^ 
B,
,^,>Z",^,
+	"U A"7+u $D,?+u6@17@#,~,>\",^ ,k,,>\"1	"TU",^@@1 
# J;@@#,~aB+  
0+'*}+'7@9+&,> $9`B	*(A#,
7+%,^+5,^2J93J5+5`B+C,> ,,u1+9,^C,8	 
U,,>d*@&*,>4J,,,^3*+3j+1J+/*1J */4,@	*
T*4*
.+],>\",^,~ 
.5Lv+]7 t+< ,3L0+ ++ 
0	" =0L+$,>\"&,^++0*0jg
Z, J.,~,>,>,> 	 "Ed&pd*(Jq$*`f+(G)4HM.(,> ,^=jI,^,^	 U U*N,^,~f)@@$@@%,T,T0Dd,S+R+@4,V4D 
* Jn0D	""V1D+0D1D.+0D1D+ 
1J+o0J1J+q1J+
0J2	"D_1J"+"0J21J"+0*0j+d/*+teB+sd d,;0D+s** g2F*+kO
l,k,V+@n2F++s@
l,k,V+@n	(E(o7@$l`@+s,~6@$+sl` +s0Jl @,~A*``+{ $`h+s	 P @(w(H. H$ %$(. H%,~ ,:| .!$dN0<4N(N=l}	 P
E
!,*dI D$l,~a`+ 
$ %0n+s ,;d`@ ,?7
H(N	 P(A"dN
04N=
a`@l`+s 
%&*4Jh*Fh,6
3
3
 JI J$	"U lR`|,~m`a`+sa@+se`@7
$"
$ LH@@$@@%d `,~a`@	"l c@+a`7
$ 
%``@"j e,^x,~ 5$""` *,]dd+%	" "ad+5 &3$?+.2$:9. (%$).@@h6D,5 *,]"$.h	 * 
 
%*,84Lv8$+,~"( .(+@?+1@G.9H/,>,>A	(A
3,&,^,B,^&$:h,>4D7,5,^.*X+]:s\-6-Qa^'&wka#SD!y	 P;! 0Y{z|i,SU<c\z8]T=8)9Lf32d ?3$ < ?E-E+alx(L *)J	*(D,]5LC,~ .,>\",,^ 
? +K *)J,+H,>\",	 PL,^,~ J%". 
% *)*.*,]8.O,~Z
1L+,Z
1L	( QU+Z)Jn(L'+,>4JX,U,^.*+]5*\,>\"/,^#j+U	 ],> ,^,~,>,>Z" #dd$Z" !1+f :x	 
Pf,^,^,~,`,~,~ 
+N,G ~ D4,> " !1+f,^	**Qn,6 z,~1D+k6@z2Dz+s@@z+k@@z,>\"1,^,>\"/	 Dw,^,,>\",,^,>\"1,^,~6 z,~,> e	"PU,^+,6 z,~,> ,^++@4,V5Dv $,~,>\"	 A
,^@fz,~ 4+R,>\"2,^ 4Z
+R 4+R+E@@]	"Q @  +E7Hf+vP'5(v3(6,~,>\"1,^,>\"6,^ H8	" T ,>\"1,^&8,>\"8,^,) 8*h,>\"1,^,~	*U*U*!@.@.@.@@.@@@0@.@3@6@.@.@@@C+ 	"** 
( Jc  ,O+T Jcf9+!C<^,C<a,+M,>\"9,^	"**2,~,
,>Z",^ 
c+
,,>Z",^ 
c+f9 (	*QU
; 
:O@z e,T0D+@1D+7 D+<7 z+A+7D,kO@z,V	(D*C4DI1( 9A,>\";,^,>\"1,^@D @ D4O@z Hi	(TLC<i,+/C<e,.+,>,>@  	C",
,^,^4Vu,~,>	(
T\"1,^,>\"@,^,g+.,>\"K,^,>\"1,^ U @],~P@$mAmA.n@Nd@do@h@$cAA	 ((d('+'G$,G$)X@$mAmA$n@Nh@do(1H+$)PAmA$n@Nl@`BD	 ("l(G,G)+76@(+u,> 6(16+x3vo+z 
,x*
	"EE u16(+xZ
n0v(+x+y,^,~,^+u,^+u,o+]a,~7@(	(}+e,>,> (D{Z"Q"`d`dA+Al$,^,^,~	*"
,o+m,~,~
(4n*o0j+p`l+`*r0J+*o&*	"A0L+,~,>\"r,^+.,>\"v,^+.d6@@l7H?	"E",~@@?3H=,~ H5,8 
=,>\"1,^,>\"z,^ 
5,!	"E ,>\"3,^,>\"1,^,~Z,/$/+4$* ,d$(Dq0d(U(+* $D,+,kD,,~
	"*(4 
~a`+:6@4+: 
| J,ZJ+a`7
E 
 J4O@z,Td &	*D< }4Dv0$0d+?+E1D/+E1D+E0d=+T0$0h0$ 0d-+V	 D(U"E/$`B+Lahp+ID+@4+=l F2 
}@@2*,4 
~D+@4+=	**U M*
5 J$!*@ J6,
e,~ JA 
$J5+u,f-*+T	"AV1D+T0D1D+c0D1D+c1D:z@de,~hB+T	* 
gO@z,TaB,~5Dg7 z+gd,~,> ,^,~ 
~**Z*r	*T(EoZJ 
 JZ"Z$ 2Z"Z$24yab+r\" <@ 	"@*x<+4\" " U$@+ + +q,>,> 
~**Z"Z$ 	"D"U2Z"Z$"24)`b+)`b+	Z"ZBZ"Z$$24)ab+	 U"*	,>,> 
 L 
 L
1L+#1L+#1L+L+

1L	(D"(+1L+1L+ 1L+!1L+!1L+ .NL
1L+	"T"0L+L+!
1L+!1L+!1L++L ,L ,L	*@ " 
*,\",^,^ <@ <,^,^+4\" " U$	 *P*+@+ + +lO@z@@$@@%f)+@40D1D+0,V4D70$0	"
*30d=+5h0$ 0d-+dB+F,>G,>,>F,>G,>;,>5,>1,>g,>h	(E**<,>&,>,>#d,;,+l+7,^#,^,^&,^h,^g,^1,^5,^;,^G	(UU*D,^F,^,^G+u,;+u,>,>0J=+K C,r@@r+M C,q@@q	 M,> 
(d*@,Q,^l*,^,^,~,>,^C,\,>d*@&*,>4J	(U(*U,S,^3*+3j+1J+	/*1J *4,]*
.+` 
.+`0*	 ^0jg
Z, J.,~J,~ }@( ,
4Jv0*0j
+f/*+l	"
@f1*+h1j+k1J+
0J+7 
+l/*$(0.((`dp+c,~ }	 *D"o0(0h+c,>`B+y7@>+u[>6@+v,^+al F2 
}	*E w@@2*,4 
~ $6@2+
(DC(2G,^,~ }4D0$0d
+	"D* `hp+}+7d`+7 $2De+v+7e`+ $d+u $d+u	"T"U
d@@1@@^,45F}+ e0D5D7,am 	*E
,n H1@@1`BO@1 H5dB,~,a,~7@^ L^ J;``+N@@B,>	*(E", +,^l1,^ e4DN0D-+ l ,,T+0D+Cd	*"@@G@@F * JG, +-l,.1 
(`@+V4*)/* JB0D+7	"Q(Q(*d@,j+@4,V0D+C,.+
( JA e0D+7,.+ 
( Hi	(T*T*3 ;   JB3*A+H2j+H7`A+H i 
; e0D+7+@4,V6@B	* *;+C4Du0D1D+u1D+u0D1D7+7dB+u,_+7+u4DN	 AD0D1D+N0D1D+N0D.1D+N0D1D1+7`@+NdB+N	*Q
"L,_+7+N 
;d@6J#1+g ed`+u.
Bd@.
Ba@ +u 
;	*D(U"U B F]+u J,Q 
/
h5j* 
/
g4**$
G.jG e0D+) h	(Q]/g8$TG+%l,-,~4F7dPR&z1Fl1Fl1Fl	 f1Fl1Fld@1Fl 1Fl1Fl1Fl1Fl1Fl@	 "A n1FleP+74Ds1D+s0D+7+`aP
?l+u,Gd  
01j	 Dw,~d*@&* L04J|&*0,0l,~+yl  
00L1LG	"( `B+ 
d*@&* L/+4J&*1,3j+,~2,:~,~ 
	 Td*@&* L/+,G 
07 
,>,> d&(Fq$& 
 L/	 D(D"<3,+2l+
<l4L3,+3l
+3,+3l+1L	*"++:},^,^,~4J$1J?+'0*=+)0*+",>\",^	 !.* ,> ,^,~,>\",^,~,>\",^,~,>	 **Z",^,>,,^,>Z",^,~,n7@+O,n H5`B	(T
2+!$@ D6,
e+[(0DZ+|+u,>\"1,^,>\",^	(@ ";,},>\"1,^,>\",^,>\"1,^+.,>\"1	 @ DC,^,>\",^,>\"1,^+v,>\"1,^,>\"'	""L,^,j,>\"1,^+.,>\"+,^,j+/,>\"1,^	" DT,>\".,^+l,>\"1,^+u,>\"1,^,>\"4	"" ],^,9,>\"5,^+.,>\"8,^+.,>\":,^ 	(@ U(e,i,>\";,^,>\"1,^6@9+.,j+/,m+.,>\">	 Qn,^ 
5,'a@+A,>\"C,^,~,>\"F,^,}+.	"" v,>\"H,^ 
5,!+*,>\"M,^+.,>\"Q,^,j	(A+/,>\"T,^+.,>\"V,^+.,>\"Y,^,>\"]	 DA,^+.,>\"^,^+.,>\"c,^+.,>\"f,^	*" ,5,,>\"g,^,~,>\"j,^ 
Dd6@Dl,!,>	("\"k,^+.,>\"m,^+.,>\"o,^+.,>\"s	 (@ !,^,~,>\"v,^,j+.,>\"1,^,>\"{,^,j	(@ Q)+.,>\"1,^,>\"~,^,j+.,>\",^+.,>	( D2\",^ 
5,!,>\",^+.,>\"1,^,>\"	"" :,^,9,>\",^+.,>\"	,^+D,>\",^+.	"QC,>\"1,^,>\",^ 
5,':
B,>\"1,^,,>	(K\"3,^+.,>\",^+,>\"1,^,>\",^	*(A"T 
5,',>\",^,o+.,>\",^ ,5,,>\"	"" \,^+.,>\" ,^+.,>\"%,^+.,>\"1,^,>	(e\"),^+.,>\",,^+.,>\"1,^,>\"0,^	(@ Dm+.,>\"1,^,>\"3,^+.,>\"1,^,>\"7	"v,^+.,>\"1,^,>\"?,^+.,>\"D,^+
,>	( ~\"H,^+,>\"K,^+8,>\"O,^+,>Z"	 A,^,>\"R,^+
,>\"1,^,>\"V,^+.,>\"Y	 ,^ ,i,>\"1,^+.,>\"\,^ ,i,>\"_  ,^,>\"1,^+.
"&)- :,> =(R"z H`HH((H
	5*U*U&mmm m0m8mHmXm`mpmxnnnn n0n@nP	5/nXnhnp@u
STARTING FORTRAN DDT+.GJQJ(R@~`O\J	 7@|+pC(+SYS:UDDT.EXE(C+!To return to FORDDT, type "%FD	 @DT<ESC>G"%FDTPOV Program overlayed by  ***[ Program suspended from FORDD	  HTOpen section:  ]in extended section,>\"K,^+rin high segment	 AQ,>\"O,^+rin low segment at  an unknown location,>\"V	 @(Y,^+ +  in _8KK|@KKigSC$\@S@
l* JM+@
l*	*@DbGJM+'-SYS:Hg%FDTEOH Error openin	 jg help file%FDTNHF Cannot find help file; I'm sorry I can't help you%FDTCAB Ca	 P(snnot allocate buffer for help fileHLP2F\+l+em}RaJ+/+2<	qG	*P"E {3d#++.@(c     H,k,> ~ D4,^,V,j+'<%Char	 "acter string must begin with single quote,>\",^+.H04D.+	 
H 	FORMAT: ,^+r'<R.TRUE..FALSE.,>\"1,^	(P+	=  H	 ,H>?FDTDTO Dimension table overflow.h6hDh@h,^	(+P?FDTMLD  Multi-level array definition not allowed.:%FDTABX  compiled 	 &array bounds exceededNo ,>\"(,^+JArray specificationsUSED		 .	ARRAY	DIMENSIONS,^+[:,] - F10 ORIGINATED,>\"3	" 7,^+v  DP,>\"8,^+w  CH,>\";,^+y  SP,>\">	 @ U ?,^+y  FORMAL,>\"A,^+z,	+.,$:	 No pause r	 Hequests,>\"1,^,>\"G,^+
FPause:  Located in:  Afte	  @Pr:  Typing Group: ,>\"1,^+
Pause: ON ERROR,>\"1	 AY,^,>\"U,^+
 Condition: IF  
(,+
- . 
(,+
	 @(aNo group specificationsGROUP ,
r,>\"1,^ * JE++l	*D"j 
<+?	 IS GLOBALl
+]l
+]l
+]l
+]l
+]l
 	(D@ r+]l
+]l
+]=g(Agw]!+R6$JPauseat,>\"w,^+<L.J L+;, .	&T*-8L,^+@@@ n+uv /1N+}+t /1N	*

++`@+*+.  equivalent to  in (COMMON)aB 
,+,>	(A\"2,^+Formal parameter O@+/.*+4.*+4	" *+4MAIN PROGRAML#,>\",^+<statement ,>\""	" @%,^++line JG'+IH<+iK,PMf9 ",>\",	".,^+T-%FDTCHI Characters ignored: "?FDTIAT Illegal argument type = |	 6Arguments are:. 	= .a	LABELH%FDTECI Buffer full excess characters ig	 @?nored,?FDTIWI IOLST call currently in progress:
  Cannot process ACCEPT or 	 GTYPE until current IOLST is completed.%FDTIWI IOLST call in progress at this breakp	 Point:
  Will not be able to process ACCEPT or TYPE until IOLST is completed.%Tryi	 Xng to write to illegal address; wrong mode???,>\"X,^+.%Trying to	 Aa write in high segment; wrong mode???,>\"`,^+.%Trying to read from	 i illegal address; wrong mode???,>\"g,^+.<0*0j+,~	 r0%Improper byte pointer; wrong mode?%Null character string; Wrong type???	 nz[Implicit OPEN H,H(3H20Program name: H?FDTJSE HH	8U""Pd+@O,T+QHrHqO@+V.*+[.*+[ *+[ *+l	 Q(D
8+y5J/ *+/ Hi ;  5J4 
+4H(1L++^	 *T<NUL><DEL>!$ D6,
O+4+5,m,j+/?FDTIAF Illegal argument 	 format Type H for help?FDTNLS Long symbols truncated - Program not compiled w	 %ith DEBUG switch ?FDTIAF Substring bounds out of range ?FDTIPN Illegal program n	 -ame?FDTMSN More subscripts needed?FDTBOI Bad octal input ?FDTLGU  lower sub	 6script .GE. upper%FDTNST Not 'START'ed?FDTNFV  is not a FORTRAN variable	  @>?FDTBDF  is undefined,>\"?,^+s is multiply defined?FDTINV In	 Gvalid value ?FDTNFS Cannot find FORTRAN start address for ?FDTPRO Too many PAU	 OSE requests?FDTCSH Cannot 'START' here?FDTNDT DDT not loaded?FDTCFO Core fi	 Xle overflow?FDTFCX Format capacity exceeded please re-type?FDTICC Compare of t	 `wo constants is not allowed?FDTIGN Invalid group number?FDTLNF  is not a forma	 it statement?FDTNSP  no such PAUSE?FDTCCN Cannot continue?FDTNPH Can't insert	 q a PAUSE here%FDTNSL No symbols loaded?FDTDNA Double precision comparisons not	 z allowed?FDTTMS Too many subscripts?FDTSER Subscript error?FDTNAL Not allowed	 ?FDTNUD  not a user defined array?FDTSTL  size too large%FDTSCA Superse	 des compiled array dimension?FDTNAR Not after a re-enter%FDTXPA Attempt to exceed	  program area with ?FDTPAR Parentheses required?FDTFNR  is a formal and may not 	 be re-defined%FDTNAA  is not an array%FDTSPO Variable is single precision onl	 $y?FDTNGF Cannot GOTO a FORMAT statement?FDTITM Illegal TYPE modifier - S?FDTF	 -NI Formal not initialized?FDTRGR Recursive group reference?FDTIRS Illegal rang	 5e specification?FDTMCD Compile program with the DEBUG switch to type a format st	 >atement?FDTACA ACCEPTing character variable with mode A or R?FDTIER Internal FOR	 FDDT error - 1?FDTIER Internal FORDDT error - 2?FDTIER Internal FORDDT error - 5	 O?FDTIER Internal FORDDT error - 6?FDTIER Internal FORDDT error - 7?FDTIER Interna	 Wl FORDDT error - 8?FDTURC Unrecognized command ?FDTCNU The command  is not un	 `ique>>Program name as specified in PROGRAM statementcommand argumentsACCEP	 hTCHARACTERCONTINUEDDTDIMENSIONDOUBLEGOTOGROUPHELPLOCATEMODE qNEXTOPENPAUSEREMOVESTARTSTOPSTRACETYPEWHAT"~x@
?	D"Pnu'r%u3Hdu3Iu3Iu3JeXpu3Ju	D"u3K"u3Knu3L'u3L6u3M%%{u3\;u3]?X
'	D"()u4}8*?u5%A+}Xcw',c-	D/0aY"]Pu77Y);x25pM\Grz9y	D"R+G`Bwgb2bb9&
7})D;8H)ob}	)vw}PQ-R,A[u#gcR	b.&.	:Jo):K*":[w'	D ;w$;#G?(	G@M	PD5Ax\1ZP@,J	D"-{K.	L..N
9GR:f#[R:f4.P	DD8m~
G8[S G>Kt,P|KG?#&,~+
GD7S P(.T		"HFm^P- HXioHY}OHYI&?! AJ2/&JPpH[JQC	D"J[;=}J[<{Kth]K}&\Kh]K.\#l!
Ks	Te
?	D"KsKD=kKDHjKo%!Ko& Ko0!JLgZ	"JLzU JL  JL=AKQ~yKQ~)%lT
+Kiz9
/Kiz:
2Kiz:
5	 Kjg
7RL@oLNGFL[ @RL_+@RL_wLmgL)M%E
M+2	D"M9IM**OPR	D")TY]M>HU)OC+T2vMR/QuMR/Quc;
Dd@O(g^	P^6]	kP*R]|?g^M\>R^PbDPb'7Pb>hYg	@"^g
k~
&-(k~r	D"&.%&/{&0
a_rj<a_rja_{&a_{&Ra`Gl(	D lhl a`=ga`GARa`^.a`c"Ll?a`eCG'1Y	D"l')al$h4al$i3al$jal$jal$nl')1l'*7l'*	Dl'+~l'+ l'-ml'3
al'}l'9sd	(!d#ReD$?en	-g!6P
GP?:PM7gsBt?~P>-{-~//0	"0
Rw-,H
x#^"pq0z"prTz"prQz"ps;	D aGm	C9N]}
8H}}*2Pa_oCOgU*bnY1R	D"	Kw(|	Kw)	Kw)	Kw*	Kw*		Kw+	Kw+	Kw,	Kw,	D"	Kw-Y1W	Kw<	Kw="	Kw=%	Kw>*	Kw>/	Kw?1	Kw@7	D"	Kw@>Y2Y	KwP@	KwQC	KwQM	KwRP	KwRX	KwS]	KwS`	D"	KwTb	KwTg	KwUiY2`	Kwdn	Kwer	KwewY3cY3l	D"Y4sY4vY5z]a^}T^$H	K{	K{4ub^O[A@
`RJo&SuHA7$SXW}uS]
Hr%P+QH	D"oga	Rxr	RxvuGmmuGnj	Rxsc&)32,	D 	XQ2`	WJ,65.R6MG(S6`PR	f	f0	f3	D	f6	f.	f/SoJm	e~]^	xLkf?	~*Pf4	"
cM#S,,@IIf}nf}oH
& 
e	D"Kz
gKz
oKz
rKz
tKz
u
&#
GKzy
HKzy
(Kz{
L	D"Kz|
MK{
OK{
&
&%
K{I
!K{M
%K|McLJw
g
	D
g
`j
21yS@$'@
B-rD^	sD^
'Cl	Dgg5?d?`S<S<!S<o~	(7tM(Ag(Di	D"(Di(Ds(T[<(V#@(bAI(bM:
MhS(yG(yKd	D"c):Q)	))	+ Bm%h
& C+h
. C)/ C*1	Dh
5
]7 Cf8Ph	ANy	m
#	m[% W[% XA	D"hTHO<hX? [U?h\: _:RuL
$uZI ue]"	@"vx!n!|K@(U']!|:Z!|:U!|;W(T(T4	D"(TGQ(T0e
NtKh(TS{S(TV(TVwO(T](Tbx/(Tlm	D"(TtET(TtEV(TtJT(Tvjg(U
9?(U
:E(U
:I(U
;L(U	(XwBS)K+luK+l{9@K+m,Sl
[S,mg@
aSg!
b:A	D.R*,@
b7MA";|P
dM
h	
N
h	
T
h		0Bov
N"M		'	@""M		c0Cl#
MP
h0D@	g0D7b	0D?7	
h)		
j%xK1y? 	 K1yBjK1z@
k*B)1T6B1TOsS2'; >Aj<S:#u%`	D E$@uE$>[zE$\p|E$u;PQsI$QsI9*PSX[	"SXh[g H%u
@&IT&QZ&RVtqQWtqRY^'t4S^(h	D"^|Yg^|Yp^|Zs^|^f^|{Kc_<F
/`OSatj}&dS;	D"
9z8
9{=
9{ILw]:-w]_g,w]h.C
KyI+w^g,	D{T
2["&#K~PPJP	"T#+Y<T#,B

a

cB
\T#XMt#d6
`T#j*	D +ie
Q#j2
W#mc
^%?x`PMkP,E1	D"
(X3z
,G,H(Yl(Y5C
(a);	D (a*C(a0:(aq
)KT),X3*~Z	q*~ZYo*~ZZp,4eI	D",57C	D"BeVi(H
8DVA
8DVA
8QmY8Qmg8Yq1T:40`	D"PT@.?QA#@-AOb]AW7RAm;'AoY(As[`7~	"ABGzP}RwqqXSLyt/S
d/Wg4M{00TXVYE,BSYTvwfYU!Mwt052O]5t	@ @?&qP;'oP1@@Ll[eV~HB(PAk1P@U	D"1PAZA-e1PAm1PBw1PB~1PCA}1PC1PDb	D"l.tl/;AETl/W[Mn`2g8p,4?PTPg@Mq @[R	D 2xTUATUBr:^3=
r:^Sr:F>r:J?rWf`U3!`	D"U3"ss^;c[s^<[`20JN20;iyu^HHa9:a9<	@a:Gv(c-4P
P
M
9	HTM
j}HVHWtQC&	D"z]@t{+HC{+I$%9$&2$&($'($'5$(7	@$(/$+RS
.-j{-B[
[S+	D"PX3@	KR4D4546!ZZP4<4_.
qg9&rOl	D"'$0
{44'%6'%7
}9.
}I*
}S)
Y>#	u
nK	D"
KQ@GOSg?-%>DlmvKyzF<iR/;!n5	D!n6!nQ?!nRCPB/#.l&eQ&fS&f\&gR	D"&h]/$-G/$IK/$IM"[#2W,GE2`V%0m"7"%	D"7")"Y507"<2lug 2mA=4EuUq4EuVr4Ev|n5(a:j	D"5(sOM*PYr*PZ5)z5)55):U5),fh5)C;4vO}	D"
75!v5&u5*[
5$K3	D"5$95$9G5$:5$;$5$;5~Q5~W5Bg9a
zKBG	D"9c
}9c
K6r_KD.9g
wpX4
vK}:;pZIK!;K	D"pZYopZZ8L$ aM.~
HwKyEM/a@?MP[MPI+<	D"MPJ|MPJ
MPJ
MPJ	
MPJzMPSg8MPUMDMPUMJyD"9N[4=NP3	O5H-P^AFPwbc
Bei	D"V?QYkV?QZzV?QZV?Qg'VG(iVG(iVG(j
|}i
m}j
r	D"}kVG)=}k
}l	}l"V\<V]qV`tsW|jUW@W2BW.4k:g$:g5	D":0-%	-Y\2m/Y\2n4	
 
	D"*:0-!:0.N:0.:0/!:0/C:00:00V	D":01)Y\m3Y\o.6Y\t9:Y\t:9Y\t8Y\{
	hUY]1"	DY]4
Y]4
Y]]
$UY].P @#Ze
XPY	PYPZPZP[c)=E=wg;--hFlF	m	D"F	mF
nF
n;--h;-.i;-.i;-/j;-/j;-0k	D";-0k;-1lew;jfYvdF8Vzf[ cf\1dfgaF?y$	D"F?y#F?z#F?z"F?{"F?{!f"
rjo!s;j$U;j&Z	;j'\Ul)\;m]Ulr
Ulr9UlrVUlrY[d2xlW/Qy	D lW/Qz^~kdemWQ^hmXLUmm[@Umm6Gmnj
msN0;ny	D";o|m~nS/m;um0mAmAmBmB~a	D~a~bmOjMo+q@@)mo"bfgd	h4o#E[:<%H	D"<%KqQeEkRHqR
<*im0h!<*j<*k	D<*mb<*n|rhUrhs m2R<*oQrnGWm2rC<*pN	D"<*q[<*smm3yqm4_<*tur/7U<*t]<*vfrDm9	D"<*vsrT
C<*yV?u?v?.ZJCn'$yyVl(	"VKP@A,+	l6m6<d7+}YRy
Auh	wAui
F	D"Auj
Auj
Auk
-Auk
FRy
R{
Av>
R{	~R|
U	D"Mf
bMg
bR|
cR}	|8(i<
78)
:84E<
=84w
@P: 	F=S[:Hy/wCAP J\R+
Ckk+P"owCiggJ+e4P		P	P2i@P2iON36ON@IONK]OOwI(O/L`	@ Oq+`r%q[Qgg[l{vO[mg\.g\)7r\)8*`r'I:g\2g4\B:/O9RHOOqh OOrc WIMH@r%xnHr%xcHA7$SXWxH@r%x8 (