From c0a220aad5ca88372142c9bd182ada7e976d21e5 Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Wed, 31 Oct 2012 17:00:25 +0100 Subject: [PATCH 1/1] fix tcpu function in cluster/wham for gfortran --- source/cluster/wham/src-M/timing.F | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/source/cluster/wham/src-M/timing.F b/source/cluster/wham/src-M/timing.F index 1fc1ddf..b8bfdd4 100644 --- a/source/cluster/wham/src-M/timing.F +++ b/source/cluster/wham/src-M/timing.F @@ -5,6 +5,7 @@ C C subroutine set_timers c + double precision tcpu ! function include 'COMMON.TIME1' C Diminish the assigned time limit a little so that there is some time to C end a batch job @@ -73,7 +74,10 @@ cd print *,'Processor ',MyID,' is checking STOP: nf=',nf endif return end - logical function ovrtim() +C========================================================================= +C + logical function ovrtim() + double precision tcpu ! function include 'COMMON.TIME1' C Set a 100.0 secs. safety margin, so as to allow for the termination of C a batch job. @@ -84,7 +88,8 @@ C curtim is the current time in seconds. ovrtim=(curtim .ge. timlim - safety ) return end -************************************************************************** +C========================================================================= +C double precision function tcpu() include 'COMMON.TIME1' #ifdef ES9000 -- 1.7.9.5