* * $Id: fzendicx.inc,v 1.1.1.1 1996/03/06 10:47:10 mclareni Exp $ * * $Log: fzendicx.inc,v $ * Revision 1.1.1.1 1996/03/06 10:47:10 mclareni * Zebra * * * * fzendicx.inc * #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK)) #if !defined(CERNLIB_QIBM_VM) CALL IODD (LUNF,ISW) #endif #endif #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK)) CALL IOMOVE (LUNF,-1,ISW) * -------------- sequences for FZMACH --------------------- #endif