5 * Revision 1.1.1.1 1996/03/06 10:47:22 mclareni
9 #include "zebra/pilot.h"
10 FUNCTION LZFIDH (IXDIVP,IDHP,LGOP)
12 C- Find first bank with IDH in division IXDIV after bank at LGO
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))
21 DATA NAMESR / 4HLZFI, 4HDH /
23 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
24 DATA NAMESR / 6HLZFIDH /
26 #if !defined(CERNLIB_QTRHOLL)
28 PARAMETER (NAMESR = 'LZFIDH ')
31 #include "zebra/q_jbit.inc"
38 LSTA = LQSTA(KQT+JQDIVI)
40 LEND = LQEND(KQT+JQDIVI)
42 IF (LGO.EQ.0) GO TO 31
44 IF (LGO.LT.LSTA) GO TO 91
45 IF (LGO.GE.LEND) GO TO 91
48 IF (IQFOUL.NE.0) GO TO 92
51 IF (LN.GE.LEND) GO TO 39
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
63 C------ ERROR CONDITIONS
68 92 NQCASE = NQCASE + 1
69 91 NQCASE = NQCASE + 1
77 #include "zebra/qtrace.inc"
78 #include "zebra/qtofatal.inc"
81 * ==================================================
82 #include "zebra/qcardl.inc"