From: Dawid Jagiela <lightnir@chem.univ.gda.pl>
Date: Tue, 22 May 2012 20:50:22 +0000 (+0200)
Subject: gfortran patch for   xdrf2ang.f
X-Git-Tag: v.3.3.0~5^2~266
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=91cb8f2e6707032462a4f9fc09ac8f913f8ee2b0;p=unres.git

gfortran patch for   xdrf2ang.f
---

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