DPMJET/flukapro/(BAMJCM)

   1 *$ CREATE BAMJCM.ADD
   2 *COPY BAMJCM
   3 *
   4 *=== bamjcm ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     BAMJev CoMmon:                                                   *
   9 *                                                                      *
  10 *     Created on  01 november 1997 by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 04-dec-97     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *                           included in:                               *
  16 *                                        bamjet                        *
  17 *                                                                      *
  18 *     When changing kmxjcm dimension look also at verein!!!!!          *
  19 *                                                                      *
  20 *----------------------------------------------------------------------*
  21 *
  22       LOGICAL LOQ1, LOQ2
  23       PARAMETER ( KMXJCM = 100 )
  24 *
  25       COMMON / BAMJCM / RPX  (0:KMXJCM,0:1), RPY  (0:KMXJCM,0:1),
  26      &                  RPZ  (0:KMXJCM,0:1), RE   (0:KMXJCM,0:1),
  27      &                  RPX1 (0:KMXJCM,0:1), RPX2 (0:KMXJCM,0:1),
  28      &                  RPY1 (0:KMXJCM,0:1), RPY2 (0:KMXJCM,0:1),
  29      &                  ISK12(0:KMXJCM,0:1), KFR1 (0:KMXJCM,0:1),
  30      &                  KFR2 (0:KMXJCM,0:1), IV   (0:KMXJCM,0:1),
  31      &                  LOQ1 (0:KMXJCM,0:1), LOQ2 (0:KMXJCM,0:1)
  32