MINICERN/packlib/zebra/rz/rzlogl.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:25  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE RZLOGL(LUN,LOGLEV)
  11 *
  12 ************************************************************************
  13 *
  14 *        To set the LOG level
  15 * Input:
  16 *   LUN     Logical unit number for which the logging level has to be set
  17 *   LOGLEV  Logging level
  18 *           -3  Suppress all messages
  19 *           -2  Error messages only
  20 *           -1  Terse logging
  21 *            0  Normal logging: RZFILE, RZEND
  22 *            1  Log to watch rare events
  23 *            2  Log to monitor calls
  24 *            3  Short diagnostics
  25 *               Short dumps to debug user-written output routines
  26 *            4  Full diagnostics
  27 *               Full dumps to debug user-written output routines
  28 *
  29 * Called by <USER>
  30 *
  31 *  Author  : R.Brun DD/US/PD
  32 *  Written : 01.04.86
  33 *  Last mod: 17.11.92 JDS - restrict loglevel to documented range
  34 *                     so that only 3 bits are required to store it (15-17)
  35 *
  36 ************************************************************************
  37 #include "zebra/zunit.inc"
  38 #include "zebra/rzcl.inc"
  39 *
  40 *-----------------------------------------------------------------------
  41 *
  42       IQUEST(1)=0
  43       IF(LQRS.EQ.0)GO TO 99
  44       LRZ=LQRS
  45   10  IF(LRZ.EQ.0)GO TO 99
  46       IF(IQ(KQSP+LRZ-5).NE.LUN)THEN
  47          LRZ=LQ(KQSP+LRZ)
  48          GO TO 10
  49       ENDIF
  50 *
  51       LOGL = MIN(LOGLEV,4)
  52       LOGL = MAX(LOGL, -3) + 3
  53       CALL SBYT(LOGL,IQ(KQSP+LRZ),15,3)
  54       IF(LOGLEV.GE.0)WRITE(IQLOG,9022)LUN,LOGLEV
  55  9022 FORMAT(' RZLOGL.  File at LUN=',I6,', Diagnostic log level=',I2)
  56 *
  57   99  RETURN
  58       END