1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
INTEGER IFR
INTEGER LMAXCONFIGSB_USED
PARAMETER (LMAXCONFIGSB_USED=1)
INTEGER MAX_BRANCHB_USED
PARAMETER (MAX_BRANCHB_USED=1)
INTEGER MAPCONFIG(0 : LMAXCONFIGSB_USED)
INTEGER IFOREST(2, -MAX_BRANCHB_USED:-1, LMAXCONFIGSB_USED)
INTEGER SPROP(-MAX_BRANCHB_USED:-1, LMAXCONFIGSB_USED)
INTEGER TPRID(-MAX_BRANCHB_USED:-1, LMAXCONFIGSB_USED)
LOGICAL GFORCEBW(-MAX_BRANCHB_USED : -1, LMAXCONFIGSB_USED)
C Here are the congifurations
C Process: u d~ > ve e+ [ all = QCD QED ] QCD^2=0 QED^2=6
C Process: c s~ > ve e+ [ all = QCD QED ] QCD^2=0 QED^2=6
C Diagram 1, Amplitude 1
DATA MAPCONFIG( 1)/ 1/
DATA (IFOREST(IFR, -1, 1),IFR=1,2)/ 4, 3/
DATA SPROP( -1, 1)/ 24/
C Number of configs
DATA MAPCONFIG(0)/ 1/
C Here are the BWs
DATA GFORCEBW(-1,1)/.FALSE./
|