debug w poszukiwaniu bledu w ostatniej reszcie

[unres.git] / source / unres / src_MD-M / COMMON.TORSION

diff --git a/source/unres/src_MD-M/COMMON.TORSION b/source/unres/src_MD-M/COMMON.TORSION
index 2a887a6..e0f9c5d 100644 (file)
--- a/source/unres/src_MD-M/COMMON.TORSION
+++ b/source/unres/src_MD-M/COMMON.TORSION
@@ -10,7 +10,7 @@ C Torsional constants of the rotation about virtual-bond dihedral angles
      &    nterm(maxtor,maxtor),
      &    nlor(maxtor,maxtor), 
      &    nterm_old,
-     &    itortyp(ntyp),
+     &    itortyp(ntyp1),
      &    ntortyp
 C 6/23/01 - constants for double torsionals
       double precision v1c,v1s,v2c,v2s