fix tcpu function in cluster/wham for gfortran

diff --git a/source/cluster/wham/src-M/timing.F b/source/cluster/wham/src-M/timing.F
index 1fc1ddf..b8bfdd4 100644 (file)
--- 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