ideb=8304;
iFin=8456;
angle=100;
setstring[@chemin,"H:\dataNeutrons\Mergia_PAPOL\CrGd_6ML\"];
La:setstring[@nom,"CrGd_237_6ML_",ideb,".2Du"];
setstring[@fichier,chemin$,nom$];
openspectre[2,fichier$,nom$];
posx=(angle/34.3+60.5);
integraleSPectre2D[nom$,posx-5,59,posx+5,68,"sum"];
addcomment["theta ",angle,"  ",sum];
angle=angle+30;
ideb=ideb+2;
del2D[nom$];
if ideb<(ifin+1) then La;