MINICERN/packlib/zebra/dzebra/nzleft.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.3  1997/03/14 17:19:29  mclareni
   6 * WNT mods
   7 *
   8 * Revision 1.2.2.1  1997/01/21 11:33:38  mclareni
   9 * All mods for Winnt 96a on winnt branch
  10 *
  11 * Revision 1.2  1996/04/24 17:26:20  mclareni
  12 * Extend the include file cleanup to dzebra, rz and tq, and also add
  13 * dependencies in some cases.
  14 *
  15 * Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
  16 * Zebra
  17 *
  18 *
  19 *-----------------------------------------------------------
  20 #include "zebra/pilot.h"
  21       FUNCTION NZLEFT (IXDIV,IOPT)
  22 #include "zebra/mqsys.inc"
  23
  24 #include "zebra/q_jbit.inc"
  25 #include "zebra/q_jbyt.inc"
  26
  27       CALL MZSDIV (IXDIV,1)
  28
  29
  30       JQDIVR = JQDIVI
  31       IF (JQDIVR.LT.3)                                     GO TO 41
  32       JQMODE = JBIT (IQMODE(KQT+JQDIVR), 1)
  33       JQKIND = JBYT (IQKIND(KQT+JQDIVR),21,4)
  34       JQSHAR = 0
  35       IF (JQMODE.NE.0)                                     GO TO 31
  36
  37
  38       JQDIVN = JQDIVR + 1
  39       IF (JQDIVR.EQ.JQDVLL)                                GO TO 24
  40       IF (JQDIVR.EQ.20)                                    GO TO 25
  41
  42       IF (JBYT(IQKIND(KQT+JQDIVN),21,4).NE.JQKIND)         GO TO 25
  43       IF (JBYT(IQMODE(KQT+JQDIVN),21,4).EQ.JQMODE)         GO TO 25
  44       NZLEFT = LQSTA(KQT+JQDIVN) - LQEND(KQT+JQDIVR)
  45                                                            GO TO 100
  46
  47    24 JQDIVN = JQDVSY
  48    25 L      = MIN(LQSTA(KQT+JQDIVR)+NQDMAX(KQT+JQDIVR),
  49      +               LQSTA(KQT+JQDIVN) )
  50       NZLEFT = L - LQEND(KQT+JQDIVR)
  51                                                            GO TO 100
  52
  53
  54    31 JQDIVN = JQDIVR - 1
  55       IF (JQDIVR.EQ.JQDVSY)                                GO TO 34
  56       IF (JBYT(IQKIND(KQT+JQDIVN),21,4).NE.JQKIND)         GO TO 35
  57       IF (JBYT(IQMODE(KQT+JQDIVN),21,4).EQ.JQMODE)         GO TO 35
  58       NZLEFT = LQSTA(KQT+JQDIVR) - LQEND(KQT+JQDIVN)
  59                                                            GO TO 100
  60
  61    34 JQDIVN = JQDVLL
  62    35 NZLEFT = NQDMAX(KQT+JQDIVR)-LQEND(KQT+JQDIVR)+LQEND(KQT+JQDIVN)
  63                                                            GO TO 100
  64
  65
  66    41 NZLEFT = LQSTA(KQT+2) - LQEND(KQT+1) - NQMINR
  67
  68   100 IQUEST(11) = LQEND(KQT+JQDIVI) - LQSTA(KQT+JQDIVI)
  69
  70       END