Merging the VirtualMC branch to the main development branch (HEAD)

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

diff --git a/MINICERN/packlib/zebra/dzebra/dzstdv.F b/MINICERN/packlib/zebra/dzebra/dzstdv.F
deleted file mode 100644 (file)
index 8b58287..0000000
--- a/MINICERN/packlib/zebra/dzebra/dzstdv.F
+++ /dev/null
@@ -1,138 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.2  1996/04/24 17:26:16  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 DZSTDV
-      SAVE CKINDV,CMODV
-#include "zebra/bankparq.inc"
-#include "zebra/divparq.inc"
-#include "zebra/mqsys.inc"
-#include "zebra/qequ.inc"
-#include "zebra/mzcn.inc"
-#include "zebra/zunit.inc"
-#include "zebra/dzc1.inc"
-      CHARACTER CKINDV(4)*7,CMODV(0:1)*5
-
-      CHARACTER CHROUT*(*),CHSTAK*6
-      PARAMETER (CHROUT = 'DZSTDV')
-
-#include "zebra/q_jbit.inc"
-#include "zebra/q_jbyt.inc"
-
-#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
-#include "zebra/debugvf2.inc"
-#endif
-
-      DATA CKINDV / 'U/EVENT' , ' U/LONG' , 'PACKAGE' , ' SYSTEM' /
-      DATA CMODV / 'FORWD'   , 'REVRS'   /
-
-
-      CHSTAK          = CQSTAK(MCQSIQ:)
-      CQSTAK(MCQSIQ:) = CHROUT
-
-
-      CQMAP(1) = ' '
-      CQMAP(2) = '  --- Division parameters ---'
-      CQMAP(3) = ' '
-      CQMAP(4) = '    DIVISION    START    END       MAX    '//
-     X           'KIND   MODE  WIPES  GARB.  GARB. PUSHES'//
-     X           '      LIVE BANKS  DROPPED BANKS    BANKS TOTAL'
-      CQMAP(5) = '  NB.   NAME   ADDRESS ADDRESS  LENGTH    '//
-     X           '                    SYST.   FREE       '//
-     X           '  NUMB.   LENGTH NUMB.   LENGTH NUMB.   LENGTH'
-      CQMAP(6) = ' ========================================='//
-     X           '======================================='//
-     X           '=============================================='
-      CALL DZTEXT(0,CDUMMQ,6)
-
-
-      DO 300 JDIVI = 1,NDVMXQ
-
-
-          IF (JDIVI.GT.JQDVLL.AND.JDIVI.LT.JQDVSY)         GO TO 300
-          IMODE  = JBIT(IQMODE(KQT+JDIVI),JDVBFQ)
-          JKINDU = JBYT(IQKIND(KQT+JDIVI),JDVUSQ,JDVSYQ-NDVIDQ)
-          IKIND  = MIN(JKINDU/2+1,IDVSYQ)
-
-             NBANK  = 0
-             NDROP  = 0
-             NBANKL = 0
-             NDROPL = 0
-             LN     = LQSTA (KQT+JDIVI)
-             LIMIT  = LQEND (KQT+JDIVI)
-             IQFOUL = 0
-
-100          IF (LN.GE.LIMIT)                              GO TO 200
-                 CALL MZCHLN(NCHEKQ,LN)
-                 IF(IQFOUL.NE.0)                           GO TO 200
-                 NBKTOT = IQNX - LN
-
-                 IF     (IQND.LT.0)                          THEN
-                     NDROP  = NDROP  + 1
-                     NDROPL = NDROPL + NBKTOT
-                 ELSE
-                     IF     (JBIT(IQ(KQS+IQLS),IQDROP).EQ.1)     THEN
-                         NDROP  = NDROP  + 1
-                         NDROPL = NDROPL + NBKTOT
-                     ELSE
-                         NBANK  = NBANK  + 1
-                         NBANKL = NBANKL + NBKTOT
-                     ENDIF
-                 ENDIF
-
-                 LN     = IQNX
-
-                                                           GO TO 100
-
-  200     IF (IQFOUL.EQ.0)                            THEN
-              WRITE(CQLINE,
-#if !defined(CERNLIB_QMIBM)
-     W        '(I4,2X,2A4,3I8,1X,A7,2X,A5,4I7,2X,3(I6,I9))',ERR=300)
-#endif
-#if defined(CERNLIB_QMIBM)
-     W        '(I4,2X,2A4,3I8,1X,A7,2X,A5,4I7,2X,3(I6,I9))')
-#endif
-     W        JDIVI , IQDN1(KQT+JDIVI) , IQDN2(KQT+JDIVI) ,
-     W        LQSTA(KQT+JDIVI),LQEND(KQT+JDIVI)-1,NQDSIZ(KQT+JDIVI),
-     W        CKINDV(IKIND) , CMODV(IMODE) , NQDWIP(KQT+JDIVI) ,
-     W        NQDGAU(KQT+JDIVI),NQDGAF(KQT+JDIVI),NQDPSH(KQT+JDIVI),
-     W        NBANK , NBANKL , NDROP , NDROPL ,
-     W        NBANK + NDROP  , NBANKL + NDROPL
-              CALL DZTEXT(0,CDUMMQ,1)
-
-          ELSE
-
-
-              WRITE(CQMAP,'('' ?????? Bank beginning at address='',I8,
-     W          '' has problems   -- no bank statistics'',/,
-#if !defined(CERNLIB_QMIBM)
-     W          I4,2X,2A4,3I8,1X,A7,2X,A5,4I7,2X)',ERR=300)
-#endif
-#if defined(CERNLIB_QMIBM)
-     W          I4,2X,2A4,3I8,1X,A7,2X,A5,4I7,2X)')
-#endif
-     W        LN,           JDIVI,IQDN1(KQT+JDIVI),IQDN2(KQT+JDIVI),
-     W        LQSTA(KQT+JDIVI),LQEND(KQT+JDIVI)-1,NQDSIZ(KQT+JDIVI),
-     W        CKINDV(IKIND) , CMODV(IMODE) , NQDWIP(KQT+JDIVI) ,
-     W        NQDGAU(KQT+JDIVI),NQDGAF(KQT+JDIVI),NQDPSH(KQT+JDIVI)
-              CALL DZTEXT(0,CDUMMQ,2)
-
-          ENDIF
-
-  300 CONTINUE
-
-  999 CQSTAK(MCQSIQ:) = CHSTAK
-      END