[u/mrichter/AliRoot.git] / HERWIG / src / hwhew1.f


CDECK  ID>, HWHEW1.

*CMZ :-        -26/04/91  11.11.55  by  Bryan Webber

*-- Author :    Zoltan Kunszt, modified by Bryan Webber

C-----------------------------------------------------------------------

      SUBROUTINE HWHEW1(NPART)

C-----------------------------------------------------------------------

      IMPLICIT NONE

      DOUBLE PRECISION P(4,7),XMASS,PLAB,PRW,PCM

      INTEGER NPART,I,J,K

      COMMON/HWHEWP/ XMASS(10),PLAB(5,10),PRW(5,2),PCM(5,10)

      DO 10 I=1,NPART

      P(1,I)=PLAB(3,I)

      P(2,I)=PLAB(1,I)

      P(3,I)=PLAB(2,I)

      P(4,I)=PLAB(4,I)

  10  CONTINUE

      DO 20 J=1,4

      DO 30 K=1,(NPART-2)

  30  PCM(J,K)=P(J,K+2)

      PCM(J,NPART-1)=-P(J,1)

      PCM(J,NPART)=-P(J,2)

  20  CONTINUE

      END
Commit	Line	Data
3820ca8e	1
	2	CDECK ID>, HWHEW1.
	3
	4	*CMZ :- -26/04/91 11.11.55 by Bryan Webber
	5
	6	*-- Author : Zoltan Kunszt, modified by Bryan Webber
	7
	8	C-----------------------------------------------------------------------
	9
	10	SUBROUTINE HWHEW1(NPART)
	11
	12	C-----------------------------------------------------------------------
	13
	14	IMPLICIT NONE
	15
	16	DOUBLE PRECISION P(4,7),XMASS,PLAB,PRW,PCM
	17
	18	INTEGER NPART,I,J,K
	19
	20	COMMON/HWHEWP/ XMASS(10),PLAB(5,10),PRW(5,2),PCM(5,10)
	21
	22	DO 10 I=1,NPART
	23
	24	P(1,I)=PLAB(3,I)
	25
	26	P(2,I)=PLAB(1,I)
	27
	28	P(3,I)=PLAB(2,I)
	29
	30	P(4,I)=PLAB(4,I)
	31
	32	10 CONTINUE
	33
	34	DO 20 J=1,4
	35
	36	DO 30 K=1,(NPART-2)
	37
	38	30 PCM(J,K)=P(J,K+2)
	39
	40	PCM(J,NPART-1)=-P(J,1)
	41
	42	PCM(J,NPART)=-P(J,2)
	43
	44	20 CONTINUE
	45
	46	END