PDP-10 Archive: decus/20-0025/eigsr.exe from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0025/eigsr.exe

There is 1 other file named eigsr.exe in the archive. Click here to see a list.

?p00@?hX#?x "

<++2	`@@(' DO YOU DESIRE USER INSTRUCTIONS, TYPE "YES" OR "NO"--',$)(A3)(/' THIS PROGRAM FINDS THE EIGENVALUES AND EIGENVECTORS OF A'/' REAL SYMMETRIC MATRIX BY THE JACOBI-CORBATO METHOD.'/)(' THE MATRIX IS OF THE FORM'/'  A11   A12   ...   A1N     WHERE THE A(I,J) ARE REAL (FLOATING POINT)'/'  A21   A22   ...   A2N     AND N (FIXED POINT) CANNOT EXCEED 25:'/'   .'/'   .'/'  AN1   AN2   ...   ANN'/)(' SINCE THE MATRIX IS SYMMETRIC, ONLY THE ELEMENTS ON AND ABOVE'/' THE DIAGONAL NEED BE ENTERED'/)(' THE PROGRAM TYPES A(1,1)?  THE USER TYPES THE FIRST ROW ELEMENTS.'/' THE PROGRAM TYPES A(2,2)?  THE USER TYPES THE SECOND ROW'/'     STARTING WITH THE DIAGONAL ELEMENT.  THIS CONTINUES UNTIL A(N,N) HAS BEEN ENTERED.'/)(' INPUT IS TYPED IN FREE FIELD FORMAT, A BLANK ENDS THE FIELD.'/)(' AFTER A(N,N) HAS BEEN ENTERED, THE PROGRAM PROVIDES THE OPPORTUNITY'/' AND INSTRUCTIONS FOR CORRECTION OF TYPING ERRORS.'/)(' NOW YOU TRY IT.'/)(' ORDER? ',$)(I)(' PROGRAM CAN ACCEPT ONLY',I2,' VALUES PER LINE.  OBSERVE CAREFULLY'/' THE LABELS AS YOU ENTER DATA.  TYPE AT MOST',I2,' VALUES PER LINE.'/' REMEMBER THAT YOU WILL HAVE A CHANCE TO MAKE CORRECTIONS BEFORE CALCULATION BEGINS.'/)(14X,'A(',I2,',',I2,')? ',$)('  A(',I2,',',I2,') TO A(',I2,',',I2,')? ',$)(10F)(/' N MUST BE BETWEEN 1 AND 25.  TRY AGAIN.'/)(' ARE ANY OF THE ABOVE A(I,J) ELEMENTS TYPED INCORRECTLY?  IF THE USER'/' WISHES TO CORRECT AN ELEMENT, TYPE "YES".'/)(/' ANY CORRECTIONS?--',$)(' CORRECT AN ELEMENT BY TYPING I (ROW SUBSCRIPT),'/' A COMMA, J (COLUMN SUBSCRIPT), A COMMA, AND THE VALUE.')(/' WHAT ARE I, J, A(I,J)?--',$)(2I,F)(/' ILLEGAL SUBSCRIPT.  EITHER I GREATER J, I MORE THAN N, OR J MORE THAN N.  TRY AGAIN.')(/' ILLEGAL COMMAND.  TRY AGAIN.')(///' ORDER =',I3)(//6X,'EIGENVALUE',I3,5X,'EIGENVECTOR')(1P2E19.7/(1PE38.7))(1PE38.7)(/' SUM OF SQUARES OF THE OFF-DIAGONAL ELEMENTS OF XT A X =',1PE16.7,','/' WHERE XT MEANS X-TRANSPOSE.'/)(' A',I3,8F9.5)(' B',I3,8F9.5)(/'  E',I3,1PE16.8/(1PE22.8))YES  NO   + -<
 "2Dl+4 <|,, <,, <	,, <	,, <	,, <	,, <	,, <	,, <	, <	,
7`k+a $

