[df0sresult,x]=df0s(x);

function [df0sresult,x]=df0s(x);
df0sresult=[];

;
df0sresult = 0.0d+00;
if( x~=0.0d+00 )
df0sresult = 0.1d+01./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 df0s