dense_check Function

private function dense_check(me)

Check that the dense output can be used: the method has one, and it was enabled. If not, an error is raised.

Type Bound

rk_class

Arguments

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

Return Value logical


Calls

proc~~dense_check~~CallsGraph proc~dense_check rk_class%dense_check proc~raise_exception rk_class%raise_exception proc~dense_check->proc~raise_exception

Called by

proc~~dense_check~~CalledByGraph proc~dense_check rk_class%dense_check proc~dense_interval rk_class%dense_interval proc~dense_interval->proc~dense_check

Source Code

    logical function dense_check(me)
        class(rk_class),intent(inout) :: me

        dense_check = .false.
        if (.not. allocated(me%dense_b)) then
            call me%raise_exception(RKLIB_ERROR_NO_DENSE_OUTPUT)
        else if (.not. me%dense_enabled) then
            call me%raise_exception(RKLIB_ERROR_DENSE_NOT_ENABLED)
        else
            dense_check = .true.
        end if

    end function dense_check