MINICERN/packlib/zebra/fq/fzophre1.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
   6 * Zebra
   7 *
   8 *
   9 *
  10 * fzophre1.inc
  11 *
  12 #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
  13 #if !defined(CERNLIB_QIBM_VM)
  14       IF (IACMOX.EQ.0)             GO TO 87
  15       CALL IODD (LUNX,ISW)
  16       IQUEST(11) = 1
  17       GO TO 89
  18 #endif
  19 #endif
  20 #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
  21       IF (IACMOX.EQ.0)             GO TO 87
  22       CALL IOMOVE (LUNX,-1,ISW)
  23       IQUEST(11) = 1
  24       GO TO 89
  25 *    --------------  sequences for input   ---------------------
  26 #endif
  27 *
  28 * fzophre1.inc
  29 *
  30 #if defined(CERNLIB_QMND3)
  31       IF (IACMOX.EQ.0)             GO TO 87
  32       DO 84 J=1,NEOFU
  33       NIL = 1
  34       CALL MAGTP (12B,NIL,LUNX,NIL,NIL)
  35    84 CONTINUE
  36       GO TO 89
  37 *    --------------  conversions for output  -------------------
  38 #endif