/[PAMELA software]/gpamela/gpcal/gpdcal.F
ViewVC logotype

Diff of /gpamela/gpcal/gpdcal.F

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

revision 3.5 by cafagna, Thu May 11 00:15:34 2006 UTC revision 3.6 by cafagna, Thu May 11 00:39:39 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdcal.F,v 3.4 2005/07/25 11:53:20 cafagna Exp $  * $Id: gpdcal.F,v 3.5 2006/05/11 00:15:34 cafagna Exp $
3  *  *
4  * $Log: gpdcal.F,v $  * $Log: gpdcal.F,v $
5    * Revision 3.5  2006/05/11 00:15:34  cafagna
6    * A bug in hits retrival for calorimeter
7    *
8  * Revision 3.4  2005/07/25 11:53:20  cafagna  * Revision 3.4  2005/07/25 11:53:20  cafagna
9  * Several updates. See history for details  * Several updates. See history for details
10  *  *
# Line 111  c$$$      ENDIF Line 114  c$$$      ENDIF
114           WRITE(CHMAIL,10200) CSET,CNSED(IS,ID),NHITS,NHM,           WRITE(CHMAIL,10200) CSET,CNSED(IS,ID),NHITS,NHM,
115       +                        IDRUN,IDEVT       +                        IDRUN,IDEVT
116           CALL GMAIL(1,0)           CALL GMAIL(1,0)
117           GO TO 10        ELSE
       ENDIF  
118  *  *
119  * >>>>>>>>>>>>>>>>>>>>>> DIGI action  * >>>>>>>>>>>>>>>>>>>>>> DIGI action
120  *  *
121  *  *
122  * Fill the CWN common  * Fill the CWN common
123  *  *
124        NTHCAL=0           NTHCAL=0
125        DO I=1,NHITS           DO I=1,NHITS
126           NTHCAL = NTHCAL + 1              NTHCAL = NTHCAL + 1
127           ICAPL(NTHCAL) = NUMBV((NVCAL-2),I)              ICAPL(NTHCAL) = NUMBV((NVCAL-2),I)
128           ICASI(NTHCAL) = NUMBV((NVCAL-1),I)              ICASI(NTHCAL) = NUMBV((NVCAL-1),I)
129           ICAST(NTHCAL) = NUMBV((NVCAL),I)              ICAST(NTHCAL) = NUMBV((NVCAL),I)
130           XINCAL(NTHCAL) = VHITS(1,I)              XINCAL(NTHCAL) = VHITS(1,I)
131           YINCAL(NTHCAL) = VHITS(2,I)              YINCAL(NTHCAL) = VHITS(2,I)
132           ZINCAL(NTHCAL) = VHITS(3,I)              ZINCAL(NTHCAL) = VHITS(3,I)
133           ERELCAL(NTHCAL) = VHITS(4,I)              ERELCAL(NTHCAL) = VHITS(4,I)
134  c         IPARCAL(NTHCAL) = VHITS(5,I)  c         IPARCAL(NTHCAL) = VHITS(5,I)
135  c         P0CAL(NTHCAL) = VHITS(6,I)  c     P0CAL(NTHCAL) = VHITS(6,I)
136        ENDDO           ENDDO
137          ENDIF
138  C  C
139  C The energy released per strip  C The energy released per strip
140  C  C
# Line 144  C Line 147  C
147        ID   = IDCASI        ID   = IDCASI
148        IT = -1        IT = -1
149        CSET = 'CAL '        CSET = 'CAL '
150  *  *    
151  * Check on the volume level  * Check on the volume level
152  *  *
153        IF (NV.GT.NVM) THEN        IF (NV.GT.NVM) THEN
Legend:
Removed from v.3.5  
changed lines
  Added in v.3.6
  ViewVC Help
Powered by ViewVC 1.1.23