39 {
45
46 mode = 1;
47 ProbMax = 15.85;
48
49
50
51 double m_Kaon = 0.493677;
52 m2_Kaon = m_Kaon*m_Kaon;
53 double m_K0 = 0.497614;
54 m2_K0 = m_K0*m_K0;
55 double m_eta = 0.547853;
57 double m_Pion = 0.13957;
58 m2_Pion = m_Pion*m_Pion;
59 double m_Pi0 = 0.1349766;
60 m2_Pi0 = m_Pi0*m_Pi0;
61 m_D0 = 1.86486;
62 m2_D0 = m_D0*m_D0;
63 m_D = 1.86962;
64 m2_D = m_D*m_D;
65
66 ciR = EvtComplex(1.0, 0.0);
67 ciM = EvtComplex(0.0, 1.0);
68
69
70 double mAD0 = 2.42;
71 m2AD0 = mAD0*mAD0;
72 double mAD = 2.42;
73 m2AD = mAD*mAD;
74 double m_a0 = 0.990;
75 m2_a0 = m_a0*m_a0;
76 flatte_g1 = 0.341;
77 flatte_g2 = 0.341*0.892;
78}
*********DOUBLE PRECISION m_pi INTEGER m_lenwt !max no of aux weights INTEGER m_phmax !maximum photon multiplicity ISR FSR *DOUBLE COMPLEX m_Pauli4 DOUBLE COMPLEX m_AmpBorn DOUBLE COMPLEX m_AmpBoxy DOUBLE COMPLEX m_AmpBorn1 DOUBLE COMPLEX m_AmpBorn2 DOUBLE COMPLEX m_AmpExpo2p DOUBLE COMPLEX m_Rmat DOUBLE COMPLEX m_BoxGZut !DOUBLE COMPLEX m_F1finPair2 !DOUBLE PRECISION m_Vcut DOUBLE PRECISION m_Alfinv DOUBLE PRECISION m_Lorin1 DOUBLE PRECISION m_Lorin2 DOUBLE PRECISION m_eta
void checkSpinDaughter(int d1, EvtSpinType::spintype sp)
void checkSpinParent(EvtSpinType::spintype sp)
void checkNDaug(int d1, int d2=-1)
void checkNArg(int a1, int a2=-1, int a3=-1, int a4=-1)