From: Dawid Jagiela Date: Mon, 11 Jun 2012 12:02:09 +0000 (+0200) Subject: fix of malloc in xdrf2pdb-m X-Git-Tag: v.3.2~86 X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=550a100044d152c87025fc3f0757b24a338fd2ed;hp=7066d6d51c145a59c566196d2e5645c4d001a8f5;p=unres.git fix of malloc in xdrf2pdb-m --- 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