wolffd@0: function p = isequalKPM(a,b)
wolffd@0: 
wolffd@0: if isempty(a) & isempty(b)
wolffd@0:   p = 1;
wolffd@0: else
wolffd@0:   p = isequal(a,b);
wolffd@0: end