function mclock()
      integer*4 mclock
      mclock=0
      return
      end