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,outbefore,outafter]=getTopLevelStrings(str,loc,tofind,i,funstr,funstrnumbers,funstrnumbers_b,funstrnumbers_e,funstrwords,funstrwords_b,funstrwords_e,funwords,filename)
function [out,outbefore,outafter]=getTopLevelStrings(str,loc,tofind,i,funstr,funstrnumbers,funstrnumbers_b,funstrnumbers_e,funstrwords,funstrwords_b,funstrwords_e,funwords,filename)

out=[];

temp=findstr(funstr{i},tofind);

%'ttttt1',temp,keyboard

for ii=1:length(temp)
 if temp(ii)==length(funstr{i})
  out=[out,temp(ii)];
 else
  [outflag,howmany,subscripts,centercomma,parens]=inwhichlast_f(i,temp(ii),funstr,funstrnumbers,funstrnumbers_b,funstrnumbers_e,funstrwords,funstrwords_b,funstrwords_e,funwords,filename);
  if outflag==0
   %if in a /   / then no.
   out=[out,temp(ii)];
%%%  elseif outflag==1
%%%   temp1=find(~isspace(funstr{i}));
%%%   if ~any(temp1(find(temp1<parens(1),1,'last'))==funstrwords_e{i})
%%%    out=[out,temp(ii)];
%%%   end
  
%%%   if strcmp(tofind,'dai')
%%%     funstr{i},temp1,';;;;;;;',kb
%%%    end
  
  end
 end % if inwhichlast_f(i,
end % for ii=1:length(temp)


outbefore=out(out<loc);
if ~isempty(outbefore), outbefore=outbefore(end); else, outbefore=0; end

outafter=out(out>loc);
if ~isempty(outafter), outafter=outafter(1); else, outafter=length(funstr{i}); end


Contact us