MINICERN/packlib/zebra/mqv/zvauto.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:13:23  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE ZVAUTO (MSTORE,IDVTH1,IDVTH2,LOGLEV)
  14
  15 C-    Initiate automatic verification
  16
  17 #include "zebra/zunit.inc"
  18 #include "zebra/mqsysh.inc"
  19 #include "zebra/zvfaut.inc"
  20 #include "zebra/zvfwkc.inc"
  21 C--------------    END CDE                             --------------
  22
  23 #include "zebra/q_jbyt.inc"
  24
  25       IF (IQVID(2).NE.0)           RETURN
  26
  27       IQVSTA = -1
  28       MASKST = MSTORE
  29       IQVLOG = LOGLEV
  30       IQVTHR(1) = IDVTH1
  31       IQVTHR(2) = IDVTH2
  32
  33       IF (IQVTHR(1).LT.0)  IQVSTA = 1
  34       IF (IQVTHR(2).LT.0)  IQVSTA = 1
  35
  36       IF (MSTORE.LE.0)  THEN
  37           IQUEST(1) = -1
  38           MASKST = JBYT (IQUEST(1),2,16)
  39         ENDIF
  40
  41       WRITE (IQLOG,9001) MASKST,IQVTHR,IQVLOG
  42  9001 FORMAT (1X/' ZVAUTO.  Automatic verification initiated',
  43      F' with stores mask= ',Z4,','
  44      F/10X,'Threshold VID=',I5,I10,', Log level=',I3)
  45
  46       RETURN
  47       END
  48 *      ==================================================
  49 #include "zebra/qcardl.inc"