i=-1;
ideb=1825;
iFin=1842;
setstring[@chemin,"e:\ManipsPAPOL\poldyn\cata\"];
Lb:setstring[@fichierU,chemin$,"C2_",ideb,".3Du"];
setstring[@fichierD,chemin$,"C2_",ideb+1,".3Dd"];
openspectre[3,fichierU$,"AcqTOFup"];
openspectre[3,fichierD$,"AcqTOFdown"];
ideb=ideb+2;
i=i+1;
ind=1;
La:spectre3Dto2D["AcqTOFup","tamp2Dup",ind];
spectre3Dto2D["AcqTOFdown","tamp2Ddown",ind];
setstring[@nomASCII,"C:\dataneutron\poldyn\cata\C",ideb-2,"_",ind,".txt"];
SaveToASCII2D["tamp2Dup",nomASCII$,"fichier:",ideb-2," frame:",ind];
setstring[@nomASCII,"C:\dataneutron\poldyn\cata\C",ideb-1,"_",ind,".txt"];
SaveToASCII2D["tamp2Ddown",nomASCII$,"fichier:",ideb-1," frame:",ind];
ind=ind+1;
if ind<33 then La;
if ideb<(ifin+1) then Lb;
