GEANT321/geant321/gcscal.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:34  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCSCAL_INC
  10 #define CERNLIB_GEANT321_GCSCAL_INC
  11 *
  12 *
  13 * gcscal.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #if defined(CERNLIB_TYPE)
  17 #include "geant321/gtscal.inc"
  18 #endif
  19       PARAMETER(MXSLNK=100)
  20       COMMON/GCSCAL/ ISLINK(MXSLNK)
  21       EQUIVALENCE (LSLAST,ISLINK(MXSLNK))
  22       EQUIVALENCE (LSCAN ,ISLINK(1)),(LSTEMP,ISLINK(2))
  23       EQUIVALENCE (LSPARA,ISLINK(3)),(LSERAY,ISLINK(4))
  24 *
  25 #endif
  26 *
  27 * gcscal.inc
  28 *
  29 #if defined(CERNLIB_INCLUDE)
  30 *
  31 #include "geant321/incbeg.inc"
  32      +   gcscal
  33 #include "geant321/incend.inc"
  34 #endif
  35
  36 #endif