constellation_file_read Function

private function constellation_file_read(self) result(file)

The constellation file read ('' for none).

Type Bound

Arguments

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

Return Value character(len=:), allocatable

Source Code

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