From: Dawid Jagiela Date: Wed, 19 Dec 2012 13:01:49 +0000 (+0100) Subject: poprawki w COMMONAch X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=56489e050f290e7b3570c2793c9a2b5a64ec2621;p=unres.git 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 --- 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