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"