GEANT321/geant321/gcmulo.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:32  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCMULO_INC
  10 #define CERNLIB_GEANT321_GCMULO_INC
  11 *
  12 *
  13 * gcmulo.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16       COMMON/GCMULO/SINMUL(101),COSMUL(101),SQRMUL(101),OMCMOL,CHCMOL
  17      +  ,EKMIN,EKMAX,NEKBIN,NEK1,EKINV,GEKA,GEKB,EKBIN(200),ELOW(200)
  18 C
  19       REAL SINMUL,COSMUL,SQRMUL,OMCMOL,CHCMOL,EKMIN,EKMAX,ELOW,EKINV
  20       REAL GEKA,GEKB,EKBIN
  21       INTEGER NEKBIN,NEK1
  22 C
  23 #endif
  24 *
  25 * gcmulo.inc
  26 *
  27 #if defined(CERNLIB_INCLUDE)
  28 *
  29 #include "geant321/incbeg.inc"
  30      +   gcmulo
  31 #include "geant321/incend.inc"
  32 #endif
  33
  34 #endif