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=aftercomment(funstr,row,column)
function out=aftercomment(funstr,row,column)

out=0;
if ~any(funstr{row}=='!')
 return
else
 temp=findstr(funstr{row},'!');temp=temp(1);
 if temp<=column
  out=1;
 end
end

Contact us