UpdateHost_Vector3D Subroutine

  1. SELF_Vector_3D.f90
  2. SELF_Vector_3D
  3. UpdateHost_Vector3D

public subroutine UpdateHost_Vector3D(this)

Arguments

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

Calls

proc~~updatehost_vector3d~~CallsGraph proc~updatehost_vector3d UpdateHost_Vector3D interface~hipmemcpy hipMemcpy proc~updatehost_vector3d->interface~hipmemcpy proc~gpucheck gpuCheck proc~updatehost_vector3d->proc~gpucheck

Contents

Source Code

UpdateHost_Vector3D

Source Code

  subroutine UpdateHost_Vector3D(this)
    implicit none
    class(Vector3D),intent(inout) :: this

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

  endsubroutine UpdateHost_Vector3D