Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0025/eig1d.for
There is 1 other file named eig1d.for in the archive. Click here to see a list.
	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