 function  temp3(Kop,rhs,X,Lam,n1,indn1,tn1,V,H)
Kop=sparse(Kop);
rhs=sparse(rhs);
x=sparse(X(indn1));
y=sparse(Lam(indn1));
V=sparse(V);
H=sparse(H);
m=2*n1^2;n=2*tn1;
K11=Kop(1:n1^2,1:tn1);
K12=Kop(1:n1^2,tn1+1:n);
K21=Kop(n1^2+1:m,1:tn1);
K22=Kop(n1^2+1:m,tn1+1:n);
%  check time for block 11
tt=clock;
test=K11*x;
multtime11=etime(clock,tt)
tt=clock;
test=KWs(KW(X,V,H),V,H);
operat11=etime(clock,tt)
disp(['oper and mult times for 11 block : ' ...
             ,num2str(operat11),' ',num2str(multtime11)]);
keyboard
