This is a part of my code
SE[x_, g_, c_] := 1/x NIntegrate[Rationalize[(
6 (10^-10 Sqrt[xP])^2 10^-11 (10^-7 Sqrt[(
10^-38 c^2 xP + (10^-10 Sqrt[xP])/x)/(
0.1` + 10^-38 c^2)])^3)/((10^-38 c^2 xP + (10^-10 Sqrt[xP])/
x)^4/(0.1` + 10^-38 c^2)^4)], {xP, 1.`/g, 10^12},
PrecisionGoal -> 10.`, MinRecursion -> 3.`, MaxRecursion -> 15.`,
Method -> {Automatic, "SymbolicProcessing" -> 0.`}]
For which this part
Sqrt[NIntegrate[(SE[x, 10^-23, 10^14])^2, {x, 10^-5,
1}]] // AbsoluteTiming
Taking too much time for my range of values for c->(10^9-10^15)
but when I decrease the value of c
the integral becomes faster. I have to make the integral atleast 10-100
times more faster