MINICERN/packlib/zebra/jz91/jztell.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:17  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE JZTELL (IDV)
  11
  12 C-    Processor condition recording
  13
  14 C     IDV(1)  condition number
  15
  16 #include "zebra/zunit.inc"
  17 #include "zebra/mqsysh.inc"
  18 #include "zebra/jzuc.inc"
  19 #include "zebra/jzc.inc"
  20 C--------------    END CDE                             -----------------  ------
  21       DIMENSION    IDV(7)
  22
  23 #if defined(CERNLIB_QDEBUG)
  24 #include "zebra/q_jbit.inc"
  25 #endif
  26
  27 #include "zebra/qstorjz.inc"
  28
  29       ID = IDV(1)
  30
  31 #if defined(CERNLIB_QDEBUG)
  32       IF (JBIT(JQLLEV,5).NE.0)  WRITE (IQLOG,9024) JQLEV,NQME(1),ID
  33  9024 FORMAT ( ' =======  JZTELL level',I2,', "',A4,I4)
  34 #endif
  35
  36       IF (LQSV.EQ.0)               RETURN
  37       L = LQSV + JQNACC
  38       J = MIN (ID,IQ(KQS+L))
  39       J = MAX (J,1)
  40       IQ(KQS+L+J) = IQ(KQS+L+J) + 1
  41       RETURN
  42       END
  43 *      ==================================================
  44 #include "zebra/qcardl.inc"