diff --git a/sec_midn.F90 b/sec_midn.F90
new file mode 100644
index 000000000..2f0ed1888
--- /dev/null
+++ b/sec_midn.F90
@@ -0,0 +1,28 @@
+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