get_intel_turbo Subroutine

private impure elemental subroutine get_intel_turbo(this, turbo)

Type Bound

linux_nodes

Arguments

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

Contents

Source Code


Source Code

   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