MINICERN/packlib/zebra/fq/fzotrx.F

   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