From 550a100044d152c87025fc3f0757b24a338fd2ed Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Mon, 11 Jun 2012 14:02:09 +0200 Subject: [PATCH 1/1] 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