deallocate_linux_nodes Subroutine

  1. forclust.f90
  2. forclust
  3. deallocate_linux_nodes

private pure elemental subroutine deallocate_linux_nodes(this)

Type Bound

linux_nodes

Arguments

Type IntentOptional Attributes Name
class(linux_nodes), intent(inout) :: this

Calls

proc~~deallocate_linux_nodes~~CallsGraph proc~deallocate_linux_nodes forclust::linux_nodes%deallocate_linux_nodes cpu cpu proc~deallocate_linux_nodes->cpu

Contents

Source Code

deallocate_linux_nodes

Source Code

   elemental pure subroutine deallocate_linux_nodes(this)
      class(linux_nodes), intent(inout) :: this

      if (allocated(this%debug))     deallocate(this%debug)
      if (allocated(this%path_node)) deallocate(this%path_node)
      if (allocated(this%turbo))     deallocate(this%turbo)
      if (allocated(this%cpu))       call this%cpu(:)%deselect()
   end subroutine deallocate_linux_nodes