Warning, /include/kuip/kcpar.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_KCPAR_INC
0010 #define CERNLIB_KUIP_KCPAR_INC
0011 *
0012 *
0013 * kcpar.inc
0014 *
0015 PARAMETER (MAXPAR=100)
0016 COMMON /KCPARI/ PARPTR(4,MAXPAR),GETPAR,ICLENG,ICLIST,
0017 + IPFLAG(MAXPAR),NONPOL,NOPOS1
0018 INTEGER PARPTR,GETPAR
0019
0020 COMMON /KCPARS/ GETSPY,SPYFLG,PROFLG,SPYING
0021 INTEGER GETSPY
0022 LOGICAL SPYFLG,PROFLG,SPYING
0023
0024 COMMON /KCDEFL/ DEFLAG
0025 LOGICAL DEFLAG
0026
0027 COMMON /KCPART/ TOTPAR
0028 INTEGER TOTPAR
0029
0030 COMMON /KCPARC/ PARLST,CLIST,NOALIN,COMAND,CHLAST,NONPOS
0031 CHARACTER*80 CLIST,COMAND
0032 CHARACTER*(MAXCMD) NONPOS
0033 CHARACTER*(MAXCMD) PARLST,NOALIN,CHLAST
0034
0035 #endif
