GEANT321/gcons/gmate.F

   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