*
* $Id: mzgsta.F,v 1.3 1999/06/18 13:30:27 couet Exp $
*
* $Log: mzgsta.F,v $
* Revision 1.3  1999/06/18 13:30:27  couet
* - qcardl.inc was empty: It is now removed and not used.
*   Comment END CDE removed.
*
* Revision 1.2  1996/04/18 16:12:36  mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1  1996/03/06 10:47:20  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE MZGSTA (IGARB)

C-    Bump garbage collection statistic

#include "zebra/mqsys.inc"
#include "zebra/mzct.inc"
*
      DIMENSION    IGARB(20)


      LMT  = LQMTA
   22 IACT = LQ(LMT+1)
      IF (IACT.LT.3)               GO TO 28
      JDIV = LQ(LMT)
      IF (IACT.EQ.3)               GO TO 26
      NQDWIP(KQT+JDIV) = NQDWIP(KQT+JDIV) + 1
      GO TO 28

   26 IGARB(JDIV) = IGARB(JDIV) + 1
   28 LMT  = LMT + 8
      IF (LMT.LT.LQMTE)            GO TO 22
      RETURN
      END