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"
51 c write (iout,*) "In STOPX: FALSE"
52 c write (iout,*) "NF=",nf," NFOLD=",NFOLD," NDELTA=",ndelta
54 c if (nf-nfold.ge.ndelta) then
58 c write (iout,*) "CUFOFFEVAL",cutoffeval
62 C--------------------------------------------------------------------------
63 logical function ovrtim()
65 include 'COMMON.TIME1'
68 c print *,'curtim=',curtim,' timlim=',timlim
69 C curtim is the current time in seconds.
70 c ovrtim=(curtim .ge. timlim - safety )
71 c ovrtim does not work sometimes and crashes the program ! CHUUUJ !
72 c setting always to false
76 **************************************************************************
77 double precision function tcpu()
79 include 'COMMON.TIME1'
81 ****************************
82 C Next definition for EAGLE (ibm-es9000)
85 tcpu=cputime(micseconds,rcode)
86 tcpu=(micseconds/1.0E6) - stime
87 ****************************
90 ****************************
91 C Next definitions for sun
92 REAL*8 ECPU,ETIME,ETCPU
96 ****************************
99 ****************************
100 C Next definitions for ksr
101 C this function uses the ksr timer ALL_SECONDS from the PMON library to
102 C return the elapsed time in seconds
103 tcpu= all_seconds() - stime
104 ****************************
107 ****************************
108 C Next definitions for sgi
109 real timar(2), etime, seconds
110 seconds = etime(timar)
111 Cd print *,'seconds=',seconds,' stime=',stime
115 ****************************
119 ****************************
120 C Next definitions for sgi
121 real timar(2), etime, seconds
122 seconds = etime(timar)
123 Cd print *,'seconds=',seconds,' stime=',stime
127 ****************************
132 ****************************
133 C Next definitions for Cray
140 ****************************
143 ****************************
144 C Next definitions for RS6000
147 tcpu = (i1+0.0D0)/100.0D0
150 ****************************
151 c next definitions for windows NT Digital fortran
153 call cpu_time(time_real)
159 C---------------------------------------------------------------------------
160 subroutine dajczas(rntime,hrtime,mintime,sectime)
161 include 'DIMENSIONS.ZSCOPT'
162 include 'COMMON.IOUNITS'
163 real*8 rntime,hrtime,mintime,sectime
164 hrtime=rntime/3600.0D0
166 mintime=aint((rntime-3600.0D0*hrtime)/60.0D0)
167 sectime=aint((rntime-3600.0D0*hrtime-60.0D0*mintime)+0.5D0)
168 if (sectime.eq.60.0D0) then
170 mintime=mintime+1.0D0
175 write (iout,328) ihr,imn,isc
176 328 FORMAT(//'***** Computation time: ',I4 ,' hours ',I2 ,
177 1 ' minutes ', I2 ,' seconds *****')