5 * Revision 1.2 1996/04/24 17:26:20 mclareni
6 * Extend the include file cleanup to dzebra, rz and tq, and also add
7 * dependencies in some cases.
9 * Revision 1.1.1.1 1996/03/06 10:47:07 mclareni
13 *-----------------------------------------------------------
14 #include "zebra/pilot.h"
15 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
16 #include "zebra/debugvf1.inc"
18 SUBROUTINE DZVERI (CHTEXT,IXDIV,CHOPT)
19 #include "zebra/mqsys.inc"
20 #include "zebra/qequ.inc"
21 #include "zebra/mzcn.inc"
22 #include "zebra/zbcdch.inc"
23 #include "zebra/zbcdk.inc"
24 #include "zebra/zmach.inc"
25 #include "zebra/zunit.inc"
26 #include "zebra/dzc1.inc"
27 #include "zebra/bankparq.inc"
28 #include "zebra/divparq.inc"
29 #include "zebra/questparq.inc"
30 #include "zebra/storparq.inc"
32 PARAMETER (KINUSQ=2**(IDVUSQ-1),KINSYQ=2**(IDVSYQ-1))
34 CHARACTER*(*) CHOPT,CHTEXT
36 PARAMETER (CHROUT = 'DZVERI')
38 #include "zebra/q_jbit.inc"
39 #include "zebra/q_jbyt.inc"
41 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
42 #include "zebra/debugvf2.inc"
48 CALL MZSDIV (IXDIV,-1)
57 IF (IFLOPT(MPOSSQ).NE.0.AND.IFLOPT(MPOSCQ).EQ.0) THEN
60 IF (IFLOPT(MPOSLQ).NE.0) THEN
65 IF (IFLOPT(MPOSSQ).EQ.0) GO TO 1000
68 DO 100 IFENCE=-NQFEND+1,0
69 IF(LQ(KQS+IFENCE).NE.IQNIL) THEN
70 WRITE (CQINFO,'(I5,1X,Z16)') IFENCE,LQ(KQS+IFENCE)
71 CALL DZTEXT(MSNA1Q,CDUMMQ,0)
77 IF ((LQ(KQS+LQSTA(KQT+21)+1).NE.IQNIL) .OR.
78 X (LQ(KQS+LQSTA(KQT+21)+2).NE.IQNIL) ) THEN
79 WRITE (CQINFO,'(Z16,1X,Z16)')
80 X LQ(KQS+LQSTA(KQT+21)+1),LQ(KQS+LQSTA(KQT+21)+2)
81 CALL DZTEXT(MSNA2Q,CDUMMQ,0)
85 IF(NQSTRU.GT.NQREF) THEN
86 WRITE (CQINFO,'(I8,''>'',I8)') NQSTRU,NQREF
87 CALL DZTEXT(MSNA3Q,CDUMMQ,0)
91 IF(NQREF.GT.NQLINK) THEN
92 WRITE (CQINFO,'(I8,''>'',I8)') NQREF,NQLINK
93 CALL DZTEXT(MSNA4Q,CDUMMQ,0)
97 IF(LQSTA(KQT+2)-LQEND(KQT+1).LT.NQMINR) THEN
98 WRITE (CQINFO,'(I8,''-'',I8,''<'',I8)')
99 X LQSTA(KQT+2),LQEND(KQT+1),NQMINR
100 CALL DZTEXT(MSNA5Q,CDUMMQ,0)
104 IF(NQMINR.GT.LQ2END) THEN
105 WRITE (CQINFO,'(I8,''>'',I8)') NQMINR,LQ2END
106 CALL DZTEXT(MSNA6Q,CDUMMQ,0)
110 IF(LQ2END.GT.LQSTA(KQT+21)) THEN
111 WRITE (CQINFO,'(I8,''>'',I8)') LQ2END,LQSTA(KQT+21)
112 CALL DZTEXT(MSNA7Q,CDUMMQ,0)
119 DO 300 JDIVI=1,NDVMXQ
120 IF(JDIVI.GT.JQDVLL.AND.JDIVI.LT.JQDVSY) GO TO 300
122 CALL UHTOC (IQDN1(KQT+JDIVI),4,CQDIV(1:4),4)
123 CALL UHTOC (IQDN2(KQT+JDIVI),4,CQDIV(5:8),4)
126 IF(LQSTA(KQT+JDIVI).GT.LQEND(KQT+JDIVI)) THEN
127 WRITE (CQINFO(10:),'(I8,''>'',I8)')
128 X LQSTA(KQT+JDIVI),LQEND(KQT+JDIVI)
129 CALL DZTEXT(MVER1Q,CDUMMQ,0)
133 IF(LQSTA(KQT+JDIVI).LT.LPREV ) THEN
134 WRITE (CQINFO(10:),'(I8,''<'',I8)') LQSTA(KQT+JDIVI),LPREV
135 CALL DZTEXT(MVER2Q,CDUMMQ,0)
139 IF((LQEND(KQT+JDIVI)-LQSTA(KQT+JDIVI)).GT.
140 X NQDMAX(KQT+JDIVI) ) THEN
141 WRITE (CQINFO(10:),'(I8,''>'',I8)')
142 X (LQEND(KQT+JDIVI)-LQSTA(KQT+JDIVI)),NQDMAX(KQT+JDIVI)
143 CALL DZTEXT(MVER3Q,CDUMMQ,0)
147 IF(IQMODE(KQT+JDIVI).NE.IDVFWQ .AND.
148 X IQMODE(KQT+JDIVI).NE.IDVBWQ ) THEN
149 WRITE (CQINFO(10:),'(I10)') IQMODE(KQT+JDIVI)
150 CALL DZTEXT(MVER4Q,CDUMMQ,0)
154 MKIND = IQKIND(KQT+JDIVI)
157 IF(I.NE.JDIVI.AND.JBIT(MKIND,I).EQ.1) THEN
158 WRITE (CQINFO(10:),'(I2,'', /'',I2)') JDIVI,I
159 CALL UHTOC (IQDN1(KQT+JDIVI),4,CQINFO(13:16),4)
160 CALL UHTOC (IQDN2(KQT+JDIVI),4,CQINFO(17:20),4)
161 CALL DZTEXT(MVER5Q,CDUMMQ,0)
166 MKIND = JBYT(MKIND,JDVUSQ,JDVSYQ-NDVIDQ)
167 IF(JDIVI.LE.JQDVLL) THEN
168 IF(MKIND.NE.KINUSQ) THEN
169 WRITE (CQINFO(10:),'(4I5)') JDIVI,JQDVLL,JQDVSY,MKIND
170 CALL DZTEXT(MVER6Q,CDUMMQ,0)
173 ELSEIF(JDIVI.EQ.JQDVSY) THEN
174 IF(MKIND.NE.KINSYQ) THEN
175 WRITE (CQINFO(10:),'(4I5)') JDIVI,JQDVLL,JQDVSY,MKIND
176 CALL DZTEXT(MVER7Q,CDUMMQ,0)
180 IF(MKIND.EQ.KINUSQ.OR.MKIND.EQ.KINSYQ) THEN
181 WRITE (CQINFO(10:),'(4I5)') JDIVI,JQDVLL,JQDVSY,MKIND
182 CALL DZTEXT(MVER8Q,CDUMMQ,0)
186 LPREV = LQEND(KQT+JDIVI)
191 1000 IF (ICHAIN.EQ.0) GO TO 1999
193 IF (ISTRUC.NE.0) THEN
198 IF (IQUEST(1).NE.0) GO TO 998
203 CALL UCOPY(IFLOPT,IQUEST(71),26)
204 CALL VZERO(IFLOPT,26)
207 CALL DZARE1('DZVERI L option',' ',0,'NQ')
208 CALL UCOPY(IQUEST(71),IFLOPT,26)
211 IF (JBYT(IXDIV,1,JSTIDQ-1).EQ.0) THEN
212 JJDIV = MZIXCO(IXDIV+21,IXDIV+22,0,0)
213 JJDIV = MZDVAC(JJDIV)
215 JJDIV = MZDVAC (IXDIV)
218 DO 1700 JDIVI = 1,NDVMXQ
219 IF (JDIVI.GT.JQDVLL.AND.JDIVI.LT.JQDVSY) GO TO 1700
221 IF (JBIT(JJDIV,JDIVI).EQ.0) GO TO 1700
223 CALL UHTOC (IQDN1(KQT+JDIVI),4,CQDIV(1:4),4)
224 CALL UHTOC (IQDN2(KQT+JDIVI),4,CQDIV(5:8),4)
230 IF (IQUEST(1).NE.0) GO TO 998
233 LN = LQSTA(KQT+JDIVI)
234 1300 IF (LN.LT.LQEND(KQT+JDIVI)) THEN
235 CALL MZCHLN(NCHEKQ,LN)
236 IF (IQFOUL.NE.0) THEN
237 WRITE(CQINFO(10:),'(3I10)') JDIVI,LN,IQFOUL
238 CALL DZTEXT(MVER9Q,CDUMMQ,0)
244 IF (IQND.LT.0) GO TO 1300
245 IF (JBIT(IQ(KQS+LS),IQDROP).EQ.1) GO TO 1300
248 IF (ISTRUC.EQ.1) THEN
252 IF (LQ(L).EQ.0) GO TO 1400
253 CALL MZCHLS(NCHEKQ,LQ(L))
254 IF (IQFOUL.NE.0) THEN
256 IF (IQUEST(1).NE.0) GO TO 998
258 X '(I8,'','',A,''/'',I8,'','',I4)')
259 X L-KQS,CQDIV,LQ(L),IQFOUL
264 IF (IQUEST(1).NE.0) GO TO 998
266 IF (IQUEST(1).NE.0) GO TO 998
273 1999 IF (CHTEXT.NE.CDUMMQ) THEN
275 CQMAP(2) = ' DZVERI --- '
276 CQMAP(2)(13:99) = CHTEXT
277 CQMAP(2)(101:110) = 'OPTIONS : '
278 CQMAP(2)(111:120) = CHOPT
279 CQMAP(2)(126:) = 'OK'
280 CALL DZTEXT(0,CDUMMQ,2)
285 998 IF (CHTEXT.NE.CDUMMQ) THEN
287 CQMAP(2) = ' DZVERI --- '
288 CQMAP(2)(13:99) = CHTEXT
289 CQMAP(2)(101:110) = 'OPTIONS : '
290 CQMAP(2)(111:115) = CHOPT
291 CQMAP(2)(117:) = '??PROBLEMS ? '
292 CALL DZTEXT(0,CDUMMQ,2)
309 IF(L.GE.LQSTA(KQT+JDIVI).AND.L.LT.LQEND(KQT+JDIVI)) THEN
316 IQUEST(20) = LQLUP(KQS+LS)
317 IQUEST(21) = LQLORG(KQS+LS)
322 IF(IFLOPT(MPOSFQ).NE.0) CALL ZFATAM(CHROUT)