Free_RefinementIndicator2D Subroutine

  1. SELF_RefinementIndicator_2D.f90
  2. SELF_RefinementIndicator_2D
  3. Free_RefinementIndicator2D

public subroutine Free_RefinementIndicator2D(this)

Arguments

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

Calls

proc~~free_refinementindicator2d~~CallsGraph proc~free_refinementindicator2d Free_RefinementIndicator2D interface~hipfree hipFree proc~free_refinementindicator2d->interface~hipfree proc~gpucheck gpuCheck proc~free_refinementindicator2d->proc~gpucheck proc~free_refinementindicator2d_t Free_RefinementIndicator2D_t proc~free_refinementindicator2d->proc~free_refinementindicator2d_t

Contents

Source Code

Free_RefinementIndicator2D

Source Code

  subroutine Free_RefinementIndicator2D(this)
    implicit none
    class(RefinementIndicator2D),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))
    this%Pmodal_gpu = c_null_ptr
    this%indicator_gpu = c_null_ptr
    this%flag_gpu = c_null_ptr

    call Free_RefinementIndicator2D_t(this)

  endsubroutine Free_RefinementIndicator2D