MINICERN/packlib/zebra/mqg/mztabs.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:12:49  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:20  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE MZTABS
  14
  15 C-    Update Memory Occupation table and MQDVAC for shifting
  16 C-    divisions JQDVM1 to JQDVM2 by NQDVMV words
  17
  18 #include "zebra/mqsys.inc"
  19 #include "zebra/mzct.inc"
  20 C--------------    End CDE                             --------------
  21
  22 #include "zebra/q_sbit1.inc"
  23
  24       LMT  = LQMTA
  25    21 LMT  = LMT + 8
  26       JDIV = LQ(LMT)
  27       IF (JDIV.LT.JQDVM1)          GO TO 21
  28       IF (JDIV.GT.JQDVM2)            RETURN
  29
  30       LQ(LMT+2) = LQ(LMT+2) + NQDVMV
  31
  32       IF (LQ(LMT+1).LT.0)          GO TO 21
  33       IF (LQ(LMT+1).GE.2)          GO TO 21
  34       LQ(LMT+1) = 2
  35       MQDVAC = MSBIT1 (MQDVAC,JDIV)
  36       GO TO 21
  37       END
  38 *      ==================================================
  39 #include "zebra/qcardl.inc"