X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Freadpdb.f;h=24bd600e54731a8f3affefc4ae031b2fb6586e5d;hb=e85035720a1bc8328949e1c2730d8b229304851c;hp=bf2f2048700ed69c31752bc9e7e2d0a3ced5b1f6;hpb=d4479dd2119d03a168ef9526875205081c53e5a9;p=unres.git

diff --git a/source/wham/src-M/readpdb.f b/source/wham/src-M/readpdb.f
index bf2f204..24bd600 100644
--- a/source/wham/src-M/readpdb.f
+++ b/source/wham/src-M/readpdb.f
@@ -163,7 +163,7 @@ C Splits to single chain if occurs
       lll=lll+1
 cc      write (iout,*) "spraw lancuchy",(c(j,i),j=1,3)
       if (i.gt.1) then 
-      if (itype(i-1).eq.ntyp1) then
+      if ((itype(i-1).eq.ntyp1).and.(i.gt.2)) then
       chain_length=lll-1
       kkk=kkk+1
 c       write (iout,*) "spraw lancuchy",(c(j,i),j=1,3)