Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(linux_cpu), | intent(inout) | :: | this | |||
integer, | intent(out), | optional | :: | cpuinfo_max_freq |
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