function export_coeff(nom,num,den)

% génère un fichier nom.h contenant la déclaration d'un ou deux tableaux de
% double (appelés num et den !!!)
% Ecrase le fichier existant sans prévenir ...

error(nargchk(2, 3, nargin))   
if ischar(nom) == 0
    error('le nom n est pas une chaine de caractère')
end 

fp = fopen(strcat(nom,'.h'),'w+');
if fp == -1
    error('erreur creation fichier')
end

fprintf(fp,['// Fichier généré par export_coeff.m\n\n#define SIZEFILTER %u \n\nconst double num[SIZEFILTER] = {%.16f'],size(num,2),num(1));
% .7e doit être mieux
if size(num,2)>1
    for i=2:size(num,2),
        fprintf(fp,',%.16f',num(i));
    end
end
fprintf(fp, '};\n');

if nargin == 3
    fprintf(fp,['const double den[%u] = {%.16f'],size(den,2),den(1));
    if size(den,2)>1
        for i=2:size(den,2),
            fprintf(fp,',%.16f',den(i));
        end
    end
    fprintf(fp, '};\n');
end
    
fclose(fp);