From 84d8d7cefbfab8b46d1eef466a6bcf3a44ed257f Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Tue, 22 May 2012 22:50:22 +0200 Subject: [PATCH] gfortran patch for xdrf2ang.f --- source/xdrfpdb/src/xdrf2ang.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.9.5