Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/zebra/qstore.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_QSTORE_INC
0010 #define CERNLIB_ZEBRA_QSTORE_INC
0011 *
0012 *
0013 * qstore.inc
0014 *
0015       IF (JBYT(IXSTOR,27,6).NE.JQSTOR)  CALL MZSDIV (IXSTOR,-7)
0016 *  -------------   for ZEBRA MZ   ------------------------------
0017 
0018 #endif