5 * Revision 1.1.1.1 1996/03/06 10:47:22 mclareni
9 #include "zebra/pilot.h"
10 FUNCTION MZNEIG (JDIV)
12 C- Find the neighbour to division JDIV :
13 C- the division MZNEIG shares the reserve area with JDIV
15 #include "zebra/mqsys.inc"
16 C-------------- END CDE --------------
19 #include "zebra/q_jbit.inc"
21 IF (JDIV.GE.3) GO TO 21
25 21 MODE = JBIT (IQMODE(KQT+JDIV),1)
28 IF (JN.GE.21) GO TO 29
29 IF (JN.EQ.JQDVSY-1) GO TO 26
30 IF (JN.NE.JQDVLL+1) GO TO 27
35 27 IF (JBIT(IQMODE(KQT+JN),1).EQ.MODE) GO TO 29
44 * ==================================================
45 #include "zebra/qcardl.inc"