Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
type(cluster) | :: | my_pc |
program test
use :: forclust
implicit none
type(cluster) :: my_pc
! ============================================================================
! "Exercise caution and refrain from making any adjustments to system settings
! unless you have a clear understanding of what you are doing."
!
! For 'set' functions, you need sudo privileges.
! ============================================================================
call my_pc%select()
call my_pc%node(1)%select()
call my_pc%node(1)%set_debug('on')
! call my_pc%node(1)%set_turbo("on")
! call my_pc%node(1)%cpu(2)%set_debug('on')
! call my_pc%node(1)%cpu(2)%set_offline()
! call my_pc%node(1)%cpu(2)%set_online()
! call my_pc%node(1)%cpu(2)%set_scaling_max_freq(2400000)
! call my_pc%node(1)%cpu(2)%set_scaling_min_freq(800000)
! call my_pc%node(1)%cpu(2)%set_scaling_governor('powersave')
! call my_pc%node(1)%cpu(2)%set_energy_performance('performance')
call my_pc%deselect()
end program test