X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.TORSION;h=3c9ae3993afccac6e9858e2fb08dfb0a952c6608;hb=379cf0ccadedbf5ec864d66577b0ebde0fed5e0d;hp=a51c1a923c01edd7be95a1f20e9a4b36c1547544;hpb=001bbf2ed5ba14a66b32a78eaefd675f33f00778;p=unres.git diff --git a/source/unres/src_CSA_DiL/COMMON.TORSION b/source/unres/src_CSA_DiL/COMMON.TORSION index a51c1a9..3c9ae39 100644 --- a/source/unres/src_CSA_DiL/COMMON.TORSION +++ b/source/unres/src_CSA_DiL/COMMON.TORSION @@ -7,13 +7,13 @@ C Torsional constants of the rotation about virtual-bond dihedral angles & vlor1(maxlor,maxtor,maxtor), & vlor2(maxlor,maxtor,maxtor),vlor3(maxlor,maxtor,maxtor), & itortyp(-ntyp:ntyp),ntortyp, - & nterm(-maxtor,maxtor,-maxtor:maxtor,2), - & nlor(-maxtor:maxtor,-maxtor:maxtor,2) + & nterm(-maxtor:maxtor,-maxtor:maxtor,2), + & nlor(-maxtor:maxtor,-maxtor:maxtor,2) & ,nterm_old C 6/23/01 - constants for double torsionals double precision v1c,v1s,v2c,v2s integer ntermd_1,ntermd_2 -common /torsiond/ + common /torsiond/ &v1c(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,-maxtor:maxtor,2), &v1s(2,maxtermd_1,-maxtor:maxtor,-maxtor:maxtor,-maxtor:maxtor,2), &v2c(maxtermd_2,maxtermd_2,-maxtor:maxtor,-maxtor:maxtor, @@ -30,4 +30,4 @@ C surface & ,cc(2,2,-maxtor:maxtor), & dd(2,2,-maxtor:maxtor),ee(2,2,-maxtor:maxtor), & ctilde(2,2,-maxtor:maxtor), - & dtilde(2,2,-maxtor:maxtor),b1tilde(2,-maxtor,maxtor),nloctyp + & dtilde(2,2,-maxtor:maxtor),b1tilde(2,-maxtor:maxtor),nloctyp