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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE FZOTXT

C-    Ready the text vector for output

#include "zebra/zebq.inc"
#include "zebra/mzca.inc"
#include "zebra/fzcx.inc"
C--------------    End CDE                             --------------
      EQUIVALENCE (LTX,LTEXTX)


      IF (LTX.EQ.0)                GO TO 49
      ND = IQ(KQSP+LTX+1)
      IF (ND.LT.2)                 GO TO 49
      NWTXX = ND
      IF (IFIFOX.NE.0)             GO TO 49
      IF (NWTXX.LE.MAXREX)         GO TO 49

C--       Text vector too large, truncate

      NWTXX = 0
      L  = LTX + 5
   24 N  = IQ(KQSP+L)
      IF (NWTXX+N+1.GT.MAXREX)     GO TO 49
      NWTXX = NWTXX + N + 1
      L     = L     + N + 1
      GO TO 24

   49 RETURN
      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:13 mclareni
	6	* Zebra
	7	*
	8	*
	9	#include "zebra/pilot.h"
	10	SUBROUTINE FZOTXT
	11
	12	C- Ready the text vector for output
	13
	14	#include "zebra/zebq.inc"
	15	#include "zebra/mzca.inc"
	16	#include "zebra/fzcx.inc"
	17	C-------------- End CDE --------------
	18	EQUIVALENCE (LTX,LTEXTX)
	19
	20
	21	IF (LTX.EQ.0) GO TO 49
	22	ND = IQ(KQSP+LTX+1)
	23	IF (ND.LT.2) GO TO 49
	24	NWTXX = ND
	25	IF (IFIFOX.NE.0) GO TO 49
	26	IF (NWTXX.LE.MAXREX) GO TO 49
	27
	28	C-- Text vector too large, truncate
	29
	30	NWTXX = 0
	31	L = LTX + 5
	32	24 N = IQ(KQSP+L)
	33	IF (NWTXX+N+1.GT.MAXREX) GO TO 49
	34	NWTXX = NWTXX + N + 1
	35	L = L + N + 1
	36	GO TO 24
	37
	38	49 RETURN
	39	END
	40	* ==================================================
	41	#include "zebra/qcardl.inc"