MINICERN/packlib/zebra/mqs/mzfdiv.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:13:01  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:22  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       FUNCTION MZFDIV (IXST,LIXP)
  14
  15 C-    Find the division into which LIX points, in the current store;
  16 C-    return its number,  not pointing into any : return zero
  17
  18 #include "zebra/mqsys.inc"
  19 C--------------    End CDE                             --------------
  20       DIMENSION    IXST(9), LIXP(9)
  21
  22 #include "zebra/q_jbyt.inc"
  23
  24       IXSTOR = IXST(1)
  25       LIX    = LIXP(1)
  26       IF (IXSTOR.NE.-7)  THEN
  27 #include "zebra/qstore.inc"
  28           JDIVI = 2
  29         ELSE
  30           JDIVI = JQDIVI
  31         ENDIF
  32
  33       IF (JDIVI.EQ.0)              GO TO 21
  34
  35       IF (LIX.LT.LQSTA(KQT+JDIVI))    GO TO 21
  36       IF (LIX.LT.LQEND(KQT+JDIVI))    GO TO 99
  37
  38 C--                Find division
  39
  40    21 JDIVI = 1
  41       IF (LIX.LT.LQEND(KQT+JQDVLL))   GO TO 24
  42       IF (LIX.GE.LQEND(KQT+20))       GO TO 91
  43       JDIVI = JQDVSY
  44
  45    24 IF (LIX.LT.LQEND(KQT+JDIVI))    GO TO 26
  46       JDIVI = JDIVI + 1
  47       GO TO 24
  48
  49    26 IF (LIX.GE.LQSTA(KQT+JDIVI))    GO TO 99
  50
  51    91 JDIVI = 0
  52    99 MZFDIV = JDIVI
  53       RETURN
  54       END
  55 *      ==================================================
  56 #include "zebra/qcardl.inc"