/[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.5 by bottai, Tue Jan 24 13:52:01 2006 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.4 2006/01/18 09:41:33 bottai 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  * Revision 3.4  2006/01/18 09:41:33  bottai
9  *  Some correction to the spe plane ID due to the new geometry tree  *  Some correction to the spe plane ID due to the new geometry tree
10  *  *
# Line 177  C Line 180  C
180  C ADD THE SHIFT INDUCED BY THE MAG. FIELD  C ADD THE SHIFT INDUCED BY THE MAG. FIELD
181  C  C
182    
183           IF(ITRPB(I).EQ.1) THEN           IF(ITRPB(I).LT.6) THEN
184              XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)              XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)
185           ELSE IF(ITRPB(I).EQ.2) THEN           ELSE IF(ITRPB(I).EQ.6) THEN
186              XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)              XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)
187           ENDIF           ENDIF
188    
Legend:
Removed from v.3.5  
changed lines
  Added in v.3.6
  ViewVC Help
Powered by ViewVC 1.1.23