0c612cf7bf5fc5e345e1eb8686ddc93862951571
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / dzebra / dzbkhd.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.2  1996/04/24 17:26:02  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:06  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 DZBKHD
19 #include "zebra/bankparq.inc"
20 #include "zebra/questparq.inc"
21 #include "zebra/mqsys.inc"
22 #include "zebra/qequ.inc"
23 #include "zebra/mzcn.inc"
24 #include "zebra/zbcdch.inc"
25 #include "zebra/zbcdk.inc"
26 #include "zebra/zunit.inc"
27 #include "zebra/dzc1.inc"
28
29       CHARACTER CHROUT*(*),CHSTAK*6,CLIVE*1,CLORIG*8
30       PARAMETER (CHROUT = 'DZBKHD')
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
40       CHSTAK          = CQSTAK(MCQSIQ:)
41       CQSTAK(MCQSIQ:) = CHROUT
42
43       IF (JBIT(IQ(KQS+LS),IQDROP).EQ.0)            THEN
44
45           CALL DZBKDV(LS)
46           IF (IQUEST(1).NE.0)                              GO TO 999
47
48
49           CALL DZBKUP(LS)
50
51
52           CALL DZBKXR(LS)
53
54           CLIVE = ' '
55       ELSE
56           CLIVE = '('
57       ENDIF
58
59
60       LORIG  = LQLORG(KQS+LS)
61       IF (LORIG.NE.LNULL) THEN
62           IF (LORIG.LT.IQTABV(KQT+13).OR.LORIG.GT.IQTABV(KQT+14)) THEN
63               CLORIG = '_'
64           ELSE
65               WRITE(CLORIG,'(I8)') LQ(KQS+LORIG)
66           ENDIF
67       ELSE
68           CLORIG = '0'
69       ENDIF
70
71
72       WRITE(CQLINE,
73      W '(1X,A1,A4,''.'',I6,I9,''('',A ,'') SY/US/IO '',Z4,''/'',Z5,
74      W   ''/'',Z4,'' NL/NS/ND'',I5,''/'',I5,''/'',I8,'' N/U/O/@O'',
75 #if (!defined(CERNLIB_QMIBM))&&(!defined(CERNLIB_QMVAX))
76      W   I8,''/'',I8,''/'',I8,''/'',A)',                     ERR=999)
77 #endif
78 #if defined(CERNLIB_QMVAX)
79      W   I8,''/'',I8,''/'',I8,''/'',A)',                IOSTAT=ISTAT)
80 #endif
81 #if defined(CERNLIB_QMIBM)
82      W   I8,''/'',I8,''/'',I8,''/'',A)')
83 #endif
84      W   CLIVE, IQWIDH(KQS+LS),IQWIDN(KQS+LS),LS,CQDIV,
85      W   JBYT(IQ(KQS+LS),JBKSYQ,NBKSYQ),JBYT(IQ(KQS+LS),JBKUSQ,NBKUSQ),
86      W   JBYT(LQ(KQS+LN+MBKIOQ),JBKIOQ,NBKIOQ),NL,NS,ND,
87      W   LQ(KQS+LS),LQLUP(KQS+LS),LORIG,CLORIG
88
89       IF (IFLOPT(MPOSQQ).EQ.0) CALL DZTEXT(0,CDUMMQ,1)
90       IQUEST(1) = 0
91
92   999 CQSTAK(MCQSIQ:) = CHSTAK
93       RETURN
94       END