Warning, /include/hepdb/cdcblk.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/02/28 16:24:03 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_HEPDB_CDCBLK_INC
0010 #define CERNLIB_HEPDB_CDCBLK_INC
0011 *
0012 *
0013 * cdcblk.inc
0014 *
0015 COMMON /GCBANK/ FENCCD(22), LQ(9)
0016 DIMENSION IQ(2), Q(2)
0017 EQUIVALENCE (IQ(1),Q(1),LQ(9))
0018 *
0019 COMMON /QUEST/ IQUEST(100)
0020 *
0021 PARAMETER (IKTYCD=33, KNSDCD=23, KLSDCD=26, NWNOCD=16)
0022 PARAMETER (KLKDCD=27, KNKDCD=31)
0023 PARAMETER (NWITCD=28, NPUSCD=50, MAXLCD=80, MXPACD=10)
0024 PARAMETER (JRZUCD=1, JIGNCD=2, JPRTCD=3, JASFCD=4)
0025 PARAMETER (KLKYCD=0, KLDACD=1, KLNOCD=2, KLUPCD=3, KLDICD=2)
0026 PARAMETER (KLFZCD=3, MFZTOP=1, MFZDIR=5, MXLWCD=20)
0027 PARAMETER (MNDNWK=1, MNDNWD=2, MNDNCH=3, MNDDIC=4)
0028 PARAMETER (MNDIOF=5, MNDNAM=NWNOCD+5, NLKYCD=3, NSKYCD=1)
0029 PARAMETER (MKYRID=-4, MKYCEV=-3, MKYCRU=-2, MKYPRE=-1)
0030 PARAMETER (MKYFRI=0)
0031 PARAMETER (MDCNTM=1, MDCITM=1, MDCNCH=2, MDCLUP=3, MDCCMP=4)
0032 PARAMETER (MDCPRC=5, MDCDEL=6, MDCALI=7, MDCNAM=9)
0033 PARAMETER (NARGCD=20)
0034 PARAMETER (MUPLUN=1, MUPFLG=2, MUPSRV=3, MUPSHR=4, MUPAIR=5)
0035 PARAMETER (MUPDIC=6, MUPKIN=7, MUPJFL=8, MUPBAK=9,MUPNCH=10)
0036 PARAMETER (MUPKY7=7, MUPNAM=11,MUPHFL=MUPNAM+4)
0037 PARAMETER (NLUPCD=3, NSUPCD=2, NDUPCD=MUPHFL)
0038 #include "hepdb/cdlufm.inc"
0039 PARAMETER (IDHKSN=1, IDHPTR=2, IDHFLG=3, IDHINS=4, IDHUSI=6,
0040 + IDHSRN=7, IDHEX1=8, IDHEX2=9, IDHEX3=10)
0041 * For DBL3
0042 * PARAMETER (IDHKSN=1, IDHPTR=2, IDHFLG=6, IDHINS=7, IDHUSI=5)
0043 PARAMETER (MPSRCD=1, MXKPCD=2, MOBJCD=5)
0044 PARAMETER (MHFMCD=3, MLEVCD=3, MNAMCD=7, MNCHCD=5, MNDWCD=4)
0045 PARAMETER (MNFNCD=3, MNLVCD=2, MNNUCD=2, MNODCD=4, MPNNCD=2)
0046 PARAMETER (MPNLCD=1, MPPLCD=8, MXOFCD=5, MXWDCD=6, MYFLCD=7)
0047 PARAMETER (MYFNCD=6)
0048 COMMON /CDCBLK/ LCDRCD, LJNKCD, IBIGCD, INSRCD, IOVRCD
0049 + , KYENCD(MXPACD), IARGCD(NARGCD)
0050 COMMON /CDIOBK/ IODICD, IOFDCD, IOFZCD, IOKYCD(NWNOCD), IONOCD
0051 + , IOUPCD
0052 COMMON /CDUPCD/ IOPPCD, IOPSCD, ITOPCD, IOUTCD, LUBKCD, LUFZCD
0053 + , LURZCD, MXINCD, NCHRCD, NPARCD, IHFLCD
0054 COMMON /CDDICD/ DELTCD, ICMPCD, IPRECD, ITNUCD, LUPDCD
0055 COMMON /CDCHVR/ TOPNCD, CALICD
0056 CHARACTER TOPNCD*16, CALICD*8
0057 #include "hepdb/cduscm.inc"
0058
0059 #endif
