projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
constr_homol corrections in wham and cluster_wham to match unres energy
[unres.git]
/
source
/
cluster
/
wham
/
src
/
timing.F
diff --git
a/source/cluster/wham/src/timing.F
b/source/cluster/wham/src/timing.F
index
1fc1ddf
..
11cad72
100644
(file)
--- a/
source/cluster/wham/src/timing.F
+++ b/
source/cluster/wham/src/timing.F
@@
-3,8
+3,11
@@
C $Revision: 2.2 $
C
C
C
C
C
C
+C=========================================================================
+C
subroutine set_timers
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
@@
-12,7
+15,11
@@
c timlim=batime-150.0
C Calculate the initial time, if it is not zero (e.g. for the SUN).
stime=tcpu()
return
C Calculate the initial time, if it is not zero (e.g. for the SUN).
stime=tcpu()
return
- end
+ end ! end of set_timers
+
+
+C=========================================================================
+C
logical function stopx(nf)
C
C ..................................................................
logical function stopx(nf)
C
C ..................................................................
@@
-40,7
+47,7
@@
C ..................................................................
C
include 'DIMENSIONS'
integer nf
C
include 'DIMENSIONS'
integer nf
- logical ovrtim
+ logical ovrtim ! function
include 'COMMON.IOUNITS'
include 'COMMON.TIME1'
#ifdef MPL
include 'COMMON.IOUNITS'
include 'COMMON.TIME1'
#ifdef MPL
@@
-72,8
+79,12
@@
cd print *,'Processor ',MyID,' is checking STOP: nf=',nf
stopx = .false.
endif
return
stopx = .false.
endif
return
- end
+ end !end of stopx
+
+C=========================================================================
+C
logical function ovrtim()
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.
@@
-83,8
+94,10
@@
cd print *,'curtim=',curtim,' timlim=',timlim
C curtim is the current time in seconds.
ovrtim=(curtim .ge. timlim - safety )
return
C curtim is the current time in seconds.
ovrtim=(curtim .ge. timlim - safety )
return
- end
-**************************************************************************
+ end ! end of ovrtim
+
+C=========================================================================
+C
double precision function tcpu()
include 'COMMON.TIME1'
#ifdef ES9000
double precision function tcpu()
include 'COMMON.TIME1'
#ifdef ES9000
@@
-140,20
+153,22
@@
C Next definitions for RS6000
i1 = mclock()
tcpu = (i1+0.0D0)/100.0D0
#endif
i1 = mclock()
tcpu = (i1+0.0D0)/100.0D0
#endif
-#ifdef LINUX
+#if defined(LINUX) && !defined(AIX)
****************************
****************************
-C Next definitions for sgi
- real timar(2), etime
+C Next definitions for Linux
+ real :: timar(2)
+ real :: seconds
seconds = etime(timar)
seconds = etime(timar)
-Cd print *,'seconds=',seconds,' stime=',stime
-C usrsec = timar(1)
-C syssec = timar(2)
- tcpu=seconds - stime
+ tcpu=DBLE(seconds - stime)
****************************
#endif
****************************
#endif
+
return
return
- end
-*
+ end ! end of tcpu
+
+
+C=========================================================================
+C
subroutine dajczas(rntime,hrtime,mintime,sectime)
include 'COMMON.IOUNITS'
real*8 rntime,hrtime,mintime,sectime
subroutine dajczas(rntime,hrtime,mintime,sectime)
include 'COMMON.IOUNITS'
real*8 rntime,hrtime,mintime,sectime