[f0fresult,x]=f0f(x);

function [f0fresult,x]=f0f(x);
f0fresult=[];

;
f0fresult = 0.0;
if( x~=0.0 )
f0fresult = sin(0.5e+02.*x)./(x.*sqrt(x));
end;
csnil=dbstack(1); csnil=csnil(1).name(1)~='@';
if csnil&&~isempty(inputname(1)), assignin('caller','FUntemp',x); evalin('caller',[inputname(1),'=FUntemp;']); end
end %function f0f