UpdateDevice_RefinementIndicator3D Subroutine

  1. SELF_RefinementIndicator_3D.f90
  2. SELF_RefinementIndicator_3D
  3. UpdateDevice_RefinementIndicator3D

public subroutine UpdateDevice_RefinementIndicator3D(this)

Arguments

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

Calls

proc~~updatedevice_refinementindicator3d~~CallsGraph proc~updatedevice_refinementindicator3d UpdateDevice_RefinementIndicator3D interface~hipmemcpy hipMemcpy proc~updatedevice_refinementindicator3d->interface~hipmemcpy proc~gpucheck gpuCheck proc~updatedevice_refinementindicator3d->proc~gpucheck

Contents

Source Code

UpdateDevice_RefinementIndicator3D

Source Code

  subroutine UpdateDevice_RefinementIndicator3D(this)
    implicit none
    class(RefinementIndicator3D),intent(inout) :: this

    call gpuCheck(hipMemcpy(this%Pmodal_gpu,c_loc(this%Pmodal), &
                            sizeof(this%Pmodal),hipMemcpyHostToDevice))
    call gpuCheck(hipMemcpy(this%indicator_gpu,c_loc(this%indicator), &
                            sizeof(this%indicator),hipMemcpyHostToDevice))
    call gpuCheck(hipMemcpy(this%flag_gpu,c_loc(this%flag), &
                            sizeof(this%flag),hipMemcpyHostToDevice))
    call gpuCheck(hipMemcpy(this%gate_gpu,c_loc(this%gate), &
                            sizeof(this%gate),hipMemcpyHostToDevice))

  endsubroutine UpdateDevice_RefinementIndicator3D