projects / unres.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 66693b0)
correction in readpdb (bugfix)
authorAdam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Wed, 6 May 2015 10:33:08 +0000 (12:33 +0200)
committerCezary Czaplewski <czarek@chem.univ.gda.pl>
Wed, 6 May 2015 11:14:22 +0000 (13:14 +0200)
source/unres/src_MD-M/readpdb.F patch | blob | history

diff --git a/source/unres/src_MD-M/readpdb.F b/source/unres/src_MD-M/readpdb.F
index c7f0ddd..da934d5 100644 (file)
--- 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
UNRESPACK 3.x