subroutine UpdateDevice_Vector3D_t(this) implicit none class(Vector3D_t),intent(inout) :: this endsubroutine UpdateDevice_Vector3D_t