tem_appendIntLong2dArray Subroutine

private subroutine tem_appendIntLong2dArray(Array, Position1, Position2, Value)

append an entry to an allocatable array 1d with long integer If the array is too small, reallocate with double size

Arguments

TypeIntentOptionalAttributesName
integer(kind=long_k), intent(inout), allocatable:: Array(:,:)

array to append value to

integer(kind=long_k), intent(in) :: Position1
integer(kind=long_k), intent(in) :: Position2
integer(kind=long_k), intent(in) :: Value

value to append


Called by

proc~~tem_appendintlong2darray~~CalledByGraph proc~tem_appendintlong2darray tem_appendIntLong2dArray interface~append~22 append interface~append~22->proc~tem_appendintlong2darray proc~tem_findpath tem_findPath proc~tem_findpath->interface~append~22 proc~tem_findpath->proc~tem_findpath proc~tem_findelement tem_findElement proc~tem_findelement->interface~append~22 proc~tem_findelement->proc~tem_findelement proc~tem_calc_vrtx_coord tem_calc_vrtx_coord proc~tem_calc_vrtx_coord->interface~append~22 proc~tem_unify_vrtx tem_unify_vrtx proc~tem_calc_vrtx_coord->proc~tem_unify_vrtx proc~tem_unify_vrtx->interface~append~22 proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~tem_calc_vrtx_coord proc~tem_init_tracker tem_init_tracker proc~tem_init_tracker->proc~hvs_output_init

Contents


Variables

TypeVisibilityAttributesNameInitial
integer(kind=long_k), private, allocatable:: tempArray(:,:)
integer(kind=long_k), private :: ArraySize1
integer(kind=long_k), private :: ArraySize2
integer(kind=long_k), private :: ierr
integer(kind=long_k), private :: NewSize1
integer(kind=long_k), private :: NewSize2
logical, private :: changeSize
logical, private :: sizeZero