X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fparmread.F;h=654c30518eb9f6067150240f4c3858f80a786fac;hb=88ed3524aab7542a31b89909e78f9cd79b8fe99b;hp=c08cb7f2e7958fc4c900b163edd5c9e7c67eb534;hpb=cc6bfed2a73175fb7329acdd60f3d89d9f25afbb;p=unres.git

diff --git a/source/unres/src_MD/parmread.F b/source/unres/src_MD/parmread.F
index c08cb7f..654c305 100644
--- a/source/unres/src_MD/parmread.F
+++ b/source/unres/src_MD/parmread.F
@@ -646,7 +646,7 @@ C
         write (iout,*) "Coefficients of the cumulants"
       endif
       read (ifourier,*) nloctyp
-      do i=1,nloctyp
+      do i=0,nloctyp-1
         read (ifourier,*,end=115,err=115)
         read (ifourier,*,end=115,err=115) (b(ii),ii=1,13)
         if (lprint) then