| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Vector3D_t), | intent(inout) | :: | this |
subroutine UpdateDevice_Vector3D_t(this)
implicit none
class(Vector3D_t),intent(inout) :: this
if(.false.) this%N = this%N ! CPU stub; suppress unused-dummy-argument warning
endsubroutine UpdateDevice_Vector3D_t