from
f2matlab
by Ben Barrowes 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
