from
slatec
by Ben Barrowes The slatec library converted into matlab functions.
[fqd2result,x]=fqd2(x);
function [fqd2result,x]=fqd2(x);
fqd2result=[];
;
fqd2result = exp(x).*cos(10.0e0.*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 fqd2