GEANT321/geant321/pcodat.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:43  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_PCODAT_INC
  10 #define CERNLIB_GEANT321_PCODAT_INC
  11 *
  12 *
  13 * pcodat.inc
  14 *
  15 C --- DATA STMTS. FOR GEANT/GHEISHA PARTICLE CODE CONVERSIONS ---
  16 C --- KIPART(I)=GHEISHA CODE CORRESPONDING TO GEANT   CODE I ---
  17 C --- IKPART(I)=GEANT   CODE CORRESPONDING TO GHEISHA CODE I ---
  18 C
  19       DATA KIPART/
  20      $               1,   3,   4,   2,   5,   6,   8,   7,
  21      $               9,  12,  10,  13,  16,  14,  15,  11,
  22      $              35,  18,  20,  21,  22,  26,  27,  33,
  23      $              17,  19,  23,  24,  25,  28,  29,  34,
  24      $              35,  35,  35,  35,  35,  35,  35,  35,
  25      $              35,  35,  35,  35,  30,  31,  32,  35/
  26 C
  27       DATA IKPART/
  28      $               1,   4,   2,   3,   5,   6,   8,   7,
  29      $               9,  11,  16,  10,  12,  14,  15,  13,
  30      $              25,  18,  26,  19,  20,  21,  27,  28,
  31      $              29,  22,  23,  30,  31,  45,  46,  47,
  32      $              24,  32,  48/
  33 C
  34
  35 #endif