1 C $Date: 1994/10/05 16:41:52 $
10 include 'COMMON.TIME1'
11 C Diminish the assigned time limit a little so that there is some time to
14 C Calculate the initial time, if it is not zero (e.g. for the SUN).
16 cd print *,' in SET_TIMERS stime=',stime
19 C------------------------------------------------------------------------------
20 logical function stopx(nf)
21 C This function returns .true. in case of time up on the master node.
23 include 'DIMENSIONS.ZSCOPT'
31 include 'COMMON.IOUNITS'
32 include 'COMMON.TIME1'
33 c write (iout,*) "NF",nf," NFOLD",nfold," LLOCAL",llocal
41 C Finish if time is up.
44 c write (iout,*) "In STOPX (OVRTIM): TRUE"
45 else if (cutoffviol) then
48 c write (iout,*) "In STOPX (CUTOFFVIOL): TRUE"
50 c write (iout,*) "In STOPX: FALSE"
51 c write (iout,*) "NF=",nf," NFOLD=",NFOLD," NDELTA=",ndelta
53 if (nf-nfold.ge.ndelta) then
57 c write (iout,*) "CUFOFFEVAL",cutoffeval
61 C--------------------------------------------------------------------------
62 logical function ovrtim()
64 include 'COMMON.TIME1'
67 c print *,'curtim=',curtim,' timlim=',timlim
68 C curtim is the current time in seconds.
69 c ovrtim=(curtim .ge. timlim - safety )
70 c ovrtim does not work sometimes and crashes the program ! CHUUUJ !
71 c setting always to false
75 **************************************************************************
76 double precision function tcpu()
78 include 'COMMON.TIME1'
80 ****************************
81 C Next definition for EAGLE (ibm-es9000)
84 tcpu=cputime(micseconds,rcode)
85 tcpu=(micseconds/1.0E6) - stime
86 ****************************
89 ****************************
90 C Next definitions for sun
91 REAL*8 ECPU,ETIME,ETCPU
95 ****************************
98 ****************************
99 C Next definitions for ksr
100 C this function uses the ksr timer ALL_SECONDS from the PMON library to
101 C return the elapsed time in seconds
102 tcpu= all_seconds() - stime
103 ****************************
106 ****************************
107 C Next definitions for sgi
108 real timar(2), etime, seconds
109 seconds = etime(timar)
110 Cd print *,'seconds=',seconds,' stime=',stime
114 ****************************
118 ****************************
119 C Next definitions for sgi
120 real timar(2), etime, seconds
121 seconds = etime(timar)
122 Cd print *,'seconds=',seconds,' stime=',stime
126 ****************************
131 ****************************
132 C Next definitions for Cray
139 ****************************
142 ****************************
143 C Next definitions for RS6000
146 tcpu = (i1+0.0D0)/100.0D0
149 ****************************
150 c next definitions for windows NT Digital fortran
152 call cpu_time(time_real)
158 C---------------------------------------------------------------------------
159 subroutine dajczas(rntime,hrtime,mintime,sectime)
160 include 'DIMENSIONS.ZSCOPT'
161 include 'COMMON.IOUNITS'
162 real*8 rntime,hrtime,mintime,sectime
163 hrtime=rntime/3600.0D0
165 mintime=aint((rntime-3600.0D0*hrtime)/60.0D0)
166 sectime=aint((rntime-3600.0D0*hrtime-60.0D0*mintime)+0.5D0)
167 if (sectime.eq.60.0D0) then
169 mintime=mintime+1.0D0
174 write (iout,328) ihr,imn,isc
175 328 FORMAT(//'***** Computation time: ',I4 ,' hours ',I2 ,
176 1 ' minutes ', I2 ,' seconds *****')