Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/zebra/mzca.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_MZCA_INC
0010 #define CERNLIB_ZEBRA_MZCA_INC
0011 *
0012 *     Process Master parameters
0013 *
0014 * mzca.inc
0015 *
0016 #if defined(CERNLIB_QTRHOLL)
0017       COMMON /MZCA/  NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM
0018      +,              LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ
0019      +,              MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE
0020      +,              NQTRAC,MQTRAC(48)
0021                                        EQUIVALENCE (KQSP,NQOFFS(1))
0022 #endif
0023 *    Process Master parameters
0024 #if !defined(CERNLIB_QTRHOLL)
0025       COMMON /MZCA/  NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM
0026      +,              LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ
0027      +,              MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM
0028      +,              NQFATA,NQCASE,NQTRAC
0029                                        EQUIVALENCE (KQSP,NQOFFS(1))
0030       COMMON /MZCA2/ MQTRAC(44)
0031                      CHARACTER  MQTRAC*8
0032 #endif
0033 
0034 #endif