get_length_star Function

private pure function get_length_star(this, dimen)

Type Bound

star

Arguments

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

Return Value integer


Source Code

    integer pure function get_length_star(this, dimen)
        class(star), intent(in) :: this
        integer, intent(in), optional:: dimen
        unused_var(dimen)
        unused_var(this)

        get_length_star = STAR_LENGTH

    end function get_length_star