MINICERN/packlib/zebra/mqg/mztabx.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:12:49  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:20  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE MZTABX
  14
  15 C-    Find all involved divisions, ie. all divisions which
  16 C-    point into the moving divisions
  17
  18 #include "zebra/mqsys.inc"
  19 #include "zebra/mzct.inc"
  20 C--------------    End CDE                             --------------
  21
  22
  23 #include "zebra/q_or.inc"
  24 #include "zebra/q_jbytet.inc"
  25
  26 C--                Merge kinds of active divisions
  27
  28       MERGE = 0
  29       LMT   = LQMTA
  30
  31    22 IF (LQ(LMT+1).LT.2)          GO TO 27
  32       JDIV = LQ(LMT)
  33       MERGE  = IOR (MERGE, IQKIND(KQT+JDIV))
  34    27 LMT  = LMT + 8
  35       IF (LMT.LT.LQMTE)            GO TO 22
  36
  37 C--                Pick divisions pointing
  38
  39       LMT   = LQMTA
  40    32 IF   (LQ(LMT+1))       38, 33, 37
  41    33 JDIV = LQ(LMT)
  42       IF (JBYTET(IQRTO(KQT+JDIV),MERGE,1,26).EQ.0)  GO TO 38
  43       IF (JBYTET(IQRNO(KQT+JDIV),MERGE,1,26).EQ.0)  GO TO 38
  44       LQ(LMT+1) = 1
  45
  46    37 LQMTLU = LMT + 8
  47    38 LMT    = LMT + 8
  48       IF (LMT.LT.LQMTE)            GO TO 32
  49       RETURN
  50       END
  51 *      ==================================================
  52 #include "zebra/qcardl.inc"