vulkan_device_name Function

public function vulkan_device_name() result(name)

Name of the first Vulkan physical device, or an empty string if there is none.

Arguments

None

Return Value character(len=:), allocatable


Calls

proc~~vulkan_device_name~~CallsGraph proc~vulkan_device_name vulkan_device_name interface~vkf_vulkan_device_name vkf_vulkan_device_name proc~vulkan_device_name->interface~vkf_vulkan_device_name

Source Code

    function vulkan_device_name() result(name)
        character(len=:), allocatable :: name
        character(kind=c_char, len=256) :: buf
        integer(c_int) :: n
        n = vkf_vulkan_device_name(buf, len(buf, kind=c_int))
        if (n < 0) then
            name = ''
        else
            name = buf(1:min(n, len(buf)))
        end if
    end function vulkan_device_name