Warning, /include/kuip/kcmac.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/08 15:32:58 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_KUIP_KCMAC_INC
0010 #define CERNLIB_KUIP_KCMAC_INC
0011 *
0012 *
0013 * kcmac.inc
0014 *
0015 COMMON /KCMAC/ MACTAB,NSTLEV,QUITFL,WAITFL,WAITFF,DEBTAB,SKIPFL,
0016 + HEADFL,IONERF,NOEXEC
0017 LOGICAL MACTAB,QUITFL,WAITFL,WAITFF,DEBTAB,SKIPFL,HEADFL,NOEXEC
0018
0019 PARAMETER (MAXLIN=500)
0020 COMMON /KCMACC/ MACBUF(MAXLIN)
0021 CHARACTER*80 MACBUF
0022
0023 PARAMETER (MAXMAC=100,MAXLAB=100,LENSYM=48)
0024 COMMON /KCMEC/ NUMMAC,NUMLAB,IIIMAC
0025 COMMON /KCMECI/ LABADD(MAXLAB),MACUND(MAXMAC),LABADM(MAXLAB)
0026 CCCM COMMON /KCMECC/ MACNAM(MAXMAC),LABNAM(MAXLAB),MACPAT,AUTOEX
0027 COMMON /KCMECC/ MACNAM(MAXMAC),LABNAM(MAXLAB),MACPAT,AUTOEX,MACLIS
0028 CHARACTER*(LENSYM) MACNAM,LABNAM
0029 CCCM CHARACTER*80 MACPAT
0030 CHARACTER*80 MACPAT,MACLIS
0031 CHARACTER*20 AUTOEX
0032
0033
0034 #endif
