--- gpamela/gpcdes/gpunit.inc	2005/06/21 02:42:19	3.2
+++ gpamela/gpcdes/gpunit.inc	2005/12/22 16:18:27	3.4
@@ -1,7 +1,13 @@
 *
-* $Id: gpunit.inc,v 3.1.1.1 2002/07/11 16:02:00 cafagna Exp $
+* $Id: gpunit.inc,v 3.3 2005/12/05 12:15:20 pam-ba Exp $
 *
 * $Log: gpunit.inc,v $
+* Revision 3.3  2005/12/05 12:15:20  pam-ba
+* new spectrometer geometry and internal magnetic field
+*
+* 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
 *
@@ -19,9 +25,11 @@
 *
 * Common with the lgical unit number for each file opened by GPAMELA
 *
-      INTEGER LUHBK,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,LULSF
-      CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,CHLSF
-*
-      COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,
-     +                 LULSF,CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,
-     +                 CHLSF
+      INTEGER LUHBK,LUFMAP1,LUFMAP2,LUFMAP3,LUFFR,LUTR,LUFMAP,LUGAR
+     +        ,LURSPE,LUFSF,LULSF
+      CHARACTER*80 CHHBK,CHFMAP1,CHFMAP2,CHFMAPEX,CHFFR,CHTR,CHGAR,
+     +             CHFMAP,CHRSPE,CHFSF,CHLSF
+*
+      COMMON /GPCUNIT/ LUHBK,LUFMAP1,LUFMAP2,LUFMAP3,LUFFR,LUTR,LUFMAP
+     +             ,LUGAR,LURSPE,LUFSF,LULSF,CHHBK,CHFMAP1,CHFMAP2
+     +             ,CHFMAPEX,CHFFR,CHTR,CHGAR,CHFMAP,CHRSPE,CHFSF,CHLSF