From 56489e050f290e7b3570c2793c9a2b5a64ec2621 Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Wed, 19 Dec 2012 14:01:49 +0100 Subject: [PATCH] poprawki w COMMONAch --- source/cluster/wham/src-M/COMMON.SCCOR | 2 +- source/unres/src_CSA/together.F | 1 + source/unres/src_CSA_DiL/COMMON.SCCOR | 2 +- source/unres/src_CSA_DiL/together.F | 1 + 4 files changed, 4 insertions(+), 2 deletions(-) diff --git a/source/cluster/wham/src-M/COMMON.SCCOR b/source/cluster/wham/src-M/COMMON.SCCOR index 5217de7..d3f512a 100644 --- 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 --- 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 --- 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 --- 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 -- 1.7.9.5