3$k+_ $.k$k7 .$( D|"$.k DI $ DK2$k+C <	, <	,
"k $ Dk"(.K.k HH H2hk k HH"k.k4(Q5h] <	, <	 ,
 <	", (

$k. <	%,
+] <	&, <	),
 <	,,"*.
k/
H k J6 Hm (

$m. <	/,
:m;,6+W,7K.Hk.HH+G.$8&D+b <	1,,+4 <o,
 "2Dl+ <	>,, <	A,, <	D, <	G,
 H3dm+q <	J,,+j k3$H+o k3$m+o $

$m.H D Fp <	M,, <	P, <	S,
 #3Dl+ "3Dl+j <	T,,+v $

 Dl Dj@dI"k $ F5 DH H$&

.H p Fn"&/k.H H (

$H. *

$
.
H 
(p J p.$8&:H; 5+ <p,
 "k $ <	W, <	Z,
"
k ( Jn Hm (

$m. <	\,
:m; n+,.$8&"k $ <	], <	`,
"
k ( Jm Hm (

$m. <	b,
:m; m+,.$8& <	c, <	f,
"k $ <	h, <	k,
 <	l, (

$. <	o,
"
k ( JG Hm (

$.m <	q,
:m; G+.,.$8&' $ Dk k DH"k $ <	r, (

$. <	u,
"*.
k/
H k JF Hm m <	w,
:m; F+=, (

.Hk.HH.$8&7"k $ FE DH$$

.H H n Fp"&/k.H H (

$.H *

$
H.
 
(p J p.$8&J:H; E+E@dj"k $ FD DH"k $ FC Dm@fn"k $ m *

$
H.
 ,

0p

(#L n.$8&V:m; C+U"k $ FJ Dm2$H+h@di"k $ (

$m.  #nHi.$8&b iiDj:m; J+`:H; D+S <	y, <	|,
+4 <o,

@}0kI6KljXXX~^$lX^

XjX
X
XX'~8$kX9$KXP$$kX~X( pXS$$k$$HX~X( pXXX]

XiX~^$lXlXwX~{$H$m(DX|	XiX~^$lXX$( pX$( #X$kX
$X( p( #X$( p( 0X
(j0c=tK&: \
 !p @
 !p @
 p @
 p @
 !p @
 !p @
 p @
 p @
+
/S+`"p."$p7 ."( p/ $
.p.,~+
3S*$` p/ $
.p,~d
 D
 $2D
+
7 $ D
+
7@d
7$
+

k5d
: 
 D
+
<,<
"
 $ F
 D
"
 $"(.$
.
 H
.
@j'.$8&
? 
.
@f"$.
$
.
 D
.
!& F:
; 
+
> &/
 $ F
 D

/$ D
"
 $ D
7$
+

k5d
S,<
0 @
+
T,<
) @
 
.
# D
 

.
3$'+
\ 

.
 
 H 

.
 
 H:
8&
O:

; 
+
M@d
 &/
 $ .
 '3(
+
h .
 ' H
 .
 ' H
 D
	.$8&
a7$
+

k5d
p,<
0 @
"
.
	.
 D

<
0 @	}+
u,<
) @
 
/
	.
,D	} <
) @

 
.
#
3$
+

b"$.
 D
 $.
 D	"$.
	 D
 $.
	 D
 
.
 H 

.
 
	}.

 
/


 J
,<
 

.
 	}.
  F
#

$D D
,<
 

 

.

"/ D
5&"d
 

 D
 

 D
 

 D
 
.
 D
 D
	 
.
@f 
.
 F 
	.
 F7@
+E"
 $ D
7$
+

k5d& <

~,
0 @	~ <

},
0 @
+) <

{,
) @	~"
.
	.	~ D
 	~.
  D

 	~.
 

.

"


 
'


 J' 
.

 
'


 J' 	~.
# D	 
.
3$'+< 
.
 	 H 
.
 
 H 
.
# D	 
	.
3$'+D 
	.
 	 H 
	.
 
 H:
8&! 
	3D	+

"&.	/
 	 F
 D
7$
+

k5dP <

z,
0 @
 
/
 D
 <

x,
0 @
+S <

w,
) @
 <

u,
) @
 
.
  D

 
.
 
.
"
'

 
 H 
.

 
 H 
.
 3D
+h 
.
# D	 
.
3$+{ 
.
 	 F 
.
 
 F+{ 
.
@f"$.
 D
"
 $ D
7$
+

k5dp 
.
 D
+r <

t,
) @
 
.
# D	 
.
3$'+z 
.
 	 H 
.
 
 H:
8&m 
.
# D	 
	.
3$+

 
	.
 	 F 
	.
 
 F:
; 
+I 
	3D
+

F"&/
.
 
 F
 D

7$
+

k5d

r,
0 @
 
/
 D
.
	 D	~+

q,
) @
 <

o,
) @	~ 
.
  D

 
.
 	~.
"
'

 
 H 	~.

 
 H 

.
 3D
+

2 

.
 3D
	+

2 
.
# D	 

.
3$+

) 

.
 	 F 

.
 
 F 	~.
# D	 

.
3$+

D 

.
 	 F 

.
 
	 F+

D 

.
@f"$.

 D
"
 $ D
7$
+

k5d

: 
.
 D
+

; <

n,
) @
 
.
# D	 

.
3$'+

C 

.
 	 H 

.
 
 H:
8&

6:

; 
+

	 	}.
  D

 	}.
 

.
 
'

 

	 H 

.

 

	 H"
 $"(.
$
. H	~"*.

	$

.
 J
.

' L

 	~.
.

"/
 '
 N' 
.


 
'


 J'.$8&

R+
_7`
+

k &/
 $ D
 <

l,
) @
 
.
 
.
 ' H:
8&

e 
,~p

p


p
	

p


p


p

p

	p

p

	p

p

p

	p

x
x
p
	
	p

	p

p

	p


p


x
	`Z(X^.*>X.~(3~+M?}
&b+
?NO CORE AVAILABLE - CAN NOT PROCEED
gG@1,>#p@,~4B

#p+>attempt to take SQRT of negative argKbN@1,>

,~6
GJVB}K
aeS	YVBPU7RMSQaj~

YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"
&*

 R	WJ

>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz
j

% s

65
3
=%_

na
xo

)
>%s

R]
4o

