MINICERN/packlib/zebra/zebra/mzcb.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:46:53  mclareni
   6 * Zebra
   7 *
   8 *
   9 #ifndef CERNLIB_ZEBRA_MZCB_INC
  10 #define CERNLIB_ZEBRA_MZCB_INC
  11 *
  12 *                 Current Store and Division
  13 *
  14 * mzcb.inc
  15 *
  16       COMMON /MZCB/  JQSTOR,KQT,KQS,  JQDIVI,JQDIVR
  17      +,              JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV
  18      +,              LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END
  19      +,              JQDVLL,JQDVSY,NQLOGL,NQSNAM(6)
  20                                        DIMENSION    IQCUR(16)
  21                                        EQUIVALENCE (IQCUR(1),LQSTOR)
  22
  23 #endif