destroy_ga2d_long Subroutine

public subroutine destroy_ga2d_long(me)

destroy the 2d growing array

Arguments

Type IntentOptional Attributes Name
type(grw_long2darray_type), intent(inout) :: me

dynamic array to init

Called by

proc~~destroy_ga2d_long~~CalledByGraph proc~destroy_ga2d_long destroy_ga2d_long interface~destroy~20 destroy interface~destroy~20->proc~destroy_ga2d_long

Contents

Source Code

destroy_ga2d_long

Source Code

  subroutine destroy_ga2d_long(me)
    ! --------------------------------------------------------------------------
    !> dynamic array to init
    type(grw_long2darray_type), intent(inout) :: me
    ! --------------------------------------------------------------------------

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

  end subroutine destroy_ga2d_long