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 rk_class%raise_exception proc~dense_check rk_class%dense_check proc~dense_check->proc~raise_exception proc~initialize_variable_step rk_variable_step_class%initialize_variable_step proc~initialize_variable_step->proc~raise_exception proc~integrate_fixed_step rk_fixed_step_class%integrate_fixed_step proc~integrate_fixed_step->proc~raise_exception proc~integrate_to_event_fixed_step rk_fixed_step_class%integrate_to_event_fixed_step proc~integrate_to_event_fixed_step->proc~raise_exception proc~integrate_to_event_variable_step rk_variable_step_class%integrate_to_event_variable_step proc~integrate_to_event_variable_step->proc~raise_exception proc~interpolate rk_class%interpolate proc~integrate_to_event_variable_step->proc~interpolate proc~export_dense_output rk_variable_step_class%export_dense_output proc~integrate_to_event_variable_step->proc~export_dense_output proc~export_step rk_variable_step_class%export_step proc~integrate_to_event_variable_step->proc~export_step proc~integrate_variable_step rk_variable_step_class%integrate_variable_step proc~integrate_variable_step->proc~raise_exception proc~integrate_variable_step->proc~export_dense_output proc~integrate_variable_step->proc~export_step proc~interpolate->proc~raise_exception proc~dense_interval rk_class%dense_interval proc~dense_interval->proc~dense_check proc~export_dense_output->proc~interpolate program~rklib_example rklib_example program~rklib_example->proc~initialize_variable_step program~rklib_example->proc~integrate_variable_step proc~export_step->proc~export_dense_output

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