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

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

C-    Execute automatic verification

#include "zebra/zunit.inc"
#include "zebra/mqsys.inc"
#include "zebra/zvfaut.inc"
#include "zebra/zvfwkc.inc"
C--------------    END CDE                             --------------
#if !defined(CERNLIB_QTRHOLL)||defined(CERNLIB_A6M)
      PARAMETER    (LEVSEC = 2)
#endif
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      PARAMETER    (LEVSEC = 4)
#endif
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HZVAU, 4HTY   /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HZVAUTY /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'ZVAUTY  ')
#endif

      IF (IQVSTA.EQ.0)             RETURN

C--                Check this system call is a primary call

      IF (NQTRAC.GE.LEVSEC)        RETURN

C--                Check primary store exists

      IF (NQSTOR.EQ.-1)            RETURN

C--                Step the Verify ID

      IF (IQVID(2).EQ.2147483647)  THEN
          IQVID(1) = IQVID(1) + 1
          IQVID(2) = 0
        ENDIF

      IQVID(2) = IQVID(2) + 1

      IF (IQVSTA.GE.0)             GO TO 41

C--                Running in dummy mode

      IF (IQVID(1).NE.IQVTHR(1))   RETURN
      IF (IQVID(2).NE.IQVTHR(2))   RETURN

C--                Switch to active mode

      IQVSTA = 1
      IF (IQVLOG.EQ.0)             GO TO 41

      DO 24  JST=1,NQSTOR+1
      K = NQOFFT(JST)
   24 IQTABV(K+10) = IQVLOG

C--                Running in active mode

   41 JSTO = JQSTOR
      JDIV = JQDIVI

#include "zebra/qtraceq.inc"
      CALL ZVERIF (-2, 0, 'Automatic verification')
#include "zebra/qtrace99.inc"

      IF (JQSTOR.NE.JSTO)  THEN
          IXSTOR = 0
          CALL SBYT (JSTO,IXSTOR,27,4)
          CALL MZSDIV (IXSTOR,-7)
        ENDIF
      JQDIVI = JDIV
      RETURN
      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 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"