--- gpamela/gpcal/gpcalv.F	2006/05/09 12:01:15	3.5
+++ gpamela/gpcal/gpcalv.F	2007/03/30 15:24:54	3.6
@@ -1,7 +1,10 @@
 *
-* $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 $
 *
 * $Log: gpcalv.F,v $
+* Revision 3.5  2006/05/09 12:01:15  cafagna
+* Calo geometry updated
+*
 * Revision 3.4  2005/07/25 11:53:20  cafagna
 * Several updates. See history for details
 *
@@ -190,9 +193,11 @@
             X = -Y1
             Y = X1
             Z = Z - CANS(3) - CAPL(3)
-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
+c$$$            IF(.NOT.NOCAPL(N))
+c$$$     +           CALL GSPOS('CAPL',N,'CALB',X,(Y-0.1),Z,3,'ONLY')
             IF(.NOT.NOCAPL(N))
-     +           CALL GSPOS('CAPL',N,'CALB',X,(Y-0.1),Z,3,'ONLY')
+     +           CALL GSPOS('CAPL',N,'CALB',-X,(Y-0.1),Z,3,'ONLY')
 
             IF(I.EQ.1) THEN
 c              Z = Z - 2*CAPL(3) - DZMO ! SPESSORE TRA I SILICI CHE SI GUARDANO