5 * Revision 1.1.1.1 1996/03/06 10:47:12 mclareni
9 #include "zebra/pilot.h"
10 FUNCTION LZSCAN (IXDIVP,LGOP)
12 C- Find first bank 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), LGOP(9)
19 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
21 DATA NAMESR / 4HLZSC, 4HAN /
23 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
24 DATA NAMESR / 6HLZSCAN /
26 #if !defined(CERNLIB_QTRHOLL)
28 PARAMETER (NAMESR = 'LZSCAN ')
31 #include "zebra/q_jbit.inc"
37 LSTA = LQSTA(KQT+JQDIVI)
39 LEND = LQEND(KQT+JQDIVI)
41 IF (LGO.EQ.0) GO TO 31
43 IF (LGO.LT.LSTA) GO TO 91
44 IF (LGO.GE.LEND) GO TO 91
47 IF (IQFOUL.NE.0) GO TO 92
50 IF (LN.GE.LEND) GO TO 39
52 IF (IQFOUL.NE.0) GO TO 93
53 IF (IQND.LT.0) GO TO 31
54 IQUEST(1) = JBIT(IQ(KQS+IQLS),IQDROP)
61 C------ ERROR CONDITIONS
66 92 NQCASE = NQCASE + 1
67 91 NQCASE = NQCASE + 1
75 #include "zebra/qtrace.inc"
76 #include "zebra/qtofatal.inc"
79 * ==================================================
80 #include "zebra/qcardl.inc"