w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

1. Fixed issue with jt9 process not sleeping under Linux.

Browse Source 
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 1c9b8f7c35
commit b5e4cfe3ba
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/jt9a.F90
View File

@ -51,8 +51,7 @@ subroutine jt9a
100 inquire(file=trim(cwd)//'/.lock',exist=fileExists) 100 inquire(file=trim(cwd)//'/.lock',exist=fileExists)
if(fileExists) go to 10 if(fileExists) go to 10
!call sleep_msec(100) call sleep_msec(100)
call usleep(100*1000)
go to 100 go to 100
999 return 999 return

1
lib/sleep_msec.f90
View File

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