X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc-M%2Fxdrf2pdb-m.F;h=ec14da2183ab9ab3af6872babb1afd66ded0229e;hb=c8c1a6e18b5eae6bac811020e612881e5f065249;hp=118148a9ccb1c4da3e7a0b6cd7a943b21c7f3f2a;hpb=4414a8abc39ee2b2833c676b9ac33e1e62bb699c;p=unres.git

diff --git a/source/xdrfpdb/src-M/xdrf2pdb-m.F b/source/xdrfpdb/src-M/xdrf2pdb-m.F
index 118148a..ec14da2 100644
--- a/source/xdrfpdb/src-M/xdrf2pdb-m.F
+++ b/source/xdrfpdb/src-M/xdrf2pdb-m.F
@@ -13,7 +13,7 @@
       character*3 licz
       character*8 ucase
       external ucase
-      logical oneletter, iblnk
+      logical oneletter,iblnk
       integer rescode
       external rescode
       
@@ -40,8 +40,7 @@
    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)))
           i=i+1
         enddo 
         nres=i
@@ -53,8 +52,7 @@ c        do while (.not.iblnk(sequenc(i+1)(1:1)))
    11   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)))
           i=i+1
         enddo 
         nres=i