MINICERN/packlib/zebra/tq/tzinq.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:14:54  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:27  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE TZINQ  (IXSTOR,IXTITL,LTT,IFLAG)
  14
  15 C-    Inquire about the title structure in store IXSTOR
  16 C-        return:  the index of the title division
  17 C-                 the adr of the last (IFLAG=0) or the first bank
  18
  19 #include "zebra/mqsys.inc"
  20 #include "zebra/eqlqt.inc"
  21 C--------------    END CDE                             -----------------
  22 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  23       DIMENSION    NAMESR(2)
  24       DATA  NAMESR / 4HTZIN, 4HQ    /
  25 #endif
  26 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  27       DATA  NAMESR / 6HTZINQ  /
  28 #endif
  29 #if !defined(CERNLIB_QTRHOLL)
  30       CHARACTER    NAMESR*8
  31       PARAMETER   (NAMESR = 'TZINQ   ')
  32 #endif
  33
  34 #include "zebra/q_jbyt.inc"
  35 #include "zebra/q_sbyt.inc"
  36
  37 #include "zebra/qtraceq.inc"
  38
  39 #include "zebra/qstore.inc"
  40
  41       L = LQT(KQT+1)
  42       IF (L.EQ.0)                  GO TO 70
  43
  44       JDV  = MZFDIV (-7, L)
  45       IF (JDV.EQ.JQDVSY)  JDV = 24
  46       IXDV = MSBYT (JQSTOR,JDV,27,4)
  47       IF (IFLAG.NE.0)              GO TO 71
  48
  49 C--       go to the end
  50
  51    24 IF (LQ(KQS+L).EQ.0)             GO TO 71
  52       L = LQ(KQS+L)
  53       GO TO 24
  54
  55    70 IXDV = MSBYT (JQSTOR,0,27,4)
  56    71 IXTITL = IXDV
  57       LTT    = L
  58
  59 #include "zebra/qtrace99.inc"
  60       RETURN
  61       END
  62 *      ==================================================
  63 #include "zebra/qcardl.inc"