is_cpu_online Subroutine

  1. forclust.f90
  2. forclust
  3. is_cpu_online

private impure elemental subroutine is_cpu_online(this, online)

Type Bound

linux_cpu

Arguments

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

Contents

Source Code

is_cpu_online

Source Code

   elemental impure subroutine is_cpu_online(this, online)
      class(linux_cpu), intent(inout) :: this
      integer, intent(out), optional  :: online

      if (present(online)) online = this%online
      if (this%debug=='on') print'(a,i0)', 'online:                 ',this%online
   end subroutine is_cpu_online