function [Xold,Fold,Gold,Eold,Fest,lambda]=UnWrapSp(spare,m,nvars);

Xold=spare(1:nvars);

k=nvars;
Fold=spare(k+1:k+m);

k=k+m;
for i=1:nvars
  Gold(1:m,i)=spare(k+1:k+m);
  k=k+m;
end;

Eold=spare(k+1:k+nvars);

k=k+nvars;
Fest=spare(k+1:k+m);

k=k+m+1;
lambda=spare(k);