MINICERN/packlib/zebra/mqv/zvautu.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 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"