% findmd - Multidimensional find
%
% findmd :: [D:[[1,E]]] -> [[N,E]->natural].
%
% Take an E dimensional array and return subscripts of nonzero
% elements.
function S=findmd(A)

E=ndims(A);
[SX{1:E}]=ind2sub(size(A),find(A));
S=cellcat(2,SX);
