1 SUBROUTINE PHOMAK(IPPAR,NHEP0)
2 C.----------------------------------------------------------------------
6 C. Purpose: Single or double bremstrahlung radiative corrections
7 C. are generated in the decay of the IPPAR-th particle in
8 C. the HEP common /PH_HEPEVT/. Example of the use of
11 C. Input Parameter: IPPAR: Pointer to decaying particle in
12 C. /PH_HEPEVT/ and the common itself
14 C. Output Parameters: Common /PH_HEPEVT/, either with or without
17 C. Author(s): Z. Was, Created at: 26/05/93
20 C.----------------------------------------------------------------------
24 INTEGER IP,IPPAR,NCHARG
25 INTEGER WTDUM,IDUM,NHEP0
30 PARAMETER (NMXHEP=10000)
31 INTEGER IDHEP,ISTHEP,JDAHEP,JMOHEP,NEVHEP,NHEP
33 COMMON/PH_HEPEVT/NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP),
34 &JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),VHEP(4,NMXHEP)
35 LOGICAL INTERF,ISEC,IFTOP
37 COMMON /PHOKEY/ FSEC,FINT,INTERF,ISEC,IFTOP
43 CALL PHOIN(IP,BOOST,NHEP0)
44 CALL PHOCHK(JDAHEP(1,IP))
46 CALL PHOPRE(1,WT,NEUDAU,NCHARB)
47 IF (WT.EQ.0.0D0) RETURN
49 C PHODO is caling PHORAN, thus change of series if it is moved before if
50 CALL PHODO(1,NCHARB,NEUDAU)
51 IF (INTERF) WT=WT*PHINT(IDUM)/FINT
53 IF (WT.GT.1.0D0) CALL PHOERR(3,'WT_INT',DATA)
55 CALL PHOOUT(IP,BOOST,NHEP0)