function [f,flag] = evalf(n,x)

%     [f,flag] = evalf(n,x)

  flag = 0;
  
  f = x(2);

end
