destroy_ga_grw_stencilelement Subroutine

private subroutine destroy_ga_grw_stencilelement(me)

Arguments

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

Called by

proc~~destroy_ga_grw_stencilelement~~CalledByGraph proc~destroy_ga_grw_stencilelement destroy_ga_grw_stencilelement interface~destroy~23 destroy interface~destroy~23->proc~destroy_ga_grw_stencilelement

Contents

Source Code

destroy_ga_grw_stencilelement

Source Code

  subroutine destroy_ga_grw_stencilelement(me)
    type(grw_grw_stencilelementarray_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_grw_stencilelement