* * $Id: fzophre1.inc,v 1.1.1.1 1996/03/06 10:47:10 mclareni Exp $ * * $Log: fzophre1.inc,v $ * Revision 1.1.1.1 1996/03/06 10:47:10 mclareni * Zebra * * * * fzophre1.inc * #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK)) #if !defined(CERNLIB_QIBM_VM) IF (IACMOX.EQ.0) GO TO 87 CALL IODD (LUNX,ISW) IQUEST(11) = 1 GO TO 89 #endif #endif #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK)) IF (IACMOX.EQ.0) GO TO 87 CALL IOMOVE (LUNX,-1,ISW) IQUEST(11) = 1 GO TO 89 * -------------- sequences for input --------------------- #endif * * fzophre1.inc * #if defined(CERNLIB_QMND3) IF (IACMOX.EQ.0) GO TO 87 DO 84 J=1,NEOFU NIL = 1 CALL MAGTP (12B,NIL,LUNX,NIL,NIL) 84 CONTINUE GO TO 89 * -------------- conversions for output ------------------- #endif