Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(cluster), | intent(inout) | :: | this |
elemental impure subroutine print_all_cluster_info(this)
class(cluster), intent(inout) :: this
integer :: n, c
do n = 1, this%nnodes; print'(a,i0)', 'NODE: ',n; print'(a)','=============================='
call this%node(n)%select()
call this%node(n)%set_debug('on')
call this%node(n)%get_turbo()
print'(a)','------------------------------'
do c = 1, this%node(n)%ncpus
print'(a,i0)', 'CPU: ',c
call this%node(n)%cpu(c)%set_debug('on')
call this%node(n)%cpu(c)%is_online()
call this%node(n)%cpu(c)%get_base_freq()
call this%node(n)%cpu(c)%get_cpuinfo_max_freq()
call this%node(n)%cpu(c)%get_cpuinfo_min_freq()
call this%node(n)%cpu(c)%get_scaling_cur_freq()
call this%node(n)%cpu(c)%get_scaling_max_freq()
call this%node(n)%cpu(c)%get_scaling_min_freq()
call this%node(n)%cpu(c)%get_scaling_governor()
call this%node(n)%cpu(c)%get_energy_performance()
print'(a)','------------------------------'
end do
end do
end subroutine print_all_cluster_info