MINICERN/packlib/zebra/mqg/mzwipe.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:20  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE MZWIPE (IXWP)
  11
  12 C-    Wiping, user called
  13
  14 #include "zebra/mqsysh.inc"
  15 #include "zebra/zvfaut.inc"
  16 C--------------    End CDE                             --------------
  17       DIMENSION    IXWP(9)
  18 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  19       DIMENSION    NAMESR(2)
  20       DATA  NAMESR / 4HMZWI, 4HPE   /
  21 #endif
  22 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  23       DATA  NAMESR / 6HMZWIPE /
  24 #endif
  25 #if !defined(CERNLIB_QTRHOLL)
  26       CHARACTER    NAMESR*8
  27       PARAMETER   (NAMESR = 'MZWIPE  ')
  28 #endif
  29
  30 #include "zebra/qtrace.inc"
  31 #if defined(CERNLIB_QDEBUG)
  32       IF (IQVSTA.NE.0)       CALL ZVAUTX
  33 #endif
  34
  35       IXWIPE = IXWP(1)
  36       IF (IXWIPE.EQ.0)  IXWIPE=21
  37
  38       CALL MZGARB (0,IXWIPE)
  39
  40 #include "zebra/qtrace99.inc"
  41       RETURN
  42       END
  43 *      ==================================================
  44 #include "zebra/qcardl.inc"