]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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_FQXISN) | |
11 | SUBROUTINE FZITRX (MBAT,NWBAT) | |
12 | ||
13 | C- Transmit one batch of data from the input buffer, | |
14 | C- exchange file format, exchange data format | |
15 | C- service routine to FZIN | |
16 | C- careful : must not be called with N4SKII=0 .AND. 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/fzci.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 / 4HFZIT, 4HRX / | |
28 | #endif | |
29 | #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M)) | |
30 | DATA NAMESR / 6HFZITRX / | |
31 | #endif | |
32 | #if !defined(CERNLIB_QTRHOLL) | |
33 | CHARACTER NAMESR*8 | |
34 | PARAMETER (NAMESR = 'FZITRX ') | |
35 | #endif | |
36 | ||
37 | ||
38 | * quick trace without test on capacity | |
39 | #include "zebra/qtraceq.inc" | |
40 | ||
41 | NWFOTT = NWBAT(1) | |
42 | NWFODN = 0 | |
43 | ||
44 | 24 NWFOAV = L4ENDI - L4CURI | |
45 | IF (NWFOAV.EQ.0) GO TO 41 | |
46 | IF (N4SKII.NE.0) GO TO 31 | |
47 | ||
48 | CALL FZICV (LQ(L4CURI),MBAT) | |
49 | L4CURI = L4CURI + IQUEST(1) | |
50 | ||
51 | IF (IFOCON(1).NE.0) GO TO 71 | |
52 | 27 IF (NWFORE.NE.0) GO TO 41 | |
53 | #include "zebra/qtrace99.inc" | |
54 | RETURN | |
55 | ||
56 | C-- Skip over N4SKII leading data words | |
57 | ||
58 | 31 NSK = MIN (N4SKII,NWFOAV) | |
59 | L4CURI = L4CURI + NSK | |
60 | N4SKII = N4SKII - NSK | |
61 | IF (N4SKII.EQ.0) GO TO 46 | |
62 | ||
63 | C---- Read next PhR / LR for batch continued | |
64 | ||
65 | 41 IFLAGI = -1 | |
66 | CALL FZIREC | |
67 | IF (IFLAGI.NE.0) GO TO 999 | |
68 | 46 IF (NWFOTT+N4SKII.NE.0) GO TO 24 | |
69 | GO TO 999 | |
70 | ||
71 | C------ Conversion Problems | |
72 | ||
73 | 71 IQ(KQSP+LQFI+24) = IQ(KQSP+LQFI+24) + 1 | |
74 | #if defined(CERNLIB_QPRINT) | |
75 | IF (LOGLVI.GE.1) WRITE (IQLOG,9071) LUNI,IFOCON | |
76 | 9071 FORMAT (1X/' FZITRX. LUN=',I4,', Conversion problem: ', | |
77 | #endif | |
78 | #if (defined(CERNLIB_QPRINT))&&(!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M)) | |
79 | F 4O23) | |
80 | #endif | |
81 | #if (defined(CERNLIB_QPRINT))&&(!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M)) | |
82 | F 4O17) | |
83 | #endif | |
84 | #if (defined(CERNLIB_QPRINT))&&(defined(CERNLIB_HEX)) | |
85 | F 4Z17) | |
86 | #endif | |
87 | IFOCON(1) = 0 | |
88 | GO TO 27 | |
89 | END | |
90 | * ================================================== | |
91 | #include "zebra/qcardl.inc" | |
92 | #endif |