subroutine dtime(N)
       call dtime_(N)
       return
       end