function f=frankaux(p);

%             f=frankaux(p);
%
% Programme auxiliaire dans les programmes 
% franklin et nfrankl. 


C=zeros(2^p+1,2^(p+1)+1);
C(1,1)=1;
C(1,2)=.5;
C(2^p+1,2^(p+1))=.5;
C(2^p+1,2^(p+1)+1)=1;
for k=2:(2^p),
C(k,2*k-2)=.5;
C(k,2*k)=.5;
C(k,2*k-1)=1;
end
f=C;