int main(int argc,char** argv)
{ int err;
char wimpName[10];
/* to save RGE input/output files uncomment the next line */
/*delFiles(0);*/
if(argc==1)
{
printf(" Correct usage: ./omg <file with parameters> \n");
exit(1);
}
err=readVar(argv[1]);
/* err=readVarRHNM(argv[1]);*/
if(err==-1) {printf("Can not open the file\n"); exit(1);}
else if(err>0) { printf("Wrong file contents at line %d\n",err);exit(1);}
err=sortOddParticles(wimpName);
if(err) { printf("Can't calculate %s\n",wimpName); return 1;}
/*to print input parameters or model in SLHA format uncomment correspondingly*/
/*
printVar(stdout);
writeLesH("slha.out");
*/
#ifdef MASSES_INFO
{
printf("\n=== MASSES OF PARTICLES OF ODD SECTOR: ===\n");
printMasses(stdout,1);
}
#endif
#ifdef CONSTRAINTS
printf("\n================= CONSTRAINTS =================\n");
#endif
#ifdef OMEGA
{ int fast=1;
double Beps=1.E-2, cut=0.01;
double Omega,Xf;
printf("\n==== Calculation of relic density =====\n");
Omega=darkOmega(&Xf,fast,Beps);
printf("Xf=%.2e Omega=%.2e\n",Xf,Omega);
printChannels(Xf,cut,Beps,1,stdout);
}
#endif
#ifdef INDIRECT_DETECTION
{ /* See hep-ph/0607059 pages 10, 11 for complete explanation */
int err,outP;
double Mwimp,Emin,Ntot,Etot,sigmaV,v=0.001,fi,tab[250];
char txt[100];
printf("\n==== Indirect detection =======\n");
outP=0; /* 0 for gamma rays
1-positron; 2-antiproton; 3,4,5 neutrinos
(electron, muon and tau correspondinly)
*/
Emin=0.1; /* Energy cut in GeV */
fi=0; /* angle of sight in radians */
sigmaV=calcSpectrum(v,outP,tab,&err);
/* Returns sigma*v in cm^3/sec.
tab could be substituted in zInterp(z,tab) to get particle distribution
in one collision dN/dz, where z=log (E/Mwinp) */
printf("sigma*v=%.2E [cm^3/sec]\n", sigmaV);
Mwimp=lopmass_();
spectrInfo(Emin/Mwimp,tab, &Ntot,&Etot);
printf("%.2E %s with E > %.2E are generated at one collision\n",Ntot,outNames[outP],Emin);
#ifdef SHOWPLOTS
/* Spectrum of photons produced in DM annihilation. */
sprintf(txt,"%s: N=%.2e,<E/2M>=%.2f,vsc=%.2e cm^3/sec,M(%s)=%.2e",
outNames[outP],Ntot,Etot,sigmaV,wimpName,Mwimp);
displaySpectrum(tab, txt ,Emin/Mwimp);
#endif
if(outP==0)
{
printf("gamma flux for fi=%.2E[rad] is %.2E[ph/cm^2/s/sr]\n",
fi, HaloFactor(fi,rhoQisotermic)*sigmaV*Ntot/Mwimp/Mwimp);
}
/* Test of energy conservation */
/*
{ double e[6];
int i;
printf("Check of energy conservation:\n");
for(i=0;i<6;i++)
{
sigmaV=calcSpectrum(v,i,tab,&err);
spectrInfo(Emin/Mwimp,tab, NULL,e+i);
}
printf("1 = %.2f\n",e[0]+2*(e[1]+e[2]+e[3]+e[4]+e[5]) );
}
*/
}
#endif
#ifdef RESET_FORMFACTORS
{
/*
The default nucleon form factors can be completely or partially modified
by setProtonFF and setNeutronFF. For scalar form factors, one can first call
getScalarFF( Mu/Md, Ms/Md, sigmaPiN[MeV], sigma0[MeV], protonFF,neutronFF)
or set the new coefficients by directly assigning numerical values.
*/
{ double ffS0P[3]={0.033,0.023,0.26},
ffS0N[3]={0.042,0.018,0.26},
ffV5P[3]={-0.427, 0.842,-0.085},
ffV5N[3]={ 0.842,-0.427,-0.085};
printf("\n=========== Redefinition of form factors =========\n");
getScalarFF(0.553,18.9,55.,35.,ffS0P, ffS0N);
printf("protonFF d %E, u %E, s %E\n",ffS0P[0],ffS0P[1],ffS0P[2]);
printf("neutronFF d %E, u %E, s %E\n",ffS0N[0],ffS0N[1],ffS0N[2]);
/* Use NULL argument if there is no need for reassignment */
setProtonFF(ffS0P,ffV5P, NULL);
setNeutronFF(ffS0N,ffV5N,NULL);
}
/* Option to change parameters of DM velocity distribution
*/
SetfMaxwell(220.,244.4,600.);
/* arg1- defines DM velocity distribution in Galaxy rest frame:
~exp(-v^2/arg1^2)d^3v
arg2- Earth velocity with respect to Galaxy
arg3- Maximal DM velocity in Sun orbit with respect to Galaxy.
All parameters are in [km/s] units.
*/
/* In case DM has velocity distribution close to delta-function
the DM velocity V[km/s] can be defined by
*/
SetfDelta(350.);
/* To reset parameters of Fermi nucleus distribution */
SetFermi(1.23,-0.6,0.52);
/* with half-density radius for Fermi distribution:
c=arg1*A^(1/3) + arg2
and arg3 is the surface thickness.
All parameter in [fm].
*/
}
#endif
#ifdef WIMP_NUCLEON
{ double pA0[2],pA5[2],nA0[2],nA5[2];
double Nmass=0.939; /*nucleon mass*/
double SCcoeff;
double dpA0[2],dnA0[2];
printf("\n==== Calculation of WIMP-nucleons amplitudes =====\n");
nucleonAmplitudes(NULL, dpA0,pA5,dnA0,nA5);
printf("====OFF/On======\n");
nucleonAmplitudes(NULL, pA0,pA5,nA0,nA5);
dpA0[0]-=pA0[0];
dnA0[0]-=nA0[0];
printf("%s -nucleon amplitudes:\n",wimpName);
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*lopmass_()/(Nmass+ lopmass_()),2.);
printf("%s-nucleon cross sections:\n",wimpName);
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]);
printf(" twist-2 CS proton %.3E neutron %.3E \n",
SCcoeff*dpA0[0]*dpA0[0], SCcoeff*dnA0[0]*dnA0[0]);
printf("anti-%s -nucleon amplitudes:\n",wimpName);
printf("proton: SI %.3E SD %.3E\n",pA0[1],pA5[1]);
printf("neutron: SI %.3E SD %.3E\n",nA0[1],nA5[1]);
SCcoeff=4/M_PI*3.8937966E8*pow(Nmass*lopmass_()/(Nmass+ lopmass_()),2.);
printf("anti-%s-nucleon cross sections:\n",wimpName);
printf(" proton SI %.3E SD %.3E\n",SCcoeff*pA0[1]*pA0[1],3*SCcoeff*pA5[1]*pA5[1]);
printf(" neutron SI %.3E SD %.3E\n",SCcoeff*nA0[1]*nA0[1],3*SCcoeff*nA5[1]*nA5[1]);
}
#endif
#ifdef WIMP_NUCLEUS
{ double dNdE[200];
double nEvents;
double rho=0.3; /* DM density GeV/sm^3 */
printf("\n=========== Direct Detection ===============\n");
nEvents=nucleusRecoil(rho,fDvMaxwell,73,Z_Ge,J_Ge73,S00Ge73,S01Ge73,S11Ge73,NULL,dNdE);
/* See '../sources/micromegas.h' for description of arguments
Instead of Maxwell (DvMaxwell) one can use 'fDvDelta' Delta-function
velocity distribution.
*/
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(rho,fDvMaxwell,131,Z_Xe,J_Xe131,S00Xe131,S01Xe131,S11Xe131,NULL,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
/* If SD form factors are not known or for spin=0 nucleus one can use */
nEvents=nucleusRecoil0(rho,fDvMaxwell,3,Z_He,J_He3,Sp_He3,Sn_He3,NULL,dNdE);
printf("\n 3^He: Total number of events=%.2E /day/kg\n",nEvents);
#ifdef SHOWPLOTS
displayRecoilPlot(dNdE,"Distribution of recoil energy of 3He",0,50);
#endif
}
#endif
#ifdef CROSS_SECTIONS
{
double Pcm=500;
numout* cc;
double cosmin=-0.99, cosmax=0.99;
double v=0.002;
printf("\n====== Calculation of widths and cross sections ====\n");
decay2Info("Z",stdout);
decay2Info("H",stdout);
/* Helicity[0]=0.45;
Helicity[1]=-0.45;
printf("Process e,E->2*x at Pcm=%.3E GeV\n",Pcm);
cc=newProcess("e%,E%->2*x","eE_2x");
if(cc)
{ int ntot,l;
char * name[4];
procInfo1(cc,&ntot,NULL,NULL);
for(l=1;l<=ntot; l++)
{ int err;
double cs;
procInfo2(cc,l,name,NULL);
printf("%3s,%3s -> %3s %3s ",name[0],name[1],name[2],name[3]);
cs= cs22(cc,l,Pcm,cosmin,cosmax,&err);
if(err) printf("Error\n");
else if(cs==0.) printf("Zero\n");
else printf("%.2E [pb]\n",cs);
}
}
*/
printf("\n WIMP annihilation at V_rel=%.2E\n",v);
cc=newProcess("",wimpAnnLib());
assignValW("Q",2*lopmass_());
if(cc)
{ int ntot,l;
char * name[4];
double mass[4];
procInfo1(cc,&ntot,NULL,NULL);
for(l=1;l<=ntot; l++)
{ int err;
double cs;
procInfo2(cc,l,name,mass);
if(l==1) { Pcm=mass[0]*v/2; printf("(Pcm=%.2E)\n",Pcm);}
printf("%3s,%3s -> %3s %3s ",name[0],name[1],name[2],name[3]);
cs= cs22(cc,l,Pcm,-1.,1.,&err);
if(err) printf("Error\n");
else if(cs==0.) printf("Zero\n");
else printf("%.2E [pb] ( sigma*v=%.2E [cm^3/sec] ) \n",cs,cs*v*2.9979E-26);
}
}
}
#endif
return 0;
}
void wimpannlib_(char * f_name, int len)
{
char *c_name=wimpAnnLib();
cName2f(c_name, f_name,len);
}
