function ecode = isscalar(Vec)% ISSCALAR returns 1 for scalar inputs.%   Copyright 1996-2001 The MathWorks, Inc.%   $Revision: 1.3 $  $Date: 2001/04/05 04:47:25 $   if(ndims(Vec) == 2)      if(all([size(Vec,1)>1 size(Vec,2)>1]))         ecode = 0; % Matrix      else         ecode = all([size(Vec,1)==1 size(Vec,2)==1]);      end;   else      ecode = 0;   end;return;