This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzzero.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 JZZERO (NLK,NDK)
11
12C- Clear unused part of call bank
13
14#include "zebra/mqsysh.inc"
15#include "zebra/jzuc.inc"
16#include "zebra/jzc.inc"
17C-------------- 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
47C---- 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"