-
?&

e	nu
%
L&

e
5	o	"
M&/

l8A
J
aE	o&
O-
7	o1)
uFoe

2
O8i
Q	oE8oy

k8}
S
c
 a

a
79
Tp!

c'
a

u
99%
Xp5

?;
:u!

CO
Ac
hw
<y
jtA
~
\
p 
)K!bA

=P3

~
QSG

}
e`[

{{A

DoI,
G	{!<
dI

F+

xzA
_
!h

Q?

wA
u
5nG

kS

u	|@
Ip[
(?l
]ro
/Sm	hA

qvhu

a
)g

t	hU
zi

/{

hii

+
)

	
ADi1

?
3 #

riE

S
0 7

_
2 K

o
A{im

s
0 _

6	qG


m
av

K

	
C

PH
PI
PI

PJ
T
i



P4
g
P5
G
{B
P5


P6

P6
P7
P7
0K
_

P8




W


	
	

u
R
B
{B
e
M

-
J
B
/


f

8
=w		~V	~C	}5
 5g`
(R#ij4IK|
%{p9K
A]
9}s9s`%'Ui}w+U^:P!c	",'	bUXw	%,;	c	&,O	ftU4Nlu	),c'|uNm	3	,,w	ht}9
Aq?w #	S8gR
Ur/5Sz 7	T8{S
it4!

_| K9TU^
}v45

s _9#U	qGX
KKP]JP]JavIMI	HHPHGPIGPIFPJFPJEPKEPKD]9DPLCP4Cg6P56P55}P6||P6{oP7nP7nP8m
ma

	lel0v0
k

kfjjfiP\i(Rfp#\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0