[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / dzebra / dziopr.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:06  mclareni
* Zebra
*
*
*-----------------------------------------------------------
#include "zebra/pilot.h"
#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
#include "zebra/debugvf1.inc"
#endif
      SUBROUTINE DZIOPR (IFIRST,ILAST)
#include "zebra/mqsys.inc"
#include "zebra/qequ.inc"
#include "zebra/mzioc.inc"
#include "zebra/zbcdk.inc"
#include "zebra/zunit.inc"
#include "zebra/dzc1.inc"
#include "zebra/questparq.inc"
#include "zebra/bkfoparq.inc"

      CHARACTER CHROUT*(*),CHSTAK*6
      PARAMETER (CHROUT = 'DZIOPR')

#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
#include "zebra/debugvf2.inc"
#endif


      CHSTAK          = CQSTAK(MCQSIQ:)
      CQSTAK(MCQSIQ:) = CHROUT


      IF (IFLOPT(MPOSZQ).NE.0) THEN
          MFO(1) = IFOBIQ
          MFO(2) = -1
      ELSE
          CALL MZIOCR(LQ(KQS+LN))

          IF (IQUEST(1).LT.0) THEN
              CALL DZBKDV(LS)
              IF (IQUEST(1).NE.0)                          GO TO 999
              WRITE(CQINFO,'(A,''/'',I8,'','',I8,''/'',Z8)')
     +         CQDIV,LS,LN,LQ(KQS+LN)
              CALL DZTEXT(MIOP1Q,CDUMMQ,0)
                                                           GO TO 999
          ELSE
              IQUEST(1) = 0
          ENDIF
      ENDIF

      IF (IFLOPT(MPOSDQ).NE.0) THEN
          CALL DZIOPD(IFIRST,ILAST)
      ELSE
          CALL DZIOPH(IFIRST,ILAST)
      ENDIF

  999 CQSTAK(MCQSIQ:) = CHSTAK
      RETURN
      END
Commit	Line	Data
fe4da5cc	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 DZIOPR (IFIRST,ILAST)
	15	#include "zebra/mqsys.inc"
	16	#include "zebra/qequ.inc"
	17	#include "zebra/mzioc.inc"
	18	#include "zebra/zbcdk.inc"
	19	#include "zebra/zunit.inc"
	20	#include "zebra/dzc1.inc"
	21	#include "zebra/questparq.inc"
	22	#include "zebra/bkfoparq.inc"
	23
	24	CHARACTER CHROUT(),CHSTAK*6
	25	PARAMETER (CHROUT = 'DZIOPR')
	26
	27	#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
	28	#include "zebra/debugvf2.inc"
	29	#endif
	30
	31
	32	CHSTAK = CQSTAK(MCQSIQ:)
	33	CQSTAK(MCQSIQ:) = CHROUT
	34
	35
	36	IF (IFLOPT(MPOSZQ).NE.0) THEN
	37	MFO(1) = IFOBIQ
	38	MFO(2) = -1
	39	ELSE
	40	CALL MZIOCR(LQ(KQS+LN))
	41
	42	IF (IQUEST(1).LT.0) THEN
	43	CALL DZBKDV(LS)
	44	IF (IQUEST(1).NE.0) GO TO 999
	45	WRITE(CQINFO,'(A,''/'',I8,'','',I8,''/'',Z8)')
	46	+ CQDIV,LS,LN,LQ(KQS+LN)
	47	CALL DZTEXT(MIOP1Q,CDUMMQ,0)
	48	GO TO 999
	49	ELSE
	50	IQUEST(1) = 0
	51	ENDIF
	52	ENDIF
	53
	54	IF (IFLOPT(MPOSDQ).NE.0) THEN
	55	CALL DZIOPD(IFIRST,ILAST)
	56	ELSE
	57	CALL DZIOPH(IFIRST,ILAST)
	58	ENDIF
	59
	60	999 CQSTAK(MCQSIQ:) = CHSTAK
	61	RETURN
	62	END