Defines how many properties there are.
Allocate the property and header lists accordingly.
Type | Intent | Optional | 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 |
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