star_name Subroutine

private subroutine star_name(self, i, name, mag, which)

Named star i (1 to num_star_names): its name, apparent magnitude and star (1 to num_stars: see star).

Type Bound

SkySphere

Arguments

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

1 to num_star_names
character(len=:), intent(out), allocatable :: name

the catalog's name
real(kind=wp), intent(out) :: mag

apparent magnitude
integer, intent(out) :: which

the star (1 to num_stars)

Source Code

    subroutine star_name(self, i, name, mag, which)
        class(SkySphere), intent(in) :: self
        integer, intent(in) :: i                            !! 1 to num_star_names
        character(len=:), allocatable, intent(out) :: name  !! the catalog's name
        real(wp), intent(out) :: mag                        !! apparent magnitude
        integer, intent(out) :: which                       !! the star (1 to num_stars)
        name = self%names(i)%text
        mag = self%names(i)%mag
        which = self%names(i)%star
    end subroutine star_name