--- gpamela/gpcal/gpdcal.F	2005/06/21 02:42:03	3.3
+++ gpamela/gpcal/gpdcal.F	2005/07/25 11:53:20	3.4
@@ -1,7 +1,10 @@
 *
-* $Id: gpdcal.F,v 3.2 2003/12/17 11:32:48 pamela Exp $
+* $Id: gpdcal.F,v 3.3 2005/06/21 02:42:03 cafagna Exp $
 *
 * $Log: gpdcal.F,v $
+* Revision 3.3  2005/06/21 02:42:03  cafagna
+* Major modification to the geometry and to the random number chain
+*
 * Revision 3.2  2003/12/17 11:32:48  pamela
 * CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
 *
@@ -176,6 +179,7 @@
 * Fill the CWN common
 *
 c     
+      NTHCALI=0
       DO I=1,NHITS
          NTHCALI=NTHCALI+1
          ICASTRIP(NTHCALI)=NUMBV(NVCALI,I)