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

diff --git a/source/xdrfpdb/src/xdrf2ang.f b/source/xdrfpdb/src/xdrf2ang.f
index dbd5852..42f62a4 100644
--- a/source/xdrfpdb/src/xdrf2ang.f
+++ b/source/xdrfpdb/src/xdrf2ang.f
@@ -14,7 +14,7 @@
       character*8 onethree,cfreq
       character*8 ucase
       external ucase
-      logical oneletter
+      logical oneletter, iblnk
       integer rescode
       external rescode
       
@@ -47,8 +47,8 @@
    10   continue
         nres=i
         i=0
-c        do while (.not.iblnk(sequenc(i+1)(1:1)))
-        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