GEANT321/block/flkdt6.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:36  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.45  by  S.Giani
  11 *-- Author :
  12 *$ CREATE BLKDT6.FOR
  13 *COPY BLKDT6
  14 *
  15 *=== blkdt6 ===========================================================*
  16 *==                                                                    *
  17       SUBROUTINE FLKDT6
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 *---Block Data 6 (ex 1)                                                *
  23 #include "geant321/part.inc"
  24 #include "geant321/qquark.inc"
  25       CHARACTER*8 ANAME1(IDMAX8)
  26       DIMENSION AM1(IDMAX8),GA1(IDMAX8),TAU1(IDMAX8),
  27      & ICH1(IDMAX8),IBAR1(IDMAX8),K11(IDMAX8),K21(IDMAX8),
  28      & KPTIP1(IDMAX8),IPTKP1(39),
  29      & IQECH1(-6:6),IQBCH1(-6:6),IQICH1(-6:6),IQSCH1(-6:6),
  30      & IQCCH1(-6:6),IQUCH1(-6:6),IQTCH1(-6:6),MQUAR1(3,39)
  31 *
  32 * / Part /
  33 *     datas     datas    datas      datas     datas                    *
  34 *     ---------------------------------------------                    *
  35 *                                                                      *
  36 *     Particle  masses                                                 *
  37 *                                                                      *
  38       DATA ( AM1 ( I ), I =   1, 54 ) /
  39      & 9.38272310000000D-01, 9.38272310000000D-01,       AMELCT        ,
  40      &       AMELCT        , 0.00000000000000D+00, 0.00000000000000D+00,
  41      & 0.00000000000000D+00, 9.39565630000000D-01, 9.39565630000000D-01,
  42      &       AMMUON        ,       AMMUON        , 4.97671000000000D-01,
  43      & 1.39567500000000D-01, 1.39567500000000D-01, 4.93646000000000D-01,
  44      & 4.93646000000000D-01, 1.11563000000000D+00, 1.11563000000000D+00,
  45      & 4.97671000000000D-01, 1.19743000000000D+00, 1.18937000000000D+00,
  46      & 1.19255000000000D+00, 1.34973900000000D-01, 4.97671000000000D-01,
  47      & 4.97671000000000D-01, 1.34973900000000D-01, 0.00000000000000D+00,
  48      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
  49      & 5.48800000000000D-01, 7.68300000000000D-01, 7.68300000000000D-01,
  50      & 7.68300000000000D-01, 7.81950000000000D-01, 8.91830000000000D-01,
  51      & 8.96100000000000D-01, 8.91830000000000D-01, 8.96100000000000D-01,
  52      & 1.25000000000000D+00, 1.25000000000000D+00, 1.25000000000000D+00,
  53      & 1.25000000000000D+00, 1.42100000000000D+00, 1.42100000000000D+00,
  54      & 1.42100000000000D+00, 1.42100000000000D+00, 1.38280000000000D+00,
  55      & 1.38370000000000D+00, 1.38720000000000D+00, 1.82000000000000D+00,
  56      & 2.03000000000000D+00, 1.23200000000000D+00, 1.23200000000000D+00/
  57       DATA ( AM1 ( I ), I =  55,108 ) /
  58      & 1.23200000000000D+00, 1.23200000000000D+00, 1.67500000000000D+00,
  59      & 1.67500000000000D+00, 1.67500000000000D+00, 1.67500000000000D+00,
  60      & 1.44000000000000D+00, 1.44000000000000D+00, 1.52000000000000D+00,
  61      & 1.52000000000000D+00, 1.77500000000000D+00, 1.77500000000000D+00,
  62      & 1.23200000000000D+00, 1.23200000000000D+00, 1.23200000000000D+00,
  63      & 1.23200000000000D+00, 1.67500000000000D+00, 1.67500000000000D+00,
  64      & 1.67500000000000D+00, 1.67500000000000D+00, 1.52000000000000D+00,
  65      & 1.52000000000000D+00, 2.40000000000000D+00, 4.89000000000000D-01,
  66      & 4.89000000000000D-01, 4.89000000000000D-01, 1.30000000000000D+00,
  67      & 1.30000000000000D+00, 1.30000000000000D+00, 1.30000000000000D+00,
  68      & 2.20000000000000D+00, 2.20000000000000D+00, 2.20000000000000D+00,
  69      & 2.20000000000000D+00, 1.70000000000000D+00, 1.70000000000000D+00,
  70      & 1.70000000000000D+00, 1.70000000000000D+00, 1.82000000000000D+00,
  71      & 2.03000000000000D+00, 9.57500000000000D-01, 1.01941200000000D+00,
  72      & 1.31490000000000D+00, 1.32132000000000D+00, 1.18937000000000D+00,
  73      & 1.19255000000000D+00, 1.19743000000000D+00, 1.31490000000000D+00,
  74      & 1.32132000000000D+00, 1.38280000000000D+00, 1.38370000000000D+00,
  75      & 1.38720000000000D+00, 1.53180000000000D+00, 1.53500000000000D+00/
  76       DATA ( AM1 ( I ), I = 109,162 ) /
  77      & 1.67243000000000D+00, 1.38280000000000D+00, 1.38370000000000D+00,
  78      & 1.38720000000000D+00, 1.53180000000000D+00, 1.53500000000000D+00,
  79      & 1.67243000000000D+00, 1.86450000000000D+00, 1.86930000000000D+00,
  80      & 1.86930000000000D+00, 1.86450000000000D+00, 1.96880000000000D+00,
  81      & 1.96880000000000D+00, 2.03000000000000D+00, 2.00710000000000D+00,
  82      & 2.01010000000000D+00, 2.01010000000000D+00, 2.00710000000000D+00,
  83      & 2.11030000000000D+00, 2.11030000000000D+00, 3.68600000000000D+00,
  84      & 3.09693000000000D+00, 1.78410000000000D+00, 1.78410000000000D+00,
  85      & 3.50000000000000D-02, 3.50000000000000D-02, 2.70000000000000D-04,
  86      & 2.70000000000000D-04, 2.26000000000000D+00, 2.47000000000000D+00,
  87      & 2.47000000000000D+00, 2.41000000000000D+00, 2.42000000000000D+00,
  88      & 2.41000000000000D+00, 2.56000000000000D+00, 2.56000000000000D+00,
  89      & 2.73000000000000D+00, 3.61000000000000D+00, 3.61000000000000D+00,
  90      & 3.79000000000000D+00, 2.26000000000000D+00, 2.47000000000000D+00,
  91      & 2.47000000000000D+00, 2.41000000000000D+00, 2.42000000000000D+00,
  92      & 2.41000000000000D+00, 2.56000000000000D+00, 2.56000000000000D+00,
  93      & 2.73000000000000D+00, 3.61000000000000D+00, 3.61000000000000D+00,
  94      & 3.79000000000000D+00, 2.49000000000000D+00, 2.49000000000000D+00/
  95       DATA ( AM1 ( I ), I = 163,183 ) /
  96      & 2.49000000000000D+00, 2.61000000000000D+00, 2.61000000000000D+00,
  97      & 2.77000000000000D+00, 3.67000000000000D+00, 3.67000000000000D+00,
  98      & 3.85000000000000D+00, 4.89000000000000D+00, 2.49000000000000D+00,
  99      & 2.49000000000000D+00, 2.49000000000000D+00, 2.61000000000000D+00,
 100      & 2.61000000000000D+00, 2.77000000000000D+00, 3.67000000000000D+00,
 101      & 3.67000000000000D+00, 3.85000000000000D+00, 4.89000000000000D+00,
 102      & 1.25000000000000D+00, 1.25000000000000D+00, 1.25000000000000D+00/
 103 *                                                                      *
 104 *     Particle  mean lives                                             *
 105 *                                                                      *
 106       DATA ( TAU1 ( I ), I =   1, 54 ) /
 107      & 1.00000000000000D+18, 1.00000000000000D+18, 1.00000000000000D+18,
 108      & 1.00000000000000D+18, 1.00000000000000D+18, 1.00000000000000D+18,
 109      & 1.00000000000000D+18, 8.88600000000000D+02, 8.88600000000000D+02,
 110      & 2.19703000000000D-06, 2.19703000000000D-06, 5.17000000000000D-08,
 111      & 2.60300000000000D-08, 2.60300000000000D-08, 1.23710000000000D-08,
 112      & 1.23710000000000D-08, 2.63200000000000D-10, 2.63200000000000D-10,
 113      & 8.92200010000000D-11, 1.47900000000000D-10, 7.99000000000000D-11,
 114      & 7.40000000000000D-20, 8.40000000000000D-17, 0.00000000000000D+00,
 115      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 116      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 117      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 118      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 119      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 120      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 121      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 122      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 123      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 124      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
 125       DATA ( TAU1 ( I ), I =  55,108 ) /
 126      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 127      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 128      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 129      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 130      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 131      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 132      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 133      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 134      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 135      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 136      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 137      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 138      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 139      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 140      & 2.90000000000000D-10, 1.63900000000000D-10, 7.99000000000000D-11,
 141      & 7.40000000000000D-20, 1.47900000000000D-10, 2.90000000000000D-10,
 142      & 1.63900000000000D-10, 0.00000000000000D+00, 0.00000000000000D+00,
 143      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
 144       DATA ( TAU1 ( I ), I = 109,162 ) /
 145      & 8.22000000000000D-11, 0.00000000000000D+00, 0.00000000000000D+00,
 146      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 147      & 8.22000000000000D-11, 0.00000000000000D+00, 0.00000000000000D+00,
 148      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 149      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 150      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 151      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 152      & 0.00000000000000D+00, 3.03000000000000D-13, 3.03000000000000D-13,
 153      & 1.00000000000000D+18, 1.00000000000000D+18, 1.00000000000000D+18,
 154      & 1.00000000000000D+18, 0.00000000000000D+00, 0.00000000000000D+00,
 155      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 156      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 157      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 158      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 159      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 160      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 161      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 162      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
 163       DATA ( TAU1 ( I ), I = 163,183 ) /
 164      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 165      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 166      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 167      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 168      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 169      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 170      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
 171 *                                                                      *
 172 *     Resonance width Gamma in GeV                                     *
 173 *                                                                      *
 174       DATA ( GA1 ( I ), I =   1, 54 ) /
 175      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 176      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 177      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 178      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 179      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 180      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 181      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 182      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 183      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 184      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 185      & 1.19000000000000D-06, 1.49100000000000D-01, 1.49100000000000D-01,
 186      & 1.49100000000000D-01, 8.43000000000000D-03, 4.98000000000000D-02,
 187      & 4.98000000000000D-02, 4.98000000000000D-02, 4.98000000000000D-02,
 188      & 4.50000000000000D-01, 4.50000000000000D-01, 4.50000000000000D-01,
 189      & 4.50000000000000D-01, 1.08000000000000D-01, 1.08000000000000D-01,
 190      & 1.08000000000000D-01, 1.08000000000000D-01, 3.58000000000000D-02,
 191      & 3.65000000000000D-02, 3.94000000000000D-02, 8.50000000000000D-02,
 192      & 1.80000000000000D-01, 1.15000000000000D-01, 1.15000000000000D-01/
 193       DATA ( GA1 ( I ), I =  55,108 ) /
 194      & 1.15000000000000D-01, 1.15000000000000D-01, 2.00000000000000D-01,
 195      & 2.00000000000000D-01, 2.00000000000000D-01, 2.00000000000000D-01,
 196      & 2.00000000000000D-01, 2.00000000000000D-01, 1.00000000000000D-01,
 197      & 1.00000000000000D-01, 2.00000000000000D-01, 2.00000000000000D-01,
 198      & 1.15000000000000D-01, 1.15000000000000D-01, 1.15000000000000D-01,
 199      & 1.15000000000000D-01, 2.00000000000000D-01, 2.00000000000000D-01,
 200      & 2.00000000000000D-01, 2.00000000000000D-01, 1.00000000000000D-01,
 201      & 1.00000000000000D-01, 2.00000000000000D-01, 1.00000000000000D-01,
 202      & 1.00000000000000D-01, 1.00000000000000D-01, 1.00000000000000D-01,
 203      & 1.00000000000000D-01, 1.00000000000000D-01, 1.00000000000000D-01,
 204      & 2.00000000000000D-01, 2.00000000000000D-01, 2.00000000000000D-01,
 205      & 2.00000000000000D-01, 1.50000000000000D-01, 1.50000000000000D-01,
 206      & 1.50000000000000D-01, 1.50000000000000D-01, 8.50000000000000D-02,
 207      & 1.80000000000000D-01, 2.08000000000000D-04, 4.41000000000000D-03,
 208      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 209      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 210      & 0.00000000000000D+00, 3.58000000000000D-02, 3.65000000000000D-02,
 211      & 3.94000000000000D-02, 9.10000000000000D-03, 9.90000000000000D-03/
 212       DATA ( GA1 ( I ), I = 109,162 ) /
 213      & 0.00000000000000D+00, 3.40000000000000D-02, 3.40000000000000D-02,
 214      & 3.60000000000000D-02, 9.10000000000000D-03, 9.90000000000000D-03,
 215      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 216      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 217      & 0.00000000000000D+00, 0.00000000000000D+00, 2.10000000000000D-03,
 218      & 1.10000000000000D-03, 1.10000000000000D-03, 5.00000000000000D-03,
 219      & 2.00000000000000D-03, 2.00000000000000D-03, 2.43000000000000D-04,
 220      & 6.80000000000000D-05, 0.00000000000000D+00, 0.00000000000000D+00,
 221      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 222      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 223      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 224      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 225      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 226      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 227      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 228      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 229      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 230      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
 231       DATA ( GA1 ( I ), I = 163,183 ) /
 232      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 233      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 234      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 235      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 236      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 237      & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
 238      & 3.00000000000000D-01, 3.00000000000000D-01, 3.00000000000000D-01/
 239 *                                                                      *
 240 *     Particle  names                                                  *
 241 *                                                                      *
 242 *     S+1385+Sigma+(1385)    L02030+Lambda0(2030)                      *
 243 *     Rho77=Rho(770) Om783=Omega(783) K*14=K*(1420) and so on          *
 244 *     designation N*@@ means N*@1(@2)                                  *
 245 *                                                                      *
 246 *                                                                      *
 247       DATA (    ANAME1 ( I ), I =   1,108 ) /
 248      &'P       ','AP      ','E-      ','E+      ','NUE     ','ANUE    ',
 249      &'GAM     ','NEU     ','ANEU    ','MUE+    ','MUE-    ','K0L     ',
 250      &'PI+     ','PI-     ','K+      ','K-      ','LAM     ','ALAM    ',
 251      &'K0S     ','SIGM-   ','SIGM+   ','SIGM0   ','PI0     ','K0      ',
 252      &'AK0     ','BLANK   ','BLANK   ','BLANK   ','BLANK   ','BLANK   ',
 253      &'ETA550  ','RHO+77  ','RHO077  ','RHO-77  ','OM0783  ','K*+892  ',
 254      &'K*0892  ','K*-892  ','AK*089  ','KA+125  ','KA0125  ','KA-125  ',
 255      &'AKA012  ','K*+142  ','K*0142  ','K*-142  ','AK*014  ','S+1385  ',
 256      &'S01385  ','S-1385  ','L01820  ','L02030  ','DE++12  ','DEL+12  ',
 257      &'DEL012  ','DEL-12  ','N*++16  ','N*+16   ','N*016   ','N*-16   ',
 258      &'N*+14   ','N*014   ','N*+15   ','N*015   ','N*+18   ','N*018   ',
 259      &'AD--12  ','ADE-12  ','ADE012  ','ADE+12  ','AN--16  ','AN*-16  ',
 260      &'AN*016  ','AN*+16  ','AN*-15  ','AN*015  ','DE*=24  ','RPI+49  ',
 261      &'RPI049  ','RPI-49  ','PIN++   ','PIN+0   ','PIN+-   ','PIN-0   ',
 262      &'PPPI    ','PNPI    ','APPPI   ','APNPI   ','K+PPI   ','K-PPI   ',
 263      &'K+NPI   ','K-NPI   ','S+1820  ','S-2030  ','ETA*    ','PHI     ',
 264      &'XSI0    ','XSI-    ','ASIG-   ','ASIG0   ','ASIG+   ','AXSI0   ',
 265      &'AXSI+   ','SIG*+   ','SIG*0   ','SIG*-   ','XSI*0   ','XSI*-   '/
 266       DATA (    ANAME1 ( I ), I = 109,183 ) /
 267      &'OMEGA-  ','ASIG*-  ','ASIG*0  ','ASIG*+  ','AXSI*0  ','AXSI*+  ',
 268      &'OMEGA+  ','D0      ','D+      ','D-      ','AD0     ','DS+     ',
 269      &'DS-     ','ETAC    ','D*0     ','D*+     ','D*-     ','AD*0    ',
 270      &'DS*+    ','DS*-    ','PSI     ','JPSI    ','TAU+    ','TAU-    ',
 271      &'NUET    ','ANUET   ','NUEM    ','ANUEM   ','C0+     ','A+      ',
 272      &'A0      ','C1++    ','C1+     ','C10     ','S+      ','S0      ',
 273      &'T0      ','XU++    ','XD+     ','XS+     ','AC0-    ','AA-     ',
 274      &'AA0     ','AC1--   ','AC1-    ','AC10    ','AS-     ','AS0     ',
 275      &'AT0     ','AXU--   ','AXD-    ','AXS     ','C1*++   ','C1*+    ',
 276      &'C1*0    ','S*+     ','S*0     ','T*0     ','XU*++   ','XD*+    ',
 277      &'XS*+    ','TETA++  ','AC1*--  ','AC1*-   ','AC1*0   ','AS*-    ',
 278      &'AS*0    ','AT*0    ','AXU*--  ','AXD*-   ','AXS*-   ','ATET--  ',
 279      &'RO      ','R+      ','R-      '/
 280 *                                                                      *
 281 *     Charge of particles and resonances                               *
 282 *                                                                      *
 283       DATA ( ICH1 ( I ), I =   1,183 ) /
 284      &  1, -1, -1,  1,  0,  0,  0,  0,  0,  1, -1,  0,  1, -1,  1,
 285      & -1,  0,  0,  0, -1,  1,  0,  0,  0,  0,  0,  0,  0,  0,  0,
 286      &  0,  1,  0, -1,  0,  1,  0, -1,  0,  1,  0, -1,  0,  1,  0,
 287      & -1,  0,  1,  0, -1,  0,  0,  2,  1,  0, -1,  2,  1,  0, -1,
 288      &  1,  0,  1,  0,  1,  0, -2, -1,  0,  1, -2, -1,  0,  1, -1,
 289      &  0,  1,  1,  0, -1,  2,  1,  0, -1,  2,  1,  0, -1,  2,  0,
 290      &  1, -1,  1, -1,  0,  0,  0, -1, -1,  0,  1,  0,  1,  1,  0,
 291      & -1,  0, -1, -1, -1,  0,  1,  0,  1,  1,  0,  1, -1,  0,  1,
 292      & -1,  0,  0,  1, -1,  0,  1, -1,  0,  0,  1, -1,  0,  0,  0,
 293      &  0,  1,  1,  0,  2,  1,  0,  1,  0,  0,  2,  1,  1, -1, -1,
 294      &  0, -2, -1,  0, -1,  0,  0, -2, -1, -1,  2,  1,  0,  1,  0,
 295      &  0,  2,  1,  1,  2, -2, -1,  0, -1,  0,  0, -2, -1, -1, -2,
 296      &  0,  1, -1/
 297 *                                                                      *
 298 *     Particle  baryonic charges                                       *
 299 *                                                                      *
 300       DATA ( IBAR1 ( I ), I =   1,183 ) /
 301      &  1, -1,  0,  0,  0,  0,  0,  1, -1,  0,  0,  0,  0,  0,  0,
 302      &  0,  1, -1,  0,  1,  1,  1,  0,  0,  0,  0,  0,  0,  0,  0,
 303      &  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
 304      &  0,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,
 305      &  1,  1,  1,  1,  1,  1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
 306      & -1,  2,  0,  0,  0,  1,  1,  1,  1,  2,  2,  0,  0,  1,  1,
 307      &  1,  1,  1,  1,  0,  0,  1,  1, -1, -1, -1, -1, -1,  1,  1,
 308      &  1,  1,  1,  1, -1, -1, -1, -1, -1, -1,  0,  0,  0,  0,  0,
 309      &  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
 310      &  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1, -1, -1,
 311      & -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,  1,  1,  1,  1,  1,
 312      &  1,  1,  1,  1,  1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
 313      &  0,  0,  0/
 314 *                                                                      *
 315 *     First number of decay channels used for resonances               *
 316 *     and decaying particles                                           *
 317 *                                                                      *
 318       DATA K11/1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 16, 17, 18, 24, 30,
 319      & 34, 38, 40, 41, 43, 44, 136, 138, 5*330, 46, 51, 52, 54, 55, 58,
 320      &  60, 62, 64, 66, 68, 70, 72, 74, 82, 90, 98, 106, 109, 112, 114,
 321      & 123, 140, 141, 143, 145, 146, 150, 157, 164, 168, 174, 180, 187,
 322      & 194, 202, 210, 211, 213, 215, 216, 220, 227, 234, 238, 245, 252,
 323      & 254, 255, 256, 257, 259, 262, 265, 267, 269, 272, 276, 279, 282,
 324      & 286, 290, 293, 299, 331, 335, 339, 340, 341, 343, 344, 345, 346,
 325      & 347, 350, 353, 356, 358, 360, 363, 366, 369, 372, 374, 376, 379,
 326      & 383, 385, 387, 391, 394, 397, 400, 402, 405, 408, 410, 412, 414,
 327      & 417, 420, 425, 430, 431, 432, 433, 434, 448, 452, 457, 458, 459,
 328      & 460, 461, 462, 466, 468, 470, 472, 486, 490, 495, 496, 497, 498,
 329      & 499, 500, 504, 506, 508, 510, 511, 512, 513, 514, 515, 516, 517,
 330      & 518, 519, 522, 523, 524, 525, 526, 527, 528, 529, 530, 531, 534,
 331      & 537, 539 /
 332 *                                                                      *
 333 *     Last number of decay channels used for resonances                *
 334 *     and decaying particles                                           *
 335 *                                                                      *
 336       DATA K21/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 15, 16, 17, 23, 29,
 337      & 31, 35, 39, 40, 42, 43, 45, 137, 139, 5* 330, 50, 51, 53, 54, 57,
 338      & 59, 61, 63, 65, 67, 69, 71, 73, 81, 89, 97, 105, 108, 111, 113,
 339      & 122, 135, 140, 142, 144, 145, 149, 156, 163, 167, 173, 179, 186,
 340      & 193, 201, 209, 210, 212, 214, 215, 219, 226, 233, 237, 244, 251,
 341      & 253, 254, 255, 256, 258, 261, 264, 266, 268, 271, 275, 278, 281,
 342      & 285, 289, 292, 298, 307, 334, 338, 339, 340, 342, 343, 344, 345,
 343      & 346, 349, 352, 355, 357, 359, 362, 365, 368, 371, 373, 375, 378,
 344      & 382, 384, 386, 390, 393, 396, 399, 401, 404, 407, 409, 411, 413,
 345      & 416, 419, 424, 429, 430, 431, 432, 433, 447, 451, 456, 457, 458,
 346      & 459, 460, 461, 465, 467, 469, 471, 485, 489, 494, 495, 496, 497,
 347      & 498, 499, 503, 505, 507, 509, 510, 511, 512, 513, 514, 515, 516,
 348      & 517, 518, 521, 522, 523, 524, 525, 526, 527, 528, 529, 530, 533,
 349      & 536, 538, 540 /
 350 *                                                                      *
 351 *     Conversion from part to paprop numbering                         *
 352 *                                                                      *
 353       DATA KPTIP1 / 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
 354      & 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 66*0,
 355      & 34, 36, 31, 32, 33, 35, 37, 5*0, 38, 5*0, 39, 68*0 /
 356 *                                                                      *
 357 *     Conversion from paprop to part numbering                         *
 358 *                                                                      *
 359       DATA IPTKP1 / 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
 360      & 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 99,
 361      & 100, 101, 97, 102, 98, 103, 109, 115 /
 362 * / Qquark /
 363       DATA IQECH1 / -2, 1, -2, 1, 1, -2, 0, 2, -1, -1, 2, -1, 2 /
 364       DATA IQBCH1 / 6*-1, 0, 6*1 /
 365       DATA IQICH1 / 4*0, 1, -1, 0, 1, -1, 4*0 /
 366       DATA IQSCH1 / 3*0, 1, 5*0, -1, 3*0 /
 367       DATA IQCCH1 / 2*0, -1, 7*0, 1, 2*0 /
 368       DATA IQUCH1 / 0, 1, 9*0, -1, 0 /
 369       DATA IQTCH1 / -1, 11*0, 1 /
 370       DATA MQUAR1 /                1,1,2,    -1,-1,-2,
 371      *   0,0,0,       0,0,0,       0,0,0,       0,0,0,       0,0,0,
 372      *   1,2,2,    -1,-2,-2,       0,0,0,       0,0,0,       0,0,0,
 373      *  1,-2,0,      2,-1,0,      1,-3,0,      3,-1,0,
 374      *   1,2,3,    -1,-2,-3,       0,0,0,
 375      *   2,2,3,     1,1,3,     1,2,3,     1,-1,0,
 376      *   2,-3,0,    3,-2,0,    2,-2,0,    0,0,0,
 377      *   0,0,0,       0,0,0,       0,0,0,
 378      *  -1,-1,-3,    -1,-2,-3,    -2,-2,-3,
 379      *   1,3,3,      -1,-3,-3,     2,3,3,      -2,-3,-3,
 380      *   3,3,3,      -3,-3,-3 /
 381 *
 382       DO 10 J=1, 39
 383          IPTOKP(J)=IPTKP1(J)
 384    10 CONTINUE
 385       DO 20 J=1,IDMAX8
 386          AM(J)=AM1(J)
 387          GA(J)=GA1(J)
 388          TAU(J)=TAU1(J)
 389          ICH(J)=ICH1(J)
 390          IBAR(J)=IBAR1(J)
 391          K1(J)=K11(J)
 392          K2(J)=K21(J)
 393          KPTOIP(J)=KPTIP1(J)
 394          ANAME(J)=ANAME1(J)
 395    20 CONTINUE
 396       DO 30 J=-6,6
 397          IQECHR(J)=IQECH1(J)
 398          IQBCHR(J)=IQBCH1(J)
 399          IQICHR(J)=IQICH1(J)
 400          IQSCHR(J)=IQSCH1(J)
 401          IQCCHR(J)=IQCCH1(J)
 402          IQUCHR(J)=IQUCH1(J)
 403          IQTCHR(J)=IQTCH1(J)
 404    30 CONTINUE
 405       DO 50 J=1,3
 406          DO 40 I=1,39
 407             MQUARK(J,I)=MQUAR1(J,I)
 408    40    CONTINUE
 409    50 CONTINUE
 410 *=                                               end*block.blkdt6      *
 411       END