C     ******************************************************************
C     TIME FUNCTION FOR SALFORD FTN77 AND SILVERFROST FTN95.
C     ******************************************************************
      INTEGER FUNCTION XTIME()
      REAL R
      CALL CLOCK@(R)
      XTIME = INT(R)
      END