raise_exception Subroutine

private subroutine raise_exception(me, error_code)

Raise an exception.

Type Bound

rk_class

Arguments

Type IntentOptional Attributes Name
class(rk_class), intent(inout) :: me
integer, intent(in) :: error_code

the error to raise

Called by

proc~~raise_exception~~CalledByGraph proc~raise_exception rklib_module::rk_class%raise_exception proc~initialize_variable_step rklib_module::rk_variable_step_class%initialize_variable_step proc~initialize_variable_step->proc~raise_exception proc~integrate_fixed_step rklib_module::rk_fixed_step_class%integrate_fixed_step proc~integrate_fixed_step->proc~raise_exception proc~integrate_to_event_fixed_step rklib_module::rk_fixed_step_class%integrate_to_event_fixed_step proc~integrate_to_event_fixed_step->proc~raise_exception proc~integrate_to_event_variable_step rklib_module::rk_variable_step_class%integrate_to_event_variable_step proc~integrate_to_event_variable_step->proc~raise_exception proc~integrate_variable_step rklib_module::rk_variable_step_class%integrate_variable_step proc~integrate_variable_step->proc~raise_exception program~rklib_example rklib_example program~rklib_example->proc~initialize_variable_step program~rklib_example->proc~integrate_variable_step

Source Code

    subroutine raise_exception(me, error_code)
        class(rk_class),intent(inout) :: me
        integer,intent(in) :: error_code !! the error to raise

        me%istatus = error_code

        if (error_code<0 .and. me%stop_on_errors) then
            error stop trim(rklib_error_messages(error_code))
        end if
    end subroutine raise_exception