MINICERN/packlib/zebra/mqs/mzneig.F

   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 MZNEIG (JDIV)
  11
  12 C-    Find the neighbour to division JDIV :
  13 C-    the division MZNEIG shares the reserve area with JDIV
  14
  15 #include "zebra/mqsys.inc"
  16 C--------------    END CDE                             --------------
  17
  18
  19 #include "zebra/q_jbit.inc"
  20
  21       IF (JDIV.GE.3)               GO TO 21
  22       MZNEIG = 3 - JDIV
  23       RETURN
  24
  25    21 MODE = JBIT (IQMODE(KQT+JDIV),1)
  26       NEIG = 1 - 2*MODE
  27       JN   = JDIV + NEIG
  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
  31       JN = JQDVSY
  32       GO TO 27
  33
  34    26 JN = JQDVLL
  35    27 IF (JBIT(IQMODE(KQT+JN),1).EQ.MODE)  GO TO 29
  36       MZNEIG = JN
  37       RETURN
  38
  39 C--                No neighbour
  40
  41    29 MZNEIG = JDIV
  42       RETURN
  43       END
  44 *      ==================================================
  45 #include "zebra/qcardl.inc"