C
C Possible FORTRAN equivalent for the ETIME function for calling
C by SHELXS AND SHELXL
C
      REAL FUNCTION ETIME(ET)
      REAL ET(2)
      ETIME=0.01*REAL(MCLOCK())
      RETURN
      END
