subroutine UpdateDevice_Scalar1D_t(this) implicit none class(Scalar1D_t),intent(inout) :: this endsubroutine UpdateDevice_Scalar1D_t