From 311eb48714ab1fe20a60f92b1521256fa9d6ec3c Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Mon, 2 Jul 2007 21:53:19 +0000
Subject: [PATCH] Forgot to add this file.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@459 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 sec_midn.F90 | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 sec_midn.F90

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