tem_appendIntListUnique Subroutine

private subroutine tem_appendIntListUnique(firstEntry, entryPos, nItems, added)

append an entry at the end of the integer list If the first entry is zero, write into that one Check, if the current entry already exists Count, how many elements there are in the list


type(tem_intList), pointer:: firstEntry

linked list of resulting elements building the neighbor

integer(kind=int_k), intent(in) :: entryPos

Add that element

integer, intent(inout) :: nItems

how many items are in list

logical, intent(out), optional :: added

has the current item been added?

Called by

proc~~tem_appendintlistunique~~CalledByGraph proc~tem_appendintlistunique tem_appendIntListUnique interface~appendunique appendUnique interface~appendunique->proc~tem_appendintlistunique



type(tem_intList), private, pointer:: currPos
logical, private :: found