X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc-M%2Fxdrf2pdb-m.F;h=b665b89747e09e38a135ebd70a468e7b696c1549;hb=03796abc37f8aeff6e6c84e967993ce1b06f05a4;hp=0016d40b037ee216637f20c60866a95198d3fb5a;hpb=84d8d7cefbfab8b46d1eef466a6bcf3a44ed257f;p=unres.git

diff --git a/source/xdrfpdb/src-M/xdrf2pdb-m.F b/source/xdrfpdb/src-M/xdrf2pdb-m.F
index 0016d40..b665b89 100644
--- a/source/xdrfpdb/src-M/xdrf2pdb-m.F
+++ b/source/xdrfpdb/src-M/xdrf2pdb-m.F
@@ -39,7 +39,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
@@ -51,7 +52,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