zmiana w symetry (bugfix)

[unres.git] / source / wham / src-M / readpdb.f

diff --git a/source/wham/src-M/readpdb.f b/source/wham/src-M/readpdb.f
index bf2f204..24bd600 100644 (file)
--- 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)