X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Freadpdb.F;h=da934d549ed85fdc3d91543d178b1b0ef55279e7;hb=205c9fe33aded64a13b1c3acce5fec169a6f6b8a;hp=c7f0dddceb3cd25e42026c7713b7384b2ad30b74;hpb=15b42f55df952de190ff0322b8160f6d609f0cc9;p=unres.git

diff --git a/source/unres/src_MD-M/readpdb.F b/source/unres/src_MD-M/readpdb.F
index c7f0ddd..da934d5 100644
--- a/source/unres/src_MD-M/readpdb.F
+++ b/source/unres/src_MD-M/readpdb.F
@@ -74,7 +74,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