*
* $Id: fzophr44.inc,v 1.1.1.1 1996/03/06 10:47:10 mclareni Exp $
*
* $Log: fzophr44.inc,v $
* Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
* Zebra
*
*
*
* fzophr44.inc
*
#if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
      IF (IACMOX.EQ.0)             GO TO 48
      CALL IORITE (LUNX,LQ(LWR),4*NWR,ISW)
      IF (ISW.EQ.0)                GO TO 999
      IF (ISW.NE.2)                GO TO 45
      IF (IQ(KQSP+LQFX+37)+IQ(KQSP+LQFX+38).EQ.0)  GO TO 45
      IQ(KQSP+LQFX+37) = IQ(KQSP+LQFX+19)
      IQ(KQSP+LQFX+38) = IQ(KQSP+LQFX+20)
      GO TO 999

   45 IQUEST(11) = ISW
      CALL ZFATAM ('FZOPHR - error from IORITE.')
#endif
*
* fzophr44.inc
*
#if defined(CERNLIB_QMND3)
      IF (IACMOX.EQ.0)             GO TO 48
      NIL = 0
      ISW = MAGTP (1,LQ(LWR),LUNX,NWR,NIL)
      IF (ISW.EQ.0)                GO TO 999
      IQUEST(12) = MAGTP (20B,NIL,LUNX,NIL,NIL)
      IF (JBIT(IQUEST(12),10).EQ.0)          GO TO 45
      IF (IQ(KQSP+LQFX+37)+IQ(KQSP+LQFX+38).EQ.0)  GO TO 45
      IQ(KQSP+LQFX+37) = IQ(KQSP+LQFX+19)
      IQ(KQSP+LQFX+38) = IQ(KQSP+LQFX+20)
      GO TO 999

   45 IQUEST(11) = ISW
      CALL ZFATAM ('FZOPHR - error from MAGTP.')
#endif