from
slatec
by Ben Barrowes The slatec library converted into matlab functions.
[df2nresult,x]=df2n(x);
function [df2nresult,x]=df2n(x);
df2nresult=[];
;
df2nresult = x.^(-0.9d+00);
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 df2n