function J = jordbloc(n, lambda)
%JORDBLOC Jordan block.
%   GALLERY('JORDBLOC',N,LAMBDA) is the N-by-N Jordan block 
%   with eigenvalue LAMBDA.  LAMBDA = 1 is the default.

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.5 $  $Date: 1997/11/21 23:29:40 $

if nargin == 1, lambda = 1; end

J = lambda*eye(n) + diag(ones(n-1,1),1);
