X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2FCOMMON.SCCOR;h=1c725d7da5176734a61bb8e9cc5e741c83ddbe08;hb=cc980c20ed89622e129591e212a044280de43b9f;hp=5217de7aec50e02afea26ea9dcd4227c01b85e59;hpb=2edc626d1e02c2c1baf8c853cffb2f60cba8495d;p=unres.git diff --git a/source/unres/src_MD/COMMON.SCCOR b/source/unres/src_MD/COMMON.SCCOR index 5217de7..1c725d7 100644 --- a/source/unres/src_MD/COMMON.SCCOR +++ b/source/unres/src_MD/COMMON.SCCOR @@ -1,6 +1,11 @@ -C Parameters of the SCCOR term - double precision v1sccor,v2sccor - integer nterm_sccor + Parameters of the SCCOR term + double precision v1sccor,v2sccor,vlor1sccor, + & vlor2sccor,vlor3sccor + integer nterm_sccor,isccortyp,nsccortyp,nlor_sccor common/torsion/v1sccor(maxterm_sccor,20,20), & v2sccor(maxterm_sccor,20,20), - & nterm_sccor + & nterm_sccor(ntyp,ntyp),isccortyp(ntyp),nsccortyp, + & nlor_sccor(ntyp,ntyp),vlor1sccor(maxterm_sccor,20,20), + & vlor2sccor(maxterm_sccor,20,20), + & vlor3sccor(maxterm_sccor,20,20) +