night_texture_map Function

private function night_texture_map(self) result(file)

The night texture file ('' for none).

Type Bound

Arguments

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

Return Value character(len=:), allocatable

Source Code

    function night_texture_map(self) result(file)
        class(Sphere), intent(in) :: self
        character(len=:), allocatable :: file
        file = ''
        if (allocated(self%night_texture)) file = self%night_texture
    end function night_texture_map