star_catalog Function

private function star_catalog(self) result(file)

The star catalog file ('' for none).

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(SkySphere),	intent(in)			::	self

Return Value character(len=:), allocatable

Source Code

    function star_catalog(self) result(file)
        class(SkySphere), intent(in) :: self
        character(len=:), allocatable :: file
        file = ''
        if (allocated(self%catalog)) file = self%catalog
    end function star_catalog