double hCollider(double Pcm, int pp,int sc, char * name1,char *name2) { double sigma_tot=0, Qstat; int i; numout *cc; int n1,n2; n1=pTabPos(name1); if(n1==0) { printf("%s - no such particle\n",name1); return 0;} n2=pTabPos(name2); if(n2==0) { printf("%s - no such particle\n",name2); return 0;} sMax=4*Pcm*Pcm; sMin=pMass(name1)+pMass(name2); sMin*=sMin; sMin+=1; ppFlag=pp; cc=colliderProduction( name1,name2); if(!cc) return 0; for(i=1;i<=cc->interface->nvar;i++) { if(cc->link[i]) cc->interface->va[i]=*(cc->link[i]); } fixed_Q=sqrt(sMin)/2; if(sc) { if( ModelPrtcls[abs(n1)-1].cdim==8 && ModelPrtcls[abs(n2)-1].cdim==8 ) fixed_Q*=0.1; else fixed_Q*=0.2; } if(Qaddress) { Qstat=*Qaddress; *Qaddress=fixed_Q; } if( cc->interface->calcFunc()>0 ) return 0; *(cc->interface->gtwidth)=0; *(cc->interface->twidth)=0; *(cc->interface->gswidth)=0; sqme22=cc->interface->sqme; sigma_tot=0; for(nsub22=1;nsub22<=cc->interface->nprc; nsub22++) { int pc[4]; double tmp; for(i=0;i<4;i++) cc->interface->pinf(nsub22,i+1,pmass+i,pc+i); if(pc[0]<=pc[1]) { pc1_=pc[0]; pc2_=pc[1]; tmp=simpson(s_integrand,0.,1.,1.E-2)/sMax; sigma_tot+=tmp; } } if(Qaddress){ *Qaddress=Qstat;} return sigma_tot; }
static void writeSLHA(void) { int i; FILE *f; char fName[100]; for(i=1;;i++) { sprintf(fName,"decaySLHA%d.txt",i); if(access(fName,R_OK)) break; } f=fopen(fName,"w"); fprintf(f,"BLOCK ModelParameters # %s\n",currentModelName()); for(i=0;i<nModelVars;i++) fprintf(f," %3d %16E # %s\n",i+1, (double)varValues[i], varNames[i]); fprintf(f,"#\n"); for(i=0;i<nModelParticles;i++) { fprintf(f,"BLOCK QNUMBERS %d # %s\n", ModelPrtcls[i].NPDG, ModelPrtcls[i].name); fprintf(f," 1 %d # 3*el.charge\n 2 %d # 2*spin+1\n 3 %d # color dim\n 4 %d # 0={ self-conjugated}\n#\n", ModelPrtcls[i].q3, ModelPrtcls[i].spin2+1, ModelPrtcls[i].cdim, strcmp(ModelPrtcls[i].name,ModelPrtcls[i].aname)? 1:0 ); } fprintf(f,"BLOCK MASS\n"); for(i=0;i<nModelParticles;i++) { char *name=ModelPrtcls[i].name; fprintf(f," %d %E # %s\n",ModelPrtcls[i].NPDG,pMass(name),name); } fprintf(f,"#\n"); for(i=0;i<nModelParticles;i++) { txtList all=NULL; double mass,width; char *name; if( strcmp(ModelPrtcls[i].mass,"0")==0) continue; if( strcmp(ModelPrtcls[i].width,"0")==0) continue; name=ModelPrtcls[i].name; mass=pMass(name); if(!mass) continue; slhaDecayPrint(name,0,f); fprintf(f,"#\n"); } fclose(f); { char buff[100]; sprintf(buff,"See results in file '%s'", fName); messanykey(16,5,buff); } }
int HBblocks(char * fname) { FILE * f=fopen(fname,"w"); double tb,sb,cb,Q; if(!f) return 1; Q=findValW("Q"); fprintf(f,"Block Mass\n 25 %E # Higgs Mass\n\n",findValW("Mh")); slhaDecayPrint("h",f); slhaDecayPrint("t",f); slhaDecayPrint("~H+",f); // MbSM=findValW("Mb"); fprintf(f,"Block HiggsBoundsInputHiggsCouplingsBosons\n"); fprintf(f,"# Effective coupling normalised to SM one and squared\n"); fprintf(f,"# For (*) normalized on Sin(2*W)\n"); fprintf(f," %12.4E 3 25 24 24 # higgs-W-W \n", 1. ); fprintf(f," %12.4E 3 25 23 23 # higgs-Z-Z \n", 1. ); fprintf(f," %12.4E 3 25 25 23 # higgs-higgs-Z \n", 0. ); { assignVal("Q",pMass("h")); calcMainFunc(); fprintf(f," %12.4E 3 25 21 21 # higgs-gluon-gluon\n", 1. ); fprintf(f," %12.4E 3 25 22 22 # higgs-gamma-gamma\n", SQR(findValW("LAAh")/findValW("LAAhSM")) ); } fprintf(f,"Block HiggsBoundsInputHiggsCouplingsFermions\n"); fprintf(f,"# Effective coupling normalised to SM one and squared\n"); fprintf(f," %12.4E %12.4E 3 25 5 5 # higgs-b-b \n" ,1.,0.); fprintf(f," %12.4E %12.4E 3 25 6 6 # higgs-top-top \n",1.,0.); fprintf(f," %12.4E %12.4E 3 25 15 15 # higgs-tau-tau \n",1.,0.); assignValW("Q",Q); calcMainFunc(); fclose(f); return 0; }
double pmass_(char * pName, int len) { char c_name[20]; fName2c(pName,c_name,len); return pMass(c_name); }
int MSSMDDtest(int loop, double*pA0,double*pA5,double*nA0,double*nA5) { double ApB[2][7],AmB[2][7],MI[2][2][7],NL[5],T3Q[2],EQ[2],mq[7],mqSM[7], msq[2][7],Aq[7]; double mh,mH,ca,sa,mu; double o1o1h,o1o1H,SQM[2][2][2][2],capb,sapb,w2s3,w4s3; char buffName[10]; char * ZqNames[6]={"Zdd" ,"Zuu" ,"Zss", "Zcc", "Zb", "Zt"}; char * MS1mass[6]={"MSdL","MSuL","MSsL","MScL","MSb1","MSt1"}; char * MS2mass[6]={"MSdR","MSuR","MSsR","MScR","MSb2","MSt2"}; char * AqNames[6]={"Ad","Au", "Ad","Au","Ab","At"}; char mess[10]; double ALPE,SW,CW,MW,MZ,E,G,mne,beta,sb,cb,s; int i,II,IQ,i1,i2; double Ampl0,Ampl2; double MN=0.939; double MqPole[7]={0,0,0,0,1.67,4.78,173.}; double qcdNLO,qcdNLOs; double wS0P__[6],wS0N__[6]; /*scalar */ double wV5P__[3],wV5N__[3]; /*pseudo-vector*/ for(i=0;i<3;i++) { wS0P__[i]= *(&(ScalarFFPd)+i); wS0N__[i]= *(&(ScalarFFNd)+i); wV5P__[i]= *(&(pVectorFFPd)+i); wV5N__[i]= *(&(pVectorFFNd)+i); } for(s=0,i=0;i<3;i++) s+= wS0P__[i]; for(s=2./27.*(1-s),i=3;i<6;i++)wS0P__[i]=s; for(s=0,i=0;i<3;i++) s+= wS0N__[i]; for(s=2./27.*(1-s),i=3;i<6;i++)wS0N__[i]=s; *pA0=0,*pA5=0,*nA0=0,*nA5=0; if(sortOddParticles(mess)) return 0; if(strcmp(mess,"~o1")!=0) { printf("qbox returns 0 because WINP is not ~o1\n"); return 0;} /*ccccccccccccccccccc CONSTANTS ccccccc*/ ALPE=1/127.994; SW=findValW("SW"); CW=sqrt(1.-SW*SW); MZ=findValW("MZ"); MW=MZ*CW; E=sqrt(4*M_PI*ALPE); G =E/SW; mne=fabs(findValW("MNE1")); /*=======*/ beta=atan(findValW("tB")); sb=sin(beta); cb=cos(beta); mu=findValW("mu"); /*======== Quark,SQUARK masses and mixing ======*/ for(IQ=1;IQ<=6;IQ++) { mqSM[IQ]= pMass(pdg2name(IQ)); mq[IQ]= mqSM[IQ]; msq[0][IQ]=findValW(MS1mass[IQ-1]); msq[1][IQ]=findValW(MS2mass[IQ-1]); for(i1=0;i1<2;i1++) for(i2=0;i2<2;i2++) { sprintf(buffName,"%s%d%d", ZqNames[IQ-1],i1+1,i2+1); MI[i1][i2][IQ]=findValW(buffName); } Aq[IQ]=findValW(AqNames[IQ-1]); } mq[1]/=1+deltaMd(); mq[3]/=1+deltaMd(); mq[5]/=1+deltaMb(); for(i=1;i<=4;i++){sprintf(buffName,"Zn1%d",i); NL[i]=findValW(buffName);} T3Q[0]=0.5; EQ[0]=2/3.; T3Q[1]=-0.5; EQ[1]=-1/3.; for(IQ=1;IQ<=6;IQ++) for( II=0;II<2;II++) { double X,Y,Z,A,B; X=-(T3Q[IQ&1]*NL[2]+SW/CW*NL[1]/6); Y=SW/CW*EQ[IQ&1]*NL[1]; Z= -0.5*( (IQ&1)? mq[IQ]*NL[3]/cb: mq[IQ]*NL[4]/sb )/MW; A= G*(MI[II][0][IQ]*(X+Z)+MI[II][1][IQ]*(Y+Z)); B= G*(MI[II][0][IQ]*(X-Z)+MI[II][1][IQ]*(-Y+Z)); ApB[II][IQ] =(A*A+B*B)/2; AmB[II][IQ] =(A-B)*(A+B)/2; /* Normalized like in D&N */ } /* Higgs sector */ mh=findValW("Mh"); mH=findValW("MH"); sa=findValW("sa"); ca=findValW("ca"); o1o1h= E*(ca*NL[4]+sa*NL[3])*(CW*NL[2]-SW*NL[1])/CW/SW; o1o1H=-E*(ca*NL[3]-sa*NL[4])*(CW*NL[2]-SW*NL[1])/CW/SW; /*====================================================================== */ /*========= STARTING OF SUMMATION OF DIFFERENT CONTRIBUTIONS =========== */ /*================= THE SD AMPLITUDED ================= */ /****** light squarks SD contribution */ for(IQ=1;IQ<=3;IQ++) for(II=0;II<2;II++) { double D=SQ(msq[II][IQ])-SQ(mne)-SQ(mqSM[IQ]); double D2=D*D-SQ(2*mne*mqSM[IQ]); double f=sqrt(3.)*0.25*ApB[II][IQ]*D/D2; *pA5+=f*wV5P__[IQ-1]; *nA5+=f*wV5N__[IQ-1]; } /****** Z SD contribution */ for(IQ=1;IQ<=3;IQ++) { double f=sqrt(3.)*0.5*(SQ(NL[4])-SQ(NL[3]))*SQ(G/2/MW)*T3Q[IQ&1]; *pA5+=f*wV5P__[IQ-1]; *nA5+=f*wV5N__[IQ-1]; } *pA5/=sqrt(3); *nA5/=sqrt(3); /*================= THE SI AMPLITUDED =================*/ /****** light quarks-squarks SI contribution (plus heavy squarks at tree level)*/ for(IQ=1;IQ<=(loop? 3:6);IQ++) for(II=0;II<2;II++) { double g,f,D,D2; qcdNLO=qcdNLOs=1; if(QCDcorrections) { double alphaMq; if(IQ>3) { double alphaMq; switch(IQ) { case 4: alphaMq=0.39;break; case 5: alphaMq=0.22;break; default:alphaMq=parton_alpha(mqSM[IQ]); } qcdNLO=1+(11./4.-16./9.)*alphaMq/M_PI; } qcdNLOs=1+(25./6.-16./9.)*parton_alpha(msq[II][IQ])/M_PI; } /* q,~o1 reaction */ D=SQ(msq[II][IQ])-SQ(mne)-SQ(mqSM[IQ]); D2=D*D-SQ(2*mne*mqSM[IQ]); g=-0.25*ApB[II][IQ]/D2; f=-0.25*AmB[II][IQ]*D/D2; if(!Twist2On) g*=4; *pA0+= (f/mqSM[IQ]-g*mne/2)* MN*wS0P__[IQ-1]*qcdNLO; *nA0+= (f/mqSM[IQ]-g*mne/2)* MN*wS0N__[IQ-1]*qcdNLO; /****** squarks from nucleon (~q,~o1 reaction)*/ D=-SQ(msq[II][IQ])-SQ(mne)+SQ(mqSM[IQ]), D2=D*D-SQ(2*mne*msq[II][IQ]); g=mqSM[IQ]*AmB[II][IQ]*D/D2; f=mne*ApB[II][IQ]*(SQ(msq[II][IQ])-SQ(mne)+SQ(mqSM[IQ]))/D2; *pA0+=(f+g)/SQ(msq[II][IQ])*MN*wS0P__[5]/8*qcdNLOs ; *nA0+=(f+g)/SQ(msq[II][IQ])*MN*wS0N__[5]/8*qcdNLOs ; if(Twist2On && IQ!=6) { double D,g; int IQn; qcdNLO=1; switch(IQ) { case 1: IQn=2;break; case 2: IQn=1;break; default: IQn=IQ; } D=SQ(msq[II][IQ])-SQ(mne)-SQ(mqSM[IQ]); g=-0.25*ApB[II][IQ]/(D*D-4*mne*mne*mqSM[IQ]*mqSM[IQ]); *pA0-=1.5*g*mne*MN*parton_x(IQ, msq[II][IQ]-mne); *nA0-=1.5*g*mne*MN*parton_x(IQn,msq[II][IQ]-mne); } } /****** Heavy squarks in case of loops */ if(loop)for(IQ=4;IQ<=6;IQ++) for(II=0;II<2;II++) { double f,g,bd,b1d,bs,b1s,b2s; if(QCDcorrections ) { double alphaMq; switch(IQ) { case 4: alphaMq=0.39;break; case 5: alphaMq=0.22;break; default:alphaMq=parton_alpha(mqSM[IQ]); } qcdNLO=1+(11./4.-16./9.)*alphaMq/M_PI; } else qcdNLO=1; bd = AmB[II][IQ]*mqSM[IQ]*LintIk(1,msq[II][IQ],mqSM[IQ],mne)*3/8.; b1d = AmB[II][IQ]*mqSM[IQ]*LintIk(3,msq[II][IQ],mqSM[IQ],mne); bs =ApB[II][IQ]*mne *LintIk(2,msq[II][IQ],mqSM[IQ],mne)*3/8.; b1s =ApB[II][IQ]*mne *LintIk(4,msq[II][IQ],mqSM[IQ],mne); b2s =ApB[II][IQ] *LintIk(5,msq[II][IQ],MqPole[IQ],mne)/4.; f=-(bd+bs-mne*b2s/2-mne*mne*(b1d+b1s)/4); *pA0+=f*MN*wS0P__[IQ-1]*qcdNLO; *nA0+=f*MN*wS0N__[IQ-1]*qcdNLO; if(Twist2On) { double Ampl2; Ampl2=parton_alpha(mqSM[IQ])/(12*M_PI)*(b2s+mne*(b1s+b1d)/2)*parton_x(21,MqPole[IQ]); *pA0+=1.5*Ampl2*mne*MN; *nA0+=1.5*Ampl2*mne*MN; } } /****** higgs-quark-anitiquark */ for(IQ=1;IQ<=6;IQ++) { double fh,fH; if(QCDcorrections && IQ>3) { double alphaMq; switch(IQ) { case 4: alphaMq=0.39;break; case 5: alphaMq=0.22;break; default:alphaMq=parton_alpha(mqSM[IQ]); } qcdNLO=1+(11/4.-16./9.)*alphaMq/M_PI; } else qcdNLO=1; if(IQ&1) { double dMq=mqSM[IQ]/mq[IQ]-1; fh=o1o1h*E*sa*mq[IQ]*(1-dMq*ca*cb/sa/sb)/(2*MW*cb*SW); fH=-o1o1H*E*ca*mq[IQ]*(1+dMq*sa*cb/ca/sb)/(2*MW*cb*SW); } else { fh=-o1o1h*E*ca*mq[IQ]/(2*MW*sb*SW); fH=-o1o1H*E*sa*mq[IQ]/(2*MW*sb*SW); } *pA0+=0.5*(fh/(mh*mh)+fH/(mH*mH))/mqSM[IQ]*MN*wS0P__[IQ-1]*qcdNLO; *nA0+=0.5*(fh/(mh*mh)+fH/(mH*mH))/mqSM[IQ]*MN*wS0N__[IQ-1]*qcdNLO; } /****** higgs squark-antisquark */ capb=ca*cb-sa*sb; sapb=sa*cb+ca*sb; w4s3=4*SW*SW-3; w2s3=2*SW*SW-3; #define h 0 #define H 1 #define L 0 #define R 1 #define U 0 #define D 1 SQM[h][L][L][U]= sapb/SW*(-w4s3/2); SQM[h][L][L][D]= sapb/SW*( w2s3/2); SQM[h][R][R][U]= sapb*SW*( 2); SQM[h][R][R][D]= sapb*SW*(-1); SQM[H][L][L][U]= capb/SW*( w4s3/2); SQM[H][L][L][D]= capb/SW*(-w2s3/2); SQM[H][R][R][U]= capb*SW*(-2); SQM[H][R][R][D]= capb*SW*( 1); SQM[h][L][R][U]=SQM[h][R][L][U]=0; SQM[h][L][R][D]=SQM[h][R][L][D]=0; SQM[H][L][R][U]=SQM[H][R][L][U]=0; SQM[H][L][R][D]=SQM[H][R][L][D]=0; for(IQ=1;IQ<=6;IQ++)for(II=0;II<2;II++) { double fh,fH; int i,j; if(QCDcorrections)qcdNLOs=1+(25./6.-16./9.)*parton_alpha(msq[II][IQ])/M_PI; else qcdNLOs=1; for(fh=0,fH=0,i=0;i<2;i++)for(j=0;j<2;j++) { double dSQMh,dSQMH; double b=-T3Q[IQ&1]+0.5, t= T3Q[IQ&1]+0.5; if(i==j) { dSQMh=( ca*t - sa*b )*3*SQ(mq[IQ]*CW/MW)/SW; dSQMH=( sa*t + ca*b )*3*SQ(mq[IQ]*CW/MW)/SW; } else { dSQMh=( (ca*Aq[IQ]+mu*sa)*t - (sa*Aq[IQ]+mu*ca)*b )*1.5*mq[IQ]*SQ(CW/MW)/SW; dSQMH=( (sa*Aq[IQ]-mu*ca)*t + (ca*Aq[IQ]-mu*sa)*b )*1.5*mq[IQ]*SQ(CW/MW)/SW; } if(IQ&1) {dSQMh/=cb;dSQMH/=cb;} else {dSQMh/=sb;dSQMH/=sb;} fh+=(SQM[h][i][j][IQ&1]-dSQMh)*MI[II][i][IQ]*MI[II][j][IQ]; fH+=(SQM[H][i][j][IQ&1]-dSQMH)*MI[II][i][IQ]*MI[II][j][IQ]; } fh*=o1o1h*E*MW/(3*CW*CW); fH*=o1o1H*E*MW/(3*CW*CW); *pA0+=(fh/(mh*mh)+fH/(mH*mH))/(2*msq[II][IQ]*msq[II][IQ])*MN*wS0P__[5]/8*qcdNLOs; *nA0+=(fh/(mh*mh)+fH/(mH*mH))/(2*msq[II][IQ]*msq[II][IQ])*MN*wS0N__[5]/8*qcdNLOs; } }
int LiLithF(char*fname) { unsigned int i, npart=0; double tb, sb, cb, alpha, sa, ca, ta, samb, camb, dMb, MbHl, MbH, MbH3, MbSM; double CU, Cb, Ctau, CV, Cgamma, Cg; double Mcp=findValW("Mcp"), Mbp=findValW("Mbp"), Mtp=findValW("Mtp"); double LGGSM, LAASM; double vev = 2*findValW("MW")*findValW("SW")/findValW("EE"); FILE*f; tb=findValW("tB"); sb=tb/sqrt(1+tb*tb); cb=1/sqrt(1+tb*tb); alpha=findValW("alpha"); sa=sin(alpha); ca=cos(alpha); ta=sa/ca; samb=sa*cb-ca*sb; camb=ca*cb+sa*sb; dMb=findValW("dMb"); MbSM=findValW("Mb"); MbHl = MbSM/(1+dMb)*(1-dMb/ta/tb); MbH = MbSM/(1+dMb)*(1+dMb*ta/tb); MbH3 = MbSM/(1+dMb)*(1-dMb/tb/tb); // define Higgs states possibly contributing to the signal char *parts[3]={"h","H","H3"}; f=fopen(fname,"w"); fprintf(f, "<?xml version=\"1.0\"?>\n"); fprintf(f, "<lilithinput>\n"); for(i=0; i<3; i++) { double mass = pMass(parts[i]); if(mass < 123. || mass > 128.) { continue; } ++npart; // compute invisible and undetected branching ratios double invBR = 0., undBR = 0.; double w; txtList L; w=pWidth((char*)parts[i], &L); if(Mcdm1 < 0.5*mass) { char invdecay[50]; char cdmName[50]; // sortOddParticles(cdmName); strcpy(invdecay, CDM1); strcat(invdecay, ","); strcat(invdecay, CDM1); invBR = findBr(L, invdecay); } undBR = 1 - invBR - findBr(L, "b B") - findBr(L, "c C") - findBr(L, "l L") - findBr(L, "W+ W-") - findBr(L, "A A") - findBr(L, "Z Z") - findBr(L, "G G") - findBr(L, "m M") - findBr(L, "A Z") - findBr(L, "u U") - findBr(L, "d D") - findBr(L, "s S"); LGGSM=lGGhSM(mass, alphaQCD(mass)/M_PI, Mcp, Mbp, Mtp, vev); LAASM=lAAhSM(mass, alphaQCD(mass)/M_PI, Mcp, Mbp, Mtp, vev); if(strcmp(parts[i], "h") == 0) { CU = ca/sb; Cb = -(sa/cb)*(MbHl/MbSM); Ctau = -(sa/cb); CV = -samb; Cgamma = findValW("LAAh")/LAASM; Cg = findValW("LGGh")/LGGSM; } else if(strcmp(parts[i], "H") == 0) { CU = sa/sb; Cb = (ca/cb)*(MbH/MbSM); Ctau = ca/cb; CV = camb; Cgamma = findValW("LAAH")/LAASM; Cg = findValW("LGGH")/LGGSM; } else { // for H3 (i.e. A) CU = 1./tb; Cb = tb*(MbH3/MbSM); Ctau = tb; CV = 0.; Cgamma = 0.5*findValW("LAAH3")/LAASM; Cg = 0.5*findValW("LGGH3")/LGGSM; } fprintf(f, " <reducedcouplings part=\"%s\">\n", parts[i]); fprintf(f, " <mass>%f</mass>\n", mass); fprintf(f, " <C to=\"uu\">%f</C>\n", CU); fprintf(f, " <C to=\"bb\">%f</C>\n", Cb); fprintf(f, " <C to=\"mumu\">%f</C>\n", Ctau); fprintf(f, " <C to=\"tautau\">%f</C>\n", Ctau); fprintf(f, " <C to=\"VV\">%f</C>\n", CV); fprintf(f, " <C to=\"gammagamma\">%f</C>\n", Cgamma); fprintf(f, " <C to=\"gg\">%f</C>\n", Cg); // fprintf(f, " <C to=\"Zgamma\">%f</C>\n", 1.); fprintf(f, " <precision>%s</precision>\n", "BEST-QCD"); fprintf(f, " <extraBR>\n"); fprintf(f, " <BR to=\"invisible\">%f</BR>\n", invBR); fprintf(f, " <BR to=\"undetected\">%f</BR>\n", undBR); fprintf(f, " </extraBR>\n"); fprintf(f, " </reducedcouplings>\n"); } fprintf(f, "</lilithinput>\n"); fclose(f); return npart; }
int main(int argc,char** argv) { int err; char cdmName[10]; int spin2, charge3,cdim; // sysTimeLim=1000; ForceUG=0; /* to Force Unitary Gauge assign 1 */ // nPROCSS=0; /* to switch off multiprocessor calculations */ /* if you would like to work with superIso setenv("superIso","./superiso_v3.1",1); */ #ifdef SUGRA { double m0,mhf,a0,tb; double gMG1, gMG2, gMG3, gAl, gAt, gAb, sgn, gMHu, gMHd, gMl2, gMl3, gMr2, gMr3, gMq2, gMq3, gMu2, gMu3, gMd2, gMd3; printf("\n========= mSUGRA scenario =====\n"); PRINTRGE(RGE); if(argc<5) { printf(" This program needs 4 parameters:\n" " m0 common scalar mass at GUT scale\n" " mhf common gaugino mass at GUT scale\n" " a0 trilinear soft breaking parameter at GUT scale\n" " tb tan(beta) \n"); printf(" Auxiliary parameters are:\n" " sgn +/-1, sign of Higgsino mass term (default 1)\n" " Mtp top quark pole mass\n" " MbMb Mb(Mb) scale independent b-quark mass\n" " alfSMZ strong coupling at MZ\n"); /* printf("Example: ./main 70 250 -300 10\n"); */ printf("Example: ./main 120 500 -350 10 1 173.1 \n"); exit(1); } else { double Mtp,MbMb,alfSMZ; sscanf(argv[1],"%lf",&m0); sscanf(argv[2],"%lf",&mhf); sscanf(argv[3],"%lf",&a0); sscanf(argv[4],"%lf",&tb); if(argc>5)sscanf(argv[5],"%lf",&sgn); else sgn=1; if(argc>6){ sscanf(argv[6],"%lf",&Mtp); assignValW("Mtp",Mtp); } if(argc>7){ sscanf(argv[7],"%lf",&MbMb); assignValW("MbMb",MbMb); } if(argc>8){ sscanf(argv[8],"%lf",&alfSMZ); assignValW("alfSMZ",alfSMZ);} } /*==== simulation of mSUGRA =====*/ gMG1=mhf, gMG2=mhf,gMG3=mhf; gAl=a0, gAt=a0, gAb=a0; gMHu=m0, gMHd=m0; gMl2=m0, gMl3=m0, gMr2=m0, gMr3=m0; gMq2=m0, gMq3=m0, gMu2=m0, gMd2=m0, gMu3=m0, gMd3=m0; err= SUGRAMODEL(RGE) (tb, gMG1, gMG2, gMG3, gAl, gAt, gAb, sgn, gMHu, gMHd, gMl2, gMl3, gMr2, gMr3, gMq2, gMq3, gMu2, gMu3, gMd2, gMd3); } #elif defined(SUGRANUH) { double m0,mhf,a0,tb; double gMG1, gMG2, gMG3, gAl, gAt, gAb, gMl2, gMl3, gMr2, gMr3, gMq2, gMq3, gMu2, gMu3, gMd2, gMd3,mu,MA; printf("\n========= mSUGRA non-universal Higgs scenario =====\n"); PRINTRGE(RGE); if(argc<7) { printf(" This program needs 6 parameters:\n" " m0 common scalar mass at GUT scale\n" " mhf common gaugino mass at GUT scale\n" " a0 trilinear soft breaking parameter at GUT scale\n" " tb tan(beta) \n" " mu mu(EWSB)\n" " MA mass of pseudoscalar Higgs\n"); printf(" Auxiliary parameters are:\n" " Mtp top quark pole mass\n" " MbMb Mb(Mb) scale independent b-quark mass\n" " alfSMZ strong coupling at MZ\n"); /* printf("Example: ./main 70 250 -300 10\n"); */ printf("Example: ./main 120 500 -350 10 680 760 \n"); exit(1); } else { double Mtp,MbMb,alfSMZ; sscanf(argv[1],"%lf",&m0); sscanf(argv[2],"%lf",&mhf); sscanf(argv[3],"%lf",&a0); sscanf(argv[4],"%lf",&tb); sscanf(argv[5],"%lf",&mu); sscanf(argv[6],"%lf",&MA); if(argc>7){ sscanf(argv[7],"%lf",&Mtp); assignValW("Mtp",Mtp); } if(argc>8){ sscanf(argv[8],"%lf",&MbMb); assignValW("MbMb",MbMb); } if(argc>9){ sscanf(argv[9],"%lf",&alfSMZ); assignValW("alfSMZ",alfSMZ);} } /*==== simulation of mSUGRA =====*/ gMG1=mhf, gMG2=mhf,gMG3=mhf; gAl=a0, gAt=a0, gAb=a0; gMl2=m0, gMl3=m0, gMr2=m0, gMr3=m0; gMq2=m0, gMq3=m0, gMu2=m0, gMd2=m0, gMu3=m0, gMd3=m0; err= SUGRANUHMODEL(RGE) (tb,gMG1,gMG2,gMG3,gAl,gAt,gAb,gMl2,gMl3,gMr2,gMr3,gMq2,gMq3,gMu2,gMu3,gMd2,gMd3,mu,MA); } #elif defined(AMSB) { double m0,m32,sgn,tb; printf("\n========= AMSB scenario =====\n"); PRINTRGE(RGE); if(argc<4) { printf(" This program needs 3 parameters:\n" " m0 common scalar mass at GUT scale\n" " m3/2 gravitino mass\n" " tb tan(beta) \n"); printf(" Auxiliary parameters are:\n" " sgn +/-1, sign of Higgsino mass term (default 1)\n" " Mtp top quark pole mass\n" " MbMb Mb(Mb) scale independent b-quark mass\n" " alfSMZ strong coupling at MZ\n"); printf("Example: ./main 450 60000 10\n"); exit(1); } else { double Mtp,MbMb,alfSMZ; sscanf(argv[1],"%lf",&m0); sscanf(argv[2],"%lf",&m32); sscanf(argv[3],"%lf",&tb); if(argc>4)sscanf(argv[4],"%lf",&sgn); else sgn=1; if(argc>5){ sscanf(argv[5],"%lf",&Mtp); assignValW("Mtp",Mtp); } if(argc>6){ sscanf(argv[6],"%lf",&MbMb); assignValW("MbMb",MbMb); } if(argc>7){ sscanf(argv[7],"%lf",&alfSMZ); assignValW("alfSMZ",alfSMZ);} } err= AMSBMODEL(RGE)(m0,m32,tb,sgn); } #elif defined(EWSB) { printf("\n========= EWSB scale input =========\n"); PRINTRGE(RGE); if(argc <2) { printf("The program needs one argument:the name of file with MSSM parameters.\n" "Example: ./main mssm1.par \n"); exit(1); } printf("Initial file \"%s\"\n",argv[1]); err=readVarMSSM(argv[1]); if(err==-1) { printf("Can not open the file\n"); exit(2);} else if(err>0) { printf("Wrong file contents at line %d\n",err);exit(3);} err=EWSBMODEL(RGE)(); } #else { printf("\n========= SLHA file input =========\n"); if(argc <2) { printf("The program needs one argument:the name of SLHA input file.\n" "Example: ./main suspect2_lha.out \n"); exit(1); } printf("Initial file \"%s\"\n",argv[1]); err=lesHinput(argv[1]); if(err) exit(2); } #endif if(err==-1) { printf("Can not open the file\n"); exit(2);} else if(err>0) { printf("Wrong file contents at line %d\n",err);exit(3);} { int nw; printf("Warnings from spectrum calculator:\n"); nw=slhaWarnings(stdout); if(nw==0) printf(" .....none\n"); } if(err) exit(1); err=sortOddParticles(cdmName); if(err) { printf("Can't calculate %s\n",cdmName); return 1;} qNumbers(cdmName,&spin2, &charge3, &cdim); printf("\nDark matter candidate is '%s' with spin=%d/2 mass=%.2E\n", cdmName, spin2, Mcdm); if(charge3) { printf("Dark Matter has electric charge %d/3\n",charge3); exit(1);} if(cdim!=1) { printf("Dark Matter is a color particle\n"); exit(1);} if(strcmp(cdmName,"~o1")) printf(" ~o1 is not CDM\n"); else o1Contents(stdout); #ifdef MASSES_INFO { printf("\n=== MASSES OF HIGGS AND SUSY PARTICLES: ===\n"); printHiggs(stdout); printMasses(stdout,1); } #endif #ifdef CONSTRAINTS { double SMbsg,dmunu; printf("\n\n==== Physical Constraints: =====\n"); printf("deltartho=%.2E\n",deltarho()); printf("gmuon=%.2E\n", gmuon()); printf("bsgnlo=%.2E ", bsgnlo(&SMbsg)); printf("( SM %.2E )\n",SMbsg); printf("bsmumu=%.2E\n", bsmumu()); printf("btaunu=%.2E\n", btaunu()); printf("dtaunu=%.2E ", dtaunu(&dmunu)); printf("dmunu=%.2E\n", dmunu); printf("Rl23=%.3E\n", Rl23()); if(masslimits()==0) printf("MassLimits OK\n"); } #endif #ifdef HIGGSBOUNDS if(access(HIGGSBOUNDS "/HiggsBounds",X_OK )) system( "cd " HIGGSBOUNDS "; ./configure; make "); slhaWrite("HB.in"); HBblocks("HB.in"); system(HIGGSBOUNDS "/HiggsBounds LandH SLHA 3 1 HB.in HB.out > hb.stdout"); slhaRead("HB.out",1+4); printf("HB result= %.0E obsratio=%.2E\n",slhaValFormat("HiggsBoundsResults",0.,"1 2 %lf"), slhaValFormat("HiggsBoundsResults",0.,"1 3 %lf" ) ); { char hbInfo[100]; if(0==slhaSTRFormat("HiggsBoundsResults","1 5 ||%[^|]||",hbInfo)) printf("Channel: %s\n",hbInfo); } #endif #ifdef HIGGSSIGNALS #define DataSet " latestresults " //#define Method " peak " //#define Method " mass " #define Method " both " #define PDF " 2 " // Gaussian //#define PDF " 1 " // box //#define PDF " 3 " // box+Gaussia #define dMh " 2 " printf("HiggsSignals:\n"); if(access(HIGGSSIGNALS "/HiggsSignals",X_OK )) system( "cd " HIGGSSIGNALS "; ./configure; make "); system("rm -f HS.in HS.out"); slhaWrite("HS.in"); HBblocks("HS.in"); system("echo 'BLOCK DMASS\n 25 " dMh " '>> HS.in"); system(HIGGSSIGNALS "/HiggsSignals" DataSet Method PDF " SLHA 3 1 HS.in > hs.stdout"); system("grep -A 10000 HiggsSignalsResults HS.in > HS.out"); slhaRead("HS.out",1+4); printf(" Number of observables %.0f\n",slhaVal("HiggsSignalsResults",0.,1,7)); printf(" total chi^2= %.1E\n",slhaVal("HiggsSignalsResults",0.,1,12)); printf(" HS p-value = %.1E\n", slhaVal("HiggsSignalsResults",0.,1,13)); #undef dMh #undef PDF #undef Method #undef DataSet #endif #ifdef LILITH if(LiLithF("Lilith_in.xml")) { double like; int exp_ndf; system("python " LILITH "/run_lilith.py Lilith_in.xml -s -r Lilith_out.slha"); slhaRead("Lilith_out.slha", 1); like = slhaVal("LilithResults",0.,1,0); exp_ndf = slhaVal("LilithResults",0.,1,1); printf("LILITH: -2*log(L): %f; exp ndf: %d \n", like,exp_ndf ); } else printf("LILITH: there is no Higgs candidate\n"); #endif #ifdef SMODELS { int res; smodels(4000.,5, 0.1, "smodels.in",0); system("make -C " SMODELS); system(SMODELS "/runTools.py xseccomputer -p -N -O -f smodels.in"); system(SMODELS "/runSModelS.py -f smodels.in -s smodels.res -particles ./ > smodels.out "); slhaRead("smodels.res", 1); res=slhaVal("SModelS_Exclusion",0.,2,0,0); switch(res) { case -1: printf("SMODELS: no channels for testing\n");break; case 0: printf("SMODELS: not excluded\n");break; case 1: printf("SMODELS: excluded\n");break; } } #endif #ifdef OMEGA { int fast=1; double Beps=1.E-5, cut=0.01; double Omega,Xf; // to exclude processes with virtual W/Z in DM annihilation VZdecay=0; VWdecay=0; cleanDecayTable(); // to include processes with virtual W/Z also in co-annihilation // VZdecay=2; VWdecay=2; cleanDecayTable(); printf("\n==== Calculation of relic density =====\n"); sortOddParticles(cdmName); Omega=darkOmega(&Xf,fast,Beps); printf("Xf=%.2e Omega=%.2e\n",Xf,Omega); // printChannels(Xf,cut,Beps,1,stdout); // direct access for annihilation channels /* if(omegaCh){ int i; for(i=0; omegaCh[i].weight>0 ;i++) printf(" %.2E %s %s -> %s %s\n", omegaCh[i].weight, omegaCh[i].prtcl[0], omegaCh[i].prtcl[1],omegaCh[i].prtcl[2],omegaCh[i].prtcl[3]); } */ // to restore default switches VZdecay=1; VWdecay=1; cleanDecayTable(); } #endif VZdecay=0; VWdecay=0; cleanDecayTable(); #ifdef INDIRECT_DETECTION { int err,i; double Emin=1,SMmev=320;/*Energy cut in GeV and solar potential in MV*/ double sigmaV; char txt[100]; double SpA[NZ],SpE[NZ],SpP[NZ]; double FluxA[NZ],FluxE[NZ],FluxP[NZ]; double SpNe[NZ],SpNm[NZ],SpNl[NZ]; // double * SpNe=NULL,*SpNm=NULL,*SpNl=NULL; double Etest=Mcdm/2; /* default DarkSUSY parameters */ /* K_dif=0.036; L_dif=4; Delta_dif=0.6; Vc_dif=10; Rdisk=30; SMmev=320; */ printf("\n==== Indirect detection =======\n"); sigmaV=calcSpectrum(1+2+4,SpA,SpE,SpP,SpNe,SpNm,SpNl ,&err); /* Returns sigma*v in cm^3/sec. SpX - calculated spectra of annihilation. Use SpectdNdE(E, SpX) to calculate energy distribution in 1/GeV units. First parameter 1-includes W/Z polarization 2-includes gammas for 2->2+gamma 4-print cross sections */ if(SpA) { double fi=0.1,dfi=M_PI/180.; /* angle of sight and 1/2 of cone angle in [rad] */ /* dfi corresponds to solid angle 1.E-3sr */ printf("\nPhoton flux for angle of sight f=%.2f[rad]\n" "and spherical region described by cone with angle %.4f[rad]\n",fi,2*dfi); gammaFluxTab(fi,dfi, sigmaV, SpA, FluxA); printf("Photon flux = %.2E[cm^2 s GeV]^{-1} for E=%.1f[GeV]\n",SpectdNdE(Etest, FluxA), Etest); #ifdef SHOWPLOTS sprintf(txt,"Photon flux for angle of sight %.2f[rad] and cone angle %.2f[rad]",fi,2*dfi); displaySpectrum(txt,Emin,Mcdm,FluxA); #endif printf("Photon flux = %.2E[cm^2 s GeV]^{-1} for E=%.1f[GeV]\n",SpectdNdE(Etest, FluxA), Etest); } if(SpE) { posiFluxTab(Emin, sigmaV, SpE, FluxE); if(SMmev>0) solarModulation(SMmev,0.0005,FluxE,FluxE); #ifdef SHOWPLOTS displaySpectrum("positron flux [cm^2 s sr GeV]^{-1}" ,Emin,Mcdm,FluxE); #endif printf("\nPositron flux = %.2E[cm^2 sr s GeV]^{-1} for E=%.1f[GeV] \n", SpectdNdE(Etest, FluxE), Etest); } if(SpP) { pbarFluxTab(Emin, sigmaV, SpP, FluxP); if(SMmev>0) solarModulation(SMmev,1,FluxP,FluxP); #ifdef SHOWPLOTS displaySpectrum("antiproton flux [cm^2 s sr GeV]^{-1}" ,Emin,Mcdm,FluxP); #endif printf("\nAntiproton flux = %.2E[cm^2 sr s GeV]^{-1} for E=%.1f[GeV] \n", SpectdNdE(Etest, FluxP), Etest); } } #endif #ifdef LoopGAMMA { double vcs_gz,vcs_gg; double fi=0.,dfi=M_PI/180.; /* fi angle of sight[rad], dfi 1/2 of cone angle in [rad] */ /* dfi corresponds to solid angle pi*(1-cos(dfi)) [sr] */ if(loopGamma(&vcs_gz,&vcs_gg)==0) { printf("\nGamma ray lines:\n"); printf("E=%.2E[GeV] vcs(Z,A)= %.2E[cm^3/s], flux=%.2E[cm^2 s]^{-1}\n",Mcdm-91.19*91.19/4/Mcdm,vcs_gz, gammaFlux(fi,dfi,vcs_gz)); printf("E=%.2E[GeV] vcs(A,A)= %.2E[cm^3/s], flux=%.2E[cm^2 s]^{-1}\n",Mcdm,vcs_gg, 2*gammaFlux(fi,dfi,vcs_gg)); } } #endif #ifdef RESET_FORMFACTORS { /* The user has approach to form factors which specifies quark contents of proton and nucleon via global parametes like <Type>FF<Nucleon><q> where <Type> can be "Scalar", "pVector", and "Sigma"; <Nucleon> "P" or "N" for proton and neutron <q> "d", "u","s" calcScalarQuarkFF( Mu/Md, Ms/Md, sigmaPiN[MeV], sigmaS[MeV]) calculates and rewrites Scalar form factors */ printf("protonFF (default) d %E, u %E, s %E\n",ScalarFFPd, ScalarFFPu,ScalarFFPs); printf("neutronFF(default) d %E, u %E, s %E\n",ScalarFFNd, ScalarFFNu,ScalarFFNs); calcScalarQuarkFF(0.46,27.5,34.,42.); // To restore default form factors of version 2 call // calcScalarQuarkFF(0.553,18.9,55.,243.5); printf("protonFF (new) d %E, u %E, s %E\n",ScalarFFPd, ScalarFFPu,ScalarFFPs); printf("neutronFF(new) d %E, u %E, s %E\n",ScalarFFNd, ScalarFFNu,ScalarFFNs); } #endif #ifdef CDM_NUCLEON { double pA0[2],pA5[2],nA0[2],nA5[2]; double Nmass=0.939; /*nucleon mass*/ double SCcoeff; printf("\n==== Calculation of CDM-nucleons amplitudes =====\n"); #ifdef TEST_Direct_Detection printf(" TREE LEVEL\n"); MSSMDDtest(0, pA0,pA5,nA0,nA5); printf("Analitic formulae\n"); printf(" proton: SI %.3E SD %.3E\n",pA0[0],pA5[0]); printf(" neutron: SI %.3E SD %.3E\n",nA0[0],nA5[0]); nucleonAmplitudes(CDM1,NULL, pA0,pA5,nA0,nA5); printf("CDM-nucleon micrOMEGAs amplitudes:\n"); printf("proton: SI %.3E SD %.3E\n",pA0[0],pA5[0]); printf("neutron: SI %.3E SD %.3E\n",nA0[0],nA5[0]); printf(" BOX DIAGRAMS\n"); MSSMDDtest(1, pA0,pA5,nA0,nA5); printf("Analitic formulae\n"); printf(" proton: SI %.3E SD %.3E\n",pA0[0],pA5[0]); printf(" neutron: SI %.3E SD %.3E\n",nA0[0],nA5[0]); #endif nucleonAmplitudes(CDM1,pA0,pA5,nA0,nA5); printf("CDM-nucleon micrOMEGAs amplitudes:\n"); printf("proton: SI %.3E SD %.3E\n",pA0[0],pA5[0]); printf("neutron: SI %.3E SD %.3E\n",nA0[0],nA5[0]); SCcoeff=4/M_PI*3.8937966E8*pow(Nmass*Mcdm/(Nmass+ Mcdm),2.); printf("\n==== CDM-nucleon cross sections[pb] ====\n"); printf(" proton SI %.3E SD %.3E\n",SCcoeff*pA0[0]*pA0[0],3*SCcoeff*pA5[0]*pA5[0]); printf(" neutron SI %.3E SD %.3E\n",SCcoeff*nA0[0]*nA0[0],3*SCcoeff*nA5[0]*nA5[0]); } #endif #ifdef CDM_NUCLEUS { double dNdE[300]; double nEvents; printf("\n======== Direct Detection ========\n"); nEvents=nucleusRecoil(Maxwell,73,Z_Ge,J_Ge73,SxxGe73,dNdE); printf("73Ge: Total number of events=%.2E /day/kg\n",nEvents); printf("Number of events in 10 - 50 KeV region=%.2E /day/kg\n", cutRecoilResult(dNdE,10,50)); #ifdef SHOWPLOTS displayRecoilPlot(dNdE,"Distribution of recoil energy of 73Ge",0,199); #endif nEvents=nucleusRecoil(Maxwell,131,Z_Xe,J_Xe131,SxxXe131,dNdE); printf("131Xe: Total number of events=%.2E /day/kg\n",nEvents); printf("Number of events in 10 - 50 KeV region=%.2E /day/kg\n", cutRecoilResult(dNdE,10,50)); #ifdef SHOWPLOTS displayRecoilPlot(dNdE,"Distribution of recoil energy of 131Xe",0,199); #endif nEvents=nucleusRecoil(Maxwell,23,Z_Na,J_Na23,SxxNa23,dNdE); printf("23Na: Total number of events=%.2E /day/kg\n",nEvents); printf("Number of events in 10 - 50 KeV region=%.2E /day/kg\n", cutRecoilResult(dNdE,10,50)); #ifdef SHOWPLOTS displayRecoilPlot(dNdE,"Distribution of recoil energy of 23Na",0,199); #endif nEvents=nucleusRecoil(Maxwell,127,Z_I,J_I127,SxxI127,dNdE); printf("I127: Total number of events=%.2E /day/kg\n",nEvents); printf("Number of events in 10 - 50 KeV region=%.2E /day/kg\n", cutRecoilResult(dNdE,10,50)); #ifdef SHOWPLOTS displayRecoilPlot(dNdE,"Distribution of recoil energy of 127I",0,199); #endif } #endif #ifdef NEUTRINO { double nu[NZ], nu_bar[NZ],mu[NZ]; int forSun=1; double Emin=1; WIMPSIM=0; printf("\n===============Neutrino Telescope======= for "); if(forSun) printf("Sun\n"); else printf("Earth\n"); err=neutrinoFlux(Maxwell,forSun, nu,nu_bar); #ifdef SHOWPLOTS displaySpectra("neutrino fluxes [1/Year/km^2/GeV]",Emin,Mcdm,2,nu,"nu",nu_bar,"nu_bar"); #endif printf(" E>%.1E GeV neutrino/anti-neutrin fluxes %.2E/%.2E [1/Year/km^2]\n",Emin, spectrInfo(Emin,nu,NULL), spectrInfo(Emin,nu_bar,NULL)); // ICE CUBE if(forSun)printf("IceCube22 exclusion confidence level = %.2E%%\n", 100*exLevIC22(nu,nu_bar,NULL)); /* Upward events */ muonUpward(nu,nu_bar, mu); #ifdef SHOWPLOTS displaySpectrum("Upward muons[1/Year/km^2/GeV]",Emin,Mcdm/2,mu); #endif printf(" E>%.1E GeV Upward muon flux %.2E [1/Year/km^2]\n",Emin,spectrInfo(Emin,mu,NULL)); /* Contained events */ muonContained(nu,nu_bar,1., mu); #ifdef SHOWPLOTS displaySpectrum("Contained muons[1/Year/km^3/GeV]",Emin,Mcdm,mu); #endif printf(" E>%.1E GeV Contained muon flux %.2E [1/Year/km^3]\n",Emin,spectrInfo(Emin,mu,NULL)); } #endif #ifdef DECAYS { txtList L; double width,br; char * pname; printf("\n================= Decays ==============\n"); pname = "h"; width=pWidth(pname,&L); printf("\n%s : total width=%.2E \n and Branchings:\n",pname,width); printTxtList(L,stdout); pname = "~o2"; width=pWidth(pname,&L); printf("\n%s : total width=%.2E \n and Branchings:\n",pname,width); printTxtList(L,stdout); } #endif #ifdef CROSS_SECTIONS { double cs, Pcm=4000, Qren,Qfact=pMass("~o2"),pTmin=0; int nf=3; printf("pp collision at %.2E GeV\n",Pcm); Qren=Qfact; cs=hCollider(Pcm,1,nf,Qren, Qfact, "~o1","~o2",pTmin,1); printf("cs(pp->~o1,~o2)=%.2E[pb]\n",cs); } #endif #ifdef CLEAN killPlots(); system("rm -f suspect2_lha.in suspect2_lha.out suspect2.out Key.dat nngg.out output.flha "); system("rm -f HB.in HB.out HS.in HS.out hb.stdout hs.stdout debug_channels.txt debug_predratio.txt"); system("rm -f Lilith_in.xml Lilith_out.slha smodels.* summary.* particles.py"); #endif return 0; }
int LiLithF(char*fname) { unsigned int i, npart=0; double CU, Cb, Ctau, CV, Cgamma, Cg; char *parts[4]={"h1","h2","h3","ha"}; FILE*f; f=fopen(fname,"w"); fprintf(f, "<?xml version=\"1.0\"?>\n"); fprintf(f, "<lilithinput>\n"); for(i=0; i<4; i++) { double mass = pMass(parts[i]); if(mass < 123. || mass > 128.) { continue; } ++npart; // compute invisible and undetected branching ratios double invBR = 0., undBR = 0.; double w; txtList L; w=pWidth((char*)parts[i], &L); if(Mcdm1 < 0.5*mass) { char invdecay[50]; char cdmName[50]; // sortOddParticles(cdmName); strcpy(invdecay, CDM1); strcat(invdecay, ","); strcat(invdecay, CDM1); invBR = findBr(L, invdecay); } undBR = 1 - invBR - findBr(L, "b B") - findBr(L, "c C") - findBr(L, "l L") - findBr(L, "W+ W-") - findBr(L, "A A") - findBr(L, "Z1 Z1") - findBr(L, "G G") - findBr(L, "m M") - findBr(L, "A Z1") - findBr(L, "u U") - findBr(L, "d D") - findBr(L, "s S"); CU = slhaVal("REDCOUP",0.,2,1+i,1); Cb = slhaVal("REDCOUP",0.,2,1+i,3); Ctau = slhaVal("REDCOUP",0.,2,1+i,2); CV = slhaVal("REDCOUP",0.,2,1+i,4); Cg= slhaVal("REDCOUP",0.,2,1+i,5); Cgamma=slhaVal("REDCOUP",0.,2,1+i,6); fprintf(f, " <reducedcouplings part=\"%s\">\n", parts[i]); fprintf(f, " <mass>%f</mass>\n", mass); fprintf(f, " <C to=\"uu\">%f</C>\n", CU); fprintf(f, " <C to=\"bb\">%f</C>\n", Cb); fprintf(f, " <C to=\"mumu\">%f</C>\n", Ctau); fprintf(f, " <C to=\"tautau\">%f</C>\n", Ctau); fprintf(f, " <C to=\"VV\">%f</C>\n", CV); fprintf(f, " <C to=\"gammagamma\">%f</C>\n", Cgamma); fprintf(f, " <C to=\"gg\">%f</C>\n", Cg); // fprintf(f, " <C to=\"Zgamma\">%f</C>\n", 1.); fprintf(f, " <precision>%s</precision>\n", "BEST-QCD"); fprintf(f, " <extraBR>\n"); fprintf(f, " <BR to=\"invisible\">%f</BR>\n", invBR); fprintf(f, " <BR to=\"undetected\">%f</BR>\n", undBR); fprintf(f, " </extraBR>\n"); fprintf(f, " </reducedcouplings>\n"); } fprintf(f, "</lilithinput>\n"); fclose(f); return npart; }
int LilithMDL(char*fname) { unsigned int i, npart=0; double CU, Cb, Cl, CU5, Cb5, Cl5, CV,Cgamma, Cg; double Mcp=findValW("Mcp"), Mbp=findValW("Mbp"), Mtp=findValW("Mtp"); double vev = 2*findValW("MW")*findValW("SW")/findValW("EE"); FILE*f; char *parts[3]={"h1","h2","h3"}; int hPdgn[3]={25,35,36}; f=fopen(fname,"w"); fprintf(f, "<?xml version=\"1.0\"?>\n"); fprintf(f, "<lilithinput>\n"); for(i=0; i<3; i++) { double mass = pMass(parts[i]); if(mass < 123 || mass > 128) continue; ++npart; // compute invisible and undetected branching ratios double invBR = 0., undBR = 0.; double w; char format[100]; txtList L; w=pWidth((char*)parts[i], &L); if(Mcdm1 < 0.5*mass) { char invdecay[50]; char cdmName[50]; // sortOddParticles(cdmName); strcpy(invdecay, CDM1); strcat(invdecay, ","); strcat(invdecay, CDM1); invBR = findBr(L, invdecay); } undBR = 1 - invBR - findBr(L, "b B") - findBr(L, "c C") - findBr(L, "l L") - findBr(L, "W+ W-") - findBr(L, "A A") - findBr(L, "Z Z") - findBr(L, "G G") - findBr(L, "m M") - findBr(L, "A Z") - findBr(L, "u U") - findBr(L, "d D") - findBr(L, "s S"); sprintf(format,"%%lf %%*f 3 %d 6 6", hPdgn[i]); CU= slhaValFormat("LiLithInputHiggsCouplingsFermions",0.,format); sprintf(format,"%%*f %%lf 3 %d 6 6", hPdgn[i]); CU5= slhaValFormat("LiLithInputHiggsCouplingsFermions",0.,format); sprintf(format,"%%lf %%*f 3 %d 5 5", hPdgn[i]); Cb= slhaValFormat("LiLithInputHiggsCouplingsFermions",0.,format); sprintf(format,"%%*f %%lf 3 %d 5 5", hPdgn[i]); Cb5= slhaValFormat("LiLithInputHiggsCouplingsFermions",0.,format); sprintf(format,"%%lf %%*f 3 %d 15 15", hPdgn[i]); Cl= slhaValFormat("LiLithInputHiggsCouplingsFermions",0.,format); sprintf(format,"%%*f %%lf 3 %d 15 15", hPdgn[i]); Cl5= slhaValFormat("LiLithInputHiggsCouplingsFermions",0.,format); sprintf(format,"%%lf 3 %d 24 24", hPdgn[i]); CV= slhaValFormat("LiLithInputHiggsCouplingsBosons",0.,format); sprintf(format,"%%lf 3 %d 21 21", hPdgn[i]); Cg= slhaValFormat("LiLithInputHiggsCouplingsBosons",0.,format); // sprintf(format,"%%lf 3 %d 22 22", hPdgn[i]); // Cgamma= slhaValFormat("LiLithInputHiggsCouplingsBosons",0.,format); char LaTxt[20]; double LaV,LaV5,LaSM; sprintf(LaTxt,"LAA%s",parts[i]); LaV=findValW(LaTxt); sprintf(LaTxt,"imLAA%s",parts[i]); LaV5=findValW(LaTxt); Cgamma=-sqrt(LaV*LaV+4*LaV5*LaV5)/lAAhSM(mass,alphaQCD(mass)/M_PI, Mcp,Mbp,Mtp,vev); fprintf(f, " <reducedcouplings part=\"%s\">\n", parts[i]); fprintf(f, " <mass>%f</mass>\n", mass); fprintf(f, " <C to=\"uu\" part=\"re\"> %f</C>\n", CU); fprintf(f, " <C to=\"uu\" part=\"im\"> %f</C>\n", CU5); fprintf(f, " <C to=\"bb\" part=\"re\">%f</C>\n", Cb); fprintf(f, " <C to=\"bb\" part=\"im\">%f</C>\n", Cb5); fprintf(f, " <C to=\"mumu\" part=\"re\">%f</C>\n", Cl); fprintf(f, " <C to=\"mumu\" part=\"im\">%f</C>\n", Cl5); fprintf(f, " <C to=\"tautau\" part=\"re\">%f</C>\n", Cl); fprintf(f, " <C to=\"tautau\" part=\"im\">%f</C>\n", Cl5); fprintf(f, " <C to=\"VV\">%f</C>\n", CV); fprintf(f, " <C to=\"gammagamma\">%f</C>\n", Cgamma); fprintf(f, " <C to=\"gg\">%f</C>\n", Cg); // fprintf(f, " <C to=\"Zgamma\">%f</C>\n", 1.); fprintf(f, " <precision>%s</precision>\n", "LO"); fprintf(f, " <extraBR>\n"); fprintf(f, " <BR to=\"invisible\">%f</BR>\n", invBR); fprintf(f, " <BR to=\"undetected\">%f</BR>\n", undBR); fprintf(f, " </extraBR>\n"); fprintf(f, " </reducedcouplings>\n"); } fprintf(f, "</lilithinput>\n"); fclose(f); return npart; }
void smodels(double Pcm, int nf,double csMinFb, char*fileName,int wrt) { int SMP[16]={1,2,3,4,5,6, 11,12,13,14,15,16, 21,22,23,24}; int i,j; FILE*f=fopen(fileName,"w"); int np=0; char**plist=NULL; int smH=-1; char* gluname=NULL; char* phname=NULL; char* bname=NULL; char* Bname=NULL; char* lname=NULL; char* Lname=NULL; // find SM Higgs for(i=0;i<nModelParticles;i++) { if(ModelPrtcls[i].NPDG== 21) gluname=ModelPrtcls[i].name; if(ModelPrtcls[i].NPDG== 22) phname=ModelPrtcls[i].name; if(ModelPrtcls[i].NPDG== 5) { bname=ModelPrtcls[i].name; Bname=ModelPrtcls[i].aname;} if(ModelPrtcls[i].NPDG== -5) { bname=ModelPrtcls[i].aname; Bname=ModelPrtcls[i].name; } if(ModelPrtcls[i].NPDG== 15) { lname=ModelPrtcls[i].name; Lname=ModelPrtcls[i].aname;} if(ModelPrtcls[i].NPDG==-15) { Lname=ModelPrtcls[i].aname; lname=ModelPrtcls[i].name; } } //printf("gluname %s bname %s lname %s\n", gluname,bname,lname); if(gluname && bname && lname) for(smH=0;smH<nModelParticles;smH++) if( ModelPrtcls[smH].spin2==0 && ModelPrtcls[smH].cdim==1 && ModelPrtcls[smH].name[0]!='~' && strcmp(ModelPrtcls[smH].name,ModelPrtcls[smH].aname)==0 ) { double w,ggBr,bbBr,llBr, hMass=pMass(ModelPrtcls[smH].name); txtList L; double ggBrSM=0.073, bbBrSM=0.60,llBrSM=0.063,wSM=4.24E-3; double prec=0.9; char chan[50]; if(hMass<123 || hMass>128) continue; w=pWidth(ModelPrtcls[smH].name,&L); sprintf(chan,"%s,%s",gluname,gluname); ggBr=findBr(L, chan); sprintf(chan,"%s,%s",lname,Lname); llBr=findBr(L, chan); sprintf(chan,"%s,%s",bname,Bname); bbBr=findBr(L, chan); if(ggBr==0) { bbBr*=w/(w+0.073*0.00424); llBr*=w/(w+ggBrSM*wSM);} if( bbBrSM*prec< bbBr && bbBr<bbBrSM*(2-prec) && llBrSM*prec< llBr && llBr<llBrSM*(2-prec)) break; } if(smH<nModelParticles) printf("SM HIGGS=%s\n",ModelPrtcls[smH].name); else printf("NO SM-like HIGGS in the model\n"); fprintf(f,"BLOCK MASS\n"); for(i=0;i<nModelParticles;i++) if(pMass(ModelPrtcls[i].name) <Pcm) { for(j=0;j<16;j++) if(abs(ModelPrtcls[i].NPDG)==SMP[j]) break; if(j==16 ) { np++; plist=realloc(plist,np*sizeof(char*)); plist[np-1]=ModelPrtcls[i].name; if(strcmp(ModelPrtcls[i].name,ModelPrtcls[i].aname)) { np++; plist=realloc(plist,np*sizeof(char*)); plist[np-1]=ModelPrtcls[i].aname; } fprintf(f," %d %E # %s \n",ModelPrtcls[i].NPDG,findValW(ModelPrtcls[i].mass),ModelPrtcls[i].name); } } fprintf(f,"\n"); for(i=0;i<nModelParticles;i++) { for(j=0;j<16;j++) if(ModelPrtcls[i].NPDG==SMP[j]) break; if(j==16) slhaDecayPrint(ModelPrtcls[i].name,1,f); } for(i=0;i<np;i++) for(j=i;j<np;j++) if(pMass(plist[i])+pMass(plist[j])<Pcm) if(plist[i][0]=='~' && plist[j][0]=='~') { int q31,q32,q3,c1,c2; qNumbers(plist[i], NULL, &q31,&c1); qNumbers(plist[j], NULL, &q32,&c2); q3=q31+q32; if(q3<0) { q3*=-1; if(abs(c1)==3) c1*=-1; if(abs(c2)==3) c2*=-1;} if(c1>c2){ int c=c1; c1=c2;c2=c;} if ( (c2==1 || (c1==1 && c2==8) || (c1==-3 && c2==3) || (c1==8 && c2==8) ) && (q3!=0 && q3 !=3) ) continue; if ( ((c1==-3 && c2== 3)||(c1== 1 && c2== 1)|| (c1== 8 && c2== 8)||(c1== 1 && c2== 8)) && (q3!=0 && q3!=3) ) continue; if ( ((c1== 3 && c2== 8)||(c1== 1 && c2== 3)) && (q3!=2) ) continue; if ( ((c1==-3 && c2== 8)||(c1==-3 && c2== 1)) && (q3!=1) ) continue; if ( (c1== 3 && c2== 3) && (q3!=4 && q3!=1) ) continue; if ( (c1==-3 && c2==-3) && (q3!=2) ) continue; { double dcs; double Qf=0.5*(pMass(plist[i])+pMass(plist[j])); dcs=hCollider(Pcm,1,nf,Qf,Qf,plist[i],plist[j],0,wrt); if(dcs>csMinFb*0.001) { fprintf(f,"XSECTION %E 2212 2212 2 %d %d\n",2*Pcm, pNum(plist[i]),pNum(plist[j])); /*pb*/ fprintf(f,"0 0 0 0 0 0 %E micrOMEGAs 3.6\n\n", dcs); } } } fclose(f); free(plist); f=fopen("particles.py","w"); fprintf(f,"#!/usr/bin/env python\n"); fprintf(f,"rOdd ={\n"); for(np=0,i=0;i<nModelParticles;i++) if(ModelPrtcls[i].name[0]=='~' && pMass(ModelPrtcls[i].name) <Pcm ) { if(np) fprintf(f,",\n"); fprintf(f, " %d : \"%s\",\n", ModelPrtcls[i].NPDG,ModelPrtcls[i].name); fprintf(f, " %d : \"%s\"" , -ModelPrtcls[i].NPDG,ModelPrtcls[i].aname); np++; } fprintf(f,"\n}\n"); fprintf(f,"rEven ={\n"); for(np=0,i=0;i<nModelParticles;i++) if(ModelPrtcls[i].name[0]!='~' && pMass(ModelPrtcls[i].name) <Pcm ) { for(j=0;j<16;j++) if(abs(ModelPrtcls[i].NPDG)==SMP[j]) break; if(j==16 ) { if(np) fprintf(f,",\n"); if(ModelPrtcls[i].NPDG==smH) { fprintf(f, " %d : \"higgs\",\n", ModelPrtcls[i].NPDG); fprintf(f, " %d : \"higgs\"\n", -ModelPrtcls[i].NPDG); } else { char * n=ModelPrtcls[i].name; char * an=ModelPrtcls[i].aname; if(strcmp( n,"higgs")==0) n="!higgs"; if(strcmp(an,"higgs")==0) an="!higgs"; fprintf(f, " %d : \"%s\",\n", ModelPrtcls[i].NPDG,n); fprintf(f, " %d : \"%s\"" , -ModelPrtcls[i].NPDG,an); } np++; } } fprintf(f,",\n" " 23 : \"Z\",\n" " -23 : \"Z\",\n" " 22 : \"photon\",\n" " -22 : \"photon\",\n" " 24 : \"W+\",\n" " -24 : \"W-\",\n" " 16 : \"nu\",\n" " -16 : \"nu\",\n" " 15 : \"ta-\",\n" " -15 : \"ta+\",\n" " 14 : \"nu\",\n" " -14 : \"nu\",\n" " 13 : \"mu-\",\n" " -13 : \"mu+\",\n" " 12 : \"nu\",\n" " -12 : \"nu\",\n" " 11 : \"e-\",\n" " -11 : \"e+\",\n" " 5 : \"b\",\n" " -5 : \"b\",\n" " 6 : \"t+\",\n" " -6 : \"t-\",\n" " 1 : \"jet\",\n" " 2 : \"jet\",\n" " 3 : \"jet\",\n" " 4 : \"jet\",\n" " 21 : \"jet\",\n" " -21 : \"jet\",\n" " -1 : \"jet\",\n" " -2 : \"jet\",\n" " -3 : \"jet\",\n" " -4 : \"jet\"" ); fprintf(f,"\n}\n"); fprintf(f, "\nptcDic = {\"e\" : [\"e+\", \"e-\"],\n" " \"mu\" : [\"mu+\", \"mu-\"],\n" " \"ta\" : [\"ta+\", \"ta-\"],\n" " \"l+\" : [\"e+\", \"mu+\"],\n" " \"l-\" : [\"e-\", \"mu-\"],\n" " \"l\" : [\"e-\", \"mu-\", \"e+\", \"mu+\"],\n" " \"W\" : [\"W+\", \"W-\"],\n" " \"t\" : [\"t+\", \"t-\"],\n" " \"L+\" : [\"e+\", \"mu+\", \"ta+\"],\n" " \"L-\" : [\"e-\", \"mu-\", \"ta-\"],\n" " \"L\" : [\"e+\", \"mu+\", \"ta+\", \"e-\", \"mu-\", \"ta-\"]}\n" ); fprintf(f,"qNumbers ={\n"); for(np=0,i=0;i<nModelParticles;i++) if(pMass(ModelPrtcls[i].name) <Pcm ) { for(j=0;j<16;j++) if(abs(ModelPrtcls[i].NPDG)==SMP[j]) break; if(j==16 ) { if(np) fprintf(f,",\n"); fprintf(f, " %d : [%d,%d,%d]", ModelPrtcls[i].NPDG, ModelPrtcls[i].spin2, ModelPrtcls[i].q3, ModelPrtcls[i].cdim); np++; } } fprintf(f,"\n}\n"); fclose(f); }
static void show_spectrum(int X, int Y) { int i; char *menuP=malloc(2+22*(nModelParticles+2)); int mode=1; menuP[0]=22; menuP[1]=0; strcpy(menuP+1, " All Particles -> SLHA"); // sprintf(menuP++strlen(menuP)," Select.Particl-> SLHA"); for(i=0;i<nModelParticles;i++) { char *mass=ModelPrtcls[i].mass; char *name=ModelPrtcls[i].name; if(!strcmp(mass,"0")) sprintf(menuP+strlen(menuP)," %-6.6s Zero ",name); else sprintf(menuP+strlen(menuP)," %-6.6s %12.4E ",name,pMass(name)); } while(mode) { menu1(X,Y,"",menuP,"n_qnumbers",NULL, &mode); if(mode==1) writeSLHA(); else if(mode>1) { FILE*f=fopen("width.tmp","w"); int pos=mode-2; txtList LL=NULL; char *mass=ModelPrtcls[pos].mass; fprintf(f, "Patricle %s(%s), PDG = %d, Mass= ", ModelPrtcls[pos].name, ModelPrtcls[pos].aname, ModelPrtcls[pos].NPDG); if(strcmp(mass,"0")==0) fprintf(f, "Zero\n"); else { double width; fprintf(f,"%.3E ", pMass(ModelPrtcls[pos].name)); width=pWidth(ModelPrtcls[pos].name,&LL); fprintf(f," Width=%.2E\n",width); } fprintf(f,"Quantum numbers: "); { int spin=ModelPrtcls[pos].spin2; int q3=ModelPrtcls[pos].q3; fprintf(f," spin="); if(spin&1) fprintf(f,"%d/2, ",spin); else fprintf(f,"%d, ",spin/2); fprintf(f," charge(el.)="); if(q3!=3*(q3/3)) fprintf(f,"%d/3, ",q3);else fprintf(f,"%d ",q3/3); fprintf(f," color=%d\n",ModelPrtcls[pos].cdim); } if(LL) { txtList ll=LL; fprintf(f," Branchings & Decay channels:\n"); for(;ll;ll=ll->next) { char buff[100]; double br; sscanf(ll->txt,"%lf %[^\n]",&br,buff); fprintf(f," %.2E %s\n",br,buff); } } fclose(f); f=fopen("width.tmp","r"); showtext(2,Y,78, maxRow()-1,"Particle information",f); fclose(f); unlink("width.tmp"); } } free(menuP); return; }
int HBblocks(char * fname) { FILE * f=fopen(fname,"a"); double tb,sb,cb,alpha,sa,ca,ta,samb,camb,dMb,MbHl,MbSM,MbH,MbH3,Q; if(!f) return 1; Q=findValW("Q"); if(slhaDecayExists(pNum("h")) <0) slhaDecayPrint("h", f); if(slhaDecayExists(pNum("H")) <0) slhaDecayPrint("H", f); if(slhaDecayExists(pNum("H3"))<0) slhaDecayPrint("H3",f); if(slhaDecayExists(pNum("t")) <0) slhaDecayPrint("t", f); if(slhaDecayExists(pNum("H+"))<0) slhaDecayPrint("H+",f); tb=findValW("tB"); sb=tb/sqrt(1+tb*tb); cb=1/sqrt(1+tb*tb); alpha=findValW("alpha"); sa=sin(alpha); ca=cos(alpha); ta=sa/ca; samb=sa*cb-ca*sb; camb=ca*cb+sa*sb; dMb=findValW("dMb"); MbSM=findValW("Mb"); MbH= MbSM/(1+dMb)*(1+dMb*ta/tb); MbH3=MbSM/(1+dMb)*(1-dMb/tb/tb); MbHl=MbSM/(1+dMb)*(1-dMb/ta/tb); fprintf(f,"Block HiggsBoundsInputHiggsCouplingsBosons\n"); fprintf(f,"# Effective coupling normalised to SM one and squared\n"); fprintf(f,"# For (*) normalized on Sin(2*W)\n"); fprintf(f," %12.4E 3 25 24 24 # higgs-W-W \n", SQR(samb) ); fprintf(f," %12.4E 3 25 23 23 # higgs-Z-Z \n", SQR(samb) ); fprintf(f," %12.4E 3 25 25 23 # higgs-higgs-Z \n", 0. ); { assignVal("Q",pMass("h")); calcMainFunc(); fprintf(f," %12.4E 3 25 21 21 # higgs-gluon-gluon\n", SQR(findValW("LGGh")/findValW("LGGSM")) ); fprintf(f," %12.4E 3 25 22 22 # higgs-gamma-gamma\n", SQR(findValW("LAAh")/findValW("LAASM")) ); } fprintf(f," %12.4E 3 35 24 24 # higgs-W-W \n", SQR(camb) ); fprintf(f," %12.4E 3 35 23 23 # higgs-Z-Z \n", SQR(camb) ); fprintf(f," %12.4E 3 35 25 23 # higgs-higgs-Z \n", 0. ); fprintf(f," %12.4E 3 35 35 23 # higgs-higgs-Z \n", 0. ); { assignVal("Q",pMass("H")); calcMainFunc(); fprintf(f," %12.4E 3 35 21 21 # higgs-gluon-gluon\n",SQR(findValW("LGGH")/findValW("LGGSM")) ); fprintf(f," %12.4E 3 35 22 22 # higgs-gamma-gamma\n",SQR(findValW("LAAH")/findValW("LAASM")) ); } fprintf(f," %12.4E 3 36 24 24 # higgs-W-W \n", 0. ); fprintf(f," %12.4E 3 36 23 23 # higgs-Z-Z \n", 0. ); { assignVal("Q",pMass("H3")); calcMainFunc(); fprintf(f," %12.4E 3 36 21 21 # higgs-gluon-gluon\n",SQR(findValW("LGGH3")/2/findValW("LGGSM")) ); fprintf(f," %12.4E 3 36 22 22 # higgs-gamma-gamma\n",SQR(findValW("LAAH3")/2/findValW("LAASM")) ); } fprintf(f," %12.4E 3 36 25 23 #*higgs-higgs-Z \n", SQR(camb) ); fprintf(f," %12.4E 3 36 35 23 #*higgs-higgs-Z \n", SQR(samb) ); fprintf(f," %12.4E 3 36 36 23 #* higgs-higgs-Z \n", 0. ); fprintf(f,"Block HiggsBoundsInputHiggsCouplingsFermions\n"); fprintf(f,"# Effective coupling normalised to SM one and squared\n"); fprintf(f," %12.4E %12.4E 3 25 5 5 # higgs-b-b \n" ,SQR((sa/cb)*(MbHl/MbSM)),0.); fprintf(f," %12.4E %12.4E 3 25 6 6 # higgs-top-top \n",SQR(ca/sb) ,0.); fprintf(f," %12.4E %12.4E 3 25 15 15 # higgs-tau-tau \n",SQR(sa/cb) ,0.); fprintf(f," %12.4E %12.4E 3 35 5 5 # higgs-b-b \n" ,SQR((ca/cb)*(MbH/MbSM)) ,0.); fprintf(f," %12.4E %12.4E 3 35 6 6 # higgs-top-top \n",SQR(sa/sb) ,0.); fprintf(f," %12.4E %12.4E 3 35 15 15 # higgs-tau-tau \n",SQR(ca/cb) ,0.); fprintf(f," %12.4E %12.4E 3 36 5 5 # higgs-b-b \n" ,0.,SQR(tb*(MbH3/MbSM))); fprintf(f," %12.4E %12.4E 3 36 6 6 # higgs-top-top \n",0.,SQR(1/tb) ); fprintf(f," %12.4E %12.4E 3 36 15 15 # higgs-tau-tau \n",0.,SQR(tb) ); assignValW("Q",Q); calcMainFunc(); fclose(f); return 0; }