/[PAMELA software]/gpamela/gpspe/gpdspe.F
ViewVC logotype

Diff of /gpamela/gpspe/gpdspe.F

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

revision 3.3 by pam-ba, Mon Dec 5 12:15:21 2005 UTC revision 3.6 by bottai, Mon Feb 6 14:17:21 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdspe.F,v 3.2 2005/07/25 11:53:21 cafagna Exp $  * $Id: gpdspe.F,v 3.5 2006/01/24 13:52:01 bottai Exp $
3  *  *
4  * $Log: gpdspe.F,v $  * $Log: gpdspe.F,v $
5    * Revision 3.5  2006/01/24 13:52:01  bottai
6    * prepare to store the x and y multiplicity of the hit
7    *
8    * Revision 3.4  2006/01/18 09:41:33  bottai
9    *  Some correction to the spe plane ID due to the new geometry tree
10    *
11    * Revision 3.3  2005/12/05 12:15:21  pam-ba
12    * new spectrometer geometry and internal magnetic field
13    *
14  * Revision 3.2  2005/07/25 11:53:21  cafagna  * Revision 3.2  2005/07/25 11:53:21  cafagna
15  * Several updates. See history for details  * Several updates. See history for details
16  *  *
# Line 161  C       Line 170  C      
170    
171           CALL GPRSPE(ANGLEX,ANGLEY,BMAGNET,XMULT,YMULT,DXPOS,DYPOS)           CALL GPRSPE(ANGLEX,ANGLEY,BMAGNET,XMULT,YMULT,DXPOS,DYPOS)
172    
173             NXMULT(I)=INT(XMULT)
174             NYMULT(I)=INT(YMULT)
175    
176           XAVSPE(I) = XAVSPE(I) + DXPOS           XAVSPE(I) = XAVSPE(I) + DXPOS
177           YAVSPE(I) = YAVSPE(I) + DYPOS           YAVSPE(I) = YAVSPE(I) + DYPOS
178    
179  C  C
180  C ADD RESOLUTION OF THE SHIFT INDUCED BY THE MAG. FIELD  C ADD THE SHIFT INDUCED BY THE MAG. FIELD
181  C  C
182    
183           IF(ITRPB(I).LT.6) THEN           IF(ITRPB(I).LT.6) THEN
# Line 176  C Line 188  C
188    
189        ENDDO        ENDDO
190  *  *
191  * Loop on the hits retrived to fill the CWN common and the DIGI bank  * Loop on the hits retrived to fill the CWN common and the DIGI b
192  *  *
193  C fc       IF (HF) NTHSPE = NHITS  C fc       IF (HF) NTHSPE = NHITS
194  C fc       DO I=1,NHITS  C fc       DO I=1,NHITS
Legend:
Removed from v.3.3  
changed lines
  Added in v.3.6
  ViewVC Help
Powered by ViewVC 1.1.23