tem_appendIntLong1dArrayUnique Subroutine

  1. tem_tools_module.f90
  2. tem_tools_module
  3. tem_appendIntLong1dArrayUnique

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

Arguments

TypeIntentOptionalAttributesName
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

Contents

Variables


Variables

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