GEANT321/geant321/auxpar.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:37  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_AUXPAR_INC
  10 #define CERNLIB_GEANT321_AUXPAR_INC
  11 *
  12 *
  13 * auxpar.inc
  14 *
  15 C***********************************************************************
  16 C     INCLUDE FILE: AUXPAR COPY                   CREATED 11/12/86 BY PA
  17 C     CHANGES: NONE
  18 C     INCLUDED IN THE FOLLOWING SUBROUTINES OR FUNCTIONS: NOT UPDATED
  19 C
  20 C     DESCRIPTION OF THE COMMON BLOCK(S) AND VARIABLE(S)
  21 C
  22 C***********************************************************************
  23       PARAMETER (IDMAX6=1133)
  24       CHARACTER*8 ANA
  25       COMMON /FKAUXP/PXA(IDMAX6),PYA(IDMAX6),PZA(IDMAX6),HEPA(IDMAX6),
  26      *AMA(IDMAX6),ICHA(IDMAX6),IBARA(IDMAX6),            NREA(IDMAX6)
  27       COMMON /FKAUXC/ANA(IDMAX6)
  28
  29
  30 #endif