MINICERN/packlib/zebra/fq/fzinxt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10 #if defined(CERNLIB_FZDACC)
  11       SUBROUTINE FZINXT (LUNP,MDSA1,MDSA2)
  12
  13 C-    Set next d/s to be read in direct access mode, user called
  14
  15 #include "zebra/zunit.inc"
  16 #include "zebra/mqsys.inc"
  17 #include "zebra/eqlqf.inc"
  18 #include "zebra/fzci.inc"
  19 C--------------    End CDE                             --------------
  20       DIMENSION    LUNP(9), MDSADR(2)
  21 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  22       DIMENSION    NAMESR(2)
  23       DATA  NAMESR / 4HFZIN, 4HXT   /
  24 #endif
  25 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  26       DATA  NAMESR / 6HFZINXT /
  27 #endif
  28 #if !defined(CERNLIB_QTRHOLL)
  29       CHARACTER    NAMESR*8
  30       PARAMETER   (NAMESR = 'FZINXT  ')
  31 #endif
  32
  33 #include "zebra/qtrace.inc"
  34
  35       LUNNI     = LUNP(1)
  36       MDSADR(1) = MDSA1
  37       MDSADR(2) = MDSA2
  38       IF (LUNNI.NE.LUNI)  CALL FZLOC (LUNNI,1)
  39 #if defined(CERNLIB_QDEBPRI)
  40       IF (LOGLVI.GE.2)  WRITE (IQLOG,9111) LUNNI,MDSADR
  41  9111 FORMAT (' FZINXT-  called for LUN=',I4,' d/s adr=',2I7)
  42 #endif
  43       IF (IFIFOI.NE.2)             GO TO 801
  44
  45       IACTVI = 2
  46       IQ(KQSP+LQFI+2)  = IACTVI
  47       IQ(KQSP+LQFI+27) = 0
  48       IQ(KQSP+LQFI+31) = MDSADR(1)
  49       IQ(KQSP+LQFI+32) = MDSADR(2)
  50       IQ(KQSP+LQFI+33) = -7
  51
  52       LBPARI = LQFI + INCBPI
  53       CALL VZERO (IQ(KQSP+LBPARI-9), 9)
  54 #include "zebra/qtrace99.inc"
  55       RETURN
  56
  57   801 CONTINUE
  58 #if defined(CERNLIB_QDEBPRI)
  59       WRITE (IQLOG,9111) LUNNI,MDSADR
  60 #endif
  61       CALL ZFATAM ('FZINXT - file not ready for direct access.')
  62       END
  63 *      ==================================================
  64 #include "zebra/qcardl.inc"
  65 #endif