X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Feigen.f;h=e4088eed6b3ab8cf9551eaa1f8556bb69c8300cb;hb=dc7deba07f8e1f5bc5eb8e6e2fb433c3636c7782;hp=287792f5574883b3ff5ab88615936e80b76ca6ce;hpb=88af2feafd40050318384e0a14aac77a4f9fffa4;p=unres.git

diff --git a/source/unres/src_MD-M/eigen.f b/source/unres/src_MD-M/eigen.f
index 287792f..e4088ee 100644
--- 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(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