*
* $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
*
*
*
* 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
*CMZ :  1.02/00 22/10/99  17.53.59  by  Francesco Cafagna
*CMZ :  1.00/02 20/02/96  17.51.30  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   20/02/96
*
* Common with the lgical unit number for each file opened by GPAMELA
*
      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