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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
#if defined(CERNLIB_FZFFNAT)
      SUBROUTINE FZON4 (V1,N1,V2,N2,V3,N3,V4,N4)

#include "zebra/mqsys.inc"
#include "zebra/eqlqf.inc"
#include "zebra/fzcx.inc"
C--------------    End CDE                             --------------
#if !defined(CERNLIB_AUTODBL)
      INTEGER   V1(N1),V2(N2),V3(N3),V4(N4)
#endif
#if defined(CERNLIB_AUTODBL)
      REAL   V1(N1),V2(N2),V3(N3),V4(N4),RELIDX(2)
      EQUIVALENCE (RELIDX(1),IDX(1))
#endif

      IDX(1) = N1 + N2 + N3 + N4

#if !defined(CERNLIB_AUTODBL)
      WRITE (LUNX) IDX,V1,V2,V3,V4
#endif
#if defined(CERNLIB_AUTODBL)
      WRITE (LUNX) RELIDX,V1,V2,V3,V4
#endif
      IQ(KQSP+LQFX+20) = IQ(KQSP+LQFX+20) + IDX(1) + 3
      IQ(KQSP+LQFX+21) = IQ(KQSP+LQFX+21) + 1
      RETURN
      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:13 mclareni
	6	* Zebra
	7	*
	8	*
	9	#include "zebra/pilot.h"
	10	#if defined(CERNLIB_FZFFNAT)
	11	SUBROUTINE FZON4 (V1,N1,V2,N2,V3,N3,V4,N4)
	12
	13	#include "zebra/mqsys.inc"
	14	#include "zebra/eqlqf.inc"
	15	#include "zebra/fzcx.inc"
	16	C-------------- End CDE --------------
	17	#if !defined(CERNLIB_AUTODBL)
	18	INTEGER V1(N1),V2(N2),V3(N3),V4(N4)
	19	#endif
	20	#if defined(CERNLIB_AUTODBL)
	21	REAL V1(N1),V2(N2),V3(N3),V4(N4),RELIDX(2)
	22	EQUIVALENCE (RELIDX(1),IDX(1))
	23	#endif
	24
	25	IDX(1) = N1 + N2 + N3 + N4
	26
	27	#if !defined(CERNLIB_AUTODBL)
	28	WRITE (LUNX) IDX,V1,V2,V3,V4
	29	#endif
	30	#if defined(CERNLIB_AUTODBL)
	31	WRITE (LUNX) RELIDX,V1,V2,V3,V4
	32	#endif
	33	IQ(KQSP+LQFX+20) = IQ(KQSP+LQFX+20) + IDX(1) + 3
	34	IQ(KQSP+LQFX+21) = IQ(KQSP+LQFX+21) + 1
	35	RETURN
	36	END
	37	* ==================================================
	38	#include "zebra/qcardl.inc"
	39	#endif