From: Dawid Jagiela <lightnir@chem.univ.gda.pl>
Date: Wed, 31 Oct 2012 16:00:25 +0000 (+0100)
Subject: fix tcpu function in cluster/wham for gfortran
X-Git-Tag: v.3.2~60
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=c0a220aad5ca88372142c9bd182ada7e976d21e5

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
--- 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