MINICERN/packlib/zebra/fq/fzophr44.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 * fzophr44.inc
  11 *
  12 #if (defined(CERNLIB_QMIBM))&&(defined(CERNLIB_IOPACK))
  13       IF (IACMOX.EQ.0)             GO TO 48
  14       CALL IORITE (LUNX,LQ(LWR),4*NWR,ISW)
  15       IF (ISW.EQ.0)                GO TO 999
  16       IF (ISW.NE.2)                GO TO 45
  17       IF (IQ(KQSP+LQFX+37)+IQ(KQSP+LQFX+38).EQ.0)  GO TO 45
  18       IQ(KQSP+LQFX+37) = IQ(KQSP+LQFX+19)
  19       IQ(KQSP+LQFX+38) = IQ(KQSP+LQFX+20)
  20       GO TO 999
  21
  22    45 IQUEST(11) = ISW
  23       CALL ZFATAM ('FZOPHR - error from IORITE.')
  24 #endif
  25 *
  26 * fzophr44.inc
  27 *
  28 #if defined(CERNLIB_QMND3)
  29       IF (IACMOX.EQ.0)             GO TO 48
  30       NIL = 0
  31       ISW = MAGTP (1,LQ(LWR),LUNX,NWR,NIL)
  32       IF (ISW.EQ.0)                GO TO 999
  33       IQUEST(12) = MAGTP (20B,NIL,LUNX,NIL,NIL)
  34       IF (JBIT(IQUEST(12),10).EQ.0)          GO TO 45
  35       IF (IQ(KQSP+LQFX+37)+IQ(KQSP+LQFX+38).EQ.0)  GO TO 45
  36       IQ(KQSP+LQFX+37) = IQ(KQSP+LQFX+19)
  37       IQ(KQSP+LQFX+38) = IQ(KQSP+LQFX+20)
  38       GO TO 999
  39
  40    45 IQUEST(11) = ISW
  41       CALL ZFATAM ('FZOPHR - error from MAGTP.')
  42 #endif