/[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.4 by bottai, Wed Jan 18 09:41:33 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.3 2005/12/05 12:15:21 pam-ba Exp $
3  *  *
4  * $Log: gpdspe.F,v $  * $Log: gpdspe.F,v $
5    * Revision 3.3  2005/12/05 12:15:21  pam-ba
6    * new spectrometer geometry and internal magnetic field
7    *
8  * Revision 3.2  2005/07/25 11:53:21  cafagna  * Revision 3.2  2005/07/25 11:53:21  cafagna
9  * Several updates. See history for details  * Several updates. See history for details
10  *  *
# Line 165  C       Line 168  C      
168           YAVSPE(I) = YAVSPE(I) + DYPOS           YAVSPE(I) = YAVSPE(I) + DYPOS
169    
170  C  C
171  C ADD RESOLUTION OF THE SHIFT INDUCED BY THE MAG. FIELD  C ADD THE SHIFT INDUCED BY THE MAG. FIELD
172  C  C
173    
174           IF(ITRPB(I).LT.6) THEN           IF(ITRPB(I).EQ.1) THEN
175              XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)              XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)
176           ELSE IF(ITRPB(I).EQ.6) THEN           ELSE IF(ITRPB(I).EQ.2) THEN
177              XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)              XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)
178           ENDIF           ENDIF
179    
180        ENDDO        ENDDO
181  *  *
182  * 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
183  *  *
184  C fc       IF (HF) NTHSPE = NHITS  C fc       IF (HF) NTHSPE = NHITS
185  C fc       DO I=1,NHITS  C fc       DO I=1,NHITS
Legend:
Removed from v.3.3  
changed lines
  Added in v.3.4
  ViewVC Help
Powered by ViewVC 1.1.23