HERWIG/src/hwhew1.f

   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