constellation_line Subroutine

private pure subroutine constellation_line(self, i, a, b)

Constellation line i (1 to num_constellation_lines): its ends' directions (unit vectors, sky frame).

Type Bound

SkySphere

Arguments

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

1 to num_constellation_lines
real(kind=wp), intent(out) :: a(3)

unit vectors, sky frame
real(kind=wp), intent(out) :: b(3)

unit vectors, sky frame

Source Code

    pure subroutine constellation_line(self, i, a, b)
        class(SkySphere), intent(in) :: self
        integer, intent(in) :: i                            !! 1 to num_constellation_lines
        real(wp), intent(out) :: a(3), b(3)                 !! unit vectors, sky frame
        a = real(self%lines(1:3, i), wp)
        b = real(self%lines(5:7, i), wp)
    end subroutine constellation_line