X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc%2Fxdrf2ang.f;h=a24d75df8cde913e5279527eae7f677d3c5bef58;hb=fd1901c40611f2f95c5c488b9ebc6a291b927d25;hp=42f62a45a10383574ea4331c4fbf3b9c860830db;hpb=4c94f7951107da471d3b5dfd8a07553258abf5f4;p=unres.git

diff --git a/source/xdrfpdb/src/xdrf2ang.f b/source/xdrfpdb/src/xdrf2ang.f
index 42f62a4..a24d75d 100644
--- a/source/xdrfpdb/src/xdrf2ang.f
+++ b/source/xdrfpdb/src/xdrf2ang.f
@@ -60,7 +60,8 @@ c        do while (.not.(iblnk(sequenc(i+1)(1:1)) == 0) )
    11   continue
         nres=i
         i=0
-        do while (.not.(iblnk(sequenc(i+1)(1:1)) == 0) )
+        do while (.not.iblnk(sequenc(i+1)(1:1)))
+c        do while (.not.(iblnk(sequenc(i+1)(1:1)) == 0) )
           i=i+1
         enddo 
         nres=i