tem_appendIntLong1dArrayUnique Subroutine

private subroutine tem_appendIntLong1dArrayUnique(Array, Value, nElems, Pos, Added)

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


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

array to append value to

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

The value to add as an entry in Array

integer, intent(inout) :: nElems

Number of entries in the array (changes, if added = .true.)

integer, intent(out) :: Pos

position the value was appended

logical, intent(out) :: Added

new entry in array added?

Called by

proc~~tem_appendintlong1darrayunique~~CalledByGraph proc~tem_appendintlong1darrayunique tem_appendIntLong1dArrayUnique interface~appendunique appendUnique interface~appendunique->proc~tem_appendintlong1darrayunique



integer(kind=long_k), private, allocatable:: tempArray(:)
integer, private :: ArraySize
integer, private :: ierr
integer, private :: NewSize
integer, private :: iPos
logical, private :: found