From: Adam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Date: Wed, 6 May 2015 10:33:08 +0000 (+0200)
Subject: correction in readpdb (bugfix)
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=a80d9d228016ea14a30be2c7ef9a952e3ef86869

correction in readpdb (bugfix)
---

diff --git a/source/unres/src_MD-M/readpdb.F b/source/unres/src_MD-M/readpdb.F
index 03e928d..2026425 100644
--- a/source/unres/src_MD-M/readpdb.F
+++ b/source/unres/src_MD-M/readpdb.F
@@ -80,7 +80,7 @@ C Calculate the CM of the preceding residue.
             endif
 C Start new residue.
 c            write (iout,'(a80)') card
-            read (card(24:26),*) ires
+            read (card(23:26),*) ires
             read (card(18:20),'(a3)') res
             if (ibeg.eq.1) then
               ishift=ires-1