Do not update impact parameter in case of event repetition

[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / attflv.F

* $Id$
C
C
C
	SUBROUTINE ATTFLV(ID,IDQ,IDQQ)
C
	SAVE
	IF(ABS(ID).LT.100) THEN
		NSIGN=1
		IDQ=ID/100
		IDQQ=-ID/10+IDQ*10
		IF(ABS(IDQ).EQ.3) NSIGN=-1
		IDQ=NSIGN*IDQ
		IDQQ=NSIGN*IDQQ
		IF(IDQ.LT.0) THEN
			ID0=IDQ
			IDQ=IDQQ
			IDQQ=ID0
		ENDIF
		RETURN
	ENDIF
C		********return ID of quark(IDQ) and anti-quark(IDQQ)
C			for pions and kaons
c
C	Return LU ID for quarks and diquarks for proton(ID=2212) 
C	anti-proton(ID=-2212) and nuetron(ID=2112)
C	LU ID for d=1,u=2, (ud)0=2101, (ud)1=2103, 
C       (dd)1=1103,(uu)1=2203.
C	Use SU(6)  weight  proton=1/3d(uu)1 + 1/6u(ud)1 + 1/2u(ud)0
C			  nurtron=1/3u(dd)1 + 1/6d(ud)1 + 1/2d(ud)0
C 
	IDQ=2
	IF(ABS(ID).EQ.2112) IDQ=1
	IDQQ=2101
	X=RLU_HIJING(0)
	IF(X.LE.0.5) GO TO 30
	IF(X.GT.0.666667) GO TO 10
	IDQQ=2103
	GO TO 30
10	IDQ=1
	IDQQ=2203
	IF(ABS(ID).EQ.2112) THEN
		IDQ=2
		IDQQ=1103
	ENDIF
30	IF(ID.LT.0) THEN
		ID00=IDQQ
		IDQQ=-IDQ
		IDQ=-ID00
	ENDIF
	RETURN
	END