%global z=1;

function iflag_main=mysolver();
iflag_main=0;
format long;
global z=1;
[x,info] = fsolve("myfunc",[0.9]);
printf('Result=%f, info=%f\n',x(1),info);
iflag_main=1;
return;

function fval=myfunc(x)
fval(1)=x(1)-z*x(1)*x(1);
return;