Warning, /include/geant321/gcscal.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1995/10/24 10:20:33 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCSCAL_INC
0010 #define CERNLIB_GEANT321_GCSCAL_INC
0011 *
0012 *
0013 * gcscal.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #if defined(CERNLIB_TYPE)
0017 #include "geant321/gtscal.inc"
0018 #endif
0019 PARAMETER(MXSLNK=100)
0020 COMMON/GCSCAL/ ISLINK(MXSLNK)
0021 EQUIVALENCE (LSLAST,ISLINK(MXSLNK))
0022 EQUIVALENCE (LSCAN ,ISLINK(1)),(LSTEMP,ISLINK(2))
0023 EQUIVALENCE (LSPARA,ISLINK(3)),(LSERAY,ISLINK(4))
0024 *
0025 #endif
0026 *
0027 * gcscal.inc
0028 *
0029 #if defined(CERNLIB_INCLUDE)
0030 *
0031 #include "geant321/incbeg.inc"
0032 + gcscal
0033 #include "geant321/incend.inc"
0034 #endif
0035
0036 #endif
