]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/03/06 10:47:14 mclareni | |
6 | * Zebra | |
7 | * | |
8 | * | |
9 | #include "zebra/pilot.h" | |
10 | #if !defined(CERNLIB_FQXISN) | |
11 | SUBROUTINE FZOTRX (MBAT,NWBAT) | |
12 | ||
13 | C- Transmit one batch of data to the output buffer, | |
14 | C- exchange file format, exchange data format | |
15 | C- service routine to FZOUT | |
16 | C- careful : must not be called with NWBAT=0 | |
17 | ||
18 | #include "zebra/zunit.inc" | |
19 | #include "zebra/mqsys.inc" | |
20 | #include "zebra/eqlqf.inc" | |
21 | #include "zebra/mzioc.inc" | |
22 | #include "zebra/fzcx.inc" | |
23 | C-------------- End CDE -------------- | |
24 | DIMENSION MBAT(99), NWBAT(9) | |
25 | #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M)) | |
26 | DIMENSION NAMESR(2) | |
27 | DATA NAMESR / 4HFZOT, 4HRX / | |
28 | #endif | |
29 | #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M)) | |
30 | DATA NAMESR / 6HFZOTRX / | |
31 | #endif | |
32 | #if !defined(CERNLIB_QTRHOLL) | |
33 | CHARACTER NAMESR*8 | |
34 | PARAMETER (NAMESR = 'FZOTRX ') | |
35 | #endif | |
36 | ||
37 | ||
38 | * quick trace without test on capacity | |
39 | #include "zebra/qtraceq.inc" | |
40 | ||
41 | NWFOTT = NWBAT(1) | |
42 | NWFORE = NWFOTT | |
43 | NWFODN = 0 | |
44 | IF (IDX(2).NE.0) GO TO 44 | |
45 | ||
46 | 24 CALL FZOCV (MBAT,LQ(L4CURX)) | |
47 | L4CURX = L4CURX + IQUEST(1) | |
48 | ||
49 | 27 IF (NWFOAV.LE.0) GO TO 41 | |
50 | 991 IF (IFOCON(1).NE.0) GO TO 71 | |
51 | #include "zebra/qtrace99.inc" | |
52 | RETURN | |
53 | ||
54 | C-- Batch continued | |
55 | ||
56 | 41 CONTINUE | |
57 | ||
58 | C-- Start new logical record | |
59 | ||
60 | 44 CALL FZOREC | |
61 | NWFOAV = L4ENDX - L4CURX | |
62 | IF (NWFORE.NE.0) GO TO 24 | |
63 | GO TO 991 | |
64 | ||
65 | C------ Conversion Problems | |
66 | ||
67 | 71 IQ(KQSP+LQFX+24) = IQ(KQSP+LQFX+24) + 1 | |
68 | IF (IFOCON(1).GT.0) IFOCON(2) = IFOCON(2) | |
69 | + + (LOCF(MBAT(1)) - LQSTOR) | |
70 | #if defined(CERNLIB_QPRINT) | |
71 | IF (LOGLVX.GE.1) WRITE (IQLOG,9071) LUNX,IFOCON | |
72 | 9071 FORMAT (1X/' FZOTRX. LUN=',I4,', Conversion problem: ', | |
73 | #endif | |
74 | #if (defined(CERNLIB_QPRINT))&&(!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M)) | |
75 | F 4O23) | |
76 | #endif | |
77 | #if (defined(CERNLIB_QPRINT))&&(!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M)) | |
78 | F 4O17) | |
79 | #endif | |
80 | #if (defined(CERNLIB_QPRINT))&&(defined(CERNLIB_HEX)) | |
81 | F 4Z17) | |
82 | #endif | |
83 | GO TO 999 | |
84 | END | |
85 | * ================================================== | |
86 | #include "zebra/qcardl.inc" | |
87 | #endif |