append_ga_dynlong Subroutine

public subroutine append_ga_dynlong(me, val, length)

Arguments

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

optional length to expand the array

Calls

proc~~append_ga_dynlong~~CallsGraph proc~append_ga_dynlong append_ga_dynlong interface~expand~25 expand proc~append_ga_dynlong->interface~expand~25 proc~expand_ga_dynlong expand_ga_dynlong interface~expand~25->proc~expand_ga_dynlong

Called by

proc~~append_ga_dynlong~~CalledByGraph proc~append_ga_dynlong append_ga_dynlong interface~append~29 append interface~append~29->proc~append_ga_dynlong proc~add_all_virtual_children add_all_virtual_children proc~add_all_virtual_children->interface~append~29 proc~add_all_virtual_children->proc~add_all_virtual_children proc~add_ghostfromfiner add_ghostFromFiner proc~add_ghostfromfiner->interface~append~29 proc~add_ghostfromfiner->proc~add_ghostfromfiner proc~tem_find_bcs_fromfiner tem_find_BCs_fromFiner proc~add_ghostfromfiner->proc~tem_find_bcs_fromfiner proc~append_element append_element proc~append_element->interface~append~29 proc~appendghostdependency appendGhostDependency proc~appendghostdependency->interface~append~29 proc~create_allparentneighbors create_allParentNeighbors proc~create_allparentneighbors->interface~append~29 proc~identify_elements identify_elements proc~create_allparentneighbors->proc~identify_elements proc~identify_stencilneigh identify_stencilNeigh proc~create_allparentneighbors->proc~identify_stencilneigh proc~depsource_append depSource_append proc~depsource_append->interface~append~29 proc~identify_elements->interface~append~29 proc~identify_elements->proc~create_allparentneighbors proc~identify_elements->proc~identify_elements proc~single_process_element single_process_element proc~identify_elements->proc~single_process_element proc~identify_elements->proc~identify_stencilneigh proc~identify_local_element identify_local_element proc~identify_local_element->interface~append~29 proc~identify_local_element->proc~add_all_virtual_children proc~identify_local_element->proc~add_ghostfromfiner proc~redefine_halos redefine_halos proc~redefine_halos->interface~append~29 proc~tem_stencil_communicate tem_stencil_communicate proc~redefine_halos->proc~tem_stencil_communicate proc~request_remotehalos request_remoteHalos proc~request_remotehalos->interface~append~29 proc~request_remotehalos->proc~create_allparentneighbors proc~identify_halo identify_halo proc~request_remotehalos->proc~identify_halo proc~request_remotehalos->proc~identify_stencilneigh proc~single_process_element->interface~append~29 proc~single_process_element->proc~identify_local_element proc~tem_adapt_dump_newmesh tem_adapt_dump_newMesh proc~tem_adapt_dump_newmesh->interface~append~29 proc~tem_find_bcs_fromfiner->interface~append~29 proc~tem_halo_append tem_halo_append proc~tem_halo_append->interface~append~29 proc~tem_init_elemlevels tem_init_elemLevels proc~tem_init_elemlevels->interface~append~29 proc~tem_stencil_communicate->interface~append~29 interface~append~37 append interface~append~37->proc~append_element proc~build_levelelements build_levelElements proc~build_levelelements->proc~identify_elements proc~identify_additionalneigh identify_additionalNeigh proc~build_levelelements->proc~identify_additionalneigh proc~communicate_elements communicate_elements proc~communicate_elements->proc~redefine_halos proc~communicate_elements->proc~request_remotehalos proc~identify_lists identify_lists proc~communicate_elements->proc~identify_lists proc~identify_additionalneigh->proc~identify_elements proc~identify_halo->proc~identify_local_element proc~identify_lists->proc~tem_halo_append proc~identify_stencilneigh->proc~identify_elements proc~tem_build_verticaldependencies tem_build_verticalDependencies proc~tem_build_verticaldependencies->proc~appendghostdependency proc~tem_create_leveldesc tem_create_levelDesc proc~tem_create_leveldesc->proc~tem_init_elemlevels proc~tem_create_leveldesc->proc~tem_build_verticaldependencies proc~tem_dimbydim_construction tem_dimByDim_construction proc~tem_dimbydim_construction->proc~tem_create_leveldesc proc~tem_find_allelements tem_find_allElements proc~tem_find_allelements->proc~build_levelelements proc~tem_find_allelements->proc~communicate_elements proc~tem_find_allelements->proc~identify_additionalneigh proc~tem_find_allelements->proc~identify_lists

Source Code

  subroutine append_ga_dynlong(me, val, length)
    type(grw_dynlongarray_type) :: me !< array to append the value to
    type(dyn_longarray_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_dynlong