get_cpuinfo_max_frequency Subroutine

  1. forclust.f90
  2. forclust
  3. get_cpuinfo_max_frequency

private impure elemental subroutine get_cpuinfo_max_frequency(this, cpuinfo_max_freq)

Type Bound

linux_cpu

Arguments

Type IntentOptional Attributes Name
class(linux_cpu), intent(inout) :: this
integer, intent(out), optional :: cpuinfo_max_freq

Contents

Source Code

get_cpuinfo_max_frequency

Source Code

   elemental impure subroutine get_cpuinfo_max_frequency(this, cpuinfo_max_freq)
      class(linux_cpu), intent(inout) :: this
      integer, intent(out), optional  :: cpuinfo_max_freq

      if (present(cpuinfo_max_freq)) cpuinfo_max_freq = this%cpuinfo_max_freq
      if (this%debug=='on') print'(a,i0)', 'cpuinfo max frequency:  ',this%cpuinfo_max_freq
   end subroutine get_cpuinfo_max_frequency