destroy_ga_dynlong Subroutine

  1. tem_arrayofarrays_module.f90
  2. tem_arrayofarrays_module
  3. destroy_ga_dynlong

public subroutine destroy_ga_dynlong(me)

Arguments

Type IntentOptional AttributesName
type(grw_dynlongarray_type), intent(inout) :: me

Called by

proc~~destroy_ga_dynlong~~CalledByGraph proc~destroy_ga_dynlong destroy_ga_dynlong interface~destroy~4 destroy interface~destroy~4->proc~destroy_ga_dynlong proc~destroy_element destroy_element proc~destroy_element->interface~destroy~4 proc~tem_halo_destroy tem_halo_destroy proc~tem_halo_destroy->interface~destroy~4 program~derivedtype_memalloc derivedType_memAlloc program~derivedtype_memalloc->interface~destroy~4 interface~destroy~37 destroy interface~destroy~37->proc~destroy_element proc~tem_cleanupdependencyarrays tem_cleanupDependencyArrays proc~tem_cleanupdependencyarrays->proc~tem_halo_destroy proc~identify_lists identify_lists proc~identify_lists->proc~tem_halo_destroy proc~communicate_elements communicate_elements proc~communicate_elements->proc~identify_lists proc~tem_find_allelements tem_find_allElements proc~tem_find_allelements->proc~tem_cleanupdependencyarrays proc~tem_find_allelements->proc~identify_lists proc~tem_create_leveldesc tem_create_levelDesc proc~tem_create_leveldesc->proc~tem_cleanupdependencyarrays

Contents

Source Code

destroy_ga_dynlong

Source Code

  subroutine destroy_ga_dynlong(me)
    type(grw_dynlongarray_type), intent(inout) :: me !< dynamic array to destroy

    me%containersize = 0
    me%nvals = 0
    if( allocated( me%val ) ) deallocate(me%val)

  end subroutine destroy_ga_dynlong