get_length_aim_star Function

private pure function get_length_aim_star(this, dimen)

Type Bound

aim_star

Arguments

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

Return Value integer


Source Code

    integer pure function get_length_aim_star(this, dimen)
        class(aim_star), intent(in) :: this
        integer, intent(in), optional :: dimen
        unused_var(this)
        if (present(dimen)) then
            unused_var(dimen)
        end if

        unused_var(this)
        unused_var(dimen)

        get_length_aim_star = STAR_LENGTH

    end function get_length_aim_star