subroutine sysqqq(cmnd,iret)

#ifdef Win32
  use dfport
#else
  integer system
#endif
  character*(*) cmnd

  iret=system(cmnd)

  return
end subroutine sysqqq