/[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.9 by bottai, Tue May 2 12:00:24 2006 UTC revision 3.10 by bottai, Tue May 8 15:05:18 2007 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdspe.F,v 3.8 2006/04/09 23:29:19 cafagna Exp $  * $Id: gpdspe.F,v 3.9 2006/05/02 12:00:24 bottai Exp $
3  *  *
4  * $Log: gpdspe.F,v $  * $Log: gpdspe.F,v $
5    * Revision 3.9  2006/05/02 12:00:24  bottai
6    *  call gpucollection for strip simulation, condition on FFIELD repositioned
7    *
8  * Revision 3.8  2006/04/09 23:29:19  cafagna  * Revision 3.8  2006/04/09 23:29:19  cafagna
9  * Several new things, among this: ND and CARD  * Several new things, among this: ND and CARD
10  *  *
# Line 242  C       Line 245  C      
245  C  C
246  C ADD THE SHIFT INDUCED BY THE MAG. FIELD  C ADD THE SHIFT INDUCED BY THE MAG. FIELD
247  C  C
248           IF(FFIELD.NE.0) THEN  cv
249            cv 8/05/2007 not anymore needed since the effect is corrected in reco
250              IF(ITRPB(I).LT.6) THEN  cv before calculating the positions for fit
251                 XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)  cv
252              ELSE IF(ITRPB(I).EQ.6) THEN  cv         IF(FFIELD.NE.0) THEN
253                 XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)  cv      
254              ENDIF  cv            IF(ITRPB(I).LT.6) THEN
255           ENDIF    cv               XAVSPE(I) = XAVSPE(I) + 2.64e-4/4.5*BMAGNET(2)
256    cv            ELSE IF(ITRPB(I).EQ.6) THEN
257    cv               XAVSPE(I) = XAVSPE(I) - 2.64e-4/4.5*BMAGNET(2)
258    cv            ENDIF
259    cv         ENDIF  
260        ENDDO        ENDDO
261    
262  *  *
Legend:
Removed from v.3.9  
changed lines
  Added in v.3.10
  ViewVC Help
Powered by ViewVC 1.1.23