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