Trailing-Edge
-
PDP-10 Archives
-
bb-4157h-bm_fortran20_v10_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*+-N,P-N,
-< ^U,6@+Z
J"
J"+ " B
" B
P"S${ *Q*Q PBm*dC* J
~ * J^@@,\O@
,2@@XJ, dl@ *Q
E*" X(,+% l @!*Z J
R JRZ* J#7@6@++-,&1 *U"E**+,,; H+ H(, #Q`A @@"7 c,Z@@ +@@@@'@@( *P3@@@@@@!@@7,>,>Z" #d$Z" $,^,^,>\",^ *UP;,,,b4F- F55DA7$ce l 5 6X O*(J}(D5DB 2 PD f3F+K2F+H:Q*dD5RJ:1RY 6X /$` L.6 X+C\G"(1G>vJ7I I&l[YI?,+OJ~\O?%pQfY>[>$P]F@_B-`a.9 *U*Uem}RgR-gR~gSrigPo"@@@D@C@ @E@D@V@u@N@
V@
r *U*U*]@
@@u@z@h@@c@l@ +
7@U+-7@+]7@+; "*E*f U, +-!*Z J,Z
+J(!$@D(,<+sJ@,\ ("Q*n,
t IN-*W@<+4 z,D+i1 "T
T w
(,@+[,_+>+ 1
7@+] J1 U!*gp& l&2K7
1 "U"U*,DDU7@+;,@+*,\!*Z J,74 ,!5DA4FA,5 H(, *P"E+- ++ ad+
(4|Q"l`C$0[D!@4|FCpDEpD"6@+$B,> (U*\"&,^,>\",^C$p D1+75 $7@+*,?+)@@@@V *Q(U!@@W,
*"4H13H"+1, *Z*" *
24H42H"8
,^7@,~,>\",^,>\"*,^+?7@# J# *D@ ;3J#+? J#,>\"-,^,>,>\"-,^,>\",^7J3 (U*U*C
#Z
+b6@+\6@+^-N,,>
DLZ" ,^,>\".,^Z
$7@+U,>\"0,^,>\" D
*T,^7,b,>\"2,^
/,#,>\"3,^ +-+K@@ *T"]@@3@@,~7@+
# */A* J$+K6@+67@+g2j+:,> (
e\"=,^,>\">,^, *QDn
V,~7@3+s,>\"D,^
3,#,>\",^,~4 3l@ *U*U*v@@;,D+y+z+52FE+i+, JW@@V6 c+,!5DA4F7@;+ *U*T
3FE+03FF+03FF+*6 c+A3FG+2FG+Ad l,,= J< *E"D6 c+A@@;dB+H5D,80D+A,!0D+A[f1FM+1FI + "
U"1F\ +1Fi +1F}+1Fy ++A:;:;:;:;:;l,,= (U U* J<dB+J
L JV7
L,1
(4*A*
W6 c+( J-,!5DA
- *U""!4F(2FF+A6 c+,?5J%1D+"0*0j+QJW
-l,@+ **U*),
W J-+"6 c+i,!5DA3FE+02FF+A7 c,ZZ *E"Q"2,o HPC(
t I P+- `d+6@2+d$@3DM:; (3D,.* (
D(:+zl`+ J= *=,~,M0L+
C+7@+]6J3+K *N3J
w4
w,1
(4*A+
x
3 *T
KJ1,\,@ BzC<y,7`+o @zl @x & O *U
E T Hu+V P Hu\$r "t+_XBs Q+h s x &?4c EE\@B x+Z tlhd( Ht<fj1f+U+S@B x (A D"e\" s + +m s + \"Q7\"U\"X\" ( @mC<y,,^+-\"[\",^+-FORDDT?{HO"vH_"yx@z (Q(U*z4 l@,D+`+ $: FO d&@2FM6 c+,!5DA3FE+2FF *D((+i7 c,ZZ ,2@A+- OZ1H(+
.$1dH++;(3H, (E*.*.*@@@@@@+-2Fa+AZ ,@A+
*+Dl,D+i+X JW`B,t,+
[
(aJ+* J6 c+A (D*P
4DJ1D+J1D+90D+A@@V,!4FA*b0Je?m@ JV4D'1D (U"T%+'0D+A+ 6 c+A7JV *6@++@@L+.`P@a@+.0J1J (D""-:1J+l1J+z1J+t1J+?1J+ d@1J+J1J+a1J (E*E(6+d1J+f1J+u+A
W J
L JLd ,>',D+i+A,^2H' (U*U>+ia@ +C L2dL*L DL
-+D2**
JW,+
[
(aJ * U*G+* J1D+ 7 c4DJ+Al &,*
S*
W,k*
W KW JS:W *P"OaPh`@1+Yl,>'
b J'
W,k,+X,^ J'
S *Q*T
X KW:W7@+\`P+c3d+L+->
W@@c@@e@`Ph>
W,+- *("`,?+Ll &`@ &,*+Ll &,*+Ll`,80D+H
d (UU*i JR &,*
R JR+L`P@m Y`,>',>-,D+i+A,^-,^' ( (EQ
q DSaP@+L
( JS+Ll+~l N D^l,80D+p,P,T (UQ
z+Ll
e JS7@+~d@d,86 c+A ,@@SdB+
e`P "D @"@* e,P1D0+dB+fD`n`+1l`@+
aP@+7@S *Q(U+
JS+ JSaB+ZLc,ZaP+L S4DL S(D)D(j5H "(D*)D|+(Ddfl DS FS+LmB+d+d
e JS JS+L *E
ZLc7@,ZaP+L$jJ(J+Ll,86 c+A0D+p- (D
*$$Lf FJ *,x
d*p,k,P0D+/,P1D+/X
f J! *P"-,9,ZX+3`
,b1L,kd=h( * Jc *<(5J+4 *P U*5 L/L4h:
-
($* J
L=j9
f J!,97 c,Z
-7@L **
>+]+-l@*6 c+L,86 c+L@l *`P@ *
1,86 c+L ""F0D+I``@+A+E1D+E0D+Lh @+E/$4$T0$+T)LG *Q*Q*O<JQ,87 c+LaP@+S LS NS+T NS,Ze`@+LL@SL@S:S7@S *U(
W:S+L6 c+A,+i,+-
r,P0D1D+\@fF! (D"@(`,:0D5AXJb1n0+sd4Da,P0D1D1,:5Dh0H+H Q*Uh 0D+a,P1D+d+j7@+;,?+D,=@@ +l l @@!`` E**qm d ,td ,+-@@@@L@@LY`,D+j1+
XF}1d +W,> ,^+| ((,> (E\",^*u0J+
J-^*{.J(,>,+m,^ $(+
Z",^
4
(,~1D+\eB+,tl J
(*
J4l *E
,^+j*
(aP+'- $L4Hh *,x
,v`P@+ T 0f &,+',X,>\"v,^`
(v1H,v*1J,' *D*$,'=f ,>\"v,^,~aP+*,X &,aP+/,X 4
(
D, JS
&`@ &,aP +4,X 4
JS
&,aP+6 (ET*5,X 4,BaP+;,X 4,BaP@+;,
,BaP+?,X,5aP@ *E(=+?,
,5aP+F,X,>\"w,^(J,5aP@+F,
(J,5 "Q
FaP+L,X5*J,>\"w,^+L,>\"x,^aP+N+],> ((U*N\",^7@+W`P+U:
4`@:
43j++W
4:L3dL+ * E"W7 c+t,~eP+y,>\"|,^
,~ J
L JLd ,>',D ***_+j+A,^2H'+id@+2**
1D+Al aP+ L2dL*L *"P"h DL+``0D+q,+mQ`6 c+A+D0*0j+0D5DA,z "*Qp,^x+Wa`+-,^x4DW+A J4@@5,D
6<
JL`@(J.
4 J (*Qy
4,~dB+7H( &+3H/+ H( / H0,>,,^ ((H(nH + **U*+d H +,>$*.
|,>,>,>!,>c JZJ
} J!,t,^c,^!,^ (*D
,^,^ ((H(j + H ++W+j,-+i_
#J0.
.* J/
( J/ " ,~ A "# ( A#%&()+, " ,./1245 A478:;= ( A=>@ACDF " EGIJLMO ANPRSUV ( @VXY[\\ ""_
^ (4Db D^,~,5,>\"},^+- ^ J@@( J^,~ " @gd
C&_
4Jp (3D-+l
(+id(`hl`hl +
-l,,^,^hd$@l$2Dh,~l h (x$d0D1Dm1Dl0De l $ D$1D$aD+ DUlC+h J.:+
,8d@+Ka@+ (D
+9,^, J, H@@ - D `@l*`@ l* J ,+
(/V D( V D(@@( J5,~,_ 5 J+6J5+,g+w`@+ ""(
(+`@+
(4J J5 ( FV.( FW,~O@5? + h JV ""# h JW.:,~ -*-,g,~ H-`@,~,i,~,>\",^ *Q(+
-,+ ,>\",^,5+-,?,~+O,g+S`@7 "E @
4 ,+-l@
- J-,g,~a@,g,~ ( ( D,e,>a@@ P
D<,~
4J,~ ,e+>,,>\",^+-m l *U*U*E4 A,!4FA,8+H+A,5 H' H(,+i J- J6 c+2,1D (E
P*M+O0D-+Pl ,V+-0D+A,!5DA4FA)D0D+A,g+,+} (Q"T*V@@6l@+a@@M,>,g+_`@+],8,g+_a@+_@@5,D
6 *P ^ JM@@6
- J-,^l,1
(d JW,1D+j0D1D+ *ga`.$1D.+j,5+Al d`+l * JV
W3*V+V7@6,, *
To
W/
V8
7@6:6$J6a`+a,J+26JM2*6,~,>\",^ " x,>\" ,^,~,>\"
,^,~,8+-
-d, U*D,~l`+A
WJV+a6c+A5D,>Z" \ #d$Z" $,^,^,>\",^7H+,>\",^,> (@ \",^4H
J-,D
6`@(Ja@ +# (@" -$
,z,>Z",^,>Z",^@@5
-d, Q+,>Z",^,>\",^,
V,z,>\",^
W,z *""3,?+7,>\",^+/,>\",^,^`@+`@+`@ (D
"<+a@+"`@+&,~`@+B7J5,~
(4J+"D@@5,
W/
V8
7@6:6$J6,?,~+E,>,> 6`h+U`@ QM(Ha@ +R
-%(5HU`j+U .(&(7@ah`hp+U:,^ T**U,^,~4
,?4j0j+ / D( &$*6 c+(.
| JZJ
) J! *U
Q"^,,:5D^6 c+-+^ZJ.
* * D!O@c$,:5De $6 c,~ (f,> ,^`ZJ0Hk+c,~
r
z
"D +,>\",^,>\"2,^
/,#,>\",^7
O
,> D(D 4 * J *:6@(+ :.*1jH+ 5Z ,7A+-,>\",^,> (D <\"1,^,>\",^ 2:Z
H4J R[
H4J C[
H,B,>Z" D@ E,^
H4J I,>\"4,^+ J^
H,B,>Z",^
H4J R, M+r,",>Z",^6J3,#6@H+ W6@H+5.21rH+ @Z , 8 "@ V6A+8+ |,>Z",^,>\"?,^Z/$:&$(D D |
"U*Q ^`j+ m
1J
+?@@-@@7,^+r |
,>\"A,^,>\"( y *U" g,^`j+ sZ
1J
+A@@-@@7,^+r+ R
4* p,>\"x "*" o,^+ c,>\"w,^+ c
4* v,>\"x,^+ R,>\"w "
x,^+ RLT. LE. EQ. NE. GT. GE. ,>\",^,^4*-,
, ""Q
,>\",^+-,
+- 26@H &+
=r
,>\",^,>\"C "
,^,~ 2+
7@H &+
,>\",^l ,>\"E,^
"
4,B,>\",^,>Z",^ *H$*,a.21r+
d "A"Q
,~4
#,1
(4J
J^0D+
#,+AaP+
#d@dPldP "U*U(
"l@ @
^ J.
F J7@+j6J3+K+
w-N,
U6@7
(Z
( "Q*D
+<
J
#@@(O@l@@',
Ha@@+
> L
%1J (T
3+
5a@+
>?`4+G,>Z",^
,"7J'+
=,>\"J,^ *T**
<,~@@'6 .+
A,P1+
B,W,~>@.+
>C*NZJ
~+-eB **Q"
D+
>
#l,+|+|+
1,Y,,
33J/,~ J(,,>\" A
M,^,>\",^,#,>\",^,>Z",^a@@+
A@@4 AU
U,~,>\",^4 Al,Dd,E+i,4h
`
4J
_ej@+
b **E
^3J( D..$/(5h
[d@+-+i7@.+
_l,# .`j@+
h,>\"K Q"
f,^@@.+
_,>\"F,^,>Z",^
(,#,>\"K "Q
o,^,>Z",^+
e4 '@,,!4FA&b1F+M1F+N1F+O "D*
w1F+P1F+Q1F+R1F+S1F+T0F+Al
6 c+4D
s0D *U+A+
s L#+- $(, mddB@`B1+,41+
`B,~ "D!$ D(,<,~ D
7
:x:x,~!$@+ 7D $(D,~ "@*@,E+./$ _
#`.$/2NU3NU+2NV+ DH! JH# Q
E 8/5h R ,~7V ,~3DX +=v,~.X#/X#+ *(&
J(!$@D(,<+
`j@+)+"E../$,3H(+
aj@+9 "DA
7d*2J(+:
+.$/(5h5,~@
,E,~,4hK
"T
?aj@+If
(2J(+I
`j@+L5LF
H[
+IlaB ,~2J (A"*H+Il@+L.$/(5h>4L
+6@+M7@V+Q *U*U*P:N+T @N V* U N6@+V
NPJ8ZJN O@V+
M JN7@ZJN *(AY7JM
8d*RJMS>N*>@@V+
M-J
#`-J
#-J
# " a-J
#-J
#-J
#-J
#-J
#-J
# A
U*j-J
#-J
#^`acdfgijl*
mr
2&2f2F3F3f3& *.J
Z
9/*: U("
&*(J (
(
(
+@
:
+
l*,J
[ J
8: J
9: (Q*T"
' J
9[
( J
8
9
/u#7@PJ
7*
#-N6W
9-
^
9>XW
97`+
<6J
8 *U
/+
:*W0*Z0j[aJ`+
7 V
7-*W+
6+
U"
8
P,P+
<1l@,W,?a,=Z
9 (AD
@/*9&*XJ
a@",>\",^6 ]+X,>\"[,^7J]
#PJ8 Q*D
IC*/l,
d1+
Q6 ]+t JV,",>\"D,^
V,~+
S QU*
Q
`j@+
k,#,>\"D,^
3 J(,#
32J/+
q7 ]+
g,> ((
Z\",^
8 J
~7J
8+
a #Q`l @@c,z,d !&(&d` *U"*
bBFIcFI+
i+
|7@]+t +
#/$,~,>\",^"`],?,I+- (A(U*
k D-,>\"],^*^,#,?a,7 ]+
g
3 J(,7 ]+
g *A"(
s+
Y,^]O@] p8
J]+] *^
97`XK
9
8@@V
84F
{l,U*
|,>\",^aC%6@]+
# (QU"W+
+
# *((
#+
#,+,aBPJX
#Q
*
0N+
#C%
+W
#+J D
E: DPH
8/"9C]Z7@+ (Q"*
,~ &^C)
6D
\,[[`4D
+\X" U"@(\GJ
[
P
b,.&:1fl+
u%7D+0&:+
c@@:**I+-,>,
V Ke *@"Q"
W Ke/$:&$ &(FBFI``GFIZ
V4J
; J
<1J= P
<1J=C* J
=J,~*,,~+`dA+
Na+ P(D"
,^+D),,~+[ *P*
4J) ..(dN*,+,>.$ "*/(4h `n@+ N3,^,^,~@
JZ`B7D/+
+
,E+
Z,+1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111$(. H,~ ,:l .!$dN0,4Np(N=lm P
E
p!,*d8 Dl,~a`+
0n+p ,+d`@ ,/7
7(N P(A"xdN
04N
xa`@l`+p
&*4J~h*Fh,6
J8 J "U lR`l,~m`a`+pa@+pe`@7
"
L7@@@@d `,~a`@ " l c@a`7
``@"j J,^x,~ 5$"` *,Mdd+ " ad+% &3$/+2$*9 (%$).@@W6D,% *,M"$.W
%*,(4L(+@/+!0G.9H,>,>1 (A
#,,^,2,^&$:W,>4D',%,^.*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,~ .,>\",^
? +; *)J,'+8,>\" P<,^,~ J".
*)*.*,M8.?,~Z
1L+Z
1L ( QE+J)Jn(L'+,>4JH,E,^.*+M5*L,>\",^#j+E M,> ,^,~,>,>Z" #dd$Z" !1+V :x
PV,^,^,~,P,~,~
+>,YfD!,>" !1+V,^ **Q^,t6 c,~1D+[6@c2Dc+c@@c+[@@c,>\",^,>\" Dg,^,r,>\",^,>\",^,~6 c,~,> J "PUo,^+p,t6 c,~,> ,^+p+@!,:5D
x,^@fc,~ 4+B,>\",^ 4Z
+B4+B+5@@L "Q\@,+7HU+T ,>\",^&{@~@ @@#@&@@@@{@C+ "*
( JS ,?+D JSf+C<N,C<Q,+=,>\",^ "**",~,z,>Z",^
S+z,~,>Z",^
S+~f ( *QU
+
O@cJ,80D+01D+A D+,7 c+1+AD,PO@c,: (D*34D91( 91,>\",^,>\",^@D D!O@c HY (T<C<Y,+C<U,+,>,>@ C", U,^,^4V
D\",^,>\",^,W+-,>\" ,^,>\",^ U @M,~P@$]A]A.^@NT@d@h@$SAA ((T('+'G$,G$)X@$]A]A$^@NX@d(1H+$)PA]A$^@N\@`BD ("\(G,G)+A6@+
,*
"EE e16(+hZ
c0v(+h+i,^,~,^+
,_+2a,~7@ (m+:,>,> (D{Z"Q"`d`dA+tAfl$,^,^,~ *"
v,_+B,~,~
(4n*D0j+E`l+`*G0J+*D&* "A"~0L+,~,>\"G,^+-,>\"K,^+-7H0,~@@03H/ " ,~ H(,>\",^,>\"O,^
(,#,>\",^,> (**\",^+Z/$/4$ (Dq0d+ $D+,PD ,~
"*(!
fa`+'6@!+'
Q JZJa`7
)
}J!O@c,8&R (h)4D-+:/$`hpD+@!+) **U 2*
( J!*@ J(,<,~ J1
J(+@!0D1D+8 "A:1D+80D1D+H0D1D+H1D@dJ,~hB+8 *
KO@c,8aB,~5DK7 c+Kd,~,> ,^,~
R**mZ*W *T(ETZJi
T JjZ"iZ$ 2Z"iZ$24]ab+W\"n <@ "@*\<+!\"U " U$@+ + +U,>,>
R**mZ"iZ$ "D"Ue2Z"iZ$24
V L
V L
1L+1L+1L+uL+p
1L (D"(v+u1L+u1L+1L+1L+1L+ .NL
1L+ "T"~0L+|L+
1L+1L+1L+u+L ,L ,L *@
W*,w\"n,^,^ <@ <,^,^+!\"U " U$ *P*@+ + +dlO@c@@@@f~+@!0D1D+,:4DA0$0 "
*0d=+h0$ 0d-+WdB++,>6,>,>5,>6,>-,>(,>',>V,>W (E** ,>,>,>d,(,L+i+A,^,^,^,^W,^V,^',^(,^-,^6 (U "),^5,^,^6+
4J
+1/*+30* ""(10j+A/*$(0.((`dp+-,~ R0(0h+`+, R4D@ ET :0$0d
+=`hp+9+Ad`+A+$2DJ+!4FA,8+L J0D *
K5DA,,m ,5 H( H'dB,~,,~7@M LM J-``+o@@2,g Q
D(S1l J4Do0D-+Xl ,V,8+U0D+dd@@6@@5 * J6 (
\,gel,1
(`@+w4*a/* J20D+Ad@,0+@!,: ( @"d4Do0D1D+o0D1D+o0D.1D+o0D1D1+A`@+odB *T"Em+o,+A+o
-d@6J1+b Jd`+
2d@.
2a@ +
*Q
(u
- 2 FL+
J,
/
W5j%
/
V4*%$
6.j6 J0D+a *"~ W/V8$T6+]l,,~4FAdPR&b1Fl1Fl1F l1Fl1Fld@1Fl 1Fl1Fl1Fl1Fl1F P(l@1FleP+A4D1D+0D+A+aP
?l+
0 1j,~d*@&* L&4J&*0,0l,~+l
&0L1L ( ,Y
d*@&* L%+$4J&&*1,1j+#,~0,:~,~4J01J? (D (+20*=+50*+-,>\"Y,^.* ,> ,^,~,>\"Z 1,^,~,>\"[,^,~,>Z",^,>,~,^,>Z" (T
9,^,~,R7@+L,5\H(!$@,D(,<+\[(0DZ+y+\"a,^,> (DJ\",^+-,>\"c,^,Z+;,>\",^,>\"f ""S,^+2,>\"i,^+r,>\",^,>\"l,^,~,> ([\"m,^+-,>\"p,^+-,>\"r,^ ,Y,>\"s *T d,^,>\",^6@++-,Z+;,j+-,>\"v,^
( (DA"l,$a@+y,>\"{,^,~,>\"~,^,m+-,>\" "Q(u,^
(,#++,>\",^+-,>\" ,^,Z+;,>\"
D@ },^+-,>\",^+-,>\",^,>\",^+- " D
,>\",^+-,>\",^+-,>\",^ ,(,",> (D\",^,~,>\"",^
(,#,>\"#,^+-,>\"% D@,^+-,>\"',^+-,>\"+,^,~,>\".,^ *,Z+-,>\",^,>\"3,^+2,>\",^,>\"6 Q((,^,Z+2,>\"8,^+-,>\":,^
(,#,>\"; D 0,^+-,>\",^,>\">,^,~,>\"?,^+- " D9,>\"A,^+
,>\"F,^+-,>\",^,>\"I "Q"A,^
(,$:
2,>\",^,,>\",^+-,>\"M " J,^+,>\",^,>\"P,^
(,$,>\"Q,^,5 (A" R+-,>\"U,^ ,(,",>\"V,^+-,>\"X,^+- " "[,>\"],^+-,>\",^,>\"a,^+-,>\"d "c,^+-,>\",^,>\"h,^+-,>\",^,>\"k D l,^+-,>\",^,>\"o,^+-,>\"w,^+ R " Dt,>\"z,^+
Y,>\"~,^+},>\",^+s,>Z" "},^,>\",^+
A,>\",^,>\",^+-,> ( D\"
,^ ,Y,>\",^+-,>\",^ ,Y,>(\",^,>\",^+-
# ,,> /(R"ce HHnHn((Hv( @@`(H`(H
5*U*U3(383H3X3`3p4444 40484@4H4X4h4x 5555@^
STARTINGFORTRANDDT+-GJQJ(R@~`N\C+To return to FORDDT, type "%FD )DT<ESC>G"%FDTPOV Program overlayed by ***[ Program suspended from FORDD 1TOpen section: ]in extended section,>\"4,^+gin high segment A:,>\"8,^+gin low segment at an unknown location,>\"? @(B,^+s + in 8KK|@KKigSC$\@S@
l* J;+
@
l* *@DKGJ;+-
:(,(,~HLP:HOSYS:HP%FDTEOH Error openin Sg help file%FDTNHF Cannot find help file; I'm sorry I can't help you%FDTCAB Ca P
\nnot allocate buffer for help fileHLP2FE+i+|em}R< qG3d++- ("Pd@(S H,P,> f D!,^,:,Z+<%Character string mu mst begin with single quote,>\"k,^+-H04D-+H FORMAT A
u:'<R.TRUE..FALSE.,>\",^+Y =SIHc?FDTD ]~TODimension tableRoverflow.h6hDh@h?FDTMLDD,Multi-levelarraydefini ,tion notallowed.-%FDTABXS,compiled"array,boundsexceededNo,>\",^+> *P(,a+-,:cNo pause requests,>\",^,>\"+,^ (A1+ |GROUP AFTER PAUSE LOCATED INN/A,>\",^+ SON ERROR,>Z" (9,^,>Z",^,>\"7,^+ WIF
(,+ c .
( *DB,+ RNo group specificationsGROUP ,
(,>\",^ * J4+
6 "J+ IS GLOBALl
+
~l
+
~l
+
~l
+
~l
+
~l
+
~ "
Sl
+
~l
+
~=g(Agw]!+N6$,^+
HEnter
P[ing FORDDT from routine 0@
~..-g(;,^ ("Ed+@@@COMMON)
,"+,>\",^+FormalDparameterCO@++ uMAINoPROGRAML#,>\"v,^+7statementg,>\"y,^+' A}line<+ Buffer full excess characters ignored,w?FDTIWI IOLST c all currently in progress:
Cannot process ACCEPT or TYPE until current IOLST is co mpleted.%FDTIWI IOLST call in progress at this breakpoint:
niWillcnotabeableTtoUp o(rocessnACCEPTqorTYPEuntilaIOLSTeisscompleted.%TryingtowritePtoGillegaltaddress m0;nwrongAmode???,>\"-,^+-%Trying towriteinOhighUsegment;OwrongO H9mode???,>\"5,^+-%TryingStoRreadfromillegaladdress;Swrongmode?? TA@A?,>\"<,^+-<0*0j+,~0%Improperbyteupointer;w Jrongumode?%Nullcharacterstring;Wrongtype???[ImplicituOPENHH 8E Rl@iProgram name: HS?FDTJSE HnH~o`nd+@?,D+A^<NUL> T[<DEL>,j,Z+;?FDTIAF Illegal argument format Type H for help?FDTI cPN Illegal program name?FDTMSN More subscripts needed?FDTBOI Bad octal input l?FDTLGU lower subscript .GE. upper%FDTNST Not 'START'ed?FDTNFV is not a tFORTRAN variable?FDTBDF is undefined,>\"w,^+p is multiply de }fined?FDTINV Invalid value ?FDTNFS Cannot find FORTRAN start address for ?FDTPRO Too many PAUSE requests?FDTCSH Cannot 'START' here?FDTNDT DDT not load ed?FDTCFO Core file overflow?FDTFCX Format capacity exceeded please re-type ?FDTICC Compare of two constants is not allowed?FDTIGN Invalid group number?FDTL NF is not a format statement?FDTNSP no such PAUSE?FDTCCN Cannot continue '?FDTNPH Can't insert a PAUSE here%FDTNSL No symbols loaded?FDTDNA Double preci 0sion comparisons not allowed?FDTTMS Too many subscripts?FDTSER Subscript error 8?FDTNAL Not allowed?FDTNUD not a user defined array?FDTSTL size too large A%FDTSCA Supersedes compiled array dimension?FDTNAR Not after a re-enter%FDTX IPA Attempt to exceed program area with ?FDTPAR Parentheses required?FDTFNR is a R formal and may not be re-defined%FDTNAA is not an array%FDTSPO Variable is Zsingle precision only?FDTNGF Cannot GOTO a FORMAT statement?FDTITM Illegal TYPE c modifier - S?FDTFNI Formal not initialized?FDTRGR Recursive group reference k?FDTIRS Illegal range specification?FDTMCD Compile program with the DEBUG switch t to type a format statement?FDTIER Internal FORDDT error - 1?FDTIER Internal FOR |DDT error - 2?FDTIER Internal FORDDT error - 5?FDTIER Internal FORDDT error - 6 ?FDTIER Internal FORDDT error - 7?FDTIER Internal FORDDT error - 8?FDTURC Unrecog
D"&\u3pSu3qIu3qTX
&a'j'd(h D")zu4}*u5%"+aXcw,J-d/u @"0?Y"DPu77Y);\2l5frz9]R+G`By D"wgob2bP9&x7}@)D;B8H=)ob9)vw8PQ- @"RA[u#gSR b.&.J:Jo5:K*-:[w2;w0;#' @"G?(RG@MUPD5A
#Dm
: D"-%J
8Dm
,-%J"
.-%J#
9Dn
+-%J7
9-%KB
"-%LA
8.2A+ D".2B,.JE)XwHO]\,M
d4n@]4nN^4nK;
g4nMY
i DO ^]29^>
QO
S5':PO`wF
<6%.
a6%.
a6%.
< D"6%.
Y6%.
k6%.
qa
H6|A:R:e;R:e_:f
9 R:f#[ R:f4.PDD8mD
G8[S G>KtP|KG?#&~
GD7S DP(.TmHFmnP- HXi_HY}?HYI&! J2/&x D"JPpHCJQCvJ[;=mJ[<kKthLK}&KKhLK.K#l!j D"
Ks KcKD=[KDHZKo%Ko&Ko0 JLgZJLzU JL JL=AKQ~]KQ~
M+2M9HM**
MC"NR
)R; D)R<)R<)R=PR)TYKM>HC)O2+T2
d@O(gMP^6] +P*R]|?gR^PbDPb'7 D Pb>hYg ^g
ZGE&,a&-2k~/k~ Ek~
Hk~
O D"&-lk~7&.j&/A&0Parjarja{a{j D"Ra`Gl(^lhVl ^a`=ga`GRa`^.a`c"l?\ D"a`eC6'1Xl')\al$hal$ial$jxal$jtal$nfl')
al'}ll'9pd ($?en g!6]P
GP?:PM7 D"gsB
gsmygsn t?DP>-r-t/w D/y0|0Rw-,nH
x#^
z"nzz"pqz"prD D"z"prAz"ps(aG] C9N:}
8Hm}*2Pa_oCO\U* D"b^Y1O Kw(y Kw)| Kw) Kw* Kw* Kw+ Kw+ D" Kw, Kw, Kw-Y1T Kw< Kw= Kw= Kw>% Kw>* D" Kw?, Kw@2 Kw@9Y2V KwP; KwQ> KwQH KwRK KwRS D" KwSX KwS[ KwT] KwTb KwUdY2] Kwdi KwemY3` D"Y3iY4pY4sY5w^}D^$Hw K{ K{4r
`RJoSuHA7$SXW}uS]
Hr%P+QH D"og Rx Rx Rx
c)*2$ XQ)` WJ# @65.76MGS6`PR f f f# f& f " fSoJm e~]M xL[f/ ~*Pf4
cM@ D"I8f}^f}H
& <Kz>KzF D"KzIKzKKzL
Kzy5Kz{9Kz|:
&%-K{I/ D"K{M3K|2cLJq
g
g`jS@$'@
B-8D^ 9 D"D^
'C\?S<o~ (7t= D"(Ag(Di(Di(Ds(T[,(V#0(bA9(bM*
MX D"S(yG(yKTc):A) ) Bmh
Ch
D" C) C*!h
%
]' Cf(Ph AN= m
m[ D" W[% X1hT7O,hX/ [U/h\* _:BuL
D uZI ue]vx!nt!|K@(U']D!|: !|:!|; D"(T(T!(TG(T0S
NtKV(TS{C(TVb(TVw?(T]:(TtJ8(TvjU(U
9,(U
:/(U (XwBS)K+luK+l{9@K+mS,mg@
aSg
b:1.R*,1 @"
b7M1";uP
dM
h
h
h V0Bov
"M k"M & "0Cl#
P
h0D7b^0D?7c
h) a
j%K1y? K1yBjK1z@ @
k*B 1T6Bt1TOsS2'; >Aj<S,#u%NE$@cE$>[h @"E$\pjE$u;mPQsIQsI9PSX[SXh[g H%u
@ D"&I|Y
`&dS
9z
9{D"
9{sw]:$w]g#w]h.3
KyI"w^g"{TX
2[" KcPPJP
7a
7 D
6q1#"HT#+Y<T#,BT#XMt%?xP(E'MP D"P
%
$,G',H/&(YLg,")Ke+"pJcN.Q-LR-MRBUVY D"(H&8DVA)8QmY8Qmg
rA#@# D"AOb
~AW7
sAm;'AoY(As[7BABG?P}Rwqq5 D"SLyt~/S
Mk00pTXVYU!M
wd D 052=]5t_@_&_P;'_P1@@Ll[eV~HB( D"PAk1P@e1PAiA-u1PA|1PB1PB
1PCA} D"1PDrl.tol/;AEdl/W[^n`2g*p,40PTyPg@; D"q @[@2xTUATUBr:^3/
r:^Sr:F/r:J0rWf` D"U3!U3"s^;cJs^<J`20J>20;Yyru^HHpa91 Da94a:?v(c-,P
P
M
9HTM
j}HVHWtQCvtWtnzX
tz]@] D"{+H5{+Iz$%,$&%$&$'$'($(*$(" $+uRS
.-jd-B[z[S+PX3@ D KR4345x46 !ZZsP4<4_$
qg+&rOZ'$
~ D"
{4
}9
|
}I
x
}S
w
Y># 3
nK
K/ D"GSg-%>
lmevyz5
V t'y
[ D" t'z
_ t'{
b t'|
e t'|
h t'}
`iR/.PB/#.3"[ D"2W,G42`V%t0mi7"l7"p7"2lugg2mA4EuUU D"4EuVW4Ev|R5(a:^5(sOE*PYg*PZs5)o5)5U5):K D"5),f\5)C;4vOb
5!d*[z
5$:5$;5$;}5BW 1;-1;,~QKBY D"9cT9cVK6rNKD%9gNpX4MK}:-pZ8K!;] D"pZZ+L$ pM.~
M/Y
7wKyVM/a@PMPPJMPJ MPJMPSg+ "Pwb-VG(i
HVG(i
DVG(j
1}i
#}j
(}k
5VG)=
=}k
A}l
> "}l
BUVNvj@VS?+V\.V]W22 D"W.4k:g:g(:0-q] I
X
mj D":0-L:0.o:0.i:0/z:0/d:00U:00w:01a D"Y\mEY\o.(Y\t9LY\t:KY\tIY\{ hDUY]1"Y]4! @"Y]4#Y]]
P @#ZerZM
mPXPYPYPZ "PZP[c)=4=wV;--W;--W;-.X;-.X;-/Y D";-/Y;-0Z;-0Z;-1[ew;jifYvHF8Vcf[ Hf\1I D"f_gEF?yF?yF?zF?zF?{F?{f"
;/2 D"F3H
[jo!\;j$E;j&J;j'L @Ul)\;mMUlr
Ulr9UlrVUlrY[d2hlW/QilW/Qj D^~kcemWQ^gmXL|Umm[@Umm6GmsN';n;om~nS% D"m;m&m~a#<~a$~b&mOjMo+q@@)]o"bfW D"d h!o#E['<%8<%;qQe5kRHqR
ZJC5Vl( "VKP@A,+ +6b6<dt7+}IAuh 5Aui |Aui C D"Auj JAuj WAuk cAuk |Ry IR{ RR{ @R|
Mf
D"Mg
R|
R} :8(i< m8) p84E< s84w vP: F=S[' Hy/wCAP J\R+
Ckk+P"owCiggJ+eFP P P2i@P2iON36ON@IONK]OOwI(O/L`Oq+ `r%a[Qgg[l{fO[mg\.g\)7b\)8*`r'I1g\2gE\B:/O9RHOOqh OOrc WIMH@r%x