[]=sz(varargin)

% SZ   list the continuation step size for each continuation step for AUTO
%      generated output file
%
%   SZ to list the continuation step size for each continuation 
%   step in fort.9.
%       
%   SZ('XXX') to list the continuation step size for each continuation 
%   step in d.XXX.
% 
%   Note: This command has changed from "ss" to "sz" seeing that "ss" is an
%         in-built Matlab command.
%
%   See also BP, EV, FL, HB, IT, LP, NO, SP, ST

%   Altered from shell commands by Phani THOTA, James RANKIN, 
%   ETIENNE COETZEE, University of Bristol
%
%   $Revision: 1.0.0.0 $ $Date: 2008/12/17 10:11:00$
%
function []=sz(varargin)

if nargin==0
    fileName='fort.9';
elseif nargin==1
    fileExt=varargin{1};
    fileName=['d.',fileExt];
else
    error('AUTOmatlab:InputArguments','Check number of input arguments');
end

try
    a=read_file(fileName);
    b=regexp(a,'Step');
    c=find(cellfun(@isempty,b)==0);
    
    for i=1:size(c,2)
        disp(a{c(i)});
    end
catch
    error(lasterr);
end

%--------------------------------------------------------------------------
% Private functions
%--------------------------------------------------------------------------
function [A, no_lines]=read_file(filename)

% This function reads in an ascii file and create a cell array from
% recogizing the  end of line character.

FAILED=-1;

no_lines=0;

fid = fopen(filename,'rt');

if (fid~=FAILED)

    % Read in, note it reads as a one dimensional array (column).
    F = fread(fid) ;
    fclose(fid);
   
    % Find the end of line characters
    eol = [0, find(F' == 10) ] ;
    
    % Convert into a character array(row)
    F = char(F');
    
    no_lines = length(eol) -1 ;
    
    for ( i = 1 : no_lines )
        A{i} = F( eol(i)+1 : eol(i+1)-1 ) ;
    end
    
    % Add the last line, in case there's no newline at the end of the file
    lastline = F(eol(no_lines+1)+1:end);
    if ~isempty(lastline)
        A{no_lines+1} = lastline;
    end

else
    % report error to log file and command window
    error(['Could not read file: ',filename]);
end