[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / mqv / zvdo1.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE ZVDO1

C-    Subsidiary to ZVERIF, check process table

#include "zebra/zstate.inc"
#include "zebra/zunit.inc"
#include "zebra/mqsys.inc"
#include "zebra/mzcwk.inc"
#include "zebra/zvfwkc.inc"
C--------------    End CDE                             --------------
      PARAMETER   (NVECPR=61)
      DIMENSION    MVECPR(NVECPR)
      EQUIVALENCE (MVECPR,NQSTOR)
      CHARACTER    TEXT*8
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HZVDO, 4H1    /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HZVDO1  /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'ZVDO1   ')
#endif

      IQUEST(1) = LOCF (IQTABV(1)) - 1
      IQUEST(2) = LOCF (LQ(1)) - 1
      IQUEST(3) = LOCF(IQWKTB(1)) - LQASTO
      IQUEST(4) = LOCF(IQWKFZ(1)) - LQASTO
      IQUEST(5) = LOCF(IQDN2(20)) - LQATAB

      NQCASE = 0
      IF (NQSTOR.EQ.-1)            GO TO 71
      IF (NQSTOR.LT.0)             GO TO 81
      IF (IQUEST(1).NE.LQATAB)     GO TO 82
      IF (IQUEST(2).NE.LQASTO)     GO TO 83
      IF (LQBTIS.NE.LQATAB-LQASTO) GO TO 84
      IF (IQUEST(3).NE.LQWKTB)     GO TO 85
      IF (IQUEST(4).NE.LQWKFZ)     GO TO 86
      IF (IQUEST(5).NE.NQTSYS)     GO TO 87
      RETURN

   71 WRITE (IQLOG,9071)
      GO TO 98

   87 NQCASE = 1
   86 NQCASE = NQCASE + 1
   85 NQCASE = NQCASE + 1
   84 NQCASE = NQCASE + 1
   83 NQCASE = NQCASE + 1
   82 NQCASE = NQCASE + 1
   81 NQCASE = NQCASE + 1
      NQFATA = 5

      WRITE (IQLOG,9091)
      TEXT = 'NQSTOR'
      WRITE (IQLOG,9099) TEXT,NQSTOR
      TEXT = 'NQOFFT'
      WRITE (IQLOG,9099) TEXT,NQOFFT
      TEXT = 'NQOFFS'
      WRITE (IQLOG,9099) TEXT,NQOFFS
      TEXT = 'NQALLO'
      WRITE (IQLOG,9099) TEXT,NQALLO
      TEXT = '50->end'
      WRITE (IQLOG,9099) TEXT,(MVECPR(J),J=50,NVECPR)

   98 CONTINUE
#include "zebra/qtraceq.inc"
#include "zebra/qtofatal.inc"

 9091 FORMAT (1X/' ZVDO1.   Process parameters overwritten'
     F/10X,'dump common /MZCA/'/1X)
 9071 FORMAT (1X/' ZVDO1.   No Zebra store initialized.')
#if defined(CERNLIB_B32)
 9099 FORMAT (3X,A,1X,5Z10/(12X,5Z10))
#endif
#if !defined(CERNLIB_B32)
 9099 FORMAT (3X,A,1X,4Z18/(12X,4Z18))
#endif
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:47:13 mclareni
	6	* Zebra
	7	*
	8	*
	9	#include "zebra/pilot.h"
	10	SUBROUTINE ZVDO1
	11
	12	C- Subsidiary to ZVERIF, check process table
	13
	14	#include "zebra/zstate.inc"
	15	#include "zebra/zunit.inc"
	16	#include "zebra/mqsys.inc"
	17	#include "zebra/mzcwk.inc"
	18	#include "zebra/zvfwkc.inc"
	19	C-------------- End CDE --------------
	20	PARAMETER (NVECPR=61)
	21	DIMENSION MVECPR(NVECPR)
	22	EQUIVALENCE (MVECPR,NQSTOR)
	23	CHARACTER TEXT*8
	24	#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
	25	DIMENSION NAMESR(2)
	26	DATA NAMESR / 4HZVDO, 4H1 /
	27	#endif
	28	#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
	29	DATA NAMESR / 6HZVDO1 /
	30	#endif
	31	#if !defined(CERNLIB_QTRHOLL)
	32	CHARACTER NAMESR*8
	33	PARAMETER (NAMESR = 'ZVDO1 ')
	34	#endif
	35
	36	IQUEST(1) = LOCF (IQTABV(1)) - 1
	37	IQUEST(2) = LOCF (LQ(1)) - 1
	38	IQUEST(3) = LOCF(IQWKTB(1)) - LQASTO
	39	IQUEST(4) = LOCF(IQWKFZ(1)) - LQASTO
	40	IQUEST(5) = LOCF(IQDN2(20)) - LQATAB
	41
	42	NQCASE = 0
	43	IF (NQSTOR.EQ.-1) GO TO 71
	44	IF (NQSTOR.LT.0) GO TO 81
	45	IF (IQUEST(1).NE.LQATAB) GO TO 82
	46	IF (IQUEST(2).NE.LQASTO) GO TO 83
	47	IF (LQBTIS.NE.LQATAB-LQASTO) GO TO 84
	48	IF (IQUEST(3).NE.LQWKTB) GO TO 85
	49	IF (IQUEST(4).NE.LQWKFZ) GO TO 86
	50	IF (IQUEST(5).NE.NQTSYS) GO TO 87
	51	RETURN
	52
	53	71 WRITE (IQLOG,9071)
	54	GO TO 98
	55
	56	87 NQCASE = 1
	57	86 NQCASE = NQCASE + 1
	58	85 NQCASE = NQCASE + 1
	59	84 NQCASE = NQCASE + 1
	60	83 NQCASE = NQCASE + 1
	61	82 NQCASE = NQCASE + 1
	62	81 NQCASE = NQCASE + 1
	63	NQFATA = 5
	64
65	WRITE (IQLOG,9091)
66	TEXT = 'NQSTOR'
67	WRITE (IQLOG,9099) TEXT,NQSTOR
68	TEXT = 'NQOFFT'
69	WRITE (IQLOG,9099) TEXT,NQOFFT
70	TEXT = 'NQOFFS'
71	WRITE (IQLOG,9099) TEXT,NQOFFS
72	TEXT = 'NQALLO'
73	WRITE (IQLOG,9099) TEXT,NQALLO
74	TEXT = '50->end'
75	WRITE (IQLOG,9099) TEXT,(MVECPR(J),J=50,NVECPR)
76
77	98 CONTINUE
78	#include "zebra/qtraceq.inc"
79	#include "zebra/qtofatal.inc"
80
81	9091 FORMAT (1X/' ZVDO1. Process parameters overwritten'
82	F/10X,'dump common /MZCA/'/1X)
83	9071 FORMAT (1X/' ZVDO1. No Zebra store initialized.')
84	#if defined(CERNLIB_B32)
85	9099 FORMAT (3X,A,1X,5Z10/(12X,5Z10))
86	#endif
87	#if !defined(CERNLIB_B32)
88	9099 FORMAT (3X,A,1X,4Z18/(12X,4Z18))
89	#endif
90	END
91	* ==================================================
92	#include "zebra/qcardl.inc"