deallocate_cluster Subroutine

  1. forclust.f90
  2. forclust
  3. deallocate_cluster

private pure elemental subroutine deallocate_cluster(this)

Type Bound

cluster

Arguments

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

Calls

proc~~deallocate_cluster~~CallsGraph proc~deallocate_cluster forclust::cluster%deallocate_cluster node node proc~deallocate_cluster->node

Contents

Source Code

deallocate_cluster

Source Code

   elemental pure subroutine deallocate_cluster(this)
      class(cluster), intent(inout) :: this

      if (allocated(this%node)) call this%node(:)%deselect()
      call this%backlight%deselect()
   end subroutine deallocate_cluster