is_intel_pstate_available Subroutine

private impure elemental subroutine is_intel_pstate_available(this)

Type Bound

linux_nodes

Arguments

Type IntentOptional Attributes Name
class(linux_nodes), intent(inout) :: this

Called by

proc~~is_intel_pstate_available~~CalledByGraph proc~is_intel_pstate_available forclust::linux_nodes%is_intel_pstate_available proc~select_node forclust::linux_nodes%select_node proc~select_node->proc~is_intel_pstate_available proc~set_intel_turbo forclust::linux_nodes%set_intel_turbo proc~set_intel_turbo->proc~is_intel_pstate_available

Contents


Source Code

   elemental impure subroutine is_intel_pstate_available(this)
      ! bug: it does not depend on a node
      class(linux_nodes), intent(inout) :: this
      integer                           :: is_intel_pstate
      logical                           :: ex

      inquire(file='/sys/devices/system/cpu/intel_pstate', exist=ex)
      if (ex)       is_intel_pstate = 1
      if (.not. ex) is_intel_pstate = 0
      this%is_intel_pstate = is_intel_pstate
      ! if (this%debug=='on') print'(a,i0)', 'intel pstate avail:     ',this%is_intel_pstate
   end subroutine is_intel_pstate_available