function status=mytest(t,y,flag)
global gamk mkr ro0 r0x beta;
status=0;
rrr=sqrt(power(y(1),2)+power(y(2),2))-mkr;
vvv=sqrt(power(y(3),2)+power(y(4),2));
n=numel(flag);

if n == 0

if rrr < 0 
disp('************************************');
disp(['Crashed with speed ',num2str(vvv),'km/s','  after  ',num2str(t),'sec of flight'])
disp('************************************');
status=1;
end

end
end
