include/Photos/forW-MEc.h

0001 #ifndef _forW_MEc_h_included_
0002 #define _forW_MEc_h_included_
0003 #include <complex>
0004 using std::complex;
0005
0006 namespace Photospp
0007 {
0008
0009 class PhotosMEforW
0010 {
0011 public:
0012   static void   PHOBWnlo(double *WT);
0013
0014 private:
0015   static double WDecayEikonalSqrKS_1ph(double p3[4],double p1[4],double p2[4],double k[4]);
0016   static double WDecayBornAmpSqrKS_1ph(double p3[4],double p1[4],double p2[4]);
0017   static double WDecayAmplitudeSqrKS_1ph(double p3[4],double p1[4],double p2[4],double k[4]);
0018   static double SANC_WT(double PW[4],double PNE[4],double PMU[4],double PPHOT[4],double B_PW[4],double B_PNE[4],double B_PMU[4]);
0019   static void   SANC_INIT1(double QB0,double QF20,double MF10,double MF20,double MB0);
0020   static void   SANC_INIT(double ALPHA,int PHLUN);
0021
0022 private:
0023   static complex<double> InProd_zero(double p1[4],int l1,double p2[4],int l2);
0024   static double          InSqrt(double p[4],double q[4]);
0025   static complex<double> InProd_mass(double p1[4],double m1,int l1,double p2[4],double m2,int l2);
0026   static complex<double> BsFactor(int s,double k[4],double p[4],double m);
0027   static complex<double> WDecayEikonalKS_1ph(double p3[4],double p1[4],double p2[4],double k[4],int s);
0028   static complex<double> SoftFactor(int s,double k[4],double p1[4],double m1,double p2[4],double m2,double Gmass2);
0029   static complex<double> TrMatrix_zero(double p1[4],double m1,int l1,double k[4],int s,double p2[4],double m2,int l2);
0030   static complex<double> TrMatrix_mass(double p1[4],double m1,int l1,double k[4],double m,int s,double p2[4],double m2,int l2);
0031   static complex<double> WDecayBornAmpKS_1ph(double p3[4],int l3,double p1[4],int l1,double p2[4],int l2);
0032   static complex<double> WDecayAmplitudeKS_1ph(double p3[4],int l3,double p1[4],int l1,double p2[4],int l2,double k[4],int s);
0033
0034 private:
0035   // COMMON /Kleiss_Stirling/spV,bet
0036   static double spV[4],bet[4];
0037
0038   // COMMON /mc_parameters/pi,sw,cw,alphaI,qb,mb,mf1,mf2,qf1,qf2,vf,af,mcLUN
0039   static double pi,sw,cw,alphaI,qb,mb,mf1,mf2,qf1,qf2,vf,af,mcLUN;
0040 };
0041
0042 } // namespace Photospp
0043 #endif