From 676d26e98c8ac83f4ed80a43fbc8a93e7ec8ebdd Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Wed, 6 May 2015 12:33:08 +0200 Subject: [PATCH] correction in readpdb (bugfix) --- source/unres/src_MD-M/readpdb.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.9.5