get_length_aim_chain Function

private pure function get_length_aim_chain(this, dimen)

Type Bound

aim_chain

Arguments

Type IntentOptional Attributes Name
class(aim_chain), intent(in) :: this
integer, intent(in), optional :: dimen

Return Value integer


Source Code

    integer pure function get_length_aim_chain(this, dimen)
        class(aim_chain), intent(in) :: this
        integer, intent(in), optional :: dimen

        if (present(dimen) .and. dimen > 1) then
            get_length_aim_chain = 1
        else
            get_length_aim_chain = this%length
        end if

    end function get_length_aim_chain