function writeakernel_dat(xx,fname)

fid = fopen(fname,'wb');
fprintf(fid,'%d ',size(xx));
fprintf(fid,'\n');
for i=1:size(xx,1),
 fprintf(fid,'%10.8f ', xx(i,:));
 fprintf(fid,'\n');
end
fclose(fid);

return

