This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jztell.F
CommitLineData
fe4da5cc 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
12C- Processor condition recording
13
14C 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"
20C-------------- 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"