Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzlog.F
CommitLineData
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
15C- Set log options
16
17C- Structure of JQLLEV :
18C- bits 1-4 = 0 Q, suppress all messages
19C- 1 E, error messages only
20C- 2 normal logging
21
22C- bits 5-8 = 1 T, JZTELL printing
23
24C- bits 9-12 : bit 1 A, JZIN logging
25C 2 B, and dump call bank
26C- 3 C, and dump AN parameters
27
28C- bits 13-16 : bit 1 X, JZOUT logging
29C- 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"
35C-------------- 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)
47C- _:.=+=.:
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"