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"