MINICERN/packlib/zebra/fq/fzlogl.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE FZLOGL (LUNPAR,LOGLP)
  11
  12 C-    SET DIAGNOSTIC LOGGING LEVEL
  13
  14 #include "zebra/zunit.inc"
  15 #include "zebra/mqsys.inc"
  16 #include "zebra/eqlqf.inc"
  17 #include "zebra/fzcf.inc"
  18 #include "zebra/fzci.inc"
  19 #include "zebra/fzcx.inc"
  20 C--------------    End CDE                             --------------
  21       DIMENSION    LUNPAR(9), LOGLP(9)
  22
  23
  24       LUN  = LUNPAR(1)
  25       LOGL = LOGLP(1)
  26 #if !defined(CERNLIB_QDEVZE)
  27       LOGL = MIN (LOGL,4)
  28 #endif
  29       CALL FZLOC (LUN,0)
  30       IF (LQFF.EQ.0)         RETURN
  31
  32 #if defined(CERNLIB_QPRINT)
  33       IF (LOGL.GE.0)  WRITE (IQLOG,9022) LUN,LOGL
  34  9022 FORMAT (1X/' FZLOGL.  File at LUN=',I3,
  35      F', Diagnostic log level=',I2)
  36 #endif
  37
  38       IQ(KQSP+LQFF+4) = LOGL
  39       IF (LUNF.EQ.LUNI)  LOGLVI=LOGL
  40       IF (LUNF.EQ.LUNX)  LOGLVX=LOGL
  41       RETURN
  42       END
  43 *      ==================================================
  44 #include "zebra/qcardl.inc"