]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | SUBROUTINE TIMER(IT) | |
3 | C | |
4 | C CALL SYSTEM CPU CLOCK -- MACHINE DEPENDENT. | |
5 | C IT=1 FOR RUN START TIME. | |
6 | C IT=2 FOR RUN STOP TIME. | |
7 | C | |
8 | #include "isajet/itapes.inc" | |
9 | #include "isajet/times.inc" | |
10 | DIMENSION TIMES(2) | |
11 | EQUIVALENCE (TIMES(1),TIME1) | |
12 | DIMENSION TTT(2) | |
13 | #if defined(CERNLIB_VAX) | |
14 | INTEGER CPUTIM(2),ITMLST(4),NHSEC | |
15 | EXTERNAL JPI$_CPUTIM | |
16 | #endif | |
17 | C | |
18 | C DEFAULT IS TO RETURN ZERO. | |
19 | TNOW=0. | |
20 | #if (defined(CERNLIB_CDC))&&(defined(CERNLIB_NOCERN)) | |
21 | C SECOND GIVES CPU TIME ON CDC. | |
22 | CALL SECOND(TNOW) | |
23 | #endif | |
24 | #if (defined(CERNLIB_ETA))&&(defined(CERNLIB_NOCERN)) | |
25 | C SECOND GIVES CPU TIME ON ETA. | |
26 | TNOW=SECOND() | |
27 | #endif | |
28 | #if (defined(CERNLIB_IBMRT))&&(defined(CERNLIB_NOCERN)) | |
29 | C MCLOCK GIVES CPU TIME ON IBM RS/6000. | |
30 | TNOW=FLOAT(MCLOCK())/60. | |
31 | #endif | |
32 | #if (defined(CERNLIB_SGI))&&(defined(CERNLIB_NOCERN)) | |
33 | C ETIME GIVES CPU TIME ON SILICON GRAPHICS. | |
34 | TNOW=ETIME(TTT) | |
35 | #endif | |
36 | #if (defined(CERNLIB_SUN))&&(defined(CERNLIB_NOCERN)) | |
37 | C ETIME GIVES CPU TIME ON SUN. | |
38 | TNOW=ETIME(TTT) | |
39 | #endif | |
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 | |
44 | ITMLST(2)=%LOC(NHSEC) | |
45 | ITMLST(3)=0 | |
46 | ITMLST(4)=0 | |
47 | CALL SYS$GETJPI(,,,ITMLST,,,) | |
48 | TNOW=.01*NHSEC | |
49 | #endif | |
50 | #if defined(CERNLIB_CERN) | |
51 | CALL TIMEST(1.E7) | |
52 | CALL TIMEX(TNOW) | |
53 | #endif | |
54 | TIMES(IT)=TNOW | |
55 | RETURN | |
56 | END |