MINICERN/packlib/zebra/fq/fzendicx.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 * fzendicx.inc
  11 *
  12 #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
  13 #if !defined(CERNLIB_QIBM_VM)
  14       CALL IODD (LUNF,ISW)
  15 #endif
  16 #endif
  17 #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
  18       CALL IOMOVE (LUNF,-1,ISW)
  19 *    --------------  sequences for FZMACH  ---------------------
  20 #endif