Free_ColumnOperators3D Subroutine

  1. SELF_ColumnOperators_3D.f90
  2. SELF_ColumnOperators_3D
  3. Free_ColumnOperators3D

public subroutine Free_ColumnOperators3D(this)

Arguments

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

Calls

proc~~free_columnoperators3d~~CallsGraph proc~free_columnoperators3d Free_ColumnOperators3D interface~hipfree hipFree proc~free_columnoperators3d->interface~hipfree proc~free_columnoperators3d_t Free_ColumnOperators3D_t proc~free_columnoperators3d->proc~free_columnoperators3d_t proc~gpucheck gpuCheck proc~free_columnoperators3d->proc~gpucheck

Contents

Source Code

Free_ColumnOperators3D

Source Code

  subroutine Free_ColumnOperators3D(this)
    implicit none
    class(ColumnOperators3D),intent(inout) :: this

    if(c_associated(this%upInverse_gpu)) call gpuCheck(hipFree(this%upInverse_gpu))
    if(c_associated(this%downInverse_gpu)) call gpuCheck(hipFree(this%downInverse_gpu))
    this%upInverse_gpu = c_null_ptr
    this%downInverse_gpu = c_null_ptr
    call Free_ColumnOperators3D_t(this)

  endsubroutine Free_ColumnOperators3D