MINICERN/packlib/zebra/mqs/mzchnb.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:21  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE MZCHNB (LIX)
  11
  12 C-    Check that LIX is a link in the working space, in a link area,
  13 C-    or even on a local variable, but not a link in a bank.
  14 C-    This is used by routines which restore the input link
  15 C-    from the user back to him, and which could therefor
  16 C-    destroy bank material if a garbage collection happened
  17
  18 #include "zebra/mqsys.inc"
  19 C--------------    End CDE                             --------------
  20       DIMENSION    LIX(9)
  21 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  22       DIMENSION    NAMESR(2)
  23       DATA  NAMESR / 4HMZCH, 4HNB   /
  24 #endif
  25 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  26       DATA  NAMESR / 6HMZCHNB /
  27 #endif
  28 #if !defined(CERNLIB_QTRHOLL)
  29       CHARACTER    NAMESR*8
  30       PARAMETER   (NAMESR = 'MZCHNB  ')
  31 #endif
  32
  33
  34       K = LOCF (LIX(1)) - LQSTOR
  35
  36       IF (K.LT.LQSTA(KQT+1))          RETURN
  37       IF (K.GE.LQEND(KQT+20))         RETURN
  38
  39 #include "zebra/qtrace.inc"
  40
  41       NQCASE = 1
  42       NQFATA = 2
  43       IQUEST(11) = K
  44       IQUEST(12) = LIX(1)
  45 #include "zebra/qtofatal.inc"
  46       END
  47 *      ==================================================
  48 #include "zebra/qcardl.inc"