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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:11  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE FZIACN (NWBAT,LDATA,NWACC)

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

#include "zebra/zunit.inc"
#include "zebra/zebq.inc"
#include "zebra/mzca.inc"
#include "zebra/fzci.inc"
C--------------    End CDE                             --------------
      DIMENSION    NWBAT(9)
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HFZIA, 4HCN   /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HFZIACN /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'FZIACN  ')
#endif


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

      NWDO  = NWBAT(1)
      NDONE = 0

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

      NDONE  = MIN (NWDO, NWAV)
      LDATA  = L4CURI
      L4CURI = L4CURI + NDONE
#include "zebra/qtrace99.inc"
      NWACC = NDONE
      RETURN

C--                Skip over N4SKII leading data words

   31 NSK    = MIN (N4SKII,NWAV)
      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 (NWDO+N4SKII.NE.0)        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:11 mclareni
	6	* Zebra
	7	*
	8	*
	9	#include "zebra/pilot.h"
	10	SUBROUTINE FZIACN (NWBAT,LDATA,NWACC)
	11
	12	C- Access one batch of data from the input buffer,
	13	C- exchange file format, native data format
	14	C- service routine to FZCOPY
	15	C- careful : must not be called with N4SKII=0 .AND. NWBAT=0
	16
	17	#include "zebra/zunit.inc"
	18	#include "zebra/zebq.inc"
	19	#include "zebra/mzca.inc"
	20	#include "zebra/fzci.inc"
	21	C-------------- End CDE --------------
	22	DIMENSION NWBAT(9)
	23	#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
	24	DIMENSION NAMESR(2)
	25	DATA NAMESR / 4HFZIA, 4HCN /
	26	#endif
	27	#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
	28	DATA NAMESR / 6HFZIACN /
	29	#endif
	30	#if !defined(CERNLIB_QTRHOLL)
	31	CHARACTER NAMESR*8
	32	PARAMETER (NAMESR = 'FZIACN ')
	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
	42	24 NWAV = L4ENDI - L4CURI
	43	IF (NWAV.EQ.0) GO TO 41
	44	IF (N4SKII.NE.0) GO TO 31
	45
	46	NDONE = MIN (NWDO, NWAV)
	47	LDATA = L4CURI
	48	L4CURI = L4CURI + NDONE
	49	#include "zebra/qtrace99.inc"
	50	NWACC = NDONE
	51	RETURN
	52
	53	C-- Skip over N4SKII leading data words
	54
	55	31 NSK = MIN (N4SKII,NWAV)
	56	L4CURI = L4CURI + NSK
	57	N4SKII = N4SKII - NSK
	58	IF (N4SKII.EQ.0) GO TO 46
	59
	60	C---- Read next PhR / LR for batch continued
	61
	62	41 IFLAGI = -1
	63	CALL FZIREC
	64	IF (IFLAGI.NE.0) GO TO 999
65	46 IF (NWDO+N4SKII.NE.0) GO TO 24
66	GO TO 999
67	END
68	* ==================================================
69	#include "zebra/qcardl.inc"