function state = isintvector(var)

if ~isempty(var) & ...
   isreal(var) & ...
   isequal(var,fix(var)) & ...
   ndims(var) == 2 & ...
   ~(size(var,1)>1 & size(var,2)>1)
   state = 1;
else
   state = 0;
end
