Bugfix in AliPoints2Memory

[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / dzebra / dzshow.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/24 17:26:13  mclareni
* Extend the include file cleanup to dzebra, rz and tq, and also add
* dependencies in some cases.
*
* Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
* Zebra
*
*
*-----------------------------------------------------------
#include "zebra/pilot.h"
#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
#include "zebra/debugvf1.inc"
#endif
      SUBROUTINE DZSHOW
     X (CHTEXT,IXSTOR,LBANK,CHOPT,ILINK1,ILINK2,IDATA1,IDATA2)
#include "zebra/bankparq.inc"
#include "zebra/questparq.inc"
#include "zebra/storparq.inc"
#include "zebra/mqsys.inc"
#include "zebra/qequ.inc"
#include "zebra/mzcn.inc"
#include "zebra/zbcdch.inc"
#include "zebra/zbcdk.inc"
#include "zebra/zunit.inc"
#include "zebra/dzc1.inc"
      CHARACTER *(*) CHOPT,CHTEXT

      PARAMETER ( NPDENQ =  3 )
      PARAMETER ( MPDCUQ =  1 )
      PARAMETER ( MPDNCQ =  2 )
      PARAMETER ( MPDNSQ =  3 )

      CHARACTER CHROUT*(*)
      PARAMETER (CHROUT = 'DZSHOW')

#include "zebra/q_jbit.inc"

#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
#include "zebra/debugvf2.inc"
#endif

      CQSTAK = CHROUT//'/'
      IQUEST(1) = 0

      IF (CHTEXT.NE.CDUMMQ)                                    THEN
          CQMAP(1)          = ' '
          CQMAP(2)(1:12)    = ' DZSHOW --- '
          CQMAP(2)(13:100)  = CHTEXT
          CQMAP(2)(101:110) = 'OPTIONS : '
          CQMAP(2)(111:130) = CHOPT
          CALL DZTEXT(0,CDUMMQ,2)
      ENDIF

      CALL DZOPT(CHOPT)

      CALL MZSDIV(IXSTOR,-1)


      IF (LBANK.EQ.0)                                      GO TO 999
      IF (JBIT(IQ(LBANK+KQS),IQDROP).EQ.1)                 GO TO 999


      CALL DZBKUP(0)
      IF (IQUEST(1).NE.0)                                  GO TO 999


      LWORK  = NQOFFS(1) + LQEND(1)  - NPDENQ - 1
      LWORKE = NQOFFS(1) + LQSTA(2)  - NPDENQ


      LCUR   = LBANK
      LEVEL  = 0
      LEVELO = -1


      MAXALL = 0
      NTBANK = 0
      DO 20 I=1,NDVMXQ
          IF(I.LE.JQDVLL.OR.I.GE.JQDVSY)
     I    MAXALL = MAXALL + LQEND(KQT+I) - LQSTA(KQT+I)
   20 CONTINUE



100   IF ( LEVEL.NE.LEVELO )  THEN


          IF(IFLOPT(MPOSVQ).NE.0) THEN
              CQMAP(1) = ' '
              WRITE(CQMAP(2),'('' DZSHOW  +++++ LEVEL '',I5,1X,
     W        10(''+''),T50,''Store  '',2A4,'' at absolute address '',
#if defined(CERNLIB_OCTMAP)
     W        O12,T100,10(''+'') )')
#endif
#if !defined(CERNLIB_OCTMAP)
     W        Z8,T100,10(''+'') )')
#endif
     W        LEVEL,NQSNAM(1),NQSNAM(2),
*  Map  addresses expressed in machine words
#if defined(CERNLIB_WORDMAP)
     W        LQSTOR+1
*  Map addresses expressed in bytes
#endif
#if !defined(CERNLIB_WORDMAP)
     W        (LQSTOR+1)*4
#endif
              CQMAP(3) = ' '
              CALL DZTEXT(0,CDUMMQ,3)
          ENDIF

          LEVELO = LEVEL

      ENDIF


      CALL DZSHPR (LCUR,ILINK1,ILINK2,IDATA1,IDATA2)
      IF (IQUEST(1).NE.0)                                  GO TO 999

      NTBANK = NTBANK + NL + ND + NBKOHQ
      IF (NTBANK.GE.MAXALL) THEN
          WRITE(CQINFO,'(I10,''/'',I10)') MAXALL,NTBANK
          CALL DZTEXT(MSHO1Q,CDUMMQ,0)
                                                           GO TO 999
      ENDIF


      LEVEL  = LEVEL+1
      LWORK  = LWORK + NPDENQ
      IF (LWORK.GE.LWORKE)             THEN
          WRITE(CQINFO,'(I10)') LEVEL
          CALL DZTEXT(MSHO2Q,CDUMMQ,0)
                                                           GO TO 999
      ENDIF


      IF (IFLOPT(MPOSVQ).EQ.0)   NS=0

      LQ(LWORK+MPDCUQ) = LCUR
      LQ(LWORK+MPDNCQ) = NS
      LQ(LWORK+MPDNSQ) = NS


200   IF (LQ(LWORK+MPDNCQ).LE.0)  THEN
          IF (LEVEL.GT.1.OR.IFLOPT(MPOSLQ).NE.0) THEN
              LCUR = LQ(KQS + LQ(LWORK+MPDCUQ))
              LEVEL  = LEVEL - 1
              LWORK  = LWORK - NPDENQ
              IF (LCUR.NE.LNULL)  THEN
                                                           GO TO 100
              ELSE
                  IF (LEVEL.GT.0) THEN
                                                           GO TO 200
                  ELSE
                                                           GO TO 999
                  ENDIF
              ENDIF
          ELSE
              LEVEL = LEVEL-1
              LWORK  = LWORK - NPDENQ
              IF (LEVEL.GT.0) THEN
                                                           GO TO 200
              ELSE
                                                           GO TO 999
              ENDIF
          ENDIF
      ENDIF


      LQ(LWORK+MPDNCQ) = LQ(LWORK+MPDNCQ) - 1
      LCUR = LQ(KQS+LQ(LWORK+MPDCUQ)
     X             -LQ(LWORK+MPDNSQ)+LQ(LWORK+MPDNCQ))

      IF (LCUR.EQ.LNULL)                                   GO TO 200
                                                           GO TO 100

  999 RETURN
      END