Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/zebra/mzcb.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:52  mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_ZEBRA_MZCB_INC
0010 #define CERNLIB_ZEBRA_MZCB_INC
0011 *
0012 *                 Current Store and Division
0013 *
0014 * mzcb.inc
0015 *
0016       COMMON /MZCB/  JQSTOR,KQT,KQS,  JQDIVI,JQDIVR
0017      +,              JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV
0018      +,              LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END
0019      +,              JQDVLL,JQDVSY,NQLOGL,NQSNAM(6)
0020                                        DIMENSION    IQCUR(16)
0021                                        EQUIVALENCE (IQCUR(1),LQSTOR)
0022 
0023 #endif