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

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

C-    Clear unused part of call bank

#include "zebra/mqsysh.inc"
#include "zebra/jzuc.inc"
#include "zebra/jzc.inc"
C--------------    END CDE                             -----------------  ------
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HJZZE, 4HRO   /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HJZZERO /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'JZZERO  ')
#endif


#include "zebra/qtraceq.inc"
#include "zebra/qstorjz.inc"

      IF (LQDW.EQ.0)               GO TO 91
      IF (NLK.LT.0)                GO TO 92
      IF (NDK.LT.0)                GO TO 93

      DO 24  J=NLK+1,JQCBNL
   24 LQ(KQS+LQDW-J) = 0

      DO 27  J=NDK+1,JQCBND
   27 IQ(KQS+LQDW+J) = 0

#include "zebra/qtrace99.inc"
      RETURN

C----              Trouble

   93 NQCASE = 1
   92 NQCASE = NQCASE + 1
   91 NQCASE = NQCASE + 1
      NQFATA = 3
      IQUEST(11) = LQDW
      IQUEST(12) = NLK
      IQUEST(13) = NDK
#include "zebra/qtofatal.inc"
      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 JZZERO (NLK,NDK)
	11
	12	C- Clear unused part of call bank
	13
	14	#include "zebra/mqsysh.inc"
	15	#include "zebra/jzuc.inc"
	16	#include "zebra/jzc.inc"
	17	C-------------- END CDE ----------------- ------
	18	#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
	19	DIMENSION NAMESR(2)
	20	DATA NAMESR / 4HJZZE, 4HRO /
	21	#endif
	22	#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
	23	DATA NAMESR / 6HJZZERO /
	24	#endif
	25	#if !defined(CERNLIB_QTRHOLL)
	26	CHARACTER NAMESR*8
	27	PARAMETER (NAMESR = 'JZZERO ')
	28	#endif
	29
	30
	31	#include "zebra/qtraceq.inc"
	32	#include "zebra/qstorjz.inc"
	33
	34	IF (LQDW.EQ.0) GO TO 91
	35	IF (NLK.LT.0) GO TO 92
	36	IF (NDK.LT.0) GO TO 93
	37
	38	DO 24 J=NLK+1,JQCBNL
	39	24 LQ(KQS+LQDW-J) = 0
	40
	41	DO 27 J=NDK+1,JQCBND
	42	27 IQ(KQS+LQDW+J) = 0
	43
	44	#include "zebra/qtrace99.inc"
	45	RETURN
	46
	47	C---- Trouble
	48
	49	93 NQCASE = 1
	50	92 NQCASE = NQCASE + 1
	51	91 NQCASE = NQCASE + 1
	52	NQFATA = 3
	53	IQUEST(11) = LQDW
	54	IQUEST(12) = NLK
	55	IQUEST(13) = NDK
	56	#include "zebra/qtofatal.inc"
	57	END
	58	* ==================================================
	59	#include "zebra/qcardl.inc"