Changes needed by ICC/IFC compiler (Intel)
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzzero.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 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"