/[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.4 by bottai, Wed Jan 18 09:41:33 2006 UTC revision 3.7 by bottai, Tue Feb 7 11:38:52 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdspe.F,v 3.3 2005/12/05 12:15:21 pam-ba Exp $  * $Id: gpdspe.F,v 3.6 2006/02/06 14:17:21 bottai Exp $
3  *  *
4  * $Log: gpdspe.F,v $  * $Log: gpdspe.F,v $
5    * Revision 3.6  2006/02/06 14:17:21  bottai
6    *  adapt again the resolution simulation to the ITRPB volume identification
7    *
8    * Revision 3.5  2006/01/24 13:52:01  bottai
9    * prepare to store the x and y multiplicity of the hit
10    *
11    * Revision 3.4  2006/01/18 09:41:33  bottai
12    *  Some correction to the spe plane ID due to the new geometry tree
13    *
14  * Revision 3.3  2005/12/05 12:15:21  pam-ba  * Revision 3.3  2005/12/05 12:15:21  pam-ba
15  * new spectrometer geometry and internal magnetic field  * new spectrometer geometry and internal magnetic field
16  *  *
# Line 19  Line 28 
28  *CMZ :  1.00/02 27/03/96  18.35.42  by  Francesco Cafagna  *CMZ :  1.00/02 27/03/96  18.35.42  by  Francesco Cafagna
29  *-- Author :    Francesco Cafagna   23/02/96  *-- Author :    Francesco Cafagna   23/02/96
30        SUBROUTINE GPDSPE        SUBROUTINE GPDSPE
31  ************************************************************************  *************************************************************************
32  *                                                                      *  *                                                                       *
33  * To perform SPE digitization                                          *  * To perform SPE digitization                                           *
34  *                                                                      *  *                                                                       *
35  * Called by: GUDIGI                                                    *  * Called by: GUDIGI                                                     *
36  * Author: Francesco Cafagna, 23/02/96 12.50.38                         *  * Author: Francesco Cafagna, 23/02/96 12.50.38                          *
37  *                                                                      *  *                                                                       *
38  ************************************************************************  *************************************************************************
39  #include "gcunit.inc"  #include "gcunit.inc"
40  #include "gpphit.inc"  #include "gpphit.inc"
41        PARAMETER (RADDEG=57.295779)        PARAMETER (RADDEG=57.295779)
# Line 164  C       Line 173  C      
173    
174           CALL GPRSPE(ANGLEX,ANGLEY,BMAGNET,XMULT,YMULT,DXPOS,DYPOS)           CALL GPRSPE(ANGLEX,ANGLEY,BMAGNET,XMULT,YMULT,DXPOS,DYPOS)
175    
176             NXMULT(I)=INT(XMULT)
177             NYMULT(I)=INT(YMULT)
178    
179           XAVSPE(I) = XAVSPE(I) + DXPOS           XAVSPE(I) = XAVSPE(I) + DXPOS
180           YAVSPE(I) = YAVSPE(I) + DYPOS           YAVSPE(I) = YAVSPE(I) + DYPOS
181    
# Line 171  C Line 183  C
183  C ADD THE SHIFT INDUCED BY THE MAG. FIELD  C ADD THE SHIFT INDUCED BY THE MAG. FIELD
184  C  C
185    
186           IF(ITRPB(I).EQ.1) THEN           IF(ITRPB(I).LT.6) THEN
187              XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)              XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)
188           ELSE IF(ITRPB(I).EQ.2) THEN           ELSE IF(ITRPB(I).EQ.6) THEN
189              XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)              XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)
190           ENDIF           ENDIF
191    
Legend:
Removed from v.3.4  
changed lines
  Added in v.3.7
  ViewVC Help
Powered by ViewVC 1.1.23