*
* $Id: gpmat.inc,v 3.3 2003/12/17 11:32:49 pamela Exp $
*
* $Log: gpmat.inc,v $
* Revision 3.3  2003/12/17 11:32:49  pamela
* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
*
* 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:02:00  cafagna
* First GPAMELA release on CVS
*
*
*
* gpmat.inc
*
*               03/10/2002  10.42.39  by  Jens Lund
*CMZ :  2.02/00 11/10/2000  20.14.33  by  Francesco Cafagna
*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 18/03/97  18.25.29  by  Francesco Cafagna
*CMZ :  1.00/02 15/03/96  17.47.37  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   05/12/95
C
C Common with material definitions
C
C
C Plast. sci: H 50%, C 50%  , Rho=1.032 g/cm**3 from P.D.Book
C G10       : SiO2 60%, Epoxy 40%, Rho=1.7 g/cm**3 from P.D.Book
C             Epoxy from CRC handbook (Raw estimation)
c G10C      : Si 53%, O 30%, C 15%, H 2%, Rho=1.7 g/cm**3 from Mirko,
C             for Calorimeter
C N2 (Gas)  : A=14.01, Z=7, Rho=1.25 g/l
C Silicon   : A=28.09, Z=14,Rho=2.33 g/cm**3, X0=9.36 from P.D.Book
C Xenon     : A=131.29, Z=54,Rho=5.858 g/l, X0=1447.6cm from P.D.Book
C TRD rad.  : Carbon fiber with density 0.060 g/cm**3, used in TS93
C Aerogel   : A=96.11, Z=54 (Comp. n(SiO2)+2n(H2O)), Rho=.2g/cm**3 (Ave.),
C             X0=150 cm, from P.D.Book
C Tungsten  : W 95%, Cu 2.5%, Ni 2.5%, Rho=18.1 g/cm**3 from Mirko-Aerostudi
C Kaolinite : Al 21%, Si 21.7%, O 55.8%, H 1.5% Rho=2.594 g/cm**3 (insulator
C             for calorimeter) from Mirko et al.
C Mylar     : C5H4O2: Rho=1.39 g/cm**3 from P. D. Book 
C
C The NM*** numbers are the material numbers in the JMATE structure
C Note that the Silicon has been duplicate to allow the changing of
C the special tracking parameter for both TRACKER and CALORIMETER
C
C
C For Silicon special parameter has been added to be used in the Straggling
C simulation. These parameter are stored into the User word in the JMAT
C structure
C
      INTEGER NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER
*EM:
      INTEGER NMCERA,NMG10C,NMWCAL
*END EM.
*JeL:
      INTEGER NMPLAS
*END JeL.
      INTEGER NMMYL
      REAL ASCIN,ZSCIN,WSCIN,DSCIN,
     +     AN2G,ZN2G,DN2G,RN2G,
     +     AG10,ZG10,WG10,DG10,
     +     AG10C,ZG10C,WG10C,DG10C,
     +     ASI ,ZSI ,DSI ,RSI, ABSI,
     +     AXE ,ZXE ,DXE ,RXE,
     +     ATRAD ,ZTRAD ,DTRAD ,RTRAD,
     +     AAER ,ZAER ,DAER ,RAER,
     +     D2SICA,D2SITR,
     +     AWCAL,ZWCAL,DWCAL,WWCAL,
     +     ACERA,ZCERA,DCERA,WCERA,
     +     AMYL,ZMYL,DMYL,WMYL
      COMMON/GPCMAT/ NMSCIN,NMG10,NMN2,NMSITR,NMSICA,NMXE,NMTRAD,NMAER,
*EM:
     +              NMCERA,NMG10C,NMWCAL,
*END EM.
*JeL:
     +              NMPLAS,
*END JeL.
     +              NMMYL, 
     +              ASCIN(2),ZSCIN(2),WSCIN(2),DSCIN,
     +              AN2G,ZN2G,DN2G,RN2G,
     +              AG10(2),ZG10(2),WG10(2),DG10,
     +              ASI,ZSI,DSI,RSI,ABSI,
     +              AXE,ZXE,DXE,RXE,
     +              ATRAD,ZTRAD,DTRAD,RTRAD,
     +              AAER,ZAER,DAER,RAER,
     +              D2SICA,D2SITR,
*EM:
     +              AG10C(4),ZG10C(4),WG10C(4),DG10C,
     +              AWCAL(3),ZWCAL(3),DWCAL,WWCAL(3),
     +              ACERA(4),ZCERA(4),WCERA(4),DCERA,
*END EM.
     +              AMYL(3),ZMYL(3),DMYL,WMYL(3)
C