[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / fq / fzotrn.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE FZOTRN (MBAT,NWBAT)

C-    Transmit one batch of data to the output buffer,
C-    exchange file format, native data format
C-    service routine to FZOUT
C-    careful : must not be called with  NWBAT=0

#include "zebra/zunit.inc"
#include "zebra/zebq.inc"
#include "zebra/mzca.inc"
#include "zebra/fzcx.inc"
C--------------    End CDE                             --------------
      DIMENSION    MBAT(99), NWBAT(9)
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HFZOT, 4HRN   /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HFZOTRN /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'FZOTRN  ')
#endif


*     quick trace without test on capacity
#include "zebra/qtraceq.inc"

      NWDO  = NWBAT(1)
      NDONE = 0
      IF (IDX(2).NE.0)             GO TO 44

   24 NWAV = L4ENDX - L4CURX
      NW   = MIN (NWDO-NDONE, NWAV)
      CALL UCOPY (MBAT(NDONE+1), LQ(L4CURX), NW)
      L4CURX = L4CURX + NW
      IF (L4CURX.EQ.L4ENDX)        GO TO 41
#include "zebra/qtrace99.inc"
      RETURN

C--                Batch continued

   41 NDONE = NDONE + NW

C--                Start new logical record

   44 CALL FZOREC
      IF (NDONE.LT.NWDO)           GO TO 24
      GO TO 999
      END
*      ==================================================
#include "zebra/qcardl.inc"
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	SUBROUTINE FZOTRN (MBAT,NWBAT)
	11
	12	C- Transmit one batch of data to the output buffer,
	13	C- exchange file format, native data format
	14	C- service routine to FZOUT
	15	C- careful : must not be called with NWBAT=0
	16
	17	#include "zebra/zunit.inc"
	18	#include "zebra/zebq.inc"
	19	#include "zebra/mzca.inc"
	20	#include "zebra/fzcx.inc"
	21	C-------------- End CDE --------------
	22	DIMENSION MBAT(99), NWBAT(9)
	23	#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
	24	DIMENSION NAMESR(2)
	25	DATA NAMESR / 4HFZOT, 4HRN /
	26	#endif
	27	#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
	28	DATA NAMESR / 6HFZOTRN /
	29	#endif
	30	#if !defined(CERNLIB_QTRHOLL)
	31	CHARACTER NAMESR*8
	32	PARAMETER (NAMESR = 'FZOTRN ')
	33	#endif
	34
	35
	36	* quick trace without test on capacity
	37	#include "zebra/qtraceq.inc"
	38
	39	NWDO = NWBAT(1)
	40	NDONE = 0
	41	IF (IDX(2).NE.0) GO TO 44
	42
	43	24 NWAV = L4ENDX - L4CURX
	44	NW = MIN (NWDO-NDONE, NWAV)
	45	CALL UCOPY (MBAT(NDONE+1), LQ(L4CURX), NW)
	46	L4CURX = L4CURX + NW
	47	IF (L4CURX.EQ.L4ENDX) GO TO 41
	48	#include "zebra/qtrace99.inc"
	49	RETURN
	50
	51	C-- Batch continued
	52
	53	41 NDONE = NDONE + NW
	54
	55	C-- Start new logical record
	56
	57	44 CALL FZOREC
	58	IF (NDONE.LT.NWDO) GO TO 24
	59	GO TO 999
	60	END
	61	* ==================================================
	62	#include "zebra/qcardl.inc"