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

diff --git a/source/cluster/wham/src-M/parmread.F b/source/cluster/wham/src-M/parmread.F
index 877d72b..5517e89 100644
--- a/source/cluster/wham/src-M/parmread.F
+++ b/source/cluster/wham/src-M/parmread.F
@@ -548,6 +548,7 @@ cc maxinter is maximum interaction sites
       close (isccor)
       if (lprint) then
         write (iout,'(/a/)') 'Torsional constants of SCCORR:'
+        do l=1,maxinter
         do i=1,nsccortyp
           do j=1,nsccortyp
             write (iout,*) 'ityp',i,' jtyp',j
@@ -563,6 +564,7 @@ cc maxinter is maximum interaction sites
             enddo 
           enddo
         enddo
+        enddo
       endif
 C
 C 9/18/99 (AL) Read coefficients of the Fourier expansion of the local