Code covered by the BSD License  

Highlights from
slatec

from slatec by Ben Barrowes
The slatec library converted into matlab functions.

[f1sresult,x]=f1s(x);
function [f1sresult,x]=f1s(x);
f1sresult=[];

;
f1sresult = 0.2e+01./(0.2e+01+sin(0.314159e+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 f1s

Contact us at files@mathworks.com