more xdrfpdb fixes for gfortran build

[unres.git] / source / xdrfpdb / src / xdrf2ang.f

diff --git a/source/xdrfpdb/src/xdrf2ang.f b/source/xdrfpdb/src/xdrf2ang.f
index 83daf77..dbd5852 100644 (file)
--- a/source/xdrfpdb/src/xdrf2ang.f
+++ b/source/xdrfpdb/src/xdrf2ang.f
@@ -47,7 +47,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