Merge branch 'prerelease-3.2.1'

[unres.git] / source / cluster / wham / src-M / parmread.F

diff --git a/source/cluster/wham/src-M/parmread.F b/source/cluster/wham/src-M/parmread.F
index 877d72b..5517e89 100644 (file)
--- 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