WSJT-X/runqqq.F90
Joe Taylor daa2ffd27a Changed the deep65 bug workaround from "rewind 23" to "call sleepqqq(1)".
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@273 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2006-09-05 16:27:29 +00:00

41 lines
494 B
Fortran

subroutine runqqq(fname,cmnd,iret)
#ifdef Win32
use dflib
#endif
integer system
character*(*) fname,cmnd
#ifdef Win32
iret=runqq(fname,cmnd)
#else
iret=system('./KVASD -q >& /dev/null')
#endif
return
end subroutine runqqq
subroutine flushqqq(lu)
#ifdef Win32
use dfport
#endif
call flush(lu)
return
end subroutine flushqqq
subroutine sleepqqq(n)
#ifdef Win32
use dflib
call sleepqq(n)
#else
call usleep(n*1000)
#endif
return
end subroutine sleepqqq