program_termination_s Submodule


Uses

  • module~~program_termination_s~~UsesGraph module~program_termination_s program_termination_s iso_fortran_env iso_fortran_env module~program_termination_s->iso_fortran_env iso_c_binding iso_c_binding module~program_termination_s->iso_c_binding module~prif_private_s prif_private_s module~program_termination_s->module~prif_private_s module~prif prif module~prif_private_s->module~prif module~prif->iso_c_binding

Contents


Variables

TypeVisibilityAttributesNameInitial
type(callback_entry), private, pointer:: callback_list=> null()

Derived Types

Components

TypeVisibilityAttributesNameInitial
procedure(prif_stop_callback_interface), private, pointer, nopass:: callback
type(callback_entry), private, pointer:: next=> null()

Subroutines

subroutine prif_error_stop_character(quiet, stop_code)

stop all images and provide the stop_code as the process exit status

Arguments

TypeIntentOptionalAttributesName
logical(kind=c_bool), intent(in) :: quiet
character(len=*), intent(in) :: stop_code

subroutine prif_error_stop_integer(quiet, stop_code)

stop all images and provide the stop_code, or 1 if not present, as the process exit status

Arguments

TypeIntentOptionalAttributesName
logical(kind=c_bool), intent(in) :: quiet
integer(kind=c_int), intent(in), optional :: stop_code

subroutine run_callbacks(is_error_stop, quiet, stop_code_int, stop_code_char)

Arguments

TypeIntentOptionalAttributesName
logical(kind=c_bool), intent(in) :: is_error_stop
logical(kind=c_bool), intent(in) :: quiet
integer(kind=c_int), intent(in), optional :: stop_code_int
character(len=*), intent(in), optional :: stop_code_char

Module Procedures

module procedure prif_error_stop module module subroutine prif_error_stop(quiet, stop_code_int, stop_code_char)

Arguments

TypeIntentOptionalAttributesName
logical(kind=c_bool), intent(in) :: quiet
integer(kind=c_int), intent(in), optional :: stop_code_int
character(len=*), intent(in), optional :: stop_code_char

module procedure prif_fail_image module module subroutine prif_fail_image()

Arguments

None

module procedure prif_register_stop_callback module module subroutine prif_register_stop_callback(callback)

Arguments

TypeIntentOptionalAttributesName
procedure(prif_stop_callback_interface), intent(in), pointer:: callback

module procedure prif_stop module module subroutine prif_stop(quiet, stop_code_int, stop_code_char)

Arguments

TypeIntentOptionalAttributesName
logical(kind=c_bool), intent(in) :: quiet
integer(kind=c_int), intent(in), optional :: stop_code_int
character(len=*), intent(in), optional :: stop_code_char