--- calo/flight/FUTILITIES/macros/FCaloLEVEL1.cxx	2006/03/22 15:07:46	1.1
+++ calo/flight/FUTILITIES/macros/FCaloLEVEL1.cxx	2006/06/30 12:08:15	1.2
@@ -312,10 +312,17 @@
     //
     printf("\n Processed events: \n\n");
     //
+    Int_t se = 5;
+    bool isCOMP = 0;
+    bool isFULL = 0;
+    bool isRAW = 0;
+    Int_t upnn = 0;
+    Double_t prima = 0.;
+    Double_t prmndp = 0.;
+    calo = new CalorimeterLevel1();
     for (Int_t i = 0; i < nevents; i++){    
 	//for (Int_t i = 0; i < 1000; i++){    
 	//calo = new pamela::calorimeter::CalorimeterLevel1();
-	calo = new CalorimeterLevel1();
 	evno = i;
 	if ( i%1000 == 0 && i > 0 ) printf(" %iK \n",i/1000);
 	//
@@ -364,7 +371,7 @@
 		//
 		// determine the section number
 		//
-		Int_t se = 5;
+	        se = 5;
 		if (l == 0 && m%2 == 0) se = 3;
 		if (l == 0 && m%2 != 0) se = 2;
 		if (l == 1 && m%2 == 0) se = 1;
@@ -372,9 +379,9 @@
 		//
 		// determine what kind of event we are going to analyze
 		//
-		bool isCOMP = 0;
-		bool isFULL = 0;
-		bool isRAW = 0;
+		isCOMP = 0;
+		isFULL = 0;
+		isRAW = 0;
 		if ( de->stwerr[se] & (1 << 16) ) isCOMP = 1; 
 		if ( de->stwerr[se] & (1 << 17) ) isFULL = 1; 
 		if ( de->stwerr[se] & (1 << 3) ) isRAW = 1; 
@@ -431,7 +438,7 @@
 		    if ( !done && (evento.base[l][m][pre] == 31000. || evento.base[l][m][pre] == 0.) ){
 			tot0++;
 			evento.base[l][m][pre] = calib.sbase[l][m][pre];
-			Int_t upnn = n+16;
+			upnn = n+16;
 			if ( upnn > 96 ) n = 96;
 			for ( Int_t nn = n; nn<upnn; nn++ ){
 			    evento.dexyc[l][m][nn] = de->dexyc[l][m][nn] ;
@@ -456,11 +463,11 @@
 				};	
 				if ( fcheck ) {
 				    memcpy(&evento2, &evento, sizeof(evento));
-				    Double_t prima = evento.base[l][m][pre];
+				    prima = evento.base[l][m][pre];
 				    CaloFindBaseRaw(calib,evento2,l,m,pre);	
 				    diffbas[l][m][pre] = 0.;
 				    if ( evento2.base[l][m][pre] != 31000. ) {
-					Double_t prmndp = prima - evento2.base[l][m][pre];
+				        prmndp = prima - evento2.base[l][m][pre];
 					if ( prmndp > 100000000. || prmndp < 100000000. ) prmndp = 0.;
 					diffbas[l][m][pre] = (float)prmndp;
 					calo->diffbas[l][m][pre] = (float)prmndp;