C
C
C
+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
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 ..................................................................
C
include 'DIMENSIONS'
integer nf
- logical ovrtim
+ logical ovrtim ! function
include 'COMMON.IOUNITS'
include 'COMMON.TIME1'
#ifdef MPL
stopx = .false.
endif
return
- end
+ end !end of stopx
+
+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.
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
#endif
#ifdef LINUX
****************************
-C Next definitions for sgi
- real timar(2), etime
+C Next definitions for Linux
+ real :: timar(2)
+ real :: seconds
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
+
return
- end
-*
+ end ! end of tcpu
+
+
+C=========================================================================
+C
subroutine dajczas(rntime,hrtime,mintime,sectime)
include 'COMMON.IOUNITS'
real*8 rntime,hrtime,mintime,sectime