MINICERN/packlib/zebra/dzebra/dzstdv.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/24 17:26:16  mclareni
   6 * Extend the include file cleanup to dzebra, rz and tq, and also add
   7 * dependencies in some cases.
   8 *
   9 * Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
  10 * Zebra
  11 *
  12 *
  13 *-----------------------------------------------------------
  14 #include "zebra/pilot.h"
  15 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  16 #include "zebra/debugvf1.inc"
  17 #endif
  18       SUBROUTINE DZSTDV
  19       SAVE CKINDV,CMODV
  20 #include "zebra/bankparq.inc"
  21 #include "zebra/divparq.inc"
  22 #include "zebra/mqsys.inc"
  23 #include "zebra/qequ.inc"
  24 #include "zebra/mzcn.inc"
  25 #include "zebra/zunit.inc"
  26 #include "zebra/dzc1.inc"
  27       CHARACTER CKINDV(4)*7,CMODV(0:1)*5
  28
  29       CHARACTER CHROUT*(*),CHSTAK*6
  30       PARAMETER (CHROUT = 'DZSTDV')
  31
  32 #include "zebra/q_jbit.inc"
  33 #include "zebra/q_jbyt.inc"
  34
  35 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  36 #include "zebra/debugvf2.inc"
  37 #endif
  38
  39       DATA CKINDV / 'U/EVENT' , ' U/LONG' , 'PACKAGE' , ' SYSTEM' /
  40       DATA CMODV / 'FORWD'   , 'REVRS'   /
  41
  42
  43       CHSTAK          = CQSTAK(MCQSIQ:)
  44       CQSTAK(MCQSIQ:) = CHROUT
  45
  46
  47       CQMAP(1) = ' '
  48       CQMAP(2) = '  --- Division parameters ---'
  49       CQMAP(3) = ' '
  50       CQMAP(4) = '    DIVISION    START    END       MAX    '//
  51      X           'KIND   MODE  WIPES  GARB.  GARB. PUSHES'//
  52      X           '      LIVE BANKS  DROPPED BANKS    BANKS TOTAL'
  53       CQMAP(5) = '  NB.   NAME   ADDRESS ADDRESS  LENGTH    '//
  54      X           '                    SYST.   FREE       '//
  55      X           '  NUMB.   LENGTH NUMB.   LENGTH NUMB.   LENGTH'
  56       CQMAP(6) = ' ========================================='//
  57      X           '======================================='//
  58      X           '=============================================='
  59       CALL DZTEXT(0,CDUMMQ,6)
  60
  61
  62       DO 300 JDIVI = 1,NDVMXQ
  63
  64
  65           IF (JDIVI.GT.JQDVLL.AND.JDIVI.LT.JQDVSY)         GO TO 300
  66           IMODE  = JBIT(IQMODE(KQT+JDIVI),JDVBFQ)
  67           JKINDU = JBYT(IQKIND(KQT+JDIVI),JDVUSQ,JDVSYQ-NDVIDQ)
  68           IKIND  = MIN(JKINDU/2+1,IDVSYQ)
  69
  70              NBANK  = 0
  71              NDROP  = 0
  72              NBANKL = 0
  73              NDROPL = 0
  74              LN     = LQSTA (KQT+JDIVI)
  75              LIMIT  = LQEND (KQT+JDIVI)
  76              IQFOUL = 0
  77
  78 100          IF (LN.GE.LIMIT)                              GO TO 200
  79                  CALL MZCHLN(NCHEKQ,LN)
  80                  IF(IQFOUL.NE.0)                           GO TO 200
  81                  NBKTOT = IQNX - LN
  82
  83                  IF     (IQND.LT.0)                          THEN
  84                      NDROP  = NDROP  + 1
  85                      NDROPL = NDROPL + NBKTOT
  86                  ELSE
  87                      IF     (JBIT(IQ(KQS+IQLS),IQDROP).EQ.1)     THEN
  88                          NDROP  = NDROP  + 1
  89                          NDROPL = NDROPL + NBKTOT
  90                      ELSE
  91                          NBANK  = NBANK  + 1
  92                          NBANKL = NBANKL + NBKTOT
  93                      ENDIF
  94                  ENDIF
  95
  96                  LN     = IQNX
  97
  98                                                            GO TO 100
  99
 100   200     IF (IQFOUL.EQ.0)                            THEN
 101               WRITE(CQLINE,
 102 #if !defined(CERNLIB_QMIBM)
 103      W        '(I4,2X,2A4,3I8,1X,A7,2X,A5,4I7,2X,3(I6,I9))',ERR=300)
 104 #endif
 105 #if defined(CERNLIB_QMIBM)
 106      W        '(I4,2X,2A4,3I8,1X,A7,2X,A5,4I7,2X,3(I6,I9))')
 107 #endif
 108      W        JDIVI , IQDN1(KQT+JDIVI) , IQDN2(KQT+JDIVI) ,
 109      W        LQSTA(KQT+JDIVI),LQEND(KQT+JDIVI)-1,NQDSIZ(KQT+JDIVI),
 110      W        CKINDV(IKIND) , CMODV(IMODE) , NQDWIP(KQT+JDIVI) ,
 111      W        NQDGAU(KQT+JDIVI),NQDGAF(KQT+JDIVI),NQDPSH(KQT+JDIVI),
 112      W        NBANK , NBANKL , NDROP , NDROPL ,
 113      W        NBANK + NDROP  , NBANKL + NDROPL
 114               CALL DZTEXT(0,CDUMMQ,1)
 115
 116           ELSE
 117
 118
 119               WRITE(CQMAP,'('' ?????? Bank beginning at address='',I8,
 120      W          '' has problems   -- no bank statistics'',/,
 121 #if !defined(CERNLIB_QMIBM)
 122      W          I4,2X,2A4,3I8,1X,A7,2X,A5,4I7,2X)',ERR=300)
 123 #endif
 124 #if defined(CERNLIB_QMIBM)
 125      W          I4,2X,2A4,3I8,1X,A7,2X,A5,4I7,2X)')
 126 #endif
 127      W        LN,           JDIVI,IQDN1(KQT+JDIVI),IQDN2(KQT+JDIVI),
 128      W        LQSTA(KQT+JDIVI),LQEND(KQT+JDIVI)-1,NQDSIZ(KQT+JDIVI),
 129      W        CKINDV(IKIND) , CMODV(IMODE) , NQDWIP(KQT+JDIVI) ,
 130      W        NQDGAU(KQT+JDIVI),NQDGAF(KQT+JDIVI),NQDPSH(KQT+JDIVI)
 131               CALL DZTEXT(0,CDUMMQ,2)
 132
 133           ENDIF
 134
 135   300 CONTINUE
 136
 137   999 CQSTAK(MCQSIQ:) = CHSTAK
 138       END