44 using namespace starlightConstants;
71 double y1,y2,y12,ega1,ega2,ega12;
72 double csgA1,csgA2,csgA12,int_r,dR;
79 cout<<
" Using Narrow Resonance ..."<<endl;
86 printf(
" gamma+nucleon threshold: %e GeV \n", Eth);
96 for(J=0;J<=(NY-1);J++){
102 if( A_2 == 1 && A_1 != 1 ){
104 ega1 = 0.5*W*exp(-y1);
105 ega2 = 0.5*W*exp(-y2);
106 ega12 = 0.5*W*exp(-y12);
108 }
else if( A_1 ==1 && A_2 != 1){
110 ega1 = 0.5*W*exp(y1);
111 ega2 = 0.5*W*exp(y2);
112 ega12 = 0.5*W*exp(y12);
115 ega1 = 0.5*W*exp(y1);
116 ega2 = 0.5*W*exp(y2);
117 ega12 = 0.5*W*exp(y12);
121 if(ega1 < Eth || ega2 < Eth)
136 dR = dR + 4.*ega12*
photonFlux(ega12,beam)*csgA12;
147 if( !( (A_2 == 1 && A_1 != 1) || (A_1 == 1 && A_2 != 1) ) ){
148 for(J=0;J<=(NY-1);J++){
155 ega1 = 0.5*W*exp(-y1);
156 ega2 = 0.5*W*exp(-y2);
157 ega12 = 0.5*W*exp(-y12);
159 if(ega2 < Eth || ega1 < Eth)
174 dR = dR + 4.*ega12*
photonFlux(ega12,beam)*csgA12;
185 if (0.01*int_r > 1.){
186 cout<<
" Total cross section: "<<0.01*int_r<<
" barn."<<endl;
187 }
else if (10.*int_r > 1.){
188 cout<<
" Total cross section: " <<10.*int_r<<
" mb."<<endl;
189 }
else if (10000.*int_r > 1.){
190 cout<<
" Total cross section: " <<10000.*int_r<<
" microb."<<endl;
191 }
else if (10000000.*int_r > 1.){
192 cout<<
" Total cross section: " <<10000000.*int_r<<
" nanob."<<endl;
193 }
else if (1.E10*int_r > 1.){
194 cout<<
" Total cross section: "<<1.E10*int_r<<
" picob."<<endl;
196 cout<<
" Total cross section: " <<1.E13*int_r<<
" femtob."<<endl;