MINICERN/packlib/zebra/zebra/dzc1.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:46:57  mclareni
   6 * Zebra
   7 *
   8 *
   9 #ifndef CERNLIB_ZEBRA_DZC1_INC
  10 #define CERNLIB_ZEBRA_DZC1_INC
  11 *
  12 *
  13 * dzc1.inc
  14 *
  15       PARAMETER(NOFMTQ=0)
  16       PARAMETER(MSYSFQ=5,MSYSDQ=7,MSYSKQ=8,MSYSPQ=9)
  17
  18       COMMON /DZC1/  IFLOPT(26),
  19      +               JDROP,LN,LS,LX,IO,NL,NS,ND,
  20      +               IBASE,LBASE,NDW,JDFD,JD,JTYP
  21
  22       PARAMETER (NSTMXQ=16,NDVMXQ=20,LNULL=0,NOFLIQ=8,NCHEKQ=-7)
  23
  24       PARAMETER (MCQSIQ=8,MCQLSQ=2,MCQLGQ=15,MCQLTQ=19,MCQLIQ=87)
  25       CHARACTER CQSTAK*13,CQINFO*40
  26       PARAMETER (NLICHQ=130,NSTCHQ=8,NDVCHQ=8,NBKCHQ=4 )
  27       CHARACTER CQLINE*(NLICHQ),CQMAP(10)*(NLICHQ)
  28       CHARACTER CQSTOR*(NSTCHQ),CQDIV*(NDVCHQ),CQID*(NBKCHQ)
  29       COMMON /DZC1CH/ CQSTOR,CQDIV,CQID,CQMAP,CQSTAK,CQINFO
  30       EQUIVALENCE (CQLINE,CQMAP)
  31
  32       CHARACTER   CDUMMQ*(*)
  33       PARAMETER ( CDUMMQ = ' ' )
  34
  35 #endif