[u/mrichter/AliRoot.git] / GEANT321 / gcons / gmate.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:15  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
*-- Author :
      SUBROUTINE GMATE
C.
C.    ******************************************************************
C.    *                                                                *
C.    *  Define standard GEANT materials                               *
C.    *                                                                *
C.    *  All data EXCEPT for nuclear absorption lengths taken from :   *
C.    *                        M. Aguilar-Benitez et al,               *
C.    *                        Rev. of Particle Properties,            *
C.    *                        Rev. Mod. Phys. 56(1984)                *
C.    *                                                                *
C.    *    ==>Called by : <USER>, UGINIT                               *
C.    *       Author    G.Patrick  *********                           *
C.    *                                                                *
C.    ******************************************************************
C.
      DIMENSION UBUF(1)
      DATA UBUF/0./
C
      CALL GSMATE( 1,'HYDROGEN$ ',  1.01, 1.,0.0708,865.,790.,UBUF,0)
      CALL GSMATE( 2,'DEUTERIUM$',  2.01, 1.,0.162 ,757.,342.,UBUF,0)
      CALL GSMATE( 3,'HELIUM$   ',  4.  , 2.,0.125 ,755.,478.,UBUF,0)
      CALL GSMATE( 4,'LITHIUM$  ',  6.94, 3.,0.534 ,155.,120.6,UBUF,0)
      CALL GSMATE( 5,'BERILLIUM$',  9.01, 4.,1.848 ,35.3,36.7,UBUF,0)
      CALL GSMATE( 6,'CARBON$   ', 12.01, 6.,2.265 ,18.8,49.9,UBUF,0)
      CALL GSMATE( 7,'NITROGEN$ ', 14.01, 7.,0.808 ,44.5,99.4,UBUF,0)
      CALL GSMATE( 8,'NEON$     ', 20.18,10.,1.207 , 24.,74.9,UBUF,0)
      CALL GSMATE( 9,'ALUMINIUM$', 26.98,13.,2.7   , 8.9,37.2,UBUF,0)
      CALL GSMATE(10,'IRON$     ', 55.85,26.,7.87  ,1.76,17.1,UBUF,0)
      CALL GSMATE(11,'COPPER$   ', 63.54,29.,8.96  ,1.43,14.8,UBUF,0)
      CALL GSMATE(12,'TUNGSTEN$ ',183.85,74.,19.3  ,0.35,10.3,UBUF,0)
      CALL GSMATE(13,'LEAD$     ',207.19,82.,11.35 ,0.56,18.5,UBUF,0)
      CALL GSMATE(14,'URANIUM$  ',238.03,92.,18.95 ,0.32,12. ,UBUF,0)
      CALL GSMATE(15,'AIR$      ',14.61,7.3,0.001205,30423.24,67500.
     +                           ,UBUF,0)
      CALL GSMATE(16,'VACUUM$ ',1.E-16,1.E-16,1.E-16,1.E+16,1.E+16
     +                           ,UBUF,0)
C
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:15 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GMATE
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Define standard GEANT materials *
	17	C. * *
	18	C. * All data EXCEPT for nuclear absorption lengths taken from : *
	19	C. * M. Aguilar-Benitez et al, *
	20	C. * Rev. of Particle Properties, *
	21	C. * Rev. Mod. Phys. 56(1984) *
	22	C. * *
	23	C. * ==>Called by : <USER>, UGINIT *
	24	C. * Author G.Patrick ********* *
	25	C. * *
	26	C. ******************************************************************
	27	C.
	28	DIMENSION UBUF(1)
	29	DATA UBUF/0./
	30	C
	31	CALL GSMATE( 1,'HYDROGEN$ ', 1.01, 1.,0.0708,865.,790.,UBUF,0)
	32	CALL GSMATE( 2,'DEUTERIUM$', 2.01, 1.,0.162 ,757.,342.,UBUF,0)
	33	CALL GSMATE( 3,'HELIUM$ ', 4. , 2.,0.125 ,755.,478.,UBUF,0)
	34	CALL GSMATE( 4,'LITHIUM$ ', 6.94, 3.,0.534 ,155.,120.6,UBUF,0)
	35	CALL GSMATE( 5,'BERILLIUM$', 9.01, 4.,1.848 ,35.3,36.7,UBUF,0)
	36	CALL GSMATE( 6,'CARBON$ ', 12.01, 6.,2.265 ,18.8,49.9,UBUF,0)
	37	CALL GSMATE( 7,'NITROGEN$ ', 14.01, 7.,0.808 ,44.5,99.4,UBUF,0)
	38	CALL GSMATE( 8,'NEON$ ', 20.18,10.,1.207 , 24.,74.9,UBUF,0)
	39	CALL GSMATE( 9,'ALUMINIUM$', 26.98,13.,2.7 , 8.9,37.2,UBUF,0)
	40	CALL GSMATE(10,'IRON$ ', 55.85,26.,7.87 ,1.76,17.1,UBUF,0)
	41	CALL GSMATE(11,'COPPER$ ', 63.54,29.,8.96 ,1.43,14.8,UBUF,0)
	42	CALL GSMATE(12,'TUNGSTEN$ ',183.85,74.,19.3 ,0.35,10.3,UBUF,0)
	43	CALL GSMATE(13,'LEAD$ ',207.19,82.,11.35 ,0.56,18.5,UBUF,0)
	44	CALL GSMATE(14,'URANIUM$ ',238.03,92.,18.95 ,0.32,12. ,UBUF,0)
	45	CALL GSMATE(15,'AIR$ ',14.61,7.3,0.001205,30423.24,67500.
	46	+ ,UBUF,0)
	47	CALL GSMATE(16,'VACUUM$ ',1.E-16,1.E-16,1.E-16,1.E+16,1.E+16
	48	+ ,UBUF,0)
	49	C
	50	END