X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Ftiming.F;h=b8bfdd43543e4bc0ba13c41fb96aa6e14f4db215;hb=c0a220aad5ca88372142c9bd182ada7e976d21e5;hp=1fc1ddf9aa2474b4e8fb3e96a76131fb07c79f6c;hpb=df3fe40abcd0e0c5ced37bdcec1459de3674865b;p=unres.git

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