DPMJET/flukapro/(DETLOC)

   1 *$ CREATE DETLOC.ADD
   2 *COPY DETLOC
   3 *                                                                      *
   4 *=== detloc ===========================================================*
   5 *                                                                      *
   6
   7 *----------------------------------------------------------------------*
   8 *                                                                      *
   9 *    detloc                          created 20-sep-1989 by A. Ferrari *
  10 *                                                                      *
  11 *            included in:                                              *
  12 *                         detect                                       *
  13 *                         bdnopt                                       *
  14 *                                                                      *
  15 *            W A R N I N G any change of the Ndtcm2 parameter must be  *
  16 *            done also on the Ndtcmx parameter of the Detect module!   *
  17 *----------------------------------------------------------------------*
  18 *                                                                      *
  19       PARAMETER (NDTCM2 = 10)
  20       COMMON /DETLOC/ ACCUMP (NDTCM2), ACCUMN (NDTCM2),
  21      &                ICOINC(NDTCM2), NCLAS
  22