C     ******************************************************************
C     TIME FUNCTION FOR GNU COMPILERS.
C     ******************************************************************
      INTEGER FUNCTION XTIME()
      XTIME = TIME()
      END