get_cpu_energy_performance_preference Subroutine

  1. forclust.f90
  2. forclust
  3. get_cpu_energy_performance_preference

private impure elemental subroutine get_cpu_energy_performance_preference(this, energy_performance_preference)

Type Bound

linux_cpu

Arguments

Type IntentOptional Attributes Name
class(linux_cpu), intent(inout) :: this
character(len=*), intent(out), optional :: energy_performance_preference

Contents

Source Code

get_cpu_energy_performance_preference

Source Code

   elemental impure subroutine get_cpu_energy_performance_preference(this, energy_performance_preference)
      class(linux_cpu), intent(inout) :: this
      character(len=*), intent(out), optional    :: energy_performance_preference

      if (present(energy_performance_preference)) energy_performance_preference = this%energy_performance_preference
      if (this%debug=='on') print'(a,a)', 'energy perf preference: ' ,this%energy_performance_preference
   end subroutine get_cpu_energy_performance_preference