MINICERN/packlib/zebra/fq/fziphd37.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:11  mclareni
   6 * Zebra
   7 *
   8 *
   9 *
  10 * fziphd37.inc
  11 *
  12 #if defined(CERNLIB_QMIBMD)
  13       CALL ADREDKD (LUNI,LQ(LIN),NWMREC,JRECNO,ISW)
  14       IF (ISW.NE.0)                GO TO 840
  15 #elif defined(CERNLIB_QMIRTD)
  16       CALL ADREDKD (LUNI,LQ(LIN),NWMREC,JRECNO,ISW)
  17       IF (ISW.NE.0)                GO TO 840
  18 #elif 1
  19       READ (LUNI,REC=JRECNO,IOSTAT=ISW) (LQ(LIN+J-1),J=1,NWMREC)
  20       IF (ISW.NE.0)                GO TO 840
  21 #endif