mat_square.m

various matlab programs to slove various problems

function [n]=mat_square(A)
[n,m] = size(A);
if n ~= m
  disp(' Error: the matrix should be squared');
  stop
end
return