Free_RefinementIndicator3D_t Subroutine

  1. SELF_RefinementIndicator_3D_t.f90
  2. SELF_RefinementIndicator_3D_t
  3. Free_RefinementIndicator3D_t

public subroutine Free_RefinementIndicator3D_t(this)

Arguments

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

Called by

proc~~free_refinementindicator3d_t~~CalledByGraph proc~free_refinementindicator3d_t Free_RefinementIndicator3D_t proc~free_refinementindicator3d Free_RefinementIndicator3D proc~free_refinementindicator3d->proc~free_refinementindicator3d_t

Contents

Source Code

Free_RefinementIndicator3D_t

Source Code

  subroutine Free_RefinementIndicator3D_t(this)
    implicit none
    class(RefinementIndicator3D_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)
    if(associated(this%gate)) deallocate(this%gate)
    if(associated(this%energyWeight)) deallocate(this%energyWeight)
    this%Pmodal => null()
    this%indicator => null()
    this%flag => null()
    this%gate => null()
    this%energyWeight => null()
    this%nVarWeights = 0
    this%energyWeightsSet = .false.
    this%energyScaleIsSet = .false.
    this%energyScale = 0.0_prec

  endsubroutine Free_RefinementIndicator3D_t