Google
 

Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - fortran/system/forddt.rel
There are 45 other files named forddt.rel in the archive. Click here to see a list.
 	~*(AgigI(0(AgH/?*2	"U*T + -
|,
9+!-
|,
9+ ,^O@1+-
|,
9,>\"
,^,>	(
\"
,^,>\"
,^ *2 J*-<,
77 1,t,
>Z
	*T*U" Jz 
 JzZ*
 * J2 
kRJk,IO@y 
,@@XJ t	 U"
dl@  X,
)+ tl @t!*Z J 
: J9Z* J{Z
k5J(	*Q(U("6@+( 
 Jl ,
R,@d(@@H@H,XZ{A@t@"7 S	*U*@*,Z 
3,^,^,>\"
,^,,<4F( F5D7$Se l   6R 	 ; O*(J}(D5D< 2  f3F+E2F+C:Q*d?5RD	 D:1RY /$`.6 X+C\G"(1G>vJ7I I&l[YI?,+OJ~\O?%pQf	 *LY>[>$P]F@_B-`a.9 em}RgR-gR~gSrigPo"@`r~ss	*U*U*Uk)	z
	DybTc]6TfaZ
k	*A *]4J77@y+ 
  , +,  +(!*Z J,Z 
 Jl  	"U* f!$@ D,
R+MXJk @t,I,
3-*@<+4 q,+B1 
(,	*A*D*n+4,D++ 1Z
kZk4D7 J ,!*gp3K
!,D D,7@y+,	**U*w+,I!*Z J,4 },{5D4F, H,X+( +| 	"Dad+ p3B+
 "B,>!"\$4VQ"@4V' Cp	 @* Ep,^ "B,>\",^,>\"
,^ $p D+5 Z
k	*U*
5J+ 
kRJk@@-@@-,
3-* <-,,{5F4D0D+,{5D	(U*4F)D0D+<+(3<+ 
*
z4J 2Jz+"Z
*
z4J
6	(*!3Jz,~,>\"
,^,>\",^+,7@{ J{3J{+, J{,>	(A"*\",^,>,>\",^,>\"
,^7J	 
;Z
+O6@y	**U*2+H ^Z6@y+K -
|,
9 
3 J	 J|XJkO@y6@|+= 
 J	"A";l ,
R1,X,>Z"  ,^,>\",^Z
|,O,>\"	"D
U"C,^ 
,#,>\",^t+( 
k	*DL4J 
; */A* J|+=7@+S2j+!,>\"$,^,>\"%	 Q(A*T,^l  ,
m+S1+[ J-,",>\"&,^ 
-,{7@
+_,>	( "]\"&,^ 

,#,>\"
,^,~4 [l@,+B1+ZJ-	*U*U e@@-6 S+,{5D4F3F'+6 S+3F'+2F(+d l,l	*T* n, J6 S+@@dB+(5Dr,0D+,{0D+1FM+~	"U*v1FI +~1F\ +}1Fi +}1F}+|1Fy +|+:::::l	*E**,l, JdB+* 
, J-7
-,l1 
(4**
-6 S+ J,{	*U*"5D 
4F2F'+6 S+b,?5J
0*0j+bQ
X
l 	*Q*,+r,
?+(@**
- J+
 v`d+r6@+r (3D.*+e	 (A
l`+_ J *,~,-1L,~+
5!*Z JZ
k4J7	*U U*!6J	+& *.3J
!+
4 
,l1 
(4*+
 
	 J,I,
3-*+	 P(U*),> "@ BT <S,7`+J @T & / HO+0 0 HO\$M "N	*E A
2+9XBN 0+B N\%T &?4=@B\#T+4 Nlh	"E:d( HN<fE1f+/+.@B\#T\"n N	+ +H N	 D"(C	+ \"17\"4\"7\"n <S,,^+(\":\"n	 @K,^+(FORDDT?{H.H?xT	(QT4 _l@,+B+  $Z1H(+[.$1d+W+j (3H.*.*	 *Q*]@@@@@@+(2F?++
=4 @@;7@y+l,+B+$ J.`B	**Qe,?,
)+  
v[
(aJ+ $6 S+4D1D+1D+0D+	*A"*n,{4F*@1Jm0@ J-4Dt1D+t0D++n 
-6@u+v@@#+y	 AD"v`p@a`+y0J1J:u1J+71J+E1J+?1J+
1J+kd0@	"U(1J+1J+,1J+/1J+11J+@+ 
. Ju 
" J#d ,>	*E
U*,+B+,^2H+Ba@ + "2d#*# D" 
+2*u*
u J.	(A"P*,
)+  
v[
(aJ+ $1D+n4D+l0 &,% 
:*
.,O	*PU(*
. K. J::.aph`@1+$l,> 
@ J 
.,O,
m+ 1	(U(U*!+2,^ J 
; K.:.7@u+'`p+A3du++(>
.@@S@@ue@	"U
)`ph>
.,Y+(,?+l0 &`@ &,%+l0 &,%+l0`	(T*@*2,0D+" 
B J9 &,% 
: J9+`p@m0 l0,>,>,+B	*D"D(:+,^,^ ( D:ap@+ 
( J;+l0+Il0 . D^l,	"T*A(C0D+J,*,T+l0 
C J;7@u+Id0@d,6 S+ ,@@:	"A" KdB+d 
C`p@* C,*1D0+bdB+DD`n`+N1l`@	(U(T*T+Uap@+g7@:+W J;+Y J:aB+LZLS,Zap+ :4D ;	 QT"\(D)D(H5H_)D|+](Ddfl D: F;+mB+Nd+Qd0	*U"A
e 
C J: J;+ZLS7@u,Zap+$HJ(J+l0,6 S+	"D"(m0D+N $"f F  *,S 
,O,*0D+y,*1D+y	*U D"v/ 
D Jz,,Z/+~` 
,@1L,Od=hs * JS *	(U A*~<(J+~ #/"4h 
 
($*   
L=j 
D Jz,6 S	*U U +,Z+( 
7@#+(+(l0@*6 S+,6 S+@l *`p@	 T"D" *
1,6 S+0D+``@++1D+0D+h @+/$	(A**4$-0$+-)LG<J,7 S+ap@+ L: N;+ N:,Ze`@	*U*P( +L@:L@;:;7@;::+,
)+B,I+( 
  
P,*0D1D	*QE)+' D Fz,0D5XJ-1n0+Qd4D,,*0D1D1,	(A"U15D30H+" 0D+,,*1D+/+47@y+@@Sl l @@z``	 E*Q*:m d ,=d ,^+(@@u@@"@@#,+C1+V,I+! R ,	(@" B,",>\"R,^
XFF1d +!,> ,^+E ((,>\"
	 D"K,^*S0J+d 
 J^*{.J,>,
)+G,^ $(+
5,>Z"	 @"A
S,^ 

 
(,~1D+(eB+Y,?m Q Jw 
(*
w J
`p	 U
\!l,
aP+r $"4Hch  *,S 
	(A(@d,Q`P@+g0f &,h+r,$,>\"T,^` 
(T1H,Q	 T m*1J,,=fj,>\"T,^,~aP+t,$ &,aP+z	*u,$ 
 
 J; 
 &`@ &,aP +~,$ 
 
 J; 
 &	(Q
(~,aP+,$ 4,BaP+,$ 4,BaP@+,R,BaP+		*
,$,5aP@+	,R,5aP+,$,>\"U,^(J,5aP@+	(E" ,R(J,5aP+,$5*,>\"U,^+,>\"V,^aP	*(Q*++7,>\"
,^7@u+!`P+:

`@:

3ju+Y+! 

	*A D :"3d#+Y`p[7 S+=,~eP+W,>\"Z,^ 
w,~ Ju	*"E"( 
" J#d ,>,+C+,^2H+Bd@+X2*u*
u1D+l 	"U U(1aP+Y "2d#*# D"+Y``0D+<,Z+86 S++0*0j	(QU(9+b0D5D,D,^x+!a`+(,^x4D!+ J
@@
,w 

<
 J#	*A*UB.

 Ju 

,~dB+J7H(O+J3H+J H  H,>,a,^ (	"P*U*J(H(nHS+> HS,>$*.
Z,>r,>r,>z,>S JrZJr 
[ Jz,=,^S	*@*ES,^z,^r,^r,^ ((H(jS HS+!+Cl ,
R+B_
QJ.*XJ	*D"[ 
 J,~^_`abcd	(D"defghijklm	"D"lnopqrstu	(D"uvwxyz{|}~	"D"}	(D"	

	&"(a`]Z
Z(4DXD,~,d,>\"[,^+([XJ@@(	("AQJ,~d
@@uZ&Z
4J Z(3D+ Z
(+6((el`h	"*l +
5,>,> 
l,
m+0+0,^,^  hd$@G_2Dh,~	 @"(l h$_d0D1Dm0De l $` Dx$`5D1Z:h+
5,^	 
Q
0,^,~lZ+h Ju+/,>,S,+8,fd@+$a@+4+,^	(A*9, J,XH@@  `@l$`@ l$ D QJ ,@+
5 -/-SD(	(E
T"A - D( J
,~, 
XJ+@6J
+I,+P`@+O[
(+K`@	(Q
J+OZ
(4Jz J
 ( F-[(.- F-,~O@
? x+z h J- h J-	 T ARZ:h,~ *,,~ H`@,~,,~,>\"a,^ 
,
m	 *[+ + ,>\"b,^,d+(,r,~+),+,`@7f ,N	(T c+(l@ 
 J,,~a@,,~[(Z(XD,,ma@@,~Z
	*(Al4J
6+h7J,~Z ,+m,7,>\"
,^+(m l4 o,{	*U*U"t4Fo,+v+, H H,
)+B J $6 S+`,51D+~0D-	(Q**}+l ,+(0D+,{5D4F)D0D+,++/@@
l@	**E*+@@$,>,+`@+,f,+a@+@@
,w 

 J$@@
	*D 
 J,^l,l1 
(d J-,51D+0D1D+3a`.$	"P"U
1D.+,d+l d`+ * J- 
-3*-+0/
-1j++7@
	*Q(Q(,3,C 
-/
-8
7@
:
$J
a`+ 

`@.j
 
7J$,~2*
	 @ D',~,>\"
,^,>\"g,^,0,>\"h,^,~,f+(	(@
U(0 
d,
m+ + ,~l`+ 
- J-+6 S+5D
6+,>\"
	 8,^,>,>Z" #d$Z" $,^,^,>\"
,^7H+l	"A,>\"n,^,>\"
,^4H
6,>\"
,^,>\"q,^	"*I,>\"
,^Z(Z 4H
6,N+L,>,>\"
,^Z
  J,w	(Q R 

a@ +T $
,w,>Z",^ 
l,
m+P+ ,>Z"	 Q Z,^@@
 
d,
m+ +P,>Z",^,>\"s,^,E	**Dc 
-,w,>\"t,^ 
-,w,r+j,>\"t,^+b,>\"u	 "k,^,^`@+w`@+z`@ +}a@+`@+,~`@+v7J
	 T*T*t,~Z
(4J
6+
57`x,~+
5@@
@@
,E 
-/
-8
7@
:
$J
,r	*(T*|7

+x`@.J
,~4 	,,?4jb0j+b  D(O$*6 S+.
Z Jr	*U*"ZJr 
 Jz,k,5D6 S+(+ZJ.
DzO@S$,5D"P+,~
 
 "
 *
 1
 9
 @
 H
	"DT,>\"
,^,>\",^ 
,#,>\"
,^7

O
,>	 D(@ \ * J *6@(+e.*1j+^,>\"
,^,>\"	,^+	&	"Ae,>\"
,^,>\",^,>\"
,^ 2Z
H4J~[
H4Jn	"Am[
H,B,>Z",^ 
H4Jt,>\",^+u 
H,B,>Z"	 ("v,^Z
H4J~l  ,
m+K,",>Z",^6J
,#6@H+	6@H	(T~+.21r+k+	&,>Z",^,>\",^Z/$&$(D	**U	 D	% 
`j+	 
1J+@@@@
,>\",^	"*U*	,>\"(	",^`j+	 
1J+@@@@>	(Q	\"V,^+	
,>\"U,^+	
 4*	 ,>\"V,^+~,>	(	 \"U,^+~LT. LE. EQ. NE. GT. GE. ,>\"
,^,^4*(	**	),	-,7,>\"
,^+(,	-+( 26@HO+	4=r	.,>\"
,^	"*	1,>\",^,~ 2+	B7@HO+	A,>\"
,^l ,>\"	 	:,^ 
 4,B,>\"t,^,>Z",^ *H$*,	.21r	(
	B+	5d ,~4 	L,l1 
(4J	G J20D+	L,Z+aP+	Ld@dP	 *U*	KldPl@ @t 
2 J 
 JZ
k4Jd6J	+&+
-
|,
9Z
,Z
(	"P*D 	S<
 J;@@O@yll  ,
m+U+U,	la@@+	b L 
}1J	(T"	\+	]a@+	b?`+,>Z",^ 
,"6 +	e,P1+	f,
3	(U(Q*	d-*,~>@+	b *. J
!XJ
+(eB +	b 
;l,
y+U+U+	Y, 

3J,~ J,X,>\"
,^,>\"s,^,#,>\"u	 
	u,^,>Z",^a@@+	e@@,~,>\"
,^4 l,	"T**	~d7$+
,
7+
 @@,
J5$
 
4J
ej@+
	3JZD.4$
	""D 
aD+	d@+(+B7@+
l,# `j@+
,>\",^@@	(@Q
+
,>\",^,>Z",^ 
,#,>\",^,>Z"	 Q(D"
,^+
4  @,,{4F&@1F+1F+ 1F+!1F+"1F	(D"

 +#1F+$1F+%1F+&0F+l
6 S+
(4D
0D++
 L{	*@
(+( $,zmddB@`B1+
6l ,
R1+
2`B,~!$l  	*
1 D,
R,~ZDv 
 7
:x:xd  ,~!$@+
0,>,>  C"	  
9,,^,^4V
6+
57D $(D,~ 27D	~1,
A,
7,~ an@	*E*

B+
D.4$
A,~2N'3N'+
F2N(+
B_.&ZFH
O_#QFH
O9
B ."(
J 6ZX
O1H8+
M=6
K,~[X
OPX
O.,~	 U
(
R@,e`+
X 
> D,
u1+
5,
7,~ V+
ue`+
`7D,~ 	" *
Zah@+
^d(3H+
l.4$
Z,~`B ,~+
]e` +^ 
S4D
c,
e1	* U*
c+
l,
7,~4V
6 ,
J5$
j ah@+
if3H+
m.4$
e4L
67	 A @
k7
 
+
5 `h@+
l5L
p 
 0+
ilaB ,~ 2H+
il@	"QD 
t +
l_4D
6#. $ 3H+
k_5(
6.Z0h,~+
w	"U*U*
|7@,+
:
|+ ^,Z>$*>+ 

|PJ@ 
|XJ
| 
	"E d*PJ
|S>$*>@@,+
|-J;`-J;-J;-J;	A-J;	(-J;-J;	 	 '2&2f2F3F3f3&	"T
U"/-6:/Z
@/*&*(J ( ( 	(+@,:/-6+/*
9*:	*@
8*:*;+6,J
! *(
XJ@ *(XJA 
/uwPJI*
;6@	*T(
@+A@?`+L J'Z
@[
/5JI*(0*Z0j[aJ`+
0JX1JW+
 
'+I	*T"U"I
! 
'-
|,P+M1-
|l ,
9@@O@y,W,4>
@Z`/*&*	((A QXJq@",>\"
,^6 1+*,>\",,^ 
;PJ */A*l	"E**Zl  ,
m+t1+b6 1+N J-,",>\"&,^ 
-,{+d 
	"D
U(b`j@+z,#,>\"&,^ 

 J,# 

2J+7 1+w,>\"
	 U"Pk,^Z@XJ
[@4Jq {l @@S,D,^d !&(&d`BF cF 	*T""s+(+
7@1+N +;/$,{,>\"
,^"`1+( D,>\"/	"U*Q*|,^,",~7 1+w 

 J,a7 1+w+j *7aA KAZ@@@-[	(D
U*
4F
l ,
J,>\"
,^Z$
,
h+
# J
!@@1,
3+
 
'	(Q"A*
-
|+  
;PJ (  H-+
/*4J
#9*
  D $> -,
h+
# J
!*(	"E*
1JV+
 S>$*> +
!j0,0*( 
%1JZ+
+1JZ+
01J[+
)	(E
T*
 
!aJ`+
1JW+
-*+;:;+;,
9-
|+ +ol1P
PJ;	"U*Q*
&!* BJ-*, ;+
! 
;Q

!*
0$+
- 
;P
!( BH 
!,
V+
#;

!	*T*
/ 

!+ ;P H0$!* BJ+
/ 16D
,
h+
7 J 
,
V+ .&	* Q*
73f2+
3,~ & 
uy6D,
V+ /&0&+
9,~ 
2@@** +( 	*E*
@,
h+r,
g 
@@ $Z1H(+
H7@XD.$1d+
C7D+P J	(D

H 
- J 
- J/$&$ &(FBF ``GF Z
-4J
6(D.$ 
 J	*
Q 
1J * J 
1J * J 
 J,~*,D,~+
\*aDx	(T
Y+
[ J+
5 J$+
5*,>,>(D{Z"Q",>`b@+
d xA3	 PT
bl$\"3;@T,^,^,^ J+
5,
V+r,~*,D,~+ 	 E"
j*aDx7
$ 
+
5@@
d $`@"$ D,
,~+
u  D 	(U T"
s Ne@,",
{+
44J
5 D ..( N,
{+
5,,>7d+
{.5$
~ `n@+
{ N
,^,~@l. J1 
aaB+,
4`@+
5 J. L/,
7+7 
1$X,
61+
44J
5a@+T
2*.+
5+.3j.+
5 
. 
/ /+
5,
J5$an@+	"*
5*/i6/F
46+
6`@+
4 0/
+
5`@	*TD"
d,@3L+
+	*T@
z+;7N+
d,@2L+
`n@+
4m@	((
+
5 
0d*@d.@2N+
5+
`n@	*E(@*
+
07
0:x+
53~*}0N	**D"
+#,>\"
	A",^+
3J&,^	(@ 
x J~ 
x,> ,
+~,^,^,~	 U"T(
J0`P+
/l,
m+P+  
	"E*U",+
# "+
#,"+ 
/l,
m,~	"D
Q*+
/l,
m,~7+@ D0 N- 
//
 J,+, 
0-	*"T,^,>,> ^
@@
@@	 
-d@(LL0*J
-/
-8
$Jr1+ 	  
0,H,H&
	 @
.,(ZL *
=r
7	+A^
 ,w.(=r,>Z",^ 
,^,^	*U*D
 

3J+
5 $
,u+
56@7@u+,^ ,,",>	((U(\"
,^@@ 
ul,
m++@++1,> ,	(DP%,p1+5,^ ,3,>d*@&*QLx4JF,([
x.*W0j\.*0jm/*	 *.1JQ *WA*?4,<*
}+M,>\"G,^,~ 
}5L
6+M7 1+8 ,	*Q63L~+I+' 
~0L+M,>\"P,^+'0*0jg
Z, J},~	*T
U ?fQ@@v@@w,,D0Dd,C+B+@z,4Ds 
Q J^0D1D+s	 A G0D1D.+s0D1D+s 
1J+_0J1J+a1J+z0J21J"+w	 AA
P0J21J"+0*0j+T/*+deB+Jd d,0D+J2FR+[ U TXO
l,*,+@^2FR+J@
l,*,+@^	(E(_7@vl`@+J,~6@v+Jl` +J0Jl @,~A*``+k v`h+J	 P @(g(H. Hv w$(. Hw,~ ,:l .!$dN0,4Np(N=lm	 P
E
p!,*d Dvl,~a`+	 
v w0n+J ,+d`@ ,/7
(N	 P(A"xdN
04N
xa`@l`+J 
w&*4J~h*Fh,6




 J Jv	"U lR`l,~m`a`+Ja@+Je`@7
v"
v L@@v@@wd `,~a`@	"	l c@Sa`7
v 
w``@"j $,^x,~ 5$"` *,Mdd+	" ad+% &3$/+2$*9 (%$).@@-6D,% *,M"$.-	  
 
%*,(4L
68$,~"( .(+@/+!0G.9H,>,>1	(A
#,,^,2,^&$:-QFx4D',%[
x.*X+M:s\-6-Qa^'&wka#SD!y	 P+! 0Y{z|i,SU<c\z8]T=8)9Lf32d /3$ , /E-E+alx(L *)J	*(4,M5L3,~ .,>\"S,^ 
? +; *)J,+8,>\"S	 P<,^,~ Jw". 
w *)*.*,M8.?,~Z
1L+TZ
1L	( QE+J)Jn(L'+QLx4JH,E[
x.*+M5*L,>\"V,^#j+E	 M,> ,^,~,>,>Z" #dd$Z" !1+V :x	 
PV,^,^,~,P,~,~ 
+>,,> " !1+V,^	**Q^,t6 S,~1D+[6@S2DS+c@@S+[@@S,>\"
,^,>\"W	 Dg,^,r,>\"S,^,>\"
,^,~6 S,~,> $	"PUo,^+p,t6 S,~,> ,^+p+@z,5D
6 $,~ 4+B	""Q"x,>\"Z,^ 4Z
+B 4+B+5@@# +hX+P'5(
63(]	 @ D,~,>\"
,^,>\"^,^ H,>\"
,^&_,>\"`	 T *	,^, *h,>\"
,^,~xx{	*U**"}x| +  
( J;   J:f`+ <6	"@
, <9,+4,>\"a,^,~,w,>Z",^ 
;+w,{	 "U(",>Z",^ 
;+{+@ ( 
bO@S,7 S+*@@:@@;,~D	*Q
+,*O@S,4D21(9*,>\"b,^,>\"
,^ HA <A,*@3+ <=,+X;(:	  ;('+'G$,G$)X?(1H+$)PDn	 "
D(G,G),> 6(16+L3vP+N 
,
<*
16(+LZ
O0v(+L+M,^	 E(PL,~,^+
5,^+
4,D+m+t,~,D+|,~,~
(4n\`l+Y	""U`*0J+Y*&*0L+Y,~,>\",^+(,>\"	"E@ ],^+(7H,~@@3H,~ H,>\"
,^,>\",^ 
	(@ Q(f,#,>\"u,^,>\"
,^+XZr/$/r4$p r(Dq0d(Un+p $Dr+X,*Dr,~
	"*(z 
Da`+6@z+ 

 JrZJra`7
 
[ JzO@S, & 
	( 4D
60$0d++	0d=+0$0h0$ 0d-+/$`hpD+@z+	*
U(*
 Jvl  !*@ J,
R,~XJ 
v J+
5,
3-*++@z0D1D	(A"+1D+0D1D+"0D1D+"1D
,^:S:S:S@d$,~hB	*A(%+O@S,aB,~5D%7 S+%d,~,> ,^,~ 
**^	*U
 -Z*1ZJY 
ZZ"YZ$y2Z"YZ$w247ab+1\"^ <@	 P
6 <+{\"+ + +/,>,> 
**^Z"Y	(QU">Z$y2Z"YZ${24g`b+g`b+GZ"?ZBYZ"YZ$}24gab	((D*G+D,>,> 
 Lw 
 Lv
w1L+b1L+b1L+OLv+J
w	"D*O1L+O1L+O1L+^1L+_1L+_1L+Z .NvLv
w1L	(UE"X+Y0L+VLv+`
w1L+_1L+_1L+O+ZLv ,Lv ,	*P(`Lv 
*,h\"^,^,^ <@ <,^,^+{\"
T
iU$@+ + +>lO@S@@v@@wfQ+@z0D1D+n,4D	 @"E*q0$00d=+sh0$ 0d-+dB+,>
,>,>
,>,>,>,>-	**E*z,>-,>x,>,>ud,,&+B+,^u,^,^x,^-,^-,^,^,^	*(,^
,^,^
+
5,+
5 
@( ,
4J
60*0j
+/*+0*0j+/*$(0.((`dp+,~ 
0(0h+9+ 
	("4D0$0d
+`hp++d`+ $2D$+
6+e`+ $d	((E*+
5 $d+
5d @@,{5F"0D+4l ,{4F,+& $0D	**$5D,m , H HdB,~,
),~ L# J``+I@@,1	"D*"-l $4DI0D-+1l ,,+.0D+=d@@
@@
,*J	 @(D*5el,l1 
(`@+Q4*:/* J0D+d@,_+@z,4DI	 A>0D1D+I0D1D+I0D.1D+I0D1D1+`@+IdB+I	"EQ"F!,Z+!+I 
d@6Ju1+; $d`+
5.
d@.
a@ 	*T"E*O+
4 
  F"+
4 J,E 
/
-5j~ 
/
-4*~$

+$0D	*EAW+:R-/-8$T1Fl	 `1Fl1Fl1Fld@1Fl 1Fl1Fl1Fl1Fl	 "
h1Fl@1FleP+4Dn1D+n0D++[aP
?l+
5, 	   q 
01j,~d*@&* L~4Jw&*0,0l,~+tl  
~0L1L(y,~,
d*@&* L}+~4J&*1,1j+},~0,:~,~4J
	"1J?+
0*=+0*+,>\",^.* ,> ,^,~,>	(
\",^,~,>\",^,~,>Z",^,>,{,^,>	 *
Z",^,~,,7@+&, Hl  ,
R+[(0DZ+S+
5,>	(@ \"
,^,>\",^,m,>\"
,^,>\",^,>	(D$\"
,^+(,>\",^,Z+,>\"
,^,>\"	"",,^+`,>\"",^+L,>\"
,^,>\"$,^,0,>	(5\"%,^+(,>\"(,^+(,>\"+,^ ,Y,>\",	 *T =,^,>\"
,^6@+(,Z+,C+(,>\"/,^ 
	(DA"F,#a@+1,>\"4,^,~,>\"6,^,m+(,>\"9	"Q(N,^ 
,#+%,>\">,^+(,>\"A,^,Z+,>\"D	 D@ W,^+(,>\"G,^+(,>\"J,^,>\"M,^+(	" D
_,>\"O,^+(,>\"T,^+(,>\"W,^ ,,",>	(Dh\"X,^,~,>\"[,^ 
,#,>\"\,^+(,>\"]	 D@p,^+(,>\"`,^+(,>\"c,^,~,>\"f,^	*y,Z+(,>\"
,^,>\"k,^+`,>\"
,^,>\"n	 Q(,^,Z+`,>\"q,^+(,>\"s,^ 
,#,>\"t	 D 
,^+(,>\"
,^,>\"w,^,0,>\"x,^+(	" D,>\"z,^+8,>\"~,^+(,>\"
,^,>\"	"Q",^ 
,#:
,>\"s,^,,>\"u,^+(,>\"	" #,^+],>\"
,^,>\"	,^ 
,#,>\"
,^,d	(A" ,+(,>\",^ ,,",>\",^+(,>\",^+(	" "4,>\",^+(,>\"
,^,>\",^+(,>\"	"=,^+(,>\"
,^,>\" ,^+(,>\"
,^,>\"$	 D E,^+(,>\"
,^,>\"(,^+(,>\"/,^+~	" DN,>\"3,^+j,>\"6,^+/,>\":,^+_,>Z"	 "V,^,>\"=,^+	e,>\"
,^,>\"A,^+(,>	(D_\"D,^+(,>\"H,^ ,Y,>\"
,^+(,>\"K Ag,^ ,Y,>\"M,^,>\"
,^+(
 t y { ,> (R E @S? HOH^H^((Hf(	 @@w`(HO`(HT 
	5*U*Uhx 0@HX`px(8	5P@PX
STARTING FORTRAN DDT+(|2GJQJ(R@~`H@|	 +pSYS:UDDT.EXETo return to FORDDT, type "%FDDT<ESC>G"%FDTPOV Program overlayed	  by  ***[ Program suspended Open section:  ]in high segment,>	("\",^+Sin low segment at  +  in igSC$\@S@
l* J+q	 TD*@
l*GJ+-/:(,~HLP:H.SYS:H/%FDTEOH Error openin	 3g help file%FDTNHF Cannot find help file; I'm sorry I can't help you%FDTCAB Ca	 (;nnot allocate buffer for help fileHLPem}R<	qG3du+K+((;     H	(Q(D,*,> D Dz,^,,Z+S<%Character string must begin with s	 PLingle quote,>\"I,^+(H04D(+[H 	FORMAT: '<	  EUR.TRUE..FALSE.,>\"
,^+%	=  H
r?FDTDTO Dimension ta	 ]ble overflowP.h6h,h?FDTMLD  Multi-level array definition not allowe	" fd.%FDTABX  compiled array bounds exceededNo ,>\"k,^+A	 nArray specificationsUSED		ARRAY	DIMENSIONS[:,] - F10 ORIGINAT	 AwED,>\"u,^+n  DP,>\"z,^+o  CH,>\"},^	( *+q  SP,>\",^+q  FORMAL,>\",^+r,	+(,k	(:
No pause requestsGROUP	AFTER	PAUSE	LOCATED INN/A,>\"
,^	(
+IF  
(,+	
 . 
(,+~No group specificationsGROUP ,	Q	" ",>\"
,^ * J+	^	 IS GLOBALl
+
%l
+
%l
	(D"!+
%l
+
%l
+
%l
 +
%l
+
%l
+
%=g(Agw]!+6$
!Pause at 	"**,>\"),^+WEntering FORDDT from routine \
!.
!.
(-	-	8U"2R
%FDTWSP	Writing to shared page

p7@.+
6+}1N+;`@+ (COMMON) 
,"+,>\"t,^	(C+FormalDparameterC0O@++MAINPROGRAML#,>\"I,^+7	Lstatementt,>\"L,^+'line<+er(full3excesscha	eractersignored%Tryingtowritetowillegaladdress;wrongmode???,>\"g	 @n,^+(%Trying to write in high segment; wrong mode???,>\"o,^	( v+(%Trying to read from illegal address; wrong mode???,>\"w,^+(	 0<%Improper byte pointer; wrong mode?%Null character string; Wrong type?	 ??[Implicit OPEN HsHZHYProgram name: H?FDTJSE H^Hn]h^	"PTd+@?,D+A^<NUL><DEL>,C,Z+?FDTIAF Illegal argument 	 format Type H for help?FDTIPN Illegal program name?FDTMSN More subscripts n	 !eeded?FDTBOI Bad octal input ?FDTLGU  lower subscript .GE. upper%FDTNST No	 )t 'START'ed?FDTNFV  is not a FORTRAN variable?FDTBDF  is undefined,>	(2\"0,^+I is multiply defined?FDTINV Invalid value ?FDTNFS Cannot 	 :find FORTRAN start address for ?FDTPRO Too many PAUSE requests?FDTCSH Cannot 	 C'START' here?FDTNDT DDT not loaded?FDTCFO Core file overflow?FDTFCX Format 	 Kcapacity exceeded please re-type?FDTICC Compare of two constants is not allowed	 T?FDTIGN Invalid group number?FDTLNF  is not a format statement?FDTNSP  no s	 \uch PAUSE?FDTCCN Cannot continue?FDTNPH Can't insert a PAUSE here%FDTNSL No symb	 eols loaded?FDTDNA Double precision comparisons not allowed?FDTTMS Too many sub	 mscripts?FDTSER Subscript error?FDTNAL Not allowed?FDTNUD  not a user defined 	 varray?FDTSTL  size too large%FDTSCA Supersedes compiled array dimension	 ~?FDTNAR Not after a re-enter%FDTXPA Attempt to exceed program area with ?FDTPAR Pa	 rentheses required?FDTFNR  is a formal and may not be re-defined%FDTNAA  is n	 ot an array%FDTSPO Variable is single precision only?FDTNGF Cannot GOTO a FOR	 MAT statement?FDTITM Illegal TYPE modifier - S?FDTFNI Formal not initialized	  ?FDTRGR Recursive group reference?FDTIRS Illegal range specification?FDTMCD Co	 )mpile program with the DEBUG switch to type a format statement?FDTIER Internal FOR	 1DDT error - 1?FDTIER Internal FORDDT error - 2?FDTIER Internal FORDDT error - 5	 :?FDTIER Internal FORDDT error - 6?FDTIER Internal FORDDT error - 7?FDTIER Interna	 Bl FORDDT error - 8?FDTIER Internal FORDDT error - 9?FDTURC Unrecognized command 	 K?FDTCNU The command  is not unique>>Program name as specified in PROGRAM sta	 Stementcommand argumentsACCEPTCHARACTERCONTINUEDDTDIMENSIONDOUBLE	 \GOTOGROUPHELPLOCATEMODENEXTOPENPAUSEREMOVESTARTSTOPSTRAC dETYPEWHAT	PnFdFeL,FeFfFfFg	D"u'%Iu3Hu3I2u3IKu3Ju3J$u3KNu3K	D"u3LSu3Lbu3MQ%$u3\gu3]tX
	"Y"Pu77Y);'2751rz9(R+G`BSwgJ	D"b2b+7})D;8H)ob)vwPQ-R_A[j	"u#g:R	b.:Jo:K*:[w
;w
;#PD5A
J	"x\1 P@-{.	..N
.lQ+tx&+th	"PLjR,cK,2mO\,Mt4n@14nK;wO		]29
#5ai
#O	D"^>bO
=_
?_
C_
H][Rd5':YPO`wFL	D"6%.q6%.q6%.M6%.j6%.z6%.aW6|A:\R:e;	@R:e_:f
9jR:f#[R:f4.PDD8mr
G8[S G>Kts	DP|KG?#&r~r
GD7SP(.TGHFmc! eJ2/&SJPpHJQCQJ[<OKth"K}&!Kh#	@"K."#l!D
Ks	KcKD=[KDHZKo%`	@Ko&^Ko0JLgZJLzU JL  JL=AKQ~7KQ~gLNG	"L[ :RL+@RLwLmgE)M%?
M+2M9CM**,MC"H	D"R/)R)R)R)RPRM7
6M: 9M:!:	D"M:!:M:";)TY&M>H)O	+T2
6MR/Q
5MR/Q
4M^
(	Dd@nO(g#P^6]SP*R]|?gR^Yg~^g
\
d	D"d*"
[_-f
VZGs&,&-`k~bk~	xk~
vk~
~	D"&-k~j&.&.&/o&0a_rj3a_rja_{x	"a_{Ra`Ga`7lha`=ga`G7Ra`^.a`c"]a`eC
	D"'1Rl'(Yl')(al$hYal$iXal$j@al$j?l')Vl'*W	D l'*=l'+!l'+El'-Cl'3
al'}6l'9Id	(
gd	@"L^e?0bReD$?en	g!6gsmyhgsnh	t?s	D"P>-K-N/P/S0U0Z1^Rw-,?	D"z"nzlz"pqnz"prDz"prAz"ps	C9N}
E}
8Hm}
f~	D"Pa_oCOHU*]Y1)	Kw(S	Kw)V	Kw)X	Kw*[	Kw*_	D"	Kw+b	Kw+d	Kw,j	Kw,o	Kw-rY1-	Kw<t	Kw=w	Kw=z	D"	Kw>~	Kw>	Kw?	Kw@	Kw@Y20	KwP	KwQ	KwQ"	D"	KwR$	KwR,	KwS2	KwS4	KwT7	KwT;	KwU>Y27	KwdB	D"	KweGY39Y3BY4JY4MY5P	K{a	K{4L
`R	D"Joyog
)	Rx
0	Rx
6	Rx
2c)2`	WJ	65.S6`PR	f	f	f	f"	f	"	fSoJm	e~]$	xL[f/	~*Pf4
cM
hS,,@	D"S,E IH
&&
uK|
g
K
g
M	"`j
JS!+S@$'@
B-fD^	hD^
'CD
L
w	D"?aH
k?aI
m?aI
p?aJ
j
L
X
L
Z?b
]?b
^
L
`	D"
L
c
L
e
L
i
L	
l?fg
RS<!(7t4(AY(Ag	D(bA2(bM%
M?S(yG(yK;c):
9)	)	 Bm	D"h
 Ch
 C) C*!h
%
]' Cf(Ph	D"P
k	ANq	m
u	m[I W[ X1hTO,hX/	D" [U/h\* _:BuL
}uZIyue]{vxw!nt!|K@	D"(U']w(SS{!|:O!|:I!|;K(T~(Tz(TGE(T0.	D"
NtK0(TS{C(TV(TVw?(T] (Tvj/(U
9(U
:	(UwBS)*=,i
7K+lu_K+l{9@	"K+mS,mg@
aSg

b:
b7M*";kP
dM
h		.
h		4	D"
h	0Bov	-"M	"M	O0Cl#	,P
h0D7b0D?7
h)			@
j%
<1T6BN1TOsS2'; >Aj<S#u%)E$@=E$>[B	@"E$\pEE$u;HPQsIkQsI9pPSX[SXh[g &I
)	D"&Q
0&R
+tqQ
-tqR
/^'t4aS^(h^|Y
3^|Z
7^|^
3	D^|{sc_<F
`
%Satj}&dS

9z

9{

9{
 LN	D"w]:|w]_g{w]h.	
KyIzw^gz{T$

2["#K=	"PJP
!aI+^F#"HY	"T#+Y<T#,BT#XMt%?xP(E'M*P

,G,I
,
mD
pE
{F
~	D"
u(a0
{(aqJ)K?+"p$cw6.9-L:	D"-M9B=VA8Qmg8YqT:40`PT@.?
A#@{	D"AOb
%AW7
Am; AoY!As[
(7vABGrP}Rwqq	D"TS"aSSLytn/S	DMk0]
~@5D&9P;'	P1@@@Ll[eV~HB(PAk1PA
1PCA}1PC1PD2xyTUA}TUB|r:^3
r:^Sr:FrWf`ZU3![	D"U3"ns^;c s^<!`20J420;Yyru^HHpa9"a:,	@a: v(c-

M
9HTM
j}HV	D"HW`\TtQCftWt^{+H{+Ie$&
$+bRS
. -jT	"-B[z[S+PX3@	KR4
45x46	!ZZsP4<4_|	D"
qg&rO4'$

{4
'%
'%

}9

}I

}S
	"
Y>#[
nKU
S{
Ky4GCSg3-%>8	D"v@yz
z t'x	 t'y
 t'y
 t'z
 t'z
 t'{
		D  t'|
 t'|
 t'}
iR/PB/#.
	@"2`V%?0mP7".7"7" 7"17"/2lug2mA0	D"4EuU/4EuV14Ev|,5(a:K5(sO2*PYS*PZ_5)[5):=	D"5),fI5)C;4vO<4~0fy5^5

y5!
95&
95>	"*[T5$;W5B1;(	"1;,~
KBK6r$KD}9g
|Kex	D"K}:pZK!;
y
A	D"x4x
Bx4y
Dx4y
FMPJ
>MPSgXyIg	+?!P9K@PUOy?5Hl	@"P^APwbVG(i	hVG(j	Y}i	L}j	Q}k	]}k	e}l	b}l	fUVNvj@	D VS?+tV\V]
1
86J:0-&:0.I	D":0.4:0/D:0/=:00.:00Q:01:Y\o.Y\t9
OY]]
vYYZ	"Z[[c)==w-;---;--.;-..;-./	D";-//;-/0;-00;-01ew;jYfYv"F8VSf[ "f\1#	D"fgF?y~F?y~F?z}F?z}F?{|F?{|f";/2	"F3`H
UlrVUlrY[d2LlW/QMlW/QN^~k]	@emWQ^amXLVUmm[@Umm6G;nt;owm~nS}m;pm~	Dm~a}m~a~<~bmOjzgMo+q@@o"bfWd	h{	D"o#E[<%8<%;qQe5kRHwqR	"A,+T6OAuh^Aui	&AuinAuju	D"Auj	Auk	
Auk	%RytR{~R{kR|	5Mf	AMg	B	D"R|	CR}e8(i<	8)	84E<	84w	 P: F=S[ig	P	P	P2i@P2iON36ON@IONK]OOwI(	@ O/L``r%E[Qgg[l{Jg[mO[mg\.6g\)7F\)8*@`r'I g\2g