function [f,J,domerr]=lcp3(z,jacflag) 

M = eye(3); q = [-1; 1; 0];

if jacflag == 1
  J = sparse(M);
end

f = M*z + q;
domerr = 0;

return;
