Free_RefinementIndicator2D_t Subroutine

  1. SELF_RefinementIndicator_2D_t.f90
  2. SELF_RefinementIndicator_2D_t
  3. Free_RefinementIndicator2D_t

public subroutine Free_RefinementIndicator2D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(RefinementIndicator2D_t), intent(inout) :: this

Called by

proc~~free_refinementindicator2d_t~~CalledByGraph proc~free_refinementindicator2d_t Free_RefinementIndicator2D_t proc~free_refinementindicator2d Free_RefinementIndicator2D proc~free_refinementindicator2d->proc~free_refinementindicator2d_t

Contents

Source Code

Free_RefinementIndicator2D_t

Source Code

  subroutine Free_RefinementIndicator2D_t(this)
    implicit none
    class(RefinementIndicator2D_t),intent(inout) :: this

    this%N = 0
    this%nElem = 0
    if(associated(this%Pmodal)) deallocate(this%Pmodal)
    if(associated(this%indicator)) deallocate(this%indicator)
    if(associated(this%flag)) deallocate(this%flag)
    this%Pmodal => null()
    this%indicator => null()
    this%flag => null()

  endsubroutine Free_RefinementIndicator2D_t