*
* $Id: kcgen1.inc,v 1.1.1.1 1996/03/08 15:32:59 mclareni Exp $
*
* $Log: kcgen1.inc,v $
* Revision 1.1.1.1  1996/03/08 15:32:59  mclareni
* Kuip
*
*
#ifndef CERNLIB_KUIP_KCGEN1_INC
#define CERNLIB_KUIP_KCGEN1_INC
*
*
* kcgen1.inc
*
      PARAMETER (MAXLEV=10)

      COMMON /KCBANC/ WDNAM(MAXLEV),INPMOD,CPRMPT,CHGLOS,CDFFIL,EDITOR,
     +                SHELL,TRAPRO,CHMULT,CHMULM,CHMEXE,
     +                MACBAK,MACEXT,BSLASH
     +
      CHARACTER*64  CPRMPT,EDITOR,TRAPRO,SHELL
      CHARACTER*32  WDNAM,CHGLOS
      CHARACTER*16  CDFFIL
      CHARACTER*8   INPMOD,MACBAK
      CHARACTER*7   MACEXT
      CHARACTER*1   BSLASH
      CHARACTER*80  CHMULM
      CHARACTER*(MAXCMD) CHMULT,CHMEXE

      COMMON /KCLAST/ CELLST,PNALST,PATLST(MAXLEV)
      CHARACTER*32 CELLST
      CHARACTER*40 PNALST
      CHARACTER*32 PATLST

      COMMON /KCUTIL/ NCMD,IWD,LUNFIL,LPRMPT,TIMING,TRACE,CALMOD,
     +                NVADD,IREPET,IREFAC,IBRAK,TIMALL,LENTER,UNIQUE,
     +                LENMUL,MULTFL,HISTOK,NOHIST,LENMUM,FILCAS,MEXEFL
      LOGICAL TIMING,TRACE,TIMALL,UNIQUE,MULTFL,HISTOK,NOHIST,FILCAS,
     +        MEXEFL
      INTEGER CALMOD

      COMMON /KCHELP/ HELPAT,UHPATH
      CHARACTER*80 HELPAT
      CHARACTER*32 UHPATH


#endif
