35 use,
intrinsic :: iso_c_binding
45 bind(c, name=
'system_cpuid')
46 use,
intrinsic :: iso_c_binding
47 type(c_ptr),
value :: name
48 integer(c_int),
value :: len
59 character(len=*),
intent(inout) :: name
60 character(kind=c_char, len=80),
target :: c_name
65 end_pos = scan(c_name, c_null_char)
66 if(end_pos .ge. 2)
then
67 name(1:end_pos-1) = c_name(1:end_pos-1)
Interface to a C function to retrieve the CPU name (type).
Interface to system information routines.
subroutine, public system_cpu_name(name)
Retrieve the system's CPU name (type)