]>
Commit | Line | Data |
---|---|---|
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" |