19"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
21+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
23-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
25call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
26err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
27if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
28getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
290.592319847946765693983261139952398973,
0.592319847946765693983261139952399069,
0.420679694161706175066609104098715408E-29,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
30[numFuncEval, numInterval]
34"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
36+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
38-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
40call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
41err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
42if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
43getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
440.592319847946765693983261139952398973,
0.592319847946765693983261139952399069,
0.420679694161706175066609104098715408E-29,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
45[numFuncEval, numInterval]
53"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
55+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
57-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
59call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
60err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
61if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
62getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
630.592319847946765693983261139952398973,
0.592319847946765693983261139952395699,
0.749057713854147205376412430387292458E-25,
0.327408090545830095019516250239437644E-32 >= 1 (unbiased)? TRUE
64[numFuncEval, numInterval]
68"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
70+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
72-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
74call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
75err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
76if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
77getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
780.592319847946765693983261139952398973,
0.592319847946765693983261139952395699,
0.749057713854147205376412430387292458E-25,
0.327408090545830095019516250239437644E-32 >= 1 (unbiased)? TRUE
79[numFuncEval, numInterval]
87"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
89+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
91-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
93call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
94err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
95if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
96getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
970.592319847946765693983261139952398973,
0.592319847946765693983261139952399069,
0.282354400096319256248938688151661529E-30,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
98[numFuncEval, numInterval]
102"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
104+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
106-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
108call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
109err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
110if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
111getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1120.592319847946765693983261139952398973,
0.592319847946765693983261139952399069,
0.282354400096319256248938688151661529E-30,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
113[numFuncEval, numInterval]
121"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
123+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
125-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
127call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
128err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
129if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
130getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1310.592319847946765693983261139952398973,
0.592319847946765693983261139952369891,
0.130763857408511882147171505007517289E-23,
0.290815421602472613811452669330324025E-31 >= 1 (unbiased)? TRUE
132[numFuncEval, numInterval]
136"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
138+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
140-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
142call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
143err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
144if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
145getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1460.592319847946765693983261139952398973,
0.592319847946765693983261139952369891,
0.130763857408511882147171505007517289E-23,
0.290815421602472613811452669330324025E-31 >= 1 (unbiased)? TRUE
147[numFuncEval, numInterval]
155"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
157+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
159-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
161call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
162err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
163if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
164getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1650.592319847946765693983261139952398973,
0.592319847946765693983261139952398973,
0.908014202174603824005803987572878882E-26,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
166[numFuncEval, numInterval]
170"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
172+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
174-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
176call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
177err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
178if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
179getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1800.592319847946765693983261139952398973,
0.592319847946765693983261139952398973,
0.908014202174603824005803987572878882E-26,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
181[numFuncEval, numInterval]
189"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
191+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
193-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
195call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
196err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
197if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
198getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1990.592319847946765693983261139952398973,
0.592319847946765693983261139950914562,
0.242973532478881507761272478019151270E-22,
0.148441050463646203374289499924733273E-29 >= 1 (unbiased)? TRUE
200[numFuncEval, numInterval]
204"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
206+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
208-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
210call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
211err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
212if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
213getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2140.592319847946765693983261139952398973,
0.592319847946765693983261139950914466,
0.242973532478881507761272477921271703E-22,
0.148450680113368139553554779814446198E-29 >= 1 (unbiased)? TRUE
215[numFuncEval, numInterval]
223"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
225+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
227-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
229call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
230err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
231if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
232getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2330.592319847946765693983261139952398973,
0.592319847946765693983261139952415054,
0.311644046752404524231338211060753717E-22,
0.160815150356334193730174158205841431E-31 >= 1 (unbiased)? TRUE
234[numFuncEval, numInterval]
238"int1_type: an algebraic integrand of the form f(x) = x**2 / (x**2 + 1) / (x**2 + 4) for x in (lb, ub)"
240+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
242-4.00000000000000000000000000000000000,
+4.00000000000000000000000000000000000
244call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
245err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
246if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
247getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2480.592319847946765693983261139952398973,
0.592319847946765693983261139952415054,
0.311644046752404524231537458497527643E-22,
0.160815150356334193730174158205841431E-31 >= 1 (unbiased)? TRUE
249[numFuncEval, numInterval]
262"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
264+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
266+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
268call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
269err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
270if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
272 **** INTEGRATION FAILED: ERR
= 3 ****
274getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2750.942809041582063365867792482806465323,
0.942809041582063353517270922122486063,
0.275996032154812596404096004412307632E-15,
0.123505215606839792599902659423179129E-16 >= 1 (unbiased)? TRUE
276[numFuncEval, numInterval]
280"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
282+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
284+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
286call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
287err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
288if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
289getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2900.942809041582063365867792482806465323,
0.942809041582063365867792482806360745,
0.780290516968488605865629463438283303E-30,
0.104577995980226906820939602282361553E-30 >= 1 (unbiased)? TRUE
291[numFuncEval, numInterval]
299"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
301+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
303+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
305call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
306err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
307if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
309 **** INTEGRATION FAILED: ERR
= 3 ****
311getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3120.942809041582063365867792482806465323,
0.942809041582063354181389418572630975,
0.395526291759776583849399257993266119E-15,
0.116864030642338343481331615363661636E-16 >= 1 (unbiased)? TRUE
313[numFuncEval, numInterval]
317"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
319+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
321+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
323call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
324err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
325if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
326getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3270.942809041582063365867792482806465323,
0.942809041582063365867792482806368256,
0.683127351274152557078955376234873720E-30,
0.970668691971166869940212883062803369E-31 >= 1 (unbiased)? TRUE
328[numFuncEval, numInterval]
336"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
338+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
340+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
342call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
343err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
344if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
346 **** INTEGRATION FAILED: ERR
= 3 ****
348getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3490.942809041582063365867792482806465323,
0.942809041582063353612391313951514454,
0.393612625583696433467216358595637327E-15,
0.122554011688549508692539077120199527E-16 >= 1 (unbiased)? TRUE
350[numFuncEval, numInterval]
354"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
356+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
358+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
360call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
361err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
362if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
363getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3640.942809041582063365867792482806465323,
0.942809041582063365867792482806399167,
0.654527291600002104661074103787487549E-30,
0.661556935897015515524728423277922534E-31 >= 1 (unbiased)? TRUE
365[numFuncEval, numInterval]
373"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
375+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
377+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
379call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
380err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
381if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
383 **** INTEGRATION FAILED: ERR
= 3 ****
385getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3860.942809041582063365867792482806465323,
0.942809041582063354504151452306557739,
0.393427741808206315477620382019741615E-15,
0.113636410304999075837096309795641304E-16 >= 1 (unbiased)? TRUE
387[numFuncEval, numInterval]
391"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
393+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
395+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
397call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
398err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
399if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
400getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
4010.942809041582063365867792482806465323,
0.942809041582063365867792482806474856,
0.311326575510196675646498834418853501E-30,
0.953335322471681747262709081579539023E-32 >= 1 (unbiased)? TRUE
402[numFuncEval, numInterval]
410"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
412+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
414+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
416call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
417err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
418if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
420 **** INTEGRATION FAILED: ERR
= 3 ****
422getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
4230.942809041582063365867792482806465323,
0.942809041582063360076317716910846285,
0.279164711945302751623913154970201256E-15,
0.579147476589561903767056045130549251E-17 >= 1 (unbiased)? TRUE
424[numFuncEval, numInterval]
428"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
430+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
432+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
434call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
435err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
436if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
437getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
4380.942809041582063365867792482806465323,
0.942809041582063365867792482806439901,
0.205400428568898703728420047576682499E-30,
0.254222752659115132603389088421210406E-31 >= 1 (unbiased)? TRUE
439[numFuncEval, numInterval]
447"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
449+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
451+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
453call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
454err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
455if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
457 **** INTEGRATION FAILED: ERR
= 3 ****
459getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
4600.942809041582063365867792482806465323,
0.942809041582063358489159110539769991,
0.274189625236721766830515122145815584E-15,
0.737863337226669533225571680774701636E-17 >= 1 (unbiased)? TRUE
461[numFuncEval, numInterval]
465"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
467+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
469+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
471call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
472err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
473if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
474getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
4750.942809041582063365867792482806465323,
0.942809041582063365867792482806451456,
0.747866619686254516023298199584791888E-27,
0.138666955995880981420030411866114767E-31 >= 1 (unbiased)? TRUE
476[numFuncEval, numInterval]
484"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
486+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
488+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
490call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
491err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
492if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
494 **** INTEGRATION FAILED: ERR
= 3 ****
496getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
4970.942809041582063365867792482806465323,
0.942809041582063352985651916754259394,
0.107881013975510488055028051825168280E-14,
0.128821405660522059292977722684510948E-16 >= 1 (unbiased)? TRUE
498[numFuncEval, numInterval]
502"int2_type: an algebraic integrand of the form f(x) = 1 / sqrt(a - b * x) for x in (0, a / b) with a > 0 and b > 0 with a singularity at the upper bound of integration"
504+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
506+0.00000000000000000000000000000000000,
+0.666666666666666666666666666666666635
508call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
509err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
510if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
511getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5120.942809041582063365867792482806465323,
0.942809041582063365867792482806467056,
0.894595922874628788043750076873935104E-26,
0.173333694994851226775038014832643459E-32 >= 1 (unbiased)? TRUE
513[numFuncEval, numInterval]
526"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
528+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
530+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
532call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
533err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
534if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
535getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
536-3.12249862669012531099145873075559453,
-3.12249862669012531099145703288302519,
0.159554531774406733373916406327365902E-21,
0.169787256934451856030425956397998728E-23 >= 1 (unbiased)? TRUE
537[numFuncEval, numInterval]
541"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
543+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
545+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
547call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
548err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
549if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
550getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
551-3.12249862669012531099145873075559453,
-3.12249862669012531099145873075586917,
0.104192809991349459650328406693844568E-29,
0.274637610069619832645782454612610636E-30 >= 1 (unbiased)? TRUE
552[numFuncEval, numInterval]
560"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
562+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
564+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
566call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
567err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
568if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
569getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
570-3.12249862669012531099145873075559453,
-3.12249862669012531099145675992893943,
0.158821823031096796049113138417448082E-21,
0.197082665510145750102784224886897408E-23 >= 1 (unbiased)? TRUE
571[numFuncEval, numInterval]
575"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
577+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
579+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
581call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
582err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
583if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
584getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
585-3.12249862669012531099145873075559453,
-3.12249862669012531099145873075560878,
0.295052467480124532688175820804010865E-30,
0.142518815884655453126142367751284622E-31 >= 1 (unbiased)? TRUE
586[numFuncEval, numInterval]
594"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
596+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
598+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
600call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
601err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
602if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
603getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
604-3.12249862669012531099145873075559453,
-3.12249862669012531099145637935769671,
0.157863935952385241531199129294364333E-21,
0.235139789781688314990001714829882296E-23 >= 1 (unbiased)? TRUE
605[numFuncEval, numInterval]
609"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
611+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
613+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
615call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
616err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
617if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
618getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
619-3.12249862669012531099145873075559453,
-3.12249862669012531099145873075562303,
0.278104283969516857181283214909263505E-30,
0.285037631769310906252284735502569243E-31 >= 1 (unbiased)? TRUE
620[numFuncEval, numInterval]
628"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
630+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
632+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
634call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
635err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
636if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
637getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
638-3.12249862669012531099145873075559453,
-3.12249862669012531099145581781496689,
0.156352167288494027740417861647194691E-21,
0.291294062764122468285662650331711561E-23 >= 1 (unbiased)? TRUE
639[numFuncEval, numInterval]
643"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
645+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
647+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
649call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
650err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
651if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
652getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
653-3.12249862669012531099145873075559453,
-3.12249862669012531099145873075552443,
0.445660189131206376397153295914152182E-30,
0.701038499756953850512375971100913544E-31 >= 1 (unbiased)? TRUE
654[numFuncEval, numInterval]
662"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
664+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
666+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
668call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
669err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
670if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
671getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
672-3.12249862669012531099145873075559453,
-3.12249862669012531099145489154805592,
0.153862855021951093878837768152750949E-21,
0.383920753861232441434641228203070917E-23 >= 1 (unbiased)? TRUE
673[numFuncEval, numInterval]
677"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
679+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
681+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
683call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
684err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
685if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
686getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
687-3.12249862669012531099145873075559453,
-3.12249862669012531099145873075556603,
0.182963344716787406040317904545568095E-30,
0.285037631769310906252284735502569243E-31 >= 1 (unbiased)? TRUE
688[numFuncEval, numInterval]
696"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
698+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
700+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
702call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
703err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
704if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
705getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
706-3.12249862669012531099145873075559453,
-3.12249862669012531099145729306953740,
0.166762278786010609240106982579981836E-21,
0.143768605713088174426049560344490814E-23 >= 1 (unbiased)? TRUE
707[numFuncEval, numInterval]
711"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
713+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
715+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
717call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
718err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
719if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
720getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
721-3.12249862669012531099145873075559453,
-3.12249862669012531099145873075553329,
0.638742935999207969456768107027576605E-25,
0.612445722315141001271800985742006887E-31 >= 1 (unbiased)? TRUE
722[numFuncEval, numInterval]
730"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
732+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
734+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
736call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
737err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
738if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
739getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
740-3.12249862669012531099145873075559453,
-3.12249862669012531099145821665001954,
0.168984966934533206681021840309021027E-21,
0.514105574994657236239111087685608621E-24 >= 1 (unbiased)? TRUE
741[numFuncEval, numInterval]
745"int3_type: an algebraic integrand of the form f(x) = log(x) / sqrt(x) for x in (0, ub) with a singularity at the lower limit of integration"
747+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
749+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
751call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
752err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
753if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
754getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
755-3.12249862669012531099145873075559453,
-3.12249862669012531099145873075569198,
0.736077254850655834241784402267592237E-24,
0.974520551859941341646324838947973223E-31 >= 1 (unbiased)? TRUE
756[numFuncEval, numInterval]
769"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
771+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
773+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
775call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
776err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
777if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
778getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
779-0.189275187882093321180367135892330336,
-0.189275187882093321180367157318588076,
0.709016787220663753280987987987449705E-23,
0.214262577393144583924325489311691073E-25 >= 1 (unbiased)? TRUE
780[numFuncEval, numInterval]
784"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
786+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
788+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
790call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
791err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
792if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
793getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
794-0.189275187882093321180367135892330336,
-0.189275187882093321180367124314328969,
0.875190015574302935869778694464445775E-23,
0.115780013668100956229775935139168619E-25 >= 1 (unbiased)? TRUE
795[numFuncEval, numInterval]
803"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
805+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
807+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
809call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
810err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
811if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
812getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
813-0.189275187882093321180367135892330336,
-0.189275187882093321180367149919369956,
0.551012606285227548119424458552174544E-23,
0.140270396193317866081626615262131133E-25 >= 1 (unbiased)? TRUE
814[numFuncEval, numInterval]
818"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
820+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
822+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
824call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
825err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
826if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
827getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
828-0.189275187882093321180367135892330336,
-0.189275187882093321180367089569735215,
0.151044926215718500490728968093616592E-23,
0.463225951208172227937270578607855780E-25 >= 1 (unbiased)? TRUE
829[numFuncEval, numInterval]
837"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
839+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
841+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
843call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
844err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
845if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
846getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
847-0.189275187882093321180367135892330336,
-0.189275187882093321180367156609609617,
0.990374035889893040148759005915834788E-23,
0.207172792803981521991901235694034717E-25 >= 1 (unbiased)? TRUE
848[numFuncEval, numInterval]
852"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
854+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
856+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
858call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
859err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
860if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
861getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
862-0.189275187882093321180367135892330336,
-0.189275187882093321180367136737390768,
0.206538524316503455750529471463185887E-23,
0.845060431740830626700484040037212854E-27 >= 1 (unbiased)? TRUE
863[numFuncEval, numInterval]
871"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
873+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
875+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
877call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
878err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
879if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
880getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
881-0.189275187882093321180367135892330336,
-0.189275187882093321180367151548235028,
0.957392833849128474709628758212286240E-23,
0.156559046920400077057876054566418227E-25 >= 1 (unbiased)? TRUE
882[numFuncEval, numInterval]
886"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
888+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
890+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
892call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
893err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
894if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
895getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
896-0.189275187882093321180367135892330336,
-0.189275187882093321180367053743959274,
0.171962738095825101336800150848907331E-23,
0.821483710621972264585727597482209873E-25 >= 1 (unbiased)? TRUE
897[numFuncEval, numInterval]
905"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
907+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
909+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
911call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
912err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
913if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
914getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
915-0.189275187882093321180367135892330336,
-0.189275187882093321180367142295921133,
0.533449664465163971795229829978550423E-23,
0.640359079630558032326051067654102261E-26 >= 1 (unbiased)? TRUE
916[numFuncEval, numInterval]
920"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
922+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
924+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
926call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
927err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
928if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
929getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
930-0.189275187882093321180367135892330336,
-0.189275187882093321180367098529961854,
0.176706130872379461913794484338831648E-23,
0.373623684826722927458878775914489365E-25 >= 1 (unbiased)? TRUE
931[numFuncEval, numInterval]
939"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
941+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
943+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
945call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
946err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
947if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
948getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
949-0.189275187882093321180367135892330336,
-0.189275187882093321180367142888265418,
0.916569351771482762439666906043156170E-23,
0.699593508223454134228455499330206068E-26 >= 1 (unbiased)? TRUE
950[numFuncEval, numInterval]
954"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
956+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
958+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
960call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
961err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
962if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
963getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
964-0.189275187882093321180367135892330336,
-0.189275187882093321180367392427969773,
0.530509501355781083785828386429659476E-23,
0.256535639436815431080742250597631077E-24 >= 1 (unbiased)? TRUE
965[numFuncEval, numInterval]
973"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
975+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
977+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
979call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
980err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
981if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
982getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
983-0.189275187882093321180367135892330336,
-0.189275187882093321180367139165292541,
0.924243709461983056941934025837519752E-23,
0.327296220497597931940946677440670170E-26 >= 1 (unbiased)? TRUE
984[numFuncEval, numInterval]
988"int4_type: an algebraic integrand of the form f(x) = log(x) / (1. + log(x)**2)**2 for x in (0, 1) with a singularity at the lower limit"
990+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
992+0.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000
994call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
995err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
996if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
997getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
998-0.189275187882093321180367135892330336,
-0.189275187882093321180366078398657478,
0.736851143959267756122637599455224984E-23,
0.105749367285779775551489847684084479E-23 >= 1 (unbiased)? TRUE
999[numFuncEval, numInterval]
1012"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1014+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1016-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1018call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1019err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1020if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1021getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1022-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881803344,
0.166076809503706953025771617393152980E-30,
0.200296714216272528717821706028832441E-31 >= 1 (unbiased)? TRUE
1023[numFuncEval, numInterval]
1027"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1029+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1031-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1033call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1034err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1035if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1036getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1037-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881803344,
0.166076809503706953025771617393152980E-30,
0.200296714216272528717821706028832441E-31 >= 1 (unbiased)? TRUE
1038[numFuncEval, numInterval]
1046"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1048+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1050-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1052call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1053err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1054if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1055getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1056-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881804962,
0.176515061923112748728818467237145913E-30,
0.362074829544800340374523853205966336E-31 >= 1 (unbiased)? TRUE
1057[numFuncEval, numInterval]
1061"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1063+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1065-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1067call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1068err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1069if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1070getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1071-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881804962,
0.176515061923112748728818467237145913E-30,
0.362074829544800340374523853205966336E-31 >= 1 (unbiased)? TRUE
1072[numFuncEval, numInterval]
1080"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1082+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1084-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1086call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1087err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1088if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1089getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1090-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881803575,
0.223041390585116341659536250553811681E-23,
0.223407873548919358954493441339851569E-31 >= 1 (unbiased)? TRUE
1091[numFuncEval, numInterval]
1095"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1097+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1099-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1101call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1102err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1103if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1104getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1105-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881803575,
0.223041390585116341659536250553811681E-23,
0.223407873548919358954493441339851569E-31 >= 1 (unbiased)? TRUE
1106[numFuncEval, numInterval]
1114"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1116+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1118-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1120call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1121err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1122if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1123getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1124-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881803807,
0.324790916892417464705264731054702257E-21,
0.246519032881566189191165176650870697E-31 >= 1 (unbiased)? TRUE
1125[numFuncEval, numInterval]
1129"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1131+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1133-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1135call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1136err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1137if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1138getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1139-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881803807,
0.324790916892417464705264731054702257E-21,
0.246519032881566189191165176650870697E-31 >= 1 (unbiased)? TRUE
1140[numFuncEval, numInterval]
1148"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1150+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1152-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1154call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1155err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1156if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1157getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1158-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881800725,
0.336225917340299553880585728767591043E-21,
0.616297582203915472977912941627176742E-32 >= 1 (unbiased)? TRUE
1159[numFuncEval, numInterval]
1163"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1165+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1167-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1169call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1170err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1171if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1172getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1173-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881800725,
0.336225917340299553880585728767591043E-21,
0.616297582203915472977912941627176742E-32 >= 1 (unbiased)? TRUE
1174[numFuncEval, numInterval]
1182"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1184+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1186-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1188call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1189err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1190if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1191getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1192-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881796180,
0.344182590644948053094812349253319233E-21,
0.516149225095779208619002088612760521E-31 >= 1 (unbiased)? TRUE
1193[numFuncEval, numInterval]
1197"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1199+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1201-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1203call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1204err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1205if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1206getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1207-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881796180,
0.344182590644948053094812349253319233E-21,
0.516149225095779208619002088612760521E-31 >= 1 (unbiased)? TRUE
1208[numFuncEval, numInterval]
1216"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1218+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1220-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1222call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1223err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1224if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1226 **** INTEGRATION FAILED: ERR
= 1 ****
1228getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1229-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881795101,
0.213754699437790813345369741909500076E-19,
0.624001301981464416390136853397516451E-31 >= 1 (unbiased)? TRUE
1230[numFuncEval, numInterval]
1234"intSinCos_typer(): a highly oscillatory integrand of the form f(x) = cos(a * sin(b * x)) for x in (lb, ub)"
1236+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1238-12.5663706143591729538505735331180112,
+12.5663706143591729538505735331180112
1240call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1241err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1242if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1244 **** INTEGRATION FAILED: ERR
= 1 ****
1246getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
1247-6.18103992684276605416490727881801341,
-6.18103992684276605416490727881795101,
0.213754699437790813345369741909500076E-19,
0.624001301981464416390136853397516451E-31 >= 1 (unbiased)? TRUE
1248[numFuncEval, numInterval]
1261"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1263+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1265-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1267call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1268err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1269if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1270getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
12710.997300203936739810946696370464810073,
0.997300203936739810946696370464809977,
0.960365163152632139431742870020602309E-32,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
1272[numFuncEval, numInterval]
1276"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1278+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1280-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1282call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1283err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1284if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1285getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
12860.997300203936739810946696370464810073,
0.997300203936739810946696370464809977,
0.960365163152632139431742870020602309E-32,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
1287[numFuncEval, numInterval]
1295"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1297+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1299-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1301call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1302err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1303if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1304getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
13050.997300203936739810946696370464810073,
0.997300203936739810946696370464810073,
0.960365163152632139431742870020602428E-32,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
1306[numFuncEval, numInterval]
1310"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1312+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1314-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1316call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1317err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1318if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1319getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
13200.997300203936739810946696370464810073,
0.997300203936739810946696370464810073,
0.960365163152632139431742870020602428E-32,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
1321[numFuncEval, numInterval]
1329"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1331+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1333-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1335call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1336err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1337if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1338getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
13390.997300203936739810946696370464810073,
0.997300203936739810946696370464810073,
0.960365163152632139431742870020602428E-32,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
1340[numFuncEval, numInterval]
1344"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1346+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1348-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1350call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1351err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1352if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1353getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
13540.997300203936739810946696370464810073,
0.997300203936739810946696370464810073,
0.960365163152632139431742870020602428E-32,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
1355[numFuncEval, numInterval]
1363"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1365+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1367-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1369call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1370err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1371if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1372getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
13730.997300203936739810946696370464810073,
0.997300203936739810946696370464809977,
0.889132319815101506992486479583758891E-23,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
1374[numFuncEval, numInterval]
1378"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1380+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1382-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1384call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1385err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1386if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1387getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
13880.997300203936739810946696370464810073,
0.997300203936739810946696370464809977,
0.889132319815101506992486479583758891E-23,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
1389[numFuncEval, numInterval]
1397"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1399+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1401-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1403call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1404err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1405if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1406getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
14070.997300203936739810946696370464810073,
0.997300203936739810946696370464810073,
0.165294620035281907669157093642640498E-27,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
1408[numFuncEval, numInterval]
1412"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1414+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1416-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1418call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1419err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1420if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1421getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
14220.997300203936739810946696370464810073,
0.997300203936739810946696370464810073,
0.165294620035281907669157093642640498E-27,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
1423[numFuncEval, numInterval]
1431"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1433+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1435-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1437call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1438err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1439if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1440getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
14410.997300203936739810946696370464810073,
0.997300203936739810946696370464810073,
0.863216418769238025171827058295059452E-23,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
1442[numFuncEval, numInterval]
1446"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1448+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1450-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1452call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1453err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1454if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1455getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
14560.997300203936739810946696370464810073,
0.997300203936739810946696370464810073,
0.863216418769238025171827058295059452E-23,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
1457[numFuncEval, numInterval]
1465"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1467+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1469-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1471call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1472err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1473if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1474getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
14750.997300203936739810946696370464810073,
0.997300203936739810946696370464809881,
0.989078465979444977809838184337901268E-26,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
1476[numFuncEval, numInterval]
1480"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
1482+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1484-3.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1486call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1487err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1488if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1489getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
14900.997300203936739810946696370464810073,
0.997300203936739810946696370464809881,
0.989078465979444977809838184337901268E-26,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
1491[numFuncEval, numInterval]
1504"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1506+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1508+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1510call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1511err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1512if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1513getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
15140.999999998026824709924603718598271714,
0.999999998026824709924603718606966421,
0.547734710492596613198428389733446047E-25,
0.869470703043339562041386522069678363E-29 >= 1 (unbiased)? TRUE
1515[numFuncEval, numInterval]
1519"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1521+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1523+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1525call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1526err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1527if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1528getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
15290.999999998026824709924603718598271714,
0.999999998026824709924603718606966421,
0.547734710492596613198428389733446047E-25,
0.869470703043339562041386522069678363E-29 >= 1 (unbiased)? TRUE
1530[numFuncEval, numInterval]
1538"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1540+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1542+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1544call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1545err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1546if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1547getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
15480.999999998026824709924603718598271714,
0.999999998026824709924603725273434449,
0.111572292886404739914008350309747436E-22,
0.667516273516384885871584678866435084E-26 >= 1 (unbiased)? TRUE
1549[numFuncEval, numInterval]
1553"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1555+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1557+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1559call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1560err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1561if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1562getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
15630.999999998026824709924603718598271714,
0.999999998026824709924603725273434449,
0.111572292886404739914008350309747436E-22,
0.667516273516384885871584678866435084E-26 >= 1 (unbiased)? TRUE
1564[numFuncEval, numInterval]
1572"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1574+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1576+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1578call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1579err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1580if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1581getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
15820.999999998026824709924603718598271714,
0.999999998026824709924603718603631866,
0.909231155365824677119168796245423356E-25,
0.536015192472133546443274501090524047E-29 >= 1 (unbiased)? TRUE
1583[numFuncEval, numInterval]
1587"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1589+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1591+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1593call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1594err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1595if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1596getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
15970.999999998026824709924603718598271714,
0.999999998026824709924603718603631866,
0.909231155365824677119168796245423356E-25,
0.536015192472133546443274501090524047E-29 >= 1 (unbiased)? TRUE
1598[numFuncEval, numInterval]
1606"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1608+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1610+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1612call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1613err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1614if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1615getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
16160.999999998026824709924603718598271714,
0.999999998026824709924603718598289432,
0.158903399619013173818078524001182440E-26,
0.177185554883625698481149970717813313E-31 >= 1 (unbiased)? TRUE
1617[numFuncEval, numInterval]
1621"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1623+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1625+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1627call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1628err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1629if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1630getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
16310.999999998026824709924603718598271714,
0.999999998026824709924603718598289432,
0.158903399619013173818078524001182440E-26,
0.177185554883625698481149970717813313E-31 >= 1 (unbiased)? TRUE
1632[numFuncEval, numInterval]
1640"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1642+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1644+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1646call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1647err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1648if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1649getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
16500.999999998026824709924603718598271714,
0.999999998026824709924603724430861091,
0.473774284927787933092831945007090199E-22,
0.583258937713082699387465474894301931E-26 >= 1 (unbiased)? TRUE
1651[numFuncEval, numInterval]
1655"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1657+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1659+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1661call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1662err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1663if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1664getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
16650.999999998026824709924603718598271714,
0.999999998026824709924603724430861091,
0.473774284927787933092831945007090199E-22,
0.583258937713082699387465474894301931E-26 >= 1 (unbiased)? TRUE
1666[numFuncEval, numInterval]
1674"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1676+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1678+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1680call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1681err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1682if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1683getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
16840.999999998026824709924603718598271714,
0.999999998026824709924603718597611697,
0.287685113478269648540938767224899488E-23,
0.660016191941505726842283640923854592E-30 >= 1 (unbiased)? TRUE
1685[numFuncEval, numInterval]
1689"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1691+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1693+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1695call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1696err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1697if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1698getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
16990.999999998026824709924603718598271714,
0.999999998026824709924603718597611601,
0.287685113534716101717891864391506212E-23,
0.660112488438725088634936439820983838E-30 >= 1 (unbiased)? TRUE
1700[numFuncEval, numInterval]
1708"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1710+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1712+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1714call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1715err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1716if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1717getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
17180.999999998026824709924603718598271714,
0.999999998026824709924603718598970922,
0.413911009759127321286150717768291224E-22,
0.699208866309785976451972792055457863E-30 >= 1 (unbiased)? TRUE
1719[numFuncEval, numInterval]
1723"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
1725+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1727+0.247875217666635842304516743081666797E-2,
+403.428793492735122608387180543388261
1729call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1730err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1731if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1732getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
17330.999999998026824709924603718598271714,
0.999999998026824709924603718598970922,
0.413911009749698252358648302095278663E-22,
0.699208866309785976451972792055457863E-30 >= 1 (unbiased)? TRUE
1734[numFuncEval, numInterval]
1757"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1759+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1761+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1763call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1764err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1765if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1766getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
176752.7407483834714449977291997202299809,
52.7407483834714449977292366379355449,
0.232948034581913058117362173197774120E-20,
0.369177055639478213906171612588075812E-22 >= 1 (unbiased)? TRUE
1768[numFuncEval, numInterval]
1772"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1774+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1776+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1778call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1779err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1780if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1781getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
178252.7407483834714449977291997202299809,
52.7407483834714449977292366379355449,
0.232948034581910442839641894837805126E-20,
0.369177055639478213906171612588075812E-22 >= 1 (unbiased)? TRUE
1783[numFuncEval, numInterval]
1787"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1789+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1791+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1793break
= integrand
%break
1795+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
1796call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1797err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1798if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1799getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
180052.7407483834714449977291997202299809,
52.7407483834714449977291997202300549,
0.215704153771370415542269529569511860E-30,
0.739557098644698567573495529952612090E-31 >= 1 (unbiased)? TRUE
1801[numFuncEval, numInterval]
1809"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1811+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1813+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1815call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1816err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1817if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1818getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
181952.7407483834714449977291997202299809,
52.7407483834714449977292438063205872,
0.289842740064462589430561056453025360E-20,
0.440860906062666305104910908066251817E-22 >= 1 (unbiased)? TRUE
1820[numFuncEval, numInterval]
1824"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1826+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1828+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1830call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1831err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1832if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1833getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
183452.7407483834714449977291997202299809,
52.7407483834714449977295184848960249,
0.693326515071374954915388451190837108E-21,
0.318764666043968291460193089320036199E-21 >= 1 (unbiased)? TRUE
1835[numFuncEval, numInterval]
1839"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1841+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1843+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1845break
= integrand
%break
1847+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
1848call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1849err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1850if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1851getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
185252.7407483834714449977291997202299809,
52.7407483834714449977291997202300118,
0.252682008703605343920944306067142464E-30,
0.308148791101957736488956470813588371E-31 >= 1 (unbiased)? TRUE
1853[numFuncEval, numInterval]
1861"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1863+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1865+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1867call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1868err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1869if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1870getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
187152.7407483834714449977291997202299809,
52.7407483834714449977292649207112954,
0.279593999482776900534868720509082035E-20,
0.652004813144543403145197148230116006E-22 >= 1 (unbiased)? TRUE
1872[numFuncEval, numInterval]
1876"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1878+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1880+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1882call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1883err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1884if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1885getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
188652.7407483834714449977291997202299809,
52.7407483834714449977290870687116074,
0.274753994291644172553532843780808128E-20,
0.112651518373518784579849481605177939E-21 >= 1 (unbiased)? TRUE
1887[numFuncEval, numInterval]
1891"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1893+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1895+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1897break
= integrand
%break
1899+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
1900call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1901err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1902if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1903getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
190452.7407483834714449977291997202299809,
52.7407483834714449977291997202300056,
0.258844984525644498650723435483414232E-30,
0.246519032881566189191165176650870697E-31 >= 1 (unbiased)? TRUE
1905[numFuncEval, numInterval]
1913"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1915+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1917+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1919call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1920err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1921if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1922getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
192352.7407483834714449977291997202299809,
52.7407483834714449977292367935215582,
0.251471601443466184023500098962922429E-20,
0.370732915772305750904988313404028221E-22 >= 1 (unbiased)? TRUE
1924[numFuncEval, numInterval]
1928"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1930+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1932+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1934call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1935err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1936if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1937getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
193852.7407483834714449977291997202299809,
52.7407483834714449977285836488177115,
0.301923442913926513603930385366954872E-21,
0.616071412269492390330983203073406400E-21 >= 1 (unbiased)? FALSE
1939[numFuncEval, numInterval]
1943"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1945+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1947+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1949break
= integrand
%break
1951+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
1952call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1953err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1954if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1955getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
195652.7407483834714449977291997202299809,
52.7407483834714449977291997202303446,
0.101072803481442137568377722426856986E-29,
0.363615573500310129056968635560034278E-30 >= 1 (unbiased)? TRUE
1957[numFuncEval, numInterval]
1965"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1967+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1969+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1971call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1972err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1973if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1974getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
197552.7407483834714449977291997202299809,
52.7407483834714449977292436198756049,
0.236976499150922248611803146063519560E-20,
0.438996456239446501688475882380567381E-22 >= 1 (unbiased)? TRUE
1976[numFuncEval, numInterval]
1980"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1982+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1984+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
1986call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
1987err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
1988if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
1989getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
199052.7407483834714449977291997202299809,
52.7407483834714449977291966257559157,
0.456776810745997439567234169400521718E-21,
0.309447406528561579676039582642801594E-23 >= 1 (unbiased)? TRUE
1991[numFuncEval, numInterval]
1995"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
1997+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
1999+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
2001break
= integrand
%break
2003+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2004call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2005err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2006if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2007getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
200852.7407483834714449977291997202299809,
52.7407483834714449977291997202299378,
0.101565841547205269946760052780158727E-28,
0.431408307542740831084539059139023719E-31 >= 1 (unbiased)? TRUE
2009[numFuncEval, numInterval]
2017"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2019+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2021+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
2023call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2024err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2025if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2026getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
202752.7407483834714449977291997202299809,
52.7407483834714449977291982119430973,
0.281626577137703108527091583183984416E-20,
0.150828688369907653358743503038319383E-23 >= 1 (unbiased)? TRUE
2028[numFuncEval, numInterval]
2032"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2034+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2036+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
2038call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2039err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2040if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2041getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
204252.7407483834714449977291997202299809,
52.7407483834714449977293756512978794,
0.254999378299648692241095276481594183E-20,
0.175931067898488635329681605170223821E-21 >= 1 (unbiased)? TRUE
2043[numFuncEval, numInterval]
2047"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2049+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2051+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
2053break
= integrand
%break
2055+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2056call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2057err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2058if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2059getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
206052.7407483834714449977291997202299809,
52.7407483834714449977291997195885076,
0.145934789324395373910560032466299001E-21,
0.641473338436945420049060685292646912E-27 >= 1 (unbiased)? TRUE
2061[numFuncEval, numInterval]
2069"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2071+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2073+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
2075call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2076err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2077if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2078getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
207952.7407483834714449977291997202299809,
52.7407483834714449977292167635249410,
0.293274362483881910135101178347983001E-20,
0.170432949600210965006781892119767990E-22 >= 1 (unbiased)? TRUE
2080[numFuncEval, numInterval]
2084"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2086+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2088+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
2090call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2091err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2092if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2093getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
209452.7407483834714449977291997202299809,
52.7407483834714449977292912037018482,
0.861440250501809415940640073786542392E-21,
0.914834718672150527668310362914449166E-22 >= 1 (unbiased)? TRUE
2095[numFuncEval, numInterval]
2099"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (0., 3.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2101+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2103+0.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
2105break
= integrand
%break
2107+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2108call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2109err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2110if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2111getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
211252.7407483834714449977291997202299809,
52.7407483834714449977291997202766717,
0.177820485224825466168110304633011622E-21,
0.466907048277686362328066844576749100E-28 >= 1 (unbiased)? TRUE
2113[numFuncEval, numInterval]
2126"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2128+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2130-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2132call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2133err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2134if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2135getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2136808.362636933094758891687400938039628,
808.362636933094758891687471893973174,
0.420428066044995247619779893403061725E-19,
0.709559335465196559320351946024423056E-22 >= 1 (unbiased)? TRUE
2137[numFuncEval, numInterval]
2141"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2143+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2145-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2147call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2148err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2149if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2150getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2151808.362636933094758891687400938039628,
808.362636933094758891688933312264848,
0.269985834833653133208257528689778831E-19,
0.153237422522047254007449471466291762E-20 >= 1 (unbiased)? TRUE
2152[numFuncEval, numInterval]
2156"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2158+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2160-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2162break
= integrand
%break
2164-1.41421356237309504880168872420969798,
-1.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2165call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2166err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2167if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2168getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2169808.362636933094758891687400938039628,
808.362636933094758891687400938039430,
0.246519032881566189191165176650870697E-29,
0.197215226305252951352932141320696557E-30 >= 1 (unbiased)? TRUE
2170[numFuncEval, numInterval]
2178"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2180+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2182-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2184call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2185err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2186if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2187getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2188808.362636933094758891687400938039628,
808.362636933094758891651413809911292,
0.402768140965438604201265877918852738E-19,
0.359871281283357411621820403619443520E-19 >= 1 (unbiased)? TRUE
2189[numFuncEval, numInterval]
2193"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2195+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2197-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2199call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2200err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2201if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2202getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2203808.362636933094758891687400938039628,
808.362636933094758891649522978239936,
0.315581333195617989058840370349038907E-19,
0.378779597996917572594531696750093715E-19 >= 1 (unbiased)? FALSE
2204[numFuncEval, numInterval]
2208"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2210+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2212-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2214break
= integrand
%break
2216-1.41421356237309504880168872420969798,
-1.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2217call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2218err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2219if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2220getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2221808.362636933094758891687400938039628,
808.362636933094758891687400938039135,
0.364848168664717960002924461443288631E-29,
0.493038065763132378382330353301741394E-30 >= 1 (unbiased)? TRUE
2222[numFuncEval, numInterval]
2230"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2232+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2234-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2236call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2237err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2238if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2239getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2240808.362636933094758891687400938039628,
808.362636933094758891687515486860670,
0.418903792734497197692678797433228734E-19,
0.114548821042530639855580291570679978E-21 >= 1 (unbiased)? TRUE
2241[numFuncEval, numInterval]
2245"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2247+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2249-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2251call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2252err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2253if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2254getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2255808.362636933094758891687400938039628,
808.362636933094758891686643352163873,
0.288824415172313077899846899168836500E-19,
0.757585875754799176519244678488478361E-21 >= 1 (unbiased)? TRUE
2256[numFuncEval, numInterval]
2260"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2262+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2264-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2266break
= integrand
%break
2268-1.41421356237309504880168872420969798,
-1.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2269call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2270err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2271if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2272getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2273808.362636933094758891687400938039628,
808.362636933094758891687400938040022,
0.177493703674727656217638927188626902E-29,
0.394430452610505902705864282641393115E-30 >= 1 (unbiased)? TRUE
2274[numFuncEval, numInterval]
2282"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2284+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2286-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2288call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2289err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2290if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2291getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2292808.362636933094758891687400938039628,
808.362636933094758891686464461756229,
0.425591066993900818172003255308945527E-19,
0.936476283398807666973875222659582878E-21 >= 1 (unbiased)? TRUE
2293[numFuncEval, numInterval]
2297"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2299+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2301-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2303call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2304err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2305if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2306getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2307808.362636933094758891687400938039628,
808.362636933094758891656690794454032,
0.107724197210109923778700366568685096E-19,
0.307101435855953070267010200542346135E-19 >= 1 (unbiased)? FALSE
2308[numFuncEval, numInterval]
2312"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2314+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2316-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2318break
= integrand
%break
2320-1.41421356237309504880168872420969798,
-1.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2321call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2322err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2323if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2324getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2325808.362636933094758891687400938039628,
808.362636933094758891687400938039923,
0.212193722743136913008187337454003461E-26,
0.295822839457879427029398211981044836E-30 >= 1 (unbiased)? TRUE
2326[numFuncEval, numInterval]
2334"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2336+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2338-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2340call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2341err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2342if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2343getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2344808.362636933094758891687400938039628,
808.362636933094758891687316466735109,
0.432311912826119020347975498797484685E-19,
0.844713045185488530720419602668712071E-22 >= 1 (unbiased)? TRUE
2345[numFuncEval, numInterval]
2349"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2351+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2353-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2355call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2356err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2357if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2358getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2359808.362636933094758891687400938039628,
808.362636933094758891689755023479920,
0.311407590357648733831817146933149767E-19,
0.235408544029224495211061935024713382E-20 >= 1 (unbiased)? TRUE
2360[numFuncEval, numInterval]
2364"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2366+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2368-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2370break
= integrand
%break
2372-1.41421356237309504880168872420969798,
-1.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2373call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2374err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2375if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2376getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2377808.362636933094758891687400938039628,
808.362636933094758891687400938040811,
0.104320158469684842706990865300722076E-21,
0.118329135783151770811759284792417934E-29 >= 1 (unbiased)? TRUE
2378[numFuncEval, numInterval]
2386"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2388+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2390-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2392call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2393err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2394if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2395getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2396808.362636933094758891687400938039628,
808.362636933094758891687472727908803,
0.434911218511979220600726133842225228E-19,
0.717898691750040911309963439262167849E-22 >= 1 (unbiased)? TRUE
2397[numFuncEval, numInterval]
2401"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2403+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2405-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2407call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2408err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2409if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2410getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2411808.362636933094758891687400938039628,
808.362636933094758891681251377390012,
0.334323222985259195957959902664314400E-20,
0.614956064961550876359035768078158290E-20 >= 1 (unbiased)? FALSE
2412[numFuncEval, numInterval]
2416"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2418+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2420-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2422break
= integrand
%break
2424-1.41421356237309504880168872420969798,
-1.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2425call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2426err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2427if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2428getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2429808.362636933094758891687400938039628,
808.362636933094758891687400937280645,
0.990216586020630180919255548708256071E-21,
0.758982798435765983281759345872700701E-27 >= 1 (unbiased)? TRUE
2430[numFuncEval, numInterval]
2438"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2440+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2442-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2444call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2445err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2446if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2447getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2448808.362636933094758891687400938039628,
808.362636933094758891687456378802632,
0.440491446502510165141378304194197183E-19,
0.554407630046850353251283669973129020E-22 >= 1 (unbiased)? TRUE
2449[numFuncEval, numInterval]
2453"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2455+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2457-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2459call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2460err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2461if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2462getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2463808.362636933094758891687400938039628,
808.362636933094758891668516912233589,
0.822355585689238246612019374627950373E-20,
0.188840258060384384249410278092701028E-19 >= 1 (unbiased)? FALSE
2464[numFuncEval, numInterval]
2468"int5_type: an algebraic integrand of the form f(x) = x**3 log(abs((x**2 - 1) * (x**2 - 2))) for x in (-2., 5.) with 4 possible singularities: [-sqrt(2.), -1., 1., sqrt(2.)]"
2470+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2472-2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000
2474break
= integrand
%break
2476-1.41421356237309504880168872420969798,
-1.00000000000000000000000000000000000,
+1.00000000000000000000000000000000000,
+1.41421356237309504880168872420969798
2477call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2478err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2479if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2480getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
2481808.362636933094758891687400938039628,
808.362636933094758891687400937605951,
0.111546774718161097677219975523034831E-20,
0.433676282645251240025097778764211730E-27 >= 1 (unbiased)? TRUE
2482[numFuncEval, numInterval]
2505"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2507+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2509+0.00000000000000000000000000000000000,
+Inf
2511call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2512err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2513if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2514getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
25151.00000000000000000000000000000000000,
1.00000000000000000000000683093738751,
0.107548465526929774899346799170100514E-22,
0.683093738750686545518761614413113403E-23 >= 1 (unbiased)? TRUE
2516[numFuncEval, numInterval]
2520"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2522+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2524+0.00000000000000000000000000000000000,
+Inf
2526call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2527err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2528if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2529getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
25301.00000000000000000000000000000000000,
1.00000000000000000000000683093738751,
0.107548465526929774899346799170100514E-22,
0.683093738750686545518761614413113403E-23 >= 1 (unbiased)? TRUE
2531[numFuncEval, numInterval]
2539"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2541+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2543+0.00000000000000000000000000000000000,
+Inf
2545call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2546err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2547if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2548getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
25491.00000000000000000000000000000000000,
0.999999999999999999999999939736407215,
0.600429978202030731308364645561707562E-24,
0.602635927846961645320151725548255656E-25 >= 1 (unbiased)? TRUE
2550[numFuncEval, numInterval]
2554"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2556+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2558+0.00000000000000000000000000000000000,
+Inf
2560call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2561err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2562if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2563getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
25641.00000000000000000000000000000000000,
0.999999999999999999999999939736407215,
0.600429978202030731308364645561707562E-24,
0.602635927846961645320151725548255656E-25 >= 1 (unbiased)? TRUE
2565[numFuncEval, numInterval]
2573"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2575+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2577+0.00000000000000000000000000000000000,
+Inf
2579call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2580err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2581if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2582getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
25831.00000000000000000000000000000000000,
1.00000000000000000000000484242643363,
0.261137973809069354723001214234638665E-22,
0.484242643362555919451450079017564117E-23 >= 1 (unbiased)? TRUE
2584[numFuncEval, numInterval]
2588"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2590+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2592+0.00000000000000000000000000000000000,
+Inf
2594call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2595err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2596if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2597getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
25981.00000000000000000000000000000000000,
1.00000000000000000000000484242643363,
0.261137973809069354723001214234638665E-22,
0.484242643362555919451450079017564117E-23 >= 1 (unbiased)? TRUE
2599[numFuncEval, numInterval]
2607"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2609+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2611+0.00000000000000000000000000000000000,
+Inf
2613call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2614err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2615if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2616getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
26171.00000000000000000000000000000000000,
1.00000000000000000000000006863277634,
0.329563195481091717165227829005320597E-23,
0.686327763433308101870535294524986280E-25 >= 1 (unbiased)? TRUE
2618[numFuncEval, numInterval]
2622"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2624+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2626+0.00000000000000000000000000000000000,
+Inf
2628call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2629err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2630if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2631getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
26321.00000000000000000000000000000000000,
1.00000000000000000000000006863277634,
0.329563195481091717165227829005320597E-23,
0.686327763433308101870535294524986280E-25 >= 1 (unbiased)? TRUE
2633[numFuncEval, numInterval]
2641"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2643+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2645+0.00000000000000000000000000000000000,
+Inf
2647call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2648err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2649if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2650getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
26511.00000000000000000000000000000000000,
0.999999999999999999999999943674824462,
0.131595391208190529455108945051666084E-22,
0.563251755375416056268739438945854252E-25 >= 1 (unbiased)? TRUE
2652[numFuncEval, numInterval]
2656"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2658+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2660+0.00000000000000000000000000000000000,
+Inf
2662call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2663err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2664if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2665getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
26661.00000000000000000000000000000000000,
0.999999999999999999999999943674824462,
0.131595391208190529455108945051666084E-22,
0.563251755375416056268739438945854252E-25 >= 1 (unbiased)? TRUE
2667[numFuncEval, numInterval]
2675"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2677+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2679+0.00000000000000000000000000000000000,
+Inf
2681call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2682err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2683if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2684getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
26851.00000000000000000000000000000000000,
1.00000000000000000000000005509718469,
0.185875326636098607607964145008442373E-22,
0.550971846938518212456720189377984095E-25 >= 1 (unbiased)? TRUE
2686[numFuncEval, numInterval]
2690"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2692+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2694+0.00000000000000000000000000000000000,
+Inf
2696call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2697err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2698if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2699getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
27001.00000000000000000000000000000000000,
1.00000000000000000000000005509718469,
0.185875326636098606689609183428530258E-22,
0.550971846938518212456720189377984095E-25 >= 1 (unbiased)? TRUE
2701[numFuncEval, numInterval]
2709"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2711+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2713+0.00000000000000000000000000000000000,
+Inf
2715call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2716err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2717if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2718getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
27191.00000000000000000000000000000000000,
0.999999999999999999999999999201192244,
0.502632205254390581980142979518399244E-22,
0.798807755604788562422006774562854604E-27 >= 1 (unbiased)? TRUE
2720[numFuncEval, numInterval]
2724"intLogNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (x * sigma * sqrt(2 * acos(-1.))) for x in (0 <= lb, ub)"
2726+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2728+0.00000000000000000000000000000000000,
+Inf
2730call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2731err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2732if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2733getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
27341.00000000000000000000000000000000000,
0.999999999999999999999999999201192244,
0.502632205254390576996016670287735371E-22,
0.798807755604788562422006774562854604E-27 >= 1 (unbiased)? TRUE
2735[numFuncEval, numInterval]
2748"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2750+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2752+0.00000000000000000000000000000000000,
+Inf
2754call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2755err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2756if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2758 **** INTEGRATION FAILED: ERR
= 3 ****
2760getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
27613.14159265358979323846264338327950280,
3.14159265358979321522591241908331849,
0.208296085374979030073347323675135307E-14,
0.232367309641961843090786165022738858E-16 >= 1 (unbiased)? TRUE
2762[numFuncEval, numInterval]
2766"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2768+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2770+0.00000000000000000000000000000000000,
+Inf
2772call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2773err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2774if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2775getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
27763.14159265358979323846264338327950280,
3.14159265358979323846264338331126023,
0.841166273885282742541162361664315890E-23,
0.317574292249788868753812426864599005E-28 >= 1 (unbiased)? TRUE
2777[numFuncEval, numInterval]
2785"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2787+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2789+0.00000000000000000000000000000000000,
+Inf
2791call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2792err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2793if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2795 **** INTEGRATION FAILED: ERR
= 3 ****
2797getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
27983.14159265358979323846264338327950280,
3.14159265358979321521966862186854363,
0.207806142908620680924945166813662624E-14,
0.232429747614109591667650366812964584E-16 >= 1 (unbiased)? TRUE
2799[numFuncEval, numInterval]
2803"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2805+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2807+0.00000000000000000000000000000000000,
+Inf
2809call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2810err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2811if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2812getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
28133.14159265358979323846264338327950280,
3.14159265358979323846264338326861128,
0.332287423097541913601087094762350108E-22,
0.108915190214986961962021664609062810E-28 >= 1 (unbiased)? TRUE
2814[numFuncEval, numInterval]
2822"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2824+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2826+0.00000000000000000000000000000000000,
+Inf
2828call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2829err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2830if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2832 **** INTEGRATION FAILED: ERR
= 3 ****
2834getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
28353.14159265358979323846264338327950280,
3.14159265358979321009254441360505564,
0.206563802792221812436188991440778625E-14,
0.283700989696744471552080002689140613E-16 >= 1 (unbiased)? TRUE
2836[numFuncEval, numInterval]
2840"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2842+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2844+0.00000000000000000000000000000000000,
+Inf
2846call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2847err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2848if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2849getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
28503.14159265358979323846264338327950280,
3.14159265358979323846264338332671581,
0.165084974300155469787476838672445514E-21,
0.472130170286864545961554656757039423E-28 >= 1 (unbiased)? TRUE
2851[numFuncEval, numInterval]
2859"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2861+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2863+0.00000000000000000000000000000000000,
+Inf
2865call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2866err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2867if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2869 **** INTEGRATION FAILED: ERR
= 3 ****
2871getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
28723.14159265358979323846264338327950280,
3.14159265358979320090361483635797009,
0.204367780502843647659060653666203424E-14,
0.375590285469215327041574060919180980E-16 >= 1 (unbiased)? TRUE
2873[numFuncEval, numInterval]
2877"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2879+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2881+0.00000000000000000000000000000000000,
+Inf
2883call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2884err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2885if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2886getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
28873.14159265358979323846264338327950280,
3.14159265358979323846264338329217118,
0.297149168477122618111980760477178032E-24,
0.126683819881903599942316117107351349E-28 >= 1 (unbiased)? TRUE
2888[numFuncEval, numInterval]
2896"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2898+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2900+0.00000000000000000000000000000000000,
+Inf
2902call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2903err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2904if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2906 **** INTEGRATION FAILED: ERR
= 3 ****
2908getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
29093.14159265358979323846264338327950280,
3.14159265358979320535631068829316991,
0.142431324293359519823096200970219034E-14,
0.331063326949863328857070567981938374E-16 >= 1 (unbiased)? TRUE
2910[numFuncEval, numInterval]
2914"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2916+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2918+0.00000000000000000000000000000000000,
+Inf
2920call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2921err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2922if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2923getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
29243.14159265358979323846264338327950280,
3.14159265358979323846264338329720286,
0.631470999045538752417512719581846634E-23,
0.177000665608964523839256596835325160E-28 >= 1 (unbiased)? TRUE
2925[numFuncEval, numInterval]
2933"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2935+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2937+0.00000000000000000000000000000000000,
+Inf
2939call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2940err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2941if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2943 **** INTEGRATION FAILED: ERR
= 3 ****
2945getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
29463.14159265358979323846264338327950280,
3.14159265358979319764120376296608615,
0.114874526811124567747394666325693956E-14,
0.408214396203134166514689154707924291E-16 >= 1 (unbiased)? TRUE
2947[numFuncEval, numInterval]
2951"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2953+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2955+0.00000000000000000000000000000000000,
+Inf
2957call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2958err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2959if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2960getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
29613.14159265358979323846264338327950280,
3.14159265358979323846264338382063056,
0.105513561328732570747931391478370200E-22,
0.541127766102503902738796900136909995E-27 >= 1 (unbiased)? TRUE
2962[numFuncEval, numInterval]
2970"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2972+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2974+0.00000000000000000000000000000000000,
+Inf
2976call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2977err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2978if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2980 **** INTEGRATION FAILED: ERR
= 3 ****
2982getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
29833.14159265358979323846264338327950280,
3.14159265358979318857524312405249732,
0.475502793103629506347234782922562596E-14,
0.498874002592270054729228181655556796E-16 >= 1 (unbiased)? TRUE
2984[numFuncEval, numInterval]
2988"intDoncker1_type: f(x) = 1 / (1 + x) / sqrt(x) for x in (0 <= lb, ub) with a square-root singularity at 0"
2990+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
2992+0.00000000000000000000000000000000000,
+Inf
2994call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
2995err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
2996if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
2997getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
29983.14159265358979323846264338327950280,
3.14159265358979323846264338326012486,
0.467168906957388983973380430006517071E-24,
0.193779367284466122591080276671125047E-28 >= 1 (unbiased)? TRUE
2999[numFuncEval, numInterval]
3012"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3014+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3016+0.00000000000000000000000000000000000,
+Inf
3018call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3019err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3020if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3021getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3022-0.361689220620773240624502327513089541,
-0.361689220620773240624502331949228571,
0.140764022682178537665750354076671096E-22,
0.443613903009769521207550217269990266E-26 >= 1 (unbiased)? TRUE
3023[numFuncEval, numInterval]
3027"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3029+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3031+0.00000000000000000000000000000000000,
+Inf
3033call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3034err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3035if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3036getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3037-0.361689220620773240624502327513089541,
-0.361689220620773240624502327513082511,
0.977613287683318626565405213831288289E-25,
0.702964429701341086365431949043498471E-32 >= 1 (unbiased)? TRUE
3038[numFuncEval, numInterval]
3046"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3048+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3050+0.00000000000000000000000000000000000,
+Inf
3052call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3053err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3054if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3055getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3056-0.361689220620773240624502327513089541,
-0.361689220620773240624502319791192162,
0.159802602353452815703519777127053778E-22,
0.772189737843955067973760265975410572E-26 >= 1 (unbiased)? TRUE
3057[numFuncEval, numInterval]
3061"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3063+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3065+0.00000000000000000000000000000000000,
+Inf
3067call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3068err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3069if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3070getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3071-0.361689220620773240624502327513089541,
-0.361689220620773240624502327513049963,
0.649234086107557387537554200077053878E-24,
0.395778603571576967803003467201202564E-31 >= 1 (unbiased)? TRUE
3072[numFuncEval, numInterval]
3080"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3082+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3084+0.00000000000000000000000000000000000,
+Inf
3086call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3087err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3088if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3089getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3090-0.361689220620773240624502327513089541,
-0.361689220620773240624502331813782684,
0.190225183222055599449587101735184091E-22,
0.430069314378555327293881155754331262E-26 >= 1 (unbiased)? TRUE
3091[numFuncEval, numInterval]
3095"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3097+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3099+0.00000000000000000000000000000000000,
+Inf
3101call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3102err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3103if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3104getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3105-0.361689220620773240624502327513089541,
-0.361689220620773240624502327512625729,
0.616335697440850490093265086774648090E-23,
0.463812078857056074312205888023015121E-30 >= 1 (unbiased)? TRUE
3106[numFuncEval, numInterval]
3114"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3116+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3118+0.00000000000000000000000000000000000,
+Inf
3120call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3121err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3122if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3123getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3124-0.361689220620773240624502327513089541,
-0.361689220620773240624502330835940626,
0.183435010336141480786372169713786816E-22,
0.332285108499527309465941005263610886E-26 >= 1 (unbiased)? TRUE
3125[numFuncEval, numInterval]
3129"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3131+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3133+0.00000000000000000000000000000000000,
+Inf
3135call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3136err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3137if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3138getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3139-0.361689220620773240624502327513089541,
-0.361689220620773240624502327513009566,
0.123129713909579171273974432704206176E-23,
0.799742409406799687981494840658391069E-31 >= 1 (unbiased)? TRUE
3140[numFuncEval, numInterval]
3148"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3150+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3152+0.00000000000000000000000000000000000,
+Inf
3154call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3155err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3156if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3157getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3158-0.361689220620773240624502327513089541,
-0.361689220620773240624502323765965863,
0.152973427311180191786037732702276322E-22,
0.374712367764931338786568773429950973E-26 >= 1 (unbiased)? TRUE
3159[numFuncEval, numInterval]
3163"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3165+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3167+0.00000000000000000000000000000000000,
+Inf
3169call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3170err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3171if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3172getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3173-0.361689220620773240624502327513089541,
-0.361689220620773240624502327513300045,
0.523164854593180308006077305057305110E-24,
0.210504142921524878739018389124532556E-30 >= 1 (unbiased)? TRUE
3174[numFuncEval, numInterval]
3182"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3184+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3186+0.00000000000000000000000000000000000,
+Inf
3188call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3189err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3190if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3191getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3192-0.361689220620773240624502327513089541,
-0.361689220620773240624502325479776002,
0.198942167448423160119859456769251402E-22,
0.203331353881394886570585684073514946E-26 >= 1 (unbiased)? TRUE
3193[numFuncEval, numInterval]
3197"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3199+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3201+0.00000000000000000000000000000000000,
+Inf
3203call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3204err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3205if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3206getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3207-0.361689220620773240624502327513089541,
-0.361689220620773240624502327513362589,
0.120942213086830553282194570751917128E-23,
0.273048717865500363067011272809978071E-30 >= 1 (unbiased)? TRUE
3208[numFuncEval, numInterval]
3216"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3218+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3220+0.00000000000000000000000000000000000,
+Inf
3222call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3223err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3224if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3225getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3226-0.361689220620773240624502327513089541,
-0.361689220620773240624502328297163210,
0.188835657839914572287490573450219404E-22,
0.784073669306497062932683647310351440E-27 >= 1 (unbiased)? TRUE
3227[numFuncEval, numInterval]
3231"int6_type: an algebraic integrand of the form f(x) = log(x) / (1 + 100 * x**2) for x in (0, +Inf) with a singularity at the lower limit"
3233+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3235+0.00000000000000000000000000000000000,
+Inf
3237call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3238err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3239if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3240getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
3241-0.361689220620773240624502327513089541,
-0.361689220620773240624502327513154733,
0.812813674080050988921058830769365322E-24,
0.651927286175079336259448533564997897E-31 >= 1 (unbiased)? TRUE
3242[numFuncEval, numInterval]
3255"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3257+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3259+0.333333333333333333333333333333333317,
+Inf
3261call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3262err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3263if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3265 **** INTEGRATION FAILED: ERR
= 2 ****
3267getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
326852.7407483834714449977291997202299809,
52.7407483834714467336697552429463359,
0.488894669634109362681571266200232156E-13,
0.173594055552271635494764564158851669E-14 >= 1 (unbiased)? TRUE
3269[numFuncEval, numInterval]
3273"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3275+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3277+0.333333333333333333333333333333333317,
+Inf
3279call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3280err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3281if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3283 **** INTEGRATION FAILED: ERR
= 2 ****
3285getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
328652.7407483834714449977291997202299809,
52.7407483834714287782777673594775429,
0.448765576528036457791333257924729330E-13,
0.162194514323607524380041787060812155E-13 >= 1 (unbiased)? TRUE
3287[numFuncEval, numInterval]
3291"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3293+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3295+0.333333333333333333333333333333333317,
+Inf
3297break
= integrand
%break
3299+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
3300call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3301err = getQuadErr(getFunc, lb, pinf, abstol, reltol, nodeK, weightK, weightG, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3302if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3303getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
330452.7407483834714449977291997202299809,
52.7407483834714449977291997202264865,
0.814146221476416999401597707403176287E-22,
0.349440729109620073178476637902609213E-29 >= 1 (unbiased)? TRUE
3305[numFuncEval, numInterval]
3313"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3315+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3317+0.333333333333333333333333333333333317,
+Inf
3319call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3320err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3321if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3322getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
332352.7407483834714449977291997202299809,
52.7407483834714449977294455848568891,
0.195041569891256019122465531925881143E-20,
0.245864626908145243927264958249245769E-21 >= 1 (unbiased)? TRUE
3324[numFuncEval, numInterval]
3328"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3330+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3332+0.333333333333333333333333333333333317,
+Inf
3334call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3335err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3336if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3337getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
333852.7407483834714449977291997202299809,
52.7407483834714449977338209038270103,
0.143247623399460727305864834347060523E-20,
0.462118359702931748972754541717189512E-20 >= 1 (unbiased)? FALSE
3339[numFuncEval, numInterval]
3343"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3345+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3347+0.333333333333333333333333333333333317,
+Inf
3349break
= integrand
%break
3351+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
3352call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3353err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK61, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3354if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3355getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
335652.7407483834714449977291997202299809,
52.7407483834714449977291997202094151,
0.373540051030768792061629336455158314E-21,
0.205658503181446593332729548620988879E-28 >= 1 (unbiased)? TRUE
3357[numFuncEval, numInterval]
3365"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3367+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3369+0.333333333333333333333333333333333317,
+Inf
3371call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3372err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3373if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3374getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
337552.7407483834714449977291997202299809,
52.7407483834714449977292032780414804,
0.279093677779235546504134563061711532E-20,
0.355781149947824961455151040990947218E-23 >= 1 (unbiased)? TRUE
3376[numFuncEval, numInterval]
3380"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3382+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3384+0.333333333333333333333333333333333317,
+Inf
3386call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3387err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3388if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3389getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
339052.7407483834714449977291997202299809,
52.7407483834714449977293031314616029,
0.824894729143166318597466882278087464E-21,
0.103411231621975342810455514204848684E-21 >= 1 (unbiased)? TRUE
3391[numFuncEval, numInterval]
3395"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3397+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3399+0.333333333333333333333333333333333317,
+Inf
3401break
= integrand
%break
3403+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
3404call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3405err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK51, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3406if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3407getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
340852.7407483834714449977291997202299809,
52.7407483834714449977291997200560864,
0.221456275636688387757438582586629124E-20,
0.173894525794656789855447915609524190E-27 >= 1 (unbiased)? TRUE
3409[numFuncEval, numInterval]
3417"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3419+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3421+0.333333333333333333333333333333333317,
+Inf
3423call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3424err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3425if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3426getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
342752.7407483834714449977291997202299809,
52.7407483834714449977291943591229860,
0.198270687739271790878340875560329559E-20,
0.536110699492150105020206415281175069E-23 >= 1 (unbiased)? TRUE
3428[numFuncEval, numInterval]
3432"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3434+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3436+0.333333333333333333333333333333333317,
+Inf
3438call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3439err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3440if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3441getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
344252.7407483834714449977291997202299809,
52.7407483834714449977303444755823514,
0.280803500478789175146169405499030991E-20,
0.114475535237044669175271590495449833E-20 >= 1 (unbiased)? TRUE
3443[numFuncEval, numInterval]
3447"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3449+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3451+0.333333333333333333333333333333333317,
+Inf
3453break
= integrand
%break
3455+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
3456call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3457err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK41, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3458if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3459getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
346052.7407483834714449977291997202299809,
52.7407483834714449977291997202295927,
0.606149318078880650486200447633431095E-21,
0.388267476788466747976085153225121347E-30 >= 1 (unbiased)? TRUE
3461[numFuncEval, numInterval]
3469"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3471+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3473+0.333333333333333333333333333333333317,
+Inf
3475call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3476err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3477if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3478getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
347952.7407483834714449977291997202299809,
52.7407483834714449977291115291164641,
0.252258108714589477704630581014850440E-20,
0.881911135168059676260410887716276442E-22 >= 1 (unbiased)? TRUE
3480[numFuncEval, numInterval]
3484"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3486+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3488+0.333333333333333333333333333333333317,
+Inf
3490call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3491err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3492if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3493getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
349452.7407483834714449977291997202299809,
52.7407483834714449977289936196115910,
0.275731933751259902205245936226910213E-20,
0.206100618389907107855091204582988015E-21 >= 1 (unbiased)? TRUE
3495[numFuncEval, numInterval]
3499"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3501+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3503+0.333333333333333333333333333333333317,
+Inf
3505break
= integrand
%break
3507+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
3508call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3509err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK31, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3510if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3511getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
351252.7407483834714449977291997202299809,
52.7407483834714449977291997202297961,
0.454393419228684987713015459783569490E-23,
0.184889274661174641893373882488153023E-30 >= 1 (unbiased)? TRUE
3513[numFuncEval, numInterval]
3521"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3523+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3525+0.333333333333333333333333333333333317,
+Inf
3527call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3528err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3529if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3530getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
353152.7407483834714449977291997202299809,
52.7407483834714449977292382804310509,
0.279671641778641328549215166005514544E-20,
0.385602010699552608488581761001623823E-22 >= 1 (unbiased)? TRUE
3532[numFuncEval, numInterval]
3536"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3538+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3540+0.333333333333333333333333333333333317,
+Inf
3542call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3543err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3544if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3545getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
354652.7407483834714449977291997202299809,
52.7407483834714449977306706191554779,
0.169942945536630143394077258382982232E-20,
0.147089892549693710441322727749006848E-20 >= 1 (unbiased)? TRUE
3547[numFuncEval, numInterval]
3551"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3553+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3555+0.333333333333333333333333333333333317,
+Inf
3557break
= integrand
%break
3559+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
3560call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3561err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK21, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3562if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3563getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
356452.7407483834714449977291997202299809,
52.7407483834714449977291997198284384,
0.550213100585731346916629215373301014E-21,
0.401542526709139087264029397987770734E-27 >= 1 (unbiased)? TRUE
3565[numFuncEval, numInterval]
3573"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3575+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3577+0.333333333333333333333333333333333317,
+Inf
3579call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3580err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3581if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3582getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
358352.7407483834714449977291997202299809,
52.7407483834714449977291834015854834,
0.283988651830937321949879077524211995E-20,
0.163186444975161969182157996535085000E-22 >= 1 (unbiased)? TRUE
3584[numFuncEval, numInterval]
3588"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3590+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3592+0.333333333333333333333333333333333317,
+Inf
3594call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3595err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3596if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3597getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
359852.7407483834714449977291997202299809,
52.7407483834714449977288734690597645,
0.103222675119087665510261254035590240E-20,
0.326251170216414436820294717418654444E-21 >= 1 (unbiased)? TRUE
3599[numFuncEval, numInterval]
3603"int7_type: an algebraic integrand of the form f(x) = -log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) with two singularities at [1 / sqrt(2), 1]"
3605+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3607+0.333333333333333333333333333333333317,
+Inf
3609break
= integrand
%break
3611+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
3612call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3613err = getQuadErr(getFunc, lb, pinf, abstol, reltol,
GK15, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3614if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3615getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
361652.7407483834714449977291997202299809,
52.7407483834714449977291997201770903,
0.467564034128253195580489341089959844E-21,
0.528906585047400258909644886504443080E-28 >= 1 (unbiased)? TRUE
3617[numFuncEval, numInterval]
3640"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3642+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3644-Inf,
-0.333333333333333333333333333333333317
3646call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3647err = getQuadErr(getFunc, ninf, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3648if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3650 **** INTEGRATION FAILED: ERR
= 2 ****
3652getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
365352.7407483834714449977291997202299809,
52.7407483834714467336697552429463359,
0.488894669634109362681571266200232156E-13,
0.173594055552271635494764564158851669E-14 >= 1 (unbiased)? TRUE
3654[numFuncEval, numInterval]
3658"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3660+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3662-Inf,
-0.333333333333333333333333333333333317
3664call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3665err = getQuadErr(getFunc, ninf, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3666if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3668 **** INTEGRATION FAILED: ERR
= 2 ****
3670getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
367152.7407483834714449977291997202299809,
52.7407483834714287782777673594775429,
0.448765576528036457791333257924729330E-13,
0.162194514323607524380041787060812155E-13 >= 1 (unbiased)? TRUE
3672[numFuncEval, numInterval]
3676"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3678+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3680-Inf,
-0.333333333333333333333333333333333317
3682break
= integrand
%break
3684-1.00000000000000000000000000000000000,
-0.707106781186547524400844362104849088
3685call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3686err = getQuadErr(getFunc, ninf, ub, abstol, reltol, nodeK, weightK, weightG, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3687if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3688getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
368952.7407483834714449977291997202299809,
52.7407483834714449977291997202264865,
0.814146221476416999401597707403176287E-22,
0.349440729109620073178476637902609213E-29 >= 1 (unbiased)? TRUE
3690[numFuncEval, numInterval]
3698"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3700+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3702-Inf,
-0.333333333333333333333333333333333317
3704call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3705err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3706if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3707getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
370852.7407483834714449977291997202299809,
52.7407483834714449977294455848568891,
0.195041569891256019122465531925881143E-20,
0.245864626908145243927264958249245769E-21 >= 1 (unbiased)? TRUE
3709[numFuncEval, numInterval]
3713"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3715+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3717-Inf,
-0.333333333333333333333333333333333317
3719call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3720err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3721if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3722getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
372352.7407483834714449977291997202299809,
52.7407483834714449977338209038270103,
0.143247623399460727305864834347060523E-20,
0.462118359702931748972754541717189512E-20 >= 1 (unbiased)? FALSE
3724[numFuncEval, numInterval]
3728"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3730+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3732-Inf,
-0.333333333333333333333333333333333317
3734break
= integrand
%break
3736-1.00000000000000000000000000000000000,
-0.707106781186547524400844362104849088
3737call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3738err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK61, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3739if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3740getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
374152.7407483834714449977291997202299809,
52.7407483834714449977291997202094151,
0.373540051030768792061629336455158314E-21,
0.205658503181446593332729548620988879E-28 >= 1 (unbiased)? TRUE
3742[numFuncEval, numInterval]
3750"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3752+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3754-Inf,
-0.333333333333333333333333333333333317
3756call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3757err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3758if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3759getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
376052.7407483834714449977291997202299809,
52.7407483834714449977292032780414804,
0.279093677779235546504134563061711532E-20,
0.355781149947824961455151040990947218E-23 >= 1 (unbiased)? TRUE
3761[numFuncEval, numInterval]
3765"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3767+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3769-Inf,
-0.333333333333333333333333333333333317
3771call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3772err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3773if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3774getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
377552.7407483834714449977291997202299809,
52.7407483834714449977293031314616029,
0.824894729143166318597466882278087464E-21,
0.103411231621975342810455514204848684E-21 >= 1 (unbiased)? TRUE
3776[numFuncEval, numInterval]
3780"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3782+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3784-Inf,
-0.333333333333333333333333333333333317
3786break
= integrand
%break
3788-1.00000000000000000000000000000000000,
-0.707106781186547524400844362104849088
3789call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3790err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK51, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3791if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3792getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
379352.7407483834714449977291997202299809,
52.7407483834714449977291997200560864,
0.221456275636688387757438582586629124E-20,
0.173894525794656789855447915609524190E-27 >= 1 (unbiased)? TRUE
3794[numFuncEval, numInterval]
3802"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3804+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3806-Inf,
-0.333333333333333333333333333333333317
3808call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3809err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3810if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3811getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
381252.7407483834714449977291997202299809,
52.7407483834714449977291943591229860,
0.198270687739271790878340875560329559E-20,
0.536110699492150105020206415281175069E-23 >= 1 (unbiased)? TRUE
3813[numFuncEval, numInterval]
3817"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3819+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3821-Inf,
-0.333333333333333333333333333333333317
3823call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3824err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3825if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3826getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
382752.7407483834714449977291997202299809,
52.7407483834714449977303444755823514,
0.280803500478789175146169405499030991E-20,
0.114475535237044669175271590495449833E-20 >= 1 (unbiased)? TRUE
3828[numFuncEval, numInterval]
3832"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3834+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3836-Inf,
-0.333333333333333333333333333333333317
3838break
= integrand
%break
3840-1.00000000000000000000000000000000000,
-0.707106781186547524400844362104849088
3841call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3842err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK41, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3843if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3844getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
384552.7407483834714449977291997202299809,
52.7407483834714449977291997202295927,
0.606149318078880650486200447633431095E-21,
0.388267476788466747976085153225121347E-30 >= 1 (unbiased)? TRUE
3846[numFuncEval, numInterval]
3854"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3856+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3858-Inf,
-0.333333333333333333333333333333333317
3860call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3861err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3862if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3863getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
386452.7407483834714449977291997202299809,
52.7407483834714449977291115291164641,
0.252258108714589477704630581014850440E-20,
0.881911135168059676260410887716276442E-22 >= 1 (unbiased)? TRUE
3865[numFuncEval, numInterval]
3869"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3871+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3873-Inf,
-0.333333333333333333333333333333333317
3875call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3876err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3877if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3878getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
387952.7407483834714449977291997202299809,
52.7407483834714449977289936196115910,
0.275731933751259902205245936226910213E-20,
0.206100618389907107855091204582988015E-21 >= 1 (unbiased)? TRUE
3880[numFuncEval, numInterval]
3884"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3886+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3888-Inf,
-0.333333333333333333333333333333333317
3890break
= integrand
%break
3892-1.00000000000000000000000000000000000,
-0.707106781186547524400844362104849088
3893call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3894err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK31, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3895if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3896getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
389752.7407483834714449977291997202299809,
52.7407483834714449977291997202297961,
0.454393419228684987713015459783569490E-23,
0.184889274661174641893373882488153023E-30 >= 1 (unbiased)? TRUE
3898[numFuncEval, numInterval]
3906"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3908+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3910-Inf,
-0.333333333333333333333333333333333317
3912call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3913err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3914if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3915getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
391652.7407483834714449977291997202299809,
52.7407483834714449977292382804310509,
0.279671641778641328549215166005514544E-20,
0.385602010699552608488581761001623823E-22 >= 1 (unbiased)? TRUE
3917[numFuncEval, numInterval]
3921"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3923+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3925-Inf,
-0.333333333333333333333333333333333317
3927call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3928err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3929if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3930getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
393152.7407483834714449977291997202299809,
52.7407483834714449977306706191554779,
0.169942945536630143394077258382982232E-20,
0.147089892549693710441322727749006848E-20 >= 1 (unbiased)? TRUE
3932[numFuncEval, numInterval]
3936"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3938+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3940-Inf,
-0.333333333333333333333333333333333317
3942break
= integrand
%break
3944-1.00000000000000000000000000000000000,
-0.707106781186547524400844362104849088
3945call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3946err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK21, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3947if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3948getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
394952.7407483834714449977291997202299809,
52.7407483834714449977291997198284384,
0.550213100585731346916629215373301014E-21,
0.401542526709139087264029397987770734E-27 >= 1 (unbiased)? TRUE
3950[numFuncEval, numInterval]
3958"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3960+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3962-Inf,
-0.333333333333333333333333333333333317
3964call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3965err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3966if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3967getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
396852.7407483834714449977291997202299809,
52.7407483834714449977291834015854834,
0.283988651830937321949879077524211995E-20,
0.163186444975161969182157996535085000E-22 >= 1 (unbiased)? TRUE
3969[numFuncEval, numInterval]
3973"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3975+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3977-Inf,
-0.333333333333333333333333333333333317
3979call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3980err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3981if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
3982getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
398352.7407483834714449977291997202299809,
52.7407483834714449977288734690597645,
0.103222675119087665510261254035590240E-20,
0.326251170216414436820294717418654444E-21 >= 1 (unbiased)? TRUE
3984[numFuncEval, numInterval]
3988"int8_type: an algebraic integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (-Inf, -1./3.) with two singularities at [-1, -1 / sqrt(2)]"
3990+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
3992-Inf,
-0.333333333333333333333333333333333317
3994break
= integrand
%break
3996-1.00000000000000000000000000000000000,
-0.707106781186547524400844362104849088
3997call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
3998err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK15, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
3999if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4000getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
400152.7407483834714449977291997202299809,
52.7407483834714449977291997201770903,
0.467564034128253195580489341089959844E-21,
0.528906585047400258909644886504443080E-28 >= 1 (unbiased)? TRUE
4002[numFuncEval, numInterval]
4015"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4017+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4019-Inf,
+0.00000000000000000000000000000000000
4021call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4022err = getQuadErr(getFunc, ninf, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4023if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4025 **** INTEGRATION FAILED: ERR
= 3 ****
4027getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
40281.77245385090551602729816748334114514,
1.77245385090551601613820286109549568,
0.877575963278399810921822968544910165E-15,
0.111599646222456494583191882286173036E-16 >= 1 (unbiased)? TRUE
4029[numFuncEval, numInterval]
4033"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4035+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4037-Inf,
+0.00000000000000000000000000000000000
4039call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4040err = getQuadErr(getFunc, ninf, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4041if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4042getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
40431.77245385090551602729816748334114514,
1.77245385090551602729816748336857327,
0.134737402993443930374494505735777631E-22,
0.274281313029908194012967098693232424E-28 >= 1 (unbiased)? TRUE
4044[numFuncEval, numInterval]
4052"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4054+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4056-Inf,
+0.00000000000000000000000000000000000
4058call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4059err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4060if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4062 **** INTEGRATION FAILED: ERR
= 3 ****
4064getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
40651.77245385090551602729816748334114514,
1.77245385090551601810714679211041636,
0.861478851009438123585806814388995306E-15,
0.919102069123072878047958986460957030E-17 >= 1 (unbiased)? TRUE
4066[numFuncEval, numInterval]
4070"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4072+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4074-Inf,
+0.00000000000000000000000000000000000
4076call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4077err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4078if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4079getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
40801.77245385090551602729816748334114514,
1.77245385090551602729816748333337247,
0.674662220972954240186456842964833718E-22,
0.777266806955800645576331578068424967E-29 >= 1 (unbiased)? TRUE
4081[numFuncEval, numInterval]
4089"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4091+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4093-Inf,
+0.00000000000000000000000000000000000
4095call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4096err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4097if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4099 **** INTEGRATION FAILED: ERR
= 3 ****
4101getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
41021.77245385090551602729816748334114514,
1.77245385090551601574298708775896303,
0.857230920014370223618121336117106411E-15,
0.115551803955821821140929648821560637E-16 >= 1 (unbiased)? TRUE
4103[numFuncEval, numInterval]
4107"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4109+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4111-Inf,
+0.00000000000000000000000000000000000
4113call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4114err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4115if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4116getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
41171.77245385090551602729816748334114514,
1.77245385090551602729816748386972220,
0.118234663994776709095004812810198545E-22,
0.528577058433915602855187008678466799E-27 >= 1 (unbiased)? TRUE
4118[numFuncEval, numInterval]
4126"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4128+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4130-Inf,
+0.00000000000000000000000000000000000
4132call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4133err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4134if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4136 **** INTEGRATION FAILED: ERR
= 3 ****
4138getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
41391.77245385090551602729816748334114514,
1.77245385090551601064340064620432546,
0.845367076234297452274336535948441536E-15,
0.166547668371368196815771814538113779E-16 >= 1 (unbiased)? TRUE
4140[numFuncEval, numInterval]
4144"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4146+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4148-Inf,
+0.00000000000000000000000000000000000
4150call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4151err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4152if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4153getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
41541.77245385090551602729816748334114514,
1.77245385090551602729816748332323553,
0.377961853986480130862622013707784937E-23,
0.179096077388457836447381500836857561E-28 >= 1 (unbiased)? TRUE
4155[numFuncEval, numInterval]
4163"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4165+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4167-Inf,
+0.00000000000000000000000000000000000
4169call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4170err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4171if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4173 **** INTEGRATION FAILED: ERR
= 3 ****
4175getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
41761.77245385090551602729816748334114514,
1.77245385090551601376368098397951221,
0.590274422370976543075513404981098544E-15,
0.135344864993616329326924625808078389E-16 >= 1 (unbiased)? TRUE
4177[numFuncEval, numInterval]
4181"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4183+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4185-Inf,
+0.00000000000000000000000000000000000
4187call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4188err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4189if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4190getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
41911.77245385090551602729816748334114514,
1.77245385090551602729816748332697087,
0.439536242587639020103894082379843368E-22,
0.141742666117067397077360808640422896E-28 >= 1 (unbiased)? TRUE
4192[numFuncEval, numInterval]
4200"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4202+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4204-Inf,
+0.00000000000000000000000000000000000
4206call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4207err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4208if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4210 **** INTEGRATION FAILED: ERR
= 3 ****
4212getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
42131.77245385090551602729816748334114514,
1.77245385090551600687177993068626502,
0.574360549312137963665679582228894917E-15,
0.204263875526548801162109406012147667E-16 >= 1 (unbiased)? TRUE
4214[numFuncEval, numInterval]
4218"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4220+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4222-Inf,
+0.00000000000000000000000000000000000
4224call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4225err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4226if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4227getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
42281.77245385090551602729816748334114514,
1.77245385090551602729816748299131749,
0.741255376788311540853126588333374290E-22,
0.349827648435447468861355583871274525E-27 >= 1 (unbiased)? TRUE
4229[numFuncEval, numInterval]
4237"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4239+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4241-Inf,
+0.00000000000000000000000000000000000
4243call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4244err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4245if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4247 **** INTEGRATION FAILED: ERR
= 3 ****
4249getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
42501.77245385090551602729816748334114514,
1.77245385090551600609844209961646132,
0.235414966530662165086749026544244634E-14,
0.211997253837246838222909559709411589E-16 >= 1 (unbiased)? TRUE
4251[numFuncEval, numInterval]
4255"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4257+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4259-Inf,
+0.00000000000000000000000000000000000
4261call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4262err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4263if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4264getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
42651.77245385090551602729816748334114514,
1.77245385090551602729816748335898310,
0.615529072454046125320330530748558927E-22,
0.178379631449145784710044677042215968E-28 >= 1 (unbiased)? TRUE
4266[numFuncEval, numInterval]
4279"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4281+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4283-Inf,
-1.00000000000000000000000000000000000
4285call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4286err = getQuadErr(getFunc, ninf, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4287if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4288getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
42890.278805585280661976499232611077439155,
0.278805585280661976499232611077439348,
0.716856891023470741140679322036923946E-29,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
4290[numFuncEval, numInterval]
4294"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4296+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4298-Inf,
-1.00000000000000000000000000000000000
4300call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4301err = getQuadErr(getFunc, ninf, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4302if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4303getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
43040.278805585280661976499232611077439155,
0.278805585280661976499232611077439348,
0.716856891023470741140679322036923946E-29,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
4305[numFuncEval, numInterval]
4313"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4315+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4317-Inf,
-1.00000000000000000000000000000000000
4319call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4320err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4321if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4322getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
43230.278805585280661976499232611077439155,
0.278805585280661976499232611077607915,
0.151355225479325107963069113063096090E-25,
0.168759611376931541624030067219004256E-30 >= 1 (unbiased)? TRUE
4324[numFuncEval, numInterval]
4328"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4330+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4332-Inf,
-1.00000000000000000000000000000000000
4334call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4335err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4336if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4337getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
43380.278805585280661976499232611077439155,
0.278805585280661976499232611077607915,
0.151355225479325107963069113063096090E-25,
0.168759611376931541624030067219004256E-30 >= 1 (unbiased)? TRUE
4339[numFuncEval, numInterval]
4347"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4349+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4351-Inf,
-1.00000000000000000000000000000000000
4353call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4354err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4355if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4356getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
43570.278805585280661976499232611077439155,
0.278805585280661976499232611077439155,
0.352179410496721019887485283057483945E-29,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
4358[numFuncEval, numInterval]
4362"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4364+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4366-Inf,
-1.00000000000000000000000000000000000
4368call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4369err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4370if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4371getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
43720.278805585280661976499232611077439155,
0.278805585280661976499232611077439155,
0.352179410496721019887485283057483945E-29,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
4373[numFuncEval, numInterval]
4381"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4383+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4385-Inf,
-1.00000000000000000000000000000000000
4387call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4388err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4389if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4390getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
43910.278805585280661976499232611077439155,
0.278805585280661976499232611077413059,
0.123546587340256886697721158475102482E-24,
0.260963507464470458089085011220257652E-31 >= 1 (unbiased)? TRUE
4392[numFuncEval, numInterval]
4396"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4398+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4400-Inf,
-1.00000000000000000000000000000000000
4402call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4403err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4404if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4405getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
44060.278805585280661976499232611077439155,
0.278805585280661976499232611077413059,
0.123546587340256886697721158475102482E-24,
0.260963507464470458089085011220257652E-31 >= 1 (unbiased)? TRUE
4407[numFuncEval, numInterval]
4415"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4417+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4419-Inf,
-1.00000000000000000000000000000000000
4421call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4422err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4423if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4424getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
44250.278805585280661976499232611077439155,
0.278805585280661976499232611077439155,
0.638822419200203188163935077576414827E-27,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
4426[numFuncEval, numInterval]
4430"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4432+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4434-Inf,
-1.00000000000000000000000000000000000
4436call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4437err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4438if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4439getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
44400.278805585280661976499232611077439155,
0.278805585280661976499232611077439155,
0.638822419200203188163935077576414827E-27,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
4441[numFuncEval, numInterval]
4449"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4451+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4453-Inf,
-1.00000000000000000000000000000000000
4455call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4456err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4457if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4458getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
44590.278805585280661976499232611077439155,
0.278805585280661976499232611077447244,
0.136847162139771908855491210817521382E-24,
0.808890576642639058283510735885669474E-32 >= 1 (unbiased)? TRUE
4460[numFuncEval, numInterval]
4464"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4466+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4468-Inf,
-1.00000000000000000000000000000000000
4470call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4471err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4472if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4473getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
44740.278805585280661976499232611077439155,
0.278805585280661976499232611077447292,
0.136847162139771908864182157536569162E-24,
0.813705401503607147916150680742131792E-32 >= 1 (unbiased)? TRUE
4475[numFuncEval, numInterval]
4483"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4485+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4487-Inf,
-1.00000000000000000000000000000000000
4489call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4490err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4491if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4492getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
44930.278805585280661976499232611077439155,
0.278805585280661976499232611077440600,
0.908293983528496004117130980367892813E-23,
0.144444745829042688979198345693869549E-32 >= 1 (unbiased)? TRUE
4494[numFuncEval, numInterval]
4498"intDoncker2_type: f(x) = exp(x) / sqrt(-x) for x in (lb, ub <= 0) with a square-root singularity at 0"
4500+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4502-Inf,
-1.00000000000000000000000000000000000
4504call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4505err = getQuadErr(getFunc, ninf, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4506if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4507getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
45080.278805585280661976499232611077439155,
0.278805585280661976499232611077440552,
0.908293983528495999905253519959137847E-23,
0.139629920968074599346558400837407231E-32 >= 1 (unbiased)? TRUE
4509[numFuncEval, numInterval]
4532"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4534+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4538call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4539err = getQuadErr(getFunc, ninf, pinf, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4540if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4542 **** INTEGRATION FAILED: ERR
= 3 ****
4544getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
454553.7407483834714449977291997202299809,
53.7407483834714449650072940561829495,
0.796822065622794229045441469278186467E-14,
0.327219056640470314173818584982640383E-16 >= 1 (unbiased)? TRUE
4546[numFuncEval, numInterval]
4550"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4552+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4556call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4557err = getQuadErr(getFunc, ninf, pinf, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4558if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4560 **** INTEGRATION FAILED: ERR
= 4 ****
4562getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
456353.7407483834714449977291997202299809,
53.7407483834705929661166935183967571,
0.124399652525198607918270581145824005E-10,
0.852031612506201833223899482873825881E-12 >= 1 (unbiased)? TRUE
4564[numFuncEval, numInterval]
4568"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4570+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4574break
= integrand
%break
4576-10.0000000000000000000000000000000000,
-9.00000000000000000000000000000000000,
+0.333333333333333333333333333333333317,
+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
4577call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4578err = getQuadErr(getFunc, ninf, pinf, abstol, reltol, nodeK, weightK, weightG, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4579if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4580getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
458153.7407483834714449977291997202299809,
53.7407483834714449977291997030223177,
0.445312847511661742860075782047728754E-23,
0.172076632816429900384804965805606506E-25 >= 1 (unbiased)? TRUE
4582[numFuncEval, numInterval]
4590"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4592+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4596call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4597err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4598if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4600 **** INTEGRATION FAILED: ERR
= 3 ****
4602getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
460353.7407483834714449977291997202299809,
53.7407483834714448833633777417907816,
0.680914645200171218811820529787362403E-14,
0.114365821978439199372589194727729117E-15 >= 1 (unbiased)? TRUE
4604[numFuncEval, numInterval]
4608"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4610+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4614call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4615err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4616if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4617getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
461853.7407483834714449977291997202299809,
53.7407483834714449977289348585276314,
0.170439151372582101480194610681781850E-20,
0.264861702349597177797536235127872662E-21 >= 1 (unbiased)? TRUE
4619[numFuncEval, numInterval]
4623"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4625+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4629break
= integrand
%break
4631-10.0000000000000000000000000000000000,
-9.00000000000000000000000000000000000,
+0.333333333333333333333333333333333317,
+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
4632call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4633err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK61, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4634if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4635getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
463653.7407483834714449977291997202299809,
53.7407483834714449977291997799636319,
0.200846303193510868396480563993536245E-22,
0.597336509160071589144727174273780860E-25 >= 1 (unbiased)? TRUE
4637[numFuncEval, numInterval]
4645"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4647+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4651call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4652err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4653if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4655 **** INTEGRATION FAILED: ERR
= 3 ****
4657getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
465853.7407483834714449977291997202299809,
53.7407483834714448768004039231121724,
0.522743403161741812977518136396828071E-14,
0.120928795797117808575570243510062447E-15 >= 1 (unbiased)? TRUE
4659[numFuncEval, numInterval]
4663"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4665+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4669call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4670err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4671if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4673 **** INTEGRATION FAILED: ERR
= 4 ****
4675getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
467653.7407483834714449977291997202299809,
53.7407483834728334242795656190601898,
0.392766057193472596062746488440736927E-10,
0.138842655036589883020880017029847229E-11 >= 1 (unbiased)? TRUE
4677[numFuncEval, numInterval]
4681"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4683+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4687break
= integrand
%break
4689-10.0000000000000000000000000000000000,
-9.00000000000000000000000000000000000,
+0.333333333333333333333333333333333317,
+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
4690call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4691err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK51, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4692if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4693getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
469453.7407483834714449977291997202299809,
53.7407483834714449977291997092084046,
0.115363502086247706555964249396062612E-21,
0.110215763002711884784646954289778641E-25 >= 1 (unbiased)? TRUE
4695[numFuncEval, numInterval]
4703"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4705+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4709call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4710err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4711if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4713 **** INTEGRATION FAILED: ERR
= 3 ****
4715getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
471653.7407483834714449977291997202299809,
53.7407483834714450553835820752184976,
0.565194869440131705838502815008547290E-14,
0.576543823549885166081717509327429166E-16 >= 1 (unbiased)? TRUE
4717[numFuncEval, numInterval]
4721"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4723+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4727call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4728err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4729if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4731 **** INTEGRATION FAILED: ERR
= 4 ****
4733getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
473453.7407483834714449977291997202299809,
53.7407483834714449977378930826171726,
0.470836589493817339712596777175112422E-20,
0.869336238719164342712203203722627274E-20 >= 1 (unbiased)? FALSE
4735[numFuncEval, numInterval]
4739"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4741+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4745break
= integrand
%break
4747-10.0000000000000000000000000000000000,
-9.00000000000000000000000000000000000,
+0.333333333333333333333333333333333317,
+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
4748call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4749err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK41, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4750if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4751getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
475253.7407483834714449977291997202299809,
53.7407483834714449977291997518872094,
0.100768392585712648319953445782223227E-20,
0.316572284825762632782071287108454460E-25 >= 1 (unbiased)? TRUE
4753[numFuncEval, numInterval]
4761"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4763+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4767call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4768err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4769if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4771 **** INTEGRATION FAILED: ERR
= 3 ****
4773getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
477453.7407483834714449977291997202299809,
53.7407483834714446541590982340824365,
0.788730091829859198402913015366033236E-14,
0.343570101486147544414568939943794393E-15 >= 1 (unbiased)? TRUE
4775[numFuncEval, numInterval]
4779"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4781+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4785call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4786err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4787if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4789 **** INTEGRATION FAILED: ERR
= 4 ****
4791getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
479253.7407483834714449977291997202299809,
53.7407483834714449977250233829698854,
0.307404779965835965408111286811772367E-20,
0.417633726009553582562893478054756863E-20 >= 1 (unbiased)? FALSE
4793[numFuncEval, numInterval]
4797"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4799+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4803break
= integrand
%break
4805-10.0000000000000000000000000000000000,
-9.00000000000000000000000000000000000,
+0.333333333333333333333333333333333317,
+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
4806call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4807err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK31, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4808if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4809getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
481053.7407483834714449977291997202299809,
53.7407483834714449977291996841603946,
0.493361842979613484863614903286339141E-21,
0.360695863704619079503735772999075528E-25 >= 1 (unbiased)? TRUE
4811[numFuncEval, numInterval]
4819"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4821+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4825call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4826err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4827if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4829 **** INTEGRATION FAILED: ERR
= 3 ****
4831getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
483253.7407483834714449977291997202299809,
53.7407483834714446968169568664147327,
0.297103187254200474475915711578675253E-14,
0.300912242853815248241860288447560029E-15 >= 1 (unbiased)? TRUE
4833[numFuncEval, numInterval]
4837"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4839+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4843call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4844err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4845if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4847 **** INTEGRATION FAILED: ERR
= 4 ****
4849getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
485053.7407483834714449977291997202299809,
53.7407483834714786408368937855885806,
0.597341489232740359096544257423059064E-12,
0.336431076940653585996463319794115881E-13 >= 1 (unbiased)? TRUE
4851[numFuncEval, numInterval]
4855"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4857+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4861break
= integrand
%break
4863-10.0000000000000000000000000000000000,
-9.00000000000000000000000000000000000,
+0.333333333333333333333333333333333317,
+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
4864call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4865err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK21, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4866if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4867getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
486853.7407483834714449977291997202299809,
53.7407483834714449977291998166218009,
0.511114386743455704132658170766066952E-22,
0.963918199664012722590043909239278414E-25 >= 1 (unbiased)? TRUE
4869[numFuncEval, numInterval]
4877"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4879+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4883call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4884err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4885if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4887 **** INTEGRATION FAILED: ERR
= 3 ****
4889getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
489053.7407483834714449977291997202299809,
53.7407483834714446236379151155632889,
0.105265306858749509467041399734121873E-13,
0.374091284604666692075516754298534578E-15 >= 1 (unbiased)? TRUE
4891[numFuncEval, numInterval]
4895"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4897+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4901call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4902err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4903if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4904getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
490553.7407483834714449977291997202299809,
53.7407483834714449977276451874018056,
0.222587462272588358893891703394271234E-20,
0.155453282817532481191470919240630327E-20 >= 1 (unbiased)? TRUE
4906[numFuncEval, numInterval]
4910"int9_type: an algebraic piecewise integrand of the form f(x) = log(abs((1 - x**2) * (1 - 2 * x**2)) / x**4) / x**5 for x in (1./3., +Inf) and 1 / (acos(-1) * sqrt(-(x+10) * (x+9))) for x in (-10, 9), otherwise 0, with two singularities at [-10, -9, 1/3., 1 / sqrt(2), 1]"
4912+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4916break
= integrand
%break
4918-10.0000000000000000000000000000000000,
-9.00000000000000000000000000000000000,
+0.333333333333333333333333333333333317,
+0.707106781186547524400844362104849088,
+1.00000000000000000000000000000000000
4919call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4920err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK15, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4921if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4922getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
492353.7407483834714449977291997202299809,
53.7407483834714449977291997158877577,
0.425730467927014581230905473765272620E-22,
0.434222322303083909134156209630493408E-26 >= 1 (unbiased)? TRUE
4924[numFuncEval, numInterval]
4937"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
4939+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4943call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4944err = getQuadErr(getFunc, ninf, pinf, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4945if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4946getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
49471.00000000000000000000000000000000000,
1.00000000000000000000000000000116384,
0.310205711553556471035949677482981893E-23,
0.116383946539320662600172747070407158E-29 >= 1 (unbiased)? TRUE
4948[numFuncEval, numInterval]
4952"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
4954+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4958call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4959err = getQuadErr(getFunc, ninf, pinf, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4960if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4961getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
49621.00000000000000000000000000000000000,
1.00000000000000000000000000000116384,
0.310205711553556471035949677482981893E-23,
0.116383946539320662600172747070407158E-29 >= 1 (unbiased)? TRUE
4963[numFuncEval, numInterval]
4971"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
4973+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4977call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4978err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4979if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4980getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
49811.00000000000000000000000000000000000,
0.999999999999999999999999999999999904,
0.133211282272630652593429624326869237E-31,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
4982[numFuncEval, numInterval]
4986"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
4988+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
4992call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
4993err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
4994if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
4995getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
49961.00000000000000000000000000000000000,
0.999999999999999999999999999999999904,
0.133211282272630652593429624326869237E-31,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
4997[numFuncEval, numInterval]
5005"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5007+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5011call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5012err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5013if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5014getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
50151.00000000000000000000000000000000000,
1.00000000000000000000000000000000000,
0.488468903511507058502358045248036562E-29,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
5016[numFuncEval, numInterval]
5020"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5022+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5026call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5027err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5028if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5029getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
50301.00000000000000000000000000000000000,
1.00000000000000000000000000000000000,
0.488468903511507058502358045248036562E-29,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
5031[numFuncEval, numInterval]
5039"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5041+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5045call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5046err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5047if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5048getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
50491.00000000000000000000000000000000000,
0.999999999999999999999999999999969378,
0.491341375192078885385626303802163761E-23,
0.306222861157570500635900492871003444E-31 >= 1 (unbiased)? TRUE
5050[numFuncEval, numInterval]
5054"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5056+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5060call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5061err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5062if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5063getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
50641.00000000000000000000000000000000000,
0.999999999999999999999999999999969378,
0.491341375192078885385626303802163761E-23,
0.306222861157570500635900492871003444E-31 >= 1 (unbiased)? TRUE
5065[numFuncEval, numInterval]
5073"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5075+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5079call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5080err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5081if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5082getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
50831.00000000000000000000000000000000000,
0.999999999999999999999999999999987481,
0.912680598352143472472829856065255250E-23,
0.125185446385170330448638566268020276E-31 >= 1 (unbiased)? TRUE
5084[numFuncEval, numInterval]
5088"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5090+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5094call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5095err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5096if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5097getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
50981.00000000000000000000000000000000000,
0.999999999999999999999999999999987481,
0.912680598352143472472829856065255250E-23,
0.125185446385170330448638566268020276E-31 >= 1 (unbiased)? TRUE
5099[numFuncEval, numInterval]
5107"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5109+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5113call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5114err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5115if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5116getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
51171.00000000000000000000000000000000000,
0.999999999999999999999999999999999133,
0.386431949672064481044988439592369946E-24,
0.866668474974256133875190074163217293E-33 >= 1 (unbiased)? TRUE
5118[numFuncEval, numInterval]
5122"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5124+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5128call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5129err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5130if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5131getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
51321.00000000000000000000000000000000000,
0.999999999999999999999999999999999133,
0.386431949672064466119465327815932357E-24,
0.866668474974256133875190074163217293E-33 >= 1 (unbiased)? TRUE
5133[numFuncEval, numInterval]
5141"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5143+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5147call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5148err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5149if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5150getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
51511.00000000000000000000000000000000000,
1.00000000000000000000000000000008724,
0.503602725543159631708382701967485206E-22,
0.872446264807417841434358007990972075E-31 >= 1 (unbiased)? TRUE
5152[numFuncEval, numInterval]
5156"intNormPDF_type: f(x) = exp(-0.5 * (log(x) - mu)**2 / sigma**2) / (sigma * sqrt(2 * acos(-1.))) for x in (lb, ub)"
5158+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5162call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5163err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5164if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5165getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
51661.00000000000000000000000000000000000,
1.00000000000000000000000000000008724,
0.503602725543159692264942259244548267E-22,
0.872446264807417841434358007990972075E-31 >= 1 (unbiased)? TRUE
5167[numFuncEval, numInterval]
5180"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5182+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5186call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5187err = getQuadErr(getFunc, ninf, pinf, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5188if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5190 **** INTEGRATION FAILED: ERR
= 3 ****
5192getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
51935.00000000000000000000000000000000000,
4.99999999999999999999983053073095356,
0.148829537543234621901852365616834232E-19,
0.169469269046435394069508017176203785E-21 >= 1 (unbiased)? TRUE
5194[numFuncEval, numInterval]
5198"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5200+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5204call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5205err = getQuadErr(getFunc, ninf, pinf, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5206if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5207getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
52085.00000000000000000000000000000000000,
5.00000000000000000000000005719560882,
0.220586185914492721267433489481154269E-22,
0.571956088203711499293946877944308075E-25 >= 1 (unbiased)? TRUE
5209[numFuncEval, numInterval]
5213"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5215+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5219break
= integrand
%break
5221-9.00000000000000000000000000000000000,
-5.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000,
+7.00000000000000000000000000000000000
5222call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5223err = getQuadErr(getFunc, ninf, pinf, abstol, reltol, nodeK, weightK, weightG, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5224if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5225getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
52265.00000000000000000000000000000000000,
5.00000000000000000000000000001013964,
0.788055509822032240309071180535670763E-24,
0.101396359712099193191691126721211253E-28 >= 1 (unbiased)? TRUE
5227[numFuncEval, numInterval]
5235"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5237+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5241call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5242err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5243if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5245 **** INTEGRATION FAILED: ERR
= 3 ****
5247getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
52485.00000000000000000000000000000000000,
4.99999999999999999999969281815568880,
0.148181859417151060456208838788826726E-19,
0.307181844311204184751066583033908737E-21 >= 1 (unbiased)? TRUE
5249[numFuncEval, numInterval]
5253"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5255+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5259call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5260err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5261if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5262getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
52635.00000000000000000000000000000000000,
4.99999999999999999999999998291505774,
0.269336154506894640885641401876305503E-21,
0.170849422552146576150294284436679620E-25 >= 1 (unbiased)? TRUE
5264[numFuncEval, numInterval]
5268"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5270+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5274break
= integrand
%break
5276-9.00000000000000000000000000000000000,
-5.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000,
+7.00000000000000000000000000000000000
5277call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5278err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK61, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5279if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5280getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
52815.00000000000000000000000000000000000,
5.00000000000000000000000000000189589,
0.449332958643345025653035995344179889E-23,
0.189588543725479497374830468668060245E-29 >= 1 (unbiased)? TRUE
5282[numFuncEval, numInterval]
5290"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5292+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5296call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5297err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5298if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5300 **** INTEGRATION FAILED: ERR
= 3 ****
5302getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
53035.00000000000000000000000000000000000,
4.99999999999999999999954094074523609,
0.779464639364177429526222142882421036E-20,
0.459059254763912119028468678481861598E-21 >= 1 (unbiased)? TRUE
5304[numFuncEval, numInterval]
5308"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5310+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5314call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5315err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5316if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5317getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
53185.00000000000000000000000000000000000,
4.99999999999999999999999910472257603,
0.659370729678597724799727277994838557E-22,
0.895277423970657900018874711782395259E-24 >= 1 (unbiased)? TRUE
5319[numFuncEval, numInterval]
5323"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5325+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5329break
= integrand
%break
5331-9.00000000000000000000000000000000000,
-5.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000,
+7.00000000000000000000000000000000000
5332call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5333err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK51, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5334if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5335getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
53365.00000000000000000000000000000000000,
5.00000000000000000000000000019333640,
0.344985321048354496619167810458626917E-22,
0.193336403397257058344877401744330514E-27 >= 1 (unbiased)? TRUE
5337[numFuncEval, numInterval]
5345"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5347+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5351call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5352err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5353if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5355 **** INTEGRATION FAILED: ERR
= 3 ****
5357getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
53585.00000000000000000000000000000000000,
4.99999999999999999999977508521541938,
0.889511282275936707662601256374826723E-20,
0.224914784580621788312493015510933010E-21 >= 1 (unbiased)? TRUE
5359[numFuncEval, numInterval]
5363"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5365+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5369call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5370err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5371if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5372getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
53735.00000000000000000000000000000000000,
4.99999999999999999999999995994496739,
0.137823477999278945715823054467102939E-21,
0.400550326120389671097252019271309832E-25 >= 1 (unbiased)? TRUE
5374[numFuncEval, numInterval]
5378"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5380+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5384break
= integrand
%break
5386-9.00000000000000000000000000000000000,
-5.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000,
+7.00000000000000000000000000000000000
5387call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5388err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK41, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5389if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5390getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
53915.00000000000000000000000000000000000,
4.99999999999999999999999999999746394,
0.795751392913600274283119573409522977E-23,
0.253606455076911217130411175479583229E-29 >= 1 (unbiased)? TRUE
5392[numFuncEval, numInterval]
5400"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5402+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5406call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5407err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5408if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5410 **** INTEGRATION FAILED: ERR
= 3 ****
5412getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
54135.00000000000000000000000000000000000,
5.00000000000000000000060512232370447,
0.176488864050125252523228095113894913E-19,
0.605122323704467180647912884282140312E-21 >= 1 (unbiased)? TRUE
5414[numFuncEval, numInterval]
5418"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5420+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5424call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5425err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5426if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5427getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
54285.00000000000000000000000000000000000,
4.99999999999999999999999959859587909,
0.242249371133787039593704332999561004E-21,
0.401404120909243665191791041966513634E-24 >= 1 (unbiased)? TRUE
5429[numFuncEval, numInterval]
5433"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5435+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5439break
= integrand
%break
5441-9.00000000000000000000000000000000000,
-5.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000,
+7.00000000000000000000000000000000000
5442call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5443err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK31, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5444if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5445getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
54465.00000000000000000000000000000000000,
4.99999999999999999999999999999689078,
0.191650111503216410543129537708621019E-21,
0.310922130221875356117357079050910666E-29 >= 1 (unbiased)? TRUE
5447[numFuncEval, numInterval]
5455"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5457+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5461call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5462err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5463if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5465 **** INTEGRATION FAILED: ERR
= 3 ****
5467getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
54685.00000000000000000000000000000000000,
4.99999999999999999999972410297847334,
0.200738257888944093088270474559436884E-19,
0.275897021526661457740995046287992818E-21 >= 1 (unbiased)? TRUE
5469[numFuncEval, numInterval]
5473"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5475+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5479call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5480err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5481if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5482getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
54835.00000000000000000000000000000000000,
4.99999999999999999999999459739551026,
0.120968281637356032081570111145914346E-21,
0.540260448974324376983886400809375715E-23 >= 1 (unbiased)? TRUE
5484[numFuncEval, numInterval]
5488"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5490+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5494break
= integrand
%break
5496-9.00000000000000000000000000000000000,
-5.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000,
+7.00000000000000000000000000000000000
5497call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5498err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK21, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5499if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5500getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
55015.00000000000000000000000000000000000,
5.00000000000000000000000000001726789,
0.454085367689341501754388139227418091E-22,
0.172678878813759566584998982332164583E-28 >= 1 (unbiased)? TRUE
5502[numFuncEval, numInterval]
5510"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5512+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5516call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5517err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5518if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5520 **** INTEGRATION FAILED: ERR
= 3 ****
5522getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
55235.00000000000000000000000000000000000,
4.99999999999999999999964016717577831,
0.650624216878426075936931761260022093E-19,
0.359832824221690805328388673584252356E-21 >= 1 (unbiased)? TRUE
5524[numFuncEval, numInterval]
5528"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5530+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5534call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5535err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5536if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5537getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
55385.00000000000000000000000000000000000,
4.99999999999999999999999989381484476,
0.503284846987234673016163585782518434E-22,
0.106185155244682900454329849424583948E-24 >= 1 (unbiased)? TRUE
5539[numFuncEval, numInterval]
5543"intPentaGammaInf_type: f(x) = sum of five Gamma PDFs with five break points in the integration range x in (-Inf, +Inf)"
5545+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5549break
= integrand
%break
5551-9.00000000000000000000000000000000000,
-5.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000,
+5.00000000000000000000000000000000000,
+7.00000000000000000000000000000000000
5552call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5553err = getQuadErr(getFunc, ninf, pinf, abstol, reltol,
GK15, break, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5554if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5555getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
55565.00000000000000000000000000000000000,
4.99999999999999999999999999999553184,
0.384142579544813447791597719097411376E-22,
0.446815747097838717908986882679703138E-29 >= 1 (unbiased)? TRUE
5557[numFuncEval, numInterval]
5575"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5577+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5579-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5581call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5582err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5583if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5585 **** INTEGRATION FAILED: ERR
= 3 ****
5587getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5588-0.405465108108164381978013115464349228,
-0.915103128150152844213608821604601115,
10.0291797834683825145479356603827519,
0.509638020041988462235595706140251886 >= 1 (unbiased)? TRUE
5589[numFuncEval, numInterval]
5593"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5595+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5597-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5599call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5600err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5601if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5603 **** INTEGRATION FAILED: ERR
= 5 ****
5605getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5606-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464324817,
0.501704750512874939721082254043373566E-31,
0.244111620451082144374845204222639538E-31 >= 1 (unbiased)? TRUE
5607[numFuncEval, numInterval]
5611"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5613+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5615-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5618+1.00000000000000000000000000000000000
5619call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5620err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol, nodeK, weightK, weightG, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5621if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5622getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5623-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464349036,
0.192592994438723585305597794258492732E-33,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
5624[numFuncEval, numInterval]
5632"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5634+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5636-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5638call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5639err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5640if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5642 **** INTEGRATION FAILED: ERR
= 3 ****
5644getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5645-0.405465108108164381978013115464349228,
-11.3331967748993037045211308642082481,
23.2445101247878124858385910225044426,
10.9277316667911393225431177487438991 >= 1 (unbiased)? TRUE
5646[numFuncEval, numInterval]
5650"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5652+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5654-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5656call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5657err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5658if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5660 **** INTEGRATION FAILED: ERR
= 5 ****
5662getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5663-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464181143,
0.353456293043667459932098351912898786E-30,
0.168085535896396009075460474939099532E-30 >= 1 (unbiased)? TRUE
5664[numFuncEval, numInterval]
5668"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5670+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5672-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5675+1.00000000000000000000000000000000000
5676call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5677err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK61, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5678if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5679getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5680-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464349036,
0.192592994438723585305597794258492732E-33,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
5681[numFuncEval, numInterval]
5689"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5691+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5693-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5695call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5696err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5697if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5699 **** INTEGRATION FAILED: ERR
= 3 ****
5701getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5702-0.405465108108164381978013115464349228,
-0.905104586408265809617746382766692903,
8.58793063064077668118896821403563513,
0.499639478300101427639733267302343675 >= 1 (unbiased)? TRUE
5703[numFuncEval, numInterval]
5707"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5709+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5711-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5713call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5714err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5715if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5717 **** INTEGRATION FAILED: ERR
= 5 ****
5719getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5720-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464389095,
0.929261198166841299099509357297227431E-32,
0.398667498488157821582587434115079955E-31 >= 1 (unbiased)? FALSE
5721[numFuncEval, numInterval]
5725"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5727+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5729-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5732+1.00000000000000000000000000000000000
5733call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5734err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK51, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5735if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5736getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5737-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464349036,
0.192592994438723585305597794258492732E-33,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
5738[numFuncEval, numInterval]
5746"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5748+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5750-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5752call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5753err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5754if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5756 **** INTEGRATION FAILED: ERR
= 3 ****
5758getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5759-0.405465108108164381978013115464349228,
-1.39335867553529350606518549676176590,
8.27849259141594481958692370533071838,
0.987893567427129124087172381297416669 >= 1 (unbiased)? TRUE
5760[numFuncEval, numInterval]
5764"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5766+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5768-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5770call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5771err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5772if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5774 **** INTEGRATION FAILED: ERR
= 5 ****
5776getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5777-0.405465108108164381978013115464349228,
-0.405465108108164381978013115463734664,
0.185717424537261153310187953003464541E-29,
0.614564245253966960710162561478850307E-30 >= 1 (unbiased)? TRUE
5778[numFuncEval, numInterval]
5782"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5784+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5786-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5789+1.00000000000000000000000000000000000
5790call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5791err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK41, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5792if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5793getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5794-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464349036,
0.192592994438723585305597794258492732E-33,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
5795[numFuncEval, numInterval]
5803"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5805+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5807-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5809call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5810err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5811if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5813 **** INTEGRATION FAILED: ERR
= 3 ****
5815getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5816-0.405465108108164381978013115464349228,
-1.96385094958119378032688209834218890,
8.11352095731798158366750002316285264,
1.55838584147302939834886898287783968 >= 1 (unbiased)? TRUE
5817[numFuncEval, numInterval]
5821"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5823+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5825-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5827call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5828err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5829if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5831 **** INTEGRATION FAILED: ERR
= 5 ****
5833getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5834-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464260732,
0.635792808065975267900472078350992669E-29,
0.884964809445934874479221864617774103E-31 >= 1 (unbiased)? TRUE
5835[numFuncEval, numInterval]
5839"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5841+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5843-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5846+1.00000000000000000000000000000000000
5847call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5848err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK31, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5849if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5850getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5851-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464349036,
0.192592994438723585305597794258492732E-33,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
5852[numFuncEval, numInterval]
5860"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5862+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5864-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5866call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5867err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5868if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5870 **** INTEGRATION FAILED: ERR
= 3 ****
5872getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5873-0.405465108108164381978013115464349228,
-2.04356971055286136189443548589605091,
7.24146052036062818462419495305868050,
1.63810460244469697991642237043170168 >= 1 (unbiased)? TRUE
5874[numFuncEval, numInterval]
5878"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5880+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5882-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5884call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5885err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5886if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5888 **** INTEGRATION FAILED: ERR
= 5 ****
5890getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5891-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464718525,
0.948013123403926992764805620933964846E-25,
0.369297066836252474823483770490659813E-30 >= 1 (unbiased)? TRUE
5892[numFuncEval, numInterval]
5896"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5898+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5900-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5903+1.00000000000000000000000000000000000
5904call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5905err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK21, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5906if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5907getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5908-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464349036,
0.192592994438723585305597794258492732E-33,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
5909[numFuncEval, numInterval]
5917"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5919+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5921-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5923call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5924err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5925if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5927 **** INTEGRATION FAILED: ERR
= 3 ****
5929getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5930-0.405465108108164381978013115464349228,
25.6581525657940527271541507997975738,
43.7725212703328144915777368136988984,
26.0636176739022171091321639152619244 >= 1 (unbiased)? TRUE
5931[numFuncEval, numInterval]
5935"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5937+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5939-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5941call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5942err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5943if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5945 **** INTEGRATION FAILED: ERR
= 5 ****
5947getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5948-0.405465108108164381978013115464349228,
-0.405465108108164381978013115463569275,
0.400579094949304848203147703839104326E-23,
0.779953479228220839591344667298330941E-30 >= 1 (unbiased)? TRUE
5949[numFuncEval, numInterval]
5953"intCauchy1_type: an integrand of the form w(x) * f(x) with Cauchy weight w(x) 1 / (x - cs) and f(x) = 1 ~,~ x \in (lb < cs, cs < ub)"
5955+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5957-2.00000000000000000000000000000000000,
+3.00000000000000000000000000000000000
5960+1.00000000000000000000000000000000000
5961call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5962err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK15, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5963if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5964getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5965-0.405465108108164381978013115464349228,
-0.405465108108164381978013115464349036,
0.192592994438723585305597794258492732E-33,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
5966[numFuncEval, numInterval]
5979"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
5981+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
5983-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
5985call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
5986err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
5987if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
5989 **** INTEGRATION FAILED: ERR
= 3 ****
5991getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
5992-0.635610766069589123929388320259411106,
-0.535594005918940481480596099467779229,
1.99766883996688893323382397463559461,
0.100016760150648642448792220791631876 >= 1 (unbiased)? TRUE
5993[numFuncEval, numInterval]
5997"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
5999+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6001-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6003call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6004err = getQuadErr(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6005if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6007 **** INTEGRATION FAILED: ERR
= 5 ****
6009getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6010-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259253372,
0.463186151625130222659962695191675020E-30,
0.157733662445314616365284593497705547E-30 >= 1 (unbiased)? TRUE
6011[numFuncEval, numInterval]
6015"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6017+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6019-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6022-2.00000000000000000000000000000000000
6023call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6024err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol, nodeK, weightK, weightG, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6025if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6026getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6027-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259411491,
0.458496862759492376246073374011120524E-24,
0.385185988877447170611195588516985464E-33 >= 1 (unbiased)? TRUE
6028[numFuncEval, numInterval]
6036"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6038+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6040-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6042call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6043err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6044if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6046 **** INTEGRATION FAILED: ERR
= 3 ****
6048getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6049-0.635610766069589123929388320259411106,
1.45660265693814143156056752760615743,
4.48301682864900517932815977426235523,
2.09221342300773055548995584786556854 >= 1 (unbiased)? TRUE
6050[numFuncEval, numInterval]
6054"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6056+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6058-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6060call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6061err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK61,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6062if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6064 **** INTEGRATION FAILED: ERR
= 5 ****
6066getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6067-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259525506,
0.308148791101957736488956470813588371E-32,
0.114400238696601809671525089789544683E-30 >= 1 (unbiased)? FALSE
6068[numFuncEval, numInterval]
6072"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6074+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6076-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6079-2.00000000000000000000000000000000000
6080call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6081err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK61, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6082if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6083getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6084-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259411298,
0.458496862759492376246073374011120524E-24,
0.192592994438723585305597794258492732E-33 >= 1 (unbiased)? TRUE
6085[numFuncEval, numInterval]
6093"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6095+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6097-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6099call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6100err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6101if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6103 **** INTEGRATION FAILED: ERR
= 3 ****
6105getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6106-0.635610766069589123929388320259411106,
-0.538004443349170675733846293911143070,
1.70499824732515084419974546900198492,
0.976063227204184481955420263482680359E-1 >= 1 (unbiased)? TRUE
6107[numFuncEval, numInterval]
6111"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6113+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6115-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6117call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6118err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK51,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6119if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6121 **** INTEGRATION FAILED: ERR
= 5 ****
6123getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6124-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259521076,
0.181807786750155064528484317780017139E-30,
0.109970599824511167209496340521599350E-30 >= 1 (unbiased)? TRUE
6125[numFuncEval, numInterval]
6129"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6131+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6133-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6136-2.00000000000000000000000000000000000
6137call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6138err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK51, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6139if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6140getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6141-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259411202,
0.458496862759492376246073374011120524E-24,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
6142[numFuncEval, numInterval]
6150"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6152+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6154-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6156call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6157err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6158if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6160 **** INTEGRATION FAILED: ERR
= 3 ****
6162getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6163-0.635610766069589123929388320259411106,
-0.437542143888234679456153575207258786,
1.65490787784125387711254835382410950,
0.198068622181354444473234745052152320 >= 1 (unbiased)? TRUE
6164[numFuncEval, numInterval]
6168"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6170+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6172-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6174call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6175err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK41,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6176if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6178 **** INTEGRATION FAILED: ERR
= 5 ****
6180getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6181-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259431135,
0.388074883794028024390779555430862855E-31,
0.200296714216272528717821706028832441E-31 >= 1 (unbiased)? TRUE
6182[numFuncEval, numInterval]
6186"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6188+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6190-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6193-2.00000000000000000000000000000000000
6194call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6195err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK41, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6196if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6197getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6198-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259411202,
0.458496994102030499545723739521740202E-24,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
6199[numFuncEval, numInterval]
6207"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6209+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6211-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6213call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6214err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6215if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6217 **** INTEGRATION FAILED: ERR
= 3 ****
6219getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6220-0.635610766069589123929388320259411106,
-0.321266249478085113548529040091370738,
1.62017896737387654616388863025316796,
0.314344516591504010380859280168040368 >= 1 (unbiased)? TRUE
6221[numFuncEval, numInterval]
6225"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6227+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6229-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6231call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6232err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK31,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6233if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6235 **** INTEGRATION FAILED: ERR
= 5 ****
6237getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6238-0.635610766069589123929388320259411106,
-0.635610766069589123929388320176435881,
0.827288985401370322387754493171183284E-28,
0.829752249800241597043813088959749407E-28 >= 1 (unbiased)? FALSE
6239[numFuncEval, numInterval]
6243"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6245+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6247-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6250-2.00000000000000000000000000000000000
6251call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6252err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK31, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6253if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6254getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6255-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259411202,
0.458497375334801230327203475186647068E-24,
0.962964972193617926527988971292463659E-34 >= 1 (unbiased)? TRUE
6256[numFuncEval, numInterval]
6264"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6266+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6268-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6270call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6271err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6272if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6274 **** INTEGRATION FAILED: ERR
= 3 ****
6276getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6277-0.635610766069589123929388320259411106,
-0.313635651749756707119425316680125425,
1.43562881981449143882504794728653286,
0.321975114319832416809963003579285681 >= 1 (unbiased)? TRUE
6278[numFuncEval, numInterval]
6282"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6284+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6286-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6288call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6289err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK21,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6290if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6292 **** INTEGRATION FAILED: ERR
= 5 ****
6294getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6295-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259486024,
0.597574162078157671474307003603174143E-24,
0.749186748366634746838775419665536727E-31 >= 1 (unbiased)? TRUE
6296[numFuncEval, numInterval]
6300"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6302+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6304-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6307-2.00000000000000000000000000000000000
6308call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6309err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK21, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6310if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6311getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6312-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259411106,
0.485640976828224618892203332811773371E-24,
0.00000000000000000000000000000000000 >= 1 (unbiased)? TRUE
6313[numFuncEval, numInterval]
6321"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6323+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6325-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6327call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6328err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6329if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6331 **** INTEGRATION FAILED: ERR
= 3 ****
6333getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6334-0.635610766069589123929388320259411106,
-5.84924813915432255448624616796316749,
8.75430206830542412204383260468105710,
5.21363737308473343055685784770375657 >= 1 (unbiased)? TRUE
6335[numFuncEval, numInterval]
6339"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6341+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6343-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6345call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6346err = getQuadErr(getFunc, lb, ub, abstol, reltol,
GK15,
weps, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6347if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6349 **** INTEGRATION FAILED: ERR
= 5 ****
6351getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6352-0.635610766069589123929388320259411106,
-0.635610766069589123929388320262825009,
0.160024007118202936108978586388617895E-23,
0.341390341942081427312702650102604216E-29 >= 1 (unbiased)? TRUE
6353[numFuncEval, numInterval]
6357"intCauchy2_type: an integrand of the form w(x) * f(x) = 1 / (x + 2.) / (x - 3.) for x in (-3., 2.)"
6359+0.00000000000000000000000000000000000,
+0.559579552072376591733071579965869345E-22
6361-3.00000000000000000000000000000000000,
+2.00000000000000000000000000000000000
6364-2.00000000000000000000000000000000000
6365call setNodeWeightGK(order
= 35_IK, nodeK
= nodeK, weightK
= weightK, weightG
= weightG)
6366err = getQuadErr(getFuncUnweighted, lb, ub, abstol, reltol,
GK15, integrand
%wcauchy, integral, abserr, sinfo, sindex, numFuncEval, numInterval)
6367if (err
/= 0_IK)
call disp%show(getStrUpper(SK_
' **** integration failed: err = '//getStr(err)
//SK_
' ****'), tmsize
= 1_IK, bmsize
= 1_IK)
6368getStr([truth, integral, abserr, abs(integral
- truth)])
//SK_
' >= 1 (unbiased)? '//getStr(abs(integral
- truth)
<= abserr)
6369-0.635610766069589123929388320259411106,
-0.635610766069589123929388320259413128,
0.339257203369347874671069594088676377E-22,
0.202222644160659764570877683971417368E-32 >= 1 (unbiased)? TRUE
6370[numFuncEval, numInterval]
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...