ParallelTable[Pause[1]; i, {i, 1, 80}];// AbsoluteTiming
{1.171367, Null}

Table[Sqrt[i], {i, 1, 10^6}]; // AbsoluteTiming
{11.3152, Null}

ParallelTable[Sqrt[i], {i, 1, 10^6}]; // AbsoluteTiming
{13.5914, Null}

FAuR[w_, b_] := If[b == 0, 0, NIntegrate[1/u Sqrt[u^2 - (w/gAu)^2]
BesselJ[1, b Sqrt[u^2 - (w/gAu)^2]] FFAuR[u^2], {u, w/gAu,
40}, MinRecursion -> 3, MaxRecursion -> 100,
WorkingPrecision -> 20, PrecisionGoal -> 10,
AccuracyGoal -> Infinity] ]

FAuR[1, 1] // AbsoluteTiming
NIntegrate::slwcon: Numerical integration converging too slowly; suspect one of the following: singularity, value of the integration is 0, highly oscillatory integrand, or WorkingPrecision too small. >>
{5.26011, 0.086004396132821223043}

FAuR[1, 1] // AbsoluteTiming
NIntegrate::slwcon: Numerical integration converging too slowly; suspect one of the following: singularity, value of the integration is 0, highly oscillatory integrand, or WorkingPrecision too small. >>
{431.500101, 0.086004396132821223043}

NIntegrate[FFAuR[Power[x, 1]], {x, 0, 10}] // AbsoluteTiming
{0.990320, 0.353331}

NIntegrate[FFAuR[Power[x, 2]], {x, 0, 10}] // AbsoluteTiming
{461.942459,0.580889}