subroutine UpdateDevice_Tensor2D_t(this) implicit none class(Tensor2D_t),intent(inout) :: this endsubroutine UpdateDevice_Tensor2D_t