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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:22  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      FUNCTION LZFIDH (IXDIVP,IDHP,LGOP)

C-    Find first bank with IDH in division IXDIV after bank at LGO
C-    user called

#include "zebra/mqsys.inc"
#include "zebra/mzcn.inc"
C--------------    END CDE                             --------------
      DIMENSION    IXDIVP(9), IDHP(9), LGOP(9)
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HLZFI, 4HDH   /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HLZFIDH /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'LZFIDH  ')
#endif

#include "zebra/q_jbit.inc"

      IXIN = IXDIVP(1)
      IDH  = IDHP(1)
      LGO  = LGOP(1)

      CALL MZSDIV (IXIN,4)
      LSTA = LQSTA(KQT+JQDIVI)
      IQNX = LSTA
      LEND = LQEND(KQT+JQDIVI)

      IF (LGO.EQ.0)                GO TO 31

      IF (LGO.LT.LSTA)             GO TO 91
      IF (LGO.GE.LEND)             GO TO 91

      CALL MZCHLS (-7,LGO)
      IF (IQFOUL.NE.0)             GO TO 92

   31 LN   = IQNX
      IF (LN.GE.LEND)              GO TO 39
      CALL MZCHLN (-7,LN)
      IF (IQFOUL.NE.0)             GO TO 93
      IF (IQND.LT.0)               GO TO 31
      IF (IQID.NE.IDH)             GO TO 31
      IF (JBIT(IQ(KQS+IQLS),IQDROP).NE.0)  GO TO 31
      LZFIDH = IQLS
      RETURN

   39 LZFIDH = 0
      RETURN

C------            ERROR CONDITIONS

   93 NQCASE = 1
      NQFATA = 1
      IQUEST(17) = LN
   92 NQCASE = NQCASE + 1
   91 NQCASE = NQCASE + 1
      NQFATA = NQFATA + 6
      IQUEST(11) = IXIN
      IQUEST(12) = IDH
      IQUEST(13) = 0
      IQUEST(14) = LGO
      IQUEST(15) = LSTA
      IQUEST(16) = LEND
#include "zebra/qtrace.inc"
#include "zebra/qtofatal.inc"
      LZFIDH = 0
      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:22 mclareni
	6	* Zebra
	7	*
	8	*
	9	#include "zebra/pilot.h"
	10	FUNCTION LZFIDH (IXDIVP,IDHP,LGOP)
	11
	12	C- Find first bank with IDH in division IXDIV after bank at LGO
	13	C- user called
	14
	15	#include "zebra/mqsys.inc"
	16	#include "zebra/mzcn.inc"
	17	C-------------- END CDE --------------
	18	DIMENSION IXDIVP(9), IDHP(9), LGOP(9)
	19	#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
	20	DIMENSION NAMESR(2)
	21	DATA NAMESR / 4HLZFI, 4HDH /
	22	#endif
	23	#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
	24	DATA NAMESR / 6HLZFIDH /
	25	#endif
	26	#if !defined(CERNLIB_QTRHOLL)
	27	CHARACTER NAMESR*8
	28	PARAMETER (NAMESR = 'LZFIDH ')
	29	#endif
	30
	31	#include "zebra/q_jbit.inc"
	32
	33	IXIN = IXDIVP(1)
	34	IDH = IDHP(1)
	35	LGO = LGOP(1)
	36
	37	CALL MZSDIV (IXIN,4)
	38	LSTA = LQSTA(KQT+JQDIVI)
	39	IQNX = LSTA
	40	LEND = LQEND(KQT+JQDIVI)
	41
	42	IF (LGO.EQ.0) GO TO 31
	43
	44	IF (LGO.LT.LSTA) GO TO 91
	45	IF (LGO.GE.LEND) GO TO 91
	46
	47	CALL MZCHLS (-7,LGO)
	48	IF (IQFOUL.NE.0) GO TO 92
	49
	50	31 LN = IQNX
	51	IF (LN.GE.LEND) GO TO 39
	52	CALL MZCHLN (-7,LN)
	53	IF (IQFOUL.NE.0) GO TO 93
	54	IF (IQND.LT.0) GO TO 31
	55	IF (IQID.NE.IDH) GO TO 31
	56	IF (JBIT(IQ(KQS+IQLS),IQDROP).NE.0) GO TO 31
	57	LZFIDH = IQLS
	58	RETURN
	59
	60	39 LZFIDH = 0
	61	RETURN
	62
	63	C------ ERROR CONDITIONS
	64
65	93 NQCASE = 1
66	NQFATA = 1
67	IQUEST(17) = LN
68	92 NQCASE = NQCASE + 1
69	91 NQCASE = NQCASE + 1
70	NQFATA = NQFATA + 6
71	IQUEST(11) = IXIN
72	IQUEST(12) = IDH
73	IQUEST(13) = 0
74	IQUEST(14) = LGO
75	IQUEST(15) = LSTA
76	IQUEST(16) = LEND
77	#include "zebra/qtrace.inc"
78	#include "zebra/qtofatal.inc"
79	LZFIDH = 0
80	END
81	* ==================================================
82	#include "zebra/qcardl.inc"