Free_TwoPointVector2D Subroutine

  1. SELF_TwoPointVector_2D.f90
  2. SELF_TwoPointVector_2D
  3. Free_TwoPointVector2D

public subroutine Free_TwoPointVector2D(this)

Arguments

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

Calls

proc~~free_twopointvector2d~~CallsGraph proc~free_twopointvector2d Free_TwoPointVector2D interface~hipfree hipFree proc~free_twopointvector2d->interface~hipfree proc~gpucheck gpuCheck proc~free_twopointvector2d->proc~gpucheck

Contents

Source Code

Free_TwoPointVector2D

Source Code

  subroutine Free_TwoPointVector2D(this)
    implicit none
    class(TwoPointVector2D),intent(inout) :: this

    this%interp => null()
    this%nVar = 0
    this%nElem = 0

    deallocate(this%interior)
    deallocate(this%meta)
    deallocate(this%eqn)

    call gpuCheck(hipFree(this%interior_gpu))

  endsubroutine Free_TwoPointVector2D