module mod_util
contains
subroutine time(t)
! return wall clock time in ms
implicit none
integer*8 t
integer*8, dimension(8):: v
!integer count,rate,cmax
!call system_clock(count,rate,cmax)
!t=dble(count)/dble(rate)
CALL DATE_AND_TIME(VALUES=v) 
t=v(8)+1000*(v(7)+60*(v(6)+12*v(5)))
end subroutine time
end module mod_util