init_propertylist Subroutine

public subroutine init_propertylist(header, property, nproperties)

Defines how many properties there are.

Allocate the property and header lists accordingly.

Arguments

Type IntentOptional AttributesName
type(tem_prophead_type), pointer:: header(:)
type(tem_property_type), pointer:: property(:)
integer, intent(in) :: nproperties

Contents

Source Code


Source Code

  subroutine init_propertylist(header, property, nproperties)
    ! ---------------------------------------------------------------------------
    !>
    type(tem_prophead_type),  pointer :: header(:)
    !>
    type(tem_property_type),  pointer :: property(:)
    !>
    integer, intent(in) :: nproperties
    ! ---------------------------------------------------------------------------

    allocate(property(nProperties), header(nProperties))

  end subroutine init_propertylist