From c8c1a6e18b5eae6bac811020e612881e5f065249 Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Mon, 18 Jun 2012 21:16:05 +0200 Subject: [PATCH] fixed source/xdrfpdb/src-M/xdrf2pdb-m.F --- source/xdrfpdb/src-M/xdrf2pdb-m.F | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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 -- 1.7.9.5