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
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.
ovrtim=(curtim .ge. timlim - safety )
return
end
-**************************************************************************
+C=========================================================================
+C
double precision function tcpu()
include 'COMMON.TIME1'
#ifdef ES9000