--- gpamela/gpcas/gpdcas.F	2002/12/05 10:17:41	3.2
+++ gpamela/gpcas/gpdcas.F	2005/08/25 11:13:18	3.3
@@ -1,7 +1,10 @@
 *
-* $Id: gpdcas.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
+* $Id: gpdcas.F,v 3.2 2002/12/05 10:17:41 pamela Exp $
 *
 * $Log: gpdcas.F,v $
+* Revision 3.2  2002/12/05 10:17:41  pamela
+* Update CAS and CALO geometries and positions. Makefile updated as well
+*
 * Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
 * First GPAMELA release on CVS
 *
@@ -87,7 +90,9 @@
 *
       NTHCAS = NHITS
       DO I=1,NHITS
-         ICAS(I)  = NUMBV(NVCAS,I)
+*JoLu 05-08-25
+*         ICAS(I)  = NUMBV(NVCAS,I)
+         ICAS(I)  = NUMBV(1,I)
 #if defined(GPAMELA_INTER)
          XINCAS(I)  = 2*VHITS(1,I)-VHITS(4,I)
          YINCAS(I)  = 2*VHITS(2,I)-VHITS(5,I)