get_cpu_scaling_governor Subroutine

  1. forclust.f90
  2. forclust
  3. get_cpu_scaling_governor

private impure elemental subroutine get_cpu_scaling_governor(this, scaling_governor)

Type Bound

linux_cpu

Arguments

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

Contents

Source Code

get_cpu_scaling_governor

Source Code

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

      if (present(scaling_governor)) scaling_governor = this%scaling_governor
      if (this%debug=='on') print'(a,a)', 'scaling governor:       ' ,this%scaling_governor
   end subroutine get_cpu_scaling_governor