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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
#if !defined(CERNLIB_FQXISN)
      SUBROUTINE FZITRX (MBAT,NWBAT)

C-    Transmit one batch of data from the input buffer,
C-    exchange file format, exchange data format
C-    service routine to FZIN
C-    careful : must not be called with  N4SKII=0 .AND. NWBAT=0

#include "zebra/zunit.inc"
#include "zebra/mqsys.inc"
#include "zebra/eqlqf.inc"
#include "zebra/mzioc.inc"
#include "zebra/fzci.inc"
C--------------    End CDE                             --------------
      DIMENSION    MBAT(99), NWBAT(9)
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HFZIT, 4HRX   /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HFZITRX /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'FZITRX  ')
#endif


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

      NWFOTT = NWBAT(1)
      NWFODN = 0

   24 NWFOAV = L4ENDI - L4CURI
      IF (NWFOAV.EQ.0)             GO TO 41
      IF (N4SKII.NE.0)             GO TO 31

      CALL FZICV (LQ(L4CURI),MBAT)
      L4CURI = L4CURI + IQUEST(1)

      IF (IFOCON(1).NE.0)          GO TO 71
   27 IF (NWFORE.NE.0)             GO TO 41
#include "zebra/qtrace99.inc"
      RETURN

C--                Skip over N4SKII leading data words

   31 NSK    = MIN (N4SKII,NWFOAV)
      L4CURI = L4CURI + NSK
      N4SKII = N4SKII - NSK
      IF (N4SKII.EQ.0)             GO TO 46

C----              Read next PhR / LR for batch continued

   41 IFLAGI = -1
      CALL FZIREC
      IF (IFLAGI.NE.0)             GO TO 999
   46 IF (NWFOTT+N4SKII.NE.0)      GO TO 24
      GO TO 999

C------            Conversion Problems

   71 IQ(KQSP+LQFI+24) = IQ(KQSP+LQFI+24) + 1
#if defined(CERNLIB_QPRINT)
      IF (LOGLVI.GE.1)  WRITE (IQLOG,9071) LUNI,IFOCON
 9071 FORMAT (1X/' FZITRX.  LUN=',I4,', Conversion problem: ',
#endif
#if (defined(CERNLIB_QPRINT))&&(!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
     F 4O23)
#endif
#if (defined(CERNLIB_QPRINT))&&(!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
     F 4O17)
#endif
#if (defined(CERNLIB_QPRINT))&&(defined(CERNLIB_HEX))
     F 4Z17)
#endif
      IFOCON(1) = 0
      GO TO 27
      END
*      ==================================================
#include "zebra/qcardl.inc"
#endif
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