UpdateHost_Scalar1D Subroutine

  1. SELF_Scalar_1D.f90
  2. SELF_Scalar_1D
  3. UpdateHost_Scalar1D

public subroutine UpdateHost_Scalar1D(this)

Arguments

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

Calls

proc~~updatehost_scalar1d~~CallsGraph proc~updatehost_scalar1d UpdateHost_Scalar1D interface~hipmemcpy hipMemcpy proc~updatehost_scalar1d->interface~hipmemcpy proc~gpucheck gpuCheck proc~updatehost_scalar1d->proc~gpucheck

Contents

Source Code

UpdateHost_Scalar1D

Source Code

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

    call gpuCheck(hipMemcpy(c_loc(this%interior),c_loc(this%interior_gpu),sizeof(this%interior),hipMemcpyDeviceToHost))
    call gpuCheck(hipMemcpy(c_loc(this%boundary),c_loc(this%boundary_gpu),sizeof(this%boundary),hipMemcpyDeviceToHost))
    call gpuCheck(hipMemcpy(c_loc(this%extboundary),c_loc(this%extboundary_gpu),sizeof(this%extboundary),hipMemcpyDeviceToHost))
    call gpuCheck(hipMemcpy(c_loc(this%avgboundary),c_loc(this%avgboundary_gpu),sizeof(this%boundary),hipMemcpyDeviceToHost))

  endsubroutine UpdateHost_Scalar1D