*
* $Id: gpdkey.inc,v 3.10 2006/11/30 12:29:14 cafagna Exp $
*
* $Log: gpdkey.inc,v $
* Revision 3.10  2006/11/30 12:29:14  cafagna
* CARD geometry updated. New S1 "table", legs included, added. Top magnetic screen has been added as well.
*
* Revision 3.9  2006/11/10 11:39:34  pam-ba
* S2 and S1 z-positions corrected, He3 and plystyrene mixture added, Top Plate geometry simulated and titanium mixture added.
*
* Revision 3.8  2006/10/13 16:36:58  pam-ba
* Added a new material, the cadmium, for ND
*
* Revision 3.7  2006/05/18 10:52:31  pam-ba
* TOF geometry completed and a new material, the polystyrene (density 35 g/l), added
*
* Revision 3.6  2006/05/02 11:46:13  pam-ba
* TOF geometry and position updated and a new material, the mylar, added
*
* Revision 3.5  2006/04/10 11:07:42  cafagna
* GEN data card updated, ZDGEN added
*
* Revision 3.4  2006/04/09 23:28:55  cafagna
* Several new things, among this: ND and CARD
*
* Revision 3.3  2005/06/21 02:42:11  cafagna
* Major modification to the geometry and to the random number chain
*
* Revision 3.2  2002/12/05 10:17:42  pamela
* Update CAS and CALO geometries and positions. Makefile updated as well
*
* Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
* First GPAMELA release on CVS
*
*
*
* gpdkey.inc
*
*               14/04/2005  13:25     by Marialuigia Ambriola
*               03/10/2002  10.47.54  by  Jens Lund
*CMZ :  3.00/00 01/05/2001  16.02.39  by  Marialuigia Ambriola
*CMZ :  2.03/00 06/11/2000  01.54.20  by  Francesco Cafagna
*CMZ :  2.02/00 12/10/2000  16.03.56  by  Francesco Cafagna
*CMZ :  2.01/00 05/04/2000  13.46.56  by  Marialuig ia Ambriola
*CMZ :  2.00/00 01/03/2000  12.57.55  by  Francesco Cafagna
*CMZ :  1.00/02 05/04/96  09.08.57  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   09/02/96
C
C Data block for GPKEY common
C
      DATA NCPL/44*-1111/
      DATA NCSI/9*-1111/
      DATA NCAB/22*-1111/
      DATA NOCAPL/44*.FALSE./
      DATA NOCASI/9*.FALSE./
      DATA NOCAAB/22*.FALSE./
      DATA NDET/10*4H    /
      DATA NHPAK/4H    /
      DATA NHBFILE/21*4H    /
      DATA NGARFILE/21*4H    /
      DATA NFSFILE/21*4H    /
      DATA NLSFILE/21*4H    /
      DATA XYZGEN/6*-1111./
      DATA NDECAS/3*4H    /
      DATA NDECAT/3*4H    /
      DATA NDETOF/3*4H    /
      DATA NDETRD/3*4H    /
      DATA NDESPE/3*4H    /
      DATA NDECAL/3*4H    /
      DATA NDES4/3*4H    /
      DATA NDEND/3*4H    /
      DATA NDECARD/3*4H    /
*ML:
      DATA PHGEN/0.,360./
      DATA THGEN/0.,90.,0./
      DATA DPMJ/1/
      DATA PLAW/3*-1111./      
      DATA TPAL/5*-1111./
      DATA TG10/5*-1111./
      DATA TPN2/5*-1111./
      DATA TPW/5*-1111./
      DATA TPKA/5*-1111./
      DATA TPFE/5*-1111./
      DATA TRAD/5*-1111./
      DATA TPRO/5*-1111./
      DATA TPCF/5*-1111./
      DATA TPSC/5*-1111./
      DATA TSCA/5*-1111./
      DATA TSTR/5*-1111./
      DATA TPXE/5*-1111./
      DATA TPAE/5*-1111./
*EM:
      DATA TPW2/5*-1111./
      DATA TPCE/5*-1111./
      DATA T10C/5*-1111./
*END EM.
*JeL:
      DATA TPPL/5*-1111./
*END JeL.
      DATA TMYL/5*-1111./
      DATA TPOL/5*-1111./
      DATA TCAD/5*-1111./
      DATA TCH2/5*-1111./
      DATA THE3/5*-1111./
      DATA TTAV/5*-1111./
*END ML.
      DATA COS2G/.FALSE./