GEANT321/geant321/corinc.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_CORINC_INC
  10 #define CERNLIB_GEANT321_CORINC_INC
  11 *
  12 *
  13 * corinc.inc
  14 *
  15 *                                                                      *
  16 *=== corinc ===========================================================*
  17 *                                                                      *
  18 *----------------------------------------------------------------------*
  19 *                                                                      *
  20 *     Modified by A. Ferrari: be sure that the parameter Inmax is >=   *
  21 *     of the same parameter in the function Nudist                     *
  22 *----------------------------------------------------------------------*
  23 *
  24       PARAMETER ( INMAX = 20 )
  25       COMMON /FKCORI/ XSEA (INMAX),  XASEA (INMAX), FRAINC, ANUAV,
  26      &                IJTARG (INMAX+1), NSEA
  27
  28
  29 #endif