Code covered by the BSD License  

Highlights from
f2matlab

f2matlab

by

 

16 Jun 2004 (Updated )

Converts basic fortran90 source code to MATLAB source code.

varargout=readf(fid,fmtStr,n)
function varargout=readf(fid,fmtStr,n)
% function varargout=readf(fid,varargin),  Catches string fid's
if isnumeric(fid)
 if n==1
  [varargout]=textscan(fid,fmtStr);
 else
  [varargout{1:n}]=textscan(fid,fmtStr);
 end
elseif ischar(fid)
 [varargout{1:n}]=strread(fid,fmtStr);
%%% [varargout]=strread(fid,fmtStr);
%%% varargout=varargout{1};
%%% 'sssssss',kb
end
end

Contact us