Code covered by the BSD License  

Highlights from
f2matlab

f2matlab

by

 

16 Jun 2004 (Updated )

Converts basic fortran90 source code to MATLAB source code.

fixEndType.m
if length(funstrwords{i})==2 && strcmp('end',funstrwords{i}{1}) && strcmp('type',funstrwords{i}{2})
 %need to add the type name here
 for k=i:-1:1
  if length(funstrwords{k})>0
   if strcmp(funstrwords{k}{1},'type')
    funstr{i}=[strrep(funstr{i},';',''),' ',funstrwords{k}{2},';'];
    [s,fs_good]=updatefunstr_1line_f(funstr,fs_good,i);
    %'deeeeeeeeee',kb
    break
   end % if strcmp(funstrwords{k}{1},
  end % if length(funstrwords{k})>0
 end % for k=i:-1:1
end % if length(funstrwords{i})==2 && strcmp('end',

Contact us