quit Subroutine

subroutine quit(signum)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	signum

Contents

Source Code

quit

Source Code

      subroutine quit(signum)
        integer :: signum
        STOP 'Caught SIGQUIT. Stopping demo.'
      end subroutine quit