destroy_propertylist Subroutine

public subroutine destroy_propertylist(header, property)

Arguments

Type IntentOptional Attributes Name
type(tem_prophead_type), pointer :: header(:)

Pointer to list of property headers to destroy
type(tem_property_type), pointer :: property(:)

Pointer to list of properties to destroy

Contents

Source Code

destroy_propertylist

Source Code

  subroutine destroy_propertylist(header, property)
    ! ---------------------------------------------------------------------- !
    !> Pointer to list of property headers to destroy
    type(tem_prophead_type), pointer :: header(:)
    !> Pointer to list of properties to destroy
    type(tem_property_type), pointer :: property(:)
    ! ---------------------------------------------------------------------- !

    deallocate(property)
    deallocate(header)
  end subroutine destroy_propertylist