UpdateHost_RefinementIndicator3D Subroutine

  1. SELF_RefinementIndicator_3D.f90
  2. SELF_RefinementIndicator_3D
  3. UpdateHost_RefinementIndicator3D

public subroutine UpdateHost_RefinementIndicator3D(this)

Arguments

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

Calls

proc~~updatehost_refinementindicator3d~~CallsGraph proc~updatehost_refinementindicator3d UpdateHost_RefinementIndicator3D interface~hipmemcpy hipMemcpy proc~updatehost_refinementindicator3d->interface~hipmemcpy proc~gpucheck gpuCheck proc~updatehost_refinementindicator3d->proc~gpucheck

Contents

Source Code

UpdateHost_RefinementIndicator3D

Source Code

  subroutine UpdateHost_RefinementIndicator3D(this)
    implicit none
    class(RefinementIndicator3D),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))
    call gpuCheck(hipMemcpy(c_loc(this%gate),this%gate_gpu, &
                            sizeof(this%gate),hipMemcpyDeviceToHost))

  endsubroutine UpdateHost_RefinementIndicator3D