X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc%2Fxdrf2pdb-m.F;h=ce896800bbbecaf95b6baae0c7f676ba67664607;hb=550a100044d152c87025fc3f0757b24a338fd2ed;hp=f929efe6f8b0c3ad3322775ca9edd48e188f72a2;hpb=7066d6d51c145a59c566196d2e5645c4d001a8f5;p=unres.git

diff --git a/source/xdrfpdb/src/xdrf2pdb-m.F b/source/xdrfpdb/src/xdrf2pdb-m.F
index f929efe..ce89680 100644
--- a/source/xdrfpdb/src/xdrf2pdb-m.F
+++ b/source/xdrfpdb/src/xdrf2pdb-m.F
@@ -12,7 +12,7 @@
       character*8 onethree,cfreq,cntraj,citraj
       character*8 ucase
       external ucase
-      logical oneletter
+      logical oneletter, iblnk
       integer rescode
       external rescode
       
@@ -39,8 +39,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
@@ -52,8 +52,8 @@ 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)))
+c        do while (.not.(iblnk(sequenc(i+1)(1:1)) == 0))
           i=i+1
         enddo 
         nres=i