From: Adam Kazimierz Sieradzan <adasko@sun1.chem.univ.gda.pl>
Date: Thu, 5 Jul 2012 09:51:00 +0000 (-0400)
Subject: DIL zmiana w param read
X-Git-Tag: v.3.2~72^2~5^2~4
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=88ed3524aab7542a31b89909e78f9cd79b8fe99b

DIL zmiana w param read
---

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