/[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.1 by pam-fi, Fri Jul 21 11:32:02 2006 UTC revision 1.3 by pam-fi, Fri Aug 11 15:39:51 2006 UTC
# Line 113  c----------------------------------- Line 113  c-----------------------------------
113        integer ntoftrk        integer ntoftrk
114        integer toftrkseqno(10)          integer toftrkseqno(10)  
115        integer npmttdc(10)        integer npmttdc(10)
116        integer pmttdc(10,48)        integer pmttdc(48,10)
117        real beta(10,13)            real beta(13,10)    
118                
119        integer npmtadc(10)          integer npmtadc(10)  
120        integer pmtadc(10,48)          integer pmtadc(48,10)  
121        real dedx(10,48)            real dedx(48,10)    
122                
123        real xtofpos(10,3)        real xtofpos(3,10)
124        real ytofpos(10,3)        real ytofpos(3,10)
125  c-----------------------------------        c-----------------------------------      
126        integer npmt        integer npmt
127        integer pmt_id(48)        integer pmt_id(48)
# Line 135  c-----------------------------------     Line 135  c-----------------------------------    
135  C----------------------------------------------------------------------  C----------------------------------------------------------------------
136    
137  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
138  C     ToF variables  C     Trigger variables
139  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
140    
141        integer evcount        integer evcount
# 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.1  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.23