function W = List2Mat(v)

n = length(v)/9;

for j=0:n-1
  u = v(j*9 + [1:9]);
  V{j+1} = zeros(3);
  V{j+1}(:) = u([1 2 5 4 3 6 9 8 7]);
end

for j=0:n-1
  j0 = j+1;
  if j0==1
    jm=n;
  else
    jm = j0-1;
  end
  if j0==n
    jp = 1;
  else
    jp = j0+1;
  end
  W{j0} = [nan V{jp}(:,1).'; V{jm}(1,:).' V{j0}];
end