Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(star), | intent(in) | :: | this | |||
integer, | intent(in), | optional | :: | dimen |
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