X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fparmread.F;h=abb33a097ce578fd2a2dc12ad2d0e2dde89c8534;hb=d28adcc189ba04a8f8ede9160c3e51e73d92a920;hp=b0bde79f265d5457951b5aba97bea6cb975e6a4a;hpb=357148eb01c1ea7e5cfd362d34f1e1ab61c8f2a8;p=unres.git

diff --git a/source/wham/src/parmread.F b/source/wham/src/parmread.F
index b0bde79..abb33a0 100644
--- a/source/wham/src/parmread.F
+++ b/source/wham/src/parmread.F
@@ -647,6 +647,7 @@ cc maxinter is maximum interaction sites
 
       if (lprint) then
         write (iout,'(/a/)') 'Torsional constants:'
+        do l=1,maxinter
         do i=1,nsccortyp
           do j=1,nsccortyp
             write (iout,*) 'ityp',i,' jtyp',j
@@ -661,6 +662,7 @@ cc maxinter is maximum interaction sites
             enddo
           enddo
         enddo
+        enddo
       endif
 
 C