implementation of czybyszeb grad ok

[unres.git] / source / unres / src_MD-M / eigen.f

diff --git a/source/unres/src_MD-M/eigen.f b/source/unres/src_MD-M/eigen.f
index e4088ee..287792f 100644 (file)
--- a/source/unres/src_MD-M/eigen.f
+++ b/source/unres/src_MD-M/eigen.f
@@ -127,7 +127,7 @@ C
       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(N),E2(N),W(M),Z(NM,M)
+      DOUBLE PRECISION D(N),E(3*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