This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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"