function LaplaceDiffusionEntropyVariables1D(diffusivity, equations_hyperbolic)
LaplaceDiffusionEntropyVariables{1, typeof(equations_hyperbolic),
nvariables(equations_hyperbolic),
typeof(diffusivity)}(diffusivity, equations_hyperbolic)
end
function flux(u, gradients, orientation::Integer,
equations::LaplaceDiffusionEntropyVariables{1})
dudx = gradients
diffusivity = jacobian_entropy2cons(u, equations)
return SVector(diffusivity * dudx)
end