From 03796abc37f8aeff6e6c84e967993ce1b06f05a4 Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Tue, 22 May 2012 23:06:12 +0200 Subject: [PATCH] more xdrfpdb fixes for gfortran build --- source/xdrfpdb/src-M/xdrf2pdb-m.F | 6 ++++-- source/xdrfpdb/src/xdrf2ang.f | 3 ++- source/xdrfpdb/src/xdrf2pdb-m.F | 6 ++++-- source/xdrfpdb/src/xdrf2x.F | 3 ++- 4 files changed, 12 insertions(+), 6 deletions(-) diff --git a/source/xdrfpdb/src-M/xdrf2pdb-m.F b/source/xdrfpdb/src-M/xdrf2pdb-m.F index 0016d40..b665b89 100644 --- a/source/xdrfpdb/src-M/xdrf2pdb-m.F +++ b/source/xdrfpdb/src-M/xdrf2pdb-m.F @@ -39,7 +39,8 @@ 10 continue nres=i i=0 - do while (.not.iblnk(sequenc(i+1)(1:1))) +c do while (.not.iblnk(sequenc(i+1)(1:1))) + do while (.not.(iblnk(sequenc(i+1)(1:1))==0) ) i=i+1 enddo nres=i @@ -51,7 +52,8 @@ 11 continue nres=i i=0 - do while (.not.iblnk(sequenc(i+1)(1:1))) +c do while (.not.iblnk(sequenc(i+1)(1:1))) + do while (.not.(iblnk(sequenc(i+1)(1:1))==0)) i=i+1 enddo nres=i diff --git a/source/xdrfpdb/src/xdrf2ang.f b/source/xdrfpdb/src/xdrf2ang.f index 83daf77..dbd5852 100644 --- a/source/xdrfpdb/src/xdrf2ang.f +++ b/source/xdrfpdb/src/xdrf2ang.f @@ -47,7 +47,8 @@ 10 continue nres=i i=0 - do while (.not.iblnk(sequenc(i+1)(1:1))) +c do while (.not.iblnk(sequenc(i+1)(1:1))) + do while (.not.(iblnk(sequenc(i+1)(1:1)) == 0) ) i=i+1 enddo nres=i diff --git a/source/xdrfpdb/src/xdrf2pdb-m.F b/source/xdrfpdb/src/xdrf2pdb-m.F index 6a116ee..f929efe 100644 --- a/source/xdrfpdb/src/xdrf2pdb-m.F +++ b/source/xdrfpdb/src/xdrf2pdb-m.F @@ -39,7 +39,8 @@ 10 continue nres=i i=0 - do while (.not.iblnk(sequenc(i+1)(1:1))) +c do while (.not.iblnk(sequenc(i+1)(1:1))) + do while (.not.(iblnk(sequenc(i+1)(1:1)) == 0)) i=i+1 enddo nres=i @@ -51,7 +52,8 @@ 11 continue nres=i i=0 - do while (.not.iblnk(sequenc(i+1)(1:1))) +c do while (.not.iblnk(sequenc(i+1)(1:1))) + do while (.not.(iblnk(sequenc(i+1)(1:1)) == 0)) i=i+1 enddo nres=i diff --git a/source/xdrfpdb/src/xdrf2x.F b/source/xdrfpdb/src/xdrf2x.F index b6e86cf..be662e6 100644 --- a/source/xdrfpdb/src/xdrf2x.F +++ b/source/xdrfpdb/src/xdrf2x.F @@ -3,7 +3,8 @@ integer ihpb(100),jhpb(100) character*80 arg,ctime_start /"0"/,ctime_end /"1000000000"/, & cfreq /"1"/ - integer time_start,time_end,freq +c integer time_start,time_end,freq + real time_start,time_end,freq call getarg(1,arg) if (iargc().eq.0) stop -- 1.7.9.5