get_cpu_architecture Function

public function get_cpu_architecture() result(architecture)

Arguments

None

Return Value character(len=:), allocatable


Calls

proc~~get_cpu_architecture~~CallsGraph proc~get_cpu_architecture get_cpu_architecture interface~c_get_cpu_architecture c_get_cpu_architecture proc~get_cpu_architecture->interface~c_get_cpu_architecture proc~c_ptr_to_string c_ptr_to_string proc~get_cpu_architecture->proc~c_ptr_to_string

Called by

proc~~get_cpu_architecture~~CalledByGraph proc~get_cpu_architecture get_cpu_architecture proc~output_system_log output_system_log proc~output_system_log->proc~get_cpu_architecture interface~output_system_log type_output%output_system_log interface~output_system_log->proc~output_system_log

Source Code

    function get_cpu_architecture() result(architecture)
        implicit none
        character(:), allocatable :: architecture
        type(c_ptr) :: ptr

        ! C 側 c_get_cpu_architecture() を呼び出し
        ptr = c_get_cpu_architecture()

        ! NULL ポインタなら "Unknown"、そうでなければ変換関数を使う
        if (c_associated(ptr)) then
            architecture = c_ptr_to_string(ptr)
        else
            allocate (character(len=24) :: architecture)
            architecture = "Unknown CPU Architecture"
        end if
    end function get_cpu_architecture