function [F,domerr] = mcpf(y)
% [F,domerr] = mcpf(y)

[F,domerr] = mpecfunc(1,[],y);
return;
