*
* $Id: mzebra.F,v 1.2 1996/04/18 16:11:25 mclareni Exp $
*
* $Log: mzebra.F,v $
* Revision 1.2  1996/04/18 16:11:25  mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1  1996/03/06 10:47:17  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE MZEBRA (LIST)

C-    Initialise memory manager,  user called

#include "zebra/zbcd.inc"
#include "zebra/zbcdch.inc"
#include "zebra/zceta.inc"
#include "zebra/zheadp.inc"
#include "zebra/zmach.inc"
#include "zebra/znatur.inc"
#include "zebra/zstate.inc"
#include "zebra/zunit.inc"
#include "zebra/mqsysh.inc"
#include "zebra/mzcl.inc"
#include "zebra/jzuc.inc"
#include "zebra/rzcount.inc"
#include "zebra/rzclun.inc"
#include "zebra/rzcstr.inc"
C--------------    End CDE                             --------------
      DIMENSION    LIST(9), INKEYS(3)
      CHARACTER    VIDQQ*(*)

#if defined(CERNLIB_QMVDS)
      SAVE         INIT, INKEYS
#endif
#if defined(CERNLIB_PY_VS5)
*      PARAMETER (VIDQQ= '@(#)? >')
#endif
#if !defined(CERNLIB_PY_VS5)
      PARAMETER   (VIDQQ = '@(#)' //
     +  'ZEMQ     3.77 '
     + // '>')
#endif
#include "zebra/zfatalch.inc"
#if defined(CERNLIB_QHOLL)
      DATA  INKEYS / 4HEBRA, 4HINIT, 4HDONE /
#endif
#if !defined(CERNLIB_QHOLL)
      DATA  INKEYS / 2345432, 3456543, 4567654 /
#endif


C--                Check re-entry to MZEBRA
C
C     DO 11  J=1,3
C     IF (MQKEYS(J).NE.INKEYS(J))  GO TO 12
C  11 CONTINUE
C     RETURN
      CALL CLEFT (VIDQQ,1,0)

   12 NQSTOR = -1
      JQSTOR = -99
      CALL VZERO (NQOFFT,66)

C--                Initialize all passive COMMONs

      CALL MZINCO (LIST)
      NQDCUT = 201
      NQWCUT = 500

      CALL UCOPY (INKEYS,MQKEYS,3)

C----              Clear /MZCL/, /JZUC/, /RZCOUNT/, /RZCSTR/

      CALL VZERO (NQLN, 28)
      CALL VZERO (LQJZ, 16)
      CALL VZERO (NSTRIP, MAXFILES)
      JQLEV = -1

      RZXIO(1) = 0.
      RZXIO(2) = 0.

      IMODEH   = 0

      CALL VFILL (IQFENC,4,IQNIL)


C----              Test validity of ZFATAL

      NQINIT = INIT
      CALL ZFATAL
      CALL ZFATAM ('.')
      NQINIT = -1
C-        force loading for "what"
      IF (NQSTOR.EQ.99)  CALL MZVERS
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"