]>
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" |