Code covered by the BSD License  

Highlights from
matlab2fmex

image thumbnail

matlab2fmex

by

 

03 Feb 2004 (Updated )

matlab2fmex.m is a small translator which aims to convert numerical M-files to Fortran90 mex.

Editor's Notes:

This author's upload was somehow corrupted. We fixed this on March 29, 2006. At that time, we also converted it from a GZ file a ZIP file for better cross platform portability.

out=findrights(locs,str)
function out=findrights(locs,str)
if ~isempty(locs)
 openstr=str(locs(1));
 switch openstr
  case '('
   closestr=')';
  case '['
   closestr=']';
  case '{'
   closestr='}';
 end
 l=(str==openstr);    r=(str==closestr);
 both=l-r;            c=cumsum(both);
 for i=1:length(locs)
  found=find(c==(c(locs(i))-1));
  found=found(found>locs(i));
  out(i)=found(1);
 end
else
 out=[];
end

Contact us