5 * Revision 1.1.1.1 1996/03/06 10:47:25 mclareni
9 #include "zebra/pilot.h"
12 ************************************************************************
14 * RZ internal routine to write data according to internal table
15 * previously built by FZOTAB
19 * Author : J.Zoll,R.Brun,B.Holl
21 * Last mod: 25.06.93 JDS Add IEVENT to RZWRT calls
23 ************************************************************************
24 #include "zebra/mqsys.inc"
25 #include "zebra/mzct.inc"
26 #include "zebra/mzcn.inc"
27 #include "zebra/mzioc.inc"
28 #include "zebra/fzcx.inc"
29 #include "zebra/rzclun.inc"
31 *-----------------------------------------------------------------------
37 * Write NWTABX,NWBKX,LENTRX
39 #if !defined(CERNLIB_FQXISN)
46 CALL RZWRT(NWTABX,3,0,IEVENT)
47 IF(IQUEST(1).NE.0) GO TO 99
53 * Write memory description table
56 CALL RZWRT(LQ(LQTA),NWTABX,0,IEVENT)
57 IF(IQUEST(1).NE.0) GO TO 99
65 #if !defined(CERNLIB_FQXISN)
66 IF(IMODEX.LE.0)GO TO 50
72 NST = JBYT(IWD,1,16) - 12
78 IQNIO = JBYT(IQ(KQS+IQLS),19,4)
81 IQNX = IQLS + IQND + 9
83 * First word, I/O words, links, next-link, up-link
95 CALL RZWRT(LQ(KQS+L),N+10,0,IEVENT)
96 IF(IQUEST(1).NE.0) GO TO 99
100 IF( IQND .NE. 0 ) THEN
101 CALL MZIOCR(LQ(KQS+IQLN))
102 IF(IQUEST(1).LT.0)GO TO 99
104 CALL RZWRT(IQ(KQS+IQLS+1),IQND,0,IEVENT)
105 IF(IQUEST(1).NE.0) GO TO 99
110 IF(LTB.LT.LQTE) GO TO 10
124 CALL RZWRT(LQ(KQS+L),N,0,IEVENT)
125 IF(IQUEST(1).NE.0) GO TO 99
128 IF(LTB.LT.LQTE)GO TO 10