test_get_base_freq.f90 Source File

  1. test_get_base_freq.f90

This file depends on

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

Contents

Programs

Source Code

test_get_base_freq.f90

Source Code

!> author: Seyed Ali Ghasemi
program test

   use :: forclust

   implicit none

   type(cluster) :: my_pc

   call my_pc%select()
     call my_pc%node(1)%select()
     call my_pc%node(1)%set_debug('off')
       call my_pc%node(1)%cpu(:)%set_debug('on')
       call my_pc%node(1)%cpu(:)%get_base_freq()

       call my_pc%node(1)%cpu(:)%set_debug('off')
       call my_pc%node(1)%cpu(:)%get_base_freq()
   call my_pc%deselect()

end program test