function p = isvector(v)
% p = isvector(v)

s=size(v);
if ndims(v)<=2 & (s(1) == 1 | s(2) == 1)
  p = 1;
else
  p = 0;
end
