function [r,g]=tsrk_am_obj(coeffs)
% Used by opt_tsrk

r=coeffs(end);
g=zeros(size(coeffs));
g(end)=1;