* * $Id: fziphr32.inc,v 1.1.1.1 1996/03/06 10:47:10 mclareni Exp $ * * $Log: fziphr32.inc,v $ * Revision 1.1.1.1 1996/03/06 10:47:10 mclareni * Zebra * * * * fziphr32.inc * #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK)) IF (IACMOI.EQ.0) GO TO 36 NWR = 4*NWMIN CALL IOREAD (LUNI,LQ(LIN),NWR,ISW) IF (ISW.EQ.0) GO TO 39 IF (ISW.EQ.1) GO TO 843 IF (ISW.EQ.2) GO TO 841 IF (ISW.EQ.3) GO TO 843 GO TO 841 #endif * * fziphr32.inc * #if defined(CERNLIB_QMND3) IF (IACMOI.EQ.0) GO TO 36 ISW = MAGTP (0,LQ(LIN),LUNI,NWMIN,NWR) IF (ISW.EQ.0) GO TO 39 IF (ISW.EQ.3) GO TO 841 GO TO 843 * -------------- conversions for input ------------------- #endif