let update_coeff t c =  make_steam ~proj:(t.proj) ~n:(t.n) ~r:(t.r)
                        ~a:(t.a) ~c:c ()