constellation_lines Subroutine

private pure subroutine constellation_lines(self, i, first, last)

Constellation i's lines (1 to num_constellations): first .. last (see constellation_line; none if last < first).

Type Bound

SkySphere

Arguments

Type IntentOptional Attributes Name
class(SkySphere), intent(in) :: self
integer, intent(in) :: i

1 to num_constellations
integer, intent(out) :: first

its lines
integer, intent(out) :: last

its lines

Source Code

    pure subroutine constellation_lines(self, i, first, last)
        class(SkySphere), intent(in) :: self
        integer, intent(in) :: i                            !! 1 to num_constellations
        integer, intent(out) :: first, last                 !! its lines
        first = self%groups(i)%first
        last = self%groups(i)%last
    end subroutine constellation_lines