GEANT321/gcons/gpions.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 GPIONS
  13 C.
  14 C.    *******************************************************************
  15 C.    *                                                                 *
  16 C.    *  Define a subset of the 'stable' most common elements           *
  17 C.    *    in the Nature                                                *
  18 C.    *                                                                 *
  19 C.    *    ==>Called by : <USER>, UGINIT                                *
  20 C.    *       Author    B.Grosdidier (Strasbourg) *****                 *
  21 C.    *                                                                 *
  22 C.    *******************************************************************
  23 C.
  24       DIMENSION UBUF(1)
  25       DATA UBUF/0./
  26 *
  27 *     The Geant particle identification begin to IPART = 61
  28       CALL GSPART( 61,'LI6  ',8,   5.60305,  3., 1000., UBUF,0)
  29       CALL GSPART( 62,'LI7  ',8,   6.53536,  3., 1000., UBUF,0)
  30       CALL GSPART( 63,'BE7  ',8,   6.53622,  4., 1000., UBUF,0)
  31       CALL GSPART( 64,'BE9  ',8,   8.39479,  4., 1000., UBUF,0)
  32       CALL GSPART( 65,'B10  ',8,   9.32699,  5., 1000., UBUF,0)
  33       CALL GSPART( 66,'B11  ',8,  10.25510,  5., 1000., UBUF,0)
  34       CALL GSPART( 67,'C12  ',8,  11.17793,  6., 1000., UBUF,0)
  35       CALL GSPART( 68,'N14  ',8,  13.04378,  7., 1000., UBUF,0)
  36       CALL GSPART( 69,'O16  ',8,  14.89917,  8., 1000., UBUF,0)
  37       CALL GSPART( 70,'F19  ',8,  17.69690,  9., 1000., UBUF,0)
  38       CALL GSPART( 71,'NE20 ',8,  18.62284, 10., 1000., UBUF,0)
  39       CALL GSPART( 72,'NA23 ',8,  21.41483, 11., 1000., UBUF,0)
  40       CALL GSPART( 73,'MG24 ',8,  22.34193, 12., 1000., UBUF,0)
  41       CALL GSPART( 74,'AL27 ',8,  25.13314, 13., 1000., UBUF,0)
  42       CALL GSPART( 75,'SI28 ',8,  26.06034, 14., 1000., UBUF,0)
  43       CALL GSPART( 76,'P31  ',8,  28.85188, 15., 1000., UBUF,0)
  44       CALL GSPART( 77,'S32  ',8,  29.78180, 16., 1000., UBUF,0)
  45       CALL GSPART( 78,'CL35 ',8,  32.57328, 17., 1000., UBUF,0)
  46       CALL GSPART( 79,'AR36 ',8,  33.50356, 18., 1000., UBUF,0)
  47       CALL GSPART( 80,'K39  ',8,  36.29447, 19., 1000., UBUF,0)
  48       CALL GSPART( 81,'CA40 ',8,  37.22492, 20., 1000., UBUF,0)
  49       CALL GSPART( 82,'SC45 ',8,  41.87617, 21., 1000., UBUF,0)
  50       CALL GSPART( 83,'TI48 ',8,  44.66324, 22., 1000., UBUF,0)
  51       CALL GSPART( 84,'V51  ',8,  47.45401, 23., 1000., UBUF,0)
  52       CALL GSPART( 85,'CR52 ',8,  48.38228, 24., 1000., UBUF,0)
  53       CALL GSPART( 86,'MN55 ',8,  51.17447, 25., 1000., UBUF,0)
  54       CALL GSPART( 87,'FE56 ',8,  52.10307, 26., 1000., UBUF,0)
  55       CALL GSPART( 88,'CO59 ',8,  54.89593, 27., 1000., UBUF,0)
  56       CALL GSPART( 89,'NI58 ',8,  53.96644, 28., 1000., UBUF,0)
  57       CALL GSPART( 90,'CU63 ',8,  58.61856, 29., 1000., UBUF,0)
  58       CALL GSPART( 91,'ZN64 ',8,  59.54963, 30., 1000., UBUF,0)
  59       CALL GSPART( 92,'GE74 ',8,  68.85715, 32., 1000., UBUF,0)
  60       CALL GSPART( 93,'SE80 ',8,  74.44178, 34., 1000., UBUF,0)
  61       CALL GSPART( 94,'KR84 ',8,  78.16309, 36., 1000., UBUF,0)
  62       CALL GSPART( 95,'SR88 ',8,  81.88358, 38., 1000., UBUF,0)
  63       CALL GSPART( 96,'ZR90 ',8,  83.74571, 40., 1000., UBUF,0)
  64       CALL GSPART( 97,'MO98 ',8,  91.19832, 42., 1000., UBUF,0)
  65       CALL GSPART( 98,'PD106',8,  98.64997, 46., 1000., UBUF,0)
  66       CALL GSPART( 99,'CD114',8, 106.10997, 48., 1000., UBUF,0)
  67       CALL GSPART(100,'SN120',8, 111.68821, 50., 1000., UBUF,0)
  68       CALL GSPART(101,'XE132',8, 122.86796, 54., 1000., UBUF,0)
  69       CALL GSPART(102,'BA138',8, 128.45793, 56., 1000., UBUF,0)
  70       CALL GSPART(103,'CE140',8, 130.32111, 58., 1000., UBUF,0)
  71       CALL GSPART(104,'SM152',8, 141.51236, 62., 1000., UBUF,0)
  72       CALL GSPART(105,'DY164',8, 152.69909, 66., 1000., UBUF,0)
  73       CALL GSPART(106,'YB174',8, 162.02245, 70., 1000., UBUF,0)
  74       CALL GSPART(107,'W184 ',8, 171.34924, 74., 1000., UBUF,0)
  75       CALL GSPART(108,'PT194',8, 180.67513, 78., 1000., UBUF,0)
  76       CALL GSPART(109,'AU197',8, 183.47324, 79., 1000., UBUF,0)
  77       CALL GSPART(110,'HG202',8, 188.13451, 80., 1000., UBUF,0)
  78       CALL GSPART(111,'PB208',8, 193.72907, 82., 1000., UBUF,0)
  79       CALL GSPART(112,'U238 ',8, 221.74295, 92., 1000., UBUF,0)
  80 *
  81       END