--- gpamela/gpcdes/gpunit.inc	2002/07/11 16:02:00	3.1.1.1
+++ gpamela/gpcdes/gpunit.inc	2005/12/05 12:15:20	3.3
@@ -1,11 +1,18 @@
 *
-* $Id$
+* $Id: gpunit.inc,v 3.2 2005/06/21 02:42:19 cafagna Exp $
+*
+* $Log: gpunit.inc,v $
+* Revision 3.2  2005/06/21 02:42:19  cafagna
+* Major modification to the geometry and to the random number chain
+*
+* Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
+* First GPAMELA release on CVS
 *
-* $Log$
 *
 *
 * gpunit.inc
 *
+*               14/04/2005  13:22     by Marialuigia Ambriola
 *CMZ :  3.00/00 01/05/2001  16.07.26  by  Marialuigia Ambriola
 *CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
 *CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
@@ -15,8 +22,11 @@
 *
 * Common with the lgical unit number for each file opened by GPAMELA
 *
-      INTEGER LUHBK,LUFMAP,LUFFR,LUTR,LUGAR
-      CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR
-*
-      COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,
-     +                 CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR
+      INTEGER LUHBK,LUFMAP1,LUFMAP2,LUFFR,LUTR,LUFMAP,LUGAR,LURSPE,
+     +        LUFSF,LULSF
+      CHARACTER*80 CHHBK,CHFMAP1,CHFMAP2,CHFFR,CHTR,CHGAR,
+     +             CHFMAP,CHRSPE,CHFSF,CHLSF
+*
+      COMMON /GPCUNIT/ LUHBK,LUFMAP1,LUFMAP2,LUFFR,LUTR,LUFMAP,LUGAR,
+     +                 LURSPE,LUFSF,LULSF,CHHBK,CHFMAP1,CHFMAP2,
+     +                 CHFFR,CHTR,CHGAR,CHFMAP,CHRSPE,CHFSF,CHLSF