From: Dawid Jagiela Date: Mon, 18 Jun 2012 19:16:05 +0000 (+0200) Subject: fixed source/xdrfpdb/src-M/xdrf2pdb-m.F X-Git-Tag: v.3.2~80^2~7 X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=c8c1a6e18b5eae6bac811020e612881e5f065249 fixed source/xdrfpdb/src-M/xdrf2pdb-m.F --- 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