subroutine wtime(tim)
C      real*8 tim
      real*8 tim, tsum
      dimension tarray(2)
C      call etime(tarray)
      tsum = etime(tarray)
      tim = tarray(1)
      return
      end