UpdateDevice_TwoPointVector3D Subroutine

  1. SELF_TwoPointVector_3D.f90
  2. SELF_TwoPointVector_3D
  3. UpdateDevice_TwoPointVector3D

public subroutine UpdateDevice_TwoPointVector3D(this)

Arguments

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

Calls

proc~~updatedevice_twopointvector3d~~CallsGraph proc~updatedevice_twopointvector3d UpdateDevice_TwoPointVector3D interface~hipmemcpy hipMemcpy proc~updatedevice_twopointvector3d->interface~hipmemcpy proc~gpucheck gpuCheck proc~updatedevice_twopointvector3d->proc~gpucheck

Contents

Source Code

UpdateDevice_TwoPointVector3D

Source Code

  subroutine UpdateDevice_TwoPointVector3D(this)
    implicit none
    class(TwoPointVector3D),intent(inout) :: this

    call gpuCheck(hipMemcpy(this%interior_gpu,c_loc(this%interior), &
                            sizeof(this%interior),hipMemcpyHostToDevice))

  endsubroutine UpdateDevice_TwoPointVector3D