unset_contents Subroutine

  1. node.f90
  2. node_mod
  3. unset_contents

private subroutine unset_contents(this)

Arguments

Type IntentOptional AttributesName
class(node), intent(inout) :: this

Description

Deallocates the value stored within the node.


Source Code

  subroutine unset_contents(this)
    !* Author: Chris MacMackin
    !  Date: February 2016
    !
    ! Deallocates the value stored within the  node.
    !
    class(node), intent(inout) :: this
    if (this%has_contents()) deallocate(this%contents)
  end subroutine unset_contents