blob: a1cfde9aa378926b4a6aa41378d1d463325b3d5a [file] [log] [blame]
subroutine wtime(tim)
real*8 tim
dimension tarray(2)
call etime(tarray)
tim = tarray(1)
return
end