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

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

C-    Push the user VID stack

#include "zebra/zvfaut.inc"
C--------------    END CDE                             --------------

      IF (IQVSTA.EQ.0)             RETURN

      IQVREM(1,6) = IQVREM(1,5)
      IQVREM(2,6) = IQVREM(2,5)

      IQVREM(1,5) = IQVREM(1,4)
      IQVREM(2,5) = IQVREM(2,4)

      IQVREM(1,4) = IQVID(1)
      IQVREM(2,4) = IQVID(2)
      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 ZVAUTU
	11
	12	C- Push the user VID stack
	13
	14	#include "zebra/zvfaut.inc"
	15	C-------------- END CDE --------------
	16
	17	IF (IQVSTA.EQ.0) RETURN
	18
	19	IQVREM(1,6) = IQVREM(1,5)
	20	IQVREM(2,6) = IQVREM(2,5)
	21
	22	IQVREM(1,5) = IQVREM(1,4)
	23	IQVREM(2,5) = IQVREM(2,4)
	24
	25	IQVREM(1,4) = IQVID(1)
	26	IQVREM(2,4) = IQVID(2)
	27	RETURN
	28	END
	29	* ==================================================
	30	#include "zebra/qcardl.inc"