Warning, /include/comis/mdpool.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/02/26 17:16:33 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_COMIS_MDPOOL_INC
0010 #define CERNLIB_COMIS_MDPOOL_INC
0011 *
0012 *
0013 * mdpool.inc
0014 *
0015 #include "comis/cspar.inc"
0016 COMMON/MDPOOL/IQ(LHP)
0017 INTEGER ISEM(LHP),KD(LHP),IDA(LHP),KD1(99),KD2(99),KD3(99)
0018 EQUIVALENCE (IQ,ISEM),(IQ,KD),(IQ,IDA)
0019 EQUIVALENCE (KD1(1),KD(2)),(KD2(1),KD(3)),(KD3(1),KD(4))
0020
0021 #endif
