Free_MappedScalar3D Subroutine

  1. SELF_MappedScalar_3D.f90
  2. SELF_MappedScalar_3D
  3. Free_MappedScalar3D

public subroutine Free_MappedScalar3D(this)

Arguments

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

Calls

proc~~free_mappedscalar3d~~CallsGraph proc~free_mappedscalar3d Free_MappedScalar3D interface~hipfree hipFree proc~free_mappedscalar3d->interface~hipfree hipblasdestroy hipblasdestroy proc~free_mappedscalar3d->hipblasdestroy proc~gpucheck gpuCheck proc~free_mappedscalar3d->proc~gpucheck hipblascheck hipblascheck proc~free_mappedscalar3d->hipblascheck

Contents

Source Code

Free_MappedScalar3D

Source Code

  subroutine Free_MappedScalar3D(this)
    implicit none
    class(MappedScalar3D),intent(inout) :: this

    this%nVar = 0
    this%nElem = 0
    this%interp => null()
    deallocate(this%interior)
    deallocate(this%boundary)
    deallocate(this%extBoundary)
    deallocate(this%avgBoundary)
    deallocate(this%boundarynormal)
    deallocate(this%meta)
    deallocate(this%eqn)

    call gpuCheck(hipFree(this%interior_gpu))
    call gpuCheck(hipFree(this%boundary_gpu))
    call gpuCheck(hipFree(this%extBoundary_gpu))
    call gpuCheck(hipFree(this%avgBoundary_gpu))
    call gpuCheck(hipFree(this%boundarynormal_gpu))
    call gpuCheck(hipFree(this%interpWork1))
    call gpuCheck(hipFree(this%interpWork2))
    call gpuCheck(hipFree(this%jas_gpu))
    call hipblasCheck(hipblasDestroy(this%blas_handle))

  endsubroutine Free_MappedScalar3D