GEANT321/geant321/mmicap.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:45  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_MMICAP_INC
  10 #define CERNLIB_GEANT321_MMICAP_INC
  11 *
  12 *
  13 * mmicap.inc
  14 *
  15 C
  16 #include "geant321/mmicab.inc"
  17 #include "geant321/gcbank.inc"
  18       DIMENSION LD(1),D(1)
  19       EQUIVALENCE (D(1),Q(1)),(LD(1),IQ(1))
  20       CHARACTER*24 DATSTR
  21       CHARACTER*80 COMMEN
  22       COMMON/ MICMAT / DATSTR,COMMEN,MATIDS(100,20,2)
  23 C
  24
  25 #endif