MINICERN/packlib/zebra/mqv/zvauty.F

   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 ZVAUTY
  11
  12 C-    Execute automatic verification
  13
  14 #include "zebra/zunit.inc"
  15 #include "zebra/mqsys.inc"
  16 #include "zebra/zvfaut.inc"
  17 #include "zebra/zvfwkc.inc"
  18 C--------------    END CDE                             --------------
  19 #if !defined(CERNLIB_QTRHOLL)||defined(CERNLIB_A6M)
  20       PARAMETER    (LEVSEC = 2)
  21 #endif
  22 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  23       PARAMETER    (LEVSEC = 4)
  24 #endif
  25 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  26       DIMENSION    NAMESR(2)
  27       DATA  NAMESR / 4HZVAU, 4HTY   /
  28 #endif
  29 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  30       DATA  NAMESR / 6HZVAUTY /
  31 #endif
  32 #if !defined(CERNLIB_QTRHOLL)
  33       CHARACTER    NAMESR*8
  34       PARAMETER   (NAMESR = 'ZVAUTY  ')
  35 #endif
  36
  37       IF (IQVSTA.EQ.0)             RETURN
  38
  39 C--                Check this system call is a primary call
  40
  41       IF (NQTRAC.GE.LEVSEC)        RETURN
  42
  43 C--                Check primary store exists
  44
  45       IF (NQSTOR.EQ.-1)            RETURN
  46
  47 C--                Step the Verify ID
  48
  49       IF (IQVID(2).EQ.2147483647)  THEN
  50           IQVID(1) = IQVID(1) + 1
  51           IQVID(2) = 0
  52         ENDIF
  53
  54       IQVID(2) = IQVID(2) + 1
  55
  56       IF (IQVSTA.GE.0)             GO TO 41
  57
  58 C--                Running in dummy mode
  59
  60       IF (IQVID(1).NE.IQVTHR(1))   RETURN
  61       IF (IQVID(2).NE.IQVTHR(2))   RETURN
  62
  63 C--                Switch to active mode
  64
  65       IQVSTA = 1
  66       IF (IQVLOG.EQ.0)             GO TO 41
  67
  68       DO 24  JST=1,NQSTOR+1
  69       K = NQOFFT(JST)
  70    24 IQTABV(K+10) = IQVLOG
  71
  72 C--                Running in active mode
  73
  74    41 JSTO = JQSTOR
  75       JDIV = JQDIVI
  76
  77 #include "zebra/qtraceq.inc"
  78       CALL ZVERIF (-2, 0, 'Automatic verification')
  79 #include "zebra/qtrace99.inc"
  80
  81       IF (JQSTOR.NE.JSTO)  THEN
  82           IXSTOR = 0
  83           CALL SBYT (JSTO,IXSTOR,27,4)
  84           CALL MZSDIV (IXSTOR,-7)
  85         ENDIF
  86       JQDIVI = JDIV
  87       RETURN
  88       END
  89 *      ==================================================
  90 #include "zebra/qcardl.inc"