MINICERN/packlib/zebra/fq/fzitrx.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_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