C     ******************************************************************
C     TIME FUNCTION FOR LAHEY FORTRAN COMPILERS.
C     ******************************************************************
      INTEGER FUNCTION XTIME()
      INTEGER ITICKS
      CALL TIMER(ITICKS)
      XTIME = ITICKS
      END