init_propertylist Subroutine

  1. tem_property_module.f90
  2. tem_property_module
  3. init_propertylist

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

init_propertylist

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