Changes needed by ICC/IFC compiler (Intel)
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / dzebra / dzbkhd.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
e22fdcea 5* Revision 1.1.1.1 1999/05/18 15:55:22 fca
6* AliRoot sources
7*
fe4da5cc 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
e22fdcea 75#if (!defined(CERNLIB_QMIBM))&&(!defined(CERNLIB_QMVAX))
fe4da5cc 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'',
fe4da5cc 79 W I8,''/'',I8,''/'',I8,''/'',A)', ERR=999)
80#endif
81#if defined(CERNLIB_QMVAX)
e22fdcea 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'',
fe4da5cc 85 W I8,''/'',I8,''/'',I8,''/'',A)', IOSTAT=ISTAT)
86#endif
87#if defined(CERNLIB_QMIBM)
e22fdcea 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'',
fe4da5cc 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