Code covered by the BSD License  

Highlights from
f2matlab

f2matlab

by

 

16 Jun 2004 (Updated )

Converts basic fortran90 source code to MATLAB source code.

out=inastring2_f(str,loc)
function out=inastring2_f(str,loc)

out=[];

temp=strfind(str,'''''');
for ii=1:length(loc)

 temp1=find(temp<loc(ii));
 if length(temp1)/2~=floor(length(temp1)/2)
  out(ii)=1;
 else
  out(ii)=0;
 end
 
end

Contact us