From b5e4cfe3bae3d9d19985542d64db583871d06811 Mon Sep 17 00:00:00 2001
From: "Edson W. R. Pereira" <ewpereira@gmail.com>
Date: Tue, 26 Mar 2013 14:00:51 +0000
Subject: [PATCH] 1. Fixed issue with jt9 process not sleeping under Linux.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3103 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/jt9a.F90       | 3 +--
 lib/sleep_msec.f90 | 1 +
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/jt9a.F90 b/lib/jt9a.F90
index 5f0916827..84727c216 100644
--- a/lib/jt9a.F90
+++ b/lib/jt9a.F90
@@ -51,8 +51,7 @@ subroutine jt9a
 
 100 inquire(file=trim(cwd)//'/.lock',exist=fileExists)
   if(fileExists) go to 10
-  !call sleep_msec(100)
-  call usleep(100*1000)
+  call sleep_msec(100)
   go to 100
 
 999 return
diff --git a/lib/sleep_msec.f90 b/lib/sleep_msec.f90
index 66841b895..1a8dbe4f9 100644
--- a/lib/sleep_msec.f90
+++ b/lib/sleep_msec.f90
@@ -1,3 +1,4 @@
 subroutine sleep_msec(n)
+  call usleep(n*1000)
   return
 end subroutine sleep_msec