Warning, /include/zebra/dzc1.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/06 10:46:56 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_ZEBRA_DZC1_INC
0010 #define CERNLIB_ZEBRA_DZC1_INC
0011 *
0012 *
0013 * dzc1.inc
0014 *
0015 PARAMETER(NOFMTQ=0)
0016 PARAMETER(MSYSFQ=5,MSYSDQ=7,MSYSKQ=8,MSYSPQ=9)
0017
0018 COMMON /DZC1/ IFLOPT(26),
0019 + JDROP,LN,LS,LX,IO,NL,NS,ND,
0020 + IBASE,LBASE,NDW,JDFD,JD,JTYP
0021
0022 PARAMETER (NSTMXQ=16,NDVMXQ=20,LNULL=0,NOFLIQ=8,NCHEKQ=-7)
0023
0024 PARAMETER (MCQSIQ=8,MCQLSQ=2,MCQLGQ=15,MCQLTQ=19,MCQLIQ=87)
0025 CHARACTER CQSTAK*13,CQINFO*40
0026 PARAMETER (NLICHQ=130,NSTCHQ=8,NDVCHQ=8,NBKCHQ=4 )
0027 CHARACTER CQLINE*(NLICHQ),CQMAP(10)*(NLICHQ)
0028 CHARACTER CQSTOR*(NSTCHQ),CQDIV*(NDVCHQ),CQID*(NBKCHQ)
0029 COMMON /DZC1CH/ CQSTOR,CQDIV,CQID,CQMAP,CQSTAK,CQINFO
0030 EQUIVALENCE (CQLINE,CQMAP)
0031
0032 CHARACTER CDUMMQ*(*)
0033 PARAMETER ( CDUMMQ = ' ' )
0034
0035 #endif
