[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / mqg / mztabx.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/18 16:12:49  mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1  1996/03/06 10:47:20  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE MZTABX

C-    Find all involved divisions, ie. all divisions which
C-    point into the moving divisions

#include "zebra/mqsys.inc"
#include "zebra/mzct.inc"
C--------------    End CDE                             --------------


#include "zebra/q_or.inc"
#include "zebra/q_jbytet.inc"

C--                Merge kinds of active divisions

      MERGE = 0
      LMT   = LQMTA

   22 IF (LQ(LMT+1).LT.2)          GO TO 27
      JDIV = LQ(LMT)
      MERGE  = IOR (MERGE, IQKIND(KQT+JDIV))
   27 LMT  = LMT + 8
      IF (LMT.LT.LQMTE)            GO TO 22

C--                Pick divisions pointing

      LMT   = LQMTA
   32 IF   (LQ(LMT+1))       38, 33, 37
   33 JDIV = LQ(LMT)
      IF (JBYTET(IQRTO(KQT+JDIV),MERGE,1,26).EQ.0)  GO TO 38
      IF (JBYTET(IQRNO(KQT+JDIV),MERGE,1,26).EQ.0)  GO TO 38
      LQ(LMT+1) = 1

   37 LQMTLU = LMT + 8
   38 LMT    = LMT + 8
      IF (LMT.LT.LQMTE)            GO TO 32
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	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"