X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc-M%2Fxdrf2pdb-m.F;fp=source%2Fxdrfpdb%2Fsrc-M%2Fxdrf2pdb-m.F;h=118148a9ccb1c4da3e7a0b6cd7a943b21c7f3f2a;hb=fa1db3888c80d6b1ceb7c21f466415e299c45233;hp=ad4cb1075157b74a521f0ae5a7c346e6d0d8279d;hpb=0fcfcdb0d41d3ff88aadc59c6dbc2448c9c8fd4f;p=unres.git

diff --git a/source/xdrfpdb/src-M/xdrf2pdb-m.F b/source/xdrfpdb/src-M/xdrf2pdb-m.F
index ad4cb10..118148a 100644
--- a/source/xdrfpdb/src-M/xdrf2pdb-m.F
+++ b/source/xdrfpdb/src-M/xdrf2pdb-m.F
@@ -40,7 +40,8 @@
    10   continue
         nres=i
         i=0
-        do while (.not.iblnk(sequenc(i+1)(1:1)))
+c        do while (.not.iblnk(sequenc(i+1)(1:1)))
+        do while (.not.(iblnk(sequenc(i+1)(1:1))==0) )
           i=i+1
         enddo 
         nres=i
@@ -52,7 +53,8 @@
    11   continue
         nres=i
         i=0
-        do while (.not.iblnk(sequenc(i+1)(1:1)))
+c        do while (.not.iblnk(sequenc(i+1)(1:1)))
+        do while (.not.(iblnk(sequenc(i+1)(1:1))==0))
           i=i+1
         enddo 
         nres=i