MINICERN/packlib/zebra/fq/fzfilex7.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:08  mclareni
   6 * Zebra
   7 *
   8 *
   9 *
  10 * fzfilex7.inc
  11 *
  12 #if defined(CERNLIB_QMCDC)
  13       IF (NEOFOP.LT.0)  NEOFOP = IOPTT + 2
  14 *    --------------  sequences for output  ---------------------
  15 #endif
  16 *
  17 * fzfilex7.inc
  18 *
  19 #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
  20       IACMO = IOPTY
  21 *    --------------  sequences for output  ---------------------
  22 #endif
  23 *
  24 * fzfilex7.inc
  25 *
  26 #if defined(CERNLIB_QMND3)
  27       IF (IOPTT.NE.0)  THEN
  28           IF (IOPTF.EQ.0)  IOPTY = 1
  29           NEOF = 2
  30         ENDIF
  31       IACMO = IOPTY
  32 *    --------------  sequences for output  ---------------------
  33 #endif