Commit Adam 6/29/2014

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

diff --git a/source/wham/src-M-NEWCORR/parmread.F b/source/wham/src-M-NEWCORR/parmread.F
index 34d68d1..3a6b14c 100644 (file)
--- a/source/wham/src-M-NEWCORR/parmread.F
+++ b/source/wham/src-M-NEWCORR/parmread.F
@@ -917,7 +917,7 @@ c        write(iout,*) "TU DOCHODZE"
       enddo
 c      lprint=.true.
       if (lprint) then
-      do i=1,nloctyp
+      do i=0,nloctyp-1
         write (iout,*) 'Type',i
         write (iout,*) 'BNEW1(1)'
         write (iout,*) (BNEW1(ii,1,i),ii=1,3)