Code covered by the BSD License  

Highlights from
matlab2fmex

image thumbnail
from matlab2fmex by Ben Barrowes
matlab2fmex.m is a small translator which aims to convert numerical M-files to Fortran90 mex.

maxTRC=updatetemp(maxTRC,topval,typestr);
function maxTRC=updatetemp(maxTRC,topval,typestr);
if strcmp(typestr,'r')
 if topval>maxTRC(1)
  maxTRC(1)=topval;
 end
elseif strcmp(typestr,'c')
 if topval>maxTRC(2)
  maxTRC(2)=topval;
 end
elseif strcmp(typestr,'i')
 if topval>maxTRC(3)
  maxTRC(3)=topval;
 end
end

Contact us at files@mathworks.com