/[PAMELA software]/DarthVader/CalorimeterLevel2/inc/INTEST.TXT
ViewVC logotype

Diff of /DarthVader/CalorimeterLevel2/inc/INTEST.TXT

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

revision 1.1 by mocchiut, Fri May 19 13:15:49 2006 UTC revision 1.8 by mocchiut, Thu Nov 29 14:20:27 2007 UTC
# Line 1  Line 1 
1        INTEGER NPLA, NCHA, LENSEV        INTEGER NPLAV, NCHA, LENSEV
2        PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)        PARAMETER (NPLAV=22,NCHA=96,LENSEV=NPLAV*NCHA)
3        REAL ADIST, AA        REAL ADIST, AA
4        PARAMETER( ADIST=80.5,AA=0.96)        PARAMETER( ADIST=80.5,AA=0.96)
5  c      REAL PIANO(22)        REAL DEXY(2,NPLAV,NCHA)
6  C      PARAMETER (PIANO=8.59)        REAL CLUS(2,NPLAV,NCHA)
7        REAL DEXY(2,NPLA,NCHA)        INTEGER NCL(2,NPLAV)
       REAL CLUS(2,NPLA,NCHA)  
       INTEGER NCL(2,NPLA)  
8        REAL CLUS2(2,2,NCHA)        REAL CLUS2(2,2,NCHA)
9        INTEGER NCL2(2,2)        INTEGER NCL2(2,2)
10        INTEGER SELFTRIGGER        INTEGER SELFTRIGGER
11          INTEGER FMODE(2)
12  C  C
 c      integer obt,pkt_num,pro_num  
13        real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany        real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany
14        real noint, trigty        real noint, trigty, wartrig
15        REAL ncyl, qcyl, qtrack, qmax, nx22, qx22        REAL ncyl, qcyl, qtrack, qmax, nx22, qx22
16        real qq(4)        real qq(4)
17        REAL QTRACKX, QTRACKY, DXTRACK, DYTRACK, QLAST, NLAST, QPRE, NPRE        REAL QTRACKX, QTRACKY, DXTRACK, DYTRACK, QLAST, NLAST, QPRE, NPRE
18        REAL QPRESH,NPRESH,QLOW,NLOW,QTR,NTR        REAL QPRESH,NPRESH,QLOW,NLOW,QTR,NTR
19        INTEGER CIBAR(2,NPLA)        INTEGER CIBAR(2,NPLAV)
20        INTEGER TIBAR(2,NPLA)        INTEGER TIBAR(2,NPLAV)
21        REAL CBAR(2,NPLA)        REAL CBAR(2,NPLAV)
22        REAL TBAR(2,NPLA)        REAL TBAR(2,NPLAV)
23        REAL PLANETOT, QMEAN        REAL PLANETOT, QMEAN
24        REAL VARCFIT(2)        REAL VARCFIT(2)
25          REAL NSATSTRIP
26        REAL ELEN, SELEN        REAL ELEN, SELEN
27        INTEGER NPCFIT(2), PLANEMAX(2)        INTEGER NPCFIT(2), PLANEMAX(2)
28  C  C
 C             logical perr(4), swerr(4), crc(4),good  
29        integer perr, swerr, crc,good        integer perr, swerr, crc,good
30  c  c
31        double precision al_pp(2,5)        double precision al_pp(2,5)
32        INTEGER good2, trkchi2        INTEGER good2, trkchi2
33        REAL estrip(2,22,96), emin        REAL estrip(2,22,96), emin
34        real zalig, xalig, yalig        real zalig, xalig, yalig
35        REAL DX0L        REAL DX0L, RIGINPUT
36          INTEGER HZN
37    C
38          INTEGER NPLA, REVERSE
39    C
40          REAL CLUS4(2,4,NCHA)
41          INTEGER NCL4(2,4)
42          INTEGER SELFDELAY(7,4)
43  C  C
44        COMMON / clevel1 / al_pp,estrip, good2,        COMMON / clevel1 / al_pp,estrip, good2,
45       &     trkchi2, xalig, yalig, zalig, emin       &     trkchi2, xalig, yalig, zalig, emin,
46         &     riginput,hzn,NPLA,REVERSE
47        SAVE / clevel1 /        SAVE / clevel1 /
48  C  C
49        COMMON / clevel2 / trigty,good,perr(4)        COMMON / clevel2 / fmode,wartrig,trigty,good,perr(4)
50       &     ,swerr(4),crc(4),selftrigger,       &     ,swerr(4),crc(4),selftrigger,
51       &     nstrip, qtot, ncore, qcore, impx, impy,       &     nstrip, nsatstrip, qtot, ncore, qcore, impx, impy,
52       &     tanx, tany, noint, ncyl, qcyl, qtrack, qmax, nx22,       &     tanx, tany, noint, ncyl, qcyl, qtrack, qmax, nx22,
53       &     qx22, qq, qtrackx, qtracky, dxtrack, dytrack, qlast, nlast,       &     qx22, qq, qtrackx, qtracky, dxtrack, dytrack, qlast, nlast,
54       &     qpre, npre, qpresh, npresh, qlow, nlow, qtr, ntr,       &     qpre, npre, qpresh, npresh, qlow, nlow, qtr, ntr,
55       &     planetot, qmean, PLANEMAX, DX0L, varcfit, npcfit,       &     planetot, qmean, PLANEMAX, DX0L, varcfit, npcfit,
56       $     cibar, tibar,       $     cibar, tibar,
57       $     cbar, tbar,       $     cbar, tbar,
58       $     ELEN, SELEN       $     ELEN, SELEN, selfdelay
59        SAVE / clevel2 /        SAVE / clevel2 /
60  C  C
61        COMMON / EVENTI / DEXY        COMMON / EVENTI / DEXY
# Line 60  C Line 66  C
66  C  C
67        COMMON / GRUPPO2 / CLUS2, NCL2        COMMON / GRUPPO2 / CLUS2, NCL2
68        SAVE / GRUPPO2 /        SAVE / GRUPPO2 /
69    
70    C
71          COMMON / GRUPPO4 / CLUS4,NCL4
72          SAVE / GRUPPO4 /
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23