subroutine exit_no_persist()
      !use dflib
      use ifqwin
!
!     Exits a program without displaying to the monitor, as in STOP.
!     Designed for batch file processing of programs.
!     Uses the IVF library ifqwin.
!
      implicit none
!-----------------------------------------------
!   L o c a l   V a r i a b l e s
!-----------------------------------------------
      integer(4) :: iret
!-----------------------------------------------
!
      iret = setexitqq(qwin$exitnopersist)
      return
      end subroutine exit_no_persist