5 * Revision 1.1.1.1 1996/03/06 10:47:22 mclareni
9 #include "zebra/pilot.h"
10 FUNCTION LZFID (IXDIVP,IDHP,IDNP,LGOP)
12 C- Find first bank with IDH/IDN in div. 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), IDNP(9), LGOP(9)
19 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
21 DATA NAMESR / 4HLZFI, 4HD /
23 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
24 DATA NAMESR / 6HLZFID /
26 #if !defined(CERNLIB_QTRHOLL)
28 PARAMETER (NAMESR = 'LZFID ')
31 #include "zebra/q_jbit.inc"
39 LSTA = LQSTA(KQT+JQDIVI)
41 LEND = LQEND(KQT+JQDIVI)
43 IF (LGO.EQ.0) GO TO 31
45 IF (LGO.LT.LSTA) GO TO 91
46 IF (LGO.GE.LEND) GO TO 91
49 IF (IQFOUL.NE.0) GO TO 92
52 IF (LN.GE.LEND) GO TO 39
54 IF (IQFOUL.NE.0) GO TO 93
55 IF (IQND.LT.0) GO TO 31
56 IF (IQ(KQS+IQLS-5).NE.IDN) GO TO 31
57 IF (IQID.NE.IDH) GO TO 31
58 IF (JBIT(IQ(KQS+IQLS),IQDROP).NE.0) GO TO 31
65 C------ ERROR CONDITIONS
70 92 NQCASE = NQCASE + 1
71 91 NQCASE = NQCASE + 1
79 #include "zebra/qtrace.inc"
80 #include "zebra/qtofatal.inc"
83 * ==================================================
84 #include "zebra/qcardl.inc"