GEANT321/geant321/pawc.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:35  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_PAWC_INC
  10 #define CERNLIB_GEANT321_PAWC_INC
  11 *
  12 *
  13 * pawc.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #if defined(CERNLIB_TYPE)
  17 #include "geant321/pawct.inc"
  18 #endif
  19       COMMON /PAWC/ NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKUIP,IFENCE(5),
  20      +              LLMAIN, WWS(9989)
  21       DIMENSION IQQ(2),QQ(2),LQQ(8000)
  22       EQUIVALENCE (QQ(1),IQQ(1),LQQ(9)),(LQQ(1),LLMAIN)
  23 C
  24 #endif
  25 *
  26 * pawc.inc
  27 *
  28 #if defined(CERNLIB_INCLUDE)
  29 *
  30 #include "geant321/incbeg.inc"
  31      +   pawc
  32 #include "geant321/incend.inc"
  33 #endif
  34
  35 #endif