MINICERN/packlib/zebra/dzebra/dzbkdv.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:06  mclareni
   6 * Zebra
   7 *
   8 *
   9 *-----------------------------------------------------------
  10 #include "zebra/pilot.h"
  11 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  12 #include "zebra/debugvf1.inc"
  13 #endif
  14       SUBROUTINE DZBKDV(LBANK)
  15 #include "zebra/questparq.inc"
  16 #include "zebra/mqsys.inc"
  17 #include "zebra/mzcn.inc"
  18 #include "zebra/dzc1.inc"
  19
  20       CHARACTER CHROUT*(*),CHSTAK*6
  21       PARAMETER (CHROUT = 'DZBKDV')
  22
  23 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  24 #include "zebra/debugvf2.inc"
  25 #endif
  26
  27
  28       CHSTAK          = CQSTAK(MCQSIQ:)
  29       CQSTAK(MCQSIQ:) = CHROUT
  30
  31
  32       JQDIVI = 1
  33       IF (LBANK.LT.LQEND(KQT+JQDVLL))                      GO TO 100
  34       IF (LBANK.GE.LQEND(KQT+NDVMXQ)) THEN
  35           CALL DZTEXT(MBKD1Q,CDUMMQ,0)
  36           IQUEST(1) = 1
  37                                                            GO TO 999
  38       ENDIF
  39       JQDIVI = JQDVSY
  40
  41   100 IF (LBANK.LT.LQEND(KQT+JQDIVI))                      GO TO 200
  42       JQDIVI = JQDIVI + 1
  43                                                            GO TO 100
  44
  45   200 IF (LBANK.LT.LQSTA(KQT+JQDIVI)) THEN
  46           CALL DZTEXT(MBKD2Q,CDUMMQ,0)
  47           IQUEST(1) = 1
  48                                                            GO TO 999
  49       ENDIF
  50       CALL UHTOC(IQDN1(KQT+JQDIVI),4,CQDIV(1:),4)
  51       CALL UHTOC(IQDN2(KQT+JQDIVI),4,CQDIV(5:),4)
  52
  53   999 CQSTAK(MCQSIQ:) = CHSTAK
  54       RETURN
  55       END