X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fparmread.F;h=b7953b3ada063fc6859b6d277ad168896a03dd44;hb=3df086feea19ddecdec2c2244a0673dda9b4e692;hp=8fac6c16325e1a187aa55fec17e1f8a5d19855c8;hpb=42938c495d52569330698507a38cfea21fd80197;p=unres.git

diff --git a/source/unres/src_MD/parmread.F b/source/unres/src_MD/parmread.F
index 8fac6c1..b7953b3 100644
--- a/source/unres/src_MD/parmread.F
+++ b/source/unres/src_MD/parmread.F
@@ -642,9 +642,9 @@ c      write (iout,*) 'ntortyp',ntortyp
 C
 C 6/23/01 Read parameters for double torsionals
 C
-      do i=1,ntortyp
-        do j=1,ntortyp
-          do k=1,ntortyp
+      do i=0,ntortyp-1
+        do j=-ntortyp+1,ntortyp-1
+          do k=-ntortyp+1,ntortyp-1
             read (itordp,'(3a1)',end=114,err=114) t1,t2,t3
 c              write (iout,*) "OK onelett",
 c     &         i,j,k,t1,t2,t3