from
slatec
by Ben Barrowes The slatec library converted into matlab functions.
[f2gresult,x]=f2g(x);
function [f2gresult,x]=f2g(x);
f2gresult=[];
;
f2gresult = x.*sin(0.3e+02.*x).*cos(0.5e+02.*x);
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 f2g