/[PAMELA software]/gpamela/gpcard/gpdcard.F
ViewVC logotype

Diff of /gpamela/gpcard/gpdcard.F

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

revision 1.1 by cafagna, Sun Apr 9 23:28:48 2006 UTC revision 1.2 by bruno, Mon Apr 10 17:15:57 2006 UTC
# Line 14  Line 14 
14  #include "gpcard.inc"  #include "gpcard.inc"
15  #include "gpsed.inc"  #include "gpsed.inc"
16  *  *
17        INTEGER IS,ID,NV,NVM        INTEGER IS,ID,NV,NVM,INDEX
18        CHARACTER*4 CSET        CHARACTER*4 CSET
19  *  *
20  *  *
# Line 40  Line 40 
40        CSET = 'CARD'        CSET = 'CARD'
41        IT = -1        IT = -1
42        NTHCARD = 0        NTHCARD = 0
43          INDEX = 0
44        DO ID=IDCAR1,IDCAR2        DO ID=IDCAR1,IDCAR2
45  *  *
46  * Check on the volume level  * Check on the volume level
# Line 73  Line 74 
74  *      *    
75           NTHCARD = NTHCARD + NHITS           NTHCARD = NTHCARD + NHITS
76           DO I=1,NHITS           DO I=1,NHITS
77              ICARD(I)  = NUMBV(1,I) + 2*(ID-1)              INDEX=INDEX+1
78                ICARD(INDEX)  = NUMBV(1,I) + 2*(ID-1)
79  #if defined(GPAMELA_INTER)  #if defined(GPAMELA_INTER)
80              XINCARD(I)  = 2*VHITS(1,I)-VHITS(4,I)              XINCARD(INDEX)  = 2*VHITS(1,I)-VHITS(4,I)
81              YINCARD(I)  = 2*VHITS(2,I)-VHITS(5,I)              YINCARD(INDEX)  = 2*VHITS(2,I)-VHITS(5,I)
82              ZINCARD(I)  = 2*VHITS(3,I)-VHITS(6,I)              ZINCARD(INDEX)  = 2*VHITS(3,I)-VHITS(6,I)
83  #endif  #endif
84  #if !defined(GPAMELA_INTER)  #if !defined(GPAMELA_INTER)
85              XINCARD(I)  = VHITS(1,I)              XINCARD(INDEX)  = VHITS(1,I)
86              YINCARD(I)  = VHITS(2,I)              YINCARD(INDEX)  = VHITS(2,I)
87              ZINCARD(I)  = VHITS(3,I)              ZINCARD(INDEX)  = VHITS(3,I)
88  #endif  #endif
89              XOUTCARD(I) = VHITS(4,I)              XOUTCARD(INDEX) = VHITS(4,I)
90              YOUTCARD(I) = VHITS(5,I)              YOUTCARD(INDEX) = VHITS(5,I)
91              ZOUTCARD(I) = VHITS(6,I)              ZOUTCARD(INDEX) = VHITS(6,I)
92              ERELCARD(I) = VHITS(7,I)              ERELCARD(INDEX) = VHITS(7,I)
93              TIMECARD(I)=  VHITS(8,I)              TIMECARD(INDEX)=  VHITS(8,I)
94              PATHCARD(I) = VHITS(9,I)              PATHCARD(INDEX) = VHITS(9,I)
95              IPARCARD(I) = VHITS(10,I)              IPARCARD(INDEX) = VHITS(10,I)
96              P0CARD(I) = VHITS(11,I)              P0CARD(INDEX) = VHITS(11,I)
97           ENDDO           ENDDO
98        ENDDO        ENDDO
99  10000 FORMAT(' GPDCARD: VOLUME level too big: SET=',A4,', DET=',A4,',  10000 FORMAT(' GPDCARD: VOLUME level too big: SET=',A4,', DET=',A4,',
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23