/[PAMELA software]/c3po/F77/common/common_level2.f
ViewVC logotype

Diff of /c3po/F77/common/common_level2.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pam-fi, Fri Jul 21 15:27:17 2006 UTC revision 1.3 by pam-fi, Fri Aug 11 15:39:51 2006 UTC
# Line 241  C--------------------------------------- Line 241  C---------------------------------------
241  C     Calorimeter variables  C     Calorimeter variables
242  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
243    
244        integer calntrk           ![0,51]        integer calntrk           ![0,11]
245        integer caltrkseqno (51)  ![ntrk] (come il numero di tracce del tracker + 1)        integer caltrkseqno (11)  ![ntrk] (come il numero di tracce del tracker + 1)
246        integer ncore(51)         ![0,500000]        integer ncore(11)         ![0,500000]
247        integer noint(51)         ![0,2000]        integer noint(11)         ![0,2000]
248        integer ncyl(51)          ![0,2000]        integer ncyl(11)          ![0,2000]
249        integer nlast(51)         ![0,2000]        integer nlast(11)         ![0,2000]
250        integer npre(51)          ![0,2000]        integer npre(11)          ![0,2000]
251        integer npresh(51)        ![0,2000]        integer npresh(11)        ![0,2000]
252        integer ntr(51)           ![0,2000]        integer ntr(11)           ![0,2000]
253        integer planetot(51)      ![0,45]        integer planetot(11)      ![0,45]
254        integer nlow(51)          ![0,4225]        integer nlow(11)          ![0,4225]
255        real qcore(51)            ![0,5*10^8]        real qcore(11)            ![0,5*10^8]
256        real qcyl(51)             ![0,5*10^8]        real qcyl(11)             ![0,5*10^8]
257        real qlast(51)            ![0,5*10^8]        real qlast(11)            ![0,5*10^8]
258        real qpre(51)             ![0,5*10^8]        real qpre(11)             ![0,5*10^8]
259        real qpresh(51)           ![0,5*10^8]        real qpresh(11)           ![0,5*10^8]
260        real qtr(51)              ![0,5*10^8]        real qtr(11)              ![0,5*10^8]
261        real qtrack(51)           ![0,5*10^8]        real qtrack(11)           ![0,5*10^8]
262        real qtrackx(51)          ![0,5*10^8]        real qtrackx(11)          ![0,5*10^8]
263        real qtracky(51)          ![0,5*10^8]        real qtracky(11)          ![0,5*10^8]
264        real dxtrack(51)          ![0,5*10^8]        real dxtrack(11)          ![0,5*10^8]
265        real dytrack(51)          ![0,5*10^8]        real dytrack(11)          ![0,5*10^8]
266        real qmean(51)            ![0,2000]        real qmean(11)            ![0,2000]
267        real qlow(51)             ![0,5*10^8]        real qlow(11)             ![0,5*10^8]
268        real dX0l(51)             ![0,2000]        real dX0l(11)             ![0,2000]
269          real tbar(2,22,11)
270  c--------------------------------------------------  c--------------------------------------------------
271        !common variables , una per evento        !common variables , una per evento
272                
# Line 295  c--------------------------------------- Line 296  c---------------------------------------
296        common/calo/calntrk,caltrkseqno,ncore,noint,ncyl,nlast,npre        common/calo/calntrk,caltrkseqno,ncore,noint,ncyl,nlast,npre
297       $     ,npresh,ntr,planetot,nlow,qcore,qcyl,qlast,qpre       $     ,npresh,ntr,planetot,nlow,qcore,qcyl,qlast,qpre
298       $     ,qpresh,qtr,qtrack,qtrackx,qtracky,dxtrack       $     ,qpresh,qtr,qtrack,qtrackx,qtracky,dxtrack
299       $     ,dytrack,qmean,qlow,dX0l,good,perr,swerr       $     ,dytrack,qmean,qlow,dX0l,tbar,good,perr,swerr
300       $     ,calcrc,selftrigger,nstrip,nx22,planemax,qtot       $     ,calcrc,selftrigger,nstrip,nx22,planemax,qtot
301       $     ,qx22,qmax,qq,npcfit,impx,impy,tanx,tany       $     ,qx22,qmax,qq,npcfit,impx,impy,tanx,tany
302       $     ,varcfit,elen,selen       $     ,varcfit,elen,selen

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.23