Free_MappedVector3D Subroutine

  1. SELF_MappedVector_3D.f90
  2. SELF_MappedVector_3D
  3. Free_MappedVector3D

public subroutine Free_MappedVector3D(this)

Arguments

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

Calls

proc~~free_mappedvector3d~~CallsGraph proc~free_mappedvector3d Free_MappedVector3D free_vector3d free_vector3d proc~free_mappedvector3d->free_vector3d interface~hipfree hipFree proc~free_mappedvector3d->interface~hipfree proc~gpucheck gpuCheck proc~free_mappedvector3d->proc~gpucheck

Contents

Source Code

Free_MappedVector3D

Source Code

  subroutine Free_MappedVector3D(this)
    implicit none
    class(MappedVector3D),intent(inout) :: this

    call Free_Vector3D(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_MappedVector3D