Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50144/eig1d.f4
There are no other files named eig1d.f4 in the archive.
	DIMENSION A(10),B(4,4),TEMP1(4),TEMP2(4)
	DATA A(1),A(5),A(8),A(10),A(2),A(6),A(3),A(4),A(9)
	1,A(7)/4*7.0,2*-2.0,3*0.0,-1.0/
	CALL EIG1(A,B,4,1.0E-12,TEMP1,TEMP2,1,4)
	DO 10 I=1,4
	TYPE 20,I,A(I)
10	TYPE 30,I,(B(J,I),J=1,4)
20	FORMAT(/' EIGENVALUE',I2,1PE20.7)
30	FORMAT(' VECTOR',I2,1P4E15.6)
	STOP
	END