*
* $Id: ltimex.F,v 1.1.1.1 1996/03/08 17:40:13 mclareni Exp $
*
* $Log: ltimex.F,v $
* Revision 1.1.1.1  1996/03/08 17:40:13  mclareni
* Lepto63
*
*
C######################################################################C
C                                                                      C
C  The Lund Monte Carlo for Deep Inelastic Lepton-Nucleon Scattering   C
C                                                                      C
C                          L E P T O                                   C
C                                                                      C
C                 version 6.3,  July 17, 1995                          C
C   Authors:                                                           C
C   Gunnar Ingelman, DESY theory group     Dept. of Radiation Sciences C
C                    (room 202  bldg 2a)   Uppsala University          C
C                    D-22603 Hamburg, FRG   S-751 21 Uppsala, Sweden    C
C               phone: +49(40)8998-2795     +46(18)18-3884              C
C                  fax:            -2777            -3833              C
C             e-mail: ingelman@desy.de     (ingelman@tsl.uu.se)        C
C   Johan Rathsman, Dept. of Radiation Sciences, rathsman@tsl.uu.se    C
C   Anders Edin, Dept. of Radiation Sciences, edin@tsl.uu.se           C
C                                                                      C
C   Contributions on parton cascades: M. Bengtsson, T. Sjostrand       C
C                                                                      C
C   Availability: on request or from DESY IBM and VAX/VMS systems:     C
C   DESY IBM library      VXDESY directory         content             C
C   T00ING.LUND(member)   DISK$T__:[INGELMAN.LUND]                     C
C              LEPTOINF            LEPTO.INFO      info, news, updates C
C              LEPTOTEX            LEPTO.TEX       manual in LaTeX     C
C              LEPTO63             LEPTO63.FOR     source code         C
C              LEPTODEM            LEPTODEM.FOR    demo program        C
C                                  LEPTODEM.COM    demo command file   C
C   T00ING.OBJECT(LEPTO63)         LEPTO63.OBJ     object code         C
C                                                                      C
C   Manual: see file above (DESY preprint in preparation), see also    C
C           G. Ingelman, Uppsala preprint TSL/ISV 92-0065 and in       C
C           "Physics at HERA", Eds. W. Buchmueller, G. Ingelman,       C
C           DESY Hamburg 1992, vol. 3, p. 1366                         C
C                                                                      C
C   Please report any problems or suggestions for improvements.        C
C                                                                      C
C######################################################################C
 
      SUBROUTINE LTIMEX(TIME)
C...Interface routine to transfer a call to some machine-dependent
C...routine to get the execution time used since job started.
C...Nice, but not necessary information. Can also be called by user.
 
      TIME=0.
C...Use of CERN library routine Z007, replace/delete if not available.
      CALL TIMEX(TIME)
      RETURN
      END