Changes needed by ICC/IFC compiler (Intel)
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzlog.F
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"