GEANT321/geant321/inpdat.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:40  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_INPDAT_INC
  10 #define CERNLIB_GEANT321_INPDAT_INC
  11 *
  12 *
  13 * inpdat.inc
  14 *
  15 *
  16 *=== inpdat ===========================================================*
  17 *
  18 *----------------------------------------------------------------------*
  19 *     include file: inpdat copy          Created 22/12/86 by PA Aarnio
  20 *     changes: revised 29/3/90 by A. Ferrari
  21 *     included in the following subroutines or functions: not updated
  22 *
  23 *     N O W   T H E R E   I S   A   C O P Y   O F   I N P D A T
  24 *     (  I N P D A T 2  )   C R E A T E D
  25 *     T O   A V O I D   T O   D I R T Y   T H E   B A M J E T
  26 *     P A R A M E T E R S !!!!!!!!!!!!
  27 *
  28 *     description of the common block(s) and variable(s)
  29 *
  30 *----------------------------------------------------------------------*
  31 *
  32       COMMON /FKINPD/ A1, B1, B2, B3, BET, AS, B8, AME, DIQ, IMPS(6,6),
  33      &                IMVE(6,6),  IB08(6,21), IB10(6,21), IA08(6,21),
  34      &                IA10(6,21), LT, LE, ISU
  35
  36
  37 #endif