--- c3po/F77/common/common_level2.f	2006/07/21 15:27:17	1.2
+++ c3po/F77/common/common_level2.f	2006/08/11 15:39:51	1.3
@@ -241,31 +241,32 @@
 C     Calorimeter variables
 C-----------------------------------------------------------------------
 
-      integer calntrk           ![0,51]
-      integer caltrkseqno (51)  ![ntrk] (come il numero di tracce del tracker + 1)
-      integer ncore(51)         ![0,500000]
-      integer noint(51)         ![0,2000]
-      integer ncyl(51)          ![0,2000]
-      integer nlast(51)         ![0,2000]
-      integer npre(51)          ![0,2000]
-      integer npresh(51)        ![0,2000]
-      integer ntr(51)           ![0,2000]
-      integer planetot(51)      ![0,45]
-      integer nlow(51)          ![0,4225]
-      real qcore(51)            ![0,5*10^8]
-      real qcyl(51)             ![0,5*10^8] 
-      real qlast(51)            ![0,5*10^8] 
-      real qpre(51)             ![0,5*10^8] 
-      real qpresh(51)           ![0,5*10^8] 
-      real qtr(51)              ![0,5*10^8] 
-      real qtrack(51)           ![0,5*10^8] 
-      real qtrackx(51)          ![0,5*10^8] 
-      real qtracky(51)          ![0,5*10^8] 
-      real dxtrack(51)          ![0,5*10^8] 
-      real dytrack(51)          ![0,5*10^8] 
-      real qmean(51)            ![0,2000] 
-      real qlow(51)             ![0,5*10^8] 
-      real dX0l(51)             ![0,2000]
+      integer calntrk           ![0,11]
+      integer caltrkseqno (11)  ![ntrk] (come il numero di tracce del tracker + 1)
+      integer ncore(11)         ![0,500000]
+      integer noint(11)         ![0,2000]
+      integer ncyl(11)          ![0,2000]
+      integer nlast(11)         ![0,2000]
+      integer npre(11)          ![0,2000]
+      integer npresh(11)        ![0,2000]
+      integer ntr(11)           ![0,2000]
+      integer planetot(11)      ![0,45]
+      integer nlow(11)          ![0,4225]
+      real qcore(11)            ![0,5*10^8]
+      real qcyl(11)             ![0,5*10^8] 
+      real qlast(11)            ![0,5*10^8] 
+      real qpre(11)             ![0,5*10^8] 
+      real qpresh(11)           ![0,5*10^8] 
+      real qtr(11)              ![0,5*10^8] 
+      real qtrack(11)           ![0,5*10^8] 
+      real qtrackx(11)          ![0,5*10^8] 
+      real qtracky(11)          ![0,5*10^8] 
+      real dxtrack(11)          ![0,5*10^8] 
+      real dytrack(11)          ![0,5*10^8] 
+      real qmean(11)            ![0,2000] 
+      real qlow(11)             ![0,5*10^8] 
+      real dX0l(11)             ![0,2000] 
+      real tbar(2,22,11)
 c--------------------------------------------------
       !common variables , una per evento
       
@@ -295,7 +296,7 @@
       common/calo/calntrk,caltrkseqno,ncore,noint,ncyl,nlast,npre
      $     ,npresh,ntr,planetot,nlow,qcore,qcyl,qlast,qpre
      $     ,qpresh,qtr,qtrack,qtrackx,qtracky,dxtrack
-     $     ,dytrack,qmean,qlow,dX0l,good,perr,swerr
+     $     ,dytrack,qmean,qlow,dX0l,tbar,good,perr,swerr
      $     ,calcrc,selftrigger,nstrip,nx22,planemax,qtot
      $     ,qx22,qmax,qq,npcfit,impx,impy,tanx,tany
      $     ,varcfit,elen,selen