ind=1308;
La:ind=ind+1;
setstring[@spectre2D,"tol",ind,".2Du"];
setstring[@fichier,"C:\programmation\TraitementSpectres_DEV\dataTEST\",spectre2D$];
openspectre[2,fichier$,spectre2D$];
setstring[@spectre2Dn,"tol",ind,"_n.2Du"];
NormMoniSpectre2D[1000000,spectre2D$,spectre2Dn$];
delspectre2D[spectre2D$];
setstring[@spectre1D,"tol",ind+1-1,"_1",".1D"];
SommeDNPA[spectre2Dn$,spectre1D$,"masque1",64,64,100,8,0.005,2.5];
if ind<1313 then La;