Warning, /include/kuip/kcgen.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_KCGEN_INC
0010 #define CERNLIB_KUIP_KCGEN_INC
0011 *
0012 *
0013 * kcgen.inc
0014 *
0015 COMMON /PAWC/ NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKUIP,IFENCE(5),
0016 + LMAIN(1), WS(9989)
0017 DIMENSION IQ(2),Q(2),LQ(8000)
0018 EQUIVALENCE (LQ(1),LMAIN(1))
0019 EQUIVALENCE (IQ(1),LQ(9))
0020 EQUIVALENCE ( Q(1),LQ(9))
0021
0022 COMMON /KCLINK/
0023 + LTOP,LVEC,LCMD,LACT,LMAC,LLIST,LSDUM1,
0024 + LCEL,LNAME,LPAR,LPARV,LTRAV,LVECN,LCELGF,
0025 + LROOT,LTOPW1,LTOPW2,LMACN,LCLIST,LLAST
0026
0027
0028 #endif
