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