INTEGER GROUP,I,IERR,ITS,J,JJ,M,N,NM,P,Q,R,S,SUBMAT,TAG
INTEGER IND(M)
C
- DOUBLE PRECISION D(N),E(3*N),E2(N),W(M),Z(NM,M)
+ DOUBLE PRECISION D(N),E(N),E2(N),W(M),Z(NM,M)
DOUBLE PRECISION RV1(N),RV2(N),RV3(N),RV4(N),RV6(N)
DOUBLE PRECISION ANORM,EPS2,EPS3,EPS4,NORM,ORDER,RHO,U,UK,V
DOUBLE PRECISION X0,X1,XU