5 * Revision 1.1.1.1 1996/03/06 10:47:15 mclareni
9 #include "zebra/pilot.h"
10 #if defined(CERNLIB_FZDACC)
11 SUBROUTINE FZINXT (LUNP,MDSA1,MDSA2)
13 C- Set next d/s to be read in direct access mode, user called
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))
23 DATA NAMESR / 4HFZIN, 4HXT /
25 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
26 DATA NAMESR / 6HFZINXT /
28 #if !defined(CERNLIB_QTRHOLL)
30 PARAMETER (NAMESR = 'FZINXT ')
33 #include "zebra/qtrace.inc"
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)
43 IF (IFIFOI.NE.2) GO TO 801
46 IQ(KQSP+LQFI+2) = IACTVI
48 IQ(KQSP+LQFI+31) = MDSADR(1)
49 IQ(KQSP+LQFI+32) = MDSADR(2)
52 LBPARI = LQFI + INCBPI
53 CALL VZERO (IQ(KQSP+LBPARI-9), 9)
54 #include "zebra/qtrace99.inc"
58 #if defined(CERNLIB_QDEBPRI)
59 WRITE (IQLOG,9111) LUNNI,MDSADR
61 CALL ZFATAM ('FZINXT - file not ready for direct access.')
63 * ==================================================
64 #include "zebra/qcardl.inc"