[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jztell.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:17  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE JZTELL (IDV)

C-    Processor condition recording

C     IDV(1)  condition number

#include "zebra/zunit.inc"
#include "zebra/mqsysh.inc"
#include "zebra/jzuc.inc"
#include "zebra/jzc.inc"
C--------------    END CDE                             -----------------  ------
      DIMENSION    IDV(7)

#if defined(CERNLIB_QDEBUG)
#include "zebra/q_jbit.inc"
#endif

#include "zebra/qstorjz.inc"

      ID = IDV(1)

#if defined(CERNLIB_QDEBUG)
      IF (JBIT(JQLLEV,5).NE.0)  WRITE (IQLOG,9024) JQLEV,NQME(1),ID
 9024 FORMAT ( ' =======  JZTELL level',I2,', "',A4,I4)
#endif

      IF (LQSV.EQ.0)               RETURN
      L = LQSV + JQNACC
      J = MIN (ID,IQ(KQS+L))
      J = MAX (J,1)
      IQ(KQS+L+J) = IQ(KQS+L+J) + 1
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
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
	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"