subroutine timex(t)
      external second
      call second(t)
      return
      end