/[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.5 by bottai, Tue Jan 24 13:52:01 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.4 2006/01/18 09:41:33 bottai Exp $
3  *  *
4  * $Log: gpdspe.F,v $  * $Log: gpdspe.F,v $
5    * Revision 3.4  2006/01/18 09:41:33  bottai
6    *  Some correction to the spe plane ID due to the new geometry tree
7    *
8  * Revision 3.3  2005/12/05 12:15:21  pam-ba  * Revision 3.3  2005/12/05 12:15:21  pam-ba
9  * new spectrometer geometry and internal magnetic field  * new spectrometer geometry and internal magnetic field
10  *  *
# Line 164  C       Line 167  C      
167    
168           CALL GPRSPE(ANGLEX,ANGLEY,BMAGNET,XMULT,YMULT,DXPOS,DYPOS)           CALL GPRSPE(ANGLEX,ANGLEY,BMAGNET,XMULT,YMULT,DXPOS,DYPOS)
169    
170             NXMULT(I)=INT(XMULT)
171             NYMULT(I)=INT(YMULT)
172    
173           XAVSPE(I) = XAVSPE(I) + DXPOS           XAVSPE(I) = XAVSPE(I) + DXPOS
174           YAVSPE(I) = YAVSPE(I) + DYPOS           YAVSPE(I) = YAVSPE(I) + DYPOS
175    
Legend:
Removed from v.3.4  
changed lines
  Added in v.3.5
  ViewVC Help
Powered by ViewVC 1.1.23