[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzlog.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/18 16:11:07  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 JZLOG (CHOPT)

C-    Set log options

C-    Structure of JQLLEV :
C-        bits  1-4  =  0      Q, suppress all messages
C-                      1      E, error messages only
C-                      2      normal logging

C-        bits  5-8  =  1      T, JZTELL printing

C-        bits  9-12 :  bit 1  A, JZIN logging
C                           2  B, and dump call bank
C-                          3  C, and dump AN parameters

C-        bits 13-16 :  bit 1  X, JZOUT logging
C-                          2  Y, and dump call bank

#include "zebra/zunit.inc"
#include "zebra/quest.inc"
#include "zebra/jzuc.inc"
#include "zebra/jzc.inc"
C--------------    END CDE                             -----------------  ------
      CHARACTER    CHOPT*(*)

#include "zebra/q_or.inc"
#include "zebra/q_shiftl.inc"

#if defined(CERNLIB_QPRINT)
      IF (JQLLEV.GE.2)  WRITE (IQLOG,9007) CHOPT
 9007 FORMAT (' JZLOG.   option = ',A)
#endif

      CALL UOPTC (CHOPT,'QETABCXY',IQUEST)
C-                       _:.=+=.:
      JQLLEV = 2
      IF (IQUEST(1).NE.0)  JQLLEV = 0
      IF (IQUEST(2).NE.0)  JQLLEV = 1
      IF (JQLLEV.LT.2)             RETURN

      IF (IQUEST(3).NE.0)  JQLLEV = 18

      J = IQUEST(5) + 2*IQUEST(6)
      IF (J.EQ.0)  THEN
          J = IQUEST(4)
        ELSE
          J = 2*J + 1
        ENDIF
      IF (J.NE.0)  JQLLEV = IOR (JQLLEV, ISHFTL(J,8))

      J = IQUEST(8)
      IF (J.EQ.0)  THEN
          J = IQUEST(7)
        ELSE
          J = 2*J + 1
        ENDIF
      IF (J.NE.0)  JQLLEV = IOR (JQLLEV, ISHFTL(J,12))
      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:07 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 JZLOG (CHOPT)
	14
	15	C- Set log options
	16
	17	C- Structure of JQLLEV :
	18	C- bits 1-4 = 0 Q, suppress all messages
	19	C- 1 E, error messages only
	20	C- 2 normal logging
	21
	22	C- bits 5-8 = 1 T, JZTELL printing
	23
	24	C- bits 9-12 : bit 1 A, JZIN logging
	25	C 2 B, and dump call bank
	26	C- 3 C, and dump AN parameters
	27
	28	C- bits 13-16 : bit 1 X, JZOUT logging
	29	C- 2 Y, and dump call bank
	30
	31	#include "zebra/zunit.inc"
	32	#include "zebra/quest.inc"
	33	#include "zebra/jzuc.inc"
	34	#include "zebra/jzc.inc"
	35	C-------------- END CDE ----------------- ------
	36	CHARACTER CHOPT()
	37
	38	#include "zebra/q_or.inc"
	39	#include "zebra/q_shiftl.inc"
	40
	41	#if defined(CERNLIB_QPRINT)
	42	IF (JQLLEV.GE.2) WRITE (IQLOG,9007) CHOPT
	43	9007 FORMAT (' JZLOG. option = ',A)
	44	#endif
	45
	46	CALL UOPTC (CHOPT,'QETABCXY',IQUEST)
	47	C- _:.=+=.:
	48	JQLLEV = 2
	49	IF (IQUEST(1).NE.0) JQLLEV = 0
	50	IF (IQUEST(2).NE.0) JQLLEV = 1
	51	IF (JQLLEV.LT.2) RETURN
	52
	53	IF (IQUEST(3).NE.0) JQLLEV = 18
	54
	55	J = IQUEST(5) + 2*IQUEST(6)
	56	IF (J.EQ.0) THEN
	57	J = IQUEST(4)
	58	ELSE
	59	J = 2*J + 1
	60	ENDIF
	61	IF (J.NE.0) JQLLEV = IOR (JQLLEV, ISHFTL(J,8))
	62
	63	J = IQUEST(8)
	64	IF (J.EQ.0) THEN
65	J = IQUEST(7)
66	ELSE
67	J = 2*J + 1
68	ENDIF
69	IF (J.NE.0) JQLLEV = IOR (JQLLEV, ISHFTL(J,12))
70	RETURN
71	END
72	* ==================================================
73	#include "zebra/qcardl.inc"