poprawki w COMMONAch

diff --git a/source/cluster/wham/src-M/COMMON.SCCOR b/source/cluster/wham/src-M/COMMON.SCCOR
index 5217de7..d3f512a 100644 (file)
--- a/source/cluster/wham/src-M/COMMON.SCCOR
+++ b/source/cluster/wham/src-M/COMMON.SCCOR
@@ -1,6 +1,6 @@
 C Parameters of the SCCOR term
       double precision v1sccor,v2sccor
       integer nterm_sccor
-      common/torsion/v1sccor(maxterm_sccor,20,20),
+      common/torsionsc/v1sccor(maxterm_sccor,20,20),
      &    v2sccor(maxterm_sccor,20,20),
      &    nterm_sccor

diff --git a/source/unres/src_CSA/together.F b/source/unres/src_CSA/together.F
index 8bc9d7a..099c469 100644 (file)
--- a/source/unres/src_CSA/together.F
+++ b/source/unres/src_CSA/together.F
@@ -878,6 +878,7 @@ c  receives and stores data from soldiers
       include 'COMMON.CHAIN'
       include 'COMMON.CONTACTS'
       dimension ind(9),xout(maxvar),eout(mxch*(mxch+1)/2+1)
+      dimension cout(2)
 cjlee
       double precision przes(3),obr(3,3)
       logical non_conv

diff --git a/source/unres/src_CSA_DiL/COMMON.SCCOR b/source/unres/src_CSA_DiL/COMMON.SCCOR
index 5217de7..d3f512a 100644 (file)
--- a/source/unres/src_CSA_DiL/COMMON.SCCOR
+++ b/source/unres/src_CSA_DiL/COMMON.SCCOR
@@ -1,6 +1,6 @@
 C Parameters of the SCCOR term
       double precision v1sccor,v2sccor
       integer nterm_sccor
-      common/torsion/v1sccor(maxterm_sccor,20,20),
+      common/torsionsc/v1sccor(maxterm_sccor,20,20),
      &    v2sccor(maxterm_sccor,20,20),
      &    nterm_sccor

diff --git a/source/unres/src_CSA_DiL/together.F b/source/unres/src_CSA_DiL/together.F
index 8bc9d7a..099c469 100644 (file)
--- a/source/unres/src_CSA_DiL/together.F
+++ b/source/unres/src_CSA_DiL/together.F
@@ -878,6 +878,7 @@ c  receives and stores data from soldiers
       include 'COMMON.CHAIN'
       include 'COMMON.CONTACTS'
       dimension ind(9),xout(maxvar),eout(mxch*(mxch+1)/2+1)
+      dimension cout(2)
 cjlee
       double precision przes(3),obr(3,3)
       logical non_conv