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