/[PAMELA software]/gpamela/gpcal/gpcalv.F
ViewVC logotype

Diff of /gpamela/gpcal/gpcalv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.5 by cafagna, Tue May 9 12:01:15 2006 UTC revision 3.6 by cafagna, Fri Mar 30 15:24:54 2007 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpcalv.F,v 3.4 2005/07/25 11:53:20 cafagna Exp $  * $Id: gpcalv.F,v 3.5 2006/05/09 12:01:15 cafagna Exp $
3  *  *
4  * $Log: gpcalv.F,v $  * $Log: gpcalv.F,v $
5    * Revision 3.5  2006/05/09 12:01:15  cafagna
6    * Calo geometry updated
7    *
8  * Revision 3.4  2005/07/25 11:53:20  cafagna  * Revision 3.4  2005/07/25 11:53:20  cafagna
9  * Several updates. See history for details  * Several updates. See history for details
10  *  *
# Line 190  C     if(N.EQ.1) print *,'z ini = ',Z Line 193  C     if(N.EQ.1) print *,'z ini = ',Z
193              X = -Y1              X = -Y1
194              Y = X1              Y = X1
195              Z = Z - CANS(3) - CAPL(3)              Z = Z - CANS(3) - CAPL(3)
196  C     if(N.EQ.44) print *,'z fin = ',Z  c Mod by Caf on 30th Marc 2007, the X position of the X-view planes should be swapped
197    c$$$            IF(.NOT.NOCAPL(N))
198    c$$$     +           CALL GSPOS('CAPL',N,'CALB',X,(Y-0.1),Z,3,'ONLY')
199              IF(.NOT.NOCAPL(N))              IF(.NOT.NOCAPL(N))
200       +           CALL GSPOS('CAPL',N,'CALB',X,(Y-0.1),Z,3,'ONLY')       +           CALL GSPOS('CAPL',N,'CALB',-X,(Y-0.1),Z,3,'ONLY')
201    
202              IF(I.EQ.1) THEN              IF(I.EQ.1) THEN
203  c              Z = Z - 2*CAPL(3) - DZMO ! SPESSORE TRA I SILICI CHE SI GUARDANO  c              Z = Z - 2*CAPL(3) - DZMO ! SPESSORE TRA I SILICI CHE SI GUARDANO
Legend:
Removed from v.3.5  
changed lines
  Added in v.3.6
  ViewVC Help
Powered by ViewVC 1.1.23