Changes needed by ICC/IFC compiler (Intel)
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / dzebra / dzbkhd.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1999/05/18 15:55:22  fca
6 * AliRoot sources
7 *
8 * Revision 1.2  1996/04/24 17:26:02  mclareni
9 * Extend the include file cleanup to dzebra, rz and tq, and also add
10 * dependencies in some cases.
11 *
12 * Revision 1.1.1.1  1996/03/06 10:47:06  mclareni
13 * Zebra
14 *
15 *
16 *-----------------------------------------------------------
17 #include "zebra/pilot.h"
18 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
19 #include "zebra/debugvf1.inc"
20 #endif
21       SUBROUTINE DZBKHD
22 #include "zebra/bankparq.inc"
23 #include "zebra/questparq.inc"
24 #include "zebra/mqsys.inc"
25 #include "zebra/qequ.inc"
26 #include "zebra/mzcn.inc"
27 #include "zebra/zbcdch.inc"
28 #include "zebra/zbcdk.inc"
29 #include "zebra/zunit.inc"
30 #include "zebra/dzc1.inc"
31
32       CHARACTER CHROUT*(*),CHSTAK*6,CLIVE*1,CLORIG*8
33       PARAMETER (CHROUT = 'DZBKHD')
34
35 #include "zebra/q_jbit.inc"
36 #include "zebra/q_jbyt.inc"
37
38 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
39 #include "zebra/debugvf2.inc"
40 #endif
41
42
43       CHSTAK          = CQSTAK(MCQSIQ:)
44       CQSTAK(MCQSIQ:) = CHROUT
45
46       IF (JBIT(IQ(KQS+LS),IQDROP).EQ.0)            THEN
47
48           CALL DZBKDV(LS)
49           IF (IQUEST(1).NE.0)                              GO TO 999
50
51
52           CALL DZBKUP(LS)
53
54
55           CALL DZBKXR(LS)
56
57           CLIVE = ' '
58       ELSE
59           CLIVE = '('
60       ENDIF
61
62
63       LORIG  = LQLORG(KQS+LS)
64       IF (LORIG.NE.LNULL) THEN
65           IF (LORIG.LT.IQTABV(KQT+13).OR.LORIG.GT.IQTABV(KQT+14)) THEN
66               CLORIG = '_'
67           ELSE
68               WRITE(CLORIG,'(I8)') LQ(KQS+LORIG)
69           ENDIF
70       ELSE
71           CLORIG = '0'
72       ENDIF
73
74
75 #if (!defined(CERNLIB_QMIBM))&&(!defined(CERNLIB_QMVAX))
76       WRITE(CQLINE,
77      W '(1X,A1,A4,''.'',I6,I9,''('',A ,'') SY/US/IO '',Z4,''/'',Z5,
78      W   ''/'',Z4,'' NL/NS/ND'',I5,''/'',I5,''/'',I8,'' N/U/O/@O'',
79      W   I8,''/'',I8,''/'',I8,''/'',A)',                     ERR=999)
80 #endif
81 #if defined(CERNLIB_QMVAX)
82       WRITE(CQLINE,
83      W '(1X,A1,A4,''.'',I6,I9,''('',A ,'') SY/US/IO '',Z4,''/'',Z5,
84      W   ''/'',Z4,'' NL/NS/ND'',I5,''/'',I5,''/'',I8,'' N/U/O/@O'',
85      W   I8,''/'',I8,''/'',I8,''/'',A)',                IOSTAT=ISTAT)
86 #endif
87 #if defined(CERNLIB_QMIBM)
88       WRITE(CQLINE,
89      W '(1X,A1,A4,''.'',I6,I9,''('',A ,'') SY/US/IO '',Z4,''/'',Z5,
90      W   ''/'',Z4,'' NL/NS/ND'',I5,''/'',I5,''/'',I8,'' N/U/O/@O'',
91      W   I8,''/'',I8,''/'',I8,''/'',A)')
92 #endif
93      W   CLIVE, IQWIDH(KQS+LS),IQWIDN(KQS+LS),LS,CQDIV,
94      W   JBYT(IQ(KQS+LS),JBKSYQ,NBKSYQ),JBYT(IQ(KQS+LS),JBKUSQ,NBKUSQ),
95      W   JBYT(LQ(KQS+LN+MBKIOQ),JBKIOQ,NBKIOQ),NL,NS,ND,
96      W   LQ(KQS+LS),LQLUP(KQS+LS),LORIG,CLORIG
97
98       IF (IFLOPT(MPOSQQ).EQ.0) CALL DZTEXT(0,CDUMMQ,1)
99       IQUEST(1) = 0
100
101   999 CQSTAK(MCQSIQ:) = CHSTAK
102       RETURN
103       END