set_node_debug_switch Subroutine

  1. forclust.f90
  2. forclust
  3. set_node_debug_switch

private pure elemental subroutine set_node_debug_switch(this, debug)

Type Bound

linux_nodes

Arguments

Type IntentOptional Attributes Name
class(linux_nodes), intent(inout) :: this
character(len=*), intent(in) :: debug

Contents

Source Code

set_node_debug_switch

Source Code

   elemental pure subroutine set_node_debug_switch(this,debug)
      class(linux_nodes), intent(inout) :: this
      character(len=*),   intent(in)    :: debug

      this%debug = debug
   end subroutine set_node_debug_switch