ideb=8303;
iFin=8455;
setstring[@chemin,"H:\dataNeutrons\Mergia_PAPOL\CrGd_4ML\"];
La:setstring[@nom,"CrGd_237_4ML_",ideb,".2Du"];
setstring[@fichier,chemin$,nom$];
openspectre[2,fichier$,nom$];
setstring[@nom,"CrGd_237_4ML_",ideb+1,".2Dd"];
setstring[@fichier,chemin$,nom$];
openspectre[2,fichier$,nom$];
ideb=ideb+2;
if ideb<(ifin+1) then La;