i=-1;
ideb=1655;
iFin=1674;
setstring[@chemin,"E:\ManipsPAPOL\poldyn\"];
setstring[@fichierU,chemin$,"PSa",ideb,".3Du"];
setstring[@fichierD,chemin$,"PSa",ideb+1,".3Dd"];
openspectre[3,fichierU$,"Sommeup"];
openspectre[3,fichierD$,"Sommedown"];
ideb=ideb+2;
Lb:setstring[@fichierU,chemin$,"PSa",ideb,".3Du"];
setstring[@fichierD,chemin$,"PSa",ideb+1,".3Dd"];
openspectre[3,fichierU$,"AcqTOFup"];
openspectre[3,fichierD$,"AcqTOFdown"];
add3D["AcqTOFup","SommeUp","SommeUp"];
add3D["AcqTOFdown","Sommedown","Sommedown"];
ideb=ideb+2;
if ideb<(ifin+1) then Lb;
