X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=blobdiff_plain;f=ISAJET%2Fcode%2Ftimer.F;fp=ISAJET%2Fcode%2Ftimer.F;h=0000000000000000000000000000000000000000;hp=ee0e5812f4e515430ec95b7abb086f4b240e95fe;hb=31b24079180bbd8c6a185b507febf9b0bbd29ee2;hpb=6b450aa0508929d73305953b3e8f44e6a4c90154

diff --git a/ISAJET/code/timer.F b/ISAJET/code/timer.F
deleted file mode 100644
index ee0e5812f4e..00000000000
--- a/ISAJET/code/timer.F
+++ /dev/null
@@ -1,56 +0,0 @@
-#include "isajet/pilot.h"
-      SUBROUTINE TIMER(IT)
-C
-C          CALL SYSTEM CPU CLOCK -- MACHINE DEPENDENT.
-C          IT=1 FOR RUN START TIME.
-C          IT=2 FOR RUN STOP TIME.
-C
-#include "isajet/itapes.inc"
-#include "isajet/times.inc"
-      DIMENSION TIMES(2)
-      EQUIVALENCE (TIMES(1),TIME1)
-      DIMENSION TTT(2)
-#if defined(CERNLIB_VAX)
-      INTEGER CPUTIM(2),ITMLST(4),NHSEC
-      EXTERNAL JPI$_CPUTIM
-#endif
-C
-C          DEFAULT IS TO RETURN ZERO.
-      TNOW=0.
-#if (defined(CERNLIB_CDC))&&(defined(CERNLIB_NOCERN))
-C          SECOND GIVES CPU TIME ON CDC.
-      CALL SECOND(TNOW)
-#endif
-#if (defined(CERNLIB_ETA))&&(defined(CERNLIB_NOCERN))
-C          SECOND GIVES CPU TIME ON ETA.
-      TNOW=SECOND()
-#endif
-#if (defined(CERNLIB_IBMRT))&&(defined(CERNLIB_NOCERN))
-C          MCLOCK GIVES CPU TIME ON IBM RS/6000.
-      TNOW=FLOAT(MCLOCK())/60.
-#endif
-#if (defined(CERNLIB_SGI))&&(defined(CERNLIB_NOCERN))
-C          ETIME GIVES CPU TIME ON SILICON GRAPHICS.
-      TNOW=ETIME(TTT)
-#endif
-#if (defined(CERNLIB_SUN))&&(defined(CERNLIB_NOCERN))
-C          ETIME GIVES CPU TIME ON SUN.
-      TNOW=ETIME(TTT)
-#endif
-#if (defined(CERNLIB_VAX))&&(defined(CERNLIB_NOCERN))
-C          VAX HAS NO FORTRAN FUNCTION FOR CPU TIME.
-C          FOLLOWING PROVIDED BY T. KILLIAN
-      ITMLST(1)=ISHFT(%LOC(JPI$_CPUTIM),16)+4
-      ITMLST(2)=%LOC(NHSEC)
-      ITMLST(3)=0
-      ITMLST(4)=0
-      CALL SYS$GETJPI(,,,ITMLST,,,)
-      TNOW=.01*NHSEC
-#endif
-#if defined(CERNLIB_CERN)
-      CALL TIMEST(1.E7)
-      CALL TIMEX(TNOW)
-#endif
-      TIMES(IT)=TNOW
-      RETURN
-      END