WSJT-X/runqqq.f90

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
initial import git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@1 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-22 11:40:53 -05:00			`subroutine runqqq(fname,cmnd,iret)`

			`#ifdef Win32`
			`use dflib`
			`#endif`
			`integer system`

			`character() fname,cmnd`

			`#ifdef Win32`
			`iret=runqq(fname,cmnd)`
			`#else`
Changed runqqq so that *nix execution of KVASD uses "./KVASD". Updated README_592.TXT in preparation for Windows release. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@115 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2006-01-16 12:55:05 -05:00			`iret=system('./KVASD -q >& /dev/null')`
initial import git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@1 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-22 11:40:53 -05:00			`#endif`

			`return`
			`end subroutine runqqq`

			`subroutine flushqqq(lu)`

			`#ifdef Win32`
			`use dfport`
			`#endif`

			`call flush(lu)`

			`return`
			`end subroutine flushqqq`