ideb=8825;
iFin=8839;
setstring[@chemin,"I:\dataNeutrons\nanodots_UCSD\MayJune2003\IC040503B\T300K_H38Gperp\"];
La:setstring[@nom,"IC040503B_300K_perp",ideb,".2Du"];
setstring[@fichier,chemin$,nom$];
openspectre[2,fichier$,nom$];
setstring[@nom,"IC040503B_300K_perp",ideb+1,".2Dd"];
setstring[@fichier,chemin$,nom$];
openspectre[2,fichier$,nom$];
ideb=ideb+2;
if ideb<(ifin+1) then La;