From dc719b81749e665465aaef8275d643859582a2be Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Mon, 11 Jun 2012 14:02:09 +0200 Subject: [PATCH] fix of malloc in xdrf2pdb-m --- source/xdrfpdb/src/xdrf2pdb-m.F | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 -- 1.7.9.5