Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50127/matrix.sav
There are no other files named matrix.sav in the archive.
X &QP6Y 6Yj" 6Q- 0kx ,X x -j70 / ha-\ (U4 #-\ )p4 7 $ D {@@ z@@ z : Z (-\ %4 # @ ) ) Dhw1: 9 4-\ )m4 v/ x"@ s-\ )m4 v/ x"@ t-\ )m4 w/ y"@ t-\ )m4 w/ y"@ u $ D ) " Cb + G(' MATRIX REV. 7 JULY 1969'///) @@ * $ D *@@ q $ D q $ D r@@ r : Z ( ( Dh^@@hk1: 9 L : Z (@@hk1: 9 P " Sb + T(' *'$) -\
R4 *4 ^4 *4 l ^ D + $ D (" (. )5$ _ " \b + _(' ILLEGAL COMMAND'/) + G + (3D@+ b: (+ Y ( D +6b +0b 7 + e4 ~4 G4 4 4 4 @4 z4 4 4 4 ?4 F4 G4 I4 J4 b4 o4
4 4 %4 34 F4 [4 o4 4 4 4 34 44 64 S4 4 34 A4 B4 ]4 y4 4 )4 A4 B4 k4 4 <4 R4 V4 ^4 r4 _ D , $ 3D *g O & 3F *g O G 4$ l-\ 6L4 @ | l-\ 6L4 @ |@@ }-\
4 , r5d : Z ( . s@@u |$ |3: 9 + G _ D ,-\ ^4 , r5d -\ h4 ,+ G _ D , l D ,-\ ^4 , r5d -\ =4 ,+ G l D , $ 2D *+ " b + !(' INTERVAL SCALAR OMITTED'/) $ 3d *g O & 3f *g O G 4$ _ D , l-\ 6L4 @ --\ ^4 , r5d s D - -4$ 5d 0 | D . | D .+ 2 | D . | D . _ D / (3D /+ : $ D | . D |-\
4 / r5d $ D /+ ;@@ / . D | . D |-\
\4 -4 /4 ,4 -+ G $ 3D *g O & 3f *g O G 4$ $ 3D *+ H _ D ,+ K $2D _+ Z _ D , $ D q l-\ 6L4 @ | l-\ 6L4 @ |-\
4 , r5d -\ + G $ 3D *g O & 3F *g O G 4$ _ D ,-\ ^4 , r5d l-\ 6L4 @ 0 $ 2d 0+ " _b + c(5X,'ROW-COL COORDINATES - VALUE'/) : Z ("$ D * $ D * $ D r $ D q-\
R4 *4 ^4 *4 l l-\ 6L4 @ 0 l-\ 6L4 @ 1 |2$ 1g O |2& 0g O G 4$ s. 1"& . 0$ |. D - m - Du3: 09 d+ G _ D , $ 2D *+ _ D / $ D 1-\ ^4 , r5d s D 2-\
4 / r5d 3 |$ |D 2: &Z (F . 2u . sDu3: 29 + G %. *:D 3Z: Z (h.D ,-\ u |$ |3: 9 + G $ D 3 $ 3D *g O & 3F *g O G 4$ D , D / l-\ 6L4 @ | l-\ 6L4 @ | |$ |4$
5d 0 $ D | $ D | | D 4 | D 4-\ ^4 / r5d |2$ 4g O |2& 4g O G 4$
|$ |4D
s. 4"( . 4$ |. u D ,+ $ D 3 _ D ,-\ ^4 , r5d -\ q4 3 r5D + G $ D 3+ @ $ D 3+ @!$ D 5+ K!$} D 5 _ D , _ D / $ 2D *+ -\ ^4 , r5d s D - | D . | D .-\ ^4 / r5d |3D .g O |3F .g O G 4$ |$ | D 2 : Z ( 5 . s u . -Du3: 29 ]+ G _ D , $ 2D *+ _ D /-\ ^4 , r5d | D . | D | s D 2 . D |-\
4 /+ r5d -\ 6L4 @ }@@ 5 D ,-\ ^4 , r5d s D - | D . | D . $ 2D *+ D / ` D 6-\ ^4 / r5d | D 4 | D 4 s D 2 . D | 54D . D | . D . .2D 4+ -\
4 64 r5d -\ 44 5@@ }@@ 5+ G l-\ 6L4 @ } $ D 5+ r $ D 6 D , l D ,-\ ^4 , r5d |2D |+
,5d % s u D '-\ 5s4 ' @ ,@@ 3-\ 94 ,4 3 34$ 4D !"$ . 64$ 4D G+ 6b 60b 7 +"4 G4 &4 #4 M $ D 6+ s D - | D . _ D / (3D /+ 0-\ ^4 / r5d |3D .+ 0 $ D r+ @@ |-\ d4 -4 , r5d + G _ D , l D ,-\ ^4 , r5d s D - | D . |2D |+
_ D / (3D /+ B-\ ^4 / r5d |3D .+ C $ D r+ @@ |-\ 4 -4 , r5d + G _ D , _ D / $ 2D *+ -\ ^4 , r5d $ . s D 7 |2D |+
| D .-\ ^4 / r5d $ 2D |+ |2D .+ : Z ( . s u 7 Du $ . ..D 73: |9 U+ G _ D , _ D / $ 2D *+ -\ ^4 , r5d |2D |+
$ D |-\
4 / r5d s D 2-\ ^4 , $ . s D 7 : Z ( 7 u . 2 Du $ . |.D 73: |9 i+ G _ D , $ 3D *g O & 3F *g O G 4$ l D ,-\ ^4 , r5d |2D |+
$ . s D 7 : Z ( , 7Du $ . |.D 73: |9 |+ G!$ D 5 _ D , _ D / $ 2D *+ -\ ^4 , r5d s D - |2D |+
| D .-\ ^4 / r5d $ 2D |+ |2D .+ $ . - D 7 : Z ( 5 . s u 7Du $ . |.D 73: |9 + G!$} D 5+ $ D 3 _ D , _ D / $ 2D *+ -\ ^4 , r5d s D - | D . | D .-\ ^4 / r5d $ 2D |+ 6b 30b 7 +(4 *4 ,4 . |/ .4D 0+ |/ .4D 0+ "$ . .4D ,+ -\ 4 -4 .4 .4 3+ G $ D 3+ $ D 3+ _ D , $ 3d *g O & 3F *g O G 4$ l-\ 6L4 @ | l-\ 6L4 @ | $ 2$ |g O |0& g O G 4$ "$ . |5d G $ D | | D 7 |4$ 5d K $ D | | D 8 7$ 8 D | | D |-\
4 , r5d -\ 54 74 8 r4D G+ \ 4 D , $ 3D *g O $& 3F *g O G 4$ $ l-\ 6L4 D@ 7 l-\ 6L4 @ 8 81$ g O & 2F 7g O A & 2F 7g O H 4$ 85d g $ D 8 7 D | | D | : Z ( D 8 Z '-\ +k4 ,4 '4 9 (3D 9+ p1: 9 i $ D 9 $ 2d 8+ s $ D 9 8. 91d + w $ / 9 D 8@@ : 8 D : 8&$ D 3 34D
4 , r5d :4D : Z ( hg D ;-\ +r4 ,4 84 ;-\
4 ,D r5d 3: :9 -\ +4 74 8 r4D G+ $ 2D *g O & 2F *g O N 4$ l-\ 6L4 @ 7 D , D / 74D -\ ^4 , r5d s D - | D . | D .-\ ^4 / r5d $ 22$ |g O & 22& |g O G 4$ -\ Y4 -4 .4 .4 7 r4D G+ $ D ; $ 3D *g O & 3F *g O G 4$ l-\ 6L4 @ : l-\ 6L4 @ 7 D /-\ ^4 / r5d + RO@ ;+ 4 $ 3D *g O & 3F *g O G 4$ D / l-\ 6L4 @ : l-\ 6L4 @ 7 m-\ 6L4 @ | m-\ 6L4 @ |@@ ;-\
4 / r5d s D 2 | D 4 | D 4 _ D ,-\ ^4 , r5d -\ 4 24 44 44 :4 74 ; r5d + G $ 2D *g O & 2F *g O G & 2F *g O N 4$ _ D , _ D / l-\ 6L4 @ < $ 3D *+ m $ D 7 < D <+ o l-\ 6L4 @ <@@ 7 $ 22$ <g O & 22& <g O G 4$ -\ *4 ,4 <4 <4 /4 7 r4D G+ *0d g O & 3F *g O G 4$ l-\ 6L4 @ 8 l-\ 6L4 @ = _ D , _ D / =0d g O 80f g O G 4$ -\ ^4 , r5d s. = D -"$ . |4$ 4D $ 2D |+ | D = | D | = D | |/ =& 8.$ D | |3$ =+ -\
4 / r5d : Z ( - u . s Du 8.D -3: |9 + G $ D 6 $ 2D *+ _ D /+ -\
4 / r5d s D 2-\ ^4 ,-\
4 2 r4D G+ @@ 3 $ 2D *g O & 2F *g O H 4$ l D , _ D ,-\ ^4 , r5d s D - |2D |+
| D . $ 3D *+ = _ D /-\ ^4 / r5d |2D .+ + =@@ |-\ >4 -4 34 , r4d G+ $ D 3+ * $ D 6 *0d g O & 3F *g O G 4$ l-\ 6L4 @ = l D , _ D ,+ | D 8 $ D | 8 D | ` D >-\
4 > s D > r5d -\ 5s4 = @ | ` D 6-\
4 6 r5d s D ?-\ ^4 , s D - _ D /-\ ^4 / r5d $ 2D |+ |2D 8+ - $uXD f ? $uXD g > $uXD g-\ :4 f4 g4 g4 84 =4 8 r4d G+ $ 3D *g O & 3F *g O G 4$ _ D , _ D / l-\ 6L4 @ 8 l D , $ D | 8 D |-\
4 / r5d s D 2-\ ^4 , r5d $ 2D |+ |$ | D 2-\ y4 24 84 24 , r4d G+ $ 3D *g O & 3F *g O G 4$ _ D , _ D / ` D 6 ` D > l-\ 6L4 @ 8 l-\ 6L4 @ 7 m D , m D ? $ 2$ 7g O 70& g O G 4$ -\ ^4 , r5d s D - | D = $ 2D |+ -\ ^4 6 r5d | D 6 $ D ; $ 2D |+ "@@ ;"$ . |& 8 D | = D | s D .-\
4 > r5d s D >-\ ^4 / r5d |3D =g O & 3F |g O G 4$ - $uXD 5 . $uXD 6 > $uXD 6-\ !G4 54 64 64 =4 84 64 ,4 ?4 ;4 7 r4d G+ z D 2 " ?b z 2 + G(1X,I3,' MATRICES DEFINED, USING A TOTAL OF', I6,' WORDS OF STORAGE'/) z4D G : Z ( . s u D ,-\ ^4 , " Ob , | | + R(2X,A5,'(',I3,',',I3,')') (3: z9 H " Ub + V(/) + G *1D g O & 3F *g O G 4$ -\ "n4 _ r5D + G *0D g O & 2F *g O A 4$ m $ 2D *g O & 2F *g O A 4$ h+ l-\ 6L4 @ @-\ #_4 _4 @ r5D + G &2D _+ z D @-\ #_4 _4 @+ G $ 2$ *g O & 3F *g O G 4$ *5D y!$ D l _ D , $ D | l-\ 6L4 @ 3 3( D |-\
4 , r5d -\ $n4 3+ G $ 2D *+ _ D , ' D ,+ 5 $ D r+ $ D r+ $ D r+ $ D r+ " b , + (2X,' MATRIX ',A5,' IS NOT SQUARE'/) + G-\ 7+ G " b + (2X,' ERROR IN COMMAND STRING'/) + G " b + !(2X,' ERROR IN MATRIX LOGIC, COMMAND STOPPED'/) + G-\ 4a + 0 TAPE h$0c=tALL x&[GK x' |x@ZERO REMARPRINTMAP ENVELLOAD DUPL DELETSCALEMSCALSQRELINVELLOG ADD SUB TRANSMULT TRMPYSYMCKSYMNVINVRTSTODGRMVDGIDADDDGADDDGSUBDGPREDGPSTDGMPYFORMKFORMDMERGESTOSMADDSMRMVSMDELRCSELCTCHOL1CHOL2CHOL3EIGENFUNGNRESPNLIST EDIT GET SAVE FEM RANK 0f0 1 2 3 4 5 6 7 8 9 d}+ 4 ~
]*
d
d,!p
n3$
eg O
m2f
eg O A D
h!<
]*<
h-|p q5D $ 2 D q r5D $ D r@@
o@@
o@@
p q1d g O
f1& g O G 4$ " b + ('+#'$) -\ D4
w4
[ " B~
w4 $ + (73A1) !$ D
p!$ D
q@@
q:
p
p
v D
r
m2D
rg O
k2F
rg O G 4$
3
j3$
rg O
j2f
rg O A 4$ /-\ ~4
r4 Q
l3D
r+ K
l3D
r+ h q5d +
8
f4d -
p D
r:
o:
p
p
v D
r
m2D
rg O
k2F
rg O G 4$ 9+ 1"$ .
p D
s $ D
s
r Z
t $ . r
s&& .
o3$ + F
o.
g $ XD C $h
vXD D-\ +r4 C4
s4 D:
s3:
s9 <"
r.
s&$ .D
o
[
g3D +
N+
3!$} D
p:
p
p
v D
r-\ ~4
r4 Q
l3D
r+ h+ -
g4$ -
p D
r:
p
p
v D
r-\ ~4
r4 S
l3D
r+ _
m2D
rg O
k2F
rg O H 4$ - $ D
t+ ` $ D
t"$ .
p D
s-\ -4
w4
r4
s4
q
p D
q6b
t0b 7 + f4
/4 k@@
q:
p
p
v D
r+ p:
p
p
v D
r
k3D
r+
/
k3D
r+
-\ ~4
rJ 4 -
p D
r:
p
p
v D
r-\ ~4
r4 s
k3D
r+ ~
m2D
rg O
k2F
rg O H 4$ - $ D
t+ $ D
t"$ .
p D
s-\ -4
w4
r4
s4
u-\ 6G4
r @
i-\ 6G4
s
i!$ , 5F
u
pF
q6b
t0b 7 +
4
/4
:
p
p
v D
r
l3D
r+
n2D
r+
:
p
p
v D
r+
!$} D
q:
p
p
v D
r
p D
r
\3D
r+
-\ ~4
rJ 4 -:
p
p
v D
r-\ ~4
r4
m2D
rg O
k2F
rg O H 4$ -"$ .
p D
s"$ /
r.
s5d --\ -4
w4
r4
s4
u
q
u-\ 6L4 @
v!$
v, 5] D
q:
o q3$
o+
3
q
o.
h D "$ #.
p4d
o/
g4D
N5d
A q5d
"
o.
g D
v "
<b
o
v +
@(1X,I4,' VALUES STORED ** ENTER',I4,/) +
q1d g O
f1& g O G 4$
N
o/
g D
v "
Ib
v +
N(1X,I3,' TOO MANY VALUES ENTER & OMITTED'/)
o D
g
o D
f@@ q@@ r+
W+
W4 Z
e \
f
f,!p , p ,!p , p + }
e
f\
h/ ,Ap / ,Ap -|p $REMARx
\+ 0
iA Z E . - , 0 9 + |` @@ 8 73$ 7+ , 7 Z 9 . 6 D 9 : Z : 92Dh :+ ("$ . 4$ %@@ :!$ 8-\ 6G4 : @ 8+ * :1: 9 ! 93: 79 + ,@@ 8+ 2+ 24 Z 5 \ 6 6, p ,!p ,!p ,!p + 5 6\ 8,Ap ,Ap ,Ap -|p ~ :1 2 3 4 5 6 7 8 9 0 : Z M M . K D 3: L9 @+ H+ H4 Z J \ K K, p ,!p + ? J K\ L,Ap -|p x L } M $ D f" f. z4$ \" e f. s.u4D T: f+ O f. t v D | f. t v D | f. u w D {-\ )m4 u/ {"@ s+ ] $ D r+ a+ a4 Z d \ d d,!p + N d d\ e,Ap -|p x f $ D
'"
'. z4$ x"
%
'. s.u4D l:
'+ g }4$
4D w "
b |
'. t/v5D
|
'. t/v5D
'. u w D {+
$ D r+
: z"$ 2. z5D | $ D r+
|$ |.D z $ #/ z5$
$ D r |$ |/D z"` z> z+
z3d {+
-\ !w |$ | D
&-\ %4
& @ { | z. t Dv | z. t Dv
% z. s Du { z. u Dw-\ )m4 u/ {"@ s+
@@ } $ D r+
$ D r+
+
"+
(' THE MULTIPLICATION RESULT WILL BE ADDED TO THE MATRIX',' IN FIELD C'///)+
"4 Z
$ \
%
%,!p + f
$
%\
%,Ap -|p x(
' : Z
h@@
i
g D
i
g5d
."$ .
h$ |.$ D
j+
/
h D
j : Z
j
j.
f $uXD
2-\ 5s4
2 @
k
i
k5$
7
k D
i
i D
k
g5d
9:
j+
: |.D
j
gD
i
j3: |9
/
f4d
?
i
h. s Du
g5d
D "
Kb
h
k
i +
G "
Sb
h
k
i
h3: |9
( "
Jb +
K(/) +
a+
S(' ROW NUMBER',I4,3X,'INTERVAL = ',1PE12.5,3X, 'MAXIMUM VALUE = ',1PE12.5) +
\(14H COLUMN NUMBER,I4,2X,10HINTERVAL = ,1PE11.4,2X,16HMAXIMUM VALUE = ,1PE12.5) +
a4 Z
e \
e
e,!p ,!p ,!p ,!p +
'
e
e\
g,Ap ,Ap ,Ap ,Ap -|p zp
k"$ 4D u4D
r:
m. u$w4D {> z s. Du & . t. v t. Dv & . t. v t. Dv & . u. w u. Dw3: z9
|-\ ("4 r+
l\ -|p }h|.D ,!p + t + " b + "
b + " b <5D (U4 :+ " .b -\ 4a " b + " b + " b + " !b + " $b + 9+ (2X' MATRICES INCOMPATIBLE'/) + (2X' MATRIX UNDEFINED'/)+
(2X';OPERATION UNDEFINED'/) + (2X' MATRIX PREVIOUSLY DEFINED'/) + (2X'STORAGE EXCEEDED'/) + (2X' OVER 100 MATRICES IN CORE'/ ) + (27H ILLEGAL TAPE USED ) + !(2X' STRICTLY POSITIVE NUMBER HAS TAKEN ON NEGATIVE', ' VALUE'/) + $(2X' SCALAR UNDEFINED'/) + *(2X,' INVALID ARITHMETIC OPERATION ATTEMPTED'/) + .(2X,'PROTECT MATRICES WITH A "SAVE" '/) + 1(2X,'ERROR EXIT'/) + 6(2X,'DELETE ALL MATRICES NOT IN USE IMMEDIATELY!')+ 94 Z ; \ ;+
yx< " cb n | | : Z o |/ D p"$ . p4d E $ D p $ . p D p : Z q"$ . o. Dhr3: p9 G " ab : Z q r3: p9 L : Z q"$ . $ |. o D q p. q D r " b q q Z r . su3: r9 V q 3: |9 O o.: 3z |+ @ " fb + k+ a(I4,5(1X,1PE12.5)) + c(/1X,I11,5I13/)+ f(2X,A5,'(',I3,',',I3,')')+ g(//) + k4 Z m \ n n,!p + = m n\ n,Ap -|p } u " wb + z(2X,' ENTER MATRIX BY ROWS'/) $ D
R4 4 4 4 |.D
+
4 Z \
+ u
-|p y@ : Z F" . | D F"$ . F4d $ D F $ . F D G : Z G"$ . F. DhI3: G9 " :b : Z G I3: G9 : Z H"$ . $ |. F D H : Z I"$ . H. D I I. s $uXD '-\ 5s4 ' D5` * E I DI+ , E I DI I3: G9 " " 8b H : Z I I3: G9 / H3: |9 F.:
3z |+ " <b + @+ :(I5,20(2X,A1)) + <(1H0,4X,20I3) + =(//) + @4 Z C \ C C,!p + C C\ D,Ap -|p pD. * {XS |$ | D x"$ . w4D \5d ` : Z y . s u4$ o3: x9 X+ ` : Z y . s u4D o3: x9 \ : Z y"$ . w4D g5d i y. s $uXD e-\ 5u4 e @u+ m!$ y. s Du+ m y. s $uXD l-\ 6 4 l @u y3: x9 `+ p $ D r+ t+ t4 Z v \ w w,!p + T v w\ w,Ap -|p qhy |( D m-\ %4 m @ n-\ )m4 v/ n"@ n n. |-\ )m4 v/ "@ o : Z o"$ . $ | D p : Z p p. D q q. l u n. Du3: |9 n. o u D q-\ 5s4 q l4` V : Z p n. u q o. "Dv3: |9 |4$ _4D "$ . o$ |.$ D r"$ . |. r D r r Z q . s u q Du3: r9 $ D s : Z p s D s Z q n. p u o. v l. sDu l. s u l. s Du |.D s: s3: |9 # p.D s p3: |9 |4$ _4D A $ D t!$} D t : Z p o/ 5D 8 |.D t!$ D t+ @ r Z q t n. p u . s u s. tDu"`u: t3: r9 9 p3: |9 3!$ q o. o"Dv o D s : Z p p. D q o. v q. l Du o. v l. s Du |.D s3: |9 F o3: |9 |$ | D u : Z p . l"`u3: u9 S+ ` " Xb + _(' AN ACCURATE SINGLE PRECISION INVERSE CANNOT', ' BE COMPUTED'/)+ `!$ D u |( D m-\ ("4 m4 n+ h+ h4 Z k \ k k,!p ,!p + y k k\ l,Ap ,Ap -|p |0v : Z : Z . "& . $ . D "$ . 4D 5d . s u Du+ . s u Du+ . s u . Du 3: 9 x 3: 9 w+ + 4 Z \ ,!p ,!p ,!p ,!p + w \ ,Ap ,Ap ,Ap ,Ap -|p { : Z B Z C"$ . B$ |. D C"$ . $ |. B D D C. s u D. su D A-\ 5s4 A @ D D @4d . " 1b B C C. su C B D. su $ D A C3: |9 B3: |9 + <+ 8(3X,'(',I3,',',I3,') =', 1PE14.7,5X,'(',I3,',',I3,') =',1PE14.7/)+ <4 Z ? \ @ @,!p ,!p + ? @\ A,Ap ,Ap -|p dHD@@ #" 3$ "+ HO@ #@@ "!$ D $-\ %4 | @ $-\ )m4 // $"@ %-\ %4 | @ %-\ )m4 0/ %"@ & : Z &" %. D/3: |9 Q : Z & D '@@ ' : Z ( %. /5d i ( D ( : Z ) %. /5d g (. ! $uXD `-\ 5s4 ` @ "-\ 5s4 ' "5 g ( D ) ) D * (. ! u D ' |.D ( )3: |9 [ (3: |9 W"$ . &4$ 5d s "4$ 5d q ' D "-\ 5s4 " @ " " b " -\ 5s4 ' "4` | %. )"/-\ 6G4 @ * %. * / %. ) D/ * %. *-\ 6L4 @/ ) D ( * D ) : Z ( (. ! u &. D/ ). ! u (. ! Du &. / ). ! Du |.D ( |.D )3: |9 ' D $"$ . *$ |.$ D +"$ . |. + D + + Z ) . ! u '"Du3: +9 |4$ 4D ""$ . *$ |.$ D ,"$ . |. , D , , Z ) . s u ' Du3: ,9 $ D ( $ D - : Z ( / *5D ) |.D ( |.D -+ > + Z ) &. ( / . ! u (. !Du: (3: +9 * |4$ 4D > %. ( /4d 5!$} D -+ 6!$ D - , Z ) - &. ( / . s u s. -Du"`u: -3: ,9 7 (3: |9 $!$ &. * D/ * D ( : Z ) &. / ' (. ! Du |.D (3: |9 C &3: |9 T : Z &@@ (: (" & %. (./5D L"$ . ($ |.$ D )"$ . &$ |.$ D ("$ . ($ |.$ D ."$ . &$ |.$ D . %. & / %. ( D/ & %. & D/ : Z / ). ! u D * (. ! u ). ! Du * (. ! Du: (: )3: |9 _ |4$ 4D s : Z / s. . u D * s. . u s. . Du * s. . Du: .: .3: |9 j &3: |9 K #4$ " xb $ + {(' DETERMINANT =',1PE15.7/) + #4$ " b * ) ' + (2X,' (',I3,',',I3,') =',1PE14.7,3X,'WILL NOT', ' PRODUCE'/' AN ACCURATE SINGLE PRECISION INVERSION'/) + (9H SCALAR= 1PE15.7/) + > ' " b ' + (' RANK =',I5/) + $ D r-\ ("4 |4 $-\ ("4 |4 %+ + 4 Z \ ! !,!p ,!p + E !\ ",Ap ,Ap -|p $84x 0c=tnH0 =$ = D > >$ > D ? : Z ? . s@@u3: ?9 4 : Z ?@@hH1: 9 8 " ;b + @(' ENTER THE FOLLOWING DATA FOR EACH MEMBER'/) $ 3D =+ H " Cb + G(1X,' I ,SHEAR AREA, L , E'/) $ D @+ O " Jb + N(1X,' I,SHEAR AREA, L , E ,AREA'/) $ D @ : Z ?" @ D @ @ D A $ D r $ D q-\
R4 @4 @4 A4 H H D A I D B I D B J D C J D C C ; D D B4$ 35d _@@ D+ d B B D!&@ C A F D DD $ B!& D CH A F E DD $ B!& D CH A F E $ . s & . >"( . ?$ =$ . D F"$ . =4$ {5d C C B F Du $ . >.D F E F Du: F E F Du"$ . >.D F E F Du: F E F Du+ 1 DD $ B B !& @ C A F F BD F D G F F Du F D G: F" G F Du: F" F F Du: F" G F Du $ . >/ =.D F" G F Du: F E F Du: F G F Du: F E F Du $ . >/ =.D F" F F Du: F G F Du: F F F Du: F G F Du $ . >/ =.D F" G F Du: F E F Du: F G F Du: F E F Du ?3: =9 O+ 4!$ D H+ 8+ 84 Z < \ < <,!p ,!p + 0 < <\ =,Ap ,Ap -|p SLfcJ 3 D 5 5$ 5 D 5 : Z 6@@hF1: 9 N " Qb + W(' ENTER THE FOLLOWING DATA FOR EACH MEMBER'/) $ 3D 3+ [ " ab $ D 6+ g " ]b + `(3X,'I , SHEAR AREA,'$) " ab + f('+ E , CROSS-AREA, X1 , Y1 , X2 , Y2'//) $ D 6 : Z 6 / 3. z. s u D 7-\ ^4 7 : Z 7 . s@@u3: 59 m 6 D 8" 6 D 8 $ D r $ D q-\
R4 84 84 84 G $ 3D 3+ @@ 9@@ 9 G D : G D : H D ; H D ; I D < I D <+ G D 9 G D 9 H D : H D : I D ; I D ; J D < J D < : 1 D =" ; < D =" ; < D > = > D 4-\ 5u4 4 @ > > > D ? = > D ? $ . s D @ : : > D @ " b > + (5X,'LENGTH =',1PE14.7//)"$ . 34$ )5d 7 ? @ @ Du @ D A: @ ? @ ? @ Du $ . A D A: @ A"u @ Du: @ A"u @ Du: @ A u @ Du: @ ? @ @ Du 5. A D B: @ A"u @ Du: @ B"u @ Du+ 94$ )5d :@@ B+ > > 9 =!&@ : 9 F B BD $ > > !& @ : 9 F C >D C D C BD $ >!& B :H 9 F D BD $ >!& B :H 9 F D ? C ? @ @ Du @ D A: @ @ C ? ? @ Du: @ $ . A D A ? C @ Du: @ A"u @ Du: @ A"u @ Du: @ ? C @ Du: @ A u @ Du: @ ? C ? @ @ Du 5. A D B: @ ? C @"Du: @ A"u @ Du: @ B"u @ Du: @ ? C @"Du: @ ? C @ Du: @ ? C @"Du: @ D @ Du: @ ? C @"Du: @ ? C @ Du: @ D @ Du: @ : Z 7"$ . $ 5.D @"$ . 3. @ D E"$ . $ 5. A D E @ Z F E"u Dhu: E3: E9 71: 9 "$ . 34$ )4D '"$ . 7$ 5.D @ ? C @ Du: @ ? C @"Du: @ D @ Du: @ ? C @"Du: @ ? C @ Du: @ D @ Du 63: 39 h+ *!$ D F+ .+ .4 Z 2 \ 2 2,!p ,!p + K 2 2\ 3,Ap ,Ap -|p SLfm K $ $ | D e-\ %4 e @ e-\ )m4 k/ e"@ f |. e-\ )m4 l/ "@ f-\ )m4 l/ e |( / "@ g-\ 5s4 d/ 4 U5` u |/ |5D T " \b + b(2X,' SYMMETRIC MERGE - ENTER ROW-COL COORDINATES'/) | D g" g D h | D q $ D r g $lXD j-\
R4 h4 h4 g4 j : Z h g. l f. -\ 6L4 @k g. l f. -\ 6L4 @k3: |9 k+ " vb + z(2X,' ENTER ROW COORDINATES'/) | D g" g D h | D q $ D r g $lXD -\
R4 h4 h4 g4 O: AZ h/ g. Dl f. -\ 6L4 $@k3: |9 $" b +
R4 h4 h4 g4 &: Z h g. lD f. -\ 6L4 D@k3: |9 : Z hD f. $kXD -\ 5s4 / c5` T3: |9 : Z iD f. $kXD %-\ 5s4 %/ c5` T3: |9 " : Z h f. k4D R5d 0!$} D i f. h $kXD .-\ 5s4 . @k+ 1!$ D i : Z i f. k4D P5d 6 i4D U5d ;!$ D j f. i $kXD 9-\ 5s4 9 @k+ ?!$} D j f. i $kXD >-\ 5s4 > @k"$ f. h.k$ c f. i.k D j"$ . h$ |. i D k d4D U5d L i j k. s u j. b Du+ P i j k. s u j. bDu i3: |9 1 h3: |9 (+ V $ D r+ V $ D r-\ ("4 e4 e+ ]+ ]4 Z a \ b b,!p ,!p ,!p ,!p + K a b\ d,Ap ,Ap ,Ap ,Ap -|p zHl $ . |/ / 4$ r $ . |/ / 5$ s $ D r+
. u . s Du+
. s u . Du 3: 9 { 3: 9 t+ + 4 Z \ ,!p ,!p ,!p ,!p ,!p ,!p + m \ ,Ap ,Ap ,Ap ,Ap ,Ap ,Ap -|p mH -\ 674 54 5 @ 8-\ %4 8 @ 8-\ )m4 A/ 8"@ 9 5. 5 D 7-\ %4 7 @ 9-\ )m4 @/ 9"@ : 5. 9-\ )m4 @/ "@ : 64$ #4D J 5/ 55D " 54d # 5 D ;" ; D ; " 5b + 9(' ENTER ROWS-COLUMNS TO BE DELETED'/) 8 D q $ D r 9 $AXD ?-\
R4 ;4 ?4 ;4 ? : Z < 9. @ :. -\ 6L4 @? 9. @ :. -\ 6L4 @@3: 59 @+ t 54$ #4D _ 5 D ;" ; D ; " Ob + S(' ENTER ROWS TO BE DELETED'/) 8 D q $ D r 9 $AXD X-\
R4 ;4 ?4 ;4 X : Z < 9. @ :. -\ 6L4 @?3: 59 Z 54$ #4D t 5 D ;" ; D ; " db + h(' ENTER COLUMNS TO BE DELETED'/) 8 D q $ D r 9 $AXD m-\
R4 ;4 ?4 ;4 m : Z < 9. @ :. -\ 6L4 @@3: 59 o-\ ^4 4 r5d $ $ . s D ; | D < | D = 54$ #4D : Z < < :. /?4$ "3: 59 { 54$ #4D : Z = = :. /@4$ "3: 59 " 5. < D |" 5. = D |-\
4 6 r5d $$ . sD > : Z > : Z ? 54$ #4D : Z < > :. /?4D 3: 59 54$ #4D : Z = ? :. /@4D 3: 59 ; u > Du: >: ; ?3: =9
+ $$ D r+ $($ +D rI 5. 5PD 7-\ ("4 74 9-\ ("4 84 8+ /+ /4 "Z 3"\ 4. 4,!p ,!p ,!p ,!p ,!p + K/ 34 4\d 6,Ap ,Ap ,Ap ,Ap ,Ap -|p v A. |$ | D 4: 5Z " . @@u3: 9 D+$ 9D / . s$u.D . 4$ -\ 5u4 X . 4@u: 5Z + s. 9u . u . "Du3: |9 N+: 4Z 5$ . 4D "$ . .D "$ . $ |. 5D " . s$u. . UDu4: 5Z C |$ / "D I . 4u + . Du"`u3: 9 ^S . 1u.D 4$ -\ 5u4 . . @u" |. 5$ .D 4 Z : . s3u9 . Du.: Z + |$ / "D 4 |$ / "D $ . .u+ . u" . Du"`u3: 9 r" . .u4 . u9Du 3: |9 mX 3: |9 T+ H4` * |4$ /4D : Z L"$ . L$ |. $D M. G4$ /5d o. L D N+ q"$ . |$ |. L D N : 3Z O9 J. 3P9 s. N u M. sDu"`u G4$ /5d z |.D N+ {" |.D N- O3: M9 r4 M. s4u4 J. K P5Du L3: |9 i"$ . L$ |. L D N!$ J. K P G. N Du : Z L G4$ /5d
J $ NXD K $ OXD -\ B4 F4 G4 F4
4 4 F4D 0-\ 5s4 F @ N $ D L : Z L DXD J $ NXD J $ NXD ! . E $ XD ! L. E $ XD " K $ OXD " K $ OXD #-\ 4 F4 G4 4 4 !4 !4 "4 "4 # G.D L3: N9 : Z L : Z L"$ . $ G. L D M L. s u M. E D 3: N9 ' L3: F9 &+ 3 D E D !$ E D -\ ("4 F4 H-\ ("4 F4 H-\ ("4 F4 I-\ ("4 F4 I+ @+ @4 Z C \ D D, p , p , p ,!p ,!p ,!p + Q C D\ G,Ap ,Ap ,Ap -|p gx P"$ . D $ . D / D $ . D @@ : Z : . . D . /Z 7 " 4f X @@ "$ . 4$ u4D r@@ : Z "$ . $ D : Z " . 1$ + l . . $ XD k-\ 5s4 k@ 3: 9 f "$ . 3: 9 c 5d { D 5D u D . D & / $ . . D @@ : Z . D . D $ . D "$ . 4$ u5d
: Z "$ . 5D
3: 9 " vb O@ r+ u@@ Z . D 3: 9 -\ 5u4 @ . " D -\ 644 4 . @ !$ D . $ XD -\ 5s4 @ -\ 5u4 . @ . D . &'XF #-\ 644 4 # @ . . D Z . D . . D . . D 3: 9 ( Z $ . D . @@ . D Z .D . . . D 3: 9 7" . 5d H Z : . . . D 3: 9 @ 3: 9 1@@ Z . . D 3: 9 I!$ D Z . . D 3: 9 P D .D Z .D Z . D . . .
.
/
.
/ ND 3: 9 YA 3: 9 W 3: 9 |'$ GD : EZ S . V -D c . O . 'D E O . ID .D 3: 9 i . . D + 5s4 4@ ?5` A . . D " . . D . . D . "D . D / 4D N . D + N 5D A D . D . D . @@ . . "D . D 3: 9 % 4D k!$ . D D . . $ . . "D . . ' D > 4D m . . $ . '"D . D + . D + S-\ 5u4 @ : Z . D 3: 9 p $ / D D + > " .D @@ Z . D . . D 3: 9 z Z . D . . D "` 3: 9 5D w+ + 4 Z \ ,!p ,!p , p , p , p ,!p , p , p , p + \ / ,Ap / ,Ap ,Ap -|p {>7{(RPdj R $ XD "-\ 5s4 " @ W : Z W . S . R &'XF )-\ 5s4 ) @ T-\ 674 W4 T @ W3: P9 $!$ D W : Z W . R W D . S W D !$ . T D !$} . R D 3: P9 / : Z X X. T $ XD =-\ 5s4 = @ T X. R $'XD @-\ 5s4 @ @ U-\ 674 T4 U4 L ' M4d X. T X. R D D X $ D V" X R S D S 5$ PO@ U@@ Y+ R $ D U $ D Y : Z W . S 4D j W. S 4D p W. S $ XD Z-\ 5s4 Z M @ T $ ~XD ]-\ 5s4 ] T5 b N W. S D N W. S D ~" X W. R W. S
W.
S / ~ D + x" X W. R -\ 644 N4 U W. S @+ x" X W. R W. S
W.
S / H T-\ 644 T4 V "@ U D V W. S 4D W. S $ XD ~-\ 644 U4 ~ @ U V. U4D : Y W3: P9 S" P.D Y"` Y" X. Y4$
X Z Y X . T D 3: Y9 : Y P/ Y4$ : Y Z Y X . R 4d : X . R D 3: P9
+ : X3: P9 : : Z W W . R D W . S D . T . R WD . S D 3: P9 P D Y $ D X : Z W Y. S $ XD %-\ 5s4 % @ T X. S $ XD )-\ 5s4 ) T5` . Y. S W. R D > Y+ 2 X. S W. R D : X W3: P9 "-\ 644 O4 Q5 A : Z W . R . S D 3: P9 6 P D Y : Z W Y. S . R D > Y3: P9 <+ H+ H4 Z O \ P P,!p ,!p ,!p , p , p , p , p , p + O P\ T/ ,Ap ,Ap ,Ap -|p q}:k|Srkt,\5}% 0 { Y $ . ! D ! $ . s D ! ! u D !"$ / !. s. !4$ g !"uv D ! ! vu D ! $ .D ! !4D ^5d i $ D r+ x ! ! D !" ! !u4d ^ ! !t !t ! Du !D !: !" !. !. !4$ x5d j" ! !u4$ ^5d l ! u ! Du+ ~+ ~4 Z ! \ ! !,!p ,!p ,!p ,!p + Z ! !\ !,Ap ,Ap ,Ap ,Ap -|p v8!: !Z $ D ![ !YD D !\ !\ !Y !T D !\ !\D D !] : Z !] $ . !X D !^ . !V D !^ !YD . !V D !_ !\ !_$ !\ !^ D !_@@ !`@@ !`"$ . $ !X$ !Z.$ D !a !a. !V . s u D !a: !a"$ . !a. !X D !b !a Z !b !\ !a !` D !c !Y !` !` !] !a D !c . !V !]. s u !_ !c !^ !c !_ D !a !\ !a !c D !` !\ !a !c D !` !^/ 5D !C6b !Z0b 7 +!94 !;4 !=4 !@ !` ![. !W D + !B !` ![. !W D + !B !a ![. !W D : ![ !X.D !^ !b3: !b9 !% !]3: !W9 !+ !O+ !O4 Z !U \ !U !U, p , p , p ,!p ,!p ,!p ,!p ,!p ,!p ,!p + ! !U !U\ !Z,Ap ,Ap ,Ap ,Ap ,Ap ,Ap ,Ap -|p X }!c $ .D { : Z !| hw D !}-\ %84 {4 !} @ !}"$ . { D !{-\ ("4 !{4 !} !} Dhw1: 9 !e-\ )m4 v/ x"@ s-\ )m4 v/ x"@ t-\ )m4 w/ y"@ t-\ )m4 w/ y"@ u+ !y+ !y4 Z !z \ !{+ !d !z !{-|p q !} "s D "x-\ %4 "t @ "x-\ )m4 "/ "x"@ "y "v D "@@ "y $ D "z@@ "z $ D "{ "y $"XD "
-\ *n4 "t4 "4 "z4 "
@ "{ "{5D "O $ . "{1$ @+ ": "z "y $"XD "-\ *n4 "t4 "4 "z4 " @ "{ "{5D "O $ D "{ $ 3D "z+ "L : Z "| "y. "{ $"~XD " Z "w-\ +k4 "4 "w4 "| Z "w-\ +r4 "}4 "w4 "|1: 9 " & . "y. "{ "~-\ 6L4 @ | & . "y. "{ "~-\ 6L4 @ | $ .D "{ |$ | D "}-\
4 "} r4D "5$ 2D r+ "]@@ r"$ .D "{-\ ' REPLACED'/) + "@@ "~: "y : Z "~ "{/ "~. 1$ @+ "A: "z "y $"XD ">-\ *n4 "t4 "4 "z4 "> @ "{ $ D "{ D "~ "y. "{/ "~. "~ "~ "~. s Du "~3: "}9 "7 $ . "{/ "~. "~ D "{ $ @2d "{+ "L $ D "z+ "@@ "z "x "y. "{3D"~+ "]+ "
" "Qb "{ + "T(1H ,'ERROR ',I3/) $ 2D "{+ "X " "Xb "4 + "\(1H ,'FILE ',2A5,' NOT FOUND'/) @@ "{+ "b "y $"XD "`-\ *n4 "u4 "4 "z4 "` @ "{ "{5D "O-\ ("4 "t4 "x " "gb "y "4 + "m(1H ,I3,' MATRICES RETRIEVED FROM DISK FILE ',2A5/) + "q+ "q4 Z "u \ "v "v,!p + !~ "u "v\ "v,Ap -|p // p"t @ s" .MAT-\ %4 #e @ #j-\ )m4 #q/ #j"@ #k $ D #k $ D #l #h D #p #h3D z+ #5 " #
b + #(1H ,'ENTER MATRICES TO SAVE:'/) -\ %4 #h4 #j @ #l-\ )m4 #q/ #l"@ #m #h D #m@@ #n #h D r $ D q #m $#qXD #-\
R4 #m4 #4 #n4 #r #n0D g O #h2F #mg O A 4$ #' " # b #h + #&(1H ,'ERROR. ENTER ',I3,' MATRICES TO BE SAVED.'/) + # : Z #n : Z #o . s u #m. #n3D#q+ #/3: z9 #( $ D r+ #Y #k $#qXD #1-\ $@4 #o4 #14 #p4 #k4 #l #n3: #h9 #'+ #< : Z #n Z #i #k $#qXD #9-\ $@4 #i4 #94 #p4 #k4 #l3: z9 #6 #f #k. #l D#p: #l"$ D #i #k & #qXF #C-\ *n4 #i4 #p4 #k4 #C @ #o #o5D #U"$ D #i #k & #qXF #J-\ *n4 #i4 #p4 #k4 #J @ #o #o5D #U " #Ob #h #p4 + #T(1H ,I3,' MATRICES STORED IN DISK FILE ',2A5/) + #Y " #Wb #o + #Y(1H ,'ERROR ',I3) #h3D z+ #\-\ ("4 #h4 #l-\ ("4 #e4 #j+ #b+ #b4 Z #g \ #g #g,!p ,!p + # #g #g\ #h,Ap ,Ap -|p @// x#i x#p .MATu#r@@ $N $ . $L1$ @+ $"$ D $M $KXF #y $KXF #z-\ *n4 $M4 #y4 $L4 #z @ $N $N5D $ : Z $O . $K@@1: @9 #}: $L $ D $L $ 3D $N+ $?+ $ " $b $N + $(1H ,'I/O ERROR ',I3) + $? : Z $O $J. s $uXD $
Z $M-\ +k4 $
4 $M4 $O $L. $K $ XD $ Z $M-\ +r4 $4 $M4 $O1: 9 $ $J. t v $L. $K-\ 6G4 @ $J. t v $L. $K-\ 6G4 @ -\ )m4 u $J. u/ w"@ s $ .D $L $J. t v $J. t$v D $P@@ $P : Z $O $L. / $P1$ @+ $4"$ D $M $KXF $+ $KXF $,-\ *n4 $M4 $+4 $L4 $, @ $N $N5D $ : Z $Q . $K@@1: @9 $/ $ D $L: $L $O D $P $O. s u $L. $O/ $P. $K D $O3: $P9 $$ $ . $L. $O/ $P D $L $ @2d $L+ $? $ D $N+ #u@@ $N+ $E+ $E4 Z $I \ $J $J,!p , p , p ,!p ,!p + #r $I $J\ $L,Ap ,Ap / ,Ap -|p {P$Q " $Sb + $V(2X,'LOAD,',1X,'LENGTH'/) : Z $v"$ D $w $ D $w-\
R4 $w4 $w4 $w4 $z $z D $x ${ D $x"$ . $v( . s D $y $x $xD D $y $x!& , 5F $x $t D $z" $y $y Du $z $y Dv" $y $y Dv" $z $y Dw+ $l+ $W $v3: $u9 $V+ $q+ $q4 Z $t \ $u $u,!p + $Q $t $u\ $u,Ap -|p ! ~(${-\ %R4 % @ % : Z %" . %. @ %-\ )S4 %4 % 3: %9 $~+ %4 %
* % %,!p + $|!< %
*< \ %,Ap %-|p ~%-\ %R4 %* @ %+ : Z %," . %+. @ %+-\ )S4 %+4 %*3: %*9 %+ % + % 4 %"* %) %),!p ,!p + %!< %"*< \ %*,Ap ,Ap %+-|p }X%,-\ %R4 %F @ %I : Z %I" . %I. @ %G"" . . %G B %H-\ )>4 %H4 %J @ %H-\ )S4 %G4 %H3: %F9 %.+ %;4 %?* %F %F,!p ,!p + %,!< %?*< \ %G,Ap ,Ap %I-|p ~ %J-\ &<4 %` @ %` %`4@ %M+ %U-\ '-\ &<4 %` @ %` %`4@ %Q+ %U-\ 'm+ %J+ %U4 %X* %_ %_,!p + %J!< %X*< \ %`,Ap %`-|p u%k &I2` %k+ & &I %`4@ %t &I %` @ &K &I %`X@ %s-\ )>4 &K4 %s+ &? &I Z &K h%`4@ % h%` @ &K h%`X@ %y-\ )>4 &K4 %y" &I. @ &J &K. &I B &J-\ ("4 &J4 &J+ &?3: %k9 %u-\ )m4 %f/ @ &L@@ &L P @ &M : Z &K h%e4@ & . &L @ &J-\ )A4 &J4 &M &I2` &M+ & . &L @ &J-\ )E4 &J4 &N &N4@ & &I3@ &M+ &!" &I. &M2` &M+ & @ &L" &I. &M @ &M3: %l9 & &L4@ &' &L. &L @ &J-\ )E4 &J4 &K-\ )E4 &K4 &N &L. &L @ &J-\ )Z4 &J4 &N &K. &I @ &J-\ ("4 &M4 &J+ &? &N @ &K-\ )E4 &K4 &N &K. &L @ &J-\ )Z4 &J4 &N+ &?-\ )m4 %k @ &N-\ )E4 &N4 &O &O4@ &:-\ )A4 &O4 &O &I3` &O+ &/ &O @ &N+ &( &O @ &K-\ )E4 &O4 &N-\ )Z4 &N4 &N &I2@ &O+ &5+ &?" &I. &O @ &J &K. &I B &J-\ (B4 &J4 &J+ &?@@ &K+ &?+ &?4 &B* &I &I,!p + %l!< &B*< \ &I,Ap &K-|p v@&OU @ '$ : Z '% '% %` @ '% '%4@ &Z '% %`X@ &W-\ )>4 '%4 &W-\ ':4 '$4 '%4 '%+ &R '%3: %k9 &Q-\ )m4 %f/ @ '& : Z '% . '& @ '#-\ )A4 '#4 '& '&4@ &m . '& @ '#-\ )E4 '#4 '%@@h%e '%4@ &l '% @ ''-\ )E4 '%4 '%-\ ':4 '$4 '&4 ''+ &f '%3: %l9 &^ %k4@ &u %k @ '%-\ )A4 '%4 '&-\ )E4 %k4 %k-\ ':4 '$4 '&4 '%+ &m '$ @ '%U 3@ '%+ ' -\ )E4 '%4 ''-\ )A4 '%4 '& '%. '&3 ''+ ' '%. '&2` ''+ '-\ )E4 ''4 ''-\ )A4 ''4 '( '&. '( @ '#-\ )W4 '%4 '#-\ )Z4 '%4 '' '' @ ''+ &y '' @ '%+ &v '$ @ '%U 2@ '%+ '
+ ' '% @ ''-\ )E4 '%4 '%-\ )A4 ''4 '& %k3 '&+ '-\ ("4 '&4 ''+ '
-\ (B4 '&4 ''+ '
-\ (r4 '4 '(-\ 4a+ '4 ' * '#+ &P!< ' *< -|p |p'(FREE STORAGE HAS PREVIOUSLY BEEN ILLEGALLY RETURNED OR MODIFIED -\ )W4 'J4 'I-\ )m4 'I @ 'K 'K @ 'K-\ )E4 'K4 'K 'J2` 'K+ '2-\ )Z4 'K4 'J-\ )Z4 'J4 'K+ '>+ '>4 'A* 'H 'H,!p ,!p ,!p + '/!< 'A*< \ 'J,Ap ,Ap ,Ap -|p {0'K-\ )E4 '{4 '{-\ )E4 'z4 '|-\ )E4 'y4 '| '|4@ 'S-\ )E4 'z4 '|" '{. '|& @ '} 2` '}+ '[ '{. '} @ 'x-\ )Z4 '{4 'x-\ (B4 '}4 '{+ 'o-\ )E4 'y4 '| . '|& @ '} '}2 (+ 'h . '} @ 'x-\ )v4 'x @ '} '|4@ 'g . '| @ 'x-\ )Z4 '~4 'x+ 'L-\ )r4 '~ '~4@ 'j+ 'o-\ (r4 'p4 '-\ 4a+ 'o4 'q* 'x+ 'L!< 'q*< -|p `'y ' (zh'~FREE STORAGE EXHAUSTED, NO ROUTINE GIVEN TO EXSIZE
- (02` %k+ ( + (02 %`X@ (-\ )S4 (04 (4 (0+ (0.@%`+ (%-\ )m4 %f/ -@ (24: 4Z (20 (2. @ (1-\ )A4 (14 (3+ (03@ (3+ (( (34@ (3: %l9 ( ,!p + (!< ((*< \ (0,Ap ,Ap -|p }8(3-\ )m4 %k5@ (Q-\ )E4 (Q4 (R (R4@ (<-\ )A4 (R4 (R4 (R2 (P+ (<4 (R @ (Q+ (5-\ )W4 (P4 (P-\ )Z4 (P4 (R-\ )Z4 (Q4 (P+ (E+ (E4 4 (H* (O4 (O,!p ,!p + (4!< (H*< \@ (P,Ap ,Ap -|p (R (b5@ (+ (X+ (X4 (Z* (a( (a,!p + (S!< (Z*< \ (b,Ap -|p }(b " (hb : Z ) ). )3: )9 (d + (j(//1X,14A5)b 7" (kb + (l(///) " (nB~ ) + (o(A5)M- (y2@ )+ (q-\ 4a+ (v+ (v4 (y*@ ) + ) ,!p ,@p + (c!< (y*< \ )/ ,Ap -|p -\ +7yx)4" )b );\ + ) (/'*FREE+STORAGE STATUS',I5/) : +Z )< h%` @ )=. )=4@ )-" )b )= )< )<Z + )('+',O6,2X,O5,I7/)*e-\ )E4 )=4 )=+ ) J )<3: %k9 ) : Z )<3`h%eX@ )-\ )m4 ) @ )=-\ )A4 )=4 )=+ )=4@ )"-\ )E4 )=4 )= )=4@ )!," )b )= )= )=< + )/ )<3: %l9 ), %k @ )=- )=4@ )+-\ )A4 )=4 )= " )b )= )= )= -\ )E4 )=4 )=+ )# " ),b + )-(//) + )1+ )14 )4* ); );,!p + )!< )4*< \ );,Ap -|p P)> B )o p Ap )o-|p P)A B )o p [ Ap )o-|p P)E B )o p Z Ap )o-|p 8)H B )o p p ( A Ap )o-|p ()M B )o p p (@ " .p (@n Ap )o-|p P)S B )o p p @ )o-|p P)W B )o p p Q@ )o-|p P)Z B )o p p X@ )o-|p )^ B )o D )o p A" "p ) p BB G@ )o )o-|p )e B )o D )o p p /p \"(BnA "p )@ p BB G@ )o )o-|p p)mZ p -|p h)pZ p X@ )s-|p H)rZ )s4@ )u-\ O@p -}p @p -|p op)v p (@ < )y )+ ){-|p )-|p -\ (r+ )}+ )}-|p STORAGE EXHAUSTED G?P @ +-\ 5s4 * @ + 2 ++ *+ *r : Z + ( + *2@ + * ( + *2@ + * h+X@ *
+.+ +-O -|p @ -|p INX X+/ @ +?- +` +?-|p 8+2 p 2` + +6 .p Z -|p @ -|p X+7 @ +? +<Xp @ +:- +``+: +?-|p h+= @ +? +<+ +9+? p / X@ +G- +`
@ a@` + +Ma@ OAp @ -|p x(+H p / X@ +G- +`
@ `@@ + +FO -|p +N- +d- +`@ +^+ +S] +_ Ap @Ap O -|p Z +^ Ap @ -|p X+U- +d- +`` +^+ +S+ +P8+X- +d7Ap @@ +^ p ` +j- +` +^+ +S+ +Qp+]M>|kwM>x P+`Z +`Q q @ +c p ` +c+ +`+dZ p X@ +g. X@ +g-\ .&4 +g4 +g4 +^@@ +_@@ +_ +?+ +d6$ +_+k B +} D +} p /" &" .p XB+z +z(@ G +| Ap +} +}-|p +r B +} D +} p /" &" .p XB+z p (@q`+z +} +}-|p P+y: , rp+},> ,> ,> ,> * [}4d , , /( 5h ,
, 010@ +@ 0M1@ @ =d ,4H , @ 8( , : ~,^ ,^ ,^ ,^ ,~ , 017@ 2U+@ 0M=h ,
=$ + ,H ,> ,> [~4d ,@ 0d + ,`h )@ 1* 7@ , 04J ,6, 01> 1` 1 + ,Il" / ab + ,'ab . ,e+ ,d$& . `b : af~ + ,d,> && 0( : . ,el" ,^ + ,dlb + ,1*
l( d" !+ ,d6 + ,P @ 5 1@ + ,60@ 1@ + ,Y+@ 0Mab *
4L ,S`b "` [ ab $ ,f. /& `b + ,=^ / +0 ,=1f 3& ,h+ ,Gh,6
,g5& ,B#` $}+ ,B $ `F
59(: 5F ,B+0 ,G`b "` + ,SU,`b @@ + ,E0@ "1@ "+ ,.1@ + ,V1@ + ,W1@ + ,Z1@ + ,\1@ + ,\4* ,27@ 5?+ ,S+@ 0M, 01=* ,Q , : } Q,}X, *, / ,g,~ ab + ,d4* ,2 + ,%: 8 + ,6mb + ,d4* ,2+ ,Pm X" `b + ,_l" + ,d4( ,`4* ,2+ ,Plb + ,_mb *
." l" d" !7@ 2U+@ 0M+ ,! $ 2 hP,g 0 m,> "x Q" . -G*"x z^ @@ 4@ ,{5` ,o"` l2 @ d` + ,{ ( $ 2 55+ ,s2 55+ ,x $ ( +@-G+ ,u -H: =h ,s4D ,w 55; "` 6 . ( -F/( @( ( @ ( -F" -E5H ,~ ( " ar + -5& - l2 + -
/
4, ,1h + -7/( l2 42 -. + -6` . 0d $ 4J -6 .
-@5j -8
-Ear + -42 -4f -=" -l2 " $ 52 -4p -. : / 5" - " + -6` . , 7@ , .
.
52 -., 7 /
/ 5h - 4( -!5D -#ar @ . . + -"?l + - , ->=l - `r @ , ->5D -# , ->+ -$, -<=d -# , ->52 -'50 -+ + -*4B -65& -+" . 6` , ->8$ -*<" --, -<=" -,52 -6 ", -> / 5& -1"` , ->&& ,> && . , ->,^ . , ->ar + -9 " , ->=b -8Q"|X" N~*" / -G,^ ,~ %* .*
:` + 0Lf3 (zpR
$o 46q C [ V 3Lf2 $ 6$ H 2 553.59 59 55,> ,> ,> " -c@f 7@ O 4B -^, 01< 1` 1 + -Sl$ / $& . 7@ 2U+@ 0M+ -M0@ 1@ + -X0@ 1@ + -[5" -a0@ +@ 0M+ -^0@ 7 4" -W + -Q4$ -]`@ l$ + -R6 + -a: 8 d& @ 5 `d "` : ~,^ ,^ ,^ ,~ $ ~,> ,> ,> ,> ( -y7@ ( & 5 -i"` l$ & ." 8 ,> 5` -i /H 5f -q6 5$ -t#` Q` / + -t<F -s, 0
. / 5h . 8h . . , 0 ,^ ,~ , 0
,> ,> ,> [~@f 7@ O 4B . , 01< 1` 1 + .l$ / (F . 7@ 2U+@ 0M+ . . : 8 `d "` : ~,^ ,^ ,^ ,~ h.", ..@ .#-|p h.$, ..` .%-|p {x.&, .(+ .*,> ,> /< + .0,> Zp .H @ .I @ ,^ -|p ,> ,> p X@ .#X@ .%@@ .H@@ .I p .I0@ + .D @ .H @ .G .J .J, .;1` + .9, .>+ .6@@ .I .K, .;, .>+ .:`b` + .=3B .K+ .A ,~ 1` ,~ h @ 2D .L,~ ,^ Z .H,^ ,^ ,~ [ p hd `d~ + .4 + .4mx.I. H .GH .HH .I .H$ .I42 .Q 32 @ 33ar + .Q 36 F8 37 F8 & 3=.& 2r! Q` @ 2pZ Q6 `[ X 1@X + .Y> [ 7@ }. V 2p V 3;; Z X@ 2p V 2qf 3BO@ 2qX* @x 2Ud2 X2 @b Q* D 3: 26 2p+ .ud h && & /R+/Zlr + .f 3: H 3:/$ $" . + .n* d2 " + .,> ,> ar 0x + .per + .o 3: B 3;1 V 3; V 2p " 9 ., /)X2 =x .{mr 48 .u6`+ .{, /), 0 Z 2Q0 / 3Cl2 3;d2 `r + /O 2z* 3+ 0i>`+ .}/ 3C+ .] x 9 .]l2 d2 + ., /), 0 + .] " Bd2 l2 d2 4B .]Z 2p/$X $$ 52 /
<D .uar + / 1@ , /, 0 + /1@ 1F , /` =b /
+ .]
0F + /2L ,~ ,^ + .]d2 52 / , 0
+ .]d2 l2 + .]d2 O@ 2S+ .], /"
@@ d2 + ._& 3C7 : X4u,~ , /)+ .]l* + / l* + / l* + / d2 dr + 5 `j + /,aR,~ A" ?!` `j ?( G
er + .y+ /9,> ! 2z* ,^ Z 1& .& 2r F 2r& 3= F 341F + /EZ 1@ + 5`r + .]7 ,~ aj + /= 341F l* , /",> 2r42 /C, H , 3f @ `j B ,^ =l .yd* ,~ , H + /Al2 !0X + /6,> S 2z* ,^ l2 & 3= F 34S 0k: 0k"` 1F ( 1F l2 X ZP 2r+ /6`r : *p /Nd2 + .z/U
/U/U /U*/U4/U>/U 4 R4 sN8% N9g` @& l` * x /Z /f / / / / .h ( .~ .d ._ .j .q /% /& /' / / / / / ( /( / / / , 3X7` 2R+ 06@ 2U+ /j@8 ?`8 + /~0@ ,~ @@ 2U6@ 2R+ /m @8 X 2R 8 / D.@ 7 + /{ !8 / 2WX@ /sZ .@ /s. 3D* X /sP 8 @ )@_' 3DX 2R.@ @@ 2X 3E*!8 C @8 3< @8 ,~ ,> , 0,^ .@ + /p1@ + /kQ q`P@8 @8 O@ 2U,~ @8 >`8 1@ 7 ,~ 7 2S `8 , 2 ,> , 2`L , 4 `L , 4&`L , 4aL @ `L , 4@@ 2U,^ ,~ ,> ,> ;` 2q6 2R+ 0 1B + 01B + 01B + 0X"k4" 00b + 0Z 0+ 0, /f, /f, /f,^ ,^ ,~ x0 p0
v(0 er + 0#S 353`8 + 0#1@8 + 36:@8 52 0(6` 1D 6` 2q+ 0& , 0T+ 0i6@ 2U+ 0b6`8 + 07, 0L 8 0@ + 07?`8 l2 @ +@ 0M+@ 3B3@ 37+ 0:7@ 2T+ 0G2@ 36+ 0G 8 e@ + 0G2@ 3F+ 0E: 8 " .@8 8 2@ 3F+ 02: 8 " .@8 `r + 02 8 @ 37 8 @ 38+ 02: 8 `8 " .@8 + 02 8 : 2q1@ + 0Z1`
?`8 l2 @ ,~ , 2 , 1d` 37`8 ,> , 2`L + 0c`L , 4 `L , 4&`L @ , 4`L , 4,^ ,~ 6@ 2U,~ +@ 0M?`8 , 0L 8 0@ 1@ + 0Z+ 0VO@ 2U?`8 + 0^ 8 4@ 0Z0@ 1@ + 0Z7 2T+ 0b 8 * 37 @ 36 8 * 38 @ 37 ,~ 6 2V, 3d, 2 " GBh > 0k!$ " 0k: 0k2B + 0f+ 0.!> 2r*> 2r+ 0kv0k @ 2r B 2s* 3G0@ + 0 ` 3G+@ 3A= 0o ` Z (Q"` B 2o B 3." XB (Z Z 2` + 0x b 7 3H+ 0x b -\ 4a@@ 2B 3H* 2m 5+ `
&` ." b 3I&` ." b 3I, 5&+ 0j1` $ 1
1 /0 0* 1{ 1| 1} /G 1q 1t 1u 1w 1x!2 + 1G G a@ `(@ (@
@ @ @ 34 @ 32,^
3JaJ , 1"`j l2 aj @ `j O@ 2R`j 3K ( 2e 2Q4F 1,. 3K(@ 3D + 1@> =f 1 + 1, 2W"& 5: 7d .$5 53D 3L+ 1u7J , 4# J 34 J 32 j `j + 1+!*Lu J 34
3L,~ `r , 4#2 3F 2Q1& + 117@ + 12=f 1/, 3x.& F 2Q2(2eS ( 2D> X , 1l3Z 333@ 1; 344D 1:f 3M7@ 2RX2 R` 1:`j , 2* H o1;, 3n, 22 2W7` , 266D5, 2<`r @+ 1+ 1G2@ 327 2T, 1`S ( , 1lX 3Z 336` 2T, 1d6 2R, 1f`r @+ 1 ( 7` : 6@,2A+ 1Qar ar + 1Q5 323@ 3M+ 1O @ 2m2 3=+ 1P 3N @ 2m!H:2@ 2n, 252 1S, 27`8 , 2 `r + 1y`r + 5ar + 5@@ 2R6 2R+ 1Yar + .L& 3N/& 4f .LZN 2R52 .L, 23& 2W2F 383 3<hF 39 & C3F 39X. 38O@ 2S+ .L7@ 2U @ 2U3@ 2U,~ 2@ 2UF@ 2T,~ 8 E@ 37 8 E@ 38,~ ar M,~ 3O0@ ,~ `Q@8 / 8 $ @8 ,~ R 3O$ . 3Q` P . 3PY@ 6 X@ ,~ !2 @( 3=.( 2rS X( 2m*( 2n+ 1
6$ . 3A 3>( 2B0 3=< 3=}I4:iSH
x eX2 "9Y. 1:INX M?L@$%8 08 . @ @ 2m, ` 2m
@ ` @
xh h }~ 2W. 2W,> , 4Y,^ , 4J-" 4Q&p We6@`+ 4BZ 2pZ 2q/ > $$ 0d $ $ $ 2q
7aW
ze&tp`+ 4B, 4L 4_, 4E x /& , 4E-" 4Q]? ;C&dVK -" 4QI5r;-XRd
, 4=, 4E-" 4Q'
6Y<-" 4Q[?PQp*.j1KL)8k I2@ -" 4QM&dPC6(0 , 4E-" 4Q]? w.j1J
+ 4C-" 4Q]<+wZ5|@M&dP`, 4E-" 4Q>p m& P`+ 4C, 4L, 4E-" 4Q >*:J+zK$Y-" 4QiPK~) i>x
t_K wVu + 4C, 4L(Rn H4], 4V-" 4Q.j1J.,Wd}``+ 4C
DOUBLE PRECISION OVER OR UNDER-FLOW
" 4 b ,~ -" 4QK:" sR Yp8 + 4C-" 4QS2dYpX9S
+ 4C-" 4Q]l[gP>7i@ 9e? -" 4QeX2DXzi RM?PSK @K$ -" 4Qa +y>p0 + 4C,> , 4L,^ , 4V-" 4Q:~@_$Y-" 4QS2dYpX.99W-p` 4\, 44, 44-" 4QCP\rd
4\> 0k, 44+ 3c $ @
., . (F =d 45+ 4E, 4H-" 4QY @ K&(7$mph.992|0`L 4\> 0k+ 44@ &1 * &" (D .,P ,~ 32, 4E, 4H+ 3\7 2mP 32, 4E+ 3c9 2m", 4` , 4J8, 4F+ 4P $ , 4J $u $ ?` 4
$
0kINPUTOUTPTh4_I5rH H ~4a ` 4s+@ 3A= 4b & " 2e 4t1@j6+ 4g: =f 4d ` " INX 4r+ 4f$ 4t(D D 4p 3= D 4p@@ 4q@@ 4qB 4p+ 4f@@ 4p " 4p+ 4f+ 4f~84s. 3A$H
x +~ , , ,h -I -d . -y 4} 4~ 4{ 4|-$ 4)DIRT.-$ 4)DOUBT-$ 4)LINT.-$ 4)LOUT.-$ 4)NMLST}05 -$ 4)TFMT.-$ 4)BINWR-$ 4)TPFCN INX G YC GSH iSH aS aS M&b M&b M&b M&b M&b@M&b`M&b M&b M&b@M&b`M&b M&b M&b$ M&b$ M&b$@M&b$`M&b% M&b% M&b%@M&b%`M&b& M&b& eX2G iSH YC aS iSH 05&@@ 5 5*+ 5)@@ 5 5** 5&,~ RX5Rx5~`5+55 0 9Lf3 T=8) z8]U<c\|i,SY{z 0 ! !y #SD &wka -Qa^':s\-6p5<O@ 5?-|p p5>@@ 5?-|p }H5?* * , 5I* * ,~ * * , 5I* * ,~ * * , 5I* * ,~ 4@ 5V,> ,> 7& "` $ )D /$ @4d 5S,> X $ )D ,^ 5F 5S7 "` , 5`+ 5U-\ 6 p5S -\ 6|P5U,^ ,^ ,~ * * , 5`* * ,~ * * , 5`* * ,~ * * , 5`* * ,~ 4@ 5j D 5q!$ @ 5p B 5q+ 5r5" 5g#` , 5g!" B ,~ (BdB +0 5j5B 5f 5q,~ - 5k6" 5q+ 5mh / 5r`B 6 5p7 5s" 5s`` $ + 5ih5q 5c ?p5s#p -|p ~5u B 6 p 4b 6 D 6)r/" @("XB 5(Bn(|D ? D 66 D @ 7 6 6-|p @ s/M { }6 B 6 p # 3` 6 + 6
U 7` 6 -|p D 6 F 6 @@ 6 %" j" % 6)/;` : XD 6(|h& f 6 6 6 6 6 6 D 6 @ 6 6 6 -|p !t0 _' "S'qf!um. .#Y% !v rX}H6 #p 4@ 6-3@ 6/+ 6. B 64) r. !@ 63! n@ 63(|h" 6/ 60 B 63 60 61 61 63 63 627 64 62-|p + 6- 0 _i/X3 6P'M 5( bB W
R `@ `64#p 7!p "` -|p 67, 68-|p B 6> p 9 6; w3! " 6>1B h9 6: 6>,~ x6>6$p 6?, 6@-|p p B 6F9 6C w2a " 6F1B h9 6B 6F,~ x6F6$p 86G B 6L p & 6@ h X h"6 6L-|p @6L B 6Q p % j * ( . 6Q-|p + "