tem_appendDp2dArray Subroutine

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

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

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(inout), allocatable:: Array(:,:)

array to append value to

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

value to append


Called by

proc~~tem_appenddp2darray~~CalledByGraph proc~tem_appenddp2darray tem_appendDp2dArray interface~append~22 append interface~append~22->proc~tem_appenddp2darray 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
real(kind=rk), private, allocatable:: tempArray(:,:)
integer, private :: ArraySize1
integer, private :: ArraySize2
integer, private :: ierr
integer, private :: NewSize1
integer, private :: NewSize2
logical, private :: changeSize
logical, private :: sizeZero