[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / mqs / mziocf.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:21  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE MZIOCF (JUP,MXVAL)

C-    Find largest possible size of next group, slave to MZIOCH

#include "zebra/zkrakc.inc"
#include "zebra/quest.inc"
C--------------    END CDE                             --------------
      DIMENSION    MU(99)
      EQUIVALENCE (MU(1),IQHOLK(1))

      EQUIVALENCE (NGR,IQUEST(1)), (NGRU,IQUEST(2))

      DIMENSION    JUP(9), MXVAL(9)


      JU  = JUP(1)
      MXC = MU(JU+2)

      DO 24  JL=2,NGR
      JU = JU + 2
      MXC = MAX (MU(JU+2),MXC)
      IF (MXC.GE.MXVAL(JL))        GO TO 29
   24 CONTINUE
      NGRU = NGR
      RETURN

   29 NGRU = JL - 1
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	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"