Free_RefinementIndicator3D Subroutine

  1. SELF_RefinementIndicator_3D.f90
  2. SELF_RefinementIndicator_3D
  3. Free_RefinementIndicator3D

public subroutine Free_RefinementIndicator3D(this)

Arguments

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

Calls

proc~~free_refinementindicator3d~~CallsGraph proc~free_refinementindicator3d Free_RefinementIndicator3D interface~hipfree hipFree proc~free_refinementindicator3d->interface~hipfree proc~gpucheck gpuCheck proc~free_refinementindicator3d->proc~gpucheck proc~free_refinementindicator3d_t Free_RefinementIndicator3D_t proc~free_refinementindicator3d->proc~free_refinementindicator3d_t

Contents

Source Code

Free_RefinementIndicator3D

Source Code

  subroutine Free_RefinementIndicator3D(this)
    implicit none
    class(RefinementIndicator3D),intent(inout) :: this

    if(c_associated(this%Pmodal_gpu)) call gpuCheck(hipFree(this%Pmodal_gpu))
    if(c_associated(this%indicator_gpu)) call gpuCheck(hipFree(this%indicator_gpu))
    if(c_associated(this%flag_gpu)) call gpuCheck(hipFree(this%flag_gpu))
    if(c_associated(this%gate_gpu)) call gpuCheck(hipFree(this%gate_gpu))
    if(c_associated(this%energyWeight_gpu)) call gpuCheck(hipFree(this%energyWeight_gpu))
    this%Pmodal_gpu = c_null_ptr
    this%indicator_gpu = c_null_ptr
    this%flag_gpu = c_null_ptr
    this%gate_gpu = c_null_ptr
    this%energyWeight_gpu = c_null_ptr
    this%nVarWeights_gpu = 0

    call Free_RefinementIndicator3D_t(this)

  endsubroutine Free_RefinementIndicator3D