1 #include "isajet/pilot.h"
4 C CALL SYSTEM CPU CLOCK -- MACHINE DEPENDENT.
5 C IT=1 FOR RUN START TIME.
6 C IT=2 FOR RUN STOP TIME.
8 #include "isajet/itapes.inc"
9 #include "isajet/times.inc"
11 EQUIVALENCE (TIMES(1),TIME1)
13 #if defined(CERNLIB_VAX)
14 INTEGER CPUTIM(2),ITMLST(4),NHSEC
18 C DEFAULT IS TO RETURN ZERO.
20 #if (defined(CERNLIB_CDC))&&(defined(CERNLIB_NOCERN))
21 C SECOND GIVES CPU TIME ON CDC.
24 #if (defined(CERNLIB_ETA))&&(defined(CERNLIB_NOCERN))
25 C SECOND GIVES CPU TIME ON ETA.
28 #if (defined(CERNLIB_IBMRT))&&(defined(CERNLIB_NOCERN))
29 C MCLOCK GIVES CPU TIME ON IBM RS/6000.
30 TNOW=FLOAT(MCLOCK())/60.
32 #if (defined(CERNLIB_SGI))&&(defined(CERNLIB_NOCERN))
33 C ETIME GIVES CPU TIME ON SILICON GRAPHICS.
36 #if (defined(CERNLIB_SUN))&&(defined(CERNLIB_NOCERN))
37 C ETIME GIVES CPU TIME ON SUN.
40 #if (defined(CERNLIB_VAX))&&(defined(CERNLIB_NOCERN))
41 C VAX HAS NO FORTRAN FUNCTION FOR CPU TIME.
42 C FOLLOWING PROVIDED BY T. KILLIAN
43 ITMLST(1)=ISHFT(%LOC(JPI$_CPUTIM),16)+4
47 CALL SYS$GETJPI(,,,ITMLST,,,)
50 #if defined(CERNLIB_CERN)