function m = unmangleJPL1(A, ne, tx)

% Function m = unmangleJPL1(A, ne, tx)
% 
%
% INPUTS
% A        matrix in 1 layer of the rotten JPL format
% ne       number of values alone each edge of each face
% tx       number of values along each tile edge
%
% OUTPUTS
% m        output array of dimension ne,ne,6

if nargin ~= 3
  disp('Error: wrong number of arguments')
  exit
end

cx = ne;
cy = ne;
nt = ne*ne*6/(tx*tx);

m = zeros(ne,ne,6);
ite  = 0;
jte  = 1;
ntte = 1;
for i = 1:nt
  il = (i - 1)*tx + 1;
  ih = il + tx - 1;
  tepart = A(il:ih,:);
  ite = ite + 1;
  itel = (ite - 1)*tx + 1;
  iteh = itel + tx - 1;
  jtel = (jte - 1)*tx + 1;
  jteh = jtel + tx - 1;
  m(itel:iteh,jtel:jteh,ntte) = tepart;
  if iteh == cx
    ite = 0;
    jte = jte + 1;
    if jteh == cy
      jte = 1;
      ntte = ntte + 1;
    end
  end
end