X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fparmread.F;fp=source%2Fcluster%2Fwham%2Fsrc%2Fparmread.F;h=b1a9a327ae19edf2331c4418154c3559c6a08dca;hp=656d2198967fafafbfc64a1c81b8a4d4e6b339fb;hb=9453fc761eb545fcb727824c94d012dbf3931951;hpb=6f521277aa2a382d409f5189957283b0998b0d07

diff --git a/source/cluster/wham/src/parmread.F b/source/cluster/wham/src/parmread.F
index 656d219..b1a9a32 100644
--- a/source/cluster/wham/src/parmread.F
+++ b/source/cluster/wham/src/parmread.F
@@ -502,6 +502,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
@@ -517,6 +518,7 @@ cc maxinter is maximum interaction sites
             enddo
           enddo
         enddo
+        enddo
       endif
 
 C