real function sec_midn()

real*8 sec8,hrtime

#ifdef Win32
  sec_midn=secnds(0.0)
#else
  sec8=hrtime()
  sec_midn=mod(sec8,86400.d0)
#endif

  return
end function sec_midn

subroutine sleep_msec(n)

#ifdef Win32
  use dflib
#endif

#ifdef Win32
  call sleepqq(n)
#else
  call usleep(min(1,1000*n))
#endif

  return
end subroutine sleep_msec