quit Subroutine

subroutine quit(signum)

Arguments

Type IntentOptional Attributes Name
integer :: signum

Contents

Source Code


Source Code

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