From a80d9d228016ea14a30be2c7ef9a952e3ef86869 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 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 -- 1.7.9.5