MINICERN/packlib/zebra/fq/fzclosex.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 * fzclosex.inc
  11 *
  12 #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
  13       IF (IACMOF.EQ.0)             GO TO 48
  14       CALL IOCLOS (LUNF,ISW)
  15       GO TO 49
  16 #endif
  17 *
  18 * fzclosex.inc
  19 *
  20 #if defined(CERNLIB_QMND3)
  21       IF (IACMOF.NE.0)             GO TO 99
  22 #endif