Free_Scalar1D Subroutine

  1. SELF_Scalar_1D.f90
  2. SELF_Scalar_1D
  3. Free_Scalar1D

public subroutine Free_Scalar1D(this)

Arguments

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

Calls

proc~~free_scalar1d~~CallsGraph proc~free_scalar1d Free_Scalar1D interface~hipfree hipFree proc~free_scalar1d->interface~hipfree proc~gpucheck gpuCheck proc~free_scalar1d->proc~gpucheck proc~hipblascheck hipblasCheck proc~free_scalar1d->proc~hipblascheck interface~hipblasdestroy hipblasDestroy proc~free_scalar1d->interface~hipblasdestroy

Contents

Source Code

Free_Scalar1D

Source Code

  subroutine Free_Scalar1D(this)
    implicit none
    class(Scalar1D),intent(inout) :: this

    this%interp => null()
    deallocate(this%interior)
    deallocate(this%boundary)
    deallocate(this%extBoundary)
    deallocate(this%meta)
    deallocate(this%eqn)

    call gpuCheck(hipFree(c_loc(this%interior_gpu)))
    call gpuCheck(hipFree(c_loc(this%boundary_gpu)))
    call gpuCheck(hipFree(c_loc(this%extBoundary_gpu)))
    call gpuCheck(hipFree(c_loc(this%avgBoundary_gpu)))
    call hipblasCheck(hipblasDestroy(this%blas_handle))

  endsubroutine Free_Scalar1D