From 88ed3524aab7542a31b89909e78f9cd79b8fe99b Mon Sep 17 00:00:00 2001 From: Adam Kazimierz Sieradzan Date: Thu, 5 Jul 2012 05:51:00 -0400 Subject: [PATCH] DIL zmiana w param read --- source/unres/src_MD/parmread.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.9.5