--- gpamela/gpcdes/gpunit.inc	2002/07/11 16:02:00	3.1
+++ gpamela/gpcdes/gpunit.inc	2005/12/22 16:18:27	3.4
@@ -1,11 +1,21 @@
 *
-* $Id$
+* $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
 *
-* $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 +25,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,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