function IM = indmatf(varargin)
% indmatf.m indmatf erzeugt eine Indexwert-Matrix
% Aufruf: IM=indmatf   ergibt 3x3
%         IM=indmatf(ndim) ndim x ndim 
%         IM=indmatf(nzei,nspa) nzei x nspa 
if nargin == 0
% Fall ohne Parameter gibt 3x3
   nzei = 3;
   nspa = 3;
elseif nargin == 1
% Fall mit einem Parameter quadratischh
%   Beachte: varargin ist "cell array"
%   und wird mit {ind} indiziert 
  nzei = varargin{1}
  nspa = nzei
else
% Fall 2 Parameter nzei x nspa
  nzei = varargin{1}
  nspa = varargin{2}
end
%  Doch noch die Matrix definieren
for zei = 1:nzei
  for spa = 1:nspa
    IM(zei,spa) = 10*zei + spa;
  end
end

