clear_exception Subroutine

private subroutine clear_exception(me)

Clear any exception.

Type Bound

rk_class

Arguments

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

Called by

proc~~clear_exception~~CalledByGraph proc~clear_exception rklib_module::rk_class%clear_exception proc~begin_integration_rk_class rklib_module::rk_class%begin_integration_rk_class proc~begin_integration_rk_class->proc~clear_exception

Source Code

    subroutine clear_exception(me)
        class(rk_class),intent(inout) :: me
        me%istatus = RKLIB_ERROR_NONE
    end subroutine clear_exception