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
This commit is contained in:
Edson W. R. Pereira 2013-03-26 14:00:51 +00:00
parent f1fa0326e5
commit a1083d17b3
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -1,3 +1,4 @@
subroutine sleep_msec(n)
call usleep(n*1000)
return
end subroutine sleep_msec