test_set.f90 Source File


This file depends on

sourcefile~~test_set.f90~~EfferentGraph sourcefile~test_set.f90 test_set.f90 sourcefile~forclust.f90 forclust.f90 sourcefile~test_set.f90->sourcefile~forclust.f90

Contents

Source Code


Source Code

!> author: Seyed Ali Ghasemi
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