[df1wsresult,x]=df1ws(x);

function [df1wsresult,x]=df1ws(x);
df1wsresult=[];

;
df1wsresult = 0.00d+00;
if( x-0.33d+00~=0.00d+00 )
df1wsresult = abs(x-0.33d+00).^(-0.999d+00);
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 df1ws