Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(linux_nodes), | intent(inout) | :: | this | |||
character(len=*), | intent(out), | optional | :: | turbo |
elemental impure subroutine get_intel_turbo(this,turbo)
class(linux_nodes), intent(inout) :: this
character(len=*), intent(out), optional :: turbo
if (present(turbo)) turbo = this%turbo
if (this%debug=='on') print'(a,a)', 'intel turbo: ',this%turbo
end subroutine get_intel_turbo