[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / mq / mzebra.F

*
* $Id$
*
* $Log$
* 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"
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/18 16:11:25 mclareni
	6	* Incorporate changes from J.Zoll for version 3.77
	7	*
	8	* Revision 1.1.1.1 1996/03/06 10:47:17 mclareni
	9	* Zebra
	10	*
	11	*
	12	#include "zebra/pilot.h"
	13	SUBROUTINE MZEBRA (LIST)
	14
	15	C- Initialise memory manager, user called
	16
	17	#include "zebra/zbcd.inc"
	18	#include "zebra/zbcdch.inc"
	19	#include "zebra/zceta.inc"
	20	#include "zebra/zheadp.inc"
	21	#include "zebra/zmach.inc"
	22	#include "zebra/znatur.inc"
	23	#include "zebra/zstate.inc"
	24	#include "zebra/zunit.inc"
	25	#include "zebra/mqsysh.inc"
	26	#include "zebra/mzcl.inc"
	27	#include "zebra/jzuc.inc"
	28	#include "zebra/rzcount.inc"
	29	#include "zebra/rzclun.inc"
	30	#include "zebra/rzcstr.inc"
	31	C-------------- End CDE --------------
	32	DIMENSION LIST(9), INKEYS(3)
	33	CHARACTER VIDQQ()
	34
	35	#if defined(CERNLIB_QMVDS)
	36	SAVE INIT, INKEYS
	37	#endif
	38	#if defined(CERNLIB_PY_VS5)
	39	* PARAMETER (VIDQQ= '@(#)? >')
	40	#endif
	41	#if !defined(CERNLIB_PY_VS5)
	42	PARAMETER (VIDQQ = '@(#)' //
	43	+ 'ZEMQ 3.77 '
	44	+ // '>')
	45	#endif
	46	#include "zebra/zfatalch.inc"
	47	#if defined(CERNLIB_QHOLL)
	48	DATA INKEYS / 4HEBRA, 4HINIT, 4HDONE /
	49	#endif
	50	#if !defined(CERNLIB_QHOLL)
	51	DATA INKEYS / 2345432, 3456543, 4567654 /
	52	#endif
	53
	54
	55	C-- Check re-entry to MZEBRA
	56	C
	57	C DO 11 J=1,3
	58	C IF (MQKEYS(J).NE.INKEYS(J)) GO TO 12
	59	C 11 CONTINUE
	60	C RETURN
	61	CALL CLEFT (VIDQQ,1,0)
	62
	63	12 NQSTOR = -1
	64	JQSTOR = -99
65	CALL VZERO (NQOFFT,66)
66
67	C-- Initialize all passive COMMONs
68
69	CALL MZINCO (LIST)
70	NQDCUT = 201
71	NQWCUT = 500
72
73	CALL UCOPY (INKEYS,MQKEYS,3)
74
75	C---- Clear /MZCL/, /JZUC/, /RZCOUNT/, /RZCSTR/
76
77	CALL VZERO (NQLN, 28)
78	CALL VZERO (LQJZ, 16)
79	CALL VZERO (NSTRIP, MAXFILES)
80	JQLEV = -1
81
82	RZXIO(1) = 0.
83	RZXIO(2) = 0.
84
85	IMODEH = 0
86
87	CALL VFILL (IQFENC,4,IQNIL)
88
89
90	C---- Test validity of ZFATAL
91
92	NQINIT = INIT
93	CALL ZFATAL
94	CALL ZFATAM ('.')
95	NQINIT = -1
96	C- force loading for "what"
97	IF (NQSTOR.EQ.99) CALL MZVERS
98	RETURN
99	END
100	* ==================================================
101	#include "zebra/qcardl.inc"