texture_map Function

private function texture_map(self) result(file)

The 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 texture_map(self) result(file)
        class(Sphere), intent(in) :: self
        character(len=:), allocatable :: file
        file = ''
        if (allocated(self%texture)) file = self%texture
    end function texture_map