C     ******************************************************************
C     TIME FUNCTION FOR CRAY CF77 AND CF90 COMPILERS.
C     ******************************************************************
      INTEGER FUNCTION XTIME()
      CHARACTER*8 T
      INTEGER     IHR, IMIN, ISEC
      CALL CLOCK(T)
      READ (T(1:2), 100) IHR
      READ (T(4:5), 100) IMIN
      READ (T(7:8), 100) ISEC
  100 FORMAT (I2)
      XTIME = (IHR * 3600) + (IMIN * 60) + ISEC
      END