UpdateHost_RefinementIndicator2D Subroutine

  1. SELF_RefinementIndicator_2D.f90
  2. SELF_RefinementIndicator_2D
  3. UpdateHost_RefinementIndicator2D

public subroutine UpdateHost_RefinementIndicator2D(this)

Arguments

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

Calls

proc~~updatehost_refinementindicator2d~~CallsGraph proc~updatehost_refinementindicator2d UpdateHost_RefinementIndicator2D interface~hipmemcpy hipMemcpy proc~updatehost_refinementindicator2d->interface~hipmemcpy proc~gpucheck gpuCheck proc~updatehost_refinementindicator2d->proc~gpucheck

Contents

Source Code

UpdateHost_RefinementIndicator2D

Source Code

  subroutine UpdateHost_RefinementIndicator2D(this)
    implicit none
    class(RefinementIndicator2D),intent(inout) :: this

    call gpuCheck(hipMemcpy(c_loc(this%indicator),this%indicator_gpu, &
                            sizeof(this%indicator),hipMemcpyDeviceToHost))
    call gpuCheck(hipMemcpy(c_loc(this%flag),this%flag_gpu, &
                            sizeof(this%flag),hipMemcpyDeviceToHost))

  endsubroutine UpdateHost_RefinementIndicator2D