X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M-NEWCORR%2Fparmread.F;h=3a6b14c3584841f1972ce04945ab154d2423b0f3;hb=5467f8060e885151d3415a9897913776c337d88a;hp=34d68d1b110a117320a45f9ef70b2f7ee7f0f18d;hpb=4d3fd4762ad7bfc6b3fdd9915befe7ea8da7f2e0;p=unres.git

diff --git a/source/wham/src-M-NEWCORR/parmread.F b/source/wham/src-M-NEWCORR/parmread.F
index 34d68d1..3a6b14c 100644
--- 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)