MINICERN/packlib/zebra/mqs/mziocf.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 MZIOCF (JUP,MXVAL)
  11
  12 C-    Find largest possible size of next group, slave to MZIOCH
  13
  14 #include "zebra/zkrakc.inc"
  15 #include "zebra/quest.inc"
  16 C--------------    END CDE                             --------------
  17       DIMENSION    MU(99)
  18       EQUIVALENCE (MU(1),IQHOLK(1))
  19
  20       EQUIVALENCE (NGR,IQUEST(1)), (NGRU,IQUEST(2))
  21
  22       DIMENSION    JUP(9), MXVAL(9)
  23
  24
  25       JU  = JUP(1)
  26       MXC = MU(JU+2)
  27
  28       DO 24  JL=2,NGR
  29       JU = JU + 2
  30       MXC = MAX (MU(JU+2),MXC)
  31       IF (MXC.GE.MXVAL(JL))        GO TO 29
  32    24 CONTINUE
  33       NGRU = NGR
  34       RETURN
  35
  36    29 NGRU = JL - 1
  37       RETURN
  38       END
  39 *      ==================================================
  40 #include "zebra/qcardl.inc"