Free_MappedVector2D Subroutine

  1. SELF_MappedVector_2D.f90
  2. SELF_MappedVector_2D
  3. Free_MappedVector2D

public subroutine Free_MappedVector2D(this)

Arguments

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

Calls

proc~~free_mappedvector2d~~CallsGraph proc~free_mappedvector2d Free_MappedVector2D interface~hipfree hipFree proc~free_mappedvector2d->interface~hipfree free_vector2d free_vector2d proc~free_mappedvector2d->free_vector2d proc~gpucheck gpuCheck proc~free_mappedvector2d->proc~gpucheck

Contents

Source Code

Free_MappedVector2D

Source Code

  subroutine Free_MappedVector2D(this)
    implicit none
    class(MappedVector2D),intent(inout) :: this

    if(c_associated(this%mortarBuff_gpu)) then
      call gpuCheck(hipFree(this%mortarBuff_gpu))
      this%mortarBuff_gpu = c_null_ptr
    endif

    call Free_Vector2D(this)

    if(c_associated(this%halo_sendbuf_gpu)) call gpuCheck(hipFree(this%halo_sendbuf_gpu))
    if(c_associated(this%halo_recvbuf_gpu)) call gpuCheck(hipFree(this%halo_recvbuf_gpu))
    this%halo_sendbuf_gpu = c_null_ptr
    this%halo_recvbuf_gpu = c_null_ptr

  endsubroutine Free_MappedVector2D