X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Finclude_unres%2FCOMMON.SCCOR;h=28d748a460ee19bcb2b18271a1b363f47a9acd49;hb=44b64ca55413e26a0abac46b0288c6e408dec932;hp=efab24f4c412f0420470ed5a85c58ce67d17d18c;hpb=650fd5e7084e2e53ab7ecf96265e81e7650ec420;p=unres.git

diff --git a/source/wham/src/include_unres/COMMON.SCCOR b/source/wham/src/include_unres/COMMON.SCCOR
index efab24f..28d748a 100644
--- a/source/wham/src/include_unres/COMMON.SCCOR
+++ b/source/wham/src/include_unres/COMMON.SCCOR
@@ -6,7 +6,7 @@ cc Parameters of the SCCOR term
       integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor
       common /sccor/ v1sccor(maxterm_sccor,3,20,20),
      &    v2sccor(maxterm_sccor,3,20,20),
-     &    v0sccor(maxterm_sccor,20),
+     &    v0sccor(ntyp,ntyp),
      &    vlor1sccor(maxterm_sccor,20,20),
      &    vlor2sccor(maxterm_sccor,20,20),
      &    vlor3sccor(maxterm_sccor,20,20),gloc_sc(3,0:maxres2,10),