append_ga_stencilheader Subroutine

private subroutine append_ga_stencilheader(me, val, length)

Arguments

Type IntentOptional Attributes Name
type(grw_stencilheaderarray_type) :: me
type(tem_stencilHeader_type), intent(in) :: val
integer, intent(in), optional :: length

optional length to expand the array

Calls

proc~~append_ga_stencilheader~~CallsGraph proc~append_ga_stencilheader append_ga_stencilheader interface~expand~2 expand proc~append_ga_stencilheader->interface~expand~2 proc~expand_ga_stencilheader expand_ga_stencilheader interface~expand~2->proc~expand_ga_stencilheader

Called by

proc~~append_ga_stencilheader~~CalledByGraph proc~append_ga_stencilheader append_ga_stencilheader interface~append~2 append interface~append~2->proc~append_ga_stencilheader

Source Code

  subroutine append_ga_stencilheader(me, val, length)
    type(grw_stencilheaderarray_type) :: me !< array to append the value to
    type(tem_stencilheader_type), intent(in) :: val !< value to append
    !> optional length to expand the array
    integer, intent(in), optional :: length

    ! value to append is larger than all existing ones,
    ! just put it to the end of the list, this captures
    ! also the case of empty lists.
    ! in this case foundpos = me%nvals + 1 holds.
    if (me%nvals+1 > me%containersize) then
      ! expand the array, if its boundary is reached
      call expand(me = me, length = length)
    end if

    me%nvals = me%nvals+1
    me%val(me%nvals) = val

  end subroutine append_ga_stencilheader