X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc%2Fxdrf2ang.f;h=83daf779245faf8999e8ae6fc77204908c80b4d6;hb=84d8d7cefbfab8b46d1eef466a6bcf3a44ed257f;hp=ad533bc350fdb9b35c32ff55babfd9d3ab06a5ff;hpb=4eb1a8d40f823c4f0915bdfe557b796e56c6ba98;p=unres.git

diff --git a/source/xdrfpdb/src/xdrf2ang.f b/source/xdrfpdb/src/xdrf2ang.f
index ad533bc..83daf77 100644
--- a/source/xdrfpdb/src/xdrf2ang.f
+++ b/source/xdrfpdb/src/xdrf2ang.f
@@ -59,7 +59,7 @@
    11   continue
         nres=i
         i=0
-        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