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 Attributes Name
type(tem_prophead_type), pointer :: header(:)

Pointer to the list of headers for the properties to be allocated
type(tem_property_type), pointer :: property(:)

Pointer to the list of properties to be allocated
integer, intent(in) :: nproperties

Number of properties to allocate in the list

Source Code

  subroutine init_propertylist(header, property, nproperties)
    ! ---------------------------------------------------------------------- !
    !> Pointer to the list of headers for the properties to be allocated
    type(tem_prophead_type), pointer :: header(:)
    !> Pointer to the list of properties to be allocated
    type(tem_property_type), pointer :: property(:)
    !> Number of properties to allocate in the list
    integer, intent(in) :: nproperties
    ! ---------------------------------------------------------------------- !

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

  end subroutine init_propertylist