Warning, /include/kuip/kcgen1.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_KCGEN1_INC
0010 #define CERNLIB_KUIP_KCGEN1_INC
0011 *
0012 *
0013 * kcgen1.inc
0014 *
0015 PARAMETER (MAXLEV=10)
0016
0017 COMMON /KCBANC/ WDNAM(MAXLEV),INPMOD,CPRMPT,CHGLOS,CDFFIL,EDITOR,
0018 + SHELL,TRAPRO,CHMULT,CHMULM,CHMEXE,
0019 + MACBAK,MACEXT,BSLASH
0020 +
0021 CHARACTER*64 CPRMPT,EDITOR,TRAPRO,SHELL
0022 CHARACTER*32 WDNAM,CHGLOS
0023 CHARACTER*16 CDFFIL
0024 CHARACTER*8 INPMOD,MACBAK
0025 CHARACTER*7 MACEXT
0026 CHARACTER*1 BSLASH
0027 CHARACTER*80 CHMULM
0028 CHARACTER*(MAXCMD) CHMULT,CHMEXE
0029
0030 COMMON /KCLAST/ CELLST,PNALST,PATLST(MAXLEV)
0031 CHARACTER*32 CELLST
0032 CHARACTER*40 PNALST
0033 CHARACTER*32 PATLST
0034
0035 COMMON /KCUTIL/ NCMD,IWD,LUNFIL,LPRMPT,TIMING,TRACE,CALMOD,
0036 + NVADD,IREPET,IREFAC,IBRAK,TIMALL,LENTER,UNIQUE,
0037 + LENMUL,MULTFL,HISTOK,NOHIST,LENMUM,FILCAS,MEXEFL
0038 LOGICAL TIMING,TRACE,TIMALL,UNIQUE,MULTFL,HISTOK,NOHIST,FILCAS,
0039 + MEXEFL
0040 INTEGER CALMOD
0041
0042 COMMON /KCHELP/ HELPAT,UHPATH
0043 CHARACTER*80 HELPAT
0044 CHARACTER*32 UHPATH
0045
0046
0047 #endif
