projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
the first working version of multichain homology
[unres.git]
/
source
/
cluster
/
wham
/
src-M
/
timing.F
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
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
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
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.
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
ovrtim=(curtim .ge. timlim - safety )
return
end
-**************************************************************************
+C=========================================================================
+C
double precision function tcpu()
include 'COMMON.TIME1'
#ifdef ES9000
double precision function tcpu()
include 'COMMON.TIME1'
#ifdef ES9000