ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_quadPack.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
138
139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
141module pm_quadPack
142
143 use pm_kind, only: SK, IK, LK, RKH, RKB
144 use pm_mathConst, only: ninf, ninf_type
145 use pm_mathConst, only: pinf, pinf_type
146
147 implicit none
148
149 character(*, SK), parameter :: MODULE_NAME = "@pm_quadPack"
150
151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152
193 type :: wcauchy_type
194 real(RKH) :: cs
195 end type
196
237 interface wcauchy_type
238
239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
241#if RK5_ENABLED
242 PURE elemental module function wcauchy_typer_RK5(cs) result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK5
245#endif
246 use pm_kind, only: RKG => RK5
247 real(RKG) , intent(in) :: cs
248 type(wcauchy_type) :: wcauchy
249 end function
250#endif
251
252#if RK4_ENABLED
253 PURE elemental module function wcauchy_typer_RK4(cs) result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK4
256#endif
257 use pm_kind, only: RKG => RK4
258 real(RKG) , intent(in) :: cs
259 type(wcauchy_type) :: wcauchy
260 end function
261#endif
262
263#if RK3_ENABLED
264 PURE elemental module function wcauchy_typer_RK3(cs) result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK3
267#endif
268 use pm_kind, only: RKG => RK3
269 real(RKG) , intent(in) :: cs
270 type(wcauchy_type) :: wcauchy
271 end function
272#endif
273
274#if RK2_ENABLED
275 PURE elemental module function wcauchy_typer_RK2(cs) result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK2
278#endif
279 use pm_kind, only: RKG => RK2
280 real(RKG) , intent(in) :: cs
281 type(wcauchy_type) :: wcauchy
282 end function
283#endif
284
285#if RK1_ENABLED
286 PURE elemental module function wcauchy_typer_RK1(cs) result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK1
289#endif
290 use pm_kind, only: RKG => RK1
291 real(RKG) , intent(in) :: cs
292 type(wcauchy_type) :: wcauchy
293 end function
294#endif
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298 end interface
299
300!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301
345 type :: wsin_type
346 real(RKH) :: omega
347 end type
348
389 interface wsin_type
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if RK5_ENABLED
394 PURE elemental module function wsin_typer_RK5(omega) result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK5
397#endif
398 use pm_kind, only: RKG => RK5
399 real(RKG) , intent(in) :: omega
400 type(wsin_type) :: wsin
401 end function
402#endif
403
404#if RK4_ENABLED
405 PURE elemental module function wsin_typer_RK4(omega) result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK4
408#endif
409 use pm_kind, only: RKG => RK4
410 real(RKG) , intent(in) :: omega
411 type(wsin_type) :: wsin
412 end function
413#endif
414
415#if RK3_ENABLED
416 PURE elemental module function wsin_typer_RK3(omega) result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK3
419#endif
420 use pm_kind, only: RKG => RK3
421 real(RKG) , intent(in) :: omega
422 type(wsin_type) :: wsin
423 end function
424#endif
425
426#if RK2_ENABLED
427 PURE elemental module function wsin_typer_RK2(omega) result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK2
430#endif
431 use pm_kind, only: RKG => RK2
432 real(RKG) , intent(in) :: omega
433 type(wsin_type) :: wsin
434 end function
435#endif
436
437#if RK1_ENABLED
438 PURE elemental module function wsin_typer_RK1(omega) result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK1
441#endif
442 use pm_kind, only: RKG => RK1
443 real(RKG) , intent(in) :: omega
444 type(wsin_type) :: wsin
445 end function
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450 end interface
451
452!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
497 type :: wcos_type
498 real(RKH) :: omega
499 end type
500
541 interface wcos_type
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544
545#if RK5_ENABLED
546 PURE elemental module function wcos_typer_RK5(omega) result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK5
549#endif
550 use pm_kind, only: RKG => RK5
551 real(RKG) , intent(in) :: omega
552 type(wcos_type) :: wcos
553 end function
554#endif
555
556#if RK4_ENABLED
557 PURE elemental module function wcos_typer_RK4(omega) result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK4
560#endif
561 use pm_kind, only: RKG => RK4
562 real(RKG) , intent(in) :: omega
563 type(wcos_type) :: wcos
564 end function
565#endif
566
567#if RK3_ENABLED
568 PURE elemental module function wcos_typer_RK3(omega) result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK3
571#endif
572 use pm_kind, only: RKG => RK3
573 real(RKG) , intent(in) :: omega
574 type(wcos_type) :: wcos
575 end function
576#endif
577
578#if RK2_ENABLED
579 PURE elemental module function wcos_typer_RK2(omega) result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK2
582#endif
583 use pm_kind, only: RKG => RK2
584 real(RKG) , intent(in) :: omega
585 type(wcos_type) :: wcos
586 end function
587#endif
588
589#if RK1_ENABLED
590 PURE elemental module function wcos_typer_RK1(omega) result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK1
593#endif
594 use pm_kind, only: RKG => RK1
595 real(RKG) , intent(in) :: omega
596 type(wcos_type) :: wcos
597 end function
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602 end interface
603
604!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
645 type :: GK15_type
646 end type
647
674 type(GK15_type) , parameter :: GK15 = GK15_type()
675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
676 !DIR$ ATTRIBUTES DLLEXPORT :: GK15
677#endif
678
698 real(RKB) , parameter :: nodeG7(4) = &
699 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG7
705#endif
706
726 real(RKB) , parameter :: weightG7(4) = &
727 [ 4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
728 , 3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
729 , 2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
730 , 1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
732 !DIR$ ATTRIBUTES DLLEXPORT :: weightG7
733#endif
734
754 real(RKB) , parameter :: nodeK15(8) = &
755 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
756 , 2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
757 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
758 , 5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
759 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
760 , 8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
761 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
762 , 9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
764 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK15
765#endif
766
786 real(RKB) , parameter :: weightK15(8) = &
787 [ 2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
788 , 2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
789 , 1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
790 , 1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
791 , 1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
792 , 1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
793 , 6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
794 , 2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
796 !DIR$ ATTRIBUTES DLLEXPORT :: weightK15
797#endif
798
799!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
800
840 type :: GK21_type
841 end type
842
870 type(GK21_type) , parameter :: GK21 = GK21_type()
871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
872 !DIR$ ATTRIBUTES DLLEXPORT :: GK21
873#endif
874
894 real(RKB) , parameter :: nodeG10(5) = &
895 [ 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
896 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
897 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
898 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
899 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG10
902#endif
903
923 real(RKB) , parameter :: weightG10(5) = &
924 [ 2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
925 , 2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
926 , 2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
927 , 1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
928 , 6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
930 !DIR$ ATTRIBUTES DLLEXPORT :: weightG10
931#endif
932
952 real(RKB) , parameter :: nodeK21(11) = &
953 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
954 , 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
955 , 2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
956 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
957 , 5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
958 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
959 , 7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
960 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
961 , 9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
962 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
963 , 9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
965 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK21
966#endif
967
987 real(RKB) , parameter :: weightK21(11) = &
988 [ 1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
989 , 1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
990 , 1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
991 , 1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
992 , 1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
993 , 1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
994 , 9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
995 , 7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
996 , 5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
997 , 3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
998 , 1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1000 !DIR$ ATTRIBUTES DLLEXPORT :: weightK21
1001#endif
1002
1003!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1004
1044 type :: GK31_type
1045 end type
1046
1074 type(GK31_type) , parameter :: GK31 = GK31_type()
1075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1076 !DIR$ ATTRIBUTES DLLEXPORT :: GK31
1077#endif
1078
1098 real(RKB) , parameter :: nodeG15(8) = &
1099 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1100 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1101 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1102 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1103 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1104 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1105 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1106 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG15
1109#endif
1110
1130 real(RKB) , parameter :: weightG15(8) = &
1131 [ 2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1132 , 1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1133 , 1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1134 , 1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1135 , 1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1136 , 1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1137 , 7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1138 , 3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1140 !DIR$ ATTRIBUTES DLLEXPORT :: weightG15
1141#endif
1142
1162 real(RKB) , parameter :: nodeK31(16) = &
1163 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1164 , 1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1165 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1166 , 2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1167 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1168 , 4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1169 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1170 , 6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1171 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1172 , 7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1173 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1174 , 8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1175 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1176 , 9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1177 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1178 , 9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK31
1181#endif
1182
1202 real(RKB) , parameter :: weightK31(16) = &
1203 [ 1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1204 , 1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1205 , 9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1206 , 9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1207 , 9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1208 , 8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1209 , 8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1210 , 7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1211 , 6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1212 , 6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1213 , 5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1214 , 4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1215 , 3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1216 , 2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1217 , 1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1218 , 5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1220 !DIR$ ATTRIBUTES DLLEXPORT :: weightK31
1221#endif
1222
1223!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1224
1264 type :: GK41_type
1265 end type
1266
1294 type(GK41_type) , parameter :: GK41 = GK41_type()
1295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1296 !DIR$ ATTRIBUTES DLLEXPORT :: GK41
1297#endif
1298
1318 real(RKB) , parameter :: nodeG20(10) = &
1319 [ 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1320 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1321 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1322 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1323 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1324 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1325 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1326 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1327 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1328 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1330 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG20
1331#endif
1332
1352 real(RKB) , parameter :: weightG20(10) = &
1353 [ 1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1354 , 1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1355 , 1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1356 , 1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1357 , 1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1358 , 1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1359 , 8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1360 , 6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1361 , 4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1362 , 1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1364 !DIR$ ATTRIBUTES DLLEXPORT :: weightG20
1365#endif
1366
1386 real(RKB) , parameter :: nodeK41(21) = &
1387 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1388 , 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1389 , 1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1390 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1391 , 3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1392 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1393 , 4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1394 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1395 , 5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1396 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1397 , 6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1398 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1399 , 7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1400 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1401 , 8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1402 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1403 , 9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1404 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1405 , 9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1406 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1407 , 9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK41
1410#endif
1411
1431 real(RKB) , parameter :: weightK41(21) = &
1432 [ 7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1433 , 7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1434 , 7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1435 , 7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1436 , 7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1437 , 7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1438 , 6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1439 , 6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1440 , 6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1441 , 5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1442 , 5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1443 , 5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1444 , 4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1445 , 4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1446 , 3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1447 , 3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1448 , 2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1449 , 2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1450 , 1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1451 , 8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1452 , 3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1454 !DIR$ ATTRIBUTES DLLEXPORT :: weightK41
1455#endif
1456
1457!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1458
1498 type :: GK51_type
1499 end type
1500
1528 type(GK51_type) , parameter :: GK51 = GK51_type()
1529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1530 !DIR$ ATTRIBUTES DLLEXPORT :: GK51
1531#endif
1532
1552 real(RKB) , parameter :: nodeG25(13) = &
1553 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1554 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1555 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1556 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1557 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1558 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1559 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1560 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1561 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1562 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1563 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1564 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1565 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG25
1568#endif
1569
1589 real(RKB) , parameter :: weightG25(13) = &
1590 [ 1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1591 , 1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1592 , 1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1593 , 1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1594 , 1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1595 , 1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1596 , 9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1597 , 8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1598 , 6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1599 , 5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1600 , 4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1601 , 2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1602 , 1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1604 !DIR$ ATTRIBUTES DLLEXPORT :: weightG25
1605#endif
1606
1626 real(RKB) , parameter :: nodeK51(26) = &
1627 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1628 , 6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1629 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1630 , 1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1631 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1632 , 3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1633 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1634 , 4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1635 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1636 , 5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1637 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1638 , 6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1639 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1640 , 7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1641 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1642 , 7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1643 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1644 , 8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1645 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1646 , 9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1647 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1648 , 9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1649 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1650 , 9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1651 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1652 , 9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1654 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK51
1655#endif
1656
1676 real(RKB) , parameter :: weightK51(26) = &
1677 [ 6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1678 , 6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1679 , 6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1680 , 6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1681 , 5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1682 , 5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1683 , 5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1684 , 5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1685 , 5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1686 , 5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1687 , 5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1688 , 4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1689 , 4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1690 , 4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1691 , 4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1692 , 3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1693 , 3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1694 , 3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1695 , 2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1696 , 2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1697 , 2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1698 , 1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1699 , 1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1700 , 9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1701 , 5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1702 , 1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1704 !DIR$ ATTRIBUTES DLLEXPORT :: weightK51
1705#endif
1706
1707!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1708
1748 type :: GK61_type
1749 end type
1750
1778 type(GK61_type) , parameter :: GK61 = GK61_type()
1779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1780 !DIR$ ATTRIBUTES DLLEXPORT :: GK61
1781#endif
1782
1802 real(RKB) , parameter :: nodeG30(15) = &
1803 [ 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1804 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1805 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1806 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1807 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1808 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1809 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1810 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1811 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1812 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1813 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1814 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1815 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1816 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1817 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1819 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG30
1820#endif
1821
1841 real(RKB) , parameter :: weightG30(15) = &
1842 [ 1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1843 , 1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1844 , 9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1845 , 9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1846 , 9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1847 , 8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1848 , 8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1849 , 7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1850 , 6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1851 , 5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1852 , 4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1853 , 3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1854 , 2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1855 , 1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1856 , 7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1858 !DIR$ ATTRIBUTES DLLEXPORT :: weightG30
1859#endif
1860
1880 real(RKB) , parameter :: nodeK61(31) = &
1881 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1882 , 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1883 , 1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1884 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1885 , 2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1886 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1887 , 3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1888 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1889 , 4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1890 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1891 , 4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1892 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1893 , 5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1894 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1895 , 6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1896 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1897 , 7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1898 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1899 , 7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1900 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1901 , 8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1902 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1903 , 9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1904 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1905 , 9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1906 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1907 , 9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1908 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1909 , 9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1910 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1911 , 9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1913 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK61
1914#endif
1915
1935 real(RKB) , parameter :: weightK61(31) = &
1936 [ 5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1937 , 5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1938 , 5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1939 , 5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1940 , 5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1941 , 4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1942 , 4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1943 , 4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1944 , 4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1945 , 4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1946 , 4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1947 , 4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1948 , 4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1949 , 4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1950 , 3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1951 , 3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1952 , 3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1953 , 3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1954 , 3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1955 , 2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1956 , 2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1957 , 2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1958 , 2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1959 , 1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1960 , 1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1961 , 1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1962 , 1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1963 , 9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1964 , 6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1965 , 3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1966 , 1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1968 !DIR$ ATTRIBUTES DLLEXPORT :: weightK61
1969#endif
1970
1971!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1972
2036 interface setNodeWeightGK
2037
2038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2039
2040#if RK5_ENABLED
2041 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
2042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2043 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
2044#endif
2045 use pm_kind, only: RKG => RK5
2046 real(RKG) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2047 end subroutine
2048#endif
2049
2050#if RK4_ENABLED
2051 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
2052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2053 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
2054#endif
2055 use pm_kind, only: RKG => RK4
2056 real(RKG) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2057 end subroutine
2058#endif
2059
2060#if RK3_ENABLED
2061 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
2062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2063 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
2064#endif
2065 use pm_kind, only: RKG => RK3
2066 real(RKG) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2067 end subroutine
2068#endif
2069
2070#if RK2_ENABLED
2071 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2073 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2074#endif
2075 use pm_kind, only: RKG => RK2
2076 real(RKG) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2077 end subroutine
2078#endif
2079
2080#if RK1_ENABLED
2081 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2083 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2084#endif
2085 use pm_kind, only: RKG => RK1
2086 real(RKG) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2087 end subroutine
2088#endif
2089
2090 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2091
2092#if RK5_ENABLED
2093 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2095 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2096#endif
2097 use pm_kind, only: RKG => RK5
2098 integer(IK) , intent(in) :: order
2099 real(RKG) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2100 end subroutine
2101#endif
2102
2103#if RK4_ENABLED
2104 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2107#endif
2108 use pm_kind, only: RKG => RK4
2109 integer(IK) , intent(in) :: order
2110 real(RKG) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2111 end subroutine
2112#endif
2113
2114#if RK3_ENABLED
2115 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2117 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2118#endif
2119 use pm_kind, only: RKG => RK3
2120 integer(IK) , intent(in) :: order
2121 real(RKG) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2122 end subroutine
2123#endif
2124
2125#if RK2_ENABLED
2126 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2128 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2129#endif
2130 use pm_kind, only: RKG => RK2
2131 integer(IK) , intent(in) :: order
2132 real(RKG) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2133 end subroutine
2134#endif
2135
2136#if RK1_ENABLED
2137 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2139 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2140#endif
2141 use pm_kind, only: RKG => RK1
2142 integer(IK) , intent(in) :: order
2143 real(RKG) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2144 end subroutine
2145#endif
2146
2147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2148
2149 end interface
2150
2151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2152
2153 ! Naming convention: getQuadGKDFU, getQuadGKDPU, getQuadGKDNU, getQuadGKDBU
2154 ! G: Gauss rule,
2155 ! K: Kronrod rule,
2156 ! D: default method,
2157 ! F: finite integration limits,
2158 ! P: Positive integration limit,
2159 ! N: Negative integration limit,
2160 ! B: Both negative and positive integration limits,
2161
2269
2270 ! GK15
2271
2272 interface getQuadGK
2273
2274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2275
2276#if RK5_ENABLED
2277 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2279 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2280#endif
2281 use pm_kind, only: RKG => RK5
2282 procedure(real(RKG)) :: getFunc
2283 real(RKG) , intent(in) :: lb
2284 real(RKG) , intent(in) :: ub
2285 type(GK15_type) , intent(in) :: qrule
2286 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2287 real(RKG) :: quadGK
2288 end function
2289#endif
2290
2291#if RK4_ENABLED
2292 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2294 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2295#endif
2296 use pm_kind, only: RKG => RK4
2297 procedure(real(RKG)) :: getFunc
2298 real(RKG) , intent(in) :: lb
2299 real(RKG) , intent(in) :: ub
2300 type(GK15_type) , intent(in) :: qrule
2301 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2302 real(RKG) :: quadGK
2303 end function
2304#endif
2305
2306#if RK3_ENABLED
2307 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2309 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2310#endif
2311 use pm_kind, only: RKG => RK3
2312 procedure(real(RKG)) :: getFunc
2313 real(RKG) , intent(in) :: lb
2314 real(RKG) , intent(in) :: ub
2315 type(GK15_type) , intent(in) :: qrule
2316 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2317 real(RKG) :: quadGK
2318 end function
2319#endif
2320
2321#if RK2_ENABLED
2322 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2324 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2325#endif
2326 use pm_kind, only: RKG => RK2
2327 procedure(real(RKG)) :: getFunc
2328 real(RKG) , intent(in) :: lb
2329 real(RKG) , intent(in) :: ub
2330 type(GK15_type) , intent(in) :: qrule
2331 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2332 real(RKG) :: quadGK
2333 end function
2334#endif
2335
2336#if RK1_ENABLED
2337 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2340#endif
2341 use pm_kind, only: RKG => RK1
2342 procedure(real(RKG)) :: getFunc
2343 real(RKG) , intent(in) :: lb
2344 real(RKG) , intent(in) :: ub
2345 type(GK15_type) , intent(in) :: qrule
2346 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2347 real(RKG) :: quadGK
2348 end function
2349#endif
2350
2351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2352
2353#if RK5_ENABLED
2354 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2356 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2357#endif
2358 use pm_kind, only: RKG => RK5
2359 procedure(real(RKG)) :: getFunc
2360 real(RKG) , intent(in) :: lb
2361 type(pinf_type) , intent(in) :: ub
2362 type(GK15_type) , intent(in) :: qrule
2363 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2364 real(RKG) :: quadGK
2365 end function
2366#endif
2367
2368#if RK4_ENABLED
2369 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2371 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2372#endif
2373 use pm_kind, only: RKG => RK4
2374 procedure(real(RKG)) :: getFunc
2375 real(RKG) , intent(in) :: lb
2376 type(pinf_type) , intent(in) :: ub
2377 type(GK15_type) , intent(in) :: qrule
2378 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2379 real(RKG) :: quadGK
2380 end function
2381#endif
2382
2383#if RK3_ENABLED
2384 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2386 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2387#endif
2388 use pm_kind, only: RKG => RK3
2389 procedure(real(RKG)) :: getFunc
2390 real(RKG) , intent(in) :: lb
2391 type(pinf_type) , intent(in) :: ub
2392 type(GK15_type) , intent(in) :: qrule
2393 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2394 real(RKG) :: quadGK
2395 end function
2396#endif
2397
2398#if RK2_ENABLED
2399 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2401 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2402#endif
2403 use pm_kind, only: RKG => RK2
2404 procedure(real(RKG)) :: getFunc
2405 real(RKG) , intent(in) :: lb
2406 type(pinf_type) , intent(in) :: ub
2407 type(GK15_type) , intent(in) :: qrule
2408 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2409 real(RKG) :: quadGK
2410 end function
2411#endif
2412
2413#if RK1_ENABLED
2414 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2416 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2417#endif
2418 use pm_kind, only: RKG => RK1
2419 procedure(real(RKG)) :: getFunc
2420 real(RKG) , intent(in) :: lb
2421 type(pinf_type) , intent(in) :: ub
2422 type(GK15_type) , intent(in) :: qrule
2423 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2424 real(RKG) :: quadGK
2425 end function
2426#endif
2427
2428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2429
2430#if RK5_ENABLED
2431 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2433 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2434#endif
2435 use pm_kind, only: RKG => RK5
2436 procedure(real(RKG)) :: getFunc
2437 type(ninf_type) , intent(in) :: lb
2438 real(RKG) , intent(in) :: ub
2439 type(GK15_type) , intent(in) :: qrule
2440 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2441 real(RKG) :: quadGK
2442 end function
2443#endif
2444
2445#if RK4_ENABLED
2446 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2448 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2449#endif
2450 use pm_kind, only: RKG => RK4
2451 procedure(real(RKG)) :: getFunc
2452 type(ninf_type) , intent(in) :: lb
2453 real(RKG) , intent(in) :: ub
2454 type(GK15_type) , intent(in) :: qrule
2455 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2456 real(RKG) :: quadGK
2457 end function
2458#endif
2459
2460#if RK3_ENABLED
2461 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2463 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2464#endif
2465 use pm_kind, only: RKG => RK3
2466 procedure(real(RKG)) :: getFunc
2467 type(ninf_type) , intent(in) :: lb
2468 real(RKG) , intent(in) :: ub
2469 type(GK15_type) , intent(in) :: qrule
2470 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2471 real(RKG) :: quadGK
2472 end function
2473#endif
2474
2475#if RK2_ENABLED
2476 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2478 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2479#endif
2480 use pm_kind, only: RKG => RK2
2481 procedure(real(RKG)) :: getFunc
2482 type(ninf_type) , intent(in) :: lb
2483 real(RKG) , intent(in) :: ub
2484 type(GK15_type) , intent(in) :: qrule
2485 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2486 real(RKG) :: quadGK
2487 end function
2488#endif
2489
2490#if RK1_ENABLED
2491 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2493 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2494#endif
2495 use pm_kind, only: RKG => RK1
2496 procedure(real(RKG)) :: getFunc
2497 type(ninf_type) , intent(in) :: lb
2498 real(RKG) , intent(in) :: ub
2499 type(GK15_type) , intent(in) :: qrule
2500 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2501 real(RKG) :: quadGK
2502 end function
2503#endif
2504
2505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2506
2507#if RK5_ENABLED
2508 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2510 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2511#endif
2512 use pm_kind, only: RKG => RK5
2513 procedure(real(RKG)) :: getFunc
2514 type(ninf_type) , intent(in) :: lb
2515 type(pinf_type) , intent(in) :: ub
2516 type(GK15_type) , intent(in) :: qrule
2517 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2518 real(RKG) :: quadGK
2519 end function
2520#endif
2521
2522#if RK4_ENABLED
2523 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2525 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2526#endif
2527 use pm_kind, only: RKG => RK4
2528 procedure(real(RKG)) :: getFunc
2529 type(ninf_type) , intent(in) :: lb
2530 type(pinf_type) , intent(in) :: ub
2531 type(GK15_type) , intent(in) :: qrule
2532 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2533 real(RKG) :: quadGK
2534 end function
2535#endif
2536
2537#if RK3_ENABLED
2538 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2540 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2541#endif
2542 use pm_kind, only: RKG => RK3
2543 procedure(real(RKG)) :: getFunc
2544 type(ninf_type) , intent(in) :: lb
2545 type(pinf_type) , intent(in) :: ub
2546 type(GK15_type) , intent(in) :: qrule
2547 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2548 real(RKG) :: quadGK
2549 end function
2550#endif
2551
2552#if RK2_ENABLED
2553 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2555 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2556#endif
2557 use pm_kind, only: RKG => RK2
2558 procedure(real(RKG)) :: getFunc
2559 type(ninf_type) , intent(in) :: lb
2560 type(pinf_type) , intent(in) :: ub
2561 type(GK15_type) , intent(in) :: qrule
2562 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2563 real(RKG) :: quadGK
2564 end function
2565#endif
2566
2567#if RK1_ENABLED
2568 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2570 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2571#endif
2572 use pm_kind, only: RKG => RK1
2573 procedure(real(RKG)) :: getFunc
2574 type(ninf_type) , intent(in) :: lb
2575 type(pinf_type) , intent(in) :: ub
2576 type(GK15_type) , intent(in) :: qrule
2577 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2578 real(RKG) :: quadGK
2579 end function
2580#endif
2581
2582 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2583
2584 end interface
2585
2586 ! GK21
2587
2588 interface getQuadGK
2589
2590 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2591
2592#if RK5_ENABLED
2593 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2595 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2596#endif
2597 use pm_kind, only: RKG => RK5
2598 procedure(real(RKG)) :: getFunc
2599 real(RKG) , intent(in) :: lb
2600 real(RKG) , intent(in) :: ub
2601 type(GK21_type) , intent(in) :: qrule
2602 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2603 real(RKG) :: quadGK
2604 end function
2605#endif
2606
2607#if RK4_ENABLED
2608 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2610 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2611#endif
2612 use pm_kind, only: RKG => RK4
2613 procedure(real(RKG)) :: getFunc
2614 real(RKG) , intent(in) :: lb
2615 real(RKG) , intent(in) :: ub
2616 type(GK21_type) , intent(in) :: qrule
2617 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2618 real(RKG) :: quadGK
2619 end function
2620#endif
2621
2622#if RK3_ENABLED
2623 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2625 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2626#endif
2627 use pm_kind, only: RKG => RK3
2628 procedure(real(RKG)) :: getFunc
2629 real(RKG) , intent(in) :: lb
2630 real(RKG) , intent(in) :: ub
2631 type(GK21_type) , intent(in) :: qrule
2632 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2633 real(RKG) :: quadGK
2634 end function
2635#endif
2636
2637#if RK2_ENABLED
2638 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2640 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2641#endif
2642 use pm_kind, only: RKG => RK2
2643 procedure(real(RKG)) :: getFunc
2644 real(RKG) , intent(in) :: lb
2645 real(RKG) , intent(in) :: ub
2646 type(GK21_type) , intent(in) :: qrule
2647 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2648 real(RKG) :: quadGK
2649 end function
2650#endif
2651
2652#if RK1_ENABLED
2653 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2655 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2656#endif
2657 use pm_kind, only: RKG => RK1
2658 procedure(real(RKG)) :: getFunc
2659 real(RKG) , intent(in) :: lb
2660 real(RKG) , intent(in) :: ub
2661 type(GK21_type) , intent(in) :: qrule
2662 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2663 real(RKG) :: quadGK
2664 end function
2665#endif
2666
2667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2668
2669#if RK5_ENABLED
2670 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2672 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2673#endif
2674 use pm_kind, only: RKG => RK5
2675 procedure(real(RKG)) :: getFunc
2676 real(RKG) , intent(in) :: lb
2677 type(pinf_type) , intent(in) :: ub
2678 type(GK21_type) , intent(in) :: qrule
2679 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2680 real(RKG) :: quadGK
2681 end function
2682#endif
2683
2684#if RK4_ENABLED
2685 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2687 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2688#endif
2689 use pm_kind, only: RKG => RK4
2690 procedure(real(RKG)) :: getFunc
2691 real(RKG) , intent(in) :: lb
2692 type(pinf_type) , intent(in) :: ub
2693 type(GK21_type) , intent(in) :: qrule
2694 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2695 real(RKG) :: quadGK
2696 end function
2697#endif
2698
2699#if RK3_ENABLED
2700 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2702 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2703#endif
2704 use pm_kind, only: RKG => RK3
2705 procedure(real(RKG)) :: getFunc
2706 real(RKG) , intent(in) :: lb
2707 type(pinf_type) , intent(in) :: ub
2708 type(GK21_type) , intent(in) :: qrule
2709 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2710 real(RKG) :: quadGK
2711 end function
2712#endif
2713
2714#if RK2_ENABLED
2715 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2717 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2718#endif
2719 use pm_kind, only: RKG => RK2
2720 procedure(real(RKG)) :: getFunc
2721 real(RKG) , intent(in) :: lb
2722 type(pinf_type) , intent(in) :: ub
2723 type(GK21_type) , intent(in) :: qrule
2724 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2725 real(RKG) :: quadGK
2726 end function
2727#endif
2728
2729#if RK1_ENABLED
2730 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2732 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2733#endif
2734 use pm_kind, only: RKG => RK1
2735 procedure(real(RKG)) :: getFunc
2736 real(RKG) , intent(in) :: lb
2737 type(pinf_type) , intent(in) :: ub
2738 type(GK21_type) , intent(in) :: qrule
2739 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2740 real(RKG) :: quadGK
2741 end function
2742#endif
2743
2744 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2745
2746#if RK5_ENABLED
2747 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2749 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2750#endif
2751 use pm_kind, only: RKG => RK5
2752 procedure(real(RKG)) :: getFunc
2753 type(ninf_type) , intent(in) :: lb
2754 real(RKG) , intent(in) :: ub
2755 type(GK21_type) , intent(in) :: qrule
2756 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2757 real(RKG) :: quadGK
2758 end function
2759#endif
2760
2761#if RK4_ENABLED
2762 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2764 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2765#endif
2766 use pm_kind, only: RKG => RK4
2767 procedure(real(RKG)) :: getFunc
2768 type(ninf_type) , intent(in) :: lb
2769 real(RKG) , intent(in) :: ub
2770 type(GK21_type) , intent(in) :: qrule
2771 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2772 real(RKG) :: quadGK
2773 end function
2774#endif
2775
2776#if RK3_ENABLED
2777 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2779 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2780#endif
2781 use pm_kind, only: RKG => RK3
2782 procedure(real(RKG)) :: getFunc
2783 type(ninf_type) , intent(in) :: lb
2784 real(RKG) , intent(in) :: ub
2785 type(GK21_type) , intent(in) :: qrule
2786 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2787 real(RKG) :: quadGK
2788 end function
2789#endif
2790
2791#if RK2_ENABLED
2792 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2794 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2795#endif
2796 use pm_kind, only: RKG => RK2
2797 procedure(real(RKG)) :: getFunc
2798 type(ninf_type) , intent(in) :: lb
2799 real(RKG) , intent(in) :: ub
2800 type(GK21_type) , intent(in) :: qrule
2801 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2802 real(RKG) :: quadGK
2803 end function
2804#endif
2805
2806#if RK1_ENABLED
2807 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2809 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2810#endif
2811 use pm_kind, only: RKG => RK1
2812 procedure(real(RKG)) :: getFunc
2813 type(ninf_type) , intent(in) :: lb
2814 real(RKG) , intent(in) :: ub
2815 type(GK21_type) , intent(in) :: qrule
2816 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2817 real(RKG) :: quadGK
2818 end function
2819#endif
2820
2821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2822
2823#if RK5_ENABLED
2824 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2826 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2827#endif
2828 use pm_kind, only: RKG => RK5
2829 procedure(real(RKG)) :: getFunc
2830 type(ninf_type) , intent(in) :: lb
2831 type(pinf_type) , intent(in) :: ub
2832 type(GK21_type) , intent(in) :: qrule
2833 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2834 real(RKG) :: quadGK
2835 end function
2836#endif
2837
2838#if RK4_ENABLED
2839 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2841 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2842#endif
2843 use pm_kind, only: RKG => RK4
2844 procedure(real(RKG)) :: getFunc
2845 type(ninf_type) , intent(in) :: lb
2846 type(pinf_type) , intent(in) :: ub
2847 type(GK21_type) , intent(in) :: qrule
2848 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2849 real(RKG) :: quadGK
2850 end function
2851#endif
2852
2853#if RK3_ENABLED
2854 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2856 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2857#endif
2858 use pm_kind, only: RKG => RK3
2859 procedure(real(RKG)) :: getFunc
2860 type(ninf_type) , intent(in) :: lb
2861 type(pinf_type) , intent(in) :: ub
2862 type(GK21_type) , intent(in) :: qrule
2863 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2864 real(RKG) :: quadGK
2865 end function
2866#endif
2867
2868#if RK2_ENABLED
2869 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2871 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2872#endif
2873 use pm_kind, only: RKG => RK2
2874 procedure(real(RKG)) :: getFunc
2875 type(ninf_type) , intent(in) :: lb
2876 type(pinf_type) , intent(in) :: ub
2877 type(GK21_type) , intent(in) :: qrule
2878 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2879 real(RKG) :: quadGK
2880 end function
2881#endif
2882
2883#if RK1_ENABLED
2884 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2886 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2887#endif
2888 use pm_kind, only: RKG => RK1
2889 procedure(real(RKG)) :: getFunc
2890 type(ninf_type) , intent(in) :: lb
2891 type(pinf_type) , intent(in) :: ub
2892 type(GK21_type) , intent(in) :: qrule
2893 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2894 real(RKG) :: quadGK
2895 end function
2896#endif
2897
2898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2899
2900 end interface
2901
2902 ! GK31
2903
2904 interface getQuadGK
2905
2906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2907
2908#if RK5_ENABLED
2909 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2911 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2912#endif
2913 use pm_kind, only: RKG => RK5
2914 procedure(real(RKG)) :: getFunc
2915 real(RKG) , intent(in) :: lb
2916 real(RKG) , intent(in) :: ub
2917 type(GK31_type) , intent(in) :: qrule
2918 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2919 real(RKG) :: quadGK
2920 end function
2921#endif
2922
2923#if RK4_ENABLED
2924 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2926 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2927#endif
2928 use pm_kind, only: RKG => RK4
2929 procedure(real(RKG)) :: getFunc
2930 real(RKG) , intent(in) :: lb
2931 real(RKG) , intent(in) :: ub
2932 type(GK31_type) , intent(in) :: qrule
2933 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2934 real(RKG) :: quadGK
2935 end function
2936#endif
2937
2938#if RK3_ENABLED
2939 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2941 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2942#endif
2943 use pm_kind, only: RKG => RK3
2944 procedure(real(RKG)) :: getFunc
2945 real(RKG) , intent(in) :: lb
2946 real(RKG) , intent(in) :: ub
2947 type(GK31_type) , intent(in) :: qrule
2948 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2949 real(RKG) :: quadGK
2950 end function
2951#endif
2952
2953#if RK2_ENABLED
2954 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2956 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2957#endif
2958 use pm_kind, only: RKG => RK2
2959 procedure(real(RKG)) :: getFunc
2960 real(RKG) , intent(in) :: lb
2961 real(RKG) , intent(in) :: ub
2962 type(GK31_type) , intent(in) :: qrule
2963 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2964 real(RKG) :: quadGK
2965 end function
2966#endif
2967
2968#if RK1_ENABLED
2969 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2971 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2972#endif
2973 use pm_kind, only: RKG => RK1
2974 procedure(real(RKG)) :: getFunc
2975 real(RKG) , intent(in) :: lb
2976 real(RKG) , intent(in) :: ub
2977 type(GK31_type) , intent(in) :: qrule
2978 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2979 real(RKG) :: quadGK
2980 end function
2981#endif
2982
2983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2984
2985#if RK5_ENABLED
2986 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2988 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2989#endif
2990 use pm_kind, only: RKG => RK5
2991 procedure(real(RKG)) :: getFunc
2992 real(RKG) , intent(in) :: lb
2993 type(pinf_type) , intent(in) :: ub
2994 type(GK31_type) , intent(in) :: qrule
2995 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
2996 real(RKG) :: quadGK
2997 end function
2998#endif
2999
3000#if RK4_ENABLED
3001 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3003 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
3004#endif
3005 use pm_kind, only: RKG => RK4
3006 procedure(real(RKG)) :: getFunc
3007 real(RKG) , intent(in) :: lb
3008 type(pinf_type) , intent(in) :: ub
3009 type(GK31_type) , intent(in) :: qrule
3010 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3011 real(RKG) :: quadGK
3012 end function
3013#endif
3014
3015#if RK3_ENABLED
3016 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3018 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
3019#endif
3020 use pm_kind, only: RKG => RK3
3021 procedure(real(RKG)) :: getFunc
3022 real(RKG) , intent(in) :: lb
3023 type(pinf_type) , intent(in) :: ub
3024 type(GK31_type) , intent(in) :: qrule
3025 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3026 real(RKG) :: quadGK
3027 end function
3028#endif
3029
3030#if RK2_ENABLED
3031 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3033 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
3034#endif
3035 use pm_kind, only: RKG => RK2
3036 procedure(real(RKG)) :: getFunc
3037 real(RKG) , intent(in) :: lb
3038 type(pinf_type) , intent(in) :: ub
3039 type(GK31_type) , intent(in) :: qrule
3040 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3041 real(RKG) :: quadGK
3042 end function
3043#endif
3044
3045#if RK1_ENABLED
3046 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3048 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
3049#endif
3050 use pm_kind, only: RKG => RK1
3051 procedure(real(RKG)) :: getFunc
3052 real(RKG) , intent(in) :: lb
3053 type(pinf_type) , intent(in) :: ub
3054 type(GK31_type) , intent(in) :: qrule
3055 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3056 real(RKG) :: quadGK
3057 end function
3058#endif
3059
3060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3061
3062#if RK5_ENABLED
3063 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3065 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
3066#endif
3067 use pm_kind, only: RKG => RK5
3068 procedure(real(RKG)) :: getFunc
3069 type(ninf_type) , intent(in) :: lb
3070 real(RKG) , intent(in) :: ub
3071 type(GK31_type) , intent(in) :: qrule
3072 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3073 real(RKG) :: quadGK
3074 end function
3075#endif
3076
3077#if RK4_ENABLED
3078 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3080 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3081#endif
3082 use pm_kind, only: RKG => RK4
3083 procedure(real(RKG)) :: getFunc
3084 type(ninf_type) , intent(in) :: lb
3085 real(RKG) , intent(in) :: ub
3086 type(GK31_type) , intent(in) :: qrule
3087 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3088 real(RKG) :: quadGK
3089 end function
3090#endif
3091
3092#if RK3_ENABLED
3093 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3095 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3096#endif
3097 use pm_kind, only: RKG => RK3
3098 procedure(real(RKG)) :: getFunc
3099 type(ninf_type) , intent(in) :: lb
3100 real(RKG) , intent(in) :: ub
3101 type(GK31_type) , intent(in) :: qrule
3102 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3103 real(RKG) :: quadGK
3104 end function
3105#endif
3106
3107#if RK2_ENABLED
3108 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3110 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3111#endif
3112 use pm_kind, only: RKG => RK2
3113 procedure(real(RKG)) :: getFunc
3114 type(ninf_type) , intent(in) :: lb
3115 real(RKG) , intent(in) :: ub
3116 type(GK31_type) , intent(in) :: qrule
3117 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3118 real(RKG) :: quadGK
3119 end function
3120#endif
3121
3122#if RK1_ENABLED
3123 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3126#endif
3127 use pm_kind, only: RKG => RK1
3128 procedure(real(RKG)) :: getFunc
3129 type(ninf_type) , intent(in) :: lb
3130 real(RKG) , intent(in) :: ub
3131 type(GK31_type) , intent(in) :: qrule
3132 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3133 real(RKG) :: quadGK
3134 end function
3135#endif
3136
3137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3138
3139#if RK5_ENABLED
3140 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3142 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3143#endif
3144 use pm_kind, only: RKG => RK5
3145 procedure(real(RKG)) :: getFunc
3146 type(ninf_type) , intent(in) :: lb
3147 type(pinf_type) , intent(in) :: ub
3148 type(GK31_type) , intent(in) :: qrule
3149 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3150 real(RKG) :: quadGK
3151 end function
3152#endif
3153
3154#if RK4_ENABLED
3155 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3157 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3158#endif
3159 use pm_kind, only: RKG => RK4
3160 procedure(real(RKG)) :: getFunc
3161 type(ninf_type) , intent(in) :: lb
3162 type(pinf_type) , intent(in) :: ub
3163 type(GK31_type) , intent(in) :: qrule
3164 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3165 real(RKG) :: quadGK
3166 end function
3167#endif
3168
3169#if RK3_ENABLED
3170 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3172 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3173#endif
3174 use pm_kind, only: RKG => RK3
3175 procedure(real(RKG)) :: getFunc
3176 type(ninf_type) , intent(in) :: lb
3177 type(pinf_type) , intent(in) :: ub
3178 type(GK31_type) , intent(in) :: qrule
3179 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3180 real(RKG) :: quadGK
3181 end function
3182#endif
3183
3184#if RK2_ENABLED
3185 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3187 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3188#endif
3189 use pm_kind, only: RKG => RK2
3190 procedure(real(RKG)) :: getFunc
3191 type(ninf_type) , intent(in) :: lb
3192 type(pinf_type) , intent(in) :: ub
3193 type(GK31_type) , intent(in) :: qrule
3194 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3195 real(RKG) :: quadGK
3196 end function
3197#endif
3198
3199#if RK1_ENABLED
3200 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3202 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3203#endif
3204 use pm_kind, only: RKG => RK1
3205 procedure(real(RKG)) :: getFunc
3206 type(ninf_type) , intent(in) :: lb
3207 type(pinf_type) , intent(in) :: ub
3208 type(GK31_type) , intent(in) :: qrule
3209 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3210 real(RKG) :: quadGK
3211 end function
3212#endif
3213
3214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3215
3216 end interface
3217
3218 ! GK41
3219
3220 interface getQuadGK
3221
3222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3223
3224#if RK5_ENABLED
3225 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3228#endif
3229 use pm_kind, only: RKG => RK5
3230 procedure(real(RKG)) :: getFunc
3231 real(RKG) , intent(in) :: lb
3232 real(RKG) , intent(in) :: ub
3233 type(GK41_type) , intent(in) :: qrule
3234 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3235 real(RKG) :: quadGK
3236 end function
3237#endif
3238
3239#if RK4_ENABLED
3240 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3243#endif
3244 use pm_kind, only: RKG => RK4
3245 procedure(real(RKG)) :: getFunc
3246 real(RKG) , intent(in) :: lb
3247 real(RKG) , intent(in) :: ub
3248 type(GK41_type) , intent(in) :: qrule
3249 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3250 real(RKG) :: quadGK
3251 end function
3252#endif
3253
3254#if RK3_ENABLED
3255 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3258#endif
3259 use pm_kind, only: RKG => RK3
3260 procedure(real(RKG)) :: getFunc
3261 real(RKG) , intent(in) :: lb
3262 real(RKG) , intent(in) :: ub
3263 type(GK41_type) , intent(in) :: qrule
3264 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3265 real(RKG) :: quadGK
3266 end function
3267#endif
3268
3269#if RK2_ENABLED
3270 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3273#endif
3274 use pm_kind, only: RKG => RK2
3275 procedure(real(RKG)) :: getFunc
3276 real(RKG) , intent(in) :: lb
3277 real(RKG) , intent(in) :: ub
3278 type(GK41_type) , intent(in) :: qrule
3279 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3280 real(RKG) :: quadGK
3281 end function
3282#endif
3283
3284#if RK1_ENABLED
3285 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3287 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3288#endif
3289 use pm_kind, only: RKG => RK1
3290 procedure(real(RKG)) :: getFunc
3291 real(RKG) , intent(in) :: lb
3292 real(RKG) , intent(in) :: ub
3293 type(GK41_type) , intent(in) :: qrule
3294 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3295 real(RKG) :: quadGK
3296 end function
3297#endif
3298
3299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3300
3301#if RK5_ENABLED
3302 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3305#endif
3306 use pm_kind, only: RKG => RK5
3307 procedure(real(RKG)) :: getFunc
3308 real(RKG) , intent(in) :: lb
3309 type(pinf_type) , intent(in) :: ub
3310 type(GK41_type) , intent(in) :: qrule
3311 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3312 real(RKG) :: quadGK
3313 end function
3314#endif
3315
3316#if RK4_ENABLED
3317 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3320#endif
3321 use pm_kind, only: RKG => RK4
3322 procedure(real(RKG)) :: getFunc
3323 real(RKG) , intent(in) :: lb
3324 type(pinf_type) , intent(in) :: ub
3325 type(GK41_type) , intent(in) :: qrule
3326 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3327 real(RKG) :: quadGK
3328 end function
3329#endif
3330
3331#if RK3_ENABLED
3332 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3335#endif
3336 use pm_kind, only: RKG => RK3
3337 procedure(real(RKG)) :: getFunc
3338 real(RKG) , intent(in) :: lb
3339 type(pinf_type) , intent(in) :: ub
3340 type(GK41_type) , intent(in) :: qrule
3341 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3342 real(RKG) :: quadGK
3343 end function
3344#endif
3345
3346#if RK2_ENABLED
3347 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3350#endif
3351 use pm_kind, only: RKG => RK2
3352 procedure(real(RKG)) :: getFunc
3353 real(RKG) , intent(in) :: lb
3354 type(pinf_type) , intent(in) :: ub
3355 type(GK41_type) , intent(in) :: qrule
3356 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3357 real(RKG) :: quadGK
3358 end function
3359#endif
3360
3361#if RK1_ENABLED
3362 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3364 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3365#endif
3366 use pm_kind, only: RKG => RK1
3367 procedure(real(RKG)) :: getFunc
3368 real(RKG) , intent(in) :: lb
3369 type(pinf_type) , intent(in) :: ub
3370 type(GK41_type) , intent(in) :: qrule
3371 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3372 real(RKG) :: quadGK
3373 end function
3374#endif
3375
3376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3377
3378#if RK5_ENABLED
3379 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3382#endif
3383 use pm_kind, only: RKG => RK5
3384 procedure(real(RKG)) :: getFunc
3385 type(ninf_type) , intent(in) :: lb
3386 real(RKG) , intent(in) :: ub
3387 type(GK41_type) , intent(in) :: qrule
3388 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3389 real(RKG) :: quadGK
3390 end function
3391#endif
3392
3393#if RK4_ENABLED
3394 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3397#endif
3398 use pm_kind, only: RKG => RK4
3399 procedure(real(RKG)) :: getFunc
3400 type(ninf_type) , intent(in) :: lb
3401 real(RKG) , intent(in) :: ub
3402 type(GK41_type) , intent(in) :: qrule
3403 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3404 real(RKG) :: quadGK
3405 end function
3406#endif
3407
3408#if RK3_ENABLED
3409 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3412#endif
3413 use pm_kind, only: RKG => RK3
3414 procedure(real(RKG)) :: getFunc
3415 type(ninf_type) , intent(in) :: lb
3416 real(RKG) , intent(in) :: ub
3417 type(GK41_type) , intent(in) :: qrule
3418 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3419 real(RKG) :: quadGK
3420 end function
3421#endif
3422
3423#if RK2_ENABLED
3424 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3427#endif
3428 use pm_kind, only: RKG => RK2
3429 procedure(real(RKG)) :: getFunc
3430 type(ninf_type) , intent(in) :: lb
3431 real(RKG) , intent(in) :: ub
3432 type(GK41_type) , intent(in) :: qrule
3433 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3434 real(RKG) :: quadGK
3435 end function
3436#endif
3437
3438#if RK1_ENABLED
3439 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3441 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3442#endif
3443 use pm_kind, only: RKG => RK1
3444 procedure(real(RKG)) :: getFunc
3445 type(ninf_type) , intent(in) :: lb
3446 real(RKG) , intent(in) :: ub
3447 type(GK41_type) , intent(in) :: qrule
3448 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3449 real(RKG) :: quadGK
3450 end function
3451#endif
3452
3453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3454
3455#if RK5_ENABLED
3456 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3459#endif
3460 use pm_kind, only: RKG => RK5
3461 procedure(real(RKG)) :: getFunc
3462 type(ninf_type) , intent(in) :: lb
3463 type(pinf_type) , intent(in) :: ub
3464 type(GK41_type) , intent(in) :: qrule
3465 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3466 real(RKG) :: quadGK
3467 end function
3468#endif
3469
3470#if RK4_ENABLED
3471 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3474#endif
3475 use pm_kind, only: RKG => RK4
3476 procedure(real(RKG)) :: getFunc
3477 type(ninf_type) , intent(in) :: lb
3478 type(pinf_type) , intent(in) :: ub
3479 type(GK41_type) , intent(in) :: qrule
3480 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3481 real(RKG) :: quadGK
3482 end function
3483#endif
3484
3485#if RK3_ENABLED
3486 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3489#endif
3490 use pm_kind, only: RKG => RK3
3491 procedure(real(RKG)) :: getFunc
3492 type(ninf_type) , intent(in) :: lb
3493 type(pinf_type) , intent(in) :: ub
3494 type(GK41_type) , intent(in) :: qrule
3495 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3496 real(RKG) :: quadGK
3497 end function
3498#endif
3499
3500#if RK2_ENABLED
3501 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3504#endif
3505 use pm_kind, only: RKG => RK2
3506 procedure(real(RKG)) :: getFunc
3507 type(ninf_type) , intent(in) :: lb
3508 type(pinf_type) , intent(in) :: ub
3509 type(GK41_type) , intent(in) :: qrule
3510 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3511 real(RKG) :: quadGK
3512 end function
3513#endif
3514
3515#if RK1_ENABLED
3516 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3518 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3519#endif
3520 use pm_kind, only: RKG => RK1
3521 procedure(real(RKG)) :: getFunc
3522 type(ninf_type) , intent(in) :: lb
3523 type(pinf_type) , intent(in) :: ub
3524 type(GK41_type) , intent(in) :: qrule
3525 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3526 real(RKG) :: quadGK
3527 end function
3528#endif
3529
3530 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3531
3532 end interface
3533
3534 ! GK51
3535
3536 interface getQuadGK
3537
3538 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3539
3540#if RK5_ENABLED
3541 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3544#endif
3545 use pm_kind, only: RKG => RK5
3546 procedure(real(RKG)) :: getFunc
3547 real(RKG) , intent(in) :: lb
3548 real(RKG) , intent(in) :: ub
3549 type(GK51_type) , intent(in) :: qrule
3550 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3551 real(RKG) :: quadGK
3552 end function
3553#endif
3554
3555#if RK4_ENABLED
3556 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3559#endif
3560 use pm_kind, only: RKG => RK4
3561 procedure(real(RKG)) :: getFunc
3562 real(RKG) , intent(in) :: lb
3563 real(RKG) , intent(in) :: ub
3564 type(GK51_type) , intent(in) :: qrule
3565 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3566 real(RKG) :: quadGK
3567 end function
3568#endif
3569
3570#if RK3_ENABLED
3571 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3574#endif
3575 use pm_kind, only: RKG => RK3
3576 procedure(real(RKG)) :: getFunc
3577 real(RKG) , intent(in) :: lb
3578 real(RKG) , intent(in) :: ub
3579 type(GK51_type) , intent(in) :: qrule
3580 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3581 real(RKG) :: quadGK
3582 end function
3583#endif
3584
3585#if RK2_ENABLED
3586 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3589#endif
3590 use pm_kind, only: RKG => RK2
3591 procedure(real(RKG)) :: getFunc
3592 real(RKG) , intent(in) :: lb
3593 real(RKG) , intent(in) :: ub
3594 type(GK51_type) , intent(in) :: qrule
3595 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3596 real(RKG) :: quadGK
3597 end function
3598#endif
3599
3600#if RK1_ENABLED
3601 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3603 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3604#endif
3605 use pm_kind, only: RKG => RK1
3606 procedure(real(RKG)) :: getFunc
3607 real(RKG) , intent(in) :: lb
3608 real(RKG) , intent(in) :: ub
3609 type(GK51_type) , intent(in) :: qrule
3610 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3611 real(RKG) :: quadGK
3612 end function
3613#endif
3614
3615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3616
3617#if RK5_ENABLED
3618 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3621#endif
3622 use pm_kind, only: RKG => RK5
3623 procedure(real(RKG)) :: getFunc
3624 real(RKG) , intent(in) :: lb
3625 type(pinf_type) , intent(in) :: ub
3626 type(GK51_type) , intent(in) :: qrule
3627 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3628 real(RKG) :: quadGK
3629 end function
3630#endif
3631
3632#if RK4_ENABLED
3633 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3636#endif
3637 use pm_kind, only: RKG => RK4
3638 procedure(real(RKG)) :: getFunc
3639 real(RKG) , intent(in) :: lb
3640 type(pinf_type) , intent(in) :: ub
3641 type(GK51_type) , intent(in) :: qrule
3642 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3643 real(RKG) :: quadGK
3644 end function
3645#endif
3646
3647#if RK3_ENABLED
3648 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3651#endif
3652 use pm_kind, only: RKG => RK3
3653 procedure(real(RKG)) :: getFunc
3654 real(RKG) , intent(in) :: lb
3655 type(pinf_type) , intent(in) :: ub
3656 type(GK51_type) , intent(in) :: qrule
3657 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3658 real(RKG) :: quadGK
3659 end function
3660#endif
3661
3662#if RK2_ENABLED
3663 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3666#endif
3667 use pm_kind, only: RKG => RK2
3668 procedure(real(RKG)) :: getFunc
3669 real(RKG) , intent(in) :: lb
3670 type(pinf_type) , intent(in) :: ub
3671 type(GK51_type) , intent(in) :: qrule
3672 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3673 real(RKG) :: quadGK
3674 end function
3675#endif
3676
3677#if RK1_ENABLED
3678 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3680 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3681#endif
3682 use pm_kind, only: RKG => RK1
3683 procedure(real(RKG)) :: getFunc
3684 real(RKG) , intent(in) :: lb
3685 type(pinf_type) , intent(in) :: ub
3686 type(GK51_type) , intent(in) :: qrule
3687 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3688 real(RKG) :: quadGK
3689 end function
3690#endif
3691
3692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3693
3694#if RK5_ENABLED
3695 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3698#endif
3699 use pm_kind, only: RKG => RK5
3700 procedure(real(RKG)) :: getFunc
3701 type(ninf_type) , intent(in) :: lb
3702 real(RKG) , intent(in) :: ub
3703 type(GK51_type) , intent(in) :: qrule
3704 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3705 real(RKG) :: quadGK
3706 end function
3707#endif
3708
3709#if RK4_ENABLED
3710 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3713#endif
3714 use pm_kind, only: RKG => RK4
3715 procedure(real(RKG)) :: getFunc
3716 type(ninf_type) , intent(in) :: lb
3717 real(RKG) , intent(in) :: ub
3718 type(GK51_type) , intent(in) :: qrule
3719 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3720 real(RKG) :: quadGK
3721 end function
3722#endif
3723
3724#if RK3_ENABLED
3725 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3728#endif
3729 use pm_kind, only: RKG => RK3
3730 procedure(real(RKG)) :: getFunc
3731 type(ninf_type) , intent(in) :: lb
3732 real(RKG) , intent(in) :: ub
3733 type(GK51_type) , intent(in) :: qrule
3734 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3735 real(RKG) :: quadGK
3736 end function
3737#endif
3738
3739#if RK2_ENABLED
3740 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3743#endif
3744 use pm_kind, only: RKG => RK2
3745 procedure(real(RKG)) :: getFunc
3746 type(ninf_type) , intent(in) :: lb
3747 real(RKG) , intent(in) :: ub
3748 type(GK51_type) , intent(in) :: qrule
3749 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3750 real(RKG) :: quadGK
3751 end function
3752#endif
3753
3754#if RK1_ENABLED
3755 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3757 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3758#endif
3759 use pm_kind, only: RKG => RK1
3760 procedure(real(RKG)) :: getFunc
3761 type(ninf_type) , intent(in) :: lb
3762 real(RKG) , intent(in) :: ub
3763 type(GK51_type) , intent(in) :: qrule
3764 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3765 real(RKG) :: quadGK
3766 end function
3767#endif
3768
3769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3770
3771#if RK5_ENABLED
3772 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3775#endif
3776 use pm_kind, only: RKG => RK5
3777 procedure(real(RKG)) :: getFunc
3778 type(ninf_type) , intent(in) :: lb
3779 type(pinf_type) , intent(in) :: ub
3780 type(GK51_type) , intent(in) :: qrule
3781 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3782 real(RKG) :: quadGK
3783 end function
3784#endif
3785
3786#if RK4_ENABLED
3787 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3790#endif
3791 use pm_kind, only: RKG => RK4
3792 procedure(real(RKG)) :: getFunc
3793 type(ninf_type) , intent(in) :: lb
3794 type(pinf_type) , intent(in) :: ub
3795 type(GK51_type) , intent(in) :: qrule
3796 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3797 real(RKG) :: quadGK
3798 end function
3799#endif
3800
3801#if RK3_ENABLED
3802 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3805#endif
3806 use pm_kind, only: RKG => RK3
3807 procedure(real(RKG)) :: getFunc
3808 type(ninf_type) , intent(in) :: lb
3809 type(pinf_type) , intent(in) :: ub
3810 type(GK51_type) , intent(in) :: qrule
3811 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3812 real(RKG) :: quadGK
3813 end function
3814#endif
3815
3816#if RK2_ENABLED
3817 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3820#endif
3821 use pm_kind, only: RKG => RK2
3822 procedure(real(RKG)) :: getFunc
3823 type(ninf_type) , intent(in) :: lb
3824 type(pinf_type) , intent(in) :: ub
3825 type(GK51_type) , intent(in) :: qrule
3826 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3827 real(RKG) :: quadGK
3828 end function
3829#endif
3830
3831#if RK1_ENABLED
3832 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3834 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3835#endif
3836 use pm_kind, only: RKG => RK1
3837 procedure(real(RKG)) :: getFunc
3838 type(ninf_type) , intent(in) :: lb
3839 type(pinf_type) , intent(in) :: ub
3840 type(GK51_type) , intent(in) :: qrule
3841 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3842 real(RKG) :: quadGK
3843 end function
3844#endif
3845
3846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3847
3848 end interface
3849
3850 ! GK61
3851
3852 interface getQuadGK
3853
3854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3855
3856#if RK5_ENABLED
3857 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3860#endif
3861 use pm_kind, only: RKG => RK5
3862 procedure(real(RKG)) :: getFunc
3863 real(RKG) , intent(in) :: lb
3864 real(RKG) , intent(in) :: ub
3865 type(GK61_type) , intent(in) :: qrule
3866 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3867 real(RKG) :: quadGK
3868 end function
3869#endif
3870
3871#if RK4_ENABLED
3872 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3875#endif
3876 use pm_kind, only: RKG => RK4
3877 procedure(real(RKG)) :: getFunc
3878 real(RKG) , intent(in) :: lb
3879 real(RKG) , intent(in) :: ub
3880 type(GK61_type) , intent(in) :: qrule
3881 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3882 real(RKG) :: quadGK
3883 end function
3884#endif
3885
3886#if RK3_ENABLED
3887 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3890#endif
3891 use pm_kind, only: RKG => RK3
3892 procedure(real(RKG)) :: getFunc
3893 real(RKG) , intent(in) :: lb
3894 real(RKG) , intent(in) :: ub
3895 type(GK61_type) , intent(in) :: qrule
3896 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3897 real(RKG) :: quadGK
3898 end function
3899#endif
3900
3901#if RK2_ENABLED
3902 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3905#endif
3906 use pm_kind, only: RKG => RK2
3907 procedure(real(RKG)) :: getFunc
3908 real(RKG) , intent(in) :: lb
3909 real(RKG) , intent(in) :: ub
3910 type(GK61_type) , intent(in) :: qrule
3911 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3912 real(RKG) :: quadGK
3913 end function
3914#endif
3915
3916#if RK1_ENABLED
3917 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3919 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3920#endif
3921 use pm_kind, only: RKG => RK1
3922 procedure(real(RKG)) :: getFunc
3923 real(RKG) , intent(in) :: lb
3924 real(RKG) , intent(in) :: ub
3925 type(GK61_type) , intent(in) :: qrule
3926 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3927 real(RKG) :: quadGK
3928 end function
3929#endif
3930
3931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3932
3933#if RK5_ENABLED
3934 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3937#endif
3938 use pm_kind, only: RKG => RK5
3939 procedure(real(RKG)) :: getFunc
3940 real(RKG) , intent(in) :: lb
3941 type(pinf_type) , intent(in) :: ub
3942 type(GK61_type) , intent(in) :: qrule
3943 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3944 real(RKG) :: quadGK
3945 end function
3946#endif
3947
3948#if RK4_ENABLED
3949 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3952#endif
3953 use pm_kind, only: RKG => RK4
3954 procedure(real(RKG)) :: getFunc
3955 real(RKG) , intent(in) :: lb
3956 type(pinf_type) , intent(in) :: ub
3957 type(GK61_type) , intent(in) :: qrule
3958 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3959 real(RKG) :: quadGK
3960 end function
3961#endif
3962
3963#if RK3_ENABLED
3964 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3967#endif
3968 use pm_kind, only: RKG => RK3
3969 procedure(real(RKG)) :: getFunc
3970 real(RKG) , intent(in) :: lb
3971 type(pinf_type) , intent(in) :: ub
3972 type(GK61_type) , intent(in) :: qrule
3973 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3974 real(RKG) :: quadGK
3975 end function
3976#endif
3977
3978#if RK2_ENABLED
3979 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3982#endif
3983 use pm_kind, only: RKG => RK2
3984 procedure(real(RKG)) :: getFunc
3985 real(RKG) , intent(in) :: lb
3986 type(pinf_type) , intent(in) :: ub
3987 type(GK61_type) , intent(in) :: qrule
3988 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
3989 real(RKG) :: quadGK
3990 end function
3991#endif
3992
3993#if RK1_ENABLED
3994 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3996 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3997#endif
3998 use pm_kind, only: RKG => RK1
3999 procedure(real(RKG)) :: getFunc
4000 real(RKG) , intent(in) :: lb
4001 type(pinf_type) , intent(in) :: ub
4002 type(GK61_type) , intent(in) :: qrule
4003 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4004 real(RKG) :: quadGK
4005 end function
4006#endif
4007
4008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4009
4010#if RK5_ENABLED
4011 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
4014#endif
4015 use pm_kind, only: RKG => RK5
4016 procedure(real(RKG)) :: getFunc
4017 type(ninf_type) , intent(in) :: lb
4018 real(RKG) , intent(in) :: ub
4019 type(GK61_type) , intent(in) :: qrule
4020 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4021 real(RKG) :: quadGK
4022 end function
4023#endif
4024
4025#if RK4_ENABLED
4026 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
4029#endif
4030 use pm_kind, only: RKG => RK4
4031 procedure(real(RKG)) :: getFunc
4032 type(ninf_type) , intent(in) :: lb
4033 real(RKG) , intent(in) :: ub
4034 type(GK61_type) , intent(in) :: qrule
4035 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4036 real(RKG) :: quadGK
4037 end function
4038#endif
4039
4040#if RK3_ENABLED
4041 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
4044#endif
4045 use pm_kind, only: RKG => RK3
4046 procedure(real(RKG)) :: getFunc
4047 type(ninf_type) , intent(in) :: lb
4048 real(RKG) , intent(in) :: ub
4049 type(GK61_type) , intent(in) :: qrule
4050 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4051 real(RKG) :: quadGK
4052 end function
4053#endif
4054
4055#if RK2_ENABLED
4056 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
4059#endif
4060 use pm_kind, only: RKG => RK2
4061 procedure(real(RKG)) :: getFunc
4062 type(ninf_type) , intent(in) :: lb
4063 real(RKG) , intent(in) :: ub
4064 type(GK61_type) , intent(in) :: qrule
4065 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4066 real(RKG) :: quadGK
4067 end function
4068#endif
4069
4070#if RK1_ENABLED
4071 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4073 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4074#endif
4075 use pm_kind, only: RKG => RK1
4076 procedure(real(RKG)) :: getFunc
4077 type(ninf_type) , intent(in) :: lb
4078 real(RKG) , intent(in) :: ub
4079 type(GK61_type) , intent(in) :: qrule
4080 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4081 real(RKG) :: quadGK
4082 end function
4083#endif
4084
4085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4086
4087#if RK5_ENABLED
4088 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4091#endif
4092 use pm_kind, only: RKG => RK5
4093 procedure(real(RKG)) :: getFunc
4094 type(ninf_type) , intent(in) :: lb
4095 type(pinf_type) , intent(in) :: ub
4096 type(GK61_type) , intent(in) :: qrule
4097 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4098 real(RKG) :: quadGK
4099 end function
4100#endif
4101
4102#if RK4_ENABLED
4103 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4106#endif
4107 use pm_kind, only: RKG => RK4
4108 procedure(real(RKG)) :: getFunc
4109 type(ninf_type) , intent(in) :: lb
4110 type(pinf_type) , intent(in) :: ub
4111 type(GK61_type) , intent(in) :: qrule
4112 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4113 real(RKG) :: quadGK
4114 end function
4115#endif
4116
4117#if RK3_ENABLED
4118 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4121#endif
4122 use pm_kind, only: RKG => RK3
4123 procedure(real(RKG)) :: getFunc
4124 type(ninf_type) , intent(in) :: lb
4125 type(pinf_type) , intent(in) :: ub
4126 type(GK61_type) , intent(in) :: qrule
4127 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4128 real(RKG) :: quadGK
4129 end function
4130#endif
4131
4132#if RK2_ENABLED
4133 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4136#endif
4137 use pm_kind, only: RKG => RK2
4138 procedure(real(RKG)) :: getFunc
4139 type(ninf_type) , intent(in) :: lb
4140 type(pinf_type) , intent(in) :: ub
4141 type(GK61_type) , intent(in) :: qrule
4142 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4143 real(RKG) :: quadGK
4144 end function
4145#endif
4146
4147#if RK1_ENABLED
4148 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4150 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4151#endif
4152 use pm_kind, only: RKG => RK1
4153 procedure(real(RKG)) :: getFunc
4154 type(ninf_type) , intent(in) :: lb
4155 type(pinf_type) , intent(in) :: ub
4156 type(GK61_type) , intent(in) :: qrule
4157 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4158 real(RKG) :: quadGK
4159 end function
4160#endif
4161
4162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4163
4164 end interface
4165
4166 ! GKXX
4167
4168 interface getQuadGK
4169
4170 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4171
4172#if RK5_ENABLED
4173 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4176#endif
4177 use pm_kind, only: RKG => RK5
4178 procedure(real(RKG)) :: getFunc
4179 real(RKG) , intent(in) :: lb
4180 real(RKG) , intent(in) :: ub
4181 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4182 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4183 real(RKG) :: quadGK
4184 end function
4185#endif
4186
4187#if RK4_ENABLED
4188 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4191#endif
4192 use pm_kind, only: RKG => RK4
4193 procedure(real(RKG)) :: getFunc
4194 real(RKG) , intent(in) :: lb
4195 real(RKG) , intent(in) :: ub
4196 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4197 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4198 real(RKG) :: quadGK
4199 end function
4200#endif
4201
4202#if RK3_ENABLED
4203 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4206#endif
4207 use pm_kind, only: RKG => RK3
4208 procedure(real(RKG)) :: getFunc
4209 real(RKG) , intent(in) :: lb
4210 real(RKG) , intent(in) :: ub
4211 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4212 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4213 real(RKG) :: quadGK
4214 end function
4215#endif
4216
4217#if RK2_ENABLED
4218 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4221#endif
4222 use pm_kind, only: RKG => RK2
4223 procedure(real(RKG)) :: getFunc
4224 real(RKG) , intent(in) :: lb
4225 real(RKG) , intent(in) :: ub
4226 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4227 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4228 real(RKG) :: quadGK
4229 end function
4230#endif
4231
4232#if RK1_ENABLED
4233 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4235 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4236#endif
4237 use pm_kind, only: RKG => RK1
4238 procedure(real(RKG)) :: getFunc
4239 real(RKG) , intent(in) :: lb
4240 real(RKG) , intent(in) :: ub
4241 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4242 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4243 real(RKG) :: quadGK
4244 end function
4245#endif
4246
4247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4248
4249#if RK5_ENABLED
4250 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4253#endif
4254 use pm_kind, only: RKG => RK5
4255 procedure(real(RKG)) :: getFunc
4256 real(RKG) , intent(in) :: lb
4257 type(pinf_type) , intent(in) :: ub
4258 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4259 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4260 real(RKG) :: quadGK
4261 end function
4262#endif
4263
4264#if RK4_ENABLED
4265 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4268#endif
4269 use pm_kind, only: RKG => RK4
4270 procedure(real(RKG)) :: getFunc
4271 real(RKG) , intent(in) :: lb
4272 type(pinf_type) , intent(in) :: ub
4273 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4274 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4275 real(RKG) :: quadGK
4276 end function
4277#endif
4278
4279#if RK3_ENABLED
4280 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4283#endif
4284 use pm_kind, only: RKG => RK3
4285 procedure(real(RKG)) :: getFunc
4286 real(RKG) , intent(in) :: lb
4287 type(pinf_type) , intent(in) :: ub
4288 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4289 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4290 real(RKG) :: quadGK
4291 end function
4292#endif
4293
4294#if RK2_ENABLED
4295 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4298#endif
4299 use pm_kind, only: RKG => RK2
4300 procedure(real(RKG)) :: getFunc
4301 real(RKG) , intent(in) :: lb
4302 type(pinf_type) , intent(in) :: ub
4303 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4304 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4305 real(RKG) :: quadGK
4306 end function
4307#endif
4308
4309#if RK1_ENABLED
4310 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4312 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4313#endif
4314 use pm_kind, only: RKG => RK1
4315 procedure(real(RKG)) :: getFunc
4316 real(RKG) , intent(in) :: lb
4317 type(pinf_type) , intent(in) :: ub
4318 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4319 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4320 real(RKG) :: quadGK
4321 end function
4322#endif
4323
4324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4325
4326#if RK5_ENABLED
4327 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4330#endif
4331 use pm_kind, only: RKG => RK5
4332 procedure(real(RKG)) :: getFunc
4333 type(ninf_type) , intent(in) :: lb
4334 real(RKG) , intent(in) :: ub
4335 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4336 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4337 real(RKG) :: quadGK
4338 end function
4339#endif
4340
4341#if RK4_ENABLED
4342 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4345#endif
4346 use pm_kind, only: RKG => RK4
4347 procedure(real(RKG)) :: getFunc
4348 type(ninf_type) , intent(in) :: lb
4349 real(RKG) , intent(in) :: ub
4350 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4351 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4352 real(RKG) :: quadGK
4353 end function
4354#endif
4355
4356#if RK3_ENABLED
4357 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4360#endif
4361 use pm_kind, only: RKG => RK3
4362 procedure(real(RKG)) :: getFunc
4363 type(ninf_type) , intent(in) :: lb
4364 real(RKG) , intent(in) :: ub
4365 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4366 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4367 real(RKG) :: quadGK
4368 end function
4369#endif
4370
4371#if RK2_ENABLED
4372 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4375#endif
4376 use pm_kind, only: RKG => RK2
4377 procedure(real(RKG)) :: getFunc
4378 type(ninf_type) , intent(in) :: lb
4379 real(RKG) , intent(in) :: ub
4380 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4381 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4382 real(RKG) :: quadGK
4383 end function
4384#endif
4385
4386#if RK1_ENABLED
4387 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4389 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4390#endif
4391 use pm_kind, only: RKG => RK1
4392 procedure(real(RKG)) :: getFunc
4393 type(ninf_type) , intent(in) :: lb
4394 real(RKG) , intent(in) :: ub
4395 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4396 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4397 real(RKG) :: quadGK
4398 end function
4399#endif
4400
4401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4402
4403#if RK5_ENABLED
4404 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4407#endif
4408 use pm_kind, only: RKG => RK5
4409 procedure(real(RKG)) :: getFunc
4410 type(ninf_type) , intent(in) :: lb
4411 type(pinf_type) , intent(in) :: ub
4412 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4413 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4414 real(RKG) :: quadGK
4415 end function
4416#endif
4417
4418#if RK4_ENABLED
4419 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4422#endif
4423 use pm_kind, only: RKG => RK4
4424 procedure(real(RKG)) :: getFunc
4425 type(ninf_type) , intent(in) :: lb
4426 type(pinf_type) , intent(in) :: ub
4427 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4428 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4429 real(RKG) :: quadGK
4430 end function
4431#endif
4432
4433#if RK3_ENABLED
4434 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4437#endif
4438 use pm_kind, only: RKG => RK3
4439 procedure(real(RKG)) :: getFunc
4440 type(ninf_type) , intent(in) :: lb
4441 type(pinf_type) , intent(in) :: ub
4442 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4443 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4444 real(RKG) :: quadGK
4445 end function
4446#endif
4447
4448#if RK2_ENABLED
4449 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4452#endif
4453 use pm_kind, only: RKG => RK2
4454 procedure(real(RKG)) :: getFunc
4455 type(ninf_type) , intent(in) :: lb
4456 type(pinf_type) , intent(in) :: ub
4457 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4458 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4459 real(RKG) :: quadGK
4460 end function
4461#endif
4462
4463#if RK1_ENABLED
4464 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4466 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4467#endif
4468 use pm_kind, only: RKG => RK1
4469 procedure(real(RKG)) :: getFunc
4470 type(ninf_type) , intent(in) :: lb
4471 type(pinf_type) , intent(in) :: ub
4472 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4473 real(RKG) , intent(out) :: abserr, intAbsFunc, smoothness
4474 real(RKG) :: quadGK
4475 end function
4476#endif
4477
4478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4479
4480 end interface
4481
4482!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4483
4501 integer(IK) , parameter :: MAXLEN_EPSTAB = 50_IK
4502
4530 type :: weps_type
4531 end type
4532
4551 type(weps_type) , parameter :: weps = weps_type()
4552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4553 !DIR$ ATTRIBUTES DLLEXPORT :: weps
4554#endif
4555
4556!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4557
4599 interface setSeqLimEps
4600
4601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4602
4603#if RK5_ENABLED
4604 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4606 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4607#endif
4608 use pm_kind, only: RKG => RK5
4609 integer(IK) , intent(inout) :: inew, ical
4610 real(RKG) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4611 real(RKG) , intent(out) :: seqlim, abserr
4612 end subroutine
4613#endif
4614
4615#if RK4_ENABLED
4616 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4618 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4619#endif
4620 use pm_kind, only: RKG => RK4
4621 integer(IK) , intent(inout) :: inew, ical
4622 real(RKG) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4623 real(RKG) , intent(out) :: seqlim, abserr
4624 end subroutine
4625#endif
4626
4627#if RK3_ENABLED
4628 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4630 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4631#endif
4632 use pm_kind, only: RKG => RK3
4633 integer(IK) , intent(inout) :: inew, ical
4634 real(RKG) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4635 real(RKG) , intent(out) :: seqlim, abserr
4636 end subroutine
4637#endif
4638
4639#if RK2_ENABLED
4640 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4642 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4643#endif
4644 use pm_kind, only: RKG => RK2
4645 integer(IK) , intent(inout) :: inew, ical
4646 real(RKG) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4647 real(RKG) , intent(out) :: seqlim, abserr
4648 end subroutine
4649#endif
4650
4651#if RK1_ENABLED
4652 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4654 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4655#endif
4656 use pm_kind, only: RKG => RK1
4657 integer(IK) , intent(inout) :: inew, ical
4658 real(RKG) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4659 real(RKG) , intent(out) :: seqlim, abserr
4660 end subroutine
4661#endif
4662
4663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4664
4665 end interface
4666
4667!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4668
4712 interface setErrSorted
4713
4714 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4715
4716#if RK5_ENABLED
4717 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4719 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4720#endif
4721 use pm_kind, only: RKG => RK5
4722 integer(IK) , intent(in) :: nintmax
4723 real(RKG) , intent(in) :: sinfoErr(:)
4724 integer(IK) , intent(inout) , contiguous :: sindex(:)
4725 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4726 real(RKG) , intent(out) :: maxErrVal
4727 end subroutine
4728#endif
4729
4730#if RK4_ENABLED
4731 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4733 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4734#endif
4735 use pm_kind, only: RKG => RK4
4736 integer(IK) , intent(in) :: nintmax
4737 real(RKG) , intent(in) :: sinfoErr(:)
4738 integer(IK) , intent(inout) , contiguous :: sindex(:)
4739 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4740 real(RKG) , intent(out) :: maxErrVal
4741 end subroutine
4742#endif
4743
4744#if RK3_ENABLED
4745 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4747 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4748#endif
4749 use pm_kind, only: RKG => RK3
4750 integer(IK) , intent(in) :: nintmax
4751 real(RKG) , intent(in) :: sinfoErr(:)
4752 integer(IK) , intent(inout) , contiguous :: sindex(:)
4753 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4754 real(RKG) , intent(out) :: maxErrVal
4755 end subroutine
4756#endif
4757
4758#if RK2_ENABLED
4759 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4761 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4762#endif
4763 use pm_kind, only: RKG => RK2
4764 integer(IK) , intent(in) :: nintmax
4765 real(RKG) , intent(in) :: sinfoErr(:)
4766 integer(IK) , intent(inout) , contiguous :: sindex(:)
4767 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4768 real(RKG) , intent(out) :: maxErrVal
4769 end subroutine
4770#endif
4771
4772#if RK1_ENABLED
4773 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4775 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4776#endif
4777 use pm_kind, only: RKG => RK1
4778 integer(IK) , intent(in) :: nintmax
4779 real(RKG) , intent(in) :: sinfoErr(:)
4780 integer(IK) , intent(inout) , contiguous :: sindex(:)
4781 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4782 real(RKG) , intent(out) :: maxErrVal
4783 end subroutine
4784#endif
4785
4786 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4787
4788 end interface
4789
4790!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4791
4838 interface setChebExpan
4839
4840 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4841
4842#if RK5_ENABLED
4843 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4845 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4846#endif
4847 use pm_kind, only: RKG => RK5
4848 real(RKG) , intent(inout) :: func(25)
4849 real(RKG) , intent(out) :: cheb12(13), cheb24(25)
4850 end subroutine
4851#endif
4852
4853#if RK4_ENABLED
4854 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4856 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4857#endif
4858 use pm_kind, only: RKG => RK4
4859 real(RKG) , intent(inout) :: func(25)
4860 real(RKG) , intent(out) :: cheb12(13), cheb24(25)
4861 end subroutine
4862#endif
4863
4864#if RK3_ENABLED
4865 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4867 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4868#endif
4869 use pm_kind, only: RKG => RK3
4870 real(RKG) , intent(inout) :: func(25)
4871 real(RKG) , intent(out) :: cheb12(13), cheb24(25)
4872 end subroutine
4873#endif
4874
4875#if RK2_ENABLED
4876 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4878 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4879#endif
4880 use pm_kind, only: RKG => RK2
4881 real(RKG) , intent(inout) :: func(25)
4882 real(RKG) , intent(out) :: cheb12(13), cheb24(25)
4883 end subroutine
4884#endif
4885
4886#if RK1_ENABLED
4887 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4889 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4890#endif
4891 use pm_kind, only: RKG => RK1
4892 real(RKG) , intent(inout) :: func(25)
4893 real(RKG) , intent(out) :: cheb12(13), cheb24(25)
4894 end subroutine
4895#endif
4896
4897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4898
4899 end interface
4900
4901!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4902
4989 interface isFailedQuad
4990
4991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4992
4993#if RK5_ENABLED
4994 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4996 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4997#endif
4998 use pm_kind, only: RKG => RK5
4999 procedure(real(RKG)) :: getFunc
5000 real(RKG) , intent(in) :: lb, ub
5001 real(RKG) , intent(out) :: integral
5002 real(RKG) , intent(out) , optional :: abserr
5003 real(RKG) , intent(in) , optional :: abstol
5004 real(RKG) , intent(in) , optional :: reltol
5005 integer(IK) , intent(out) , optional :: neval
5006 integer(IK) , intent(out) , optional :: nint
5007 character(*, SK) , intent(out) , optional :: msg
5008 logical(LK) :: failed
5009 end function
5010#endif
5011
5012#if RK4_ENABLED
5013 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5015 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
5016#endif
5017 use pm_kind, only: RKG => RK4
5018 procedure(real(RKG)) :: getFunc
5019 real(RKG) , intent(in) :: lb, ub
5020 real(RKG) , intent(out) :: integral
5021 real(RKG) , intent(out) , optional :: abserr
5022 real(RKG) , intent(in) , optional :: abstol
5023 real(RKG) , intent(in) , optional :: reltol
5024 integer(IK) , intent(out) , optional :: neval
5025 integer(IK) , intent(out) , optional :: nint
5026 character(*, SK) , intent(out) , optional :: msg
5027 logical(LK) :: failed
5028 end function
5029#endif
5030
5031#if RK3_ENABLED
5032 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5034 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
5035#endif
5036 use pm_kind, only: RKG => RK3
5037 procedure(real(RKG)) :: getFunc
5038 real(RKG) , intent(in) :: lb, ub
5039 real(RKG) , intent(out) :: integral
5040 real(RKG) , intent(out) , optional :: abserr
5041 real(RKG) , intent(in) , optional :: abstol
5042 real(RKG) , intent(in) , optional :: reltol
5043 integer(IK) , intent(out) , optional :: neval
5044 integer(IK) , intent(out) , optional :: nint
5045 character(*, SK) , intent(out) , optional :: msg
5046 logical(LK) :: failed
5047 end function
5048#endif
5049
5050#if RK2_ENABLED
5051 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5053 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
5054#endif
5055 use pm_kind, only: RKG => RK2
5056 procedure(real(RKG)) :: getFunc
5057 real(RKG) , intent(in) :: lb, ub
5058 real(RKG) , intent(out) :: integral
5059 real(RKG) , intent(out) , optional :: abserr
5060 real(RKG) , intent(in) , optional :: abstol
5061 real(RKG) , intent(in) , optional :: reltol
5062 integer(IK) , intent(out) , optional :: neval
5063 integer(IK) , intent(out) , optional :: nint
5064 character(*, SK) , intent(out) , optional :: msg
5065 logical(LK) :: failed
5066 end function
5067#endif
5068
5069#if RK1_ENABLED
5070 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5072 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5073#endif
5074 use pm_kind, only: RKG => RK1
5075 procedure(real(RKG)) :: getFunc
5076 real(RKG) , intent(in) :: lb, ub
5077 real(RKG) , intent(out) :: integral
5078 real(RKG) , intent(out) , optional :: abserr
5079 real(RKG) , intent(in) , optional :: abstol
5080 real(RKG) , intent(in) , optional :: reltol
5081 integer(IK) , intent(out) , optional :: neval
5082 integer(IK) , intent(out) , optional :: nint
5083 character(*, SK) , intent(out) , optional :: msg
5084 logical(LK) :: failed
5085 end function
5086#endif
5087
5088 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5089
5090#if RK5_ENABLED
5091 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5093 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5094#endif
5095 use pm_kind, only: RKG => RK5
5096 procedure(real(RKG)) :: getFunc
5097 real(RKG) , intent(in) :: lb, ub
5098 real(RKG) , intent(out) :: integral
5099 type(weps_type) , intent(in) :: help
5100 real(RKG) , intent(out) , optional :: abserr
5101 real(RKG) , intent(in) , optional :: abstol
5102 real(RKG) , intent(in) , optional :: reltol
5103 integer(IK) , intent(out) , optional :: neval
5104 integer(IK) , intent(out) , optional :: nint
5105 character(*, SK) , intent(out) , optional :: msg
5106 logical(LK) :: failed
5107 end function
5108#endif
5109
5110#if RK4_ENABLED
5111 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5113 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5114#endif
5115 use pm_kind, only: RKG => RK4
5116 procedure(real(RKG)) :: getFunc
5117 real(RKG) , intent(in) :: lb, ub
5118 real(RKG) , intent(out) :: integral
5119 type(weps_type) , intent(in) :: help
5120 real(RKG) , intent(out) , optional :: abserr
5121 real(RKG) , intent(in) , optional :: abstol
5122 real(RKG) , intent(in) , optional :: reltol
5123 integer(IK) , intent(out) , optional :: neval
5124 integer(IK) , intent(out) , optional :: nint
5125 character(*, SK) , intent(out) , optional :: msg
5126 logical(LK) :: failed
5127 end function
5128#endif
5129
5130#if RK3_ENABLED
5131 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5133 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5134#endif
5135 use pm_kind, only: RKG => RK3
5136 procedure(real(RKG)) :: getFunc
5137 real(RKG) , intent(in) :: lb, ub
5138 real(RKG) , intent(out) :: integral
5139 type(weps_type) , intent(in) :: help
5140 real(RKG) , intent(out) , optional :: abserr
5141 real(RKG) , intent(in) , optional :: abstol
5142 real(RKG) , intent(in) , optional :: reltol
5143 integer(IK) , intent(out) , optional :: neval
5144 integer(IK) , intent(out) , optional :: nint
5145 character(*, SK) , intent(out) , optional :: msg
5146 logical(LK) :: failed
5147 end function
5148#endif
5149
5150#if RK2_ENABLED
5151 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5153 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5154#endif
5155 use pm_kind, only: RKG => RK2
5156 procedure(real(RKG)) :: getFunc
5157 real(RKG) , intent(in) :: lb, ub
5158 real(RKG) , intent(out) :: integral
5159 type(weps_type) , intent(in) :: help
5160 real(RKG) , intent(out) , optional :: abserr
5161 real(RKG) , intent(in) , optional :: abstol
5162 real(RKG) , intent(in) , optional :: reltol
5163 integer(IK) , intent(out) , optional :: neval
5164 integer(IK) , intent(out) , optional :: nint
5165 character(*, SK) , intent(out) , optional :: msg
5166 logical(LK) :: failed
5167 end function
5168#endif
5169
5170#if RK1_ENABLED
5171 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5173 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5174#endif
5175 use pm_kind, only: RKG => RK1
5176 procedure(real(RKG)) :: getFunc
5177 real(RKG) , intent(in) :: lb, ub
5178 real(RKG) , intent(out) :: integral
5179 type(weps_type) , intent(in) :: help
5180 real(RKG) , intent(out) , optional :: abserr
5181 real(RKG) , intent(in) , optional :: abstol
5182 real(RKG) , intent(in) , optional :: reltol
5183 integer(IK) , intent(out) , optional :: neval
5184 integer(IK) , intent(out) , optional :: nint
5185 character(*, SK) , intent(out) , optional :: msg
5186 logical(LK) :: failed
5187 end function
5188#endif
5189
5190 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5191
5192#if RK5_ENABLED
5193 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5195 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5196#endif
5197 use pm_kind, only: RKG => RK5
5198 procedure(real(RKG)) :: getFunc
5199 real(RKG) , intent(in) :: lb, ub
5200 real(RKG) , intent(out) :: integral
5201 real(RKG) , intent(in) , contiguous :: help(:)
5202 real(RKG) , intent(out) , optional :: abserr
5203 real(RKG) , intent(in) , optional :: abstol
5204 real(RKG) , intent(in) , optional :: reltol
5205 integer(IK) , intent(out) , optional :: neval
5206 integer(IK) , intent(out) , optional :: nint
5207 character(*, SK) , intent(out) , optional :: msg
5208 logical(LK) :: failed
5209 end function
5210#endif
5211
5212#if RK4_ENABLED
5213 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5215 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5216#endif
5217 use pm_kind, only: RKG => RK4
5218 procedure(real(RKG)) :: getFunc
5219 real(RKG) , intent(in) :: lb, ub
5220 real(RKG) , intent(out) :: integral
5221 real(RKG) , intent(in) , contiguous :: help(:)
5222 real(RKG) , intent(out) , optional :: abserr
5223 real(RKG) , intent(in) , optional :: abstol
5224 real(RKG) , intent(in) , optional :: reltol
5225 integer(IK) , intent(out) , optional :: neval
5226 integer(IK) , intent(out) , optional :: nint
5227 character(*, SK) , intent(out) , optional :: msg
5228 logical(LK) :: failed
5229 end function
5230#endif
5231
5232#if RK3_ENABLED
5233 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5235 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5236#endif
5237 use pm_kind, only: RKG => RK3
5238 procedure(real(RKG)) :: getFunc
5239 real(RKG) , intent(in) :: lb, ub
5240 real(RKG) , intent(out) :: integral
5241 real(RKG) , intent(in) , contiguous :: help(:)
5242 real(RKG) , intent(out) , optional :: abserr
5243 real(RKG) , intent(in) , optional :: abstol
5244 real(RKG) , intent(in) , optional :: reltol
5245 integer(IK) , intent(out) , optional :: neval
5246 integer(IK) , intent(out) , optional :: nint
5247 character(*, SK) , intent(out) , optional :: msg
5248 logical(LK) :: failed
5249 end function
5250#endif
5251
5252#if RK2_ENABLED
5253 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5255 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5256#endif
5257 use pm_kind, only: RKG => RK2
5258 procedure(real(RKG)) :: getFunc
5259 real(RKG) , intent(in) :: lb, ub
5260 real(RKG) , intent(out) :: integral
5261 real(RKG) , intent(in) , contiguous :: help(:)
5262 real(RKG) , intent(out) , optional :: abserr
5263 real(RKG) , intent(in) , optional :: abstol
5264 real(RKG) , intent(in) , optional :: reltol
5265 integer(IK) , intent(out) , optional :: neval
5266 integer(IK) , intent(out) , optional :: nint
5267 character(*, SK) , intent(out) , optional :: msg
5268 logical(LK) :: failed
5269 end function
5270#endif
5271
5272#if RK1_ENABLED
5273 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5275 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5276#endif
5277 use pm_kind, only: RKG => RK1
5278 procedure(real(RKG)) :: getFunc
5279 real(RKG) , intent(in) :: lb, ub
5280 real(RKG) , intent(out) :: integral
5281 real(RKG) , intent(in) , contiguous :: help(:)
5282 real(RKG) , intent(out) , optional :: abserr
5283 real(RKG) , intent(in) , optional :: abstol
5284 real(RKG) , intent(in) , optional :: reltol
5285 integer(IK) , intent(out) , optional :: neval
5286 integer(IK) , intent(out) , optional :: nint
5287 character(*, SK) , intent(out) , optional :: msg
5288 logical(LK) :: failed
5289 end function
5290#endif
5291
5292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5293
5294#if RK5_ENABLED
5295 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5297 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5298#endif
5299 use pm_kind, only: RKG => RK5
5300 procedure(real(RKG)) :: getFunc
5301 real(RKG) , intent(in) :: lb, ub
5302 real(RKG) , intent(out) :: integral
5303 type(wcauchy_type) , intent(in) :: help
5304 real(RKG) , intent(out) , optional :: abserr
5305 real(RKG) , intent(in) , optional :: abstol
5306 real(RKG) , intent(in) , optional :: reltol
5307 integer(IK) , intent(out) , optional :: neval
5308 integer(IK) , intent(out) , optional :: nint
5309 character(*, SK) , intent(out) , optional :: msg
5310 logical(LK) :: failed
5311 end function
5312#endif
5313
5314#if RK4_ENABLED
5315 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5317 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5318#endif
5319 use pm_kind, only: RKG => RK4
5320 procedure(real(RKG)) :: getFunc
5321 real(RKG) , intent(in) :: lb, ub
5322 real(RKG) , intent(out) :: integral
5323 type(wcauchy_type) , intent(in) :: help
5324 real(RKG) , intent(out) , optional :: abserr
5325 real(RKG) , intent(in) , optional :: abstol
5326 real(RKG) , intent(in) , optional :: reltol
5327 integer(IK) , intent(out) , optional :: neval
5328 integer(IK) , intent(out) , optional :: nint
5329 character(*, SK) , intent(out) , optional :: msg
5330 logical(LK) :: failed
5331 end function
5332#endif
5333
5334#if RK3_ENABLED
5335 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5337 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5338#endif
5339 use pm_kind, only: RKG => RK3
5340 procedure(real(RKG)) :: getFunc
5341 real(RKG) , intent(in) :: lb, ub
5342 real(RKG) , intent(out) :: integral
5343 type(wcauchy_type) , intent(in) :: help
5344 real(RKG) , intent(out) , optional :: abserr
5345 real(RKG) , intent(in) , optional :: abstol
5346 real(RKG) , intent(in) , optional :: reltol
5347 integer(IK) , intent(out) , optional :: neval
5348 integer(IK) , intent(out) , optional :: nint
5349 character(*, SK) , intent(out) , optional :: msg
5350 logical(LK) :: failed
5351 end function
5352#endif
5353
5354#if RK2_ENABLED
5355 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5357 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5358#endif
5359 use pm_kind, only: RKG => RK2
5360 procedure(real(RKG)) :: getFunc
5361 real(RKG) , intent(in) :: lb, ub
5362 real(RKG) , intent(out) :: integral
5363 type(wcauchy_type) , intent(in) :: help
5364 real(RKG) , intent(out) , optional :: abserr
5365 real(RKG) , intent(in) , optional :: abstol
5366 real(RKG) , intent(in) , optional :: reltol
5367 integer(IK) , intent(out) , optional :: neval
5368 integer(IK) , intent(out) , optional :: nint
5369 character(*, SK) , intent(out) , optional :: msg
5370 logical(LK) :: failed
5371 end function
5372#endif
5373
5374#if RK1_ENABLED
5375 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5377 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5378#endif
5379 use pm_kind, only: RKG => RK1
5380 procedure(real(RKG)) :: getFunc
5381 real(RKG) , intent(in) :: lb, ub
5382 real(RKG) , intent(out) :: integral
5383 type(wcauchy_type) , intent(in) :: help
5384 real(RKG) , intent(out) , optional :: abserr
5385 real(RKG) , intent(in) , optional :: abstol
5386 real(RKG) , intent(in) , optional :: reltol
5387 integer(IK) , intent(out) , optional :: neval
5388 integer(IK) , intent(out) , optional :: nint
5389 character(*, SK) , intent(out) , optional :: msg
5390 logical(LK) :: failed
5391 end function
5392#endif
5393
5394 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5395
5396 end interface
5397
5398!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5399
5638
5639!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5640
5641 ! QAGD_GK15
5642
5643 interface getQuadErr
5644
5645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5646
5647#if RK5_ENABLED
5648 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5651#endif
5652 use pm_kind, only: RKG => RK5
5653 procedure(real(RKG)) :: getFunc
5654 real(RKG) , intent(in) :: lb
5655 real(RKG) , intent(in) :: ub
5656 real(RKG) , intent(in) :: abstol
5657 real(RKG) , intent(in) :: reltol
5658 type(GK15_type) , intent(in) :: qrule
5659 real(RKG) , intent(out) :: integral, abserr
5660 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5661 integer(IK) , intent(out) , contiguous :: sindex(:)
5662 integer(IK) , intent(out) :: neval
5663 integer(IK) , intent(out) :: nint
5664 integer(IK) :: err
5665 end function
5666#endif
5667
5668#if RK4_ENABLED
5669 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5671 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5672#endif
5673 use pm_kind, only: RKG => RK4
5674 procedure(real(RKG)) :: getFunc
5675 real(RKG) , intent(in) :: lb
5676 real(RKG) , intent(in) :: ub
5677 real(RKG) , intent(in) :: abstol
5678 real(RKG) , intent(in) :: reltol
5679 type(GK15_type) , intent(in) :: qrule
5680 real(RKG) , intent(out) :: integral, abserr
5681 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5682 integer(IK) , intent(out) , contiguous :: sindex(:)
5683 integer(IK) , intent(out) :: neval
5684 integer(IK) , intent(out) :: nint
5685 integer(IK) :: err
5686 end function
5687#endif
5688
5689#if RK3_ENABLED
5690 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5692 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5693#endif
5694 use pm_kind, only: RKG => RK3
5695 procedure(real(RKG)) :: getFunc
5696 real(RKG) , intent(in) :: lb
5697 real(RKG) , intent(in) :: ub
5698 real(RKG) , intent(in) :: abstol
5699 real(RKG) , intent(in) :: reltol
5700 type(GK15_type) , intent(in) :: qrule
5701 real(RKG) , intent(out) :: integral, abserr
5702 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5703 integer(IK) , intent(out) , contiguous :: sindex(:)
5704 integer(IK) , intent(out) :: neval
5705 integer(IK) , intent(out) :: nint
5706 integer(IK) :: err
5707 end function
5708#endif
5709
5710#if RK2_ENABLED
5711 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5713 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5714#endif
5715 use pm_kind, only: RKG => RK2
5716 procedure(real(RKG)) :: getFunc
5717 real(RKG) , intent(in) :: lb
5718 real(RKG) , intent(in) :: ub
5719 real(RKG) , intent(in) :: abstol
5720 real(RKG) , intent(in) :: reltol
5721 type(GK15_type) , intent(in) :: qrule
5722 real(RKG) , intent(out) :: integral, abserr
5723 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5724 integer(IK) , intent(out) , contiguous :: sindex(:)
5725 integer(IK) , intent(out) :: neval
5726 integer(IK) , intent(out) :: nint
5727 integer(IK) :: err
5728 end function
5729#endif
5730
5731#if RK1_ENABLED
5732 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5734 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5735#endif
5736 use pm_kind, only: RKG => RK1
5737 procedure(real(RKG)) :: getFunc
5738 real(RKG) , intent(in) :: lb
5739 real(RKG) , intent(in) :: ub
5740 real(RKG) , intent(in) :: abstol
5741 real(RKG) , intent(in) :: reltol
5742 type(GK15_type) , intent(in) :: qrule
5743 real(RKG) , intent(out) :: integral, abserr
5744 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5745 integer(IK) , intent(out) , contiguous :: sindex(:)
5746 integer(IK) , intent(out) :: neval
5747 integer(IK) , intent(out) :: nint
5748 integer(IK) :: err
5749 end function
5750#endif
5751
5752 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5753
5754#if RK5_ENABLED
5755 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5757 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5758#endif
5759 use pm_kind, only: RKG => RK5
5760 procedure(real(RKG)) :: getFunc
5761 real(RKG) , intent(in) :: lb
5762 type(pinf_type) , intent(in) :: ub
5763 real(RKG) , intent(in) :: abstol
5764 real(RKG) , intent(in) :: reltol
5765 type(GK15_type) , intent(in) :: qrule
5766 real(RKG) , intent(out) :: integral, abserr
5767 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5768 integer(IK) , intent(out) , contiguous :: sindex(:)
5769 integer(IK) , intent(out) :: neval
5770 integer(IK) , intent(out) :: nint
5771 integer(IK) :: err
5772 end function
5773#endif
5774
5775#if RK4_ENABLED
5776 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5778 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5779#endif
5780 use pm_kind, only: RKG => RK4
5781 procedure(real(RKG)) :: getFunc
5782 real(RKG) , intent(in) :: lb
5783 type(pinf_type) , intent(in) :: ub
5784 real(RKG) , intent(in) :: abstol
5785 real(RKG) , intent(in) :: reltol
5786 type(GK15_type) , intent(in) :: qrule
5787 real(RKG) , intent(out) :: integral, abserr
5788 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5789 integer(IK) , intent(out) , contiguous :: sindex(:)
5790 integer(IK) , intent(out) :: neval
5791 integer(IK) , intent(out) :: nint
5792 integer(IK) :: err
5793 end function
5794#endif
5795
5796#if RK3_ENABLED
5797 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5799 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5800#endif
5801 use pm_kind, only: RKG => RK3
5802 procedure(real(RKG)) :: getFunc
5803 real(RKG) , intent(in) :: lb
5804 type(pinf_type) , intent(in) :: ub
5805 real(RKG) , intent(in) :: abstol
5806 real(RKG) , intent(in) :: reltol
5807 type(GK15_type) , intent(in) :: qrule
5808 real(RKG) , intent(out) :: integral, abserr
5809 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5810 integer(IK) , intent(out) , contiguous :: sindex(:)
5811 integer(IK) , intent(out) :: neval
5812 integer(IK) , intent(out) :: nint
5813 integer(IK) :: err
5814 end function
5815#endif
5816
5817#if RK2_ENABLED
5818 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5820 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5821#endif
5822 use pm_kind, only: RKG => RK2
5823 procedure(real(RKG)) :: getFunc
5824 real(RKG) , intent(in) :: lb
5825 type(pinf_type) , intent(in) :: ub
5826 real(RKG) , intent(in) :: abstol
5827 real(RKG) , intent(in) :: reltol
5828 type(GK15_type) , intent(in) :: qrule
5829 real(RKG) , intent(out) :: integral, abserr
5830 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5831 integer(IK) , intent(out) , contiguous :: sindex(:)
5832 integer(IK) , intent(out) :: neval
5833 integer(IK) , intent(out) :: nint
5834 integer(IK) :: err
5835 end function
5836#endif
5837
5838#if RK1_ENABLED
5839 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5841 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5842#endif
5843 use pm_kind, only: RKG => RK1
5844 procedure(real(RKG)) :: getFunc
5845 real(RKG) , intent(in) :: lb
5846 type(pinf_type) , intent(in) :: ub
5847 real(RKG) , intent(in) :: abstol
5848 real(RKG) , intent(in) :: reltol
5849 type(GK15_type) , intent(in) :: qrule
5850 real(RKG) , intent(out) :: integral, abserr
5851 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5852 integer(IK) , intent(out) , contiguous :: sindex(:)
5853 integer(IK) , intent(out) :: neval
5854 integer(IK) , intent(out) :: nint
5855 integer(IK) :: err
5856 end function
5857#endif
5858
5859 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5860
5861#if RK5_ENABLED
5862 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5864 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5865#endif
5866 use pm_kind, only: RKG => RK5
5867 procedure(real(RKG)) :: getFunc
5868 type(ninf_type) , intent(in) :: lb
5869 real(RKG) , intent(in) :: ub
5870 real(RKG) , intent(in) :: abstol
5871 real(RKG) , intent(in) :: reltol
5872 type(GK15_type) , intent(in) :: qrule
5873 real(RKG) , intent(out) :: integral, abserr
5874 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5875 integer(IK) , intent(out) , contiguous :: sindex(:)
5876 integer(IK) , intent(out) :: neval
5877 integer(IK) , intent(out) :: nint
5878 integer(IK) :: err
5879 end function
5880#endif
5881
5882#if RK4_ENABLED
5883 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5885 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5886#endif
5887 use pm_kind, only: RKG => RK4
5888 procedure(real(RKG)) :: getFunc
5889 type(ninf_type) , intent(in) :: lb
5890 real(RKG) , intent(in) :: ub
5891 real(RKG) , intent(in) :: abstol
5892 real(RKG) , intent(in) :: reltol
5893 type(GK15_type) , intent(in) :: qrule
5894 real(RKG) , intent(out) :: integral, abserr
5895 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5896 integer(IK) , intent(out) , contiguous :: sindex(:)
5897 integer(IK) , intent(out) :: neval
5898 integer(IK) , intent(out) :: nint
5899 integer(IK) :: err
5900 end function
5901#endif
5902
5903#if RK3_ENABLED
5904 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5906 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5907#endif
5908 use pm_kind, only: RKG => RK3
5909 procedure(real(RKG)) :: getFunc
5910 type(ninf_type) , intent(in) :: lb
5911 real(RKG) , intent(in) :: ub
5912 real(RKG) , intent(in) :: abstol
5913 real(RKG) , intent(in) :: reltol
5914 type(GK15_type) , intent(in) :: qrule
5915 real(RKG) , intent(out) :: integral, abserr
5916 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5917 integer(IK) , intent(out) , contiguous :: sindex(:)
5918 integer(IK) , intent(out) :: neval
5919 integer(IK) , intent(out) :: nint
5920 integer(IK) :: err
5921 end function
5922#endif
5923
5924#if RK2_ENABLED
5925 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5927 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5928#endif
5929 use pm_kind, only: RKG => RK2
5930 procedure(real(RKG)) :: getFunc
5931 type(ninf_type) , intent(in) :: lb
5932 real(RKG) , intent(in) :: ub
5933 real(RKG) , intent(in) :: abstol
5934 real(RKG) , intent(in) :: reltol
5935 type(GK15_type) , intent(in) :: qrule
5936 real(RKG) , intent(out) :: integral, abserr
5937 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5938 integer(IK) , intent(out) , contiguous :: sindex(:)
5939 integer(IK) , intent(out) :: neval
5940 integer(IK) , intent(out) :: nint
5941 integer(IK) :: err
5942 end function
5943#endif
5944
5945#if RK1_ENABLED
5946 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5948 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5949#endif
5950 use pm_kind, only: RKG => RK1
5951 procedure(real(RKG)) :: getFunc
5952 type(ninf_type) , intent(in) :: lb
5953 real(RKG) , intent(in) :: ub
5954 real(RKG) , intent(in) :: abstol
5955 real(RKG) , intent(in) :: reltol
5956 type(GK15_type) , intent(in) :: qrule
5957 real(RKG) , intent(out) :: integral, abserr
5958 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5959 integer(IK) , intent(out) , contiguous :: sindex(:)
5960 integer(IK) , intent(out) :: neval
5961 integer(IK) , intent(out) :: nint
5962 integer(IK) :: err
5963 end function
5964#endif
5965
5966 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5967
5968#if RK5_ENABLED
5969 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5971 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5972#endif
5973 use pm_kind, only: RKG => RK5
5974 procedure(real(RKG)) :: getFunc
5975 type(ninf_type) , intent(in) :: lb
5976 type(pinf_type) , intent(in) :: ub
5977 real(RKG) , intent(in) :: abstol
5978 real(RKG) , intent(in) :: reltol
5979 type(GK15_type) , intent(in) :: qrule
5980 real(RKG) , intent(out) :: integral, abserr
5981 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
5982 integer(IK) , intent(out) , contiguous :: sindex(:)
5983 integer(IK) , intent(out) :: neval
5984 integer(IK) , intent(out) :: nint
5985 integer(IK) :: err
5986 end function
5987#endif
5988
5989#if RK4_ENABLED
5990 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5992 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5993#endif
5994 use pm_kind, only: RKG => RK4
5995 procedure(real(RKG)) :: getFunc
5996 type(ninf_type) , intent(in) :: lb
5997 type(pinf_type) , intent(in) :: ub
5998 real(RKG) , intent(in) :: abstol
5999 real(RKG) , intent(in) :: reltol
6000 type(GK15_type) , intent(in) :: qrule
6001 real(RKG) , intent(out) :: integral, abserr
6002 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6003 integer(IK) , intent(out) , contiguous :: sindex(:)
6004 integer(IK) , intent(out) :: neval
6005 integer(IK) , intent(out) :: nint
6006 integer(IK) :: err
6007 end function
6008#endif
6009
6010#if RK3_ENABLED
6011 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6013 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
6014#endif
6015 use pm_kind, only: RKG => RK3
6016 procedure(real(RKG)) :: getFunc
6017 type(ninf_type) , intent(in) :: lb
6018 type(pinf_type) , intent(in) :: ub
6019 real(RKG) , intent(in) :: abstol
6020 real(RKG) , intent(in) :: reltol
6021 type(GK15_type) , intent(in) :: qrule
6022 real(RKG) , intent(out) :: integral, abserr
6023 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6024 integer(IK) , intent(out) , contiguous :: sindex(:)
6025 integer(IK) , intent(out) :: neval
6026 integer(IK) , intent(out) :: nint
6027 integer(IK) :: err
6028 end function
6029#endif
6030
6031#if RK2_ENABLED
6032 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6034 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
6035#endif
6036 use pm_kind, only: RKG => RK2
6037 procedure(real(RKG)) :: getFunc
6038 type(ninf_type) , intent(in) :: lb
6039 type(pinf_type) , intent(in) :: ub
6040 real(RKG) , intent(in) :: abstol
6041 real(RKG) , intent(in) :: reltol
6042 type(GK15_type) , intent(in) :: qrule
6043 real(RKG) , intent(out) :: integral, abserr
6044 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6045 integer(IK) , intent(out) , contiguous :: sindex(:)
6046 integer(IK) , intent(out) :: neval
6047 integer(IK) , intent(out) :: nint
6048 integer(IK) :: err
6049 end function
6050#endif
6051
6052#if RK1_ENABLED
6053 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6055 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
6056#endif
6057 use pm_kind, only: RKG => RK1
6058 procedure(real(RKG)) :: getFunc
6059 type(ninf_type) , intent(in) :: lb
6060 type(pinf_type) , intent(in) :: ub
6061 real(RKG) , intent(in) :: abstol
6062 real(RKG) , intent(in) :: reltol
6063 type(GK15_type) , intent(in) :: qrule
6064 real(RKG) , intent(out) :: integral, abserr
6065 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6066 integer(IK) , intent(out) , contiguous :: sindex(:)
6067 integer(IK) , intent(out) :: neval
6068 integer(IK) , intent(out) :: nint
6069 integer(IK) :: err
6070 end function
6071#endif
6072
6073 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6074
6075 end interface
6076
6077 ! QAGD_GK21
6078
6079 interface getQuadErr
6080
6081 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6082
6083#if RK5_ENABLED
6084 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6086 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6087#endif
6088 use pm_kind, only: RKG => RK5
6089 procedure(real(RKG)) :: getFunc
6090 real(RKG) , intent(in) :: lb
6091 real(RKG) , intent(in) :: ub
6092 real(RKG) , intent(in) :: abstol
6093 real(RKG) , intent(in) :: reltol
6094 type(GK21_type) , intent(in) :: qrule
6095 real(RKG) , intent(out) :: integral, abserr
6096 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6097 integer(IK) , intent(out) , contiguous :: sindex(:)
6098 integer(IK) , intent(out) :: neval
6099 integer(IK) , intent(out) :: nint
6100 integer(IK) :: err
6101 end function
6102#endif
6103
6104#if RK4_ENABLED
6105 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6107 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6108#endif
6109 use pm_kind, only: RKG => RK4
6110 procedure(real(RKG)) :: getFunc
6111 real(RKG) , intent(in) :: lb
6112 real(RKG) , intent(in) :: ub
6113 real(RKG) , intent(in) :: abstol
6114 real(RKG) , intent(in) :: reltol
6115 type(GK21_type) , intent(in) :: qrule
6116 real(RKG) , intent(out) :: integral, abserr
6117 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6118 integer(IK) , intent(out) , contiguous :: sindex(:)
6119 integer(IK) , intent(out) :: neval
6120 integer(IK) , intent(out) :: nint
6121 integer(IK) :: err
6122 end function
6123#endif
6124
6125#if RK3_ENABLED
6126 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6128 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6129#endif
6130 use pm_kind, only: RKG => RK3
6131 procedure(real(RKG)) :: getFunc
6132 real(RKG) , intent(in) :: lb
6133 real(RKG) , intent(in) :: ub
6134 real(RKG) , intent(in) :: abstol
6135 real(RKG) , intent(in) :: reltol
6136 type(GK21_type) , intent(in) :: qrule
6137 real(RKG) , intent(out) :: integral, abserr
6138 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6139 integer(IK) , intent(out) , contiguous :: sindex(:)
6140 integer(IK) , intent(out) :: neval
6141 integer(IK) , intent(out) :: nint
6142 integer(IK) :: err
6143 end function
6144#endif
6145
6146#if RK2_ENABLED
6147 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6149 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6150#endif
6151 use pm_kind, only: RKG => RK2
6152 procedure(real(RKG)) :: getFunc
6153 real(RKG) , intent(in) :: lb
6154 real(RKG) , intent(in) :: ub
6155 real(RKG) , intent(in) :: abstol
6156 real(RKG) , intent(in) :: reltol
6157 type(GK21_type) , intent(in) :: qrule
6158 real(RKG) , intent(out) :: integral, abserr
6159 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6160 integer(IK) , intent(out) , contiguous :: sindex(:)
6161 integer(IK) , intent(out) :: neval
6162 integer(IK) , intent(out) :: nint
6163 integer(IK) :: err
6164 end function
6165#endif
6166
6167#if RK1_ENABLED
6168 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6170 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6171#endif
6172 use pm_kind, only: RKG => RK1
6173 procedure(real(RKG)) :: getFunc
6174 real(RKG) , intent(in) :: lb
6175 real(RKG) , intent(in) :: ub
6176 real(RKG) , intent(in) :: abstol
6177 real(RKG) , intent(in) :: reltol
6178 type(GK21_type) , intent(in) :: qrule
6179 real(RKG) , intent(out) :: integral, abserr
6180 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6181 integer(IK) , intent(out) , contiguous :: sindex(:)
6182 integer(IK) , intent(out) :: neval
6183 integer(IK) , intent(out) :: nint
6184 integer(IK) :: err
6185 end function
6186#endif
6187
6188 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6189
6190#if RK5_ENABLED
6191 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6193 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6194#endif
6195 use pm_kind, only: RKG => RK5
6196 procedure(real(RKG)) :: getFunc
6197 real(RKG) , intent(in) :: lb
6198 type(pinf_type) , intent(in) :: ub
6199 real(RKG) , intent(in) :: abstol
6200 real(RKG) , intent(in) :: reltol
6201 type(GK21_type) , intent(in) :: qrule
6202 real(RKG) , intent(out) :: integral, abserr
6203 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6204 integer(IK) , intent(out) , contiguous :: sindex(:)
6205 integer(IK) , intent(out) :: neval
6206 integer(IK) , intent(out) :: nint
6207 integer(IK) :: err
6208 end function
6209#endif
6210
6211#if RK4_ENABLED
6212 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6214 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6215#endif
6216 use pm_kind, only: RKG => RK4
6217 procedure(real(RKG)) :: getFunc
6218 real(RKG) , intent(in) :: lb
6219 type(pinf_type) , intent(in) :: ub
6220 real(RKG) , intent(in) :: abstol
6221 real(RKG) , intent(in) :: reltol
6222 type(GK21_type) , intent(in) :: qrule
6223 real(RKG) , intent(out) :: integral, abserr
6224 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6225 integer(IK) , intent(out) , contiguous :: sindex(:)
6226 integer(IK) , intent(out) :: neval
6227 integer(IK) , intent(out) :: nint
6228 integer(IK) :: err
6229 end function
6230#endif
6231
6232#if RK3_ENABLED
6233 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6235 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6236#endif
6237 use pm_kind, only: RKG => RK3
6238 procedure(real(RKG)) :: getFunc
6239 real(RKG) , intent(in) :: lb
6240 type(pinf_type) , intent(in) :: ub
6241 real(RKG) , intent(in) :: abstol
6242 real(RKG) , intent(in) :: reltol
6243 type(GK21_type) , intent(in) :: qrule
6244 real(RKG) , intent(out) :: integral, abserr
6245 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6246 integer(IK) , intent(out) , contiguous :: sindex(:)
6247 integer(IK) , intent(out) :: neval
6248 integer(IK) , intent(out) :: nint
6249 integer(IK) :: err
6250 end function
6251#endif
6252
6253#if RK2_ENABLED
6254 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6256 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6257#endif
6258 use pm_kind, only: RKG => RK2
6259 procedure(real(RKG)) :: getFunc
6260 real(RKG) , intent(in) :: lb
6261 type(pinf_type) , intent(in) :: ub
6262 real(RKG) , intent(in) :: abstol
6263 real(RKG) , intent(in) :: reltol
6264 type(GK21_type) , intent(in) :: qrule
6265 real(RKG) , intent(out) :: integral, abserr
6266 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6267 integer(IK) , intent(out) , contiguous :: sindex(:)
6268 integer(IK) , intent(out) :: neval
6269 integer(IK) , intent(out) :: nint
6270 integer(IK) :: err
6271 end function
6272#endif
6273
6274#if RK1_ENABLED
6275 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6277 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6278#endif
6279 use pm_kind, only: RKG => RK1
6280 procedure(real(RKG)) :: getFunc
6281 real(RKG) , intent(in) :: lb
6282 type(pinf_type) , intent(in) :: ub
6283 real(RKG) , intent(in) :: abstol
6284 real(RKG) , intent(in) :: reltol
6285 type(GK21_type) , intent(in) :: qrule
6286 real(RKG) , intent(out) :: integral, abserr
6287 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6288 integer(IK) , intent(out) , contiguous :: sindex(:)
6289 integer(IK) , intent(out) :: neval
6290 integer(IK) , intent(out) :: nint
6291 integer(IK) :: err
6292 end function
6293#endif
6294
6295 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6296
6297#if RK5_ENABLED
6298 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6300 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6301#endif
6302 use pm_kind, only: RKG => RK5
6303 procedure(real(RKG)) :: getFunc
6304 type(ninf_type) , intent(in) :: lb
6305 real(RKG) , intent(in) :: ub
6306 real(RKG) , intent(in) :: abstol
6307 real(RKG) , intent(in) :: reltol
6308 type(GK21_type) , intent(in) :: qrule
6309 real(RKG) , intent(out) :: integral, abserr
6310 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6311 integer(IK) , intent(out) , contiguous :: sindex(:)
6312 integer(IK) , intent(out) :: neval
6313 integer(IK) , intent(out) :: nint
6314 integer(IK) :: err
6315 end function
6316#endif
6317
6318#if RK4_ENABLED
6319 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6321 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6322#endif
6323 use pm_kind, only: RKG => RK4
6324 procedure(real(RKG)) :: getFunc
6325 type(ninf_type) , intent(in) :: lb
6326 real(RKG) , intent(in) :: ub
6327 real(RKG) , intent(in) :: abstol
6328 real(RKG) , intent(in) :: reltol
6329 type(GK21_type) , intent(in) :: qrule
6330 real(RKG) , intent(out) :: integral, abserr
6331 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6332 integer(IK) , intent(out) , contiguous :: sindex(:)
6333 integer(IK) , intent(out) :: neval
6334 integer(IK) , intent(out) :: nint
6335 integer(IK) :: err
6336 end function
6337#endif
6338
6339#if RK3_ENABLED
6340 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6342 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6343#endif
6344 use pm_kind, only: RKG => RK3
6345 procedure(real(RKG)) :: getFunc
6346 type(ninf_type) , intent(in) :: lb
6347 real(RKG) , intent(in) :: ub
6348 real(RKG) , intent(in) :: abstol
6349 real(RKG) , intent(in) :: reltol
6350 type(GK21_type) , intent(in) :: qrule
6351 real(RKG) , intent(out) :: integral, abserr
6352 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6353 integer(IK) , intent(out) , contiguous :: sindex(:)
6354 integer(IK) , intent(out) :: neval
6355 integer(IK) , intent(out) :: nint
6356 integer(IK) :: err
6357 end function
6358#endif
6359
6360#if RK2_ENABLED
6361 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6363 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6364#endif
6365 use pm_kind, only: RKG => RK2
6366 procedure(real(RKG)) :: getFunc
6367 type(ninf_type) , intent(in) :: lb
6368 real(RKG) , intent(in) :: ub
6369 real(RKG) , intent(in) :: abstol
6370 real(RKG) , intent(in) :: reltol
6371 type(GK21_type) , intent(in) :: qrule
6372 real(RKG) , intent(out) :: integral, abserr
6373 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6374 integer(IK) , intent(out) , contiguous :: sindex(:)
6375 integer(IK) , intent(out) :: neval
6376 integer(IK) , intent(out) :: nint
6377 integer(IK) :: err
6378 end function
6379#endif
6380
6381#if RK1_ENABLED
6382 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6384 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6385#endif
6386 use pm_kind, only: RKG => RK1
6387 procedure(real(RKG)) :: getFunc
6388 type(ninf_type) , intent(in) :: lb
6389 real(RKG) , intent(in) :: ub
6390 real(RKG) , intent(in) :: abstol
6391 real(RKG) , intent(in) :: reltol
6392 type(GK21_type) , intent(in) :: qrule
6393 real(RKG) , intent(out) :: integral, abserr
6394 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6395 integer(IK) , intent(out) , contiguous :: sindex(:)
6396 integer(IK) , intent(out) :: neval
6397 integer(IK) , intent(out) :: nint
6398 integer(IK) :: err
6399 end function
6400#endif
6401
6402 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6403
6404#if RK5_ENABLED
6405 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6407 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6408#endif
6409 use pm_kind, only: RKG => RK5
6410 procedure(real(RKG)) :: getFunc
6411 type(ninf_type) , intent(in) :: lb
6412 type(pinf_type) , intent(in) :: ub
6413 real(RKG) , intent(in) :: abstol
6414 real(RKG) , intent(in) :: reltol
6415 type(GK21_type) , intent(in) :: qrule
6416 real(RKG) , intent(out) :: integral, abserr
6417 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6418 integer(IK) , intent(out) , contiguous :: sindex(:)
6419 integer(IK) , intent(out) :: neval
6420 integer(IK) , intent(out) :: nint
6421 integer(IK) :: err
6422 end function
6423#endif
6424
6425#if RK4_ENABLED
6426 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6428 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6429#endif
6430 use pm_kind, only: RKG => RK4
6431 procedure(real(RKG)) :: getFunc
6432 type(ninf_type) , intent(in) :: lb
6433 type(pinf_type) , intent(in) :: ub
6434 real(RKG) , intent(in) :: abstol
6435 real(RKG) , intent(in) :: reltol
6436 type(GK21_type) , intent(in) :: qrule
6437 real(RKG) , intent(out) :: integral, abserr
6438 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6439 integer(IK) , intent(out) , contiguous :: sindex(:)
6440 integer(IK) , intent(out) :: neval
6441 integer(IK) , intent(out) :: nint
6442 integer(IK) :: err
6443 end function
6444#endif
6445
6446#if RK3_ENABLED
6447 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6449 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6450#endif
6451 use pm_kind, only: RKG => RK3
6452 procedure(real(RKG)) :: getFunc
6453 type(ninf_type) , intent(in) :: lb
6454 type(pinf_type) , intent(in) :: ub
6455 real(RKG) , intent(in) :: abstol
6456 real(RKG) , intent(in) :: reltol
6457 type(GK21_type) , intent(in) :: qrule
6458 real(RKG) , intent(out) :: integral, abserr
6459 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6460 integer(IK) , intent(out) , contiguous :: sindex(:)
6461 integer(IK) , intent(out) :: neval
6462 integer(IK) , intent(out) :: nint
6463 integer(IK) :: err
6464 end function
6465#endif
6466
6467#if RK2_ENABLED
6468 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6470 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6471#endif
6472 use pm_kind, only: RKG => RK2
6473 procedure(real(RKG)) :: getFunc
6474 type(ninf_type) , intent(in) :: lb
6475 type(pinf_type) , intent(in) :: ub
6476 real(RKG) , intent(in) :: abstol
6477 real(RKG) , intent(in) :: reltol
6478 type(GK21_type) , intent(in) :: qrule
6479 real(RKG) , intent(out) :: integral, abserr
6480 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6481 integer(IK) , intent(out) , contiguous :: sindex(:)
6482 integer(IK) , intent(out) :: neval
6483 integer(IK) , intent(out) :: nint
6484 integer(IK) :: err
6485 end function
6486#endif
6487
6488#if RK1_ENABLED
6489 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6491 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6492#endif
6493 use pm_kind, only: RKG => RK1
6494 procedure(real(RKG)) :: getFunc
6495 type(ninf_type) , intent(in) :: lb
6496 type(pinf_type) , intent(in) :: ub
6497 real(RKG) , intent(in) :: abstol
6498 real(RKG) , intent(in) :: reltol
6499 type(GK21_type) , intent(in) :: qrule
6500 real(RKG) , intent(out) :: integral, abserr
6501 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6502 integer(IK) , intent(out) , contiguous :: sindex(:)
6503 integer(IK) , intent(out) :: neval
6504 integer(IK) , intent(out) :: nint
6505 integer(IK) :: err
6506 end function
6507#endif
6508
6509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6510
6511 end interface
6512
6513 ! QAGD_GK31
6514
6515 interface getQuadErr
6516
6517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6518
6519#if RK5_ENABLED
6520 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6522 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6523#endif
6524 use pm_kind, only: RKG => RK5
6525 procedure(real(RKG)) :: getFunc
6526 real(RKG) , intent(in) :: lb
6527 real(RKG) , intent(in) :: ub
6528 real(RKG) , intent(in) :: abstol
6529 real(RKG) , intent(in) :: reltol
6530 type(GK31_type) , intent(in) :: qrule
6531 real(RKG) , intent(out) :: integral, abserr
6532 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6533 integer(IK) , intent(out) , contiguous :: sindex(:)
6534 integer(IK) , intent(out) :: neval
6535 integer(IK) , intent(out) :: nint
6536 integer(IK) :: err
6537 end function
6538#endif
6539
6540#if RK4_ENABLED
6541 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6543 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6544#endif
6545 use pm_kind, only: RKG => RK4
6546 procedure(real(RKG)) :: getFunc
6547 real(RKG) , intent(in) :: lb
6548 real(RKG) , intent(in) :: ub
6549 real(RKG) , intent(in) :: abstol
6550 real(RKG) , intent(in) :: reltol
6551 type(GK31_type) , intent(in) :: qrule
6552 real(RKG) , intent(out) :: integral, abserr
6553 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6554 integer(IK) , intent(out) , contiguous :: sindex(:)
6555 integer(IK) , intent(out) :: neval
6556 integer(IK) , intent(out) :: nint
6557 integer(IK) :: err
6558 end function
6559#endif
6560
6561#if RK3_ENABLED
6562 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6564 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6565#endif
6566 use pm_kind, only: RKG => RK3
6567 procedure(real(RKG)) :: getFunc
6568 real(RKG) , intent(in) :: lb
6569 real(RKG) , intent(in) :: ub
6570 real(RKG) , intent(in) :: abstol
6571 real(RKG) , intent(in) :: reltol
6572 type(GK31_type) , intent(in) :: qrule
6573 real(RKG) , intent(out) :: integral, abserr
6574 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6575 integer(IK) , intent(out) , contiguous :: sindex(:)
6576 integer(IK) , intent(out) :: neval
6577 integer(IK) , intent(out) :: nint
6578 integer(IK) :: err
6579 end function
6580#endif
6581
6582#if RK2_ENABLED
6583 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6585 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6586#endif
6587 use pm_kind, only: RKG => RK2
6588 procedure(real(RKG)) :: getFunc
6589 real(RKG) , intent(in) :: lb
6590 real(RKG) , intent(in) :: ub
6591 real(RKG) , intent(in) :: abstol
6592 real(RKG) , intent(in) :: reltol
6593 type(GK31_type) , intent(in) :: qrule
6594 real(RKG) , intent(out) :: integral, abserr
6595 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6596 integer(IK) , intent(out) , contiguous :: sindex(:)
6597 integer(IK) , intent(out) :: neval
6598 integer(IK) , intent(out) :: nint
6599 integer(IK) :: err
6600 end function
6601#endif
6602
6603#if RK1_ENABLED
6604 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6606 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6607#endif
6608 use pm_kind, only: RKG => RK1
6609 procedure(real(RKG)) :: getFunc
6610 real(RKG) , intent(in) :: lb
6611 real(RKG) , intent(in) :: ub
6612 real(RKG) , intent(in) :: abstol
6613 real(RKG) , intent(in) :: reltol
6614 type(GK31_type) , intent(in) :: qrule
6615 real(RKG) , intent(out) :: integral, abserr
6616 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6617 integer(IK) , intent(out) , contiguous :: sindex(:)
6618 integer(IK) , intent(out) :: neval
6619 integer(IK) , intent(out) :: nint
6620 integer(IK) :: err
6621 end function
6622#endif
6623
6624 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6625
6626#if RK5_ENABLED
6627 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6629 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6630#endif
6631 use pm_kind, only: RKG => RK5
6632 procedure(real(RKG)) :: getFunc
6633 real(RKG) , intent(in) :: lb
6634 type(pinf_type) , intent(in) :: ub
6635 real(RKG) , intent(in) :: abstol
6636 real(RKG) , intent(in) :: reltol
6637 type(GK31_type) , intent(in) :: qrule
6638 real(RKG) , intent(out) :: integral, abserr
6639 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6640 integer(IK) , intent(out) , contiguous :: sindex(:)
6641 integer(IK) , intent(out) :: neval
6642 integer(IK) , intent(out) :: nint
6643 integer(IK) :: err
6644 end function
6645#endif
6646
6647#if RK4_ENABLED
6648 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6651#endif
6652 use pm_kind, only: RKG => RK4
6653 procedure(real(RKG)) :: getFunc
6654 real(RKG) , intent(in) :: lb
6655 type(pinf_type) , intent(in) :: ub
6656 real(RKG) , intent(in) :: abstol
6657 real(RKG) , intent(in) :: reltol
6658 type(GK31_type) , intent(in) :: qrule
6659 real(RKG) , intent(out) :: integral, abserr
6660 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6661 integer(IK) , intent(out) , contiguous :: sindex(:)
6662 integer(IK) , intent(out) :: neval
6663 integer(IK) , intent(out) :: nint
6664 integer(IK) :: err
6665 end function
6666#endif
6667
6668#if RK3_ENABLED
6669 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6671 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6672#endif
6673 use pm_kind, only: RKG => RK3
6674 procedure(real(RKG)) :: getFunc
6675 real(RKG) , intent(in) :: lb
6676 type(pinf_type) , intent(in) :: ub
6677 real(RKG) , intent(in) :: abstol
6678 real(RKG) , intent(in) :: reltol
6679 type(GK31_type) , intent(in) :: qrule
6680 real(RKG) , intent(out) :: integral, abserr
6681 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6682 integer(IK) , intent(out) , contiguous :: sindex(:)
6683 integer(IK) , intent(out) :: neval
6684 integer(IK) , intent(out) :: nint
6685 integer(IK) :: err
6686 end function
6687#endif
6688
6689#if RK2_ENABLED
6690 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6692 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6693#endif
6694 use pm_kind, only: RKG => RK2
6695 procedure(real(RKG)) :: getFunc
6696 real(RKG) , intent(in) :: lb
6697 type(pinf_type) , intent(in) :: ub
6698 real(RKG) , intent(in) :: abstol
6699 real(RKG) , intent(in) :: reltol
6700 type(GK31_type) , intent(in) :: qrule
6701 real(RKG) , intent(out) :: integral, abserr
6702 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6703 integer(IK) , intent(out) , contiguous :: sindex(:)
6704 integer(IK) , intent(out) :: neval
6705 integer(IK) , intent(out) :: nint
6706 integer(IK) :: err
6707 end function
6708#endif
6709
6710#if RK1_ENABLED
6711 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6713 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6714#endif
6715 use pm_kind, only: RKG => RK1
6716 procedure(real(RKG)) :: getFunc
6717 real(RKG) , intent(in) :: lb
6718 type(pinf_type) , intent(in) :: ub
6719 real(RKG) , intent(in) :: abstol
6720 real(RKG) , intent(in) :: reltol
6721 type(GK31_type) , intent(in) :: qrule
6722 real(RKG) , intent(out) :: integral, abserr
6723 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6724 integer(IK) , intent(out) , contiguous :: sindex(:)
6725 integer(IK) , intent(out) :: neval
6726 integer(IK) , intent(out) :: nint
6727 integer(IK) :: err
6728 end function
6729#endif
6730
6731 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6732
6733#if RK5_ENABLED
6734 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6736 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6737#endif
6738 use pm_kind, only: RKG => RK5
6739 procedure(real(RKG)) :: getFunc
6740 type(ninf_type) , intent(in) :: lb
6741 real(RKG) , intent(in) :: ub
6742 real(RKG) , intent(in) :: abstol
6743 real(RKG) , intent(in) :: reltol
6744 type(GK31_type) , intent(in) :: qrule
6745 real(RKG) , intent(out) :: integral, abserr
6746 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6747 integer(IK) , intent(out) , contiguous :: sindex(:)
6748 integer(IK) , intent(out) :: neval
6749 integer(IK) , intent(out) :: nint
6750 integer(IK) :: err
6751 end function
6752#endif
6753
6754#if RK4_ENABLED
6755 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6757 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6758#endif
6759 use pm_kind, only: RKG => RK4
6760 procedure(real(RKG)) :: getFunc
6761 type(ninf_type) , intent(in) :: lb
6762 real(RKG) , intent(in) :: ub
6763 real(RKG) , intent(in) :: abstol
6764 real(RKG) , intent(in) :: reltol
6765 type(GK31_type) , intent(in) :: qrule
6766 real(RKG) , intent(out) :: integral, abserr
6767 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6768 integer(IK) , intent(out) , contiguous :: sindex(:)
6769 integer(IK) , intent(out) :: neval
6770 integer(IK) , intent(out) :: nint
6771 integer(IK) :: err
6772 end function
6773#endif
6774
6775#if RK3_ENABLED
6776 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6778 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6779#endif
6780 use pm_kind, only: RKG => RK3
6781 procedure(real(RKG)) :: getFunc
6782 type(ninf_type) , intent(in) :: lb
6783 real(RKG) , intent(in) :: ub
6784 real(RKG) , intent(in) :: abstol
6785 real(RKG) , intent(in) :: reltol
6786 type(GK31_type) , intent(in) :: qrule
6787 real(RKG) , intent(out) :: integral, abserr
6788 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6789 integer(IK) , intent(out) , contiguous :: sindex(:)
6790 integer(IK) , intent(out) :: neval
6791 integer(IK) , intent(out) :: nint
6792 integer(IK) :: err
6793 end function
6794#endif
6795
6796#if RK2_ENABLED
6797 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6799 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6800#endif
6801 use pm_kind, only: RKG => RK2
6802 procedure(real(RKG)) :: getFunc
6803 type(ninf_type) , intent(in) :: lb
6804 real(RKG) , intent(in) :: ub
6805 real(RKG) , intent(in) :: abstol
6806 real(RKG) , intent(in) :: reltol
6807 type(GK31_type) , intent(in) :: qrule
6808 real(RKG) , intent(out) :: integral, abserr
6809 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6810 integer(IK) , intent(out) , contiguous :: sindex(:)
6811 integer(IK) , intent(out) :: neval
6812 integer(IK) , intent(out) :: nint
6813 integer(IK) :: err
6814 end function
6815#endif
6816
6817#if RK1_ENABLED
6818 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6820 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6821#endif
6822 use pm_kind, only: RKG => RK1
6823 procedure(real(RKG)) :: getFunc
6824 type(ninf_type) , intent(in) :: lb
6825 real(RKG) , intent(in) :: ub
6826 real(RKG) , intent(in) :: abstol
6827 real(RKG) , intent(in) :: reltol
6828 type(GK31_type) , intent(in) :: qrule
6829 real(RKG) , intent(out) :: integral, abserr
6830 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6831 integer(IK) , intent(out) , contiguous :: sindex(:)
6832 integer(IK) , intent(out) :: neval
6833 integer(IK) , intent(out) :: nint
6834 integer(IK) :: err
6835 end function
6836#endif
6837
6838 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6839
6840#if RK5_ENABLED
6841 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6843 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6844#endif
6845 use pm_kind, only: RKG => RK5
6846 procedure(real(RKG)) :: getFunc
6847 type(ninf_type) , intent(in) :: lb
6848 type(pinf_type) , intent(in) :: ub
6849 real(RKG) , intent(in) :: abstol
6850 real(RKG) , intent(in) :: reltol
6851 type(GK31_type) , intent(in) :: qrule
6852 real(RKG) , intent(out) :: integral, abserr
6853 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6854 integer(IK) , intent(out) , contiguous :: sindex(:)
6855 integer(IK) , intent(out) :: neval
6856 integer(IK) , intent(out) :: nint
6857 integer(IK) :: err
6858 end function
6859#endif
6860
6861#if RK4_ENABLED
6862 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6864 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6865#endif
6866 use pm_kind, only: RKG => RK4
6867 procedure(real(RKG)) :: getFunc
6868 type(ninf_type) , intent(in) :: lb
6869 type(pinf_type) , intent(in) :: ub
6870 real(RKG) , intent(in) :: abstol
6871 real(RKG) , intent(in) :: reltol
6872 type(GK31_type) , intent(in) :: qrule
6873 real(RKG) , intent(out) :: integral, abserr
6874 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6875 integer(IK) , intent(out) , contiguous :: sindex(:)
6876 integer(IK) , intent(out) :: neval
6877 integer(IK) , intent(out) :: nint
6878 integer(IK) :: err
6879 end function
6880#endif
6881
6882#if RK3_ENABLED
6883 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6885 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6886#endif
6887 use pm_kind, only: RKG => RK3
6888 procedure(real(RKG)) :: getFunc
6889 type(ninf_type) , intent(in) :: lb
6890 type(pinf_type) , intent(in) :: ub
6891 real(RKG) , intent(in) :: abstol
6892 real(RKG) , intent(in) :: reltol
6893 type(GK31_type) , intent(in) :: qrule
6894 real(RKG) , intent(out) :: integral, abserr
6895 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6896 integer(IK) , intent(out) , contiguous :: sindex(:)
6897 integer(IK) , intent(out) :: neval
6898 integer(IK) , intent(out) :: nint
6899 integer(IK) :: err
6900 end function
6901#endif
6902
6903#if RK2_ENABLED
6904 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6906 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6907#endif
6908 use pm_kind, only: RKG => RK2
6909 procedure(real(RKG)) :: getFunc
6910 type(ninf_type) , intent(in) :: lb
6911 type(pinf_type) , intent(in) :: ub
6912 real(RKG) , intent(in) :: abstol
6913 real(RKG) , intent(in) :: reltol
6914 type(GK31_type) , intent(in) :: qrule
6915 real(RKG) , intent(out) :: integral, abserr
6916 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6917 integer(IK) , intent(out) , contiguous :: sindex(:)
6918 integer(IK) , intent(out) :: neval
6919 integer(IK) , intent(out) :: nint
6920 integer(IK) :: err
6921 end function
6922#endif
6923
6924#if RK1_ENABLED
6925 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6927 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6928#endif
6929 use pm_kind, only: RKG => RK1
6930 procedure(real(RKG)) :: getFunc
6931 type(ninf_type) , intent(in) :: lb
6932 type(pinf_type) , intent(in) :: ub
6933 real(RKG) , intent(in) :: abstol
6934 real(RKG) , intent(in) :: reltol
6935 type(GK31_type) , intent(in) :: qrule
6936 real(RKG) , intent(out) :: integral, abserr
6937 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6938 integer(IK) , intent(out) , contiguous :: sindex(:)
6939 integer(IK) , intent(out) :: neval
6940 integer(IK) , intent(out) :: nint
6941 integer(IK) :: err
6942 end function
6943#endif
6944
6945 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6946
6947 end interface
6948
6949 ! QAGD_GK41
6950
6951 interface getQuadErr
6952
6953 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6954
6955#if RK5_ENABLED
6956 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6958 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6959#endif
6960 use pm_kind, only: RKG => RK5
6961 procedure(real(RKG)) :: getFunc
6962 real(RKG) , intent(in) :: lb
6963 real(RKG) , intent(in) :: ub
6964 real(RKG) , intent(in) :: abstol
6965 real(RKG) , intent(in) :: reltol
6966 type(GK41_type) , intent(in) :: qrule
6967 real(RKG) , intent(out) :: integral, abserr
6968 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6969 integer(IK) , intent(out) , contiguous :: sindex(:)
6970 integer(IK) , intent(out) :: neval
6971 integer(IK) , intent(out) :: nint
6972 integer(IK) :: err
6973 end function
6974#endif
6975
6976#if RK4_ENABLED
6977 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6979 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6980#endif
6981 use pm_kind, only: RKG => RK4
6982 procedure(real(RKG)) :: getFunc
6983 real(RKG) , intent(in) :: lb
6984 real(RKG) , intent(in) :: ub
6985 real(RKG) , intent(in) :: abstol
6986 real(RKG) , intent(in) :: reltol
6987 type(GK41_type) , intent(in) :: qrule
6988 real(RKG) , intent(out) :: integral, abserr
6989 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
6990 integer(IK) , intent(out) , contiguous :: sindex(:)
6991 integer(IK) , intent(out) :: neval
6992 integer(IK) , intent(out) :: nint
6993 integer(IK) :: err
6994 end function
6995#endif
6996
6997#if RK3_ENABLED
6998 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7000 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
7001#endif
7002 use pm_kind, only: RKG => RK3
7003 procedure(real(RKG)) :: getFunc
7004 real(RKG) , intent(in) :: lb
7005 real(RKG) , intent(in) :: ub
7006 real(RKG) , intent(in) :: abstol
7007 real(RKG) , intent(in) :: reltol
7008 type(GK41_type) , intent(in) :: qrule
7009 real(RKG) , intent(out) :: integral, abserr
7010 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7011 integer(IK) , intent(out) , contiguous :: sindex(:)
7012 integer(IK) , intent(out) :: neval
7013 integer(IK) , intent(out) :: nint
7014 integer(IK) :: err
7015 end function
7016#endif
7017
7018#if RK2_ENABLED
7019 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7021 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
7022#endif
7023 use pm_kind, only: RKG => RK2
7024 procedure(real(RKG)) :: getFunc
7025 real(RKG) , intent(in) :: lb
7026 real(RKG) , intent(in) :: ub
7027 real(RKG) , intent(in) :: abstol
7028 real(RKG) , intent(in) :: reltol
7029 type(GK41_type) , intent(in) :: qrule
7030 real(RKG) , intent(out) :: integral, abserr
7031 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7032 integer(IK) , intent(out) , contiguous :: sindex(:)
7033 integer(IK) , intent(out) :: neval
7034 integer(IK) , intent(out) :: nint
7035 integer(IK) :: err
7036 end function
7037#endif
7038
7039#if RK1_ENABLED
7040 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7042 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
7043#endif
7044 use pm_kind, only: RKG => RK1
7045 procedure(real(RKG)) :: getFunc
7046 real(RKG) , intent(in) :: lb
7047 real(RKG) , intent(in) :: ub
7048 real(RKG) , intent(in) :: abstol
7049 real(RKG) , intent(in) :: reltol
7050 type(GK41_type) , intent(in) :: qrule
7051 real(RKG) , intent(out) :: integral, abserr
7052 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7053 integer(IK) , intent(out) , contiguous :: sindex(:)
7054 integer(IK) , intent(out) :: neval
7055 integer(IK) , intent(out) :: nint
7056 integer(IK) :: err
7057 end function
7058#endif
7059
7060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7061
7062#if RK5_ENABLED
7063 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7065 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
7066#endif
7067 use pm_kind, only: RKG => RK5
7068 procedure(real(RKG)) :: getFunc
7069 real(RKG) , intent(in) :: lb
7070 type(pinf_type) , intent(in) :: ub
7071 real(RKG) , intent(in) :: abstol
7072 real(RKG) , intent(in) :: reltol
7073 type(GK41_type) , intent(in) :: qrule
7074 real(RKG) , intent(out) :: integral, abserr
7075 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7076 integer(IK) , intent(out) , contiguous :: sindex(:)
7077 integer(IK) , intent(out) :: neval
7078 integer(IK) , intent(out) :: nint
7079 integer(IK) :: err
7080 end function
7081#endif
7082
7083#if RK4_ENABLED
7084 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7086 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7087#endif
7088 use pm_kind, only: RKG => RK4
7089 procedure(real(RKG)) :: getFunc
7090 real(RKG) , intent(in) :: lb
7091 type(pinf_type) , intent(in) :: ub
7092 real(RKG) , intent(in) :: abstol
7093 real(RKG) , intent(in) :: reltol
7094 type(GK41_type) , intent(in) :: qrule
7095 real(RKG) , intent(out) :: integral, abserr
7096 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7097 integer(IK) , intent(out) , contiguous :: sindex(:)
7098 integer(IK) , intent(out) :: neval
7099 integer(IK) , intent(out) :: nint
7100 integer(IK) :: err
7101 end function
7102#endif
7103
7104#if RK3_ENABLED
7105 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7107 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7108#endif
7109 use pm_kind, only: RKG => RK3
7110 procedure(real(RKG)) :: getFunc
7111 real(RKG) , intent(in) :: lb
7112 type(pinf_type) , intent(in) :: ub
7113 real(RKG) , intent(in) :: abstol
7114 real(RKG) , intent(in) :: reltol
7115 type(GK41_type) , intent(in) :: qrule
7116 real(RKG) , intent(out) :: integral, abserr
7117 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7118 integer(IK) , intent(out) , contiguous :: sindex(:)
7119 integer(IK) , intent(out) :: neval
7120 integer(IK) , intent(out) :: nint
7121 integer(IK) :: err
7122 end function
7123#endif
7124
7125#if RK2_ENABLED
7126 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7128 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7129#endif
7130 use pm_kind, only: RKG => RK2
7131 procedure(real(RKG)) :: getFunc
7132 real(RKG) , intent(in) :: lb
7133 type(pinf_type) , intent(in) :: ub
7134 real(RKG) , intent(in) :: abstol
7135 real(RKG) , intent(in) :: reltol
7136 type(GK41_type) , intent(in) :: qrule
7137 real(RKG) , intent(out) :: integral, abserr
7138 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7139 integer(IK) , intent(out) , contiguous :: sindex(:)
7140 integer(IK) , intent(out) :: neval
7141 integer(IK) , intent(out) :: nint
7142 integer(IK) :: err
7143 end function
7144#endif
7145
7146#if RK1_ENABLED
7147 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7149 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7150#endif
7151 use pm_kind, only: RKG => RK1
7152 procedure(real(RKG)) :: getFunc
7153 real(RKG) , intent(in) :: lb
7154 type(pinf_type) , intent(in) :: ub
7155 real(RKG) , intent(in) :: abstol
7156 real(RKG) , intent(in) :: reltol
7157 type(GK41_type) , intent(in) :: qrule
7158 real(RKG) , intent(out) :: integral, abserr
7159 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7160 integer(IK) , intent(out) , contiguous :: sindex(:)
7161 integer(IK) , intent(out) :: neval
7162 integer(IK) , intent(out) :: nint
7163 integer(IK) :: err
7164 end function
7165#endif
7166
7167 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7168
7169#if RK5_ENABLED
7170 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7172 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7173#endif
7174 use pm_kind, only: RKG => RK5
7175 procedure(real(RKG)) :: getFunc
7176 type(ninf_type) , intent(in) :: lb
7177 real(RKG) , intent(in) :: ub
7178 real(RKG) , intent(in) :: abstol
7179 real(RKG) , intent(in) :: reltol
7180 type(GK41_type) , intent(in) :: qrule
7181 real(RKG) , intent(out) :: integral, abserr
7182 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7183 integer(IK) , intent(out) , contiguous :: sindex(:)
7184 integer(IK) , intent(out) :: neval
7185 integer(IK) , intent(out) :: nint
7186 integer(IK) :: err
7187 end function
7188#endif
7189
7190#if RK4_ENABLED
7191 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7193 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7194#endif
7195 use pm_kind, only: RKG => RK4
7196 procedure(real(RKG)) :: getFunc
7197 type(ninf_type) , intent(in) :: lb
7198 real(RKG) , intent(in) :: ub
7199 real(RKG) , intent(in) :: abstol
7200 real(RKG) , intent(in) :: reltol
7201 type(GK41_type) , intent(in) :: qrule
7202 real(RKG) , intent(out) :: integral, abserr
7203 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7204 integer(IK) , intent(out) , contiguous :: sindex(:)
7205 integer(IK) , intent(out) :: neval
7206 integer(IK) , intent(out) :: nint
7207 integer(IK) :: err
7208 end function
7209#endif
7210
7211#if RK3_ENABLED
7212 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7214 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7215#endif
7216 use pm_kind, only: RKG => RK3
7217 procedure(real(RKG)) :: getFunc
7218 type(ninf_type) , intent(in) :: lb
7219 real(RKG) , intent(in) :: ub
7220 real(RKG) , intent(in) :: abstol
7221 real(RKG) , intent(in) :: reltol
7222 type(GK41_type) , intent(in) :: qrule
7223 real(RKG) , intent(out) :: integral, abserr
7224 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7225 integer(IK) , intent(out) , contiguous :: sindex(:)
7226 integer(IK) , intent(out) :: neval
7227 integer(IK) , intent(out) :: nint
7228 integer(IK) :: err
7229 end function
7230#endif
7231
7232#if RK2_ENABLED
7233 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7235 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7236#endif
7237 use pm_kind, only: RKG => RK2
7238 procedure(real(RKG)) :: getFunc
7239 type(ninf_type) , intent(in) :: lb
7240 real(RKG) , intent(in) :: ub
7241 real(RKG) , intent(in) :: abstol
7242 real(RKG) , intent(in) :: reltol
7243 type(GK41_type) , intent(in) :: qrule
7244 real(RKG) , intent(out) :: integral, abserr
7245 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7246 integer(IK) , intent(out) , contiguous :: sindex(:)
7247 integer(IK) , intent(out) :: neval
7248 integer(IK) , intent(out) :: nint
7249 integer(IK) :: err
7250 end function
7251#endif
7252
7253#if RK1_ENABLED
7254 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7256 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7257#endif
7258 use pm_kind, only: RKG => RK1
7259 procedure(real(RKG)) :: getFunc
7260 type(ninf_type) , intent(in) :: lb
7261 real(RKG) , intent(in) :: ub
7262 real(RKG) , intent(in) :: abstol
7263 real(RKG) , intent(in) :: reltol
7264 type(GK41_type) , intent(in) :: qrule
7265 real(RKG) , intent(out) :: integral, abserr
7266 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7267 integer(IK) , intent(out) , contiguous :: sindex(:)
7268 integer(IK) , intent(out) :: neval
7269 integer(IK) , intent(out) :: nint
7270 integer(IK) :: err
7271 end function
7272#endif
7273
7274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7275
7276#if RK5_ENABLED
7277 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7279 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7280#endif
7281 use pm_kind, only: RKG => RK5
7282 procedure(real(RKG)) :: getFunc
7283 type(ninf_type) , intent(in) :: lb
7284 type(pinf_type) , intent(in) :: ub
7285 real(RKG) , intent(in) :: abstol
7286 real(RKG) , intent(in) :: reltol
7287 type(GK41_type) , intent(in) :: qrule
7288 real(RKG) , intent(out) :: integral, abserr
7289 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7290 integer(IK) , intent(out) , contiguous :: sindex(:)
7291 integer(IK) , intent(out) :: neval
7292 integer(IK) , intent(out) :: nint
7293 integer(IK) :: err
7294 end function
7295#endif
7296
7297#if RK4_ENABLED
7298 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7300 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7301#endif
7302 use pm_kind, only: RKG => RK4
7303 procedure(real(RKG)) :: getFunc
7304 type(ninf_type) , intent(in) :: lb
7305 type(pinf_type) , intent(in) :: ub
7306 real(RKG) , intent(in) :: abstol
7307 real(RKG) , intent(in) :: reltol
7308 type(GK41_type) , intent(in) :: qrule
7309 real(RKG) , intent(out) :: integral, abserr
7310 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7311 integer(IK) , intent(out) , contiguous :: sindex(:)
7312 integer(IK) , intent(out) :: neval
7313 integer(IK) , intent(out) :: nint
7314 integer(IK) :: err
7315 end function
7316#endif
7317
7318#if RK3_ENABLED
7319 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7321 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7322#endif
7323 use pm_kind, only: RKG => RK3
7324 procedure(real(RKG)) :: getFunc
7325 type(ninf_type) , intent(in) :: lb
7326 type(pinf_type) , intent(in) :: ub
7327 real(RKG) , intent(in) :: abstol
7328 real(RKG) , intent(in) :: reltol
7329 type(GK41_type) , intent(in) :: qrule
7330 real(RKG) , intent(out) :: integral, abserr
7331 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7332 integer(IK) , intent(out) , contiguous :: sindex(:)
7333 integer(IK) , intent(out) :: neval
7334 integer(IK) , intent(out) :: nint
7335 integer(IK) :: err
7336 end function
7337#endif
7338
7339#if RK2_ENABLED
7340 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7342 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7343#endif
7344 use pm_kind, only: RKG => RK2
7345 procedure(real(RKG)) :: getFunc
7346 type(ninf_type) , intent(in) :: lb
7347 type(pinf_type) , intent(in) :: ub
7348 real(RKG) , intent(in) :: abstol
7349 real(RKG) , intent(in) :: reltol
7350 type(GK41_type) , intent(in) :: qrule
7351 real(RKG) , intent(out) :: integral, abserr
7352 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7353 integer(IK) , intent(out) , contiguous :: sindex(:)
7354 integer(IK) , intent(out) :: neval
7355 integer(IK) , intent(out) :: nint
7356 integer(IK) :: err
7357 end function
7358#endif
7359
7360#if RK1_ENABLED
7361 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7363 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7364#endif
7365 use pm_kind, only: RKG => RK1
7366 procedure(real(RKG)) :: getFunc
7367 type(ninf_type) , intent(in) :: lb
7368 type(pinf_type) , intent(in) :: ub
7369 real(RKG) , intent(in) :: abstol
7370 real(RKG) , intent(in) :: reltol
7371 type(GK41_type) , intent(in) :: qrule
7372 real(RKG) , intent(out) :: integral, abserr
7373 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7374 integer(IK) , intent(out) , contiguous :: sindex(:)
7375 integer(IK) , intent(out) :: neval
7376 integer(IK) , intent(out) :: nint
7377 integer(IK) :: err
7378 end function
7379#endif
7380
7381 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7382
7383 end interface
7384
7385 ! QAGD_GK51
7386
7387 interface getQuadErr
7388
7389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7390
7391#if RK5_ENABLED
7392 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7394 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7395#endif
7396 use pm_kind, only: RKG => RK5
7397 procedure(real(RKG)) :: getFunc
7398 real(RKG) , intent(in) :: lb
7399 real(RKG) , intent(in) :: ub
7400 real(RKG) , intent(in) :: abstol
7401 real(RKG) , intent(in) :: reltol
7402 type(GK51_type) , intent(in) :: qrule
7403 real(RKG) , intent(out) :: integral, abserr
7404 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7405 integer(IK) , intent(out) , contiguous :: sindex(:)
7406 integer(IK) , intent(out) :: neval
7407 integer(IK) , intent(out) :: nint
7408 integer(IK) :: err
7409 end function
7410#endif
7411
7412#if RK4_ENABLED
7413 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7415 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7416#endif
7417 use pm_kind, only: RKG => RK4
7418 procedure(real(RKG)) :: getFunc
7419 real(RKG) , intent(in) :: lb
7420 real(RKG) , intent(in) :: ub
7421 real(RKG) , intent(in) :: abstol
7422 real(RKG) , intent(in) :: reltol
7423 type(GK51_type) , intent(in) :: qrule
7424 real(RKG) , intent(out) :: integral, abserr
7425 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7426 integer(IK) , intent(out) , contiguous :: sindex(:)
7427 integer(IK) , intent(out) :: neval
7428 integer(IK) , intent(out) :: nint
7429 integer(IK) :: err
7430 end function
7431#endif
7432
7433#if RK3_ENABLED
7434 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7436 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7437#endif
7438 use pm_kind, only: RKG => RK3
7439 procedure(real(RKG)) :: getFunc
7440 real(RKG) , intent(in) :: lb
7441 real(RKG) , intent(in) :: ub
7442 real(RKG) , intent(in) :: abstol
7443 real(RKG) , intent(in) :: reltol
7444 type(GK51_type) , intent(in) :: qrule
7445 real(RKG) , intent(out) :: integral, abserr
7446 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7447 integer(IK) , intent(out) , contiguous :: sindex(:)
7448 integer(IK) , intent(out) :: neval
7449 integer(IK) , intent(out) :: nint
7450 integer(IK) :: err
7451 end function
7452#endif
7453
7454#if RK2_ENABLED
7455 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7457 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7458#endif
7459 use pm_kind, only: RKG => RK2
7460 procedure(real(RKG)) :: getFunc
7461 real(RKG) , intent(in) :: lb
7462 real(RKG) , intent(in) :: ub
7463 real(RKG) , intent(in) :: abstol
7464 real(RKG) , intent(in) :: reltol
7465 type(GK51_type) , intent(in) :: qrule
7466 real(RKG) , intent(out) :: integral, abserr
7467 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7468 integer(IK) , intent(out) , contiguous :: sindex(:)
7469 integer(IK) , intent(out) :: neval
7470 integer(IK) , intent(out) :: nint
7471 integer(IK) :: err
7472 end function
7473#endif
7474
7475#if RK1_ENABLED
7476 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7478 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7479#endif
7480 use pm_kind, only: RKG => RK1
7481 procedure(real(RKG)) :: getFunc
7482 real(RKG) , intent(in) :: lb
7483 real(RKG) , intent(in) :: ub
7484 real(RKG) , intent(in) :: abstol
7485 real(RKG) , intent(in) :: reltol
7486 type(GK51_type) , intent(in) :: qrule
7487 real(RKG) , intent(out) :: integral, abserr
7488 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7489 integer(IK) , intent(out) , contiguous :: sindex(:)
7490 integer(IK) , intent(out) :: neval
7491 integer(IK) , intent(out) :: nint
7492 integer(IK) :: err
7493 end function
7494#endif
7495
7496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7497
7498#if RK5_ENABLED
7499 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7501 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7502#endif
7503 use pm_kind, only: RKG => RK5
7504 procedure(real(RKG)) :: getFunc
7505 real(RKG) , intent(in) :: lb
7506 type(pinf_type) , intent(in) :: ub
7507 real(RKG) , intent(in) :: abstol
7508 real(RKG) , intent(in) :: reltol
7509 type(GK51_type) , intent(in) :: qrule
7510 real(RKG) , intent(out) :: integral, abserr
7511 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7512 integer(IK) , intent(out) , contiguous :: sindex(:)
7513 integer(IK) , intent(out) :: neval
7514 integer(IK) , intent(out) :: nint
7515 integer(IK) :: err
7516 end function
7517#endif
7518
7519#if RK4_ENABLED
7520 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7522 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7523#endif
7524 use pm_kind, only: RKG => RK4
7525 procedure(real(RKG)) :: getFunc
7526 real(RKG) , intent(in) :: lb
7527 type(pinf_type) , intent(in) :: ub
7528 real(RKG) , intent(in) :: abstol
7529 real(RKG) , intent(in) :: reltol
7530 type(GK51_type) , intent(in) :: qrule
7531 real(RKG) , intent(out) :: integral, abserr
7532 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7533 integer(IK) , intent(out) , contiguous :: sindex(:)
7534 integer(IK) , intent(out) :: neval
7535 integer(IK) , intent(out) :: nint
7536 integer(IK) :: err
7537 end function
7538#endif
7539
7540#if RK3_ENABLED
7541 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7543 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7544#endif
7545 use pm_kind, only: RKG => RK3
7546 procedure(real(RKG)) :: getFunc
7547 real(RKG) , intent(in) :: lb
7548 type(pinf_type) , intent(in) :: ub
7549 real(RKG) , intent(in) :: abstol
7550 real(RKG) , intent(in) :: reltol
7551 type(GK51_type) , intent(in) :: qrule
7552 real(RKG) , intent(out) :: integral, abserr
7553 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7554 integer(IK) , intent(out) , contiguous :: sindex(:)
7555 integer(IK) , intent(out) :: neval
7556 integer(IK) , intent(out) :: nint
7557 integer(IK) :: err
7558 end function
7559#endif
7560
7561#if RK2_ENABLED
7562 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7564 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7565#endif
7566 use pm_kind, only: RKG => RK2
7567 procedure(real(RKG)) :: getFunc
7568 real(RKG) , intent(in) :: lb
7569 type(pinf_type) , intent(in) :: ub
7570 real(RKG) , intent(in) :: abstol
7571 real(RKG) , intent(in) :: reltol
7572 type(GK51_type) , intent(in) :: qrule
7573 real(RKG) , intent(out) :: integral, abserr
7574 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7575 integer(IK) , intent(out) , contiguous :: sindex(:)
7576 integer(IK) , intent(out) :: neval
7577 integer(IK) , intent(out) :: nint
7578 integer(IK) :: err
7579 end function
7580#endif
7581
7582#if RK1_ENABLED
7583 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7585 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7586#endif
7587 use pm_kind, only: RKG => RK1
7588 procedure(real(RKG)) :: getFunc
7589 real(RKG) , intent(in) :: lb
7590 type(pinf_type) , intent(in) :: ub
7591 real(RKG) , intent(in) :: abstol
7592 real(RKG) , intent(in) :: reltol
7593 type(GK51_type) , intent(in) :: qrule
7594 real(RKG) , intent(out) :: integral, abserr
7595 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7596 integer(IK) , intent(out) , contiguous :: sindex(:)
7597 integer(IK) , intent(out) :: neval
7598 integer(IK) , intent(out) :: nint
7599 integer(IK) :: err
7600 end function
7601#endif
7602
7603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7604
7605#if RK5_ENABLED
7606 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7608 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7609#endif
7610 use pm_kind, only: RKG => RK5
7611 procedure(real(RKG)) :: getFunc
7612 type(ninf_type) , intent(in) :: lb
7613 real(RKG) , intent(in) :: ub
7614 real(RKG) , intent(in) :: abstol
7615 real(RKG) , intent(in) :: reltol
7616 type(GK51_type) , intent(in) :: qrule
7617 real(RKG) , intent(out) :: integral, abserr
7618 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7619 integer(IK) , intent(out) , contiguous :: sindex(:)
7620 integer(IK) , intent(out) :: neval
7621 integer(IK) , intent(out) :: nint
7622 integer(IK) :: err
7623 end function
7624#endif
7625
7626#if RK4_ENABLED
7627 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7629 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7630#endif
7631 use pm_kind, only: RKG => RK4
7632 procedure(real(RKG)) :: getFunc
7633 type(ninf_type) , intent(in) :: lb
7634 real(RKG) , intent(in) :: ub
7635 real(RKG) , intent(in) :: abstol
7636 real(RKG) , intent(in) :: reltol
7637 type(GK51_type) , intent(in) :: qrule
7638 real(RKG) , intent(out) :: integral, abserr
7639 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7640 integer(IK) , intent(out) , contiguous :: sindex(:)
7641 integer(IK) , intent(out) :: neval
7642 integer(IK) , intent(out) :: nint
7643 integer(IK) :: err
7644 end function
7645#endif
7646
7647#if RK3_ENABLED
7648 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7651#endif
7652 use pm_kind, only: RKG => RK3
7653 procedure(real(RKG)) :: getFunc
7654 type(ninf_type) , intent(in) :: lb
7655 real(RKG) , intent(in) :: ub
7656 real(RKG) , intent(in) :: abstol
7657 real(RKG) , intent(in) :: reltol
7658 type(GK51_type) , intent(in) :: qrule
7659 real(RKG) , intent(out) :: integral, abserr
7660 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7661 integer(IK) , intent(out) , contiguous :: sindex(:)
7662 integer(IK) , intent(out) :: neval
7663 integer(IK) , intent(out) :: nint
7664 integer(IK) :: err
7665 end function
7666#endif
7667
7668#if RK2_ENABLED
7669 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7671 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7672#endif
7673 use pm_kind, only: RKG => RK2
7674 procedure(real(RKG)) :: getFunc
7675 type(ninf_type) , intent(in) :: lb
7676 real(RKG) , intent(in) :: ub
7677 real(RKG) , intent(in) :: abstol
7678 real(RKG) , intent(in) :: reltol
7679 type(GK51_type) , intent(in) :: qrule
7680 real(RKG) , intent(out) :: integral, abserr
7681 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7682 integer(IK) , intent(out) , contiguous :: sindex(:)
7683 integer(IK) , intent(out) :: neval
7684 integer(IK) , intent(out) :: nint
7685 integer(IK) :: err
7686 end function
7687#endif
7688
7689#if RK1_ENABLED
7690 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7692 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7693#endif
7694 use pm_kind, only: RKG => RK1
7695 procedure(real(RKG)) :: getFunc
7696 type(ninf_type) , intent(in) :: lb
7697 real(RKG) , intent(in) :: ub
7698 real(RKG) , intent(in) :: abstol
7699 real(RKG) , intent(in) :: reltol
7700 type(GK51_type) , intent(in) :: qrule
7701 real(RKG) , intent(out) :: integral, abserr
7702 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7703 integer(IK) , intent(out) , contiguous :: sindex(:)
7704 integer(IK) , intent(out) :: neval
7705 integer(IK) , intent(out) :: nint
7706 integer(IK) :: err
7707 end function
7708#endif
7709
7710 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7711
7712#if RK5_ENABLED
7713 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7715 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7716#endif
7717 use pm_kind, only: RKG => RK5
7718 procedure(real(RKG)) :: getFunc
7719 type(ninf_type) , intent(in) :: lb
7720 type(pinf_type) , intent(in) :: ub
7721 real(RKG) , intent(in) :: abstol
7722 real(RKG) , intent(in) :: reltol
7723 type(GK51_type) , intent(in) :: qrule
7724 real(RKG) , intent(out) :: integral, abserr
7725 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7726 integer(IK) , intent(out) , contiguous :: sindex(:)
7727 integer(IK) , intent(out) :: neval
7728 integer(IK) , intent(out) :: nint
7729 integer(IK) :: err
7730 end function
7731#endif
7732
7733#if RK4_ENABLED
7734 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7736 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7737#endif
7738 use pm_kind, only: RKG => RK4
7739 procedure(real(RKG)) :: getFunc
7740 type(ninf_type) , intent(in) :: lb
7741 type(pinf_type) , intent(in) :: ub
7742 real(RKG) , intent(in) :: abstol
7743 real(RKG) , intent(in) :: reltol
7744 type(GK51_type) , intent(in) :: qrule
7745 real(RKG) , intent(out) :: integral, abserr
7746 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7747 integer(IK) , intent(out) , contiguous :: sindex(:)
7748 integer(IK) , intent(out) :: neval
7749 integer(IK) , intent(out) :: nint
7750 integer(IK) :: err
7751 end function
7752#endif
7753
7754#if RK3_ENABLED
7755 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7757 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7758#endif
7759 use pm_kind, only: RKG => RK3
7760 procedure(real(RKG)) :: getFunc
7761 type(ninf_type) , intent(in) :: lb
7762 type(pinf_type) , intent(in) :: ub
7763 real(RKG) , intent(in) :: abstol
7764 real(RKG) , intent(in) :: reltol
7765 type(GK51_type) , intent(in) :: qrule
7766 real(RKG) , intent(out) :: integral, abserr
7767 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7768 integer(IK) , intent(out) , contiguous :: sindex(:)
7769 integer(IK) , intent(out) :: neval
7770 integer(IK) , intent(out) :: nint
7771 integer(IK) :: err
7772 end function
7773#endif
7774
7775#if RK2_ENABLED
7776 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7778 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7779#endif
7780 use pm_kind, only: RKG => RK2
7781 procedure(real(RKG)) :: getFunc
7782 type(ninf_type) , intent(in) :: lb
7783 type(pinf_type) , intent(in) :: ub
7784 real(RKG) , intent(in) :: abstol
7785 real(RKG) , intent(in) :: reltol
7786 type(GK51_type) , intent(in) :: qrule
7787 real(RKG) , intent(out) :: integral, abserr
7788 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7789 integer(IK) , intent(out) , contiguous :: sindex(:)
7790 integer(IK) , intent(out) :: neval
7791 integer(IK) , intent(out) :: nint
7792 integer(IK) :: err
7793 end function
7794#endif
7795
7796#if RK1_ENABLED
7797 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7799 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7800#endif
7801 use pm_kind, only: RKG => RK1
7802 procedure(real(RKG)) :: getFunc
7803 type(ninf_type) , intent(in) :: lb
7804 type(pinf_type) , intent(in) :: ub
7805 real(RKG) , intent(in) :: abstol
7806 real(RKG) , intent(in) :: reltol
7807 type(GK51_type) , intent(in) :: qrule
7808 real(RKG) , intent(out) :: integral, abserr
7809 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7810 integer(IK) , intent(out) , contiguous :: sindex(:)
7811 integer(IK) , intent(out) :: neval
7812 integer(IK) , intent(out) :: nint
7813 integer(IK) :: err
7814 end function
7815#endif
7816
7817 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7818
7819 end interface
7820
7821 ! QAGD_GK61
7822
7823 interface getQuadErr
7824
7825 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7826
7827#if RK5_ENABLED
7828 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7831#endif
7832 use pm_kind, only: RKG => RK5
7833 procedure(real(RKG)) :: getFunc
7834 real(RKG) , intent(in) :: lb
7835 real(RKG) , intent(in) :: ub
7836 real(RKG) , intent(in) :: abstol
7837 real(RKG) , intent(in) :: reltol
7838 type(GK61_type) , intent(in) :: qrule
7839 real(RKG) , intent(out) :: integral, abserr
7840 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7841 integer(IK) , intent(out) , contiguous :: sindex(:)
7842 integer(IK) , intent(out) :: neval
7843 integer(IK) , intent(out) :: nint
7844 integer(IK) :: err
7845 end function
7846#endif
7847
7848#if RK4_ENABLED
7849 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7851 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7852#endif
7853 use pm_kind, only: RKG => RK4
7854 procedure(real(RKG)) :: getFunc
7855 real(RKG) , intent(in) :: lb
7856 real(RKG) , intent(in) :: ub
7857 real(RKG) , intent(in) :: abstol
7858 real(RKG) , intent(in) :: reltol
7859 type(GK61_type) , intent(in) :: qrule
7860 real(RKG) , intent(out) :: integral, abserr
7861 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7862 integer(IK) , intent(out) , contiguous :: sindex(:)
7863 integer(IK) , intent(out) :: neval
7864 integer(IK) , intent(out) :: nint
7865 integer(IK) :: err
7866 end function
7867#endif
7868
7869#if RK3_ENABLED
7870 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7872 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7873#endif
7874 use pm_kind, only: RKG => RK3
7875 procedure(real(RKG)) :: getFunc
7876 real(RKG) , intent(in) :: lb
7877 real(RKG) , intent(in) :: ub
7878 real(RKG) , intent(in) :: abstol
7879 real(RKG) , intent(in) :: reltol
7880 type(GK61_type) , intent(in) :: qrule
7881 real(RKG) , intent(out) :: integral, abserr
7882 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7883 integer(IK) , intent(out) , contiguous :: sindex(:)
7884 integer(IK) , intent(out) :: neval
7885 integer(IK) , intent(out) :: nint
7886 integer(IK) :: err
7887 end function
7888#endif
7889
7890#if RK2_ENABLED
7891 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7893 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7894#endif
7895 use pm_kind, only: RKG => RK2
7896 procedure(real(RKG)) :: getFunc
7897 real(RKG) , intent(in) :: lb
7898 real(RKG) , intent(in) :: ub
7899 real(RKG) , intent(in) :: abstol
7900 real(RKG) , intent(in) :: reltol
7901 type(GK61_type) , intent(in) :: qrule
7902 real(RKG) , intent(out) :: integral, abserr
7903 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7904 integer(IK) , intent(out) , contiguous :: sindex(:)
7905 integer(IK) , intent(out) :: neval
7906 integer(IK) , intent(out) :: nint
7907 integer(IK) :: err
7908 end function
7909#endif
7910
7911#if RK1_ENABLED
7912 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7914 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7915#endif
7916 use pm_kind, only: RKG => RK1
7917 procedure(real(RKG)) :: getFunc
7918 real(RKG) , intent(in) :: lb
7919 real(RKG) , intent(in) :: ub
7920 real(RKG) , intent(in) :: abstol
7921 real(RKG) , intent(in) :: reltol
7922 type(GK61_type) , intent(in) :: qrule
7923 real(RKG) , intent(out) :: integral, abserr
7924 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7925 integer(IK) , intent(out) , contiguous :: sindex(:)
7926 integer(IK) , intent(out) :: neval
7927 integer(IK) , intent(out) :: nint
7928 integer(IK) :: err
7929 end function
7930#endif
7931
7932 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7933
7934#if RK5_ENABLED
7935 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7937 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7938#endif
7939 use pm_kind, only: RKG => RK5
7940 procedure(real(RKG)) :: getFunc
7941 real(RKG) , intent(in) :: lb
7942 type(pinf_type) , intent(in) :: ub
7943 real(RKG) , intent(in) :: abstol
7944 real(RKG) , intent(in) :: reltol
7945 type(GK61_type) , intent(in) :: qrule
7946 real(RKG) , intent(out) :: integral, abserr
7947 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7948 integer(IK) , intent(out) , contiguous :: sindex(:)
7949 integer(IK) , intent(out) :: neval
7950 integer(IK) , intent(out) :: nint
7951 integer(IK) :: err
7952 end function
7953#endif
7954
7955#if RK4_ENABLED
7956 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7958 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7959#endif
7960 use pm_kind, only: RKG => RK4
7961 procedure(real(RKG)) :: getFunc
7962 real(RKG) , intent(in) :: lb
7963 type(pinf_type) , intent(in) :: ub
7964 real(RKG) , intent(in) :: abstol
7965 real(RKG) , intent(in) :: reltol
7966 type(GK61_type) , intent(in) :: qrule
7967 real(RKG) , intent(out) :: integral, abserr
7968 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7969 integer(IK) , intent(out) , contiguous :: sindex(:)
7970 integer(IK) , intent(out) :: neval
7971 integer(IK) , intent(out) :: nint
7972 integer(IK) :: err
7973 end function
7974#endif
7975
7976#if RK3_ENABLED
7977 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7979 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7980#endif
7981 use pm_kind, only: RKG => RK3
7982 procedure(real(RKG)) :: getFunc
7983 real(RKG) , intent(in) :: lb
7984 type(pinf_type) , intent(in) :: ub
7985 real(RKG) , intent(in) :: abstol
7986 real(RKG) , intent(in) :: reltol
7987 type(GK61_type) , intent(in) :: qrule
7988 real(RKG) , intent(out) :: integral, abserr
7989 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
7990 integer(IK) , intent(out) , contiguous :: sindex(:)
7991 integer(IK) , intent(out) :: neval
7992 integer(IK) , intent(out) :: nint
7993 integer(IK) :: err
7994 end function
7995#endif
7996
7997#if RK2_ENABLED
7998 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8000 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
8001#endif
8002 use pm_kind, only: RKG => RK2
8003 procedure(real(RKG)) :: getFunc
8004 real(RKG) , intent(in) :: lb
8005 type(pinf_type) , intent(in) :: ub
8006 real(RKG) , intent(in) :: abstol
8007 real(RKG) , intent(in) :: reltol
8008 type(GK61_type) , intent(in) :: qrule
8009 real(RKG) , intent(out) :: integral, abserr
8010 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8011 integer(IK) , intent(out) , contiguous :: sindex(:)
8012 integer(IK) , intent(out) :: neval
8013 integer(IK) , intent(out) :: nint
8014 integer(IK) :: err
8015 end function
8016#endif
8017
8018#if RK1_ENABLED
8019 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8021 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
8022#endif
8023 use pm_kind, only: RKG => RK1
8024 procedure(real(RKG)) :: getFunc
8025 real(RKG) , intent(in) :: lb
8026 type(pinf_type) , intent(in) :: ub
8027 real(RKG) , intent(in) :: abstol
8028 real(RKG) , intent(in) :: reltol
8029 type(GK61_type) , intent(in) :: qrule
8030 real(RKG) , intent(out) :: integral, abserr
8031 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8032 integer(IK) , intent(out) , contiguous :: sindex(:)
8033 integer(IK) , intent(out) :: neval
8034 integer(IK) , intent(out) :: nint
8035 integer(IK) :: err
8036 end function
8037#endif
8038
8039 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8040
8041#if RK5_ENABLED
8042 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8044 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
8045#endif
8046 use pm_kind, only: RKG => RK5
8047 procedure(real(RKG)) :: getFunc
8048 type(ninf_type) , intent(in) :: lb
8049 real(RKG) , intent(in) :: ub
8050 real(RKG) , intent(in) :: abstol
8051 real(RKG) , intent(in) :: reltol
8052 type(GK61_type) , intent(in) :: qrule
8053 real(RKG) , intent(out) :: integral, abserr
8054 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8055 integer(IK) , intent(out) , contiguous :: sindex(:)
8056 integer(IK) , intent(out) :: neval
8057 integer(IK) , intent(out) :: nint
8058 integer(IK) :: err
8059 end function
8060#endif
8061
8062#if RK4_ENABLED
8063 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8065 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
8066#endif
8067 use pm_kind, only: RKG => RK4
8068 procedure(real(RKG)) :: getFunc
8069 type(ninf_type) , intent(in) :: lb
8070 real(RKG) , intent(in) :: ub
8071 real(RKG) , intent(in) :: abstol
8072 real(RKG) , intent(in) :: reltol
8073 type(GK61_type) , intent(in) :: qrule
8074 real(RKG) , intent(out) :: integral, abserr
8075 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8076 integer(IK) , intent(out) , contiguous :: sindex(:)
8077 integer(IK) , intent(out) :: neval
8078 integer(IK) , intent(out) :: nint
8079 integer(IK) :: err
8080 end function
8081#endif
8082
8083#if RK3_ENABLED
8084 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8086 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8087#endif
8088 use pm_kind, only: RKG => RK3
8089 procedure(real(RKG)) :: getFunc
8090 type(ninf_type) , intent(in) :: lb
8091 real(RKG) , intent(in) :: ub
8092 real(RKG) , intent(in) :: abstol
8093 real(RKG) , intent(in) :: reltol
8094 type(GK61_type) , intent(in) :: qrule
8095 real(RKG) , intent(out) :: integral, abserr
8096 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8097 integer(IK) , intent(out) , contiguous :: sindex(:)
8098 integer(IK) , intent(out) :: neval
8099 integer(IK) , intent(out) :: nint
8100 integer(IK) :: err
8101 end function
8102#endif
8103
8104#if RK2_ENABLED
8105 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8107 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8108#endif
8109 use pm_kind, only: RKG => RK2
8110 procedure(real(RKG)) :: getFunc
8111 type(ninf_type) , intent(in) :: lb
8112 real(RKG) , intent(in) :: ub
8113 real(RKG) , intent(in) :: abstol
8114 real(RKG) , intent(in) :: reltol
8115 type(GK61_type) , intent(in) :: qrule
8116 real(RKG) , intent(out) :: integral, abserr
8117 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8118 integer(IK) , intent(out) , contiguous :: sindex(:)
8119 integer(IK) , intent(out) :: neval
8120 integer(IK) , intent(out) :: nint
8121 integer(IK) :: err
8122 end function
8123#endif
8124
8125#if RK1_ENABLED
8126 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8128 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8129#endif
8130 use pm_kind, only: RKG => RK1
8131 procedure(real(RKG)) :: getFunc
8132 type(ninf_type) , intent(in) :: lb
8133 real(RKG) , intent(in) :: ub
8134 real(RKG) , intent(in) :: abstol
8135 real(RKG) , intent(in) :: reltol
8136 type(GK61_type) , intent(in) :: qrule
8137 real(RKG) , intent(out) :: integral, abserr
8138 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8139 integer(IK) , intent(out) , contiguous :: sindex(:)
8140 integer(IK) , intent(out) :: neval
8141 integer(IK) , intent(out) :: nint
8142 integer(IK) :: err
8143 end function
8144#endif
8145
8146 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8147
8148#if RK5_ENABLED
8149 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8151 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8152#endif
8153 use pm_kind, only: RKG => RK5
8154 procedure(real(RKG)) :: getFunc
8155 type(ninf_type) , intent(in) :: lb
8156 type(pinf_type) , intent(in) :: ub
8157 real(RKG) , intent(in) :: abstol
8158 real(RKG) , intent(in) :: reltol
8159 type(GK61_type) , intent(in) :: qrule
8160 real(RKG) , intent(out) :: integral, abserr
8161 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8162 integer(IK) , intent(out) , contiguous :: sindex(:)
8163 integer(IK) , intent(out) :: neval
8164 integer(IK) , intent(out) :: nint
8165 integer(IK) :: err
8166 end function
8167#endif
8168
8169#if RK4_ENABLED
8170 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8172 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8173#endif
8174 use pm_kind, only: RKG => RK4
8175 procedure(real(RKG)) :: getFunc
8176 type(ninf_type) , intent(in) :: lb
8177 type(pinf_type) , intent(in) :: ub
8178 real(RKG) , intent(in) :: abstol
8179 real(RKG) , intent(in) :: reltol
8180 type(GK61_type) , intent(in) :: qrule
8181 real(RKG) , intent(out) :: integral, abserr
8182 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8183 integer(IK) , intent(out) , contiguous :: sindex(:)
8184 integer(IK) , intent(out) :: neval
8185 integer(IK) , intent(out) :: nint
8186 integer(IK) :: err
8187 end function
8188#endif
8189
8190#if RK3_ENABLED
8191 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8193 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8194#endif
8195 use pm_kind, only: RKG => RK3
8196 procedure(real(RKG)) :: getFunc
8197 type(ninf_type) , intent(in) :: lb
8198 type(pinf_type) , intent(in) :: ub
8199 real(RKG) , intent(in) :: abstol
8200 real(RKG) , intent(in) :: reltol
8201 type(GK61_type) , intent(in) :: qrule
8202 real(RKG) , intent(out) :: integral, abserr
8203 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8204 integer(IK) , intent(out) , contiguous :: sindex(:)
8205 integer(IK) , intent(out) :: neval
8206 integer(IK) , intent(out) :: nint
8207 integer(IK) :: err
8208 end function
8209#endif
8210
8211#if RK2_ENABLED
8212 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8214 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8215#endif
8216 use pm_kind, only: RKG => RK2
8217 procedure(real(RKG)) :: getFunc
8218 type(ninf_type) , intent(in) :: lb
8219 type(pinf_type) , intent(in) :: ub
8220 real(RKG) , intent(in) :: abstol
8221 real(RKG) , intent(in) :: reltol
8222 type(GK61_type) , intent(in) :: qrule
8223 real(RKG) , intent(out) :: integral, abserr
8224 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8225 integer(IK) , intent(out) , contiguous :: sindex(:)
8226 integer(IK) , intent(out) :: neval
8227 integer(IK) , intent(out) :: nint
8228 integer(IK) :: err
8229 end function
8230#endif
8231
8232#if RK1_ENABLED
8233 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8235 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8236#endif
8237 use pm_kind, only: RKG => RK1
8238 procedure(real(RKG)) :: getFunc
8239 type(ninf_type) , intent(in) :: lb
8240 type(pinf_type) , intent(in) :: ub
8241 real(RKG) , intent(in) :: abstol
8242 real(RKG) , intent(in) :: reltol
8243 type(GK61_type) , intent(in) :: qrule
8244 real(RKG) , intent(out) :: integral, abserr
8245 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8246 integer(IK) , intent(out) , contiguous :: sindex(:)
8247 integer(IK) , intent(out) :: neval
8248 integer(IK) , intent(out) :: nint
8249 integer(IK) :: err
8250 end function
8251#endif
8252
8253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8254
8255 end interface
8256
8257 ! QAGD_GKXX
8258
8259 interface getQuadErr
8260
8261 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8262
8263#if RK5_ENABLED
8264 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8266 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8267#endif
8268 use pm_kind, only: RKG => RK5
8269 procedure(real(RKG)) :: getFunc
8270 real(RKG) , intent(in) :: lb
8271 real(RKG) , intent(in) :: ub
8272 real(RKG) , intent(in) :: abstol
8273 real(RKG) , intent(in) :: reltol
8274 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8275 real(RKG) , intent(out) :: integral, abserr
8276 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8277 integer(IK) , intent(out) , contiguous :: sindex(:)
8278 integer(IK) , intent(out) :: neval
8279 integer(IK) , intent(out) :: nint
8280 integer(IK) :: err
8281 end function
8282#endif
8283
8284#if RK4_ENABLED
8285 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8287 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8288#endif
8289 use pm_kind, only: RKG => RK4
8290 procedure(real(RKG)) :: getFunc
8291 real(RKG) , intent(in) :: lb
8292 real(RKG) , intent(in) :: ub
8293 real(RKG) , intent(in) :: abstol
8294 real(RKG) , intent(in) :: reltol
8295 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8296 real(RKG) , intent(out) :: integral, abserr
8297 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8298 integer(IK) , intent(out) , contiguous :: sindex(:)
8299 integer(IK) , intent(out) :: neval
8300 integer(IK) , intent(out) :: nint
8301 integer(IK) :: err
8302 end function
8303#endif
8304
8305#if RK3_ENABLED
8306 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8309#endif
8310 use pm_kind, only: RKG => RK3
8311 procedure(real(RKG)) :: getFunc
8312 real(RKG) , intent(in) :: lb
8313 real(RKG) , intent(in) :: ub
8314 real(RKG) , intent(in) :: abstol
8315 real(RKG) , intent(in) :: reltol
8316 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8317 real(RKG) , intent(out) :: integral, abserr
8318 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8319 integer(IK) , intent(out) , contiguous :: sindex(:)
8320 integer(IK) , intent(out) :: neval
8321 integer(IK) , intent(out) :: nint
8322 integer(IK) :: err
8323 end function
8324#endif
8325
8326#if RK2_ENABLED
8327 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8329 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8330#endif
8331 use pm_kind, only: RKG => RK2
8332 procedure(real(RKG)) :: getFunc
8333 real(RKG) , intent(in) :: lb
8334 real(RKG) , intent(in) :: ub
8335 real(RKG) , intent(in) :: abstol
8336 real(RKG) , intent(in) :: reltol
8337 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8338 real(RKG) , intent(out) :: integral, abserr
8339 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8340 integer(IK) , intent(out) , contiguous :: sindex(:)
8341 integer(IK) , intent(out) :: neval
8342 integer(IK) , intent(out) :: nint
8343 integer(IK) :: err
8344 end function
8345#endif
8346
8347#if RK1_ENABLED
8348 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8350 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8351#endif
8352 use pm_kind, only: RKG => RK1
8353 procedure(real(RKG)) :: getFunc
8354 real(RKG) , intent(in) :: lb
8355 real(RKG) , intent(in) :: ub
8356 real(RKG) , intent(in) :: abstol
8357 real(RKG) , intent(in) :: reltol
8358 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8359 real(RKG) , intent(out) :: integral, abserr
8360 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8361 integer(IK) , intent(out) , contiguous :: sindex(:)
8362 integer(IK) , intent(out) :: neval
8363 integer(IK) , intent(out) :: nint
8364 integer(IK) :: err
8365 end function
8366#endif
8367
8368 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8369
8370#if RK5_ENABLED
8371 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8373 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8374#endif
8375 use pm_kind, only: RKG => RK5
8376 procedure(real(RKG)) :: getFunc
8377 real(RKG) , intent(in) :: lb
8378 type(pinf_type) , intent(in) :: ub
8379 real(RKG) , intent(in) :: abstol
8380 real(RKG) , intent(in) :: reltol
8381 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8382 real(RKG) , intent(out) :: integral, abserr
8383 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8384 integer(IK) , intent(out) , contiguous :: sindex(:)
8385 integer(IK) , intent(out) :: neval
8386 integer(IK) , intent(out) :: nint
8387 integer(IK) :: err
8388 end function
8389#endif
8390
8391#if RK4_ENABLED
8392 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8394 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8395#endif
8396 use pm_kind, only: RKG => RK4
8397 procedure(real(RKG)) :: getFunc
8398 real(RKG) , intent(in) :: lb
8399 type(pinf_type) , intent(in) :: ub
8400 real(RKG) , intent(in) :: abstol
8401 real(RKG) , intent(in) :: reltol
8402 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8403 real(RKG) , intent(out) :: integral, abserr
8404 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8405 integer(IK) , intent(out) , contiguous :: sindex(:)
8406 integer(IK) , intent(out) :: neval
8407 integer(IK) , intent(out) :: nint
8408 integer(IK) :: err
8409 end function
8410#endif
8411
8412#if RK3_ENABLED
8413 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8415 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8416#endif
8417 use pm_kind, only: RKG => RK3
8418 procedure(real(RKG)) :: getFunc
8419 real(RKG) , intent(in) :: lb
8420 type(pinf_type) , intent(in) :: ub
8421 real(RKG) , intent(in) :: abstol
8422 real(RKG) , intent(in) :: reltol
8423 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8424 real(RKG) , intent(out) :: integral, abserr
8425 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8426 integer(IK) , intent(out) , contiguous :: sindex(:)
8427 integer(IK) , intent(out) :: neval
8428 integer(IK) , intent(out) :: nint
8429 integer(IK) :: err
8430 end function
8431#endif
8432
8433#if RK2_ENABLED
8434 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8436 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8437#endif
8438 use pm_kind, only: RKG => RK2
8439 procedure(real(RKG)) :: getFunc
8440 real(RKG) , intent(in) :: lb
8441 type(pinf_type) , intent(in) :: ub
8442 real(RKG) , intent(in) :: abstol
8443 real(RKG) , intent(in) :: reltol
8444 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8445 real(RKG) , intent(out) :: integral, abserr
8446 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8447 integer(IK) , intent(out) , contiguous :: sindex(:)
8448 integer(IK) , intent(out) :: neval
8449 integer(IK) , intent(out) :: nint
8450 integer(IK) :: err
8451 end function
8452#endif
8453
8454#if RK1_ENABLED
8455 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8457 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8458#endif
8459 use pm_kind, only: RKG => RK1
8460 procedure(real(RKG)) :: getFunc
8461 real(RKG) , intent(in) :: lb
8462 type(pinf_type) , intent(in) :: ub
8463 real(RKG) , intent(in) :: abstol
8464 real(RKG) , intent(in) :: reltol
8465 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8466 real(RKG) , intent(out) :: integral, abserr
8467 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8468 integer(IK) , intent(out) , contiguous :: sindex(:)
8469 integer(IK) , intent(out) :: neval
8470 integer(IK) , intent(out) :: nint
8471 integer(IK) :: err
8472 end function
8473#endif
8474
8475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8476
8477#if RK5_ENABLED
8478 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8480 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8481#endif
8482 use pm_kind, only: RKG => RK5
8483 procedure(real(RKG)) :: getFunc
8484 type(ninf_type) , intent(in) :: lb
8485 real(RKG) , intent(in) :: ub
8486 real(RKG) , intent(in) :: abstol
8487 real(RKG) , intent(in) :: reltol
8488 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8489 real(RKG) , intent(out) :: integral, abserr
8490 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8491 integer(IK) , intent(out) , contiguous :: sindex(:)
8492 integer(IK) , intent(out) :: neval
8493 integer(IK) , intent(out) :: nint
8494 integer(IK) :: err
8495 end function
8496#endif
8497
8498#if RK4_ENABLED
8499 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8501 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8502#endif
8503 use pm_kind, only: RKG => RK4
8504 procedure(real(RKG)) :: getFunc
8505 type(ninf_type) , intent(in) :: lb
8506 real(RKG) , intent(in) :: ub
8507 real(RKG) , intent(in) :: abstol
8508 real(RKG) , intent(in) :: reltol
8509 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8510 real(RKG) , intent(out) :: integral, abserr
8511 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8512 integer(IK) , intent(out) , contiguous :: sindex(:)
8513 integer(IK) , intent(out) :: neval
8514 integer(IK) , intent(out) :: nint
8515 integer(IK) :: err
8516 end function
8517#endif
8518
8519#if RK3_ENABLED
8520 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8522 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8523#endif
8524 use pm_kind, only: RKG => RK3
8525 procedure(real(RKG)) :: getFunc
8526 type(ninf_type) , intent(in) :: lb
8527 real(RKG) , intent(in) :: ub
8528 real(RKG) , intent(in) :: abstol
8529 real(RKG) , intent(in) :: reltol
8530 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8531 real(RKG) , intent(out) :: integral, abserr
8532 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8533 integer(IK) , intent(out) , contiguous :: sindex(:)
8534 integer(IK) , intent(out) :: neval
8535 integer(IK) , intent(out) :: nint
8536 integer(IK) :: err
8537 end function
8538#endif
8539
8540#if RK2_ENABLED
8541 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8543 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8544#endif
8545 use pm_kind, only: RKG => RK2
8546 procedure(real(RKG)) :: getFunc
8547 type(ninf_type) , intent(in) :: lb
8548 real(RKG) , intent(in) :: ub
8549 real(RKG) , intent(in) :: abstol
8550 real(RKG) , intent(in) :: reltol
8551 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8552 real(RKG) , intent(out) :: integral, abserr
8553 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8554 integer(IK) , intent(out) , contiguous :: sindex(:)
8555 integer(IK) , intent(out) :: neval
8556 integer(IK) , intent(out) :: nint
8557 integer(IK) :: err
8558 end function
8559#endif
8560
8561#if RK1_ENABLED
8562 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8564 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8565#endif
8566 use pm_kind, only: RKG => RK1
8567 procedure(real(RKG)) :: getFunc
8568 type(ninf_type) , intent(in) :: lb
8569 real(RKG) , intent(in) :: ub
8570 real(RKG) , intent(in) :: abstol
8571 real(RKG) , intent(in) :: reltol
8572 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8573 real(RKG) , intent(out) :: integral, abserr
8574 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8575 integer(IK) , intent(out) , contiguous :: sindex(:)
8576 integer(IK) , intent(out) :: neval
8577 integer(IK) , intent(out) :: nint
8578 integer(IK) :: err
8579 end function
8580#endif
8581
8582 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8583
8584#if RK5_ENABLED
8585 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8587 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8588#endif
8589 use pm_kind, only: RKG => RK5
8590 procedure(real(RKG)) :: getFunc
8591 type(ninf_type) , intent(in) :: lb
8592 type(pinf_type) , intent(in) :: ub
8593 real(RKG) , intent(in) :: abstol
8594 real(RKG) , intent(in) :: reltol
8595 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8596 real(RKG) , intent(out) :: integral, abserr
8597 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8598 integer(IK) , intent(out) , contiguous :: sindex(:)
8599 integer(IK) , intent(out) :: neval
8600 integer(IK) , intent(out) :: nint
8601 integer(IK) :: err
8602 end function
8603#endif
8604
8605#if RK4_ENABLED
8606 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8608 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8609#endif
8610 use pm_kind, only: RKG => RK4
8611 procedure(real(RKG)) :: getFunc
8612 type(ninf_type) , intent(in) :: lb
8613 type(pinf_type) , intent(in) :: ub
8614 real(RKG) , intent(in) :: abstol
8615 real(RKG) , intent(in) :: reltol
8616 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8617 real(RKG) , intent(out) :: integral, abserr
8618 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8619 integer(IK) , intent(out) , contiguous :: sindex(:)
8620 integer(IK) , intent(out) :: neval
8621 integer(IK) , intent(out) :: nint
8622 integer(IK) :: err
8623 end function
8624#endif
8625
8626#if RK3_ENABLED
8627 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8629 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8630#endif
8631 use pm_kind, only: RKG => RK3
8632 procedure(real(RKG)) :: getFunc
8633 type(ninf_type) , intent(in) :: lb
8634 type(pinf_type) , intent(in) :: ub
8635 real(RKG) , intent(in) :: abstol
8636 real(RKG) , intent(in) :: reltol
8637 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8638 real(RKG) , intent(out) :: integral, abserr
8639 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8640 integer(IK) , intent(out) , contiguous :: sindex(:)
8641 integer(IK) , intent(out) :: neval
8642 integer(IK) , intent(out) :: nint
8643 integer(IK) :: err
8644 end function
8645#endif
8646
8647#if RK2_ENABLED
8648 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8651#endif
8652 use pm_kind, only: RKG => RK2
8653 procedure(real(RKG)) :: getFunc
8654 type(ninf_type) , intent(in) :: lb
8655 type(pinf_type) , intent(in) :: ub
8656 real(RKG) , intent(in) :: abstol
8657 real(RKG) , intent(in) :: reltol
8658 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8659 real(RKG) , intent(out) :: integral, abserr
8660 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8661 integer(IK) , intent(out) , contiguous :: sindex(:)
8662 integer(IK) , intent(out) :: neval
8663 integer(IK) , intent(out) :: nint
8664 integer(IK) :: err
8665 end function
8666#endif
8667
8668#if RK1_ENABLED
8669 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8671 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8672#endif
8673 use pm_kind, only: RKG => RK1
8674 procedure(real(RKG)) :: getFunc
8675 type(ninf_type) , intent(in) :: lb
8676 type(pinf_type) , intent(in) :: ub
8677 real(RKG) , intent(in) :: abstol
8678 real(RKG) , intent(in) :: reltol
8679 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8680 real(RKG) , intent(out) :: integral, abserr
8681 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8682 integer(IK) , intent(out) , contiguous :: sindex(:)
8683 integer(IK) , intent(out) :: neval
8684 integer(IK) , intent(out) :: nint
8685 integer(IK) :: err
8686 end function
8687#endif
8688
8689 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8690
8691 end interface
8692
8693!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8694
8695 ! QAGS_GK15
8696
8697 interface getQuadErr
8698
8699 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8700
8701#if RK5_ENABLED
8702 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8705#endif
8706 use pm_kind, only: RKG => RK5
8707 procedure(real(RKG)) :: getFunc
8708 real(RKG) , intent(in) :: lb
8709 real(RKG) , intent(in) :: ub
8710 real(RKG) , intent(in) :: abstol
8711 real(RKG) , intent(in) :: reltol
8712 type(GK15_type) , intent(in) :: qrule
8713 type(weps_type) , intent(in) :: help
8714 real(RKG) , intent(out) :: integral, abserr
8715 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8716 integer(IK) , intent(out) , contiguous :: sindex(:)
8717 integer(IK) , intent(out) :: neval
8718 integer(IK) , intent(out) :: nint
8719 integer(IK) :: err
8720 end function
8721#endif
8722
8723#if RK4_ENABLED
8724 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8727#endif
8728 use pm_kind, only: RKG => RK4
8729 procedure(real(RKG)) :: getFunc
8730 real(RKG) , intent(in) :: lb
8731 real(RKG) , intent(in) :: ub
8732 real(RKG) , intent(in) :: abstol
8733 real(RKG) , intent(in) :: reltol
8734 type(GK15_type) , intent(in) :: qrule
8735 type(weps_type) , intent(in) :: help
8736 real(RKG) , intent(out) :: integral, abserr
8737 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8738 integer(IK) , intent(out) , contiguous :: sindex(:)
8739 integer(IK) , intent(out) :: neval
8740 integer(IK) , intent(out) :: nint
8741 integer(IK) :: err
8742 end function
8743#endif
8744
8745#if RK3_ENABLED
8746 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8749#endif
8750 use pm_kind, only: RKG => RK3
8751 procedure(real(RKG)) :: getFunc
8752 real(RKG) , intent(in) :: lb
8753 real(RKG) , intent(in) :: ub
8754 real(RKG) , intent(in) :: abstol
8755 real(RKG) , intent(in) :: reltol
8756 type(GK15_type) , intent(in) :: qrule
8757 type(weps_type) , intent(in) :: help
8758 real(RKG) , intent(out) :: integral, abserr
8759 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8760 integer(IK) , intent(out) , contiguous :: sindex(:)
8761 integer(IK) , intent(out) :: neval
8762 integer(IK) , intent(out) :: nint
8763 integer(IK) :: err
8764 end function
8765#endif
8766
8767#if RK2_ENABLED
8768 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8771#endif
8772 use pm_kind, only: RKG => RK2
8773 procedure(real(RKG)) :: getFunc
8774 real(RKG) , intent(in) :: lb
8775 real(RKG) , intent(in) :: ub
8776 real(RKG) , intent(in) :: abstol
8777 real(RKG) , intent(in) :: reltol
8778 type(GK15_type) , intent(in) :: qrule
8779 type(weps_type) , intent(in) :: help
8780 real(RKG) , intent(out) :: integral, abserr
8781 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8782 integer(IK) , intent(out) , contiguous :: sindex(:)
8783 integer(IK) , intent(out) :: neval
8784 integer(IK) , intent(out) :: nint
8785 integer(IK) :: err
8786 end function
8787#endif
8788
8789#if RK1_ENABLED
8790 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8793#endif
8794 use pm_kind, only: RKG => RK1
8795 procedure(real(RKG)) :: getFunc
8796 real(RKG) , intent(in) :: lb
8797 real(RKG) , intent(in) :: ub
8798 real(RKG) , intent(in) :: abstol
8799 real(RKG) , intent(in) :: reltol
8800 type(GK15_type) , intent(in) :: qrule
8801 type(weps_type) , intent(in) :: help
8802 real(RKG) , intent(out) :: integral, abserr
8803 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8804 integer(IK) , intent(out) , contiguous :: sindex(:)
8805 integer(IK) , intent(out) :: neval
8806 integer(IK) , intent(out) :: nint
8807 integer(IK) :: err
8808 end function
8809#endif
8810
8811 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8812
8813#if RK5_ENABLED
8814 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8816 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8817#endif
8818 use pm_kind, only: RKG => RK5
8819 procedure(real(RKG)) :: getFunc
8820 real(RKG) , intent(in) :: lb
8821 type(pinf_type) , intent(in) :: ub
8822 real(RKG) , intent(in) :: abstol
8823 real(RKG) , intent(in) :: reltol
8824 type(GK15_type) , intent(in) :: qrule
8825 type(weps_type) , intent(in) :: help
8826 real(RKG) , intent(out) :: integral, abserr
8827 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8828 integer(IK) , intent(out) , contiguous :: sindex(:)
8829 integer(IK) , intent(out) :: neval
8830 integer(IK) , intent(out) :: nint
8831 integer(IK) :: err
8832 end function
8833#endif
8834
8835#if RK4_ENABLED
8836 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8838 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8839#endif
8840 use pm_kind, only: RKG => RK4
8841 procedure(real(RKG)) :: getFunc
8842 real(RKG) , intent(in) :: lb
8843 type(pinf_type) , intent(in) :: ub
8844 real(RKG) , intent(in) :: abstol
8845 real(RKG) , intent(in) :: reltol
8846 type(GK15_type) , intent(in) :: qrule
8847 type(weps_type) , intent(in) :: help
8848 real(RKG) , intent(out) :: integral, abserr
8849 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8850 integer(IK) , intent(out) , contiguous :: sindex(:)
8851 integer(IK) , intent(out) :: neval
8852 integer(IK) , intent(out) :: nint
8853 integer(IK) :: err
8854 end function
8855#endif
8856
8857#if RK3_ENABLED
8858 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8860 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8861#endif
8862 use pm_kind, only: RKG => RK3
8863 procedure(real(RKG)) :: getFunc
8864 real(RKG) , intent(in) :: lb
8865 type(pinf_type) , intent(in) :: ub
8866 real(RKG) , intent(in) :: abstol
8867 real(RKG) , intent(in) :: reltol
8868 type(GK15_type) , intent(in) :: qrule
8869 type(weps_type) , intent(in) :: help
8870 real(RKG) , intent(out) :: integral, abserr
8871 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8872 integer(IK) , intent(out) , contiguous :: sindex(:)
8873 integer(IK) , intent(out) :: neval
8874 integer(IK) , intent(out) :: nint
8875 integer(IK) :: err
8876 end function
8877#endif
8878
8879#if RK2_ENABLED
8880 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8883#endif
8884 use pm_kind, only: RKG => RK2
8885 procedure(real(RKG)) :: getFunc
8886 real(RKG) , intent(in) :: lb
8887 type(pinf_type) , intent(in) :: ub
8888 real(RKG) , intent(in) :: abstol
8889 real(RKG) , intent(in) :: reltol
8890 type(GK15_type) , intent(in) :: qrule
8891 type(weps_type) , intent(in) :: help
8892 real(RKG) , intent(out) :: integral, abserr
8893 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8894 integer(IK) , intent(out) , contiguous :: sindex(:)
8895 integer(IK) , intent(out) :: neval
8896 integer(IK) , intent(out) :: nint
8897 integer(IK) :: err
8898 end function
8899#endif
8900
8901#if RK1_ENABLED
8902 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8905#endif
8906 use pm_kind, only: RKG => RK1
8907 procedure(real(RKG)) :: getFunc
8908 real(RKG) , intent(in) :: lb
8909 type(pinf_type) , intent(in) :: ub
8910 real(RKG) , intent(in) :: abstol
8911 real(RKG) , intent(in) :: reltol
8912 type(GK15_type) , intent(in) :: qrule
8913 type(weps_type) , intent(in) :: help
8914 real(RKG) , intent(out) :: integral, abserr
8915 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8916 integer(IK) , intent(out) , contiguous :: sindex(:)
8917 integer(IK) , intent(out) :: neval
8918 integer(IK) , intent(out) :: nint
8919 integer(IK) :: err
8920 end function
8921#endif
8922
8923 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8924
8925#if RK5_ENABLED
8926 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8929#endif
8930 use pm_kind, only: RKG => RK5
8931 procedure(real(RKG)) :: getFunc
8932 type(ninf_type) , intent(in) :: lb
8933 real(RKG) , intent(in) :: ub
8934 real(RKG) , intent(in) :: abstol
8935 real(RKG) , intent(in) :: reltol
8936 type(GK15_type) , intent(in) :: qrule
8937 type(weps_type) , intent(in) :: help
8938 real(RKG) , intent(out) :: integral, abserr
8939 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8940 integer(IK) , intent(out) , contiguous :: sindex(:)
8941 integer(IK) , intent(out) :: neval
8942 integer(IK) , intent(out) :: nint
8943 integer(IK) :: err
8944 end function
8945#endif
8946
8947#if RK4_ENABLED
8948 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8950 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8951#endif
8952 use pm_kind, only: RKG => RK4
8953 procedure(real(RKG)) :: getFunc
8954 type(ninf_type) , intent(in) :: lb
8955 real(RKG) , intent(in) :: ub
8956 real(RKG) , intent(in) :: abstol
8957 real(RKG) , intent(in) :: reltol
8958 type(GK15_type) , intent(in) :: qrule
8959 type(weps_type) , intent(in) :: help
8960 real(RKG) , intent(out) :: integral, abserr
8961 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8962 integer(IK) , intent(out) , contiguous :: sindex(:)
8963 integer(IK) , intent(out) :: neval
8964 integer(IK) , intent(out) :: nint
8965 integer(IK) :: err
8966 end function
8967#endif
8968
8969#if RK3_ENABLED
8970 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8973#endif
8974 use pm_kind, only: RKG => RK3
8975 procedure(real(RKG)) :: getFunc
8976 type(ninf_type) , intent(in) :: lb
8977 real(RKG) , intent(in) :: ub
8978 real(RKG) , intent(in) :: abstol
8979 real(RKG) , intent(in) :: reltol
8980 type(GK15_type) , intent(in) :: qrule
8981 type(weps_type) , intent(in) :: help
8982 real(RKG) , intent(out) :: integral, abserr
8983 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
8984 integer(IK) , intent(out) , contiguous :: sindex(:)
8985 integer(IK) , intent(out) :: neval
8986 integer(IK) , intent(out) :: nint
8987 integer(IK) :: err
8988 end function
8989#endif
8990
8991#if RK2_ENABLED
8992 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8994 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8995#endif
8996 use pm_kind, only: RKG => RK2
8997 procedure(real(RKG)) :: getFunc
8998 type(ninf_type) , intent(in) :: lb
8999 real(RKG) , intent(in) :: ub
9000 real(RKG) , intent(in) :: abstol
9001 real(RKG) , intent(in) :: reltol
9002 type(GK15_type) , intent(in) :: qrule
9003 type(weps_type) , intent(in) :: help
9004 real(RKG) , intent(out) :: integral, abserr
9005 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9006 integer(IK) , intent(out) , contiguous :: sindex(:)
9007 integer(IK) , intent(out) :: neval
9008 integer(IK) , intent(out) :: nint
9009 integer(IK) :: err
9010 end function
9011#endif
9012
9013#if RK1_ENABLED
9014 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
9017#endif
9018 use pm_kind, only: RKG => RK1
9019 procedure(real(RKG)) :: getFunc
9020 type(ninf_type) , intent(in) :: lb
9021 real(RKG) , intent(in) :: ub
9022 real(RKG) , intent(in) :: abstol
9023 real(RKG) , intent(in) :: reltol
9024 type(GK15_type) , intent(in) :: qrule
9025 type(weps_type) , intent(in) :: help
9026 real(RKG) , intent(out) :: integral, abserr
9027 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9028 integer(IK) , intent(out) , contiguous :: sindex(:)
9029 integer(IK) , intent(out) :: neval
9030 integer(IK) , intent(out) :: nint
9031 integer(IK) :: err
9032 end function
9033#endif
9034
9035 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9036
9037#if RK5_ENABLED
9038 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9040 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
9041#endif
9042 use pm_kind, only: RKG => RK5
9043 procedure(real(RKG)) :: getFunc
9044 type(ninf_type) , intent(in) :: lb
9045 type(pinf_type) , intent(in) :: ub
9046 real(RKG) , intent(in) :: abstol
9047 real(RKG) , intent(in) :: reltol
9048 type(GK15_type) , intent(in) :: qrule
9049 type(weps_type) , intent(in) :: help
9050 real(RKG) , intent(out) :: integral, abserr
9051 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9052 integer(IK) , intent(out) , contiguous :: sindex(:)
9053 integer(IK) , intent(out) :: neval
9054 integer(IK) , intent(out) :: nint
9055 integer(IK) :: err
9056 end function
9057#endif
9058
9059#if RK4_ENABLED
9060 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9062 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
9063#endif
9064 use pm_kind, only: RKG => RK4
9065 procedure(real(RKG)) :: getFunc
9066 type(ninf_type) , intent(in) :: lb
9067 type(pinf_type) , intent(in) :: ub
9068 real(RKG) , intent(in) :: abstol
9069 real(RKG) , intent(in) :: reltol
9070 type(GK15_type) , intent(in) :: qrule
9071 type(weps_type) , intent(in) :: help
9072 real(RKG) , intent(out) :: integral, abserr
9073 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9074 integer(IK) , intent(out) , contiguous :: sindex(:)
9075 integer(IK) , intent(out) :: neval
9076 integer(IK) , intent(out) :: nint
9077 integer(IK) :: err
9078 end function
9079#endif
9080
9081#if RK3_ENABLED
9082 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9084 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9085#endif
9086 use pm_kind, only: RKG => RK3
9087 procedure(real(RKG)) :: getFunc
9088 type(ninf_type) , intent(in) :: lb
9089 type(pinf_type) , intent(in) :: ub
9090 real(RKG) , intent(in) :: abstol
9091 real(RKG) , intent(in) :: reltol
9092 type(GK15_type) , intent(in) :: qrule
9093 type(weps_type) , intent(in) :: help
9094 real(RKG) , intent(out) :: integral, abserr
9095 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9096 integer(IK) , intent(out) , contiguous :: sindex(:)
9097 integer(IK) , intent(out) :: neval
9098 integer(IK) , intent(out) :: nint
9099 integer(IK) :: err
9100 end function
9101#endif
9102
9103#if RK2_ENABLED
9104 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9106 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9107#endif
9108 use pm_kind, only: RKG => RK2
9109 procedure(real(RKG)) :: getFunc
9110 type(ninf_type) , intent(in) :: lb
9111 type(pinf_type) , intent(in) :: ub
9112 real(RKG) , intent(in) :: abstol
9113 real(RKG) , intent(in) :: reltol
9114 type(GK15_type) , intent(in) :: qrule
9115 type(weps_type) , intent(in) :: help
9116 real(RKG) , intent(out) :: integral, abserr
9117 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9118 integer(IK) , intent(out) , contiguous :: sindex(:)
9119 integer(IK) , intent(out) :: neval
9120 integer(IK) , intent(out) :: nint
9121 integer(IK) :: err
9122 end function
9123#endif
9124
9125#if RK1_ENABLED
9126 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9128 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9129#endif
9130 use pm_kind, only: RKG => RK1
9131 procedure(real(RKG)) :: getFunc
9132 type(ninf_type) , intent(in) :: lb
9133 type(pinf_type) , intent(in) :: ub
9134 real(RKG) , intent(in) :: abstol
9135 real(RKG) , intent(in) :: reltol
9136 type(GK15_type) , intent(in) :: qrule
9137 type(weps_type) , intent(in) :: help
9138 real(RKG) , intent(out) :: integral, abserr
9139 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9140 integer(IK) , intent(out) , contiguous :: sindex(:)
9141 integer(IK) , intent(out) :: neval
9142 integer(IK) , intent(out) :: nint
9143 integer(IK) :: err
9144 end function
9145#endif
9146
9147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9148
9149 end interface
9150
9151 ! QAGS_GK21
9152
9153 interface getQuadErr
9154
9155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9156
9157#if RK5_ENABLED
9158 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9160 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9161#endif
9162 use pm_kind, only: RKG => RK5
9163 procedure(real(RKG)) :: getFunc
9164 real(RKG) , intent(in) :: lb
9165 real(RKG) , intent(in) :: ub
9166 real(RKG) , intent(in) :: abstol
9167 real(RKG) , intent(in) :: reltol
9168 type(GK21_type) , intent(in) :: qrule
9169 type(weps_type) , intent(in) :: help
9170 real(RKG) , intent(out) :: integral, abserr
9171 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9172 integer(IK) , intent(out) , contiguous :: sindex(:)
9173 integer(IK) , intent(out) :: neval
9174 integer(IK) , intent(out) :: nint
9175 integer(IK) :: err
9176 end function
9177#endif
9178
9179#if RK4_ENABLED
9180 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9182 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9183#endif
9184 use pm_kind, only: RKG => RK4
9185 procedure(real(RKG)) :: getFunc
9186 real(RKG) , intent(in) :: lb
9187 real(RKG) , intent(in) :: ub
9188 real(RKG) , intent(in) :: abstol
9189 real(RKG) , intent(in) :: reltol
9190 type(GK21_type) , intent(in) :: qrule
9191 type(weps_type) , intent(in) :: help
9192 real(RKG) , intent(out) :: integral, abserr
9193 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9194 integer(IK) , intent(out) , contiguous :: sindex(:)
9195 integer(IK) , intent(out) :: neval
9196 integer(IK) , intent(out) :: nint
9197 integer(IK) :: err
9198 end function
9199#endif
9200
9201#if RK3_ENABLED
9202 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9204 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9205#endif
9206 use pm_kind, only: RKG => RK3
9207 procedure(real(RKG)) :: getFunc
9208 real(RKG) , intent(in) :: lb
9209 real(RKG) , intent(in) :: ub
9210 real(RKG) , intent(in) :: abstol
9211 real(RKG) , intent(in) :: reltol
9212 type(GK21_type) , intent(in) :: qrule
9213 type(weps_type) , intent(in) :: help
9214 real(RKG) , intent(out) :: integral, abserr
9215 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9216 integer(IK) , intent(out) , contiguous :: sindex(:)
9217 integer(IK) , intent(out) :: neval
9218 integer(IK) , intent(out) :: nint
9219 integer(IK) :: err
9220 end function
9221#endif
9222
9223#if RK2_ENABLED
9224 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9227#endif
9228 use pm_kind, only: RKG => RK2
9229 procedure(real(RKG)) :: getFunc
9230 real(RKG) , intent(in) :: lb
9231 real(RKG) , intent(in) :: ub
9232 real(RKG) , intent(in) :: abstol
9233 real(RKG) , intent(in) :: reltol
9234 type(GK21_type) , intent(in) :: qrule
9235 type(weps_type) , intent(in) :: help
9236 real(RKG) , intent(out) :: integral, abserr
9237 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9238 integer(IK) , intent(out) , contiguous :: sindex(:)
9239 integer(IK) , intent(out) :: neval
9240 integer(IK) , intent(out) :: nint
9241 integer(IK) :: err
9242 end function
9243#endif
9244
9245#if RK1_ENABLED
9246 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9249#endif
9250 use pm_kind, only: RKG => RK1
9251 procedure(real(RKG)) :: getFunc
9252 real(RKG) , intent(in) :: lb
9253 real(RKG) , intent(in) :: ub
9254 real(RKG) , intent(in) :: abstol
9255 real(RKG) , intent(in) :: reltol
9256 type(GK21_type) , intent(in) :: qrule
9257 type(weps_type) , intent(in) :: help
9258 real(RKG) , intent(out) :: integral, abserr
9259 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9260 integer(IK) , intent(out) , contiguous :: sindex(:)
9261 integer(IK) , intent(out) :: neval
9262 integer(IK) , intent(out) :: nint
9263 integer(IK) :: err
9264 end function
9265#endif
9266
9267 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9268
9269#if RK5_ENABLED
9270 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9273#endif
9274 use pm_kind, only: RKG => RK5
9275 procedure(real(RKG)) :: getFunc
9276 real(RKG) , intent(in) :: lb
9277 type(pinf_type) , intent(in) :: ub
9278 real(RKG) , intent(in) :: abstol
9279 real(RKG) , intent(in) :: reltol
9280 type(GK21_type) , intent(in) :: qrule
9281 type(weps_type) , intent(in) :: help
9282 real(RKG) , intent(out) :: integral, abserr
9283 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9284 integer(IK) , intent(out) , contiguous :: sindex(:)
9285 integer(IK) , intent(out) :: neval
9286 integer(IK) , intent(out) :: nint
9287 integer(IK) :: err
9288 end function
9289#endif
9290
9291#if RK4_ENABLED
9292 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9294 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9295#endif
9296 use pm_kind, only: RKG => RK4
9297 procedure(real(RKG)) :: getFunc
9298 real(RKG) , intent(in) :: lb
9299 type(pinf_type) , intent(in) :: ub
9300 real(RKG) , intent(in) :: abstol
9301 real(RKG) , intent(in) :: reltol
9302 type(GK21_type) , intent(in) :: qrule
9303 type(weps_type) , intent(in) :: help
9304 real(RKG) , intent(out) :: integral, abserr
9305 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9306 integer(IK) , intent(out) , contiguous :: sindex(:)
9307 integer(IK) , intent(out) :: neval
9308 integer(IK) , intent(out) :: nint
9309 integer(IK) :: err
9310 end function
9311#endif
9312
9313#if RK3_ENABLED
9314 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9316 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9317#endif
9318 use pm_kind, only: RKG => RK3
9319 procedure(real(RKG)) :: getFunc
9320 real(RKG) , intent(in) :: lb
9321 type(pinf_type) , intent(in) :: ub
9322 real(RKG) , intent(in) :: abstol
9323 real(RKG) , intent(in) :: reltol
9324 type(GK21_type) , intent(in) :: qrule
9325 type(weps_type) , intent(in) :: help
9326 real(RKG) , intent(out) :: integral, abserr
9327 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9328 integer(IK) , intent(out) , contiguous :: sindex(:)
9329 integer(IK) , intent(out) :: neval
9330 integer(IK) , intent(out) :: nint
9331 integer(IK) :: err
9332 end function
9333#endif
9334
9335#if RK2_ENABLED
9336 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9339#endif
9340 use pm_kind, only: RKG => RK2
9341 procedure(real(RKG)) :: getFunc
9342 real(RKG) , intent(in) :: lb
9343 type(pinf_type) , intent(in) :: ub
9344 real(RKG) , intent(in) :: abstol
9345 real(RKG) , intent(in) :: reltol
9346 type(GK21_type) , intent(in) :: qrule
9347 type(weps_type) , intent(in) :: help
9348 real(RKG) , intent(out) :: integral, abserr
9349 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9350 integer(IK) , intent(out) , contiguous :: sindex(:)
9351 integer(IK) , intent(out) :: neval
9352 integer(IK) , intent(out) :: nint
9353 integer(IK) :: err
9354 end function
9355#endif
9356
9357#if RK1_ENABLED
9358 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9360 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9361#endif
9362 use pm_kind, only: RKG => RK1
9363 procedure(real(RKG)) :: getFunc
9364 real(RKG) , intent(in) :: lb
9365 type(pinf_type) , intent(in) :: ub
9366 real(RKG) , intent(in) :: abstol
9367 real(RKG) , intent(in) :: reltol
9368 type(GK21_type) , intent(in) :: qrule
9369 type(weps_type) , intent(in) :: help
9370 real(RKG) , intent(out) :: integral, abserr
9371 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9372 integer(IK) , intent(out) , contiguous :: sindex(:)
9373 integer(IK) , intent(out) :: neval
9374 integer(IK) , intent(out) :: nint
9375 integer(IK) :: err
9376 end function
9377#endif
9378
9379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9380
9381#if RK5_ENABLED
9382 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9384 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9385#endif
9386 use pm_kind, only: RKG => RK5
9387 procedure(real(RKG)) :: getFunc
9388 type(ninf_type) , intent(in) :: lb
9389 real(RKG) , intent(in) :: ub
9390 real(RKG) , intent(in) :: abstol
9391 real(RKG) , intent(in) :: reltol
9392 type(GK21_type) , intent(in) :: qrule
9393 type(weps_type) , intent(in) :: help
9394 real(RKG) , intent(out) :: integral, abserr
9395 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9396 integer(IK) , intent(out) , contiguous :: sindex(:)
9397 integer(IK) , intent(out) :: neval
9398 integer(IK) , intent(out) :: nint
9399 integer(IK) :: err
9400 end function
9401#endif
9402
9403#if RK4_ENABLED
9404 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9406 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9407#endif
9408 use pm_kind, only: RKG => RK4
9409 procedure(real(RKG)) :: getFunc
9410 type(ninf_type) , intent(in) :: lb
9411 real(RKG) , intent(in) :: ub
9412 real(RKG) , intent(in) :: abstol
9413 real(RKG) , intent(in) :: reltol
9414 type(GK21_type) , intent(in) :: qrule
9415 type(weps_type) , intent(in) :: help
9416 real(RKG) , intent(out) :: integral, abserr
9417 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9418 integer(IK) , intent(out) , contiguous :: sindex(:)
9419 integer(IK) , intent(out) :: neval
9420 integer(IK) , intent(out) :: nint
9421 integer(IK) :: err
9422 end function
9423#endif
9424
9425#if RK3_ENABLED
9426 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9428 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9429#endif
9430 use pm_kind, only: RKG => RK3
9431 procedure(real(RKG)) :: getFunc
9432 type(ninf_type) , intent(in) :: lb
9433 real(RKG) , intent(in) :: ub
9434 real(RKG) , intent(in) :: abstol
9435 real(RKG) , intent(in) :: reltol
9436 type(GK21_type) , intent(in) :: qrule
9437 type(weps_type) , intent(in) :: help
9438 real(RKG) , intent(out) :: integral, abserr
9439 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9440 integer(IK) , intent(out) , contiguous :: sindex(:)
9441 integer(IK) , intent(out) :: neval
9442 integer(IK) , intent(out) :: nint
9443 integer(IK) :: err
9444 end function
9445#endif
9446
9447#if RK2_ENABLED
9448 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9451#endif
9452 use pm_kind, only: RKG => RK2
9453 procedure(real(RKG)) :: getFunc
9454 type(ninf_type) , intent(in) :: lb
9455 real(RKG) , intent(in) :: ub
9456 real(RKG) , intent(in) :: abstol
9457 real(RKG) , intent(in) :: reltol
9458 type(GK21_type) , intent(in) :: qrule
9459 type(weps_type) , intent(in) :: help
9460 real(RKG) , intent(out) :: integral, abserr
9461 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9462 integer(IK) , intent(out) , contiguous :: sindex(:)
9463 integer(IK) , intent(out) :: neval
9464 integer(IK) , intent(out) :: nint
9465 integer(IK) :: err
9466 end function
9467#endif
9468
9469#if RK1_ENABLED
9470 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9472 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9473#endif
9474 use pm_kind, only: RKG => RK1
9475 procedure(real(RKG)) :: getFunc
9476 type(ninf_type) , intent(in) :: lb
9477 real(RKG) , intent(in) :: ub
9478 real(RKG) , intent(in) :: abstol
9479 real(RKG) , intent(in) :: reltol
9480 type(GK21_type) , intent(in) :: qrule
9481 type(weps_type) , intent(in) :: help
9482 real(RKG) , intent(out) :: integral, abserr
9483 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9484 integer(IK) , intent(out) , contiguous :: sindex(:)
9485 integer(IK) , intent(out) :: neval
9486 integer(IK) , intent(out) :: nint
9487 integer(IK) :: err
9488 end function
9489#endif
9490
9491 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9492
9493#if RK5_ENABLED
9494 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9496 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9497#endif
9498 use pm_kind, only: RKG => RK5
9499 procedure(real(RKG)) :: getFunc
9500 type(ninf_type) , intent(in) :: lb
9501 type(pinf_type) , intent(in) :: ub
9502 real(RKG) , intent(in) :: abstol
9503 real(RKG) , intent(in) :: reltol
9504 type(GK21_type) , intent(in) :: qrule
9505 type(weps_type) , intent(in) :: help
9506 real(RKG) , intent(out) :: integral, abserr
9507 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9508 integer(IK) , intent(out) , contiguous :: sindex(:)
9509 integer(IK) , intent(out) :: neval
9510 integer(IK) , intent(out) :: nint
9511 integer(IK) :: err
9512 end function
9513#endif
9514
9515#if RK4_ENABLED
9516 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9518 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9519#endif
9520 use pm_kind, only: RKG => RK4
9521 procedure(real(RKG)) :: getFunc
9522 type(ninf_type) , intent(in) :: lb
9523 type(pinf_type) , intent(in) :: ub
9524 real(RKG) , intent(in) :: abstol
9525 real(RKG) , intent(in) :: reltol
9526 type(GK21_type) , intent(in) :: qrule
9527 type(weps_type) , intent(in) :: help
9528 real(RKG) , intent(out) :: integral, abserr
9529 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9530 integer(IK) , intent(out) , contiguous :: sindex(:)
9531 integer(IK) , intent(out) :: neval
9532 integer(IK) , intent(out) :: nint
9533 integer(IK) :: err
9534 end function
9535#endif
9536
9537#if RK3_ENABLED
9538 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9540 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9541#endif
9542 use pm_kind, only: RKG => RK3
9543 procedure(real(RKG)) :: getFunc
9544 type(ninf_type) , intent(in) :: lb
9545 type(pinf_type) , intent(in) :: ub
9546 real(RKG) , intent(in) :: abstol
9547 real(RKG) , intent(in) :: reltol
9548 type(GK21_type) , intent(in) :: qrule
9549 type(weps_type) , intent(in) :: help
9550 real(RKG) , intent(out) :: integral, abserr
9551 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9552 integer(IK) , intent(out) , contiguous :: sindex(:)
9553 integer(IK) , intent(out) :: neval
9554 integer(IK) , intent(out) :: nint
9555 integer(IK) :: err
9556 end function
9557#endif
9558
9559#if RK2_ENABLED
9560 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9563#endif
9564 use pm_kind, only: RKG => RK2
9565 procedure(real(RKG)) :: getFunc
9566 type(ninf_type) , intent(in) :: lb
9567 type(pinf_type) , intent(in) :: ub
9568 real(RKG) , intent(in) :: abstol
9569 real(RKG) , intent(in) :: reltol
9570 type(GK21_type) , intent(in) :: qrule
9571 type(weps_type) , intent(in) :: help
9572 real(RKG) , intent(out) :: integral, abserr
9573 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9574 integer(IK) , intent(out) , contiguous :: sindex(:)
9575 integer(IK) , intent(out) :: neval
9576 integer(IK) , intent(out) :: nint
9577 integer(IK) :: err
9578 end function
9579#endif
9580
9581#if RK1_ENABLED
9582 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9584 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9585#endif
9586 use pm_kind, only: RKG => RK1
9587 procedure(real(RKG)) :: getFunc
9588 type(ninf_type) , intent(in) :: lb
9589 type(pinf_type) , intent(in) :: ub
9590 real(RKG) , intent(in) :: abstol
9591 real(RKG) , intent(in) :: reltol
9592 type(GK21_type) , intent(in) :: qrule
9593 type(weps_type) , intent(in) :: help
9594 real(RKG) , intent(out) :: integral, abserr
9595 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9596 integer(IK) , intent(out) , contiguous :: sindex(:)
9597 integer(IK) , intent(out) :: neval
9598 integer(IK) , intent(out) :: nint
9599 integer(IK) :: err
9600 end function
9601#endif
9602
9603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9604
9605 end interface
9606
9607 ! QAGS_GK31
9608
9609 interface getQuadErr
9610
9611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9612
9613#if RK5_ENABLED
9614 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9616 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9617#endif
9618 use pm_kind, only: RKG => RK5
9619 procedure(real(RKG)) :: getFunc
9620 real(RKG) , intent(in) :: lb
9621 real(RKG) , intent(in) :: ub
9622 real(RKG) , intent(in) :: abstol
9623 real(RKG) , intent(in) :: reltol
9624 type(GK31_type) , intent(in) :: qrule
9625 type(weps_type) , intent(in) :: help
9626 real(RKG) , intent(out) :: integral, abserr
9627 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9628 integer(IK) , intent(out) , contiguous :: sindex(:)
9629 integer(IK) , intent(out) :: neval
9630 integer(IK) , intent(out) :: nint
9631 integer(IK) :: err
9632 end function
9633#endif
9634
9635#if RK4_ENABLED
9636 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9638 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9639#endif
9640 use pm_kind, only: RKG => RK4
9641 procedure(real(RKG)) :: getFunc
9642 real(RKG) , intent(in) :: lb
9643 real(RKG) , intent(in) :: ub
9644 real(RKG) , intent(in) :: abstol
9645 real(RKG) , intent(in) :: reltol
9646 type(GK31_type) , intent(in) :: qrule
9647 type(weps_type) , intent(in) :: help
9648 real(RKG) , intent(out) :: integral, abserr
9649 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9650 integer(IK) , intent(out) , contiguous :: sindex(:)
9651 integer(IK) , intent(out) :: neval
9652 integer(IK) , intent(out) :: nint
9653 integer(IK) :: err
9654 end function
9655#endif
9656
9657#if RK3_ENABLED
9658 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9660 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9661#endif
9662 use pm_kind, only: RKG => RK3
9663 procedure(real(RKG)) :: getFunc
9664 real(RKG) , intent(in) :: lb
9665 real(RKG) , intent(in) :: ub
9666 real(RKG) , intent(in) :: abstol
9667 real(RKG) , intent(in) :: reltol
9668 type(GK31_type) , intent(in) :: qrule
9669 type(weps_type) , intent(in) :: help
9670 real(RKG) , intent(out) :: integral, abserr
9671 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9672 integer(IK) , intent(out) , contiguous :: sindex(:)
9673 integer(IK) , intent(out) :: neval
9674 integer(IK) , intent(out) :: nint
9675 integer(IK) :: err
9676 end function
9677#endif
9678
9679#if RK2_ENABLED
9680 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9683#endif
9684 use pm_kind, only: RKG => RK2
9685 procedure(real(RKG)) :: getFunc
9686 real(RKG) , intent(in) :: lb
9687 real(RKG) , intent(in) :: ub
9688 real(RKG) , intent(in) :: abstol
9689 real(RKG) , intent(in) :: reltol
9690 type(GK31_type) , intent(in) :: qrule
9691 type(weps_type) , intent(in) :: help
9692 real(RKG) , intent(out) :: integral, abserr
9693 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9694 integer(IK) , intent(out) , contiguous :: sindex(:)
9695 integer(IK) , intent(out) :: neval
9696 integer(IK) , intent(out) :: nint
9697 integer(IK) :: err
9698 end function
9699#endif
9700
9701#if RK1_ENABLED
9702 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9705#endif
9706 use pm_kind, only: RKG => RK1
9707 procedure(real(RKG)) :: getFunc
9708 real(RKG) , intent(in) :: lb
9709 real(RKG) , intent(in) :: ub
9710 real(RKG) , intent(in) :: abstol
9711 real(RKG) , intent(in) :: reltol
9712 type(GK31_type) , intent(in) :: qrule
9713 type(weps_type) , intent(in) :: help
9714 real(RKG) , intent(out) :: integral, abserr
9715 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9716 integer(IK) , intent(out) , contiguous :: sindex(:)
9717 integer(IK) , intent(out) :: neval
9718 integer(IK) , intent(out) :: nint
9719 integer(IK) :: err
9720 end function
9721#endif
9722
9723 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9724
9725#if RK5_ENABLED
9726 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9728 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9729#endif
9730 use pm_kind, only: RKG => RK5
9731 procedure(real(RKG)) :: getFunc
9732 real(RKG) , intent(in) :: lb
9733 type(pinf_type) , intent(in) :: ub
9734 real(RKG) , intent(in) :: abstol
9735 real(RKG) , intent(in) :: reltol
9736 type(GK31_type) , intent(in) :: qrule
9737 type(weps_type) , intent(in) :: help
9738 real(RKG) , intent(out) :: integral, abserr
9739 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9740 integer(IK) , intent(out) , contiguous :: sindex(:)
9741 integer(IK) , intent(out) :: neval
9742 integer(IK) , intent(out) :: nint
9743 integer(IK) :: err
9744 end function
9745#endif
9746
9747#if RK4_ENABLED
9748 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9751#endif
9752 use pm_kind, only: RKG => RK4
9753 procedure(real(RKG)) :: getFunc
9754 real(RKG) , intent(in) :: lb
9755 type(pinf_type) , intent(in) :: ub
9756 real(RKG) , intent(in) :: abstol
9757 real(RKG) , intent(in) :: reltol
9758 type(GK31_type) , intent(in) :: qrule
9759 type(weps_type) , intent(in) :: help
9760 real(RKG) , intent(out) :: integral, abserr
9761 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9762 integer(IK) , intent(out) , contiguous :: sindex(:)
9763 integer(IK) , intent(out) :: neval
9764 integer(IK) , intent(out) :: nint
9765 integer(IK) :: err
9766 end function
9767#endif
9768
9769#if RK3_ENABLED
9770 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9772 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9773#endif
9774 use pm_kind, only: RKG => RK3
9775 procedure(real(RKG)) :: getFunc
9776 real(RKG) , intent(in) :: lb
9777 type(pinf_type) , intent(in) :: ub
9778 real(RKG) , intent(in) :: abstol
9779 real(RKG) , intent(in) :: reltol
9780 type(GK31_type) , intent(in) :: qrule
9781 type(weps_type) , intent(in) :: help
9782 real(RKG) , intent(out) :: integral, abserr
9783 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9784 integer(IK) , intent(out) , contiguous :: sindex(:)
9785 integer(IK) , intent(out) :: neval
9786 integer(IK) , intent(out) :: nint
9787 integer(IK) :: err
9788 end function
9789#endif
9790
9791#if RK2_ENABLED
9792 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9795#endif
9796 use pm_kind, only: RKG => RK2
9797 procedure(real(RKG)) :: getFunc
9798 real(RKG) , intent(in) :: lb
9799 type(pinf_type) , intent(in) :: ub
9800 real(RKG) , intent(in) :: abstol
9801 real(RKG) , intent(in) :: reltol
9802 type(GK31_type) , intent(in) :: qrule
9803 type(weps_type) , intent(in) :: help
9804 real(RKG) , intent(out) :: integral, abserr
9805 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9806 integer(IK) , intent(out) , contiguous :: sindex(:)
9807 integer(IK) , intent(out) :: neval
9808 integer(IK) , intent(out) :: nint
9809 integer(IK) :: err
9810 end function
9811#endif
9812
9813#if RK1_ENABLED
9814 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9816 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9817#endif
9818 use pm_kind, only: RKG => RK1
9819 procedure(real(RKG)) :: getFunc
9820 real(RKG) , intent(in) :: lb
9821 type(pinf_type) , intent(in) :: ub
9822 real(RKG) , intent(in) :: abstol
9823 real(RKG) , intent(in) :: reltol
9824 type(GK31_type) , intent(in) :: qrule
9825 type(weps_type) , intent(in) :: help
9826 real(RKG) , intent(out) :: integral, abserr
9827 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9828 integer(IK) , intent(out) , contiguous :: sindex(:)
9829 integer(IK) , intent(out) :: neval
9830 integer(IK) , intent(out) :: nint
9831 integer(IK) :: err
9832 end function
9833#endif
9834
9835 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9836
9837#if RK5_ENABLED
9838 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9840 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9841#endif
9842 use pm_kind, only: RKG => RK5
9843 procedure(real(RKG)) :: getFunc
9844 type(ninf_type) , intent(in) :: lb
9845 real(RKG) , intent(in) :: ub
9846 real(RKG) , intent(in) :: abstol
9847 real(RKG) , intent(in) :: reltol
9848 type(GK31_type) , intent(in) :: qrule
9849 type(weps_type) , intent(in) :: help
9850 real(RKG) , intent(out) :: integral, abserr
9851 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9852 integer(IK) , intent(out) , contiguous :: sindex(:)
9853 integer(IK) , intent(out) :: neval
9854 integer(IK) , intent(out) :: nint
9855 integer(IK) :: err
9856 end function
9857#endif
9858
9859#if RK4_ENABLED
9860 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9863#endif
9864 use pm_kind, only: RKG => RK4
9865 procedure(real(RKG)) :: getFunc
9866 type(ninf_type) , intent(in) :: lb
9867 real(RKG) , intent(in) :: ub
9868 real(RKG) , intent(in) :: abstol
9869 real(RKG) , intent(in) :: reltol
9870 type(GK31_type) , intent(in) :: qrule
9871 type(weps_type) , intent(in) :: help
9872 real(RKG) , intent(out) :: integral, abserr
9873 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9874 integer(IK) , intent(out) , contiguous :: sindex(:)
9875 integer(IK) , intent(out) :: neval
9876 integer(IK) , intent(out) :: nint
9877 integer(IK) :: err
9878 end function
9879#endif
9880
9881#if RK3_ENABLED
9882 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9884 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9885#endif
9886 use pm_kind, only: RKG => RK3
9887 procedure(real(RKG)) :: getFunc
9888 type(ninf_type) , intent(in) :: lb
9889 real(RKG) , intent(in) :: ub
9890 real(RKG) , intent(in) :: abstol
9891 real(RKG) , intent(in) :: reltol
9892 type(GK31_type) , intent(in) :: qrule
9893 type(weps_type) , intent(in) :: help
9894 real(RKG) , intent(out) :: integral, abserr
9895 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9896 integer(IK) , intent(out) , contiguous :: sindex(:)
9897 integer(IK) , intent(out) :: neval
9898 integer(IK) , intent(out) :: nint
9899 integer(IK) :: err
9900 end function
9901#endif
9902
9903#if RK2_ENABLED
9904 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9906 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9907#endif
9908 use pm_kind, only: RKG => RK2
9909 procedure(real(RKG)) :: getFunc
9910 type(ninf_type) , intent(in) :: lb
9911 real(RKG) , intent(in) :: ub
9912 real(RKG) , intent(in) :: abstol
9913 real(RKG) , intent(in) :: reltol
9914 type(GK31_type) , intent(in) :: qrule
9915 type(weps_type) , intent(in) :: help
9916 real(RKG) , intent(out) :: integral, abserr
9917 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9918 integer(IK) , intent(out) , contiguous :: sindex(:)
9919 integer(IK) , intent(out) :: neval
9920 integer(IK) , intent(out) :: nint
9921 integer(IK) :: err
9922 end function
9923#endif
9924
9925#if RK1_ENABLED
9926 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9929#endif
9930 use pm_kind, only: RKG => RK1
9931 procedure(real(RKG)) :: getFunc
9932 type(ninf_type) , intent(in) :: lb
9933 real(RKG) , intent(in) :: ub
9934 real(RKG) , intent(in) :: abstol
9935 real(RKG) , intent(in) :: reltol
9936 type(GK31_type) , intent(in) :: qrule
9937 type(weps_type) , intent(in) :: help
9938 real(RKG) , intent(out) :: integral, abserr
9939 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9940 integer(IK) , intent(out) , contiguous :: sindex(:)
9941 integer(IK) , intent(out) :: neval
9942 integer(IK) , intent(out) :: nint
9943 integer(IK) :: err
9944 end function
9945#endif
9946
9947 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9948
9949#if RK5_ENABLED
9950 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9952 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9953#endif
9954 use pm_kind, only: RKG => RK5
9955 procedure(real(RKG)) :: getFunc
9956 type(ninf_type) , intent(in) :: lb
9957 type(pinf_type) , intent(in) :: ub
9958 real(RKG) , intent(in) :: abstol
9959 real(RKG) , intent(in) :: reltol
9960 type(GK31_type) , intent(in) :: qrule
9961 type(weps_type) , intent(in) :: help
9962 real(RKG) , intent(out) :: integral, abserr
9963 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9964 integer(IK) , intent(out) , contiguous :: sindex(:)
9965 integer(IK) , intent(out) :: neval
9966 integer(IK) , intent(out) :: nint
9967 integer(IK) :: err
9968 end function
9969#endif
9970
9971#if RK4_ENABLED
9972 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9974 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9975#endif
9976 use pm_kind, only: RKG => RK4
9977 procedure(real(RKG)) :: getFunc
9978 type(ninf_type) , intent(in) :: lb
9979 type(pinf_type) , intent(in) :: ub
9980 real(RKG) , intent(in) :: abstol
9981 real(RKG) , intent(in) :: reltol
9982 type(GK31_type) , intent(in) :: qrule
9983 type(weps_type) , intent(in) :: help
9984 real(RKG) , intent(out) :: integral, abserr
9985 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
9986 integer(IK) , intent(out) , contiguous :: sindex(:)
9987 integer(IK) , intent(out) :: neval
9988 integer(IK) , intent(out) :: nint
9989 integer(IK) :: err
9990 end function
9991#endif
9992
9993#if RK3_ENABLED
9994 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9996 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9997#endif
9998 use pm_kind, only: RKG => RK3
9999 procedure(real(RKG)) :: getFunc
10000 type(ninf_type) , intent(in) :: lb
10001 type(pinf_type) , intent(in) :: ub
10002 real(RKG) , intent(in) :: abstol
10003 real(RKG) , intent(in) :: reltol
10004 type(GK31_type) , intent(in) :: qrule
10005 type(weps_type) , intent(in) :: help
10006 real(RKG) , intent(out) :: integral, abserr
10007 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10008 integer(IK) , intent(out) , contiguous :: sindex(:)
10009 integer(IK) , intent(out) :: neval
10010 integer(IK) , intent(out) :: nint
10011 integer(IK) :: err
10012 end function
10013#endif
10014
10015#if RK2_ENABLED
10016 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10018 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
10019#endif
10020 use pm_kind, only: RKG => RK2
10021 procedure(real(RKG)) :: getFunc
10022 type(ninf_type) , intent(in) :: lb
10023 type(pinf_type) , intent(in) :: ub
10024 real(RKG) , intent(in) :: abstol
10025 real(RKG) , intent(in) :: reltol
10026 type(GK31_type) , intent(in) :: qrule
10027 type(weps_type) , intent(in) :: help
10028 real(RKG) , intent(out) :: integral, abserr
10029 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10030 integer(IK) , intent(out) , contiguous :: sindex(:)
10031 integer(IK) , intent(out) :: neval
10032 integer(IK) , intent(out) :: nint
10033 integer(IK) :: err
10034 end function
10035#endif
10036
10037#if RK1_ENABLED
10038 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10040 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
10041#endif
10042 use pm_kind, only: RKG => RK1
10043 procedure(real(RKG)) :: getFunc
10044 type(ninf_type) , intent(in) :: lb
10045 type(pinf_type) , intent(in) :: ub
10046 real(RKG) , intent(in) :: abstol
10047 real(RKG) , intent(in) :: reltol
10048 type(GK31_type) , intent(in) :: qrule
10049 type(weps_type) , intent(in) :: help
10050 real(RKG) , intent(out) :: integral, abserr
10051 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10052 integer(IK) , intent(out) , contiguous :: sindex(:)
10053 integer(IK) , intent(out) :: neval
10054 integer(IK) , intent(out) :: nint
10055 integer(IK) :: err
10056 end function
10057#endif
10058
10059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10060
10061 end interface
10062
10063 ! QAGS_GK41
10064
10065 interface getQuadErr
10066
10067 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10068
10069#if RK5_ENABLED
10070 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10072 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10073#endif
10074 use pm_kind, only: RKG => RK5
10075 procedure(real(RKG)) :: getFunc
10076 real(RKG) , intent(in) :: lb
10077 real(RKG) , intent(in) :: ub
10078 real(RKG) , intent(in) :: abstol
10079 real(RKG) , intent(in) :: reltol
10080 type(GK41_type) , intent(in) :: qrule
10081 type(weps_type) , intent(in) :: help
10082 real(RKG) , intent(out) :: integral, abserr
10083 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10084 integer(IK) , intent(out) , contiguous :: sindex(:)
10085 integer(IK) , intent(out) :: neval
10086 integer(IK) , intent(out) :: nint
10087 integer(IK) :: err
10088 end function
10089#endif
10090
10091#if RK4_ENABLED
10092 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10094 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10095#endif
10096 use pm_kind, only: RKG => RK4
10097 procedure(real(RKG)) :: getFunc
10098 real(RKG) , intent(in) :: lb
10099 real(RKG) , intent(in) :: ub
10100 real(RKG) , intent(in) :: abstol
10101 real(RKG) , intent(in) :: reltol
10102 type(GK41_type) , intent(in) :: qrule
10103 type(weps_type) , intent(in) :: help
10104 real(RKG) , intent(out) :: integral, abserr
10105 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10106 integer(IK) , intent(out) , contiguous :: sindex(:)
10107 integer(IK) , intent(out) :: neval
10108 integer(IK) , intent(out) :: nint
10109 integer(IK) :: err
10110 end function
10111#endif
10112
10113#if RK3_ENABLED
10114 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10116 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10117#endif
10118 use pm_kind, only: RKG => RK3
10119 procedure(real(RKG)) :: getFunc
10120 real(RKG) , intent(in) :: lb
10121 real(RKG) , intent(in) :: ub
10122 real(RKG) , intent(in) :: abstol
10123 real(RKG) , intent(in) :: reltol
10124 type(GK41_type) , intent(in) :: qrule
10125 type(weps_type) , intent(in) :: help
10126 real(RKG) , intent(out) :: integral, abserr
10127 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10128 integer(IK) , intent(out) , contiguous :: sindex(:)
10129 integer(IK) , intent(out) :: neval
10130 integer(IK) , intent(out) :: nint
10131 integer(IK) :: err
10132 end function
10133#endif
10134
10135#if RK2_ENABLED
10136 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10139#endif
10140 use pm_kind, only: RKG => RK2
10141 procedure(real(RKG)) :: getFunc
10142 real(RKG) , intent(in) :: lb
10143 real(RKG) , intent(in) :: ub
10144 real(RKG) , intent(in) :: abstol
10145 real(RKG) , intent(in) :: reltol
10146 type(GK41_type) , intent(in) :: qrule
10147 type(weps_type) , intent(in) :: help
10148 real(RKG) , intent(out) :: integral, abserr
10149 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10150 integer(IK) , intent(out) , contiguous :: sindex(:)
10151 integer(IK) , intent(out) :: neval
10152 integer(IK) , intent(out) :: nint
10153 integer(IK) :: err
10154 end function
10155#endif
10156
10157#if RK1_ENABLED
10158 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10160 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10161#endif
10162 use pm_kind, only: RKG => RK1
10163 procedure(real(RKG)) :: getFunc
10164 real(RKG) , intent(in) :: lb
10165 real(RKG) , intent(in) :: ub
10166 real(RKG) , intent(in) :: abstol
10167 real(RKG) , intent(in) :: reltol
10168 type(GK41_type) , intent(in) :: qrule
10169 type(weps_type) , intent(in) :: help
10170 real(RKG) , intent(out) :: integral, abserr
10171 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10172 integer(IK) , intent(out) , contiguous :: sindex(:)
10173 integer(IK) , intent(out) :: neval
10174 integer(IK) , intent(out) :: nint
10175 integer(IK) :: err
10176 end function
10177#endif
10178
10179 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10180
10181#if RK5_ENABLED
10182 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10185#endif
10186 use pm_kind, only: RKG => RK5
10187 procedure(real(RKG)) :: getFunc
10188 real(RKG) , intent(in) :: lb
10189 type(pinf_type) , intent(in) :: ub
10190 real(RKG) , intent(in) :: abstol
10191 real(RKG) , intent(in) :: reltol
10192 type(GK41_type) , intent(in) :: qrule
10193 type(weps_type) , intent(in) :: help
10194 real(RKG) , intent(out) :: integral, abserr
10195 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10196 integer(IK) , intent(out) , contiguous :: sindex(:)
10197 integer(IK) , intent(out) :: neval
10198 integer(IK) , intent(out) :: nint
10199 integer(IK) :: err
10200 end function
10201#endif
10202
10203#if RK4_ENABLED
10204 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10206 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10207#endif
10208 use pm_kind, only: RKG => RK4
10209 procedure(real(RKG)) :: getFunc
10210 real(RKG) , intent(in) :: lb
10211 type(pinf_type) , intent(in) :: ub
10212 real(RKG) , intent(in) :: abstol
10213 real(RKG) , intent(in) :: reltol
10214 type(GK41_type) , intent(in) :: qrule
10215 type(weps_type) , intent(in) :: help
10216 real(RKG) , intent(out) :: integral, abserr
10217 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10218 integer(IK) , intent(out) , contiguous :: sindex(:)
10219 integer(IK) , intent(out) :: neval
10220 integer(IK) , intent(out) :: nint
10221 integer(IK) :: err
10222 end function
10223#endif
10224
10225#if RK3_ENABLED
10226 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10229#endif
10230 use pm_kind, only: RKG => RK3
10231 procedure(real(RKG)) :: getFunc
10232 real(RKG) , intent(in) :: lb
10233 type(pinf_type) , intent(in) :: ub
10234 real(RKG) , intent(in) :: abstol
10235 real(RKG) , intent(in) :: reltol
10236 type(GK41_type) , intent(in) :: qrule
10237 type(weps_type) , intent(in) :: help
10238 real(RKG) , intent(out) :: integral, abserr
10239 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10240 integer(IK) , intent(out) , contiguous :: sindex(:)
10241 integer(IK) , intent(out) :: neval
10242 integer(IK) , intent(out) :: nint
10243 integer(IK) :: err
10244 end function
10245#endif
10246
10247#if RK2_ENABLED
10248 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10251#endif
10252 use pm_kind, only: RKG => RK2
10253 procedure(real(RKG)) :: getFunc
10254 real(RKG) , intent(in) :: lb
10255 type(pinf_type) , intent(in) :: ub
10256 real(RKG) , intent(in) :: abstol
10257 real(RKG) , intent(in) :: reltol
10258 type(GK41_type) , intent(in) :: qrule
10259 type(weps_type) , intent(in) :: help
10260 real(RKG) , intent(out) :: integral, abserr
10261 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10262 integer(IK) , intent(out) , contiguous :: sindex(:)
10263 integer(IK) , intent(out) :: neval
10264 integer(IK) , intent(out) :: nint
10265 integer(IK) :: err
10266 end function
10267#endif
10268
10269#if RK1_ENABLED
10270 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10273#endif
10274 use pm_kind, only: RKG => RK1
10275 procedure(real(RKG)) :: getFunc
10276 real(RKG) , intent(in) :: lb
10277 type(pinf_type) , intent(in) :: ub
10278 real(RKG) , intent(in) :: abstol
10279 real(RKG) , intent(in) :: reltol
10280 type(GK41_type) , intent(in) :: qrule
10281 type(weps_type) , intent(in) :: help
10282 real(RKG) , intent(out) :: integral, abserr
10283 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10284 integer(IK) , intent(out) , contiguous :: sindex(:)
10285 integer(IK) , intent(out) :: neval
10286 integer(IK) , intent(out) :: nint
10287 integer(IK) :: err
10288 end function
10289#endif
10290
10291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10292
10293#if RK5_ENABLED
10294 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10296 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10297#endif
10298 use pm_kind, only: RKG => RK5
10299 procedure(real(RKG)) :: getFunc
10300 type(ninf_type) , intent(in) :: lb
10301 real(RKG) , intent(in) :: ub
10302 real(RKG) , intent(in) :: abstol
10303 real(RKG) , intent(in) :: reltol
10304 type(GK41_type) , intent(in) :: qrule
10305 type(weps_type) , intent(in) :: help
10306 real(RKG) , intent(out) :: integral, abserr
10307 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10308 integer(IK) , intent(out) , contiguous :: sindex(:)
10309 integer(IK) , intent(out) :: neval
10310 integer(IK) , intent(out) :: nint
10311 integer(IK) :: err
10312 end function
10313#endif
10314
10315#if RK4_ENABLED
10316 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10318 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10319#endif
10320 use pm_kind, only: RKG => RK4
10321 procedure(real(RKG)) :: getFunc
10322 type(ninf_type) , intent(in) :: lb
10323 real(RKG) , intent(in) :: ub
10324 real(RKG) , intent(in) :: abstol
10325 real(RKG) , intent(in) :: reltol
10326 type(GK41_type) , intent(in) :: qrule
10327 type(weps_type) , intent(in) :: help
10328 real(RKG) , intent(out) :: integral, abserr
10329 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10330 integer(IK) , intent(out) , contiguous :: sindex(:)
10331 integer(IK) , intent(out) :: neval
10332 integer(IK) , intent(out) :: nint
10333 integer(IK) :: err
10334 end function
10335#endif
10336
10337#if RK3_ENABLED
10338 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10340 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10341#endif
10342 use pm_kind, only: RKG => RK3
10343 procedure(real(RKG)) :: getFunc
10344 type(ninf_type) , intent(in) :: lb
10345 real(RKG) , intent(in) :: ub
10346 real(RKG) , intent(in) :: abstol
10347 real(RKG) , intent(in) :: reltol
10348 type(GK41_type) , intent(in) :: qrule
10349 type(weps_type) , intent(in) :: help
10350 real(RKG) , intent(out) :: integral, abserr
10351 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10352 integer(IK) , intent(out) , contiguous :: sindex(:)
10353 integer(IK) , intent(out) :: neval
10354 integer(IK) , intent(out) :: nint
10355 integer(IK) :: err
10356 end function
10357#endif
10358
10359#if RK2_ENABLED
10360 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10362 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10363#endif
10364 use pm_kind, only: RKG => RK2
10365 procedure(real(RKG)) :: getFunc
10366 type(ninf_type) , intent(in) :: lb
10367 real(RKG) , intent(in) :: ub
10368 real(RKG) , intent(in) :: abstol
10369 real(RKG) , intent(in) :: reltol
10370 type(GK41_type) , intent(in) :: qrule
10371 type(weps_type) , intent(in) :: help
10372 real(RKG) , intent(out) :: integral, abserr
10373 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10374 integer(IK) , intent(out) , contiguous :: sindex(:)
10375 integer(IK) , intent(out) :: neval
10376 integer(IK) , intent(out) :: nint
10377 integer(IK) :: err
10378 end function
10379#endif
10380
10381#if RK1_ENABLED
10382 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10384 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10385#endif
10386 use pm_kind, only: RKG => RK1
10387 procedure(real(RKG)) :: getFunc
10388 type(ninf_type) , intent(in) :: lb
10389 real(RKG) , intent(in) :: ub
10390 real(RKG) , intent(in) :: abstol
10391 real(RKG) , intent(in) :: reltol
10392 type(GK41_type) , intent(in) :: qrule
10393 type(weps_type) , intent(in) :: help
10394 real(RKG) , intent(out) :: integral, abserr
10395 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10396 integer(IK) , intent(out) , contiguous :: sindex(:)
10397 integer(IK) , intent(out) :: neval
10398 integer(IK) , intent(out) :: nint
10399 integer(IK) :: err
10400 end function
10401#endif
10402
10403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10404
10405#if RK5_ENABLED
10406 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10408 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10409#endif
10410 use pm_kind, only: RKG => RK5
10411 procedure(real(RKG)) :: getFunc
10412 type(ninf_type) , intent(in) :: lb
10413 type(pinf_type) , intent(in) :: ub
10414 real(RKG) , intent(in) :: abstol
10415 real(RKG) , intent(in) :: reltol
10416 type(GK41_type) , intent(in) :: qrule
10417 type(weps_type) , intent(in) :: help
10418 real(RKG) , intent(out) :: integral, abserr
10419 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10420 integer(IK) , intent(out) , contiguous :: sindex(:)
10421 integer(IK) , intent(out) :: neval
10422 integer(IK) , intent(out) :: nint
10423 integer(IK) :: err
10424 end function
10425#endif
10426
10427#if RK4_ENABLED
10428 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10430 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10431#endif
10432 use pm_kind, only: RKG => RK4
10433 procedure(real(RKG)) :: getFunc
10434 type(ninf_type) , intent(in) :: lb
10435 type(pinf_type) , intent(in) :: ub
10436 real(RKG) , intent(in) :: abstol
10437 real(RKG) , intent(in) :: reltol
10438 type(GK41_type) , intent(in) :: qrule
10439 type(weps_type) , intent(in) :: help
10440 real(RKG) , intent(out) :: integral, abserr
10441 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10442 integer(IK) , intent(out) , contiguous :: sindex(:)
10443 integer(IK) , intent(out) :: neval
10444 integer(IK) , intent(out) :: nint
10445 integer(IK) :: err
10446 end function
10447#endif
10448
10449#if RK3_ENABLED
10450 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10453#endif
10454 use pm_kind, only: RKG => RK3
10455 procedure(real(RKG)) :: getFunc
10456 type(ninf_type) , intent(in) :: lb
10457 type(pinf_type) , intent(in) :: ub
10458 real(RKG) , intent(in) :: abstol
10459 real(RKG) , intent(in) :: reltol
10460 type(GK41_type) , intent(in) :: qrule
10461 type(weps_type) , intent(in) :: help
10462 real(RKG) , intent(out) :: integral, abserr
10463 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10464 integer(IK) , intent(out) , contiguous :: sindex(:)
10465 integer(IK) , intent(out) :: neval
10466 integer(IK) , intent(out) :: nint
10467 integer(IK) :: err
10468 end function
10469#endif
10470
10471#if RK2_ENABLED
10472 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10474 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10475#endif
10476 use pm_kind, only: RKG => RK2
10477 procedure(real(RKG)) :: getFunc
10478 type(ninf_type) , intent(in) :: lb
10479 type(pinf_type) , intent(in) :: ub
10480 real(RKG) , intent(in) :: abstol
10481 real(RKG) , intent(in) :: reltol
10482 type(GK41_type) , intent(in) :: qrule
10483 type(weps_type) , intent(in) :: help
10484 real(RKG) , intent(out) :: integral, abserr
10485 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10486 integer(IK) , intent(out) , contiguous :: sindex(:)
10487 integer(IK) , intent(out) :: neval
10488 integer(IK) , intent(out) :: nint
10489 integer(IK) :: err
10490 end function
10491#endif
10492
10493#if RK1_ENABLED
10494 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10496 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10497#endif
10498 use pm_kind, only: RKG => RK1
10499 procedure(real(RKG)) :: getFunc
10500 type(ninf_type) , intent(in) :: lb
10501 type(pinf_type) , intent(in) :: ub
10502 real(RKG) , intent(in) :: abstol
10503 real(RKG) , intent(in) :: reltol
10504 type(GK41_type) , intent(in) :: qrule
10505 type(weps_type) , intent(in) :: help
10506 real(RKG) , intent(out) :: integral, abserr
10507 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10508 integer(IK) , intent(out) , contiguous :: sindex(:)
10509 integer(IK) , intent(out) :: neval
10510 integer(IK) , intent(out) :: nint
10511 integer(IK) :: err
10512 end function
10513#endif
10514
10515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10516
10517 end interface
10518
10519 ! QAGS_GK51
10520
10521 interface getQuadErr
10522
10523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10524
10525#if RK5_ENABLED
10526 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10528 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10529#endif
10530 use pm_kind, only: RKG => RK5
10531 procedure(real(RKG)) :: getFunc
10532 real(RKG) , intent(in) :: lb
10533 real(RKG) , intent(in) :: ub
10534 real(RKG) , intent(in) :: abstol
10535 real(RKG) , intent(in) :: reltol
10536 type(GK51_type) , intent(in) :: qrule
10537 type(weps_type) , intent(in) :: help
10538 real(RKG) , intent(out) :: integral, abserr
10539 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10540 integer(IK) , intent(out) , contiguous :: sindex(:)
10541 integer(IK) , intent(out) :: neval
10542 integer(IK) , intent(out) :: nint
10543 integer(IK) :: err
10544 end function
10545#endif
10546
10547#if RK4_ENABLED
10548 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10550 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10551#endif
10552 use pm_kind, only: RKG => RK4
10553 procedure(real(RKG)) :: getFunc
10554 real(RKG) , intent(in) :: lb
10555 real(RKG) , intent(in) :: ub
10556 real(RKG) , intent(in) :: abstol
10557 real(RKG) , intent(in) :: reltol
10558 type(GK51_type) , intent(in) :: qrule
10559 type(weps_type) , intent(in) :: help
10560 real(RKG) , intent(out) :: integral, abserr
10561 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10562 integer(IK) , intent(out) , contiguous :: sindex(:)
10563 integer(IK) , intent(out) :: neval
10564 integer(IK) , intent(out) :: nint
10565 integer(IK) :: err
10566 end function
10567#endif
10568
10569#if RK3_ENABLED
10570 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10572 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10573#endif
10574 use pm_kind, only: RKG => RK3
10575 procedure(real(RKG)) :: getFunc
10576 real(RKG) , intent(in) :: lb
10577 real(RKG) , intent(in) :: ub
10578 real(RKG) , intent(in) :: abstol
10579 real(RKG) , intent(in) :: reltol
10580 type(GK51_type) , intent(in) :: qrule
10581 type(weps_type) , intent(in) :: help
10582 real(RKG) , intent(out) :: integral, abserr
10583 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10584 integer(IK) , intent(out) , contiguous :: sindex(:)
10585 integer(IK) , intent(out) :: neval
10586 integer(IK) , intent(out) :: nint
10587 integer(IK) :: err
10588 end function
10589#endif
10590
10591#if RK2_ENABLED
10592 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10595#endif
10596 use pm_kind, only: RKG => RK2
10597 procedure(real(RKG)) :: getFunc
10598 real(RKG) , intent(in) :: lb
10599 real(RKG) , intent(in) :: ub
10600 real(RKG) , intent(in) :: abstol
10601 real(RKG) , intent(in) :: reltol
10602 type(GK51_type) , intent(in) :: qrule
10603 type(weps_type) , intent(in) :: help
10604 real(RKG) , intent(out) :: integral, abserr
10605 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10606 integer(IK) , intent(out) , contiguous :: sindex(:)
10607 integer(IK) , intent(out) :: neval
10608 integer(IK) , intent(out) :: nint
10609 integer(IK) :: err
10610 end function
10611#endif
10612
10613#if RK1_ENABLED
10614 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10616 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10617#endif
10618 use pm_kind, only: RKG => RK1
10619 procedure(real(RKG)) :: getFunc
10620 real(RKG) , intent(in) :: lb
10621 real(RKG) , intent(in) :: ub
10622 real(RKG) , intent(in) :: abstol
10623 real(RKG) , intent(in) :: reltol
10624 type(GK51_type) , intent(in) :: qrule
10625 type(weps_type) , intent(in) :: help
10626 real(RKG) , intent(out) :: integral, abserr
10627 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10628 integer(IK) , intent(out) , contiguous :: sindex(:)
10629 integer(IK) , intent(out) :: neval
10630 integer(IK) , intent(out) :: nint
10631 integer(IK) :: err
10632 end function
10633#endif
10634
10635 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10636
10637#if RK5_ENABLED
10638 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10640 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10641#endif
10642 use pm_kind, only: RKG => RK5
10643 procedure(real(RKG)) :: getFunc
10644 real(RKG) , intent(in) :: lb
10645 type(pinf_type) , intent(in) :: ub
10646 real(RKG) , intent(in) :: abstol
10647 real(RKG) , intent(in) :: reltol
10648 type(GK51_type) , intent(in) :: qrule
10649 type(weps_type) , intent(in) :: help
10650 real(RKG) , intent(out) :: integral, abserr
10651 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10652 integer(IK) , intent(out) , contiguous :: sindex(:)
10653 integer(IK) , intent(out) :: neval
10654 integer(IK) , intent(out) :: nint
10655 integer(IK) :: err
10656 end function
10657#endif
10658
10659#if RK4_ENABLED
10660 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10663#endif
10664 use pm_kind, only: RKG => RK4
10665 procedure(real(RKG)) :: getFunc
10666 real(RKG) , intent(in) :: lb
10667 type(pinf_type) , intent(in) :: ub
10668 real(RKG) , intent(in) :: abstol
10669 real(RKG) , intent(in) :: reltol
10670 type(GK51_type) , intent(in) :: qrule
10671 type(weps_type) , intent(in) :: help
10672 real(RKG) , intent(out) :: integral, abserr
10673 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10674 integer(IK) , intent(out) , contiguous :: sindex(:)
10675 integer(IK) , intent(out) :: neval
10676 integer(IK) , intent(out) :: nint
10677 integer(IK) :: err
10678 end function
10679#endif
10680
10681#if RK3_ENABLED
10682 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10684 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10685#endif
10686 use pm_kind, only: RKG => RK3
10687 procedure(real(RKG)) :: getFunc
10688 real(RKG) , intent(in) :: lb
10689 type(pinf_type) , intent(in) :: ub
10690 real(RKG) , intent(in) :: abstol
10691 real(RKG) , intent(in) :: reltol
10692 type(GK51_type) , intent(in) :: qrule
10693 type(weps_type) , intent(in) :: help
10694 real(RKG) , intent(out) :: integral, abserr
10695 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10696 integer(IK) , intent(out) , contiguous :: sindex(:)
10697 integer(IK) , intent(out) :: neval
10698 integer(IK) , intent(out) :: nint
10699 integer(IK) :: err
10700 end function
10701#endif
10702
10703#if RK2_ENABLED
10704 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10707#endif
10708 use pm_kind, only: RKG => RK2
10709 procedure(real(RKG)) :: getFunc
10710 real(RKG) , intent(in) :: lb
10711 type(pinf_type) , intent(in) :: ub
10712 real(RKG) , intent(in) :: abstol
10713 real(RKG) , intent(in) :: reltol
10714 type(GK51_type) , intent(in) :: qrule
10715 type(weps_type) , intent(in) :: help
10716 real(RKG) , intent(out) :: integral, abserr
10717 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10718 integer(IK) , intent(out) , contiguous :: sindex(:)
10719 integer(IK) , intent(out) :: neval
10720 integer(IK) , intent(out) :: nint
10721 integer(IK) :: err
10722 end function
10723#endif
10724
10725#if RK1_ENABLED
10726 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10728 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10729#endif
10730 use pm_kind, only: RKG => RK1
10731 procedure(real(RKG)) :: getFunc
10732 real(RKG) , intent(in) :: lb
10733 type(pinf_type) , intent(in) :: ub
10734 real(RKG) , intent(in) :: abstol
10735 real(RKG) , intent(in) :: reltol
10736 type(GK51_type) , intent(in) :: qrule
10737 type(weps_type) , intent(in) :: help
10738 real(RKG) , intent(out) :: integral, abserr
10739 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10740 integer(IK) , intent(out) , contiguous :: sindex(:)
10741 integer(IK) , intent(out) :: neval
10742 integer(IK) , intent(out) :: nint
10743 integer(IK) :: err
10744 end function
10745#endif
10746
10747 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10748
10749#if RK5_ENABLED
10750 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10752 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10753#endif
10754 use pm_kind, only: RKG => RK5
10755 procedure(real(RKG)) :: getFunc
10756 type(ninf_type) , intent(in) :: lb
10757 real(RKG) , intent(in) :: ub
10758 real(RKG) , intent(in) :: abstol
10759 real(RKG) , intent(in) :: reltol
10760 type(GK51_type) , intent(in) :: qrule
10761 type(weps_type) , intent(in) :: help
10762 real(RKG) , intent(out) :: integral, abserr
10763 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10764 integer(IK) , intent(out) , contiguous :: sindex(:)
10765 integer(IK) , intent(out) :: neval
10766 integer(IK) , intent(out) :: nint
10767 integer(IK) :: err
10768 end function
10769#endif
10770
10771#if RK4_ENABLED
10772 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10774 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10775#endif
10776 use pm_kind, only: RKG => RK4
10777 procedure(real(RKG)) :: getFunc
10778 type(ninf_type) , intent(in) :: lb
10779 real(RKG) , intent(in) :: ub
10780 real(RKG) , intent(in) :: abstol
10781 real(RKG) , intent(in) :: reltol
10782 type(GK51_type) , intent(in) :: qrule
10783 type(weps_type) , intent(in) :: help
10784 real(RKG) , intent(out) :: integral, abserr
10785 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10786 integer(IK) , intent(out) , contiguous :: sindex(:)
10787 integer(IK) , intent(out) :: neval
10788 integer(IK) , intent(out) :: nint
10789 integer(IK) :: err
10790 end function
10791#endif
10792
10793#if RK3_ENABLED
10794 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10796 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10797#endif
10798 use pm_kind, only: RKG => RK3
10799 procedure(real(RKG)) :: getFunc
10800 type(ninf_type) , intent(in) :: lb
10801 real(RKG) , intent(in) :: ub
10802 real(RKG) , intent(in) :: abstol
10803 real(RKG) , intent(in) :: reltol
10804 type(GK51_type) , intent(in) :: qrule
10805 type(weps_type) , intent(in) :: help
10806 real(RKG) , intent(out) :: integral, abserr
10807 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10808 integer(IK) , intent(out) , contiguous :: sindex(:)
10809 integer(IK) , intent(out) :: neval
10810 integer(IK) , intent(out) :: nint
10811 integer(IK) :: err
10812 end function
10813#endif
10814
10815#if RK2_ENABLED
10816 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10818 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10819#endif
10820 use pm_kind, only: RKG => RK2
10821 procedure(real(RKG)) :: getFunc
10822 type(ninf_type) , intent(in) :: lb
10823 real(RKG) , intent(in) :: ub
10824 real(RKG) , intent(in) :: abstol
10825 real(RKG) , intent(in) :: reltol
10826 type(GK51_type) , intent(in) :: qrule
10827 type(weps_type) , intent(in) :: help
10828 real(RKG) , intent(out) :: integral, abserr
10829 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10830 integer(IK) , intent(out) , contiguous :: sindex(:)
10831 integer(IK) , intent(out) :: neval
10832 integer(IK) , intent(out) :: nint
10833 integer(IK) :: err
10834 end function
10835#endif
10836
10837#if RK1_ENABLED
10838 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10840 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10841#endif
10842 use pm_kind, only: RKG => RK1
10843 procedure(real(RKG)) :: getFunc
10844 type(ninf_type) , intent(in) :: lb
10845 real(RKG) , intent(in) :: ub
10846 real(RKG) , intent(in) :: abstol
10847 real(RKG) , intent(in) :: reltol
10848 type(GK51_type) , intent(in) :: qrule
10849 type(weps_type) , intent(in) :: help
10850 real(RKG) , intent(out) :: integral, abserr
10851 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10852 integer(IK) , intent(out) , contiguous :: sindex(:)
10853 integer(IK) , intent(out) :: neval
10854 integer(IK) , intent(out) :: nint
10855 integer(IK) :: err
10856 end function
10857#endif
10858
10859 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10860
10861#if RK5_ENABLED
10862 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10864 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10865#endif
10866 use pm_kind, only: RKG => RK5
10867 procedure(real(RKG)) :: getFunc
10868 type(ninf_type) , intent(in) :: lb
10869 type(pinf_type) , intent(in) :: ub
10870 real(RKG) , intent(in) :: abstol
10871 real(RKG) , intent(in) :: reltol
10872 type(GK51_type) , intent(in) :: qrule
10873 type(weps_type) , intent(in) :: help
10874 real(RKG) , intent(out) :: integral, abserr
10875 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10876 integer(IK) , intent(out) , contiguous :: sindex(:)
10877 integer(IK) , intent(out) :: neval
10878 integer(IK) , intent(out) :: nint
10879 integer(IK) :: err
10880 end function
10881#endif
10882
10883#if RK4_ENABLED
10884 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10886 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10887#endif
10888 use pm_kind, only: RKG => RK4
10889 procedure(real(RKG)) :: getFunc
10890 type(ninf_type) , intent(in) :: lb
10891 type(pinf_type) , intent(in) :: ub
10892 real(RKG) , intent(in) :: abstol
10893 real(RKG) , intent(in) :: reltol
10894 type(GK51_type) , intent(in) :: qrule
10895 type(weps_type) , intent(in) :: help
10896 real(RKG) , intent(out) :: integral, abserr
10897 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10898 integer(IK) , intent(out) , contiguous :: sindex(:)
10899 integer(IK) , intent(out) :: neval
10900 integer(IK) , intent(out) :: nint
10901 integer(IK) :: err
10902 end function
10903#endif
10904
10905#if RK3_ENABLED
10906 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10908 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10909#endif
10910 use pm_kind, only: RKG => RK3
10911 procedure(real(RKG)) :: getFunc
10912 type(ninf_type) , intent(in) :: lb
10913 type(pinf_type) , intent(in) :: ub
10914 real(RKG) , intent(in) :: abstol
10915 real(RKG) , intent(in) :: reltol
10916 type(GK51_type) , intent(in) :: qrule
10917 type(weps_type) , intent(in) :: help
10918 real(RKG) , intent(out) :: integral, abserr
10919 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10920 integer(IK) , intent(out) , contiguous :: sindex(:)
10921 integer(IK) , intent(out) :: neval
10922 integer(IK) , intent(out) :: nint
10923 integer(IK) :: err
10924 end function
10925#endif
10926
10927#if RK2_ENABLED
10928 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10930 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10931#endif
10932 use pm_kind, only: RKG => RK2
10933 procedure(real(RKG)) :: getFunc
10934 type(ninf_type) , intent(in) :: lb
10935 type(pinf_type) , intent(in) :: ub
10936 real(RKG) , intent(in) :: abstol
10937 real(RKG) , intent(in) :: reltol
10938 type(GK51_type) , intent(in) :: qrule
10939 type(weps_type) , intent(in) :: help
10940 real(RKG) , intent(out) :: integral, abserr
10941 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10942 integer(IK) , intent(out) , contiguous :: sindex(:)
10943 integer(IK) , intent(out) :: neval
10944 integer(IK) , intent(out) :: nint
10945 integer(IK) :: err
10946 end function
10947#endif
10948
10949#if RK1_ENABLED
10950 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10952 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10953#endif
10954 use pm_kind, only: RKG => RK1
10955 procedure(real(RKG)) :: getFunc
10956 type(ninf_type) , intent(in) :: lb
10957 type(pinf_type) , intent(in) :: ub
10958 real(RKG) , intent(in) :: abstol
10959 real(RKG) , intent(in) :: reltol
10960 type(GK51_type) , intent(in) :: qrule
10961 type(weps_type) , intent(in) :: help
10962 real(RKG) , intent(out) :: integral, abserr
10963 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10964 integer(IK) , intent(out) , contiguous :: sindex(:)
10965 integer(IK) , intent(out) :: neval
10966 integer(IK) , intent(out) :: nint
10967 integer(IK) :: err
10968 end function
10969#endif
10970
10971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10972
10973 end interface
10974
10975 ! QAGS_GK61
10976
10977 interface getQuadErr
10978
10979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10980
10981#if RK5_ENABLED
10982 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10985#endif
10986 use pm_kind, only: RKG => RK5
10987 procedure(real(RKG)) :: getFunc
10988 real(RKG) , intent(in) :: lb
10989 real(RKG) , intent(in) :: ub
10990 real(RKG) , intent(in) :: abstol
10991 real(RKG) , intent(in) :: reltol
10992 type(GK61_type) , intent(in) :: qrule
10993 type(weps_type) , intent(in) :: help
10994 real(RKG) , intent(out) :: integral, abserr
10995 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
10996 integer(IK) , intent(out) , contiguous :: sindex(:)
10997 integer(IK) , intent(out) :: neval
10998 integer(IK) , intent(out) :: nint
10999 integer(IK) :: err
11000 end function
11001#endif
11002
11003#if RK4_ENABLED
11004 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11006 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
11007#endif
11008 use pm_kind, only: RKG => RK4
11009 procedure(real(RKG)) :: getFunc
11010 real(RKG) , intent(in) :: lb
11011 real(RKG) , intent(in) :: ub
11012 real(RKG) , intent(in) :: abstol
11013 real(RKG) , intent(in) :: reltol
11014 type(GK61_type) , intent(in) :: qrule
11015 type(weps_type) , intent(in) :: help
11016 real(RKG) , intent(out) :: integral, abserr
11017 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11018 integer(IK) , intent(out) , contiguous :: sindex(:)
11019 integer(IK) , intent(out) :: neval
11020 integer(IK) , intent(out) :: nint
11021 integer(IK) :: err
11022 end function
11023#endif
11024
11025#if RK3_ENABLED
11026 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11028 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
11029#endif
11030 use pm_kind, only: RKG => RK3
11031 procedure(real(RKG)) :: getFunc
11032 real(RKG) , intent(in) :: lb
11033 real(RKG) , intent(in) :: ub
11034 real(RKG) , intent(in) :: abstol
11035 real(RKG) , intent(in) :: reltol
11036 type(GK61_type) , intent(in) :: qrule
11037 type(weps_type) , intent(in) :: help
11038 real(RKG) , intent(out) :: integral, abserr
11039 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11040 integer(IK) , intent(out) , contiguous :: sindex(:)
11041 integer(IK) , intent(out) :: neval
11042 integer(IK) , intent(out) :: nint
11043 integer(IK) :: err
11044 end function
11045#endif
11046
11047#if RK2_ENABLED
11048 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11050 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
11051#endif
11052 use pm_kind, only: RKG => RK2
11053 procedure(real(RKG)) :: getFunc
11054 real(RKG) , intent(in) :: lb
11055 real(RKG) , intent(in) :: ub
11056 real(RKG) , intent(in) :: abstol
11057 real(RKG) , intent(in) :: reltol
11058 type(GK61_type) , intent(in) :: qrule
11059 type(weps_type) , intent(in) :: help
11060 real(RKG) , intent(out) :: integral, abserr
11061 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11062 integer(IK) , intent(out) , contiguous :: sindex(:)
11063 integer(IK) , intent(out) :: neval
11064 integer(IK) , intent(out) :: nint
11065 integer(IK) :: err
11066 end function
11067#endif
11068
11069#if RK1_ENABLED
11070 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11072 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11073#endif
11074 use pm_kind, only: RKG => RK1
11075 procedure(real(RKG)) :: getFunc
11076 real(RKG) , intent(in) :: lb
11077 real(RKG) , intent(in) :: ub
11078 real(RKG) , intent(in) :: abstol
11079 real(RKG) , intent(in) :: reltol
11080 type(GK61_type) , intent(in) :: qrule
11081 type(weps_type) , intent(in) :: help
11082 real(RKG) , intent(out) :: integral, abserr
11083 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11084 integer(IK) , intent(out) , contiguous :: sindex(:)
11085 integer(IK) , intent(out) :: neval
11086 integer(IK) , intent(out) :: nint
11087 integer(IK) :: err
11088 end function
11089#endif
11090
11091 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11092
11093#if RK5_ENABLED
11094 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11097#endif
11098 use pm_kind, only: RKG => RK5
11099 procedure(real(RKG)) :: getFunc
11100 real(RKG) , intent(in) :: lb
11101 type(pinf_type) , intent(in) :: ub
11102 real(RKG) , intent(in) :: abstol
11103 real(RKG) , intent(in) :: reltol
11104 type(GK61_type) , intent(in) :: qrule
11105 type(weps_type) , intent(in) :: help
11106 real(RKG) , intent(out) :: integral, abserr
11107 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11108 integer(IK) , intent(out) , contiguous :: sindex(:)
11109 integer(IK) , intent(out) :: neval
11110 integer(IK) , intent(out) :: nint
11111 integer(IK) :: err
11112 end function
11113#endif
11114
11115#if RK4_ENABLED
11116 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11118 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11119#endif
11120 use pm_kind, only: RKG => RK4
11121 procedure(real(RKG)) :: getFunc
11122 real(RKG) , intent(in) :: lb
11123 type(pinf_type) , intent(in) :: ub
11124 real(RKG) , intent(in) :: abstol
11125 real(RKG) , intent(in) :: reltol
11126 type(GK61_type) , intent(in) :: qrule
11127 type(weps_type) , intent(in) :: help
11128 real(RKG) , intent(out) :: integral, abserr
11129 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11130 integer(IK) , intent(out) , contiguous :: sindex(:)
11131 integer(IK) , intent(out) :: neval
11132 integer(IK) , intent(out) :: nint
11133 integer(IK) :: err
11134 end function
11135#endif
11136
11137#if RK3_ENABLED
11138 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11140 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11141#endif
11142 use pm_kind, only: RKG => RK3
11143 procedure(real(RKG)) :: getFunc
11144 real(RKG) , intent(in) :: lb
11145 type(pinf_type) , intent(in) :: ub
11146 real(RKG) , intent(in) :: abstol
11147 real(RKG) , intent(in) :: reltol
11148 type(GK61_type) , intent(in) :: qrule
11149 type(weps_type) , intent(in) :: help
11150 real(RKG) , intent(out) :: integral, abserr
11151 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11152 integer(IK) , intent(out) , contiguous :: sindex(:)
11153 integer(IK) , intent(out) :: neval
11154 integer(IK) , intent(out) :: nint
11155 integer(IK) :: err
11156 end function
11157#endif
11158
11159#if RK2_ENABLED
11160 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11162 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11163#endif
11164 use pm_kind, only: RKG => RK2
11165 procedure(real(RKG)) :: getFunc
11166 real(RKG) , intent(in) :: lb
11167 type(pinf_type) , intent(in) :: ub
11168 real(RKG) , intent(in) :: abstol
11169 real(RKG) , intent(in) :: reltol
11170 type(GK61_type) , intent(in) :: qrule
11171 type(weps_type) , intent(in) :: help
11172 real(RKG) , intent(out) :: integral, abserr
11173 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11174 integer(IK) , intent(out) , contiguous :: sindex(:)
11175 integer(IK) , intent(out) :: neval
11176 integer(IK) , intent(out) :: nint
11177 integer(IK) :: err
11178 end function
11179#endif
11180
11181#if RK1_ENABLED
11182 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11185#endif
11186 use pm_kind, only: RKG => RK1
11187 procedure(real(RKG)) :: getFunc
11188 real(RKG) , intent(in) :: lb
11189 type(pinf_type) , intent(in) :: ub
11190 real(RKG) , intent(in) :: abstol
11191 real(RKG) , intent(in) :: reltol
11192 type(GK61_type) , intent(in) :: qrule
11193 type(weps_type) , intent(in) :: help
11194 real(RKG) , intent(out) :: integral, abserr
11195 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11196 integer(IK) , intent(out) , contiguous :: sindex(:)
11197 integer(IK) , intent(out) :: neval
11198 integer(IK) , intent(out) :: nint
11199 integer(IK) :: err
11200 end function
11201#endif
11202
11203 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11204
11205#if RK5_ENABLED
11206 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11208 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11209#endif
11210 use pm_kind, only: RKG => RK5
11211 procedure(real(RKG)) :: getFunc
11212 type(ninf_type) , intent(in) :: lb
11213 real(RKG) , intent(in) :: ub
11214 real(RKG) , intent(in) :: abstol
11215 real(RKG) , intent(in) :: reltol
11216 type(GK61_type) , intent(in) :: qrule
11217 type(weps_type) , intent(in) :: help
11218 real(RKG) , intent(out) :: integral, abserr
11219 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11220 integer(IK) , intent(out) , contiguous :: sindex(:)
11221 integer(IK) , intent(out) :: neval
11222 integer(IK) , intent(out) :: nint
11223 integer(IK) :: err
11224 end function
11225#endif
11226
11227#if RK4_ENABLED
11228 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11231#endif
11232 use pm_kind, only: RKG => RK4
11233 procedure(real(RKG)) :: getFunc
11234 type(ninf_type) , intent(in) :: lb
11235 real(RKG) , intent(in) :: ub
11236 real(RKG) , intent(in) :: abstol
11237 real(RKG) , intent(in) :: reltol
11238 type(GK61_type) , intent(in) :: qrule
11239 type(weps_type) , intent(in) :: help
11240 real(RKG) , intent(out) :: integral, abserr
11241 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11242 integer(IK) , intent(out) , contiguous :: sindex(:)
11243 integer(IK) , intent(out) :: neval
11244 integer(IK) , intent(out) :: nint
11245 integer(IK) :: err
11246 end function
11247#endif
11248
11249#if RK3_ENABLED
11250 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11252 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11253#endif
11254 use pm_kind, only: RKG => RK3
11255 procedure(real(RKG)) :: getFunc
11256 type(ninf_type) , intent(in) :: lb
11257 real(RKG) , intent(in) :: ub
11258 real(RKG) , intent(in) :: abstol
11259 real(RKG) , intent(in) :: reltol
11260 type(GK61_type) , intent(in) :: qrule
11261 type(weps_type) , intent(in) :: help
11262 real(RKG) , intent(out) :: integral, abserr
11263 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11264 integer(IK) , intent(out) , contiguous :: sindex(:)
11265 integer(IK) , intent(out) :: neval
11266 integer(IK) , intent(out) :: nint
11267 integer(IK) :: err
11268 end function
11269#endif
11270
11271#if RK2_ENABLED
11272 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11274 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11275#endif
11276 use pm_kind, only: RKG => RK2
11277 procedure(real(RKG)) :: getFunc
11278 type(ninf_type) , intent(in) :: lb
11279 real(RKG) , intent(in) :: ub
11280 real(RKG) , intent(in) :: abstol
11281 real(RKG) , intent(in) :: reltol
11282 type(GK61_type) , intent(in) :: qrule
11283 type(weps_type) , intent(in) :: help
11284 real(RKG) , intent(out) :: integral, abserr
11285 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11286 integer(IK) , intent(out) , contiguous :: sindex(:)
11287 integer(IK) , intent(out) :: neval
11288 integer(IK) , intent(out) :: nint
11289 integer(IK) :: err
11290 end function
11291#endif
11292
11293#if RK1_ENABLED
11294 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11296 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11297#endif
11298 use pm_kind, only: RKG => RK1
11299 procedure(real(RKG)) :: getFunc
11300 type(ninf_type) , intent(in) :: lb
11301 real(RKG) , intent(in) :: ub
11302 real(RKG) , intent(in) :: abstol
11303 real(RKG) , intent(in) :: reltol
11304 type(GK61_type) , intent(in) :: qrule
11305 type(weps_type) , intent(in) :: help
11306 real(RKG) , intent(out) :: integral, abserr
11307 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11308 integer(IK) , intent(out) , contiguous :: sindex(:)
11309 integer(IK) , intent(out) :: neval
11310 integer(IK) , intent(out) :: nint
11311 integer(IK) :: err
11312 end function
11313#endif
11314
11315 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11316
11317#if RK5_ENABLED
11318 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11320 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11321#endif
11322 use pm_kind, only: RKG => RK5
11323 procedure(real(RKG)) :: getFunc
11324 type(ninf_type) , intent(in) :: lb
11325 type(pinf_type) , intent(in) :: ub
11326 real(RKG) , intent(in) :: abstol
11327 real(RKG) , intent(in) :: reltol
11328 type(GK61_type) , intent(in) :: qrule
11329 type(weps_type) , intent(in) :: help
11330 real(RKG) , intent(out) :: integral, abserr
11331 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11332 integer(IK) , intent(out) , contiguous :: sindex(:)
11333 integer(IK) , intent(out) :: neval
11334 integer(IK) , intent(out) :: nint
11335 integer(IK) :: err
11336 end function
11337#endif
11338
11339#if RK4_ENABLED
11340 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11342 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11343#endif
11344 use pm_kind, only: RKG => RK4
11345 procedure(real(RKG)) :: getFunc
11346 type(ninf_type) , intent(in) :: lb
11347 type(pinf_type) , intent(in) :: ub
11348 real(RKG) , intent(in) :: abstol
11349 real(RKG) , intent(in) :: reltol
11350 type(GK61_type) , intent(in) :: qrule
11351 type(weps_type) , intent(in) :: help
11352 real(RKG) , intent(out) :: integral, abserr
11353 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11354 integer(IK) , intent(out) , contiguous :: sindex(:)
11355 integer(IK) , intent(out) :: neval
11356 integer(IK) , intent(out) :: nint
11357 integer(IK) :: err
11358 end function
11359#endif
11360
11361#if RK3_ENABLED
11362 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11364 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11365#endif
11366 use pm_kind, only: RKG => RK3
11367 procedure(real(RKG)) :: getFunc
11368 type(ninf_type) , intent(in) :: lb
11369 type(pinf_type) , intent(in) :: ub
11370 real(RKG) , intent(in) :: abstol
11371 real(RKG) , intent(in) :: reltol
11372 type(GK61_type) , intent(in) :: qrule
11373 type(weps_type) , intent(in) :: help
11374 real(RKG) , intent(out) :: integral, abserr
11375 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11376 integer(IK) , intent(out) , contiguous :: sindex(:)
11377 integer(IK) , intent(out) :: neval
11378 integer(IK) , intent(out) :: nint
11379 integer(IK) :: err
11380 end function
11381#endif
11382
11383#if RK2_ENABLED
11384 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11386 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11387#endif
11388 use pm_kind, only: RKG => RK2
11389 procedure(real(RKG)) :: getFunc
11390 type(ninf_type) , intent(in) :: lb
11391 type(pinf_type) , intent(in) :: ub
11392 real(RKG) , intent(in) :: abstol
11393 real(RKG) , intent(in) :: reltol
11394 type(GK61_type) , intent(in) :: qrule
11395 type(weps_type) , intent(in) :: help
11396 real(RKG) , intent(out) :: integral, abserr
11397 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11398 integer(IK) , intent(out) , contiguous :: sindex(:)
11399 integer(IK) , intent(out) :: neval
11400 integer(IK) , intent(out) :: nint
11401 integer(IK) :: err
11402 end function
11403#endif
11404
11405#if RK1_ENABLED
11406 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11408 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11409#endif
11410 use pm_kind, only: RKG => RK1
11411 procedure(real(RKG)) :: getFunc
11412 type(ninf_type) , intent(in) :: lb
11413 type(pinf_type) , intent(in) :: ub
11414 real(RKG) , intent(in) :: abstol
11415 real(RKG) , intent(in) :: reltol
11416 type(GK61_type) , intent(in) :: qrule
11417 type(weps_type) , intent(in) :: help
11418 real(RKG) , intent(out) :: integral, abserr
11419 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11420 integer(IK) , intent(out) , contiguous :: sindex(:)
11421 integer(IK) , intent(out) :: neval
11422 integer(IK) , intent(out) :: nint
11423 integer(IK) :: err
11424 end function
11425#endif
11426
11427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11428
11429 end interface
11430
11431 ! QAGS_GKXX
11432
11433 interface getQuadErr
11434
11435 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11436
11437#if RK5_ENABLED
11438 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11441#endif
11442 use pm_kind, only: RKG => RK5
11443 procedure(real(RKG)) :: getFunc
11444 real(RKG) , intent(in) :: lb
11445 real(RKG) , intent(in) :: ub
11446 real(RKG) , intent(in) :: abstol
11447 real(RKG) , intent(in) :: reltol
11448 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11449 type(weps_type) , intent(in) :: help
11450 real(RKG) , intent(out) :: integral, abserr
11451 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11452 integer(IK) , intent(out) , contiguous :: sindex(:)
11453 integer(IK) , intent(out) :: neval
11454 integer(IK) , intent(out) :: nint
11455 integer(IK) :: err
11456 end function
11457#endif
11458
11459#if RK4_ENABLED
11460 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11462 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11463#endif
11464 use pm_kind, only: RKG => RK4
11465 procedure(real(RKG)) :: getFunc
11466 real(RKG) , intent(in) :: lb
11467 real(RKG) , intent(in) :: ub
11468 real(RKG) , intent(in) :: abstol
11469 real(RKG) , intent(in) :: reltol
11470 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11471 type(weps_type) , intent(in) :: help
11472 real(RKG) , intent(out) :: integral, abserr
11473 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11474 integer(IK) , intent(out) , contiguous :: sindex(:)
11475 integer(IK) , intent(out) :: neval
11476 integer(IK) , intent(out) :: nint
11477 integer(IK) :: err
11478 end function
11479#endif
11480
11481#if RK3_ENABLED
11482 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11484 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11485#endif
11486 use pm_kind, only: RKG => RK3
11487 procedure(real(RKG)) :: getFunc
11488 real(RKG) , intent(in) :: lb
11489 real(RKG) , intent(in) :: ub
11490 real(RKG) , intent(in) :: abstol
11491 real(RKG) , intent(in) :: reltol
11492 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11493 type(weps_type) , intent(in) :: help
11494 real(RKG) , intent(out) :: integral, abserr
11495 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11496 integer(IK) , intent(out) , contiguous :: sindex(:)
11497 integer(IK) , intent(out) :: neval
11498 integer(IK) , intent(out) :: nint
11499 integer(IK) :: err
11500 end function
11501#endif
11502
11503#if RK2_ENABLED
11504 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11506 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11507#endif
11508 use pm_kind, only: RKG => RK2
11509 procedure(real(RKG)) :: getFunc
11510 real(RKG) , intent(in) :: lb
11511 real(RKG) , intent(in) :: ub
11512 real(RKG) , intent(in) :: abstol
11513 real(RKG) , intent(in) :: reltol
11514 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11515 type(weps_type) , intent(in) :: help
11516 real(RKG) , intent(out) :: integral, abserr
11517 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11518 integer(IK) , intent(out) , contiguous :: sindex(:)
11519 integer(IK) , intent(out) :: neval
11520 integer(IK) , intent(out) :: nint
11521 integer(IK) :: err
11522 end function
11523#endif
11524
11525#if RK1_ENABLED
11526 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11528 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11529#endif
11530 use pm_kind, only: RKG => RK1
11531 procedure(real(RKG)) :: getFunc
11532 real(RKG) , intent(in) :: lb
11533 real(RKG) , intent(in) :: ub
11534 real(RKG) , intent(in) :: abstol
11535 real(RKG) , intent(in) :: reltol
11536 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11537 type(weps_type) , intent(in) :: help
11538 real(RKG) , intent(out) :: integral, abserr
11539 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11540 integer(IK) , intent(out) , contiguous :: sindex(:)
11541 integer(IK) , intent(out) :: neval
11542 integer(IK) , intent(out) :: nint
11543 integer(IK) :: err
11544 end function
11545#endif
11546
11547 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11548
11549#if RK5_ENABLED
11550 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11553#endif
11554 use pm_kind, only: RKG => RK5
11555 procedure(real(RKG)) :: getFunc
11556 real(RKG) , intent(in) :: lb
11557 type(pinf_type) , intent(in) :: ub
11558 real(RKG) , intent(in) :: abstol
11559 real(RKG) , intent(in) :: reltol
11560 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11561 type(weps_type) , intent(in) :: help
11562 real(RKG) , intent(out) :: integral, abserr
11563 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11564 integer(IK) , intent(out) , contiguous :: sindex(:)
11565 integer(IK) , intent(out) :: neval
11566 integer(IK) , intent(out) :: nint
11567 integer(IK) :: err
11568 end function
11569#endif
11570
11571#if RK4_ENABLED
11572 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11574 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11575#endif
11576 use pm_kind, only: RKG => RK4
11577 procedure(real(RKG)) :: getFunc
11578 real(RKG) , intent(in) :: lb
11579 type(pinf_type) , intent(in) :: ub
11580 real(RKG) , intent(in) :: abstol
11581 real(RKG) , intent(in) :: reltol
11582 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11583 type(weps_type) , intent(in) :: help
11584 real(RKG) , intent(out) :: integral, abserr
11585 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11586 integer(IK) , intent(out) , contiguous :: sindex(:)
11587 integer(IK) , intent(out) :: neval
11588 integer(IK) , intent(out) :: nint
11589 integer(IK) :: err
11590 end function
11591#endif
11592
11593#if RK3_ENABLED
11594 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11596 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11597#endif
11598 use pm_kind, only: RKG => RK3
11599 procedure(real(RKG)) :: getFunc
11600 real(RKG) , intent(in) :: lb
11601 type(pinf_type) , intent(in) :: ub
11602 real(RKG) , intent(in) :: abstol
11603 real(RKG) , intent(in) :: reltol
11604 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11605 type(weps_type) , intent(in) :: help
11606 real(RKG) , intent(out) :: integral, abserr
11607 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11608 integer(IK) , intent(out) , contiguous :: sindex(:)
11609 integer(IK) , intent(out) :: neval
11610 integer(IK) , intent(out) :: nint
11611 integer(IK) :: err
11612 end function
11613#endif
11614
11615#if RK2_ENABLED
11616 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11618 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11619#endif
11620 use pm_kind, only: RKG => RK2
11621 procedure(real(RKG)) :: getFunc
11622 real(RKG) , intent(in) :: lb
11623 type(pinf_type) , intent(in) :: ub
11624 real(RKG) , intent(in) :: abstol
11625 real(RKG) , intent(in) :: reltol
11626 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11627 type(weps_type) , intent(in) :: help
11628 real(RKG) , intent(out) :: integral, abserr
11629 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11630 integer(IK) , intent(out) , contiguous :: sindex(:)
11631 integer(IK) , intent(out) :: neval
11632 integer(IK) , intent(out) :: nint
11633 integer(IK) :: err
11634 end function
11635#endif
11636
11637#if RK1_ENABLED
11638 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11640 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11641#endif
11642 use pm_kind, only: RKG => RK1
11643 procedure(real(RKG)) :: getFunc
11644 real(RKG) , intent(in) :: lb
11645 type(pinf_type) , intent(in) :: ub
11646 real(RKG) , intent(in) :: abstol
11647 real(RKG) , intent(in) :: reltol
11648 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11649 type(weps_type) , intent(in) :: help
11650 real(RKG) , intent(out) :: integral, abserr
11651 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11652 integer(IK) , intent(out) , contiguous :: sindex(:)
11653 integer(IK) , intent(out) :: neval
11654 integer(IK) , intent(out) :: nint
11655 integer(IK) :: err
11656 end function
11657#endif
11658
11659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11660
11661#if RK5_ENABLED
11662 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11665#endif
11666 use pm_kind, only: RKG => RK5
11667 procedure(real(RKG)) :: getFunc
11668 type(ninf_type) , intent(in) :: lb
11669 real(RKG) , intent(in) :: ub
11670 real(RKG) , intent(in) :: abstol
11671 real(RKG) , intent(in) :: reltol
11672 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11673 type(weps_type) , intent(in) :: help
11674 real(RKG) , intent(out) :: integral, abserr
11675 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11676 integer(IK) , intent(out) , contiguous :: sindex(:)
11677 integer(IK) , intent(out) :: neval
11678 integer(IK) , intent(out) :: nint
11679 integer(IK) :: err
11680 end function
11681#endif
11682
11683#if RK4_ENABLED
11684 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11686 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11687#endif
11688 use pm_kind, only: RKG => RK4
11689 procedure(real(RKG)) :: getFunc
11690 type(ninf_type) , intent(in) :: lb
11691 real(RKG) , intent(in) :: ub
11692 real(RKG) , intent(in) :: abstol
11693 real(RKG) , intent(in) :: reltol
11694 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11695 type(weps_type) , intent(in) :: help
11696 real(RKG) , intent(out) :: integral, abserr
11697 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11698 integer(IK) , intent(out) , contiguous :: sindex(:)
11699 integer(IK) , intent(out) :: neval
11700 integer(IK) , intent(out) :: nint
11701 integer(IK) :: err
11702 end function
11703#endif
11704
11705#if RK3_ENABLED
11706 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11709#endif
11710 use pm_kind, only: RKG => RK3
11711 procedure(real(RKG)) :: getFunc
11712 type(ninf_type) , intent(in) :: lb
11713 real(RKG) , intent(in) :: ub
11714 real(RKG) , intent(in) :: abstol
11715 real(RKG) , intent(in) :: reltol
11716 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11717 type(weps_type) , intent(in) :: help
11718 real(RKG) , intent(out) :: integral, abserr
11719 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11720 integer(IK) , intent(out) , contiguous :: sindex(:)
11721 integer(IK) , intent(out) :: neval
11722 integer(IK) , intent(out) :: nint
11723 integer(IK) :: err
11724 end function
11725#endif
11726
11727#if RK2_ENABLED
11728 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11730 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11731#endif
11732 use pm_kind, only: RKG => RK2
11733 procedure(real(RKG)) :: getFunc
11734 type(ninf_type) , intent(in) :: lb
11735 real(RKG) , intent(in) :: ub
11736 real(RKG) , intent(in) :: abstol
11737 real(RKG) , intent(in) :: reltol
11738 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11739 type(weps_type) , intent(in) :: help
11740 real(RKG) , intent(out) :: integral, abserr
11741 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11742 integer(IK) , intent(out) , contiguous :: sindex(:)
11743 integer(IK) , intent(out) :: neval
11744 integer(IK) , intent(out) :: nint
11745 integer(IK) :: err
11746 end function
11747#endif
11748
11749#if RK1_ENABLED
11750 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11752 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11753#endif
11754 use pm_kind, only: RKG => RK1
11755 procedure(real(RKG)) :: getFunc
11756 type(ninf_type) , intent(in) :: lb
11757 real(RKG) , intent(in) :: ub
11758 real(RKG) , intent(in) :: abstol
11759 real(RKG) , intent(in) :: reltol
11760 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11761 type(weps_type) , intent(in) :: help
11762 real(RKG) , intent(out) :: integral, abserr
11763 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11764 integer(IK) , intent(out) , contiguous :: sindex(:)
11765 integer(IK) , intent(out) :: neval
11766 integer(IK) , intent(out) :: nint
11767 integer(IK) :: err
11768 end function
11769#endif
11770
11771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11772
11773#if RK5_ENABLED
11774 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11777#endif
11778 use pm_kind, only: RKG => RK5
11779 procedure(real(RKG)) :: getFunc
11780 type(ninf_type) , intent(in) :: lb
11781 type(pinf_type) , intent(in) :: ub
11782 real(RKG) , intent(in) :: abstol
11783 real(RKG) , intent(in) :: reltol
11784 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11785 type(weps_type) , intent(in) :: help
11786 real(RKG) , intent(out) :: integral, abserr
11787 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11788 integer(IK) , intent(out) , contiguous :: sindex(:)
11789 integer(IK) , intent(out) :: neval
11790 integer(IK) , intent(out) :: nint
11791 integer(IK) :: err
11792 end function
11793#endif
11794
11795#if RK4_ENABLED
11796 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11798 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11799#endif
11800 use pm_kind, only: RKG => RK4
11801 procedure(real(RKG)) :: getFunc
11802 type(ninf_type) , intent(in) :: lb
11803 type(pinf_type) , intent(in) :: ub
11804 real(RKG) , intent(in) :: abstol
11805 real(RKG) , intent(in) :: reltol
11806 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11807 type(weps_type) , intent(in) :: help
11808 real(RKG) , intent(out) :: integral, abserr
11809 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11810 integer(IK) , intent(out) , contiguous :: sindex(:)
11811 integer(IK) , intent(out) :: neval
11812 integer(IK) , intent(out) :: nint
11813 integer(IK) :: err
11814 end function
11815#endif
11816
11817#if RK3_ENABLED
11818 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11820 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11821#endif
11822 use pm_kind, only: RKG => RK3
11823 procedure(real(RKG)) :: getFunc
11824 type(ninf_type) , intent(in) :: lb
11825 type(pinf_type) , intent(in) :: ub
11826 real(RKG) , intent(in) :: abstol
11827 real(RKG) , intent(in) :: reltol
11828 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11829 type(weps_type) , intent(in) :: help
11830 real(RKG) , intent(out) :: integral, abserr
11831 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11832 integer(IK) , intent(out) , contiguous :: sindex(:)
11833 integer(IK) , intent(out) :: neval
11834 integer(IK) , intent(out) :: nint
11835 integer(IK) :: err
11836 end function
11837#endif
11838
11839#if RK2_ENABLED
11840 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11842 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11843#endif
11844 use pm_kind, only: RKG => RK2
11845 procedure(real(RKG)) :: getFunc
11846 type(ninf_type) , intent(in) :: lb
11847 type(pinf_type) , intent(in) :: ub
11848 real(RKG) , intent(in) :: abstol
11849 real(RKG) , intent(in) :: reltol
11850 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11851 type(weps_type) , intent(in) :: help
11852 real(RKG) , intent(out) :: integral, abserr
11853 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11854 integer(IK) , intent(out) , contiguous :: sindex(:)
11855 integer(IK) , intent(out) :: neval
11856 integer(IK) , intent(out) :: nint
11857 integer(IK) :: err
11858 end function
11859#endif
11860
11861#if RK1_ENABLED
11862 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11864 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11865#endif
11866 use pm_kind, only: RKG => RK1
11867 procedure(real(RKG)) :: getFunc
11868 type(ninf_type) , intent(in) :: lb
11869 type(pinf_type) , intent(in) :: ub
11870 real(RKG) , intent(in) :: abstol
11871 real(RKG) , intent(in) :: reltol
11872 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11873 type(weps_type) , intent(in) :: help
11874 real(RKG) , intent(out) :: integral, abserr
11875 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11876 integer(IK) , intent(out) , contiguous :: sindex(:)
11877 integer(IK) , intent(out) :: neval
11878 integer(IK) , intent(out) :: nint
11879 integer(IK) :: err
11880 end function
11881#endif
11882
11883 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11884
11885 end interface
11886
11887!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11888
11889 ! QAGP_GK15
11890
11891 interface getQuadErr
11892
11893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11894
11895#if RK5_ENABLED
11896 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11899#endif
11900 use pm_kind, only: RKG => RK5
11901 procedure(real(RKG)) :: getFunc
11902 real(RKG) , intent(in) :: lb
11903 real(RKG) , intent(in) :: ub
11904 real(RKG) , intent(in) :: abstol
11905 real(RKG) , intent(in) :: reltol
11906 type(GK15_type) , intent(in) :: qrule
11907 real(RKG) , intent(in) , contiguous :: help(:)
11908 real(RKG) , intent(out) :: integral, abserr
11909 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11910 integer(IK) , intent(out) , contiguous :: sindex(:)
11911 integer(IK) , intent(out) :: neval
11912 integer(IK) , intent(out) :: nint
11913 integer(IK) :: err
11914 end function
11915#endif
11916
11917#if RK4_ENABLED
11918 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11921#endif
11922 use pm_kind, only: RKG => RK4
11923 procedure(real(RKG)) :: getFunc
11924 real(RKG) , intent(in) :: lb
11925 real(RKG) , intent(in) :: ub
11926 real(RKG) , intent(in) :: abstol
11927 real(RKG) , intent(in) :: reltol
11928 type(GK15_type) , intent(in) :: qrule
11929 real(RKG) , intent(in) , contiguous :: help(:)
11930 real(RKG) , intent(out) :: integral, abserr
11931 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11932 integer(IK) , intent(out) , contiguous :: sindex(:)
11933 integer(IK) , intent(out) :: neval
11934 integer(IK) , intent(out) :: nint
11935 integer(IK) :: err
11936 end function
11937#endif
11938
11939#if RK3_ENABLED
11940 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11943#endif
11944 use pm_kind, only: RKG => RK3
11945 procedure(real(RKG)) :: getFunc
11946 real(RKG) , intent(in) :: lb
11947 real(RKG) , intent(in) :: ub
11948 real(RKG) , intent(in) :: abstol
11949 real(RKG) , intent(in) :: reltol
11950 type(GK15_type) , intent(in) :: qrule
11951 real(RKG) , intent(in) , contiguous :: help(:)
11952 real(RKG) , intent(out) :: integral, abserr
11953 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11954 integer(IK) , intent(out) , contiguous :: sindex(:)
11955 integer(IK) , intent(out) :: neval
11956 integer(IK) , intent(out) :: nint
11957 integer(IK) :: err
11958 end function
11959#endif
11960
11961#if RK2_ENABLED
11962 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11965#endif
11966 use pm_kind, only: RKG => RK2
11967 procedure(real(RKG)) :: getFunc
11968 real(RKG) , intent(in) :: lb
11969 real(RKG) , intent(in) :: ub
11970 real(RKG) , intent(in) :: abstol
11971 real(RKG) , intent(in) :: reltol
11972 type(GK15_type) , intent(in) :: qrule
11973 real(RKG) , intent(in) , contiguous :: help(:)
11974 real(RKG) , intent(out) :: integral, abserr
11975 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11976 integer(IK) , intent(out) , contiguous :: sindex(:)
11977 integer(IK) , intent(out) :: neval
11978 integer(IK) , intent(out) :: nint
11979 integer(IK) :: err
11980 end function
11981#endif
11982
11983#if RK1_ENABLED
11984 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11987#endif
11988 use pm_kind, only: RKG => RK1
11989 procedure(real(RKG)) :: getFunc
11990 real(RKG) , intent(in) :: lb
11991 real(RKG) , intent(in) :: ub
11992 real(RKG) , intent(in) :: abstol
11993 real(RKG) , intent(in) :: reltol
11994 type(GK15_type) , intent(in) :: qrule
11995 real(RKG) , intent(in) , contiguous :: help(:)
11996 real(RKG) , intent(out) :: integral, abserr
11997 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
11998 integer(IK) , intent(out) , contiguous :: sindex(:)
11999 integer(IK) , intent(out) :: neval
12000 integer(IK) , intent(out) :: nint
12001 integer(IK) :: err
12002 end function
12003#endif
12004
12005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12006
12007#if RK5_ENABLED
12008 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12010 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
12011#endif
12012 use pm_kind, only: RKG => RK5
12013 procedure(real(RKG)) :: getFunc
12014 real(RKG) , intent(in) :: lb
12015 type(pinf_type) , intent(in) :: ub
12016 real(RKG) , intent(in) :: abstol
12017 real(RKG) , intent(in) :: reltol
12018 type(GK15_type) , intent(in) :: qrule
12019 real(RKG) , intent(in) , contiguous :: help(:)
12020 real(RKG) , intent(out) :: integral, abserr
12021 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12022 integer(IK) , intent(out) , contiguous :: sindex(:)
12023 integer(IK) , intent(out) :: neval
12024 integer(IK) , intent(out) :: nint
12025 integer(IK) :: err
12026 end function
12027#endif
12028
12029#if RK4_ENABLED
12030 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
12033#endif
12034 use pm_kind, only: RKG => RK4
12035 procedure(real(RKG)) :: getFunc
12036 real(RKG) , intent(in) :: lb
12037 type(pinf_type) , intent(in) :: ub
12038 real(RKG) , intent(in) :: abstol
12039 real(RKG) , intent(in) :: reltol
12040 type(GK15_type) , intent(in) :: qrule
12041 real(RKG) , intent(in) , contiguous :: help(:)
12042 real(RKG) , intent(out) :: integral, abserr
12043 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12044 integer(IK) , intent(out) , contiguous :: sindex(:)
12045 integer(IK) , intent(out) :: neval
12046 integer(IK) , intent(out) :: nint
12047 integer(IK) :: err
12048 end function
12049#endif
12050
12051#if RK3_ENABLED
12052 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12054 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
12055#endif
12056 use pm_kind, only: RKG => RK3
12057 procedure(real(RKG)) :: getFunc
12058 real(RKG) , intent(in) :: lb
12059 type(pinf_type) , intent(in) :: ub
12060 real(RKG) , intent(in) :: abstol
12061 real(RKG) , intent(in) :: reltol
12062 type(GK15_type) , intent(in) :: qrule
12063 real(RKG) , intent(in) , contiguous :: help(:)
12064 real(RKG) , intent(out) :: integral, abserr
12065 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12066 integer(IK) , intent(out) , contiguous :: sindex(:)
12067 integer(IK) , intent(out) :: neval
12068 integer(IK) , intent(out) :: nint
12069 integer(IK) :: err
12070 end function
12071#endif
12072
12073#if RK2_ENABLED
12074 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12077#endif
12078 use pm_kind, only: RKG => RK2
12079 procedure(real(RKG)) :: getFunc
12080 real(RKG) , intent(in) :: lb
12081 type(pinf_type) , intent(in) :: ub
12082 real(RKG) , intent(in) :: abstol
12083 real(RKG) , intent(in) :: reltol
12084 type(GK15_type) , intent(in) :: qrule
12085 real(RKG) , intent(in) , contiguous :: help(:)
12086 real(RKG) , intent(out) :: integral, abserr
12087 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12088 integer(IK) , intent(out) , contiguous :: sindex(:)
12089 integer(IK) , intent(out) :: neval
12090 integer(IK) , intent(out) :: nint
12091 integer(IK) :: err
12092 end function
12093#endif
12094
12095#if RK1_ENABLED
12096 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12099#endif
12100 use pm_kind, only: RKG => RK1
12101 procedure(real(RKG)) :: getFunc
12102 real(RKG) , intent(in) :: lb
12103 type(pinf_type) , intent(in) :: ub
12104 real(RKG) , intent(in) :: abstol
12105 real(RKG) , intent(in) :: reltol
12106 type(GK15_type) , intent(in) :: qrule
12107 real(RKG) , intent(in) , contiguous :: help(:)
12108 real(RKG) , intent(out) :: integral, abserr
12109 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12110 integer(IK) , intent(out) , contiguous :: sindex(:)
12111 integer(IK) , intent(out) :: neval
12112 integer(IK) , intent(out) :: nint
12113 integer(IK) :: err
12114 end function
12115#endif
12116
12117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12118
12119#if RK5_ENABLED
12120 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12122 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12123#endif
12124 use pm_kind, only: RKG => RK5
12125 procedure(real(RKG)) :: getFunc
12126 type(ninf_type) , intent(in) :: lb
12127 real(RKG) , intent(in) :: ub
12128 real(RKG) , intent(in) :: abstol
12129 real(RKG) , intent(in) :: reltol
12130 type(GK15_type) , intent(in) :: qrule
12131 real(RKG) , intent(in) , contiguous :: help(:)
12132 real(RKG) , intent(out) :: integral, abserr
12133 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12134 integer(IK) , intent(out) , contiguous :: sindex(:)
12135 integer(IK) , intent(out) :: neval
12136 integer(IK) , intent(out) :: nint
12137 integer(IK) :: err
12138 end function
12139#endif
12140
12141#if RK4_ENABLED
12142 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12145#endif
12146 use pm_kind, only: RKG => RK4
12147 procedure(real(RKG)) :: getFunc
12148 type(ninf_type) , intent(in) :: lb
12149 real(RKG) , intent(in) :: ub
12150 real(RKG) , intent(in) :: abstol
12151 real(RKG) , intent(in) :: reltol
12152 type(GK15_type) , intent(in) :: qrule
12153 real(RKG) , intent(in) , contiguous :: help(:)
12154 real(RKG) , intent(out) :: integral, abserr
12155 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12156 integer(IK) , intent(out) , contiguous :: sindex(:)
12157 integer(IK) , intent(out) :: neval
12158 integer(IK) , intent(out) :: nint
12159 integer(IK) :: err
12160 end function
12161#endif
12162
12163#if RK3_ENABLED
12164 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12166 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12167#endif
12168 use pm_kind, only: RKG => RK3
12169 procedure(real(RKG)) :: getFunc
12170 type(ninf_type) , intent(in) :: lb
12171 real(RKG) , intent(in) :: ub
12172 real(RKG) , intent(in) :: abstol
12173 real(RKG) , intent(in) :: reltol
12174 type(GK15_type) , intent(in) :: qrule
12175 real(RKG) , intent(in) , contiguous :: help(:)
12176 real(RKG) , intent(out) :: integral, abserr
12177 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12178 integer(IK) , intent(out) , contiguous :: sindex(:)
12179 integer(IK) , intent(out) :: neval
12180 integer(IK) , intent(out) :: nint
12181 integer(IK) :: err
12182 end function
12183#endif
12184
12185#if RK2_ENABLED
12186 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12188 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12189#endif
12190 use pm_kind, only: RKG => RK2
12191 procedure(real(RKG)) :: getFunc
12192 type(ninf_type) , intent(in) :: lb
12193 real(RKG) , intent(in) :: ub
12194 real(RKG) , intent(in) :: abstol
12195 real(RKG) , intent(in) :: reltol
12196 type(GK15_type) , intent(in) :: qrule
12197 real(RKG) , intent(in) , contiguous :: help(:)
12198 real(RKG) , intent(out) :: integral, abserr
12199 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12200 integer(IK) , intent(out) , contiguous :: sindex(:)
12201 integer(IK) , intent(out) :: neval
12202 integer(IK) , intent(out) :: nint
12203 integer(IK) :: err
12204 end function
12205#endif
12206
12207#if RK1_ENABLED
12208 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12210 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12211#endif
12212 use pm_kind, only: RKG => RK1
12213 procedure(real(RKG)) :: getFunc
12214 type(ninf_type) , intent(in) :: lb
12215 real(RKG) , intent(in) :: ub
12216 real(RKG) , intent(in) :: abstol
12217 real(RKG) , intent(in) :: reltol
12218 type(GK15_type) , intent(in) :: qrule
12219 real(RKG) , intent(in) , contiguous :: help(:)
12220 real(RKG) , intent(out) :: integral, abserr
12221 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12222 integer(IK) , intent(out) , contiguous :: sindex(:)
12223 integer(IK) , intent(out) :: neval
12224 integer(IK) , intent(out) :: nint
12225 integer(IK) :: err
12226 end function
12227#endif
12228
12229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12230
12231#if RK5_ENABLED
12232 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12234 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12235#endif
12236 use pm_kind, only: RKG => RK5
12237 procedure(real(RKG)) :: getFunc
12238 type(ninf_type) , intent(in) :: lb
12239 type(pinf_type) , intent(in) :: ub
12240 real(RKG) , intent(in) :: abstol
12241 real(RKG) , intent(in) :: reltol
12242 type(GK15_type) , intent(in) :: qrule
12243 real(RKG) , intent(in) , contiguous :: help(:)
12244 real(RKG) , intent(out) :: integral, abserr
12245 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12246 integer(IK) , intent(out) , contiguous :: sindex(:)
12247 integer(IK) , intent(out) :: neval
12248 integer(IK) , intent(out) :: nint
12249 integer(IK) :: err
12250 end function
12251#endif
12252
12253#if RK4_ENABLED
12254 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12256 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12257#endif
12258 use pm_kind, only: RKG => RK4
12259 procedure(real(RKG)) :: getFunc
12260 type(ninf_type) , intent(in) :: lb
12261 type(pinf_type) , intent(in) :: ub
12262 real(RKG) , intent(in) :: abstol
12263 real(RKG) , intent(in) :: reltol
12264 type(GK15_type) , intent(in) :: qrule
12265 real(RKG) , intent(in) , contiguous :: help(:)
12266 real(RKG) , intent(out) :: integral, abserr
12267 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12268 integer(IK) , intent(out) , contiguous :: sindex(:)
12269 integer(IK) , intent(out) :: neval
12270 integer(IK) , intent(out) :: nint
12271 integer(IK) :: err
12272 end function
12273#endif
12274
12275#if RK3_ENABLED
12276 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12278 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12279#endif
12280 use pm_kind, only: RKG => RK3
12281 procedure(real(RKG)) :: getFunc
12282 type(ninf_type) , intent(in) :: lb
12283 type(pinf_type) , intent(in) :: ub
12284 real(RKG) , intent(in) :: abstol
12285 real(RKG) , intent(in) :: reltol
12286 type(GK15_type) , intent(in) :: qrule
12287 real(RKG) , intent(in) , contiguous :: help(:)
12288 real(RKG) , intent(out) :: integral, abserr
12289 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12290 integer(IK) , intent(out) , contiguous :: sindex(:)
12291 integer(IK) , intent(out) :: neval
12292 integer(IK) , intent(out) :: nint
12293 integer(IK) :: err
12294 end function
12295#endif
12296
12297#if RK2_ENABLED
12298 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12300 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12301#endif
12302 use pm_kind, only: RKG => RK2
12303 procedure(real(RKG)) :: getFunc
12304 type(ninf_type) , intent(in) :: lb
12305 type(pinf_type) , intent(in) :: ub
12306 real(RKG) , intent(in) :: abstol
12307 real(RKG) , intent(in) :: reltol
12308 type(GK15_type) , intent(in) :: qrule
12309 real(RKG) , intent(in) , contiguous :: help(:)
12310 real(RKG) , intent(out) :: integral, abserr
12311 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12312 integer(IK) , intent(out) , contiguous :: sindex(:)
12313 integer(IK) , intent(out) :: neval
12314 integer(IK) , intent(out) :: nint
12315 integer(IK) :: err
12316 end function
12317#endif
12318
12319#if RK1_ENABLED
12320 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12322 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12323#endif
12324 use pm_kind, only: RKG => RK1
12325 procedure(real(RKG)) :: getFunc
12326 type(ninf_type) , intent(in) :: lb
12327 type(pinf_type) , intent(in) :: ub
12328 real(RKG) , intent(in) :: abstol
12329 real(RKG) , intent(in) :: reltol
12330 type(GK15_type) , intent(in) :: qrule
12331 real(RKG) , intent(in) , contiguous :: help(:)
12332 real(RKG) , intent(out) :: integral, abserr
12333 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12334 integer(IK) , intent(out) , contiguous :: sindex(:)
12335 integer(IK) , intent(out) :: neval
12336 integer(IK) , intent(out) :: nint
12337 integer(IK) :: err
12338 end function
12339#endif
12340
12341 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12342
12343 end interface
12344
12345 ! QAGP_GK21
12346
12347 interface getQuadErr
12348
12349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12350
12351#if RK5_ENABLED
12352 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12354 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12355#endif
12356 use pm_kind, only: RKG => RK5
12357 procedure(real(RKG)) :: getFunc
12358 real(RKG) , intent(in) :: lb
12359 real(RKG) , intent(in) :: ub
12360 real(RKG) , intent(in) :: abstol
12361 real(RKG) , intent(in) :: reltol
12362 type(GK21_type) , intent(in) :: qrule
12363 real(RKG) , intent(in) , contiguous :: help(:)
12364 real(RKG) , intent(out) :: integral, abserr
12365 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12366 integer(IK) , intent(out) , contiguous :: sindex(:)
12367 integer(IK) , intent(out) :: neval
12368 integer(IK) , intent(out) :: nint
12369 integer(IK) :: err
12370 end function
12371#endif
12372
12373#if RK4_ENABLED
12374 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12376 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12377#endif
12378 use pm_kind, only: RKG => RK4
12379 procedure(real(RKG)) :: getFunc
12380 real(RKG) , intent(in) :: lb
12381 real(RKG) , intent(in) :: ub
12382 real(RKG) , intent(in) :: abstol
12383 real(RKG) , intent(in) :: reltol
12384 type(GK21_type) , intent(in) :: qrule
12385 real(RKG) , intent(in) , contiguous :: help(:)
12386 real(RKG) , intent(out) :: integral, abserr
12387 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12388 integer(IK) , intent(out) , contiguous :: sindex(:)
12389 integer(IK) , intent(out) :: neval
12390 integer(IK) , intent(out) :: nint
12391 integer(IK) :: err
12392 end function
12393#endif
12394
12395#if RK3_ENABLED
12396 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12399#endif
12400 use pm_kind, only: RKG => RK3
12401 procedure(real(RKG)) :: getFunc
12402 real(RKG) , intent(in) :: lb
12403 real(RKG) , intent(in) :: ub
12404 real(RKG) , intent(in) :: abstol
12405 real(RKG) , intent(in) :: reltol
12406 type(GK21_type) , intent(in) :: qrule
12407 real(RKG) , intent(in) , contiguous :: help(:)
12408 real(RKG) , intent(out) :: integral, abserr
12409 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12410 integer(IK) , intent(out) , contiguous :: sindex(:)
12411 integer(IK) , intent(out) :: neval
12412 integer(IK) , intent(out) :: nint
12413 integer(IK) :: err
12414 end function
12415#endif
12416
12417#if RK2_ENABLED
12418 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12421#endif
12422 use pm_kind, only: RKG => RK2
12423 procedure(real(RKG)) :: getFunc
12424 real(RKG) , intent(in) :: lb
12425 real(RKG) , intent(in) :: ub
12426 real(RKG) , intent(in) :: abstol
12427 real(RKG) , intent(in) :: reltol
12428 type(GK21_type) , intent(in) :: qrule
12429 real(RKG) , intent(in) , contiguous :: help(:)
12430 real(RKG) , intent(out) :: integral, abserr
12431 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12432 integer(IK) , intent(out) , contiguous :: sindex(:)
12433 integer(IK) , intent(out) :: neval
12434 integer(IK) , intent(out) :: nint
12435 integer(IK) :: err
12436 end function
12437#endif
12438
12439#if RK1_ENABLED
12440 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12443#endif
12444 use pm_kind, only: RKG => RK1
12445 procedure(real(RKG)) :: getFunc
12446 real(RKG) , intent(in) :: lb
12447 real(RKG) , intent(in) :: ub
12448 real(RKG) , intent(in) :: abstol
12449 real(RKG) , intent(in) :: reltol
12450 type(GK21_type) , intent(in) :: qrule
12451 real(RKG) , intent(in) , contiguous :: help(:)
12452 real(RKG) , intent(out) :: integral, abserr
12453 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12454 integer(IK) , intent(out) , contiguous :: sindex(:)
12455 integer(IK) , intent(out) :: neval
12456 integer(IK) , intent(out) :: nint
12457 integer(IK) :: err
12458 end function
12459#endif
12460
12461 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12462
12463#if RK5_ENABLED
12464 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12466 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12467#endif
12468 use pm_kind, only: RKG => RK5
12469 procedure(real(RKG)) :: getFunc
12470 real(RKG) , intent(in) :: lb
12471 type(pinf_type) , intent(in) :: ub
12472 real(RKG) , intent(in) :: abstol
12473 real(RKG) , intent(in) :: reltol
12474 type(GK21_type) , intent(in) :: qrule
12475 real(RKG) , intent(in) , contiguous :: help(:)
12476 real(RKG) , intent(out) :: integral, abserr
12477 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12478 integer(IK) , intent(out) , contiguous :: sindex(:)
12479 integer(IK) , intent(out) :: neval
12480 integer(IK) , intent(out) :: nint
12481 integer(IK) :: err
12482 end function
12483#endif
12484
12485#if RK4_ENABLED
12486 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12488 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12489#endif
12490 use pm_kind, only: RKG => RK4
12491 procedure(real(RKG)) :: getFunc
12492 real(RKG) , intent(in) :: lb
12493 type(pinf_type) , intent(in) :: ub
12494 real(RKG) , intent(in) :: abstol
12495 real(RKG) , intent(in) :: reltol
12496 type(GK21_type) , intent(in) :: qrule
12497 real(RKG) , intent(in) , contiguous :: help(:)
12498 real(RKG) , intent(out) :: integral, abserr
12499 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12500 integer(IK) , intent(out) , contiguous :: sindex(:)
12501 integer(IK) , intent(out) :: neval
12502 integer(IK) , intent(out) :: nint
12503 integer(IK) :: err
12504 end function
12505#endif
12506
12507#if RK3_ENABLED
12508 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12510 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12511#endif
12512 use pm_kind, only: RKG => RK3
12513 procedure(real(RKG)) :: getFunc
12514 real(RKG) , intent(in) :: lb
12515 type(pinf_type) , intent(in) :: ub
12516 real(RKG) , intent(in) :: abstol
12517 real(RKG) , intent(in) :: reltol
12518 type(GK21_type) , intent(in) :: qrule
12519 real(RKG) , intent(in) , contiguous :: help(:)
12520 real(RKG) , intent(out) :: integral, abserr
12521 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12522 integer(IK) , intent(out) , contiguous :: sindex(:)
12523 integer(IK) , intent(out) :: neval
12524 integer(IK) , intent(out) :: nint
12525 integer(IK) :: err
12526 end function
12527#endif
12528
12529#if RK2_ENABLED
12530 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12533#endif
12534 use pm_kind, only: RKG => RK2
12535 procedure(real(RKG)) :: getFunc
12536 real(RKG) , intent(in) :: lb
12537 type(pinf_type) , intent(in) :: ub
12538 real(RKG) , intent(in) :: abstol
12539 real(RKG) , intent(in) :: reltol
12540 type(GK21_type) , intent(in) :: qrule
12541 real(RKG) , intent(in) , contiguous :: help(:)
12542 real(RKG) , intent(out) :: integral, abserr
12543 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12544 integer(IK) , intent(out) , contiguous :: sindex(:)
12545 integer(IK) , intent(out) :: neval
12546 integer(IK) , intent(out) :: nint
12547 integer(IK) :: err
12548 end function
12549#endif
12550
12551#if RK1_ENABLED
12552 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12554 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12555#endif
12556 use pm_kind, only: RKG => RK1
12557 procedure(real(RKG)) :: getFunc
12558 real(RKG) , intent(in) :: lb
12559 type(pinf_type) , intent(in) :: ub
12560 real(RKG) , intent(in) :: abstol
12561 real(RKG) , intent(in) :: reltol
12562 type(GK21_type) , intent(in) :: qrule
12563 real(RKG) , intent(in) , contiguous :: help(:)
12564 real(RKG) , intent(out) :: integral, abserr
12565 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12566 integer(IK) , intent(out) , contiguous :: sindex(:)
12567 integer(IK) , intent(out) :: neval
12568 integer(IK) , intent(out) :: nint
12569 integer(IK) :: err
12570 end function
12571#endif
12572
12573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12574
12575#if RK5_ENABLED
12576 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12579#endif
12580 use pm_kind, only: RKG => RK5
12581 procedure(real(RKG)) :: getFunc
12582 type(ninf_type) , intent(in) :: lb
12583 real(RKG) , intent(in) :: ub
12584 real(RKG) , intent(in) :: abstol
12585 real(RKG) , intent(in) :: reltol
12586 type(GK21_type) , intent(in) :: qrule
12587 real(RKG) , intent(in) , contiguous :: help(:)
12588 real(RKG) , intent(out) :: integral, abserr
12589 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12590 integer(IK) , intent(out) , contiguous :: sindex(:)
12591 integer(IK) , intent(out) :: neval
12592 integer(IK) , intent(out) :: nint
12593 integer(IK) :: err
12594 end function
12595#endif
12596
12597#if RK4_ENABLED
12598 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12600 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12601#endif
12602 use pm_kind, only: RKG => RK4
12603 procedure(real(RKG)) :: getFunc
12604 type(ninf_type) , intent(in) :: lb
12605 real(RKG) , intent(in) :: ub
12606 real(RKG) , intent(in) :: abstol
12607 real(RKG) , intent(in) :: reltol
12608 type(GK21_type) , intent(in) :: qrule
12609 real(RKG) , intent(in) , contiguous :: help(:)
12610 real(RKG) , intent(out) :: integral, abserr
12611 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12612 integer(IK) , intent(out) , contiguous :: sindex(:)
12613 integer(IK) , intent(out) :: neval
12614 integer(IK) , intent(out) :: nint
12615 integer(IK) :: err
12616 end function
12617#endif
12618
12619#if RK3_ENABLED
12620 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12623#endif
12624 use pm_kind, only: RKG => RK3
12625 procedure(real(RKG)) :: getFunc
12626 type(ninf_type) , intent(in) :: lb
12627 real(RKG) , intent(in) :: ub
12628 real(RKG) , intent(in) :: abstol
12629 real(RKG) , intent(in) :: reltol
12630 type(GK21_type) , intent(in) :: qrule
12631 real(RKG) , intent(in) , contiguous :: help(:)
12632 real(RKG) , intent(out) :: integral, abserr
12633 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12634 integer(IK) , intent(out) , contiguous :: sindex(:)
12635 integer(IK) , intent(out) :: neval
12636 integer(IK) , intent(out) :: nint
12637 integer(IK) :: err
12638 end function
12639#endif
12640
12641#if RK2_ENABLED
12642 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12644 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12645#endif
12646 use pm_kind, only: RKG => RK2
12647 procedure(real(RKG)) :: getFunc
12648 type(ninf_type) , intent(in) :: lb
12649 real(RKG) , intent(in) :: ub
12650 real(RKG) , intent(in) :: abstol
12651 real(RKG) , intent(in) :: reltol
12652 type(GK21_type) , intent(in) :: qrule
12653 real(RKG) , intent(in) , contiguous :: help(:)
12654 real(RKG) , intent(out) :: integral, abserr
12655 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12656 integer(IK) , intent(out) , contiguous :: sindex(:)
12657 integer(IK) , intent(out) :: neval
12658 integer(IK) , intent(out) :: nint
12659 integer(IK) :: err
12660 end function
12661#endif
12662
12663#if RK1_ENABLED
12664 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12667#endif
12668 use pm_kind, only: RKG => RK1
12669 procedure(real(RKG)) :: getFunc
12670 type(ninf_type) , intent(in) :: lb
12671 real(RKG) , intent(in) :: ub
12672 real(RKG) , intent(in) :: abstol
12673 real(RKG) , intent(in) :: reltol
12674 type(GK21_type) , intent(in) :: qrule
12675 real(RKG) , intent(in) , contiguous :: help(:)
12676 real(RKG) , intent(out) :: integral, abserr
12677 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12678 integer(IK) , intent(out) , contiguous :: sindex(:)
12679 integer(IK) , intent(out) :: neval
12680 integer(IK) , intent(out) :: nint
12681 integer(IK) :: err
12682 end function
12683#endif
12684
12685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12686
12687#if RK5_ENABLED
12688 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12690 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12691#endif
12692 use pm_kind, only: RKG => RK5
12693 procedure(real(RKG)) :: getFunc
12694 type(ninf_type) , intent(in) :: lb
12695 type(pinf_type) , intent(in) :: ub
12696 real(RKG) , intent(in) :: abstol
12697 real(RKG) , intent(in) :: reltol
12698 type(GK21_type) , intent(in) :: qrule
12699 real(RKG) , intent(in) , contiguous :: help(:)
12700 real(RKG) , intent(out) :: integral, abserr
12701 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12702 integer(IK) , intent(out) , contiguous :: sindex(:)
12703 integer(IK) , intent(out) :: neval
12704 integer(IK) , intent(out) :: nint
12705 integer(IK) :: err
12706 end function
12707#endif
12708
12709#if RK4_ENABLED
12710 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12712 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12713#endif
12714 use pm_kind, only: RKG => RK4
12715 procedure(real(RKG)) :: getFunc
12716 type(ninf_type) , intent(in) :: lb
12717 type(pinf_type) , intent(in) :: ub
12718 real(RKG) , intent(in) :: abstol
12719 real(RKG) , intent(in) :: reltol
12720 type(GK21_type) , intent(in) :: qrule
12721 real(RKG) , intent(in) , contiguous :: help(:)
12722 real(RKG) , intent(out) :: integral, abserr
12723 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12724 integer(IK) , intent(out) , contiguous :: sindex(:)
12725 integer(IK) , intent(out) :: neval
12726 integer(IK) , intent(out) :: nint
12727 integer(IK) :: err
12728 end function
12729#endif
12730
12731#if RK3_ENABLED
12732 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12734 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12735#endif
12736 use pm_kind, only: RKG => RK3
12737 procedure(real(RKG)) :: getFunc
12738 type(ninf_type) , intent(in) :: lb
12739 type(pinf_type) , intent(in) :: ub
12740 real(RKG) , intent(in) :: abstol
12741 real(RKG) , intent(in) :: reltol
12742 type(GK21_type) , intent(in) :: qrule
12743 real(RKG) , intent(in) , contiguous :: help(:)
12744 real(RKG) , intent(out) :: integral, abserr
12745 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12746 integer(IK) , intent(out) , contiguous :: sindex(:)
12747 integer(IK) , intent(out) :: neval
12748 integer(IK) , intent(out) :: nint
12749 integer(IK) :: err
12750 end function
12751#endif
12752
12753#if RK2_ENABLED
12754 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12756 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12757#endif
12758 use pm_kind, only: RKG => RK2
12759 procedure(real(RKG)) :: getFunc
12760 type(ninf_type) , intent(in) :: lb
12761 type(pinf_type) , intent(in) :: ub
12762 real(RKG) , intent(in) :: abstol
12763 real(RKG) , intent(in) :: reltol
12764 type(GK21_type) , intent(in) :: qrule
12765 real(RKG) , intent(in) , contiguous :: help(:)
12766 real(RKG) , intent(out) :: integral, abserr
12767 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12768 integer(IK) , intent(out) , contiguous :: sindex(:)
12769 integer(IK) , intent(out) :: neval
12770 integer(IK) , intent(out) :: nint
12771 integer(IK) :: err
12772 end function
12773#endif
12774
12775#if RK1_ENABLED
12776 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12778 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12779#endif
12780 use pm_kind, only: RKG => RK1
12781 procedure(real(RKG)) :: getFunc
12782 type(ninf_type) , intent(in) :: lb
12783 type(pinf_type) , intent(in) :: ub
12784 real(RKG) , intent(in) :: abstol
12785 real(RKG) , intent(in) :: reltol
12786 type(GK21_type) , intent(in) :: qrule
12787 real(RKG) , intent(in) , contiguous :: help(:)
12788 real(RKG) , intent(out) :: integral, abserr
12789 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12790 integer(IK) , intent(out) , contiguous :: sindex(:)
12791 integer(IK) , intent(out) :: neval
12792 integer(IK) , intent(out) :: nint
12793 integer(IK) :: err
12794 end function
12795#endif
12796
12797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12798
12799 end interface
12800
12801 ! QAGP_GK31
12802
12803 interface getQuadErr
12804
12805 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12806
12807#if RK5_ENABLED
12808 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12811#endif
12812 use pm_kind, only: RKG => RK5
12813 procedure(real(RKG)) :: getFunc
12814 real(RKG) , intent(in) :: lb
12815 real(RKG) , intent(in) :: ub
12816 real(RKG) , intent(in) :: abstol
12817 real(RKG) , intent(in) :: reltol
12818 type(GK31_type) , intent(in) :: qrule
12819 real(RKG) , intent(in) , contiguous :: help(:)
12820 real(RKG) , intent(out) :: integral, abserr
12821 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12822 integer(IK) , intent(out) , contiguous :: sindex(:)
12823 integer(IK) , intent(out) :: neval
12824 integer(IK) , intent(out) :: nint
12825 integer(IK) :: err
12826 end function
12827#endif
12828
12829#if RK4_ENABLED
12830 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12833#endif
12834 use pm_kind, only: RKG => RK4
12835 procedure(real(RKG)) :: getFunc
12836 real(RKG) , intent(in) :: lb
12837 real(RKG) , intent(in) :: ub
12838 real(RKG) , intent(in) :: abstol
12839 real(RKG) , intent(in) :: reltol
12840 type(GK31_type) , intent(in) :: qrule
12841 real(RKG) , intent(in) , contiguous :: help(:)
12842 real(RKG) , intent(out) :: integral, abserr
12843 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12844 integer(IK) , intent(out) , contiguous :: sindex(:)
12845 integer(IK) , intent(out) :: neval
12846 integer(IK) , intent(out) :: nint
12847 integer(IK) :: err
12848 end function
12849#endif
12850
12851#if RK3_ENABLED
12852 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12854 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12855#endif
12856 use pm_kind, only: RKG => RK3
12857 procedure(real(RKG)) :: getFunc
12858 real(RKG) , intent(in) :: lb
12859 real(RKG) , intent(in) :: ub
12860 real(RKG) , intent(in) :: abstol
12861 real(RKG) , intent(in) :: reltol
12862 type(GK31_type) , intent(in) :: qrule
12863 real(RKG) , intent(in) , contiguous :: help(:)
12864 real(RKG) , intent(out) :: integral, abserr
12865 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12866 integer(IK) , intent(out) , contiguous :: sindex(:)
12867 integer(IK) , intent(out) :: neval
12868 integer(IK) , intent(out) :: nint
12869 integer(IK) :: err
12870 end function
12871#endif
12872
12873#if RK2_ENABLED
12874 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12877#endif
12878 use pm_kind, only: RKG => RK2
12879 procedure(real(RKG)) :: getFunc
12880 real(RKG) , intent(in) :: lb
12881 real(RKG) , intent(in) :: ub
12882 real(RKG) , intent(in) :: abstol
12883 real(RKG) , intent(in) :: reltol
12884 type(GK31_type) , intent(in) :: qrule
12885 real(RKG) , intent(in) , contiguous :: help(:)
12886 real(RKG) , intent(out) :: integral, abserr
12887 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12888 integer(IK) , intent(out) , contiguous :: sindex(:)
12889 integer(IK) , intent(out) :: neval
12890 integer(IK) , intent(out) :: nint
12891 integer(IK) :: err
12892 end function
12893#endif
12894
12895#if RK1_ENABLED
12896 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12899#endif
12900 use pm_kind, only: RKG => RK1
12901 procedure(real(RKG)) :: getFunc
12902 real(RKG) , intent(in) :: lb
12903 real(RKG) , intent(in) :: ub
12904 real(RKG) , intent(in) :: abstol
12905 real(RKG) , intent(in) :: reltol
12906 type(GK31_type) , intent(in) :: qrule
12907 real(RKG) , intent(in) , contiguous :: help(:)
12908 real(RKG) , intent(out) :: integral, abserr
12909 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12910 integer(IK) , intent(out) , contiguous :: sindex(:)
12911 integer(IK) , intent(out) :: neval
12912 integer(IK) , intent(out) :: nint
12913 integer(IK) :: err
12914 end function
12915#endif
12916
12917 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12918
12919#if RK5_ENABLED
12920 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12923#endif
12924 use pm_kind, only: RKG => RK5
12925 procedure(real(RKG)) :: getFunc
12926 real(RKG) , intent(in) :: lb
12927 type(pinf_type) , intent(in) :: ub
12928 real(RKG) , intent(in) :: abstol
12929 real(RKG) , intent(in) :: reltol
12930 type(GK31_type) , intent(in) :: qrule
12931 real(RKG) , intent(in) , contiguous :: help(:)
12932 real(RKG) , intent(out) :: integral, abserr
12933 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12934 integer(IK) , intent(out) , contiguous :: sindex(:)
12935 integer(IK) , intent(out) :: neval
12936 integer(IK) , intent(out) :: nint
12937 integer(IK) :: err
12938 end function
12939#endif
12940
12941#if RK4_ENABLED
12942 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12945#endif
12946 use pm_kind, only: RKG => RK4
12947 procedure(real(RKG)) :: getFunc
12948 real(RKG) , intent(in) :: lb
12949 type(pinf_type) , intent(in) :: ub
12950 real(RKG) , intent(in) :: abstol
12951 real(RKG) , intent(in) :: reltol
12952 type(GK31_type) , intent(in) :: qrule
12953 real(RKG) , intent(in) , contiguous :: help(:)
12954 real(RKG) , intent(out) :: integral, abserr
12955 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12956 integer(IK) , intent(out) , contiguous :: sindex(:)
12957 integer(IK) , intent(out) :: neval
12958 integer(IK) , intent(out) :: nint
12959 integer(IK) :: err
12960 end function
12961#endif
12962
12963#if RK3_ENABLED
12964 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12966 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12967#endif
12968 use pm_kind, only: RKG => RK3
12969 procedure(real(RKG)) :: getFunc
12970 real(RKG) , intent(in) :: lb
12971 type(pinf_type) , intent(in) :: ub
12972 real(RKG) , intent(in) :: abstol
12973 real(RKG) , intent(in) :: reltol
12974 type(GK31_type) , intent(in) :: qrule
12975 real(RKG) , intent(in) , contiguous :: help(:)
12976 real(RKG) , intent(out) :: integral, abserr
12977 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
12978 integer(IK) , intent(out) , contiguous :: sindex(:)
12979 integer(IK) , intent(out) :: neval
12980 integer(IK) , intent(out) :: nint
12981 integer(IK) :: err
12982 end function
12983#endif
12984
12985#if RK2_ENABLED
12986 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12989#endif
12990 use pm_kind, only: RKG => RK2
12991 procedure(real(RKG)) :: getFunc
12992 real(RKG) , intent(in) :: lb
12993 type(pinf_type) , intent(in) :: ub
12994 real(RKG) , intent(in) :: abstol
12995 real(RKG) , intent(in) :: reltol
12996 type(GK31_type) , intent(in) :: qrule
12997 real(RKG) , intent(in) , contiguous :: help(:)
12998 real(RKG) , intent(out) :: integral, abserr
12999 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13000 integer(IK) , intent(out) , contiguous :: sindex(:)
13001 integer(IK) , intent(out) :: neval
13002 integer(IK) , intent(out) :: nint
13003 integer(IK) :: err
13004 end function
13005#endif
13006
13007#if RK1_ENABLED
13008 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13010 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
13011#endif
13012 use pm_kind, only: RKG => RK1
13013 procedure(real(RKG)) :: getFunc
13014 real(RKG) , intent(in) :: lb
13015 type(pinf_type) , intent(in) :: ub
13016 real(RKG) , intent(in) :: abstol
13017 real(RKG) , intent(in) :: reltol
13018 type(GK31_type) , intent(in) :: qrule
13019 real(RKG) , intent(in) , contiguous :: help(:)
13020 real(RKG) , intent(out) :: integral, abserr
13021 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13022 integer(IK) , intent(out) , contiguous :: sindex(:)
13023 integer(IK) , intent(out) :: neval
13024 integer(IK) , intent(out) :: nint
13025 integer(IK) :: err
13026 end function
13027#endif
13028
13029 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13030
13031#if RK5_ENABLED
13032 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13034 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
13035#endif
13036 use pm_kind, only: RKG => RK5
13037 procedure(real(RKG)) :: getFunc
13038 type(ninf_type) , intent(in) :: lb
13039 real(RKG) , intent(in) :: ub
13040 real(RKG) , intent(in) :: abstol
13041 real(RKG) , intent(in) :: reltol
13042 type(GK31_type) , intent(in) :: qrule
13043 real(RKG) , intent(in) , contiguous :: help(:)
13044 real(RKG) , intent(out) :: integral, abserr
13045 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13046 integer(IK) , intent(out) , contiguous :: sindex(:)
13047 integer(IK) , intent(out) :: neval
13048 integer(IK) , intent(out) :: nint
13049 integer(IK) :: err
13050 end function
13051#endif
13052
13053#if RK4_ENABLED
13054 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
13057#endif
13058 use pm_kind, only: RKG => RK4
13059 procedure(real(RKG)) :: getFunc
13060 type(ninf_type) , intent(in) :: lb
13061 real(RKG) , intent(in) :: ub
13062 real(RKG) , intent(in) :: abstol
13063 real(RKG) , intent(in) :: reltol
13064 type(GK31_type) , intent(in) :: qrule
13065 real(RKG) , intent(in) , contiguous :: help(:)
13066 real(RKG) , intent(out) :: integral, abserr
13067 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13068 integer(IK) , intent(out) , contiguous :: sindex(:)
13069 integer(IK) , intent(out) :: neval
13070 integer(IK) , intent(out) :: nint
13071 integer(IK) :: err
13072 end function
13073#endif
13074
13075#if RK3_ENABLED
13076 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13078 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13079#endif
13080 use pm_kind, only: RKG => RK3
13081 procedure(real(RKG)) :: getFunc
13082 type(ninf_type) , intent(in) :: lb
13083 real(RKG) , intent(in) :: ub
13084 real(RKG) , intent(in) :: abstol
13085 real(RKG) , intent(in) :: reltol
13086 type(GK31_type) , intent(in) :: qrule
13087 real(RKG) , intent(in) , contiguous :: help(:)
13088 real(RKG) , intent(out) :: integral, abserr
13089 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13090 integer(IK) , intent(out) , contiguous :: sindex(:)
13091 integer(IK) , intent(out) :: neval
13092 integer(IK) , intent(out) :: nint
13093 integer(IK) :: err
13094 end function
13095#endif
13096
13097#if RK2_ENABLED
13098 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13101#endif
13102 use pm_kind, only: RKG => RK2
13103 procedure(real(RKG)) :: getFunc
13104 type(ninf_type) , intent(in) :: lb
13105 real(RKG) , intent(in) :: ub
13106 real(RKG) , intent(in) :: abstol
13107 real(RKG) , intent(in) :: reltol
13108 type(GK31_type) , intent(in) :: qrule
13109 real(RKG) , intent(in) , contiguous :: help(:)
13110 real(RKG) , intent(out) :: integral, abserr
13111 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13112 integer(IK) , intent(out) , contiguous :: sindex(:)
13113 integer(IK) , intent(out) :: neval
13114 integer(IK) , intent(out) :: nint
13115 integer(IK) :: err
13116 end function
13117#endif
13118
13119#if RK1_ENABLED
13120 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13122 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13123#endif
13124 use pm_kind, only: RKG => RK1
13125 procedure(real(RKG)) :: getFunc
13126 type(ninf_type) , intent(in) :: lb
13127 real(RKG) , intent(in) :: ub
13128 real(RKG) , intent(in) :: abstol
13129 real(RKG) , intent(in) :: reltol
13130 type(GK31_type) , intent(in) :: qrule
13131 real(RKG) , intent(in) , contiguous :: help(:)
13132 real(RKG) , intent(out) :: integral, abserr
13133 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13134 integer(IK) , intent(out) , contiguous :: sindex(:)
13135 integer(IK) , intent(out) :: neval
13136 integer(IK) , intent(out) :: nint
13137 integer(IK) :: err
13138 end function
13139#endif
13140
13141 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13142
13143#if RK5_ENABLED
13144 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13146 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13147#endif
13148 use pm_kind, only: RKG => RK5
13149 procedure(real(RKG)) :: getFunc
13150 type(ninf_type) , intent(in) :: lb
13151 type(pinf_type) , intent(in) :: ub
13152 real(RKG) , intent(in) :: abstol
13153 real(RKG) , intent(in) :: reltol
13154 type(GK31_type) , intent(in) :: qrule
13155 real(RKG) , intent(in) , contiguous :: help(:)
13156 real(RKG) , intent(out) :: integral, abserr
13157 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13158 integer(IK) , intent(out) , contiguous :: sindex(:)
13159 integer(IK) , intent(out) :: neval
13160 integer(IK) , intent(out) :: nint
13161 integer(IK) :: err
13162 end function
13163#endif
13164
13165#if RK4_ENABLED
13166 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13168 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13169#endif
13170 use pm_kind, only: RKG => RK4
13171 procedure(real(RKG)) :: getFunc
13172 type(ninf_type) , intent(in) :: lb
13173 type(pinf_type) , intent(in) :: ub
13174 real(RKG) , intent(in) :: abstol
13175 real(RKG) , intent(in) :: reltol
13176 type(GK31_type) , intent(in) :: qrule
13177 real(RKG) , intent(in) , contiguous :: help(:)
13178 real(RKG) , intent(out) :: integral, abserr
13179 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13180 integer(IK) , intent(out) , contiguous :: sindex(:)
13181 integer(IK) , intent(out) :: neval
13182 integer(IK) , intent(out) :: nint
13183 integer(IK) :: err
13184 end function
13185#endif
13186
13187#if RK3_ENABLED
13188 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13190 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13191#endif
13192 use pm_kind, only: RKG => RK3
13193 procedure(real(RKG)) :: getFunc
13194 type(ninf_type) , intent(in) :: lb
13195 type(pinf_type) , intent(in) :: ub
13196 real(RKG) , intent(in) :: abstol
13197 real(RKG) , intent(in) :: reltol
13198 type(GK31_type) , intent(in) :: qrule
13199 real(RKG) , intent(in) , contiguous :: help(:)
13200 real(RKG) , intent(out) :: integral, abserr
13201 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13202 integer(IK) , intent(out) , contiguous :: sindex(:)
13203 integer(IK) , intent(out) :: neval
13204 integer(IK) , intent(out) :: nint
13205 integer(IK) :: err
13206 end function
13207#endif
13208
13209#if RK2_ENABLED
13210 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13212 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13213#endif
13214 use pm_kind, only: RKG => RK2
13215 procedure(real(RKG)) :: getFunc
13216 type(ninf_type) , intent(in) :: lb
13217 type(pinf_type) , intent(in) :: ub
13218 real(RKG) , intent(in) :: abstol
13219 real(RKG) , intent(in) :: reltol
13220 type(GK31_type) , intent(in) :: qrule
13221 real(RKG) , intent(in) , contiguous :: help(:)
13222 real(RKG) , intent(out) :: integral, abserr
13223 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13224 integer(IK) , intent(out) , contiguous :: sindex(:)
13225 integer(IK) , intent(out) :: neval
13226 integer(IK) , intent(out) :: nint
13227 integer(IK) :: err
13228 end function
13229#endif
13230
13231#if RK1_ENABLED
13232 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13234 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13235#endif
13236 use pm_kind, only: RKG => RK1
13237 procedure(real(RKG)) :: getFunc
13238 type(ninf_type) , intent(in) :: lb
13239 type(pinf_type) , intent(in) :: ub
13240 real(RKG) , intent(in) :: abstol
13241 real(RKG) , intent(in) :: reltol
13242 type(GK31_type) , intent(in) :: qrule
13243 real(RKG) , intent(in) , contiguous :: help(:)
13244 real(RKG) , intent(out) :: integral, abserr
13245 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13246 integer(IK) , intent(out) , contiguous :: sindex(:)
13247 integer(IK) , intent(out) :: neval
13248 integer(IK) , intent(out) :: nint
13249 integer(IK) :: err
13250 end function
13251#endif
13252
13253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13254
13255 end interface
13256
13257 ! QAGP_GK41
13258
13259 interface getQuadErr
13260
13261 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13262
13263#if RK5_ENABLED
13264 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13266 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13267#endif
13268 use pm_kind, only: RKG => RK5
13269 procedure(real(RKG)) :: getFunc
13270 real(RKG) , intent(in) :: lb
13271 real(RKG) , intent(in) :: ub
13272 real(RKG) , intent(in) :: abstol
13273 real(RKG) , intent(in) :: reltol
13274 type(GK41_type) , intent(in) :: qrule
13275 real(RKG) , intent(in) , contiguous :: help(:)
13276 real(RKG) , intent(out) :: integral, abserr
13277 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13278 integer(IK) , intent(out) , contiguous :: sindex(:)
13279 integer(IK) , intent(out) :: neval
13280 integer(IK) , intent(out) :: nint
13281 integer(IK) :: err
13282 end function
13283#endif
13284
13285#if RK4_ENABLED
13286 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13288 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13289#endif
13290 use pm_kind, only: RKG => RK4
13291 procedure(real(RKG)) :: getFunc
13292 real(RKG) , intent(in) :: lb
13293 real(RKG) , intent(in) :: ub
13294 real(RKG) , intent(in) :: abstol
13295 real(RKG) , intent(in) :: reltol
13296 type(GK41_type) , intent(in) :: qrule
13297 real(RKG) , intent(in) , contiguous :: help(:)
13298 real(RKG) , intent(out) :: integral, abserr
13299 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13300 integer(IK) , intent(out) , contiguous :: sindex(:)
13301 integer(IK) , intent(out) :: neval
13302 integer(IK) , intent(out) :: nint
13303 integer(IK) :: err
13304 end function
13305#endif
13306
13307#if RK3_ENABLED
13308 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13310 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13311#endif
13312 use pm_kind, only: RKG => RK3
13313 procedure(real(RKG)) :: getFunc
13314 real(RKG) , intent(in) :: lb
13315 real(RKG) , intent(in) :: ub
13316 real(RKG) , intent(in) :: abstol
13317 real(RKG) , intent(in) :: reltol
13318 type(GK41_type) , intent(in) :: qrule
13319 real(RKG) , intent(in) , contiguous :: help(:)
13320 real(RKG) , intent(out) :: integral, abserr
13321 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13322 integer(IK) , intent(out) , contiguous :: sindex(:)
13323 integer(IK) , intent(out) :: neval
13324 integer(IK) , intent(out) :: nint
13325 integer(IK) :: err
13326 end function
13327#endif
13328
13329#if RK2_ENABLED
13330 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13332 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13333#endif
13334 use pm_kind, only: RKG => RK2
13335 procedure(real(RKG)) :: getFunc
13336 real(RKG) , intent(in) :: lb
13337 real(RKG) , intent(in) :: ub
13338 real(RKG) , intent(in) :: abstol
13339 real(RKG) , intent(in) :: reltol
13340 type(GK41_type) , intent(in) :: qrule
13341 real(RKG) , intent(in) , contiguous :: help(:)
13342 real(RKG) , intent(out) :: integral, abserr
13343 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13344 integer(IK) , intent(out) , contiguous :: sindex(:)
13345 integer(IK) , intent(out) :: neval
13346 integer(IK) , intent(out) :: nint
13347 integer(IK) :: err
13348 end function
13349#endif
13350
13351#if RK1_ENABLED
13352 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13354 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13355#endif
13356 use pm_kind, only: RKG => RK1
13357 procedure(real(RKG)) :: getFunc
13358 real(RKG) , intent(in) :: lb
13359 real(RKG) , intent(in) :: ub
13360 real(RKG) , intent(in) :: abstol
13361 real(RKG) , intent(in) :: reltol
13362 type(GK41_type) , intent(in) :: qrule
13363 real(RKG) , intent(in) , contiguous :: help(:)
13364 real(RKG) , intent(out) :: integral, abserr
13365 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13366 integer(IK) , intent(out) , contiguous :: sindex(:)
13367 integer(IK) , intent(out) :: neval
13368 integer(IK) , intent(out) :: nint
13369 integer(IK) :: err
13370 end function
13371#endif
13372
13373 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13374
13375#if RK5_ENABLED
13376 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13378 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13379#endif
13380 use pm_kind, only: RKG => RK5
13381 procedure(real(RKG)) :: getFunc
13382 real(RKG) , intent(in) :: lb
13383 type(pinf_type) , intent(in) :: ub
13384 real(RKG) , intent(in) :: abstol
13385 real(RKG) , intent(in) :: reltol
13386 type(GK41_type) , intent(in) :: qrule
13387 real(RKG) , intent(in) , contiguous :: help(:)
13388 real(RKG) , intent(out) :: integral, abserr
13389 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13390 integer(IK) , intent(out) , contiguous :: sindex(:)
13391 integer(IK) , intent(out) :: neval
13392 integer(IK) , intent(out) :: nint
13393 integer(IK) :: err
13394 end function
13395#endif
13396
13397#if RK4_ENABLED
13398 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13401#endif
13402 use pm_kind, only: RKG => RK4
13403 procedure(real(RKG)) :: getFunc
13404 real(RKG) , intent(in) :: lb
13405 type(pinf_type) , intent(in) :: ub
13406 real(RKG) , intent(in) :: abstol
13407 real(RKG) , intent(in) :: reltol
13408 type(GK41_type) , intent(in) :: qrule
13409 real(RKG) , intent(in) , contiguous :: help(:)
13410 real(RKG) , intent(out) :: integral, abserr
13411 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13412 integer(IK) , intent(out) , contiguous :: sindex(:)
13413 integer(IK) , intent(out) :: neval
13414 integer(IK) , intent(out) :: nint
13415 integer(IK) :: err
13416 end function
13417#endif
13418
13419#if RK3_ENABLED
13420 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13422 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13423#endif
13424 use pm_kind, only: RKG => RK3
13425 procedure(real(RKG)) :: getFunc
13426 real(RKG) , intent(in) :: lb
13427 type(pinf_type) , intent(in) :: ub
13428 real(RKG) , intent(in) :: abstol
13429 real(RKG) , intent(in) :: reltol
13430 type(GK41_type) , intent(in) :: qrule
13431 real(RKG) , intent(in) , contiguous :: help(:)
13432 real(RKG) , intent(out) :: integral, abserr
13433 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13434 integer(IK) , intent(out) , contiguous :: sindex(:)
13435 integer(IK) , intent(out) :: neval
13436 integer(IK) , intent(out) :: nint
13437 integer(IK) :: err
13438 end function
13439#endif
13440
13441#if RK2_ENABLED
13442 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13444 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13445#endif
13446 use pm_kind, only: RKG => RK2
13447 procedure(real(RKG)) :: getFunc
13448 real(RKG) , intent(in) :: lb
13449 type(pinf_type) , intent(in) :: ub
13450 real(RKG) , intent(in) :: abstol
13451 real(RKG) , intent(in) :: reltol
13452 type(GK41_type) , intent(in) :: qrule
13453 real(RKG) , intent(in) , contiguous :: help(:)
13454 real(RKG) , intent(out) :: integral, abserr
13455 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13456 integer(IK) , intent(out) , contiguous :: sindex(:)
13457 integer(IK) , intent(out) :: neval
13458 integer(IK) , intent(out) :: nint
13459 integer(IK) :: err
13460 end function
13461#endif
13462
13463#if RK1_ENABLED
13464 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13466 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13467#endif
13468 use pm_kind, only: RKG => RK1
13469 procedure(real(RKG)) :: getFunc
13470 real(RKG) , intent(in) :: lb
13471 type(pinf_type) , intent(in) :: ub
13472 real(RKG) , intent(in) :: abstol
13473 real(RKG) , intent(in) :: reltol
13474 type(GK41_type) , intent(in) :: qrule
13475 real(RKG) , intent(in) , contiguous :: help(:)
13476 real(RKG) , intent(out) :: integral, abserr
13477 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13478 integer(IK) , intent(out) , contiguous :: sindex(:)
13479 integer(IK) , intent(out) :: neval
13480 integer(IK) , intent(out) :: nint
13481 integer(IK) :: err
13482 end function
13483#endif
13484
13485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13486
13487#if RK5_ENABLED
13488 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13490 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13491#endif
13492 use pm_kind, only: RKG => RK5
13493 procedure(real(RKG)) :: getFunc
13494 type(ninf_type) , intent(in) :: lb
13495 real(RKG) , intent(in) :: ub
13496 real(RKG) , intent(in) :: abstol
13497 real(RKG) , intent(in) :: reltol
13498 type(GK41_type) , intent(in) :: qrule
13499 real(RKG) , intent(in) , contiguous :: help(:)
13500 real(RKG) , intent(out) :: integral, abserr
13501 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13502 integer(IK) , intent(out) , contiguous :: sindex(:)
13503 integer(IK) , intent(out) :: neval
13504 integer(IK) , intent(out) :: nint
13505 integer(IK) :: err
13506 end function
13507#endif
13508
13509#if RK4_ENABLED
13510 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13512 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13513#endif
13514 use pm_kind, only: RKG => RK4
13515 procedure(real(RKG)) :: getFunc
13516 type(ninf_type) , intent(in) :: lb
13517 real(RKG) , intent(in) :: ub
13518 real(RKG) , intent(in) :: abstol
13519 real(RKG) , intent(in) :: reltol
13520 type(GK41_type) , intent(in) :: qrule
13521 real(RKG) , intent(in) , contiguous :: help(:)
13522 real(RKG) , intent(out) :: integral, abserr
13523 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13524 integer(IK) , intent(out) , contiguous :: sindex(:)
13525 integer(IK) , intent(out) :: neval
13526 integer(IK) , intent(out) :: nint
13527 integer(IK) :: err
13528 end function
13529#endif
13530
13531#if RK3_ENABLED
13532 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13534 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13535#endif
13536 use pm_kind, only: RKG => RK3
13537 procedure(real(RKG)) :: getFunc
13538 type(ninf_type) , intent(in) :: lb
13539 real(RKG) , intent(in) :: ub
13540 real(RKG) , intent(in) :: abstol
13541 real(RKG) , intent(in) :: reltol
13542 type(GK41_type) , intent(in) :: qrule
13543 real(RKG) , intent(in) , contiguous :: help(:)
13544 real(RKG) , intent(out) :: integral, abserr
13545 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13546 integer(IK) , intent(out) , contiguous :: sindex(:)
13547 integer(IK) , intent(out) :: neval
13548 integer(IK) , intent(out) :: nint
13549 integer(IK) :: err
13550 end function
13551#endif
13552
13553#if RK2_ENABLED
13554 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13556 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13557#endif
13558 use pm_kind, only: RKG => RK2
13559 procedure(real(RKG)) :: getFunc
13560 type(ninf_type) , intent(in) :: lb
13561 real(RKG) , intent(in) :: ub
13562 real(RKG) , intent(in) :: abstol
13563 real(RKG) , intent(in) :: reltol
13564 type(GK41_type) , intent(in) :: qrule
13565 real(RKG) , intent(in) , contiguous :: help(:)
13566 real(RKG) , intent(out) :: integral, abserr
13567 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13568 integer(IK) , intent(out) , contiguous :: sindex(:)
13569 integer(IK) , intent(out) :: neval
13570 integer(IK) , intent(out) :: nint
13571 integer(IK) :: err
13572 end function
13573#endif
13574
13575#if RK1_ENABLED
13576 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13579#endif
13580 use pm_kind, only: RKG => RK1
13581 procedure(real(RKG)) :: getFunc
13582 type(ninf_type) , intent(in) :: lb
13583 real(RKG) , intent(in) :: ub
13584 real(RKG) , intent(in) :: abstol
13585 real(RKG) , intent(in) :: reltol
13586 type(GK41_type) , intent(in) :: qrule
13587 real(RKG) , intent(in) , contiguous :: help(:)
13588 real(RKG) , intent(out) :: integral, abserr
13589 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13590 integer(IK) , intent(out) , contiguous :: sindex(:)
13591 integer(IK) , intent(out) :: neval
13592 integer(IK) , intent(out) :: nint
13593 integer(IK) :: err
13594 end function
13595#endif
13596
13597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13598
13599#if RK5_ENABLED
13600 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13602 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13603#endif
13604 use pm_kind, only: RKG => RK5
13605 procedure(real(RKG)) :: getFunc
13606 type(ninf_type) , intent(in) :: lb
13607 type(pinf_type) , intent(in) :: ub
13608 real(RKG) , intent(in) :: abstol
13609 real(RKG) , intent(in) :: reltol
13610 type(GK41_type) , intent(in) :: qrule
13611 real(RKG) , intent(in) , contiguous :: help(:)
13612 real(RKG) , intent(out) :: integral, abserr
13613 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13614 integer(IK) , intent(out) , contiguous :: sindex(:)
13615 integer(IK) , intent(out) :: neval
13616 integer(IK) , intent(out) :: nint
13617 integer(IK) :: err
13618 end function
13619#endif
13620
13621#if RK4_ENABLED
13622 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13624 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13625#endif
13626 use pm_kind, only: RKG => RK4
13627 procedure(real(RKG)) :: getFunc
13628 type(ninf_type) , intent(in) :: lb
13629 type(pinf_type) , intent(in) :: ub
13630 real(RKG) , intent(in) :: abstol
13631 real(RKG) , intent(in) :: reltol
13632 type(GK41_type) , intent(in) :: qrule
13633 real(RKG) , intent(in) , contiguous :: help(:)
13634 real(RKG) , intent(out) :: integral, abserr
13635 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13636 integer(IK) , intent(out) , contiguous :: sindex(:)
13637 integer(IK) , intent(out) :: neval
13638 integer(IK) , intent(out) :: nint
13639 integer(IK) :: err
13640 end function
13641#endif
13642
13643#if RK3_ENABLED
13644 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13646 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13647#endif
13648 use pm_kind, only: RKG => RK3
13649 procedure(real(RKG)) :: getFunc
13650 type(ninf_type) , intent(in) :: lb
13651 type(pinf_type) , intent(in) :: ub
13652 real(RKG) , intent(in) :: abstol
13653 real(RKG) , intent(in) :: reltol
13654 type(GK41_type) , intent(in) :: qrule
13655 real(RKG) , intent(in) , contiguous :: help(:)
13656 real(RKG) , intent(out) :: integral, abserr
13657 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13658 integer(IK) , intent(out) , contiguous :: sindex(:)
13659 integer(IK) , intent(out) :: neval
13660 integer(IK) , intent(out) :: nint
13661 integer(IK) :: err
13662 end function
13663#endif
13664
13665#if RK2_ENABLED
13666 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13668 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13669#endif
13670 use pm_kind, only: RKG => RK2
13671 procedure(real(RKG)) :: getFunc
13672 type(ninf_type) , intent(in) :: lb
13673 type(pinf_type) , intent(in) :: ub
13674 real(RKG) , intent(in) :: abstol
13675 real(RKG) , intent(in) :: reltol
13676 type(GK41_type) , intent(in) :: qrule
13677 real(RKG) , intent(in) , contiguous :: help(:)
13678 real(RKG) , intent(out) :: integral, abserr
13679 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13680 integer(IK) , intent(out) , contiguous :: sindex(:)
13681 integer(IK) , intent(out) :: neval
13682 integer(IK) , intent(out) :: nint
13683 integer(IK) :: err
13684 end function
13685#endif
13686
13687#if RK1_ENABLED
13688 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13690 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13691#endif
13692 use pm_kind, only: RKG => RK1
13693 procedure(real(RKG)) :: getFunc
13694 type(ninf_type) , intent(in) :: lb
13695 type(pinf_type) , intent(in) :: ub
13696 real(RKG) , intent(in) :: abstol
13697 real(RKG) , intent(in) :: reltol
13698 type(GK41_type) , intent(in) :: qrule
13699 real(RKG) , intent(in) , contiguous :: help(:)
13700 real(RKG) , intent(out) :: integral, abserr
13701 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13702 integer(IK) , intent(out) , contiguous :: sindex(:)
13703 integer(IK) , intent(out) :: neval
13704 integer(IK) , intent(out) :: nint
13705 integer(IK) :: err
13706 end function
13707#endif
13708
13709 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13710
13711 end interface
13712
13713 ! QAGP_GK51
13714
13715 interface getQuadErr
13716
13717 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13718
13719#if RK5_ENABLED
13720 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13722 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13723#endif
13724 use pm_kind, only: RKG => RK5
13725 procedure(real(RKG)) :: getFunc
13726 real(RKG) , intent(in) :: lb
13727 real(RKG) , intent(in) :: ub
13728 real(RKG) , intent(in) :: abstol
13729 real(RKG) , intent(in) :: reltol
13730 type(GK51_type) , intent(in) :: qrule
13731 real(RKG) , intent(in) , contiguous :: help(:)
13732 real(RKG) , intent(out) :: integral, abserr
13733 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13734 integer(IK) , intent(out) , contiguous :: sindex(:)
13735 integer(IK) , intent(out) :: neval
13736 integer(IK) , intent(out) :: nint
13737 integer(IK) :: err
13738 end function
13739#endif
13740
13741#if RK4_ENABLED
13742 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13745#endif
13746 use pm_kind, only: RKG => RK4
13747 procedure(real(RKG)) :: getFunc
13748 real(RKG) , intent(in) :: lb
13749 real(RKG) , intent(in) :: ub
13750 real(RKG) , intent(in) :: abstol
13751 real(RKG) , intent(in) :: reltol
13752 type(GK51_type) , intent(in) :: qrule
13753 real(RKG) , intent(in) , contiguous :: help(:)
13754 real(RKG) , intent(out) :: integral, abserr
13755 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13756 integer(IK) , intent(out) , contiguous :: sindex(:)
13757 integer(IK) , intent(out) :: neval
13758 integer(IK) , intent(out) :: nint
13759 integer(IK) :: err
13760 end function
13761#endif
13762
13763#if RK3_ENABLED
13764 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13766 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13767#endif
13768 use pm_kind, only: RKG => RK3
13769 procedure(real(RKG)) :: getFunc
13770 real(RKG) , intent(in) :: lb
13771 real(RKG) , intent(in) :: ub
13772 real(RKG) , intent(in) :: abstol
13773 real(RKG) , intent(in) :: reltol
13774 type(GK51_type) , intent(in) :: qrule
13775 real(RKG) , intent(in) , contiguous :: help(:)
13776 real(RKG) , intent(out) :: integral, abserr
13777 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13778 integer(IK) , intent(out) , contiguous :: sindex(:)
13779 integer(IK) , intent(out) :: neval
13780 integer(IK) , intent(out) :: nint
13781 integer(IK) :: err
13782 end function
13783#endif
13784
13785#if RK2_ENABLED
13786 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13789#endif
13790 use pm_kind, only: RKG => RK2
13791 procedure(real(RKG)) :: getFunc
13792 real(RKG) , intent(in) :: lb
13793 real(RKG) , intent(in) :: ub
13794 real(RKG) , intent(in) :: abstol
13795 real(RKG) , intent(in) :: reltol
13796 type(GK51_type) , intent(in) :: qrule
13797 real(RKG) , intent(in) , contiguous :: help(:)
13798 real(RKG) , intent(out) :: integral, abserr
13799 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13800 integer(IK) , intent(out) , contiguous :: sindex(:)
13801 integer(IK) , intent(out) :: neval
13802 integer(IK) , intent(out) :: nint
13803 integer(IK) :: err
13804 end function
13805#endif
13806
13807#if RK1_ENABLED
13808 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13811#endif
13812 use pm_kind, only: RKG => RK1
13813 procedure(real(RKG)) :: getFunc
13814 real(RKG) , intent(in) :: lb
13815 real(RKG) , intent(in) :: ub
13816 real(RKG) , intent(in) :: abstol
13817 real(RKG) , intent(in) :: reltol
13818 type(GK51_type) , intent(in) :: qrule
13819 real(RKG) , intent(in) , contiguous :: help(:)
13820 real(RKG) , intent(out) :: integral, abserr
13821 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13822 integer(IK) , intent(out) , contiguous :: sindex(:)
13823 integer(IK) , intent(out) :: neval
13824 integer(IK) , intent(out) :: nint
13825 integer(IK) :: err
13826 end function
13827#endif
13828
13829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13830
13831#if RK5_ENABLED
13832 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13835#endif
13836 use pm_kind, only: RKG => RK5
13837 procedure(real(RKG)) :: getFunc
13838 real(RKG) , intent(in) :: lb
13839 type(pinf_type) , intent(in) :: ub
13840 real(RKG) , intent(in) :: abstol
13841 real(RKG) , intent(in) :: reltol
13842 type(GK51_type) , intent(in) :: qrule
13843 real(RKG) , intent(in) , contiguous :: help(:)
13844 real(RKG) , intent(out) :: integral, abserr
13845 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13846 integer(IK) , intent(out) , contiguous :: sindex(:)
13847 integer(IK) , intent(out) :: neval
13848 integer(IK) , intent(out) :: nint
13849 integer(IK) :: err
13850 end function
13851#endif
13852
13853#if RK4_ENABLED
13854 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13857#endif
13858 use pm_kind, only: RKG => RK4
13859 procedure(real(RKG)) :: getFunc
13860 real(RKG) , intent(in) :: lb
13861 type(pinf_type) , intent(in) :: ub
13862 real(RKG) , intent(in) :: abstol
13863 real(RKG) , intent(in) :: reltol
13864 type(GK51_type) , intent(in) :: qrule
13865 real(RKG) , intent(in) , contiguous :: help(:)
13866 real(RKG) , intent(out) :: integral, abserr
13867 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13868 integer(IK) , intent(out) , contiguous :: sindex(:)
13869 integer(IK) , intent(out) :: neval
13870 integer(IK) , intent(out) :: nint
13871 integer(IK) :: err
13872 end function
13873#endif
13874
13875#if RK3_ENABLED
13876 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13879#endif
13880 use pm_kind, only: RKG => RK3
13881 procedure(real(RKG)) :: getFunc
13882 real(RKG) , intent(in) :: lb
13883 type(pinf_type) , intent(in) :: ub
13884 real(RKG) , intent(in) :: abstol
13885 real(RKG) , intent(in) :: reltol
13886 type(GK51_type) , intent(in) :: qrule
13887 real(RKG) , intent(in) , contiguous :: help(:)
13888 real(RKG) , intent(out) :: integral, abserr
13889 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13890 integer(IK) , intent(out) , contiguous :: sindex(:)
13891 integer(IK) , intent(out) :: neval
13892 integer(IK) , intent(out) :: nint
13893 integer(IK) :: err
13894 end function
13895#endif
13896
13897#if RK2_ENABLED
13898 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13901#endif
13902 use pm_kind, only: RKG => RK2
13903 procedure(real(RKG)) :: getFunc
13904 real(RKG) , intent(in) :: lb
13905 type(pinf_type) , intent(in) :: ub
13906 real(RKG) , intent(in) :: abstol
13907 real(RKG) , intent(in) :: reltol
13908 type(GK51_type) , intent(in) :: qrule
13909 real(RKG) , intent(in) , contiguous :: help(:)
13910 real(RKG) , intent(out) :: integral, abserr
13911 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13912 integer(IK) , intent(out) , contiguous :: sindex(:)
13913 integer(IK) , intent(out) :: neval
13914 integer(IK) , intent(out) :: nint
13915 integer(IK) :: err
13916 end function
13917#endif
13918
13919#if RK1_ENABLED
13920 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13923#endif
13924 use pm_kind, only: RKG => RK1
13925 procedure(real(RKG)) :: getFunc
13926 real(RKG) , intent(in) :: lb
13927 type(pinf_type) , intent(in) :: ub
13928 real(RKG) , intent(in) :: abstol
13929 real(RKG) , intent(in) :: reltol
13930 type(GK51_type) , intent(in) :: qrule
13931 real(RKG) , intent(in) , contiguous :: help(:)
13932 real(RKG) , intent(out) :: integral, abserr
13933 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13934 integer(IK) , intent(out) , contiguous :: sindex(:)
13935 integer(IK) , intent(out) :: neval
13936 integer(IK) , intent(out) :: nint
13937 integer(IK) :: err
13938 end function
13939#endif
13940
13941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13942
13943#if RK5_ENABLED
13944 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13947#endif
13948 use pm_kind, only: RKG => RK5
13949 procedure(real(RKG)) :: getFunc
13950 type(ninf_type) , intent(in) :: lb
13951 real(RKG) , intent(in) :: ub
13952 real(RKG) , intent(in) :: abstol
13953 real(RKG) , intent(in) :: reltol
13954 type(GK51_type) , intent(in) :: qrule
13955 real(RKG) , intent(in) , contiguous :: help(:)
13956 real(RKG) , intent(out) :: integral, abserr
13957 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13958 integer(IK) , intent(out) , contiguous :: sindex(:)
13959 integer(IK) , intent(out) :: neval
13960 integer(IK) , intent(out) :: nint
13961 integer(IK) :: err
13962 end function
13963#endif
13964
13965#if RK4_ENABLED
13966 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13969#endif
13970 use pm_kind, only: RKG => RK4
13971 procedure(real(RKG)) :: getFunc
13972 type(ninf_type) , intent(in) :: lb
13973 real(RKG) , intent(in) :: ub
13974 real(RKG) , intent(in) :: abstol
13975 real(RKG) , intent(in) :: reltol
13976 type(GK51_type) , intent(in) :: qrule
13977 real(RKG) , intent(in) , contiguous :: help(:)
13978 real(RKG) , intent(out) :: integral, abserr
13979 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
13980 integer(IK) , intent(out) , contiguous :: sindex(:)
13981 integer(IK) , intent(out) :: neval
13982 integer(IK) , intent(out) :: nint
13983 integer(IK) :: err
13984 end function
13985#endif
13986
13987#if RK3_ENABLED
13988 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13990 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13991#endif
13992 use pm_kind, only: RKG => RK3
13993 procedure(real(RKG)) :: getFunc
13994 type(ninf_type) , intent(in) :: lb
13995 real(RKG) , intent(in) :: ub
13996 real(RKG) , intent(in) :: abstol
13997 real(RKG) , intent(in) :: reltol
13998 type(GK51_type) , intent(in) :: qrule
13999 real(RKG) , intent(in) , contiguous :: help(:)
14000 real(RKG) , intent(out) :: integral, abserr
14001 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14002 integer(IK) , intent(out) , contiguous :: sindex(:)
14003 integer(IK) , intent(out) :: neval
14004 integer(IK) , intent(out) :: nint
14005 integer(IK) :: err
14006 end function
14007#endif
14008
14009#if RK2_ENABLED
14010 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14012 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
14013#endif
14014 use pm_kind, only: RKG => RK2
14015 procedure(real(RKG)) :: getFunc
14016 type(ninf_type) , intent(in) :: lb
14017 real(RKG) , intent(in) :: ub
14018 real(RKG) , intent(in) :: abstol
14019 real(RKG) , intent(in) :: reltol
14020 type(GK51_type) , intent(in) :: qrule
14021 real(RKG) , intent(in) , contiguous :: help(:)
14022 real(RKG) , intent(out) :: integral, abserr
14023 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14024 integer(IK) , intent(out) , contiguous :: sindex(:)
14025 integer(IK) , intent(out) :: neval
14026 integer(IK) , intent(out) :: nint
14027 integer(IK) :: err
14028 end function
14029#endif
14030
14031#if RK1_ENABLED
14032 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14034 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
14035#endif
14036 use pm_kind, only: RKG => RK1
14037 procedure(real(RKG)) :: getFunc
14038 type(ninf_type) , intent(in) :: lb
14039 real(RKG) , intent(in) :: ub
14040 real(RKG) , intent(in) :: abstol
14041 real(RKG) , intent(in) :: reltol
14042 type(GK51_type) , intent(in) :: qrule
14043 real(RKG) , intent(in) , contiguous :: help(:)
14044 real(RKG) , intent(out) :: integral, abserr
14045 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14046 integer(IK) , intent(out) , contiguous :: sindex(:)
14047 integer(IK) , intent(out) :: neval
14048 integer(IK) , intent(out) :: nint
14049 integer(IK) :: err
14050 end function
14051#endif
14052
14053 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14054
14055#if RK5_ENABLED
14056 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
14059#endif
14060 use pm_kind, only: RKG => RK5
14061 procedure(real(RKG)) :: getFunc
14062 type(ninf_type) , intent(in) :: lb
14063 type(pinf_type) , intent(in) :: ub
14064 real(RKG) , intent(in) :: abstol
14065 real(RKG) , intent(in) :: reltol
14066 type(GK51_type) , intent(in) :: qrule
14067 real(RKG) , intent(in) , contiguous :: help(:)
14068 real(RKG) , intent(out) :: integral, abserr
14069 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14070 integer(IK) , intent(out) , contiguous :: sindex(:)
14071 integer(IK) , intent(out) :: neval
14072 integer(IK) , intent(out) :: nint
14073 integer(IK) :: err
14074 end function
14075#endif
14076
14077#if RK4_ENABLED
14078 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14080 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14081#endif
14082 use pm_kind, only: RKG => RK4
14083 procedure(real(RKG)) :: getFunc
14084 type(ninf_type) , intent(in) :: lb
14085 type(pinf_type) , intent(in) :: ub
14086 real(RKG) , intent(in) :: abstol
14087 real(RKG) , intent(in) :: reltol
14088 type(GK51_type) , intent(in) :: qrule
14089 real(RKG) , intent(in) , contiguous :: help(:)
14090 real(RKG) , intent(out) :: integral, abserr
14091 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14092 integer(IK) , intent(out) , contiguous :: sindex(:)
14093 integer(IK) , intent(out) :: neval
14094 integer(IK) , intent(out) :: nint
14095 integer(IK) :: err
14096 end function
14097#endif
14098
14099#if RK3_ENABLED
14100 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14102 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14103#endif
14104 use pm_kind, only: RKG => RK3
14105 procedure(real(RKG)) :: getFunc
14106 type(ninf_type) , intent(in) :: lb
14107 type(pinf_type) , intent(in) :: ub
14108 real(RKG) , intent(in) :: abstol
14109 real(RKG) , intent(in) :: reltol
14110 type(GK51_type) , intent(in) :: qrule
14111 real(RKG) , intent(in) , contiguous :: help(:)
14112 real(RKG) , intent(out) :: integral, abserr
14113 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14114 integer(IK) , intent(out) , contiguous :: sindex(:)
14115 integer(IK) , intent(out) :: neval
14116 integer(IK) , intent(out) :: nint
14117 integer(IK) :: err
14118 end function
14119#endif
14120
14121#if RK2_ENABLED
14122 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14124 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14125#endif
14126 use pm_kind, only: RKG => RK2
14127 procedure(real(RKG)) :: getFunc
14128 type(ninf_type) , intent(in) :: lb
14129 type(pinf_type) , intent(in) :: ub
14130 real(RKG) , intent(in) :: abstol
14131 real(RKG) , intent(in) :: reltol
14132 type(GK51_type) , intent(in) :: qrule
14133 real(RKG) , intent(in) , contiguous :: help(:)
14134 real(RKG) , intent(out) :: integral, abserr
14135 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14136 integer(IK) , intent(out) , contiguous :: sindex(:)
14137 integer(IK) , intent(out) :: neval
14138 integer(IK) , intent(out) :: nint
14139 integer(IK) :: err
14140 end function
14141#endif
14142
14143#if RK1_ENABLED
14144 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14146 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14147#endif
14148 use pm_kind, only: RKG => RK1
14149 procedure(real(RKG)) :: getFunc
14150 type(ninf_type) , intent(in) :: lb
14151 type(pinf_type) , intent(in) :: ub
14152 real(RKG) , intent(in) :: abstol
14153 real(RKG) , intent(in) :: reltol
14154 type(GK51_type) , intent(in) :: qrule
14155 real(RKG) , intent(in) , contiguous :: help(:)
14156 real(RKG) , intent(out) :: integral, abserr
14157 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14158 integer(IK) , intent(out) , contiguous :: sindex(:)
14159 integer(IK) , intent(out) :: neval
14160 integer(IK) , intent(out) :: nint
14161 integer(IK) :: err
14162 end function
14163#endif
14164
14165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14166
14167 end interface
14168
14169 ! QAGP_GK61
14170
14171 interface getQuadErr
14172
14173 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14174
14175#if RK5_ENABLED
14176 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14178 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14179#endif
14180 use pm_kind, only: RKG => RK5
14181 procedure(real(RKG)) :: getFunc
14182 real(RKG) , intent(in) :: lb
14183 real(RKG) , intent(in) :: ub
14184 real(RKG) , intent(in) :: abstol
14185 real(RKG) , intent(in) :: reltol
14186 type(GK61_type) , intent(in) :: qrule
14187 real(RKG) , intent(in) , contiguous :: help(:)
14188 real(RKG) , intent(out) :: integral, abserr
14189 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14190 integer(IK) , intent(out) , contiguous :: sindex(:)
14191 integer(IK) , intent(out) :: neval
14192 integer(IK) , intent(out) :: nint
14193 integer(IK) :: err
14194 end function
14195#endif
14196
14197#if RK4_ENABLED
14198 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14200 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14201#endif
14202 use pm_kind, only: RKG => RK4
14203 procedure(real(RKG)) :: getFunc
14204 real(RKG) , intent(in) :: lb
14205 real(RKG) , intent(in) :: ub
14206 real(RKG) , intent(in) :: abstol
14207 real(RKG) , intent(in) :: reltol
14208 type(GK61_type) , intent(in) :: qrule
14209 real(RKG) , intent(in) , contiguous :: help(:)
14210 real(RKG) , intent(out) :: integral, abserr
14211 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14212 integer(IK) , intent(out) , contiguous :: sindex(:)
14213 integer(IK) , intent(out) :: neval
14214 integer(IK) , intent(out) :: nint
14215 integer(IK) :: err
14216 end function
14217#endif
14218
14219#if RK3_ENABLED
14220 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14222 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14223#endif
14224 use pm_kind, only: RKG => RK3
14225 procedure(real(RKG)) :: getFunc
14226 real(RKG) , intent(in) :: lb
14227 real(RKG) , intent(in) :: ub
14228 real(RKG) , intent(in) :: abstol
14229 real(RKG) , intent(in) :: reltol
14230 type(GK61_type) , intent(in) :: qrule
14231 real(RKG) , intent(in) , contiguous :: help(:)
14232 real(RKG) , intent(out) :: integral, abserr
14233 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14234 integer(IK) , intent(out) , contiguous :: sindex(:)
14235 integer(IK) , intent(out) :: neval
14236 integer(IK) , intent(out) :: nint
14237 integer(IK) :: err
14238 end function
14239#endif
14240
14241#if RK2_ENABLED
14242 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14244 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14245#endif
14246 use pm_kind, only: RKG => RK2
14247 procedure(real(RKG)) :: getFunc
14248 real(RKG) , intent(in) :: lb
14249 real(RKG) , intent(in) :: ub
14250 real(RKG) , intent(in) :: abstol
14251 real(RKG) , intent(in) :: reltol
14252 type(GK61_type) , intent(in) :: qrule
14253 real(RKG) , intent(in) , contiguous :: help(:)
14254 real(RKG) , intent(out) :: integral, abserr
14255 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14256 integer(IK) , intent(out) , contiguous :: sindex(:)
14257 integer(IK) , intent(out) :: neval
14258 integer(IK) , intent(out) :: nint
14259 integer(IK) :: err
14260 end function
14261#endif
14262
14263#if RK1_ENABLED
14264 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14266 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14267#endif
14268 use pm_kind, only: RKG => RK1
14269 procedure(real(RKG)) :: getFunc
14270 real(RKG) , intent(in) :: lb
14271 real(RKG) , intent(in) :: ub
14272 real(RKG) , intent(in) :: abstol
14273 real(RKG) , intent(in) :: reltol
14274 type(GK61_type) , intent(in) :: qrule
14275 real(RKG) , intent(in) , contiguous :: help(:)
14276 real(RKG) , intent(out) :: integral, abserr
14277 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14278 integer(IK) , intent(out) , contiguous :: sindex(:)
14279 integer(IK) , intent(out) :: neval
14280 integer(IK) , intent(out) :: nint
14281 integer(IK) :: err
14282 end function
14283#endif
14284
14285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14286
14287#if RK5_ENABLED
14288 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14290 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14291#endif
14292 use pm_kind, only: RKG => RK5
14293 procedure(real(RKG)) :: getFunc
14294 real(RKG) , intent(in) :: lb
14295 type(pinf_type) , intent(in) :: ub
14296 real(RKG) , intent(in) :: abstol
14297 real(RKG) , intent(in) :: reltol
14298 type(GK61_type) , intent(in) :: qrule
14299 real(RKG) , intent(in) , contiguous :: help(:)
14300 real(RKG) , intent(out) :: integral, abserr
14301 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14302 integer(IK) , intent(out) , contiguous :: sindex(:)
14303 integer(IK) , intent(out) :: neval
14304 integer(IK) , intent(out) :: nint
14305 integer(IK) :: err
14306 end function
14307#endif
14308
14309#if RK4_ENABLED
14310 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14313#endif
14314 use pm_kind, only: RKG => RK4
14315 procedure(real(RKG)) :: getFunc
14316 real(RKG) , intent(in) :: lb
14317 type(pinf_type) , intent(in) :: ub
14318 real(RKG) , intent(in) :: abstol
14319 real(RKG) , intent(in) :: reltol
14320 type(GK61_type) , intent(in) :: qrule
14321 real(RKG) , intent(in) , contiguous :: help(:)
14322 real(RKG) , intent(out) :: integral, abserr
14323 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14324 integer(IK) , intent(out) , contiguous :: sindex(:)
14325 integer(IK) , intent(out) :: neval
14326 integer(IK) , intent(out) :: nint
14327 integer(IK) :: err
14328 end function
14329#endif
14330
14331#if RK3_ENABLED
14332 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14334 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14335#endif
14336 use pm_kind, only: RKG => RK3
14337 procedure(real(RKG)) :: getFunc
14338 real(RKG) , intent(in) :: lb
14339 type(pinf_type) , intent(in) :: ub
14340 real(RKG) , intent(in) :: abstol
14341 real(RKG) , intent(in) :: reltol
14342 type(GK61_type) , intent(in) :: qrule
14343 real(RKG) , intent(in) , contiguous :: help(:)
14344 real(RKG) , intent(out) :: integral, abserr
14345 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14346 integer(IK) , intent(out) , contiguous :: sindex(:)
14347 integer(IK) , intent(out) :: neval
14348 integer(IK) , intent(out) :: nint
14349 integer(IK) :: err
14350 end function
14351#endif
14352
14353#if RK2_ENABLED
14354 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14356 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14357#endif
14358 use pm_kind, only: RKG => RK2
14359 procedure(real(RKG)) :: getFunc
14360 real(RKG) , intent(in) :: lb
14361 type(pinf_type) , intent(in) :: ub
14362 real(RKG) , intent(in) :: abstol
14363 real(RKG) , intent(in) :: reltol
14364 type(GK61_type) , intent(in) :: qrule
14365 real(RKG) , intent(in) , contiguous :: help(:)
14366 real(RKG) , intent(out) :: integral, abserr
14367 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14368 integer(IK) , intent(out) , contiguous :: sindex(:)
14369 integer(IK) , intent(out) :: neval
14370 integer(IK) , intent(out) :: nint
14371 integer(IK) :: err
14372 end function
14373#endif
14374
14375#if RK1_ENABLED
14376 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14378 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14379#endif
14380 use pm_kind, only: RKG => RK1
14381 procedure(real(RKG)) :: getFunc
14382 real(RKG) , intent(in) :: lb
14383 type(pinf_type) , intent(in) :: ub
14384 real(RKG) , intent(in) :: abstol
14385 real(RKG) , intent(in) :: reltol
14386 type(GK61_type) , intent(in) :: qrule
14387 real(RKG) , intent(in) , contiguous :: help(:)
14388 real(RKG) , intent(out) :: integral, abserr
14389 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14390 integer(IK) , intent(out) , contiguous :: sindex(:)
14391 integer(IK) , intent(out) :: neval
14392 integer(IK) , intent(out) :: nint
14393 integer(IK) :: err
14394 end function
14395#endif
14396
14397 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14398
14399#if RK5_ENABLED
14400 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14402 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14403#endif
14404 use pm_kind, only: RKG => RK5
14405 procedure(real(RKG)) :: getFunc
14406 type(ninf_type) , intent(in) :: lb
14407 real(RKG) , intent(in) :: ub
14408 real(RKG) , intent(in) :: abstol
14409 real(RKG) , intent(in) :: reltol
14410 type(GK61_type) , intent(in) :: qrule
14411 real(RKG) , intent(in) , contiguous :: help(:)
14412 real(RKG) , intent(out) :: integral, abserr
14413 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14414 integer(IK) , intent(out) , contiguous :: sindex(:)
14415 integer(IK) , intent(out) :: neval
14416 integer(IK) , intent(out) :: nint
14417 integer(IK) :: err
14418 end function
14419#endif
14420
14421#if RK4_ENABLED
14422 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14424 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14425#endif
14426 use pm_kind, only: RKG => RK4
14427 procedure(real(RKG)) :: getFunc
14428 type(ninf_type) , intent(in) :: lb
14429 real(RKG) , intent(in) :: ub
14430 real(RKG) , intent(in) :: abstol
14431 real(RKG) , intent(in) :: reltol
14432 type(GK61_type) , intent(in) :: qrule
14433 real(RKG) , intent(in) , contiguous :: help(:)
14434 real(RKG) , intent(out) :: integral, abserr
14435 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14436 integer(IK) , intent(out) , contiguous :: sindex(:)
14437 integer(IK) , intent(out) :: neval
14438 integer(IK) , intent(out) :: nint
14439 integer(IK) :: err
14440 end function
14441#endif
14442
14443#if RK3_ENABLED
14444 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14446 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14447#endif
14448 use pm_kind, only: RKG => RK3
14449 procedure(real(RKG)) :: getFunc
14450 type(ninf_type) , intent(in) :: lb
14451 real(RKG) , intent(in) :: ub
14452 real(RKG) , intent(in) :: abstol
14453 real(RKG) , intent(in) :: reltol
14454 type(GK61_type) , intent(in) :: qrule
14455 real(RKG) , intent(in) , contiguous :: help(:)
14456 real(RKG) , intent(out) :: integral, abserr
14457 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14458 integer(IK) , intent(out) , contiguous :: sindex(:)
14459 integer(IK) , intent(out) :: neval
14460 integer(IK) , intent(out) :: nint
14461 integer(IK) :: err
14462 end function
14463#endif
14464
14465#if RK2_ENABLED
14466 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14468 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14469#endif
14470 use pm_kind, only: RKG => RK2
14471 procedure(real(RKG)) :: getFunc
14472 type(ninf_type) , intent(in) :: lb
14473 real(RKG) , intent(in) :: ub
14474 real(RKG) , intent(in) :: abstol
14475 real(RKG) , intent(in) :: reltol
14476 type(GK61_type) , intent(in) :: qrule
14477 real(RKG) , intent(in) , contiguous :: help(:)
14478 real(RKG) , intent(out) :: integral, abserr
14479 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14480 integer(IK) , intent(out) , contiguous :: sindex(:)
14481 integer(IK) , intent(out) :: neval
14482 integer(IK) , intent(out) :: nint
14483 integer(IK) :: err
14484 end function
14485#endif
14486
14487#if RK1_ENABLED
14488 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14490 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14491#endif
14492 use pm_kind, only: RKG => RK1
14493 procedure(real(RKG)) :: getFunc
14494 type(ninf_type) , intent(in) :: lb
14495 real(RKG) , intent(in) :: ub
14496 real(RKG) , intent(in) :: abstol
14497 real(RKG) , intent(in) :: reltol
14498 type(GK61_type) , intent(in) :: qrule
14499 real(RKG) , intent(in) , contiguous :: help(:)
14500 real(RKG) , intent(out) :: integral, abserr
14501 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14502 integer(IK) , intent(out) , contiguous :: sindex(:)
14503 integer(IK) , intent(out) :: neval
14504 integer(IK) , intent(out) :: nint
14505 integer(IK) :: err
14506 end function
14507#endif
14508
14509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14510
14511#if RK5_ENABLED
14512 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14514 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14515#endif
14516 use pm_kind, only: RKG => RK5
14517 procedure(real(RKG)) :: getFunc
14518 type(ninf_type) , intent(in) :: lb
14519 type(pinf_type) , intent(in) :: ub
14520 real(RKG) , intent(in) :: abstol
14521 real(RKG) , intent(in) :: reltol
14522 type(GK61_type) , intent(in) :: qrule
14523 real(RKG) , intent(in) , contiguous :: help(:)
14524 real(RKG) , intent(out) :: integral, abserr
14525 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14526 integer(IK) , intent(out) , contiguous :: sindex(:)
14527 integer(IK) , intent(out) :: neval
14528 integer(IK) , intent(out) :: nint
14529 integer(IK) :: err
14530 end function
14531#endif
14532
14533#if RK4_ENABLED
14534 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14537#endif
14538 use pm_kind, only: RKG => RK4
14539 procedure(real(RKG)) :: getFunc
14540 type(ninf_type) , intent(in) :: lb
14541 type(pinf_type) , intent(in) :: ub
14542 real(RKG) , intent(in) :: abstol
14543 real(RKG) , intent(in) :: reltol
14544 type(GK61_type) , intent(in) :: qrule
14545 real(RKG) , intent(in) , contiguous :: help(:)
14546 real(RKG) , intent(out) :: integral, abserr
14547 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14548 integer(IK) , intent(out) , contiguous :: sindex(:)
14549 integer(IK) , intent(out) :: neval
14550 integer(IK) , intent(out) :: nint
14551 integer(IK) :: err
14552 end function
14553#endif
14554
14555#if RK3_ENABLED
14556 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14558 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14559#endif
14560 use pm_kind, only: RKG => RK3
14561 procedure(real(RKG)) :: getFunc
14562 type(ninf_type) , intent(in) :: lb
14563 type(pinf_type) , intent(in) :: ub
14564 real(RKG) , intent(in) :: abstol
14565 real(RKG) , intent(in) :: reltol
14566 type(GK61_type) , intent(in) :: qrule
14567 real(RKG) , intent(in) , contiguous :: help(:)
14568 real(RKG) , intent(out) :: integral, abserr
14569 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14570 integer(IK) , intent(out) , contiguous :: sindex(:)
14571 integer(IK) , intent(out) :: neval
14572 integer(IK) , intent(out) :: nint
14573 integer(IK) :: err
14574 end function
14575#endif
14576
14577#if RK2_ENABLED
14578 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14581#endif
14582 use pm_kind, only: RKG => RK2
14583 procedure(real(RKG)) :: getFunc
14584 type(ninf_type) , intent(in) :: lb
14585 type(pinf_type) , intent(in) :: ub
14586 real(RKG) , intent(in) :: abstol
14587 real(RKG) , intent(in) :: reltol
14588 type(GK61_type) , intent(in) :: qrule
14589 real(RKG) , intent(in) , contiguous :: help(:)
14590 real(RKG) , intent(out) :: integral, abserr
14591 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14592 integer(IK) , intent(out) , contiguous :: sindex(:)
14593 integer(IK) , intent(out) :: neval
14594 integer(IK) , intent(out) :: nint
14595 integer(IK) :: err
14596 end function
14597#endif
14598
14599#if RK1_ENABLED
14600 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14602 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14603#endif
14604 use pm_kind, only: RKG => RK1
14605 procedure(real(RKG)) :: getFunc
14606 type(ninf_type) , intent(in) :: lb
14607 type(pinf_type) , intent(in) :: ub
14608 real(RKG) , intent(in) :: abstol
14609 real(RKG) , intent(in) :: reltol
14610 type(GK61_type) , intent(in) :: qrule
14611 real(RKG) , intent(in) , contiguous :: help(:)
14612 real(RKG) , intent(out) :: integral, abserr
14613 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14614 integer(IK) , intent(out) , contiguous :: sindex(:)
14615 integer(IK) , intent(out) :: neval
14616 integer(IK) , intent(out) :: nint
14617 integer(IK) :: err
14618 end function
14619#endif
14620
14621 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14622
14623 end interface
14624
14625 ! QAGP_GKXX
14626
14627 interface getQuadErr
14628
14629 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14630
14631#if RK5_ENABLED
14632 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14635#endif
14636 use pm_kind, only: RKG => RK5
14637 procedure(real(RKG)) :: getFunc
14638 real(RKG) , intent(in) :: lb
14639 real(RKG) , intent(in) :: ub
14640 real(RKG) , intent(in) :: abstol
14641 real(RKG) , intent(in) :: reltol
14642 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14643 real(RKG) , intent(in) , contiguous :: help(:)
14644 real(RKG) , intent(out) :: integral, abserr
14645 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14646 integer(IK) , intent(out) , contiguous :: sindex(:)
14647 integer(IK) , intent(out) :: neval
14648 integer(IK) , intent(out) :: nint
14649 integer(IK) :: err
14650 end function
14651#endif
14652
14653#if RK4_ENABLED
14654 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14657#endif
14658 use pm_kind, only: RKG => RK4
14659 procedure(real(RKG)) :: getFunc
14660 real(RKG) , intent(in) :: lb
14661 real(RKG) , intent(in) :: ub
14662 real(RKG) , intent(in) :: abstol
14663 real(RKG) , intent(in) :: reltol
14664 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14665 real(RKG) , intent(in) , contiguous :: help(:)
14666 real(RKG) , intent(out) :: integral, abserr
14667 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14668 integer(IK) , intent(out) , contiguous :: sindex(:)
14669 integer(IK) , intent(out) :: neval
14670 integer(IK) , intent(out) :: nint
14671 integer(IK) :: err
14672 end function
14673#endif
14674
14675#if RK3_ENABLED
14676 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14678 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14679#endif
14680 use pm_kind, only: RKG => RK3
14681 procedure(real(RKG)) :: getFunc
14682 real(RKG) , intent(in) :: lb
14683 real(RKG) , intent(in) :: ub
14684 real(RKG) , intent(in) :: abstol
14685 real(RKG) , intent(in) :: reltol
14686 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14687 real(RKG) , intent(in) , contiguous :: help(:)
14688 real(RKG) , intent(out) :: integral, abserr
14689 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14690 integer(IK) , intent(out) , contiguous :: sindex(:)
14691 integer(IK) , intent(out) :: neval
14692 integer(IK) , intent(out) :: nint
14693 integer(IK) :: err
14694 end function
14695#endif
14696
14697#if RK2_ENABLED
14698 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14700 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14701#endif
14702 use pm_kind, only: RKG => RK2
14703 procedure(real(RKG)) :: getFunc
14704 real(RKG) , intent(in) :: lb
14705 real(RKG) , intent(in) :: ub
14706 real(RKG) , intent(in) :: abstol
14707 real(RKG) , intent(in) :: reltol
14708 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14709 real(RKG) , intent(in) , contiguous :: help(:)
14710 real(RKG) , intent(out) :: integral, abserr
14711 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14712 integer(IK) , intent(out) , contiguous :: sindex(:)
14713 integer(IK) , intent(out) :: neval
14714 integer(IK) , intent(out) :: nint
14715 integer(IK) :: err
14716 end function
14717#endif
14718
14719#if RK1_ENABLED
14720 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14722 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14723#endif
14724 use pm_kind, only: RKG => RK1
14725 procedure(real(RKG)) :: getFunc
14726 real(RKG) , intent(in) :: lb
14727 real(RKG) , intent(in) :: ub
14728 real(RKG) , intent(in) :: abstol
14729 real(RKG) , intent(in) :: reltol
14730 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14731 real(RKG) , intent(in) , contiguous :: help(:)
14732 real(RKG) , intent(out) :: integral, abserr
14733 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14734 integer(IK) , intent(out) , contiguous :: sindex(:)
14735 integer(IK) , intent(out) :: neval
14736 integer(IK) , intent(out) :: nint
14737 integer(IK) :: err
14738 end function
14739#endif
14740
14741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14742
14743#if RK5_ENABLED
14744 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14747#endif
14748 use pm_kind, only: RKG => RK5
14749 procedure(real(RKG)) :: getFunc
14750 real(RKG) , intent(in) :: lb
14751 type(pinf_type) , intent(in) :: ub
14752 real(RKG) , intent(in) :: abstol
14753 real(RKG) , intent(in) :: reltol
14754 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14755 real(RKG) , intent(in) , contiguous :: help(:)
14756 real(RKG) , intent(out) :: integral, abserr
14757 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14758 integer(IK) , intent(out) , contiguous :: sindex(:)
14759 integer(IK) , intent(out) :: neval
14760 integer(IK) , intent(out) :: nint
14761 integer(IK) :: err
14762 end function
14763#endif
14764
14765#if RK4_ENABLED
14766 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14769#endif
14770 use pm_kind, only: RKG => RK4
14771 procedure(real(RKG)) :: getFunc
14772 real(RKG) , intent(in) :: lb
14773 type(pinf_type) , intent(in) :: ub
14774 real(RKG) , intent(in) :: abstol
14775 real(RKG) , intent(in) :: reltol
14776 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14777 real(RKG) , intent(in) , contiguous :: help(:)
14778 real(RKG) , intent(out) :: integral, abserr
14779 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14780 integer(IK) , intent(out) , contiguous :: sindex(:)
14781 integer(IK) , intent(out) :: neval
14782 integer(IK) , intent(out) :: nint
14783 integer(IK) :: err
14784 end function
14785#endif
14786
14787#if RK3_ENABLED
14788 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14791#endif
14792 use pm_kind, only: RKG => RK3
14793 procedure(real(RKG)) :: getFunc
14794 real(RKG) , intent(in) :: lb
14795 type(pinf_type) , intent(in) :: ub
14796 real(RKG) , intent(in) :: abstol
14797 real(RKG) , intent(in) :: reltol
14798 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14799 real(RKG) , intent(in) , contiguous :: help(:)
14800 real(RKG) , intent(out) :: integral, abserr
14801 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14802 integer(IK) , intent(out) , contiguous :: sindex(:)
14803 integer(IK) , intent(out) :: neval
14804 integer(IK) , intent(out) :: nint
14805 integer(IK) :: err
14806 end function
14807#endif
14808
14809#if RK2_ENABLED
14810 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14812 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14813#endif
14814 use pm_kind, only: RKG => RK2
14815 procedure(real(RKG)) :: getFunc
14816 real(RKG) , intent(in) :: lb
14817 type(pinf_type) , intent(in) :: ub
14818 real(RKG) , intent(in) :: abstol
14819 real(RKG) , intent(in) :: reltol
14820 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14821 real(RKG) , intent(in) , contiguous :: help(:)
14822 real(RKG) , intent(out) :: integral, abserr
14823 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14824 integer(IK) , intent(out) , contiguous :: sindex(:)
14825 integer(IK) , intent(out) :: neval
14826 integer(IK) , intent(out) :: nint
14827 integer(IK) :: err
14828 end function
14829#endif
14830
14831#if RK1_ENABLED
14832 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14835#endif
14836 use pm_kind, only: RKG => RK1
14837 procedure(real(RKG)) :: getFunc
14838 real(RKG) , intent(in) :: lb
14839 type(pinf_type) , intent(in) :: ub
14840 real(RKG) , intent(in) :: abstol
14841 real(RKG) , intent(in) :: reltol
14842 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14843 real(RKG) , intent(in) , contiguous :: help(:)
14844 real(RKG) , intent(out) :: integral, abserr
14845 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14846 integer(IK) , intent(out) , contiguous :: sindex(:)
14847 integer(IK) , intent(out) :: neval
14848 integer(IK) , intent(out) :: nint
14849 integer(IK) :: err
14850 end function
14851#endif
14852
14853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14854
14855#if RK5_ENABLED
14856 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14859#endif
14860 use pm_kind, only: RKG => RK5
14861 procedure(real(RKG)) :: getFunc
14862 type(ninf_type) , intent(in) :: lb
14863 real(RKG) , intent(in) :: ub
14864 real(RKG) , intent(in) :: abstol
14865 real(RKG) , intent(in) :: reltol
14866 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14867 real(RKG) , intent(in) , contiguous :: help(:)
14868 real(RKG) , intent(out) :: integral, abserr
14869 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14870 integer(IK) , intent(out) , contiguous :: sindex(:)
14871 integer(IK) , intent(out) :: neval
14872 integer(IK) , intent(out) :: nint
14873 integer(IK) :: err
14874 end function
14875#endif
14876
14877#if RK4_ENABLED
14878 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14881#endif
14882 use pm_kind, only: RKG => RK4
14883 procedure(real(RKG)) :: getFunc
14884 type(ninf_type) , intent(in) :: lb
14885 real(RKG) , intent(in) :: ub
14886 real(RKG) , intent(in) :: abstol
14887 real(RKG) , intent(in) :: reltol
14888 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14889 real(RKG) , intent(in) , contiguous :: help(:)
14890 real(RKG) , intent(out) :: integral, abserr
14891 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14892 integer(IK) , intent(out) , contiguous :: sindex(:)
14893 integer(IK) , intent(out) :: neval
14894 integer(IK) , intent(out) :: nint
14895 integer(IK) :: err
14896 end function
14897#endif
14898
14899#if RK3_ENABLED
14900 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14903#endif
14904 use pm_kind, only: RKG => RK3
14905 procedure(real(RKG)) :: getFunc
14906 type(ninf_type) , intent(in) :: lb
14907 real(RKG) , intent(in) :: ub
14908 real(RKG) , intent(in) :: abstol
14909 real(RKG) , intent(in) :: reltol
14910 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14911 real(RKG) , intent(in) , contiguous :: help(:)
14912 real(RKG) , intent(out) :: integral, abserr
14913 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14914 integer(IK) , intent(out) , contiguous :: sindex(:)
14915 integer(IK) , intent(out) :: neval
14916 integer(IK) , intent(out) :: nint
14917 integer(IK) :: err
14918 end function
14919#endif
14920
14921#if RK2_ENABLED
14922 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14924 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14925#endif
14926 use pm_kind, only: RKG => RK2
14927 procedure(real(RKG)) :: getFunc
14928 type(ninf_type) , intent(in) :: lb
14929 real(RKG) , intent(in) :: ub
14930 real(RKG) , intent(in) :: abstol
14931 real(RKG) , intent(in) :: reltol
14932 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14933 real(RKG) , intent(in) , contiguous :: help(:)
14934 real(RKG) , intent(out) :: integral, abserr
14935 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14936 integer(IK) , intent(out) , contiguous :: sindex(:)
14937 integer(IK) , intent(out) :: neval
14938 integer(IK) , intent(out) :: nint
14939 integer(IK) :: err
14940 end function
14941#endif
14942
14943#if RK1_ENABLED
14944 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14947#endif
14948 use pm_kind, only: RKG => RK1
14949 procedure(real(RKG)) :: getFunc
14950 type(ninf_type) , intent(in) :: lb
14951 real(RKG) , intent(in) :: ub
14952 real(RKG) , intent(in) :: abstol
14953 real(RKG) , intent(in) :: reltol
14954 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14955 real(RKG) , intent(in) , contiguous :: help(:)
14956 real(RKG) , intent(out) :: integral, abserr
14957 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14958 integer(IK) , intent(out) , contiguous :: sindex(:)
14959 integer(IK) , intent(out) :: neval
14960 integer(IK) , intent(out) :: nint
14961 integer(IK) :: err
14962 end function
14963#endif
14964
14965 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14966
14967#if RK5_ENABLED
14968 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14971#endif
14972 use pm_kind, only: RKG => RK5
14973 procedure(real(RKG)) :: getFunc
14974 type(ninf_type) , intent(in) :: lb
14975 type(pinf_type) , intent(in) :: ub
14976 real(RKG) , intent(in) :: abstol
14977 real(RKG) , intent(in) :: reltol
14978 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14979 real(RKG) , intent(in) , contiguous :: help(:)
14980 real(RKG) , intent(out) :: integral, abserr
14981 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
14982 integer(IK) , intent(out) , contiguous :: sindex(:)
14983 integer(IK) , intent(out) :: neval
14984 integer(IK) , intent(out) :: nint
14985 integer(IK) :: err
14986 end function
14987#endif
14988
14989#if RK4_ENABLED
14990 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14992 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14993#endif
14994 use pm_kind, only: RKG => RK4
14995 procedure(real(RKG)) :: getFunc
14996 type(ninf_type) , intent(in) :: lb
14997 type(pinf_type) , intent(in) :: ub
14998 real(RKG) , intent(in) :: abstol
14999 real(RKG) , intent(in) :: reltol
15000 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15001 real(RKG) , intent(in) , contiguous :: help(:)
15002 real(RKG) , intent(out) :: integral, abserr
15003 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15004 integer(IK) , intent(out) , contiguous :: sindex(:)
15005 integer(IK) , intent(out) :: neval
15006 integer(IK) , intent(out) :: nint
15007 integer(IK) :: err
15008 end function
15009#endif
15010
15011#if RK3_ENABLED
15012 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
15015#endif
15016 use pm_kind, only: RKG => RK3
15017 procedure(real(RKG)) :: getFunc
15018 type(ninf_type) , intent(in) :: lb
15019 type(pinf_type) , intent(in) :: ub
15020 real(RKG) , intent(in) :: abstol
15021 real(RKG) , intent(in) :: reltol
15022 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15023 real(RKG) , intent(in) , contiguous :: help(:)
15024 real(RKG) , intent(out) :: integral, abserr
15025 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15026 integer(IK) , intent(out) , contiguous :: sindex(:)
15027 integer(IK) , intent(out) :: neval
15028 integer(IK) , intent(out) :: nint
15029 integer(IK) :: err
15030 end function
15031#endif
15032
15033#if RK2_ENABLED
15034 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15036 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
15037#endif
15038 use pm_kind, only: RKG => RK2
15039 procedure(real(RKG)) :: getFunc
15040 type(ninf_type) , intent(in) :: lb
15041 type(pinf_type) , intent(in) :: ub
15042 real(RKG) , intent(in) :: abstol
15043 real(RKG) , intent(in) :: reltol
15044 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15045 real(RKG) , intent(in) , contiguous :: help(:)
15046 real(RKG) , intent(out) :: integral, abserr
15047 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15048 integer(IK) , intent(out) , contiguous :: sindex(:)
15049 integer(IK) , intent(out) :: neval
15050 integer(IK) , intent(out) :: nint
15051 integer(IK) :: err
15052 end function
15053#endif
15054
15055#if RK1_ENABLED
15056 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
15059#endif
15060 use pm_kind, only: RKG => RK1
15061 procedure(real(RKG)) :: getFunc
15062 type(ninf_type) , intent(in) :: lb
15063 type(pinf_type) , intent(in) :: ub
15064 real(RKG) , intent(in) :: abstol
15065 real(RKG) , intent(in) :: reltol
15066 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15067 real(RKG) , intent(in) , contiguous :: help(:)
15068 real(RKG) , intent(out) :: integral, abserr
15069 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15070 integer(IK) , intent(out) , contiguous :: sindex(:)
15071 integer(IK) , intent(out) :: neval
15072 integer(IK) , intent(out) :: nint
15073 integer(IK) :: err
15074 end function
15075#endif
15076
15077 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15078
15079 end interface
15080
15081!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15082
15083 ! QAWC FF
15084
15085 interface getQuadErr
15086
15087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15088
15089#if RK5_ENABLED
15090 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15092 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15093#endif
15094 use pm_kind, only: RKG => RK5
15095 procedure(real(RKG)) :: getFunc
15096 real(RKG) , intent(in) :: lb
15097 real(RKG) , intent(in) :: ub
15098 real(RKG) , intent(in) :: abstol
15099 real(RKG) , intent(in) :: reltol
15100 type(GK15_type) , intent(in) :: qrule
15101 type(wcauchy_type) , intent(in) :: help
15102 real(RKG) , intent(out) :: integral, abserr
15103 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15104 integer(IK) , intent(out) , contiguous :: sindex(:)
15105 integer(IK) , intent(out) :: neval
15106 integer(IK) , intent(out) :: nint
15107 integer(IK) :: err
15108 end function
15109#endif
15110
15111#if RK4_ENABLED
15112 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15114 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15115#endif
15116 use pm_kind, only: RKG => RK4
15117 procedure(real(RKG)) :: getFunc
15118 real(RKG) , intent(in) :: lb
15119 real(RKG) , intent(in) :: ub
15120 real(RKG) , intent(in) :: abstol
15121 real(RKG) , intent(in) :: reltol
15122 type(GK15_type) , intent(in) :: qrule
15123 type(wcauchy_type) , intent(in) :: help
15124 real(RKG) , intent(out) :: integral, abserr
15125 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15126 integer(IK) , intent(out) , contiguous :: sindex(:)
15127 integer(IK) , intent(out) :: neval
15128 integer(IK) , intent(out) :: nint
15129 integer(IK) :: err
15130 end function
15131#endif
15132
15133#if RK3_ENABLED
15134 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15136 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15137#endif
15138 use pm_kind, only: RKG => RK3
15139 procedure(real(RKG)) :: getFunc
15140 real(RKG) , intent(in) :: lb
15141 real(RKG) , intent(in) :: ub
15142 real(RKG) , intent(in) :: abstol
15143 real(RKG) , intent(in) :: reltol
15144 type(GK15_type) , intent(in) :: qrule
15145 type(wcauchy_type) , intent(in) :: help
15146 real(RKG) , intent(out) :: integral, abserr
15147 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15148 integer(IK) , intent(out) , contiguous :: sindex(:)
15149 integer(IK) , intent(out) :: neval
15150 integer(IK) , intent(out) :: nint
15151 integer(IK) :: err
15152 end function
15153#endif
15154
15155#if RK2_ENABLED
15156 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15158 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15159#endif
15160 use pm_kind, only: RKG => RK2
15161 procedure(real(RKG)) :: getFunc
15162 real(RKG) , intent(in) :: lb
15163 real(RKG) , intent(in) :: ub
15164 real(RKG) , intent(in) :: abstol
15165 real(RKG) , intent(in) :: reltol
15166 type(GK15_type) , intent(in) :: qrule
15167 type(wcauchy_type) , intent(in) :: help
15168 real(RKG) , intent(out) :: integral, abserr
15169 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15170 integer(IK) , intent(out) , contiguous :: sindex(:)
15171 integer(IK) , intent(out) :: neval
15172 integer(IK) , intent(out) :: nint
15173 integer(IK) :: err
15174 end function
15175#endif
15176
15177#if RK1_ENABLED
15178 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15180 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15181#endif
15182 use pm_kind, only: RKG => RK1
15183 procedure(real(RKG)) :: getFunc
15184 real(RKG) , intent(in) :: lb
15185 real(RKG) , intent(in) :: ub
15186 real(RKG) , intent(in) :: abstol
15187 real(RKG) , intent(in) :: reltol
15188 type(GK15_type) , intent(in) :: qrule
15189 type(wcauchy_type) , intent(in) :: help
15190 real(RKG) , intent(out) :: integral, abserr
15191 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15192 integer(IK) , intent(out) , contiguous :: sindex(:)
15193 integer(IK) , intent(out) :: neval
15194 integer(IK) , intent(out) :: nint
15195 integer(IK) :: err
15196 end function
15197#endif
15198
15199 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15200
15201#if RK5_ENABLED
15202 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15204 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15205#endif
15206 use pm_kind, only: RKG => RK5
15207 procedure(real(RKG)) :: getFunc
15208 real(RKG) , intent(in) :: lb
15209 real(RKG) , intent(in) :: ub
15210 real(RKG) , intent(in) :: abstol
15211 real(RKG) , intent(in) :: reltol
15212 type(GK21_type) , intent(in) :: qrule
15213 type(wcauchy_type) , intent(in) :: help
15214 real(RKG) , intent(out) :: integral, abserr
15215 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15216 integer(IK) , intent(out) , contiguous :: sindex(:)
15217 integer(IK) , intent(out) :: neval
15218 integer(IK) , intent(out) :: nint
15219 integer(IK) :: err
15220 end function
15221#endif
15222
15223#if RK4_ENABLED
15224 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15226 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15227#endif
15228 use pm_kind, only: RKG => RK4
15229 procedure(real(RKG)) :: getFunc
15230 real(RKG) , intent(in) :: lb
15231 real(RKG) , intent(in) :: ub
15232 real(RKG) , intent(in) :: abstol
15233 real(RKG) , intent(in) :: reltol
15234 type(GK21_type) , intent(in) :: qrule
15235 type(wcauchy_type) , intent(in) :: help
15236 real(RKG) , intent(out) :: integral, abserr
15237 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15238 integer(IK) , intent(out) , contiguous :: sindex(:)
15239 integer(IK) , intent(out) :: neval
15240 integer(IK) , intent(out) :: nint
15241 integer(IK) :: err
15242 end function
15243#endif
15244
15245#if RK3_ENABLED
15246 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15248 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15249#endif
15250 use pm_kind, only: RKG => RK3
15251 procedure(real(RKG)) :: getFunc
15252 real(RKG) , intent(in) :: lb
15253 real(RKG) , intent(in) :: ub
15254 real(RKG) , intent(in) :: abstol
15255 real(RKG) , intent(in) :: reltol
15256 type(GK21_type) , intent(in) :: qrule
15257 type(wcauchy_type) , intent(in) :: help
15258 real(RKG) , intent(out) :: integral, abserr
15259 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15260 integer(IK) , intent(out) , contiguous :: sindex(:)
15261 integer(IK) , intent(out) :: neval
15262 integer(IK) , intent(out) :: nint
15263 integer(IK) :: err
15264 end function
15265#endif
15266
15267#if RK2_ENABLED
15268 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15270 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15271#endif
15272 use pm_kind, only: RKG => RK2
15273 procedure(real(RKG)) :: getFunc
15274 real(RKG) , intent(in) :: lb
15275 real(RKG) , intent(in) :: ub
15276 real(RKG) , intent(in) :: abstol
15277 real(RKG) , intent(in) :: reltol
15278 type(GK21_type) , intent(in) :: qrule
15279 type(wcauchy_type) , intent(in) :: help
15280 real(RKG) , intent(out) :: integral, abserr
15281 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15282 integer(IK) , intent(out) , contiguous :: sindex(:)
15283 integer(IK) , intent(out) :: neval
15284 integer(IK) , intent(out) :: nint
15285 integer(IK) :: err
15286 end function
15287#endif
15288
15289#if RK1_ENABLED
15290 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15292 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15293#endif
15294 use pm_kind, only: RKG => RK1
15295 procedure(real(RKG)) :: getFunc
15296 real(RKG) , intent(in) :: lb
15297 real(RKG) , intent(in) :: ub
15298 real(RKG) , intent(in) :: abstol
15299 real(RKG) , intent(in) :: reltol
15300 type(GK21_type) , intent(in) :: qrule
15301 type(wcauchy_type) , intent(in) :: help
15302 real(RKG) , intent(out) :: integral, abserr
15303 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15304 integer(IK) , intent(out) , contiguous :: sindex(:)
15305 integer(IK) , intent(out) :: neval
15306 integer(IK) , intent(out) :: nint
15307 integer(IK) :: err
15308 end function
15309#endif
15310
15311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15312
15313#if RK5_ENABLED
15314 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15316 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15317#endif
15318 use pm_kind, only: RKG => RK5
15319 procedure(real(RKG)) :: getFunc
15320 real(RKG) , intent(in) :: lb
15321 real(RKG) , intent(in) :: ub
15322 real(RKG) , intent(in) :: abstol
15323 real(RKG) , intent(in) :: reltol
15324 type(GK31_type) , intent(in) :: qrule
15325 type(wcauchy_type) , intent(in) :: help
15326 real(RKG) , intent(out) :: integral, abserr
15327 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15328 integer(IK) , intent(out) , contiguous :: sindex(:)
15329 integer(IK) , intent(out) :: neval
15330 integer(IK) , intent(out) :: nint
15331 integer(IK) :: err
15332 end function
15333#endif
15334
15335#if RK4_ENABLED
15336 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15338 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15339#endif
15340 use pm_kind, only: RKG => RK4
15341 procedure(real(RKG)) :: getFunc
15342 real(RKG) , intent(in) :: lb
15343 real(RKG) , intent(in) :: ub
15344 real(RKG) , intent(in) :: abstol
15345 real(RKG) , intent(in) :: reltol
15346 type(GK31_type) , intent(in) :: qrule
15347 type(wcauchy_type) , intent(in) :: help
15348 real(RKG) , intent(out) :: integral, abserr
15349 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15350 integer(IK) , intent(out) , contiguous :: sindex(:)
15351 integer(IK) , intent(out) :: neval
15352 integer(IK) , intent(out) :: nint
15353 integer(IK) :: err
15354 end function
15355#endif
15356
15357#if RK3_ENABLED
15358 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15360 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15361#endif
15362 use pm_kind, only: RKG => RK3
15363 procedure(real(RKG)) :: getFunc
15364 real(RKG) , intent(in) :: lb
15365 real(RKG) , intent(in) :: ub
15366 real(RKG) , intent(in) :: abstol
15367 real(RKG) , intent(in) :: reltol
15368 type(GK31_type) , intent(in) :: qrule
15369 type(wcauchy_type) , intent(in) :: help
15370 real(RKG) , intent(out) :: integral, abserr
15371 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15372 integer(IK) , intent(out) , contiguous :: sindex(:)
15373 integer(IK) , intent(out) :: neval
15374 integer(IK) , intent(out) :: nint
15375 integer(IK) :: err
15376 end function
15377#endif
15378
15379#if RK2_ENABLED
15380 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15382 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15383#endif
15384 use pm_kind, only: RKG => RK2
15385 procedure(real(RKG)) :: getFunc
15386 real(RKG) , intent(in) :: lb
15387 real(RKG) , intent(in) :: ub
15388 real(RKG) , intent(in) :: abstol
15389 real(RKG) , intent(in) :: reltol
15390 type(GK31_type) , intent(in) :: qrule
15391 type(wcauchy_type) , intent(in) :: help
15392 real(RKG) , intent(out) :: integral, abserr
15393 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15394 integer(IK) , intent(out) , contiguous :: sindex(:)
15395 integer(IK) , intent(out) :: neval
15396 integer(IK) , intent(out) :: nint
15397 integer(IK) :: err
15398 end function
15399#endif
15400
15401#if RK1_ENABLED
15402 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15404 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15405#endif
15406 use pm_kind, only: RKG => RK1
15407 procedure(real(RKG)) :: getFunc
15408 real(RKG) , intent(in) :: lb
15409 real(RKG) , intent(in) :: ub
15410 real(RKG) , intent(in) :: abstol
15411 real(RKG) , intent(in) :: reltol
15412 type(GK31_type) , intent(in) :: qrule
15413 type(wcauchy_type) , intent(in) :: help
15414 real(RKG) , intent(out) :: integral, abserr
15415 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15416 integer(IK) , intent(out) , contiguous :: sindex(:)
15417 integer(IK) , intent(out) :: neval
15418 integer(IK) , intent(out) :: nint
15419 integer(IK) :: err
15420 end function
15421#endif
15422
15423 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15424
15425#if RK5_ENABLED
15426 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15428 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15429#endif
15430 use pm_kind, only: RKG => RK5
15431 procedure(real(RKG)) :: getFunc
15432 real(RKG) , intent(in) :: lb
15433 real(RKG) , intent(in) :: ub
15434 real(RKG) , intent(in) :: abstol
15435 real(RKG) , intent(in) :: reltol
15436 type(GK41_type) , intent(in) :: qrule
15437 type(wcauchy_type) , intent(in) :: help
15438 real(RKG) , intent(out) :: integral, abserr
15439 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15440 integer(IK) , intent(out) , contiguous :: sindex(:)
15441 integer(IK) , intent(out) :: neval
15442 integer(IK) , intent(out) :: nint
15443 integer(IK) :: err
15444 end function
15445#endif
15446
15447#if RK4_ENABLED
15448 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15450 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15451#endif
15452 use pm_kind, only: RKG => RK4
15453 procedure(real(RKG)) :: getFunc
15454 real(RKG) , intent(in) :: lb
15455 real(RKG) , intent(in) :: ub
15456 real(RKG) , intent(in) :: abstol
15457 real(RKG) , intent(in) :: reltol
15458 type(GK41_type) , intent(in) :: qrule
15459 type(wcauchy_type) , intent(in) :: help
15460 real(RKG) , intent(out) :: integral, abserr
15461 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15462 integer(IK) , intent(out) , contiguous :: sindex(:)
15463 integer(IK) , intent(out) :: neval
15464 integer(IK) , intent(out) :: nint
15465 integer(IK) :: err
15466 end function
15467#endif
15468
15469#if RK3_ENABLED
15470 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15472 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15473#endif
15474 use pm_kind, only: RKG => RK3
15475 procedure(real(RKG)) :: getFunc
15476 real(RKG) , intent(in) :: lb
15477 real(RKG) , intent(in) :: ub
15478 real(RKG) , intent(in) :: abstol
15479 real(RKG) , intent(in) :: reltol
15480 type(GK41_type) , intent(in) :: qrule
15481 type(wcauchy_type) , intent(in) :: help
15482 real(RKG) , intent(out) :: integral, abserr
15483 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15484 integer(IK) , intent(out) , contiguous :: sindex(:)
15485 integer(IK) , intent(out) :: neval
15486 integer(IK) , intent(out) :: nint
15487 integer(IK) :: err
15488 end function
15489#endif
15490
15491#if RK2_ENABLED
15492 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15494 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15495#endif
15496 use pm_kind, only: RKG => RK2
15497 procedure(real(RKG)) :: getFunc
15498 real(RKG) , intent(in) :: lb
15499 real(RKG) , intent(in) :: ub
15500 real(RKG) , intent(in) :: abstol
15501 real(RKG) , intent(in) :: reltol
15502 type(GK41_type) , intent(in) :: qrule
15503 type(wcauchy_type) , intent(in) :: help
15504 real(RKG) , intent(out) :: integral, abserr
15505 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15506 integer(IK) , intent(out) , contiguous :: sindex(:)
15507 integer(IK) , intent(out) :: neval
15508 integer(IK) , intent(out) :: nint
15509 integer(IK) :: err
15510 end function
15511#endif
15512
15513#if RK1_ENABLED
15514 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15516 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15517#endif
15518 use pm_kind, only: RKG => RK1
15519 procedure(real(RKG)) :: getFunc
15520 real(RKG) , intent(in) :: lb
15521 real(RKG) , intent(in) :: ub
15522 real(RKG) , intent(in) :: abstol
15523 real(RKG) , intent(in) :: reltol
15524 type(GK41_type) , intent(in) :: qrule
15525 type(wcauchy_type) , intent(in) :: help
15526 real(RKG) , intent(out) :: integral, abserr
15527 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15528 integer(IK) , intent(out) , contiguous :: sindex(:)
15529 integer(IK) , intent(out) :: neval
15530 integer(IK) , intent(out) :: nint
15531 integer(IK) :: err
15532 end function
15533#endif
15534
15535 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15536
15537#if RK5_ENABLED
15538 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15540 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15541#endif
15542 use pm_kind, only: RKG => RK5
15543 procedure(real(RKG)) :: getFunc
15544 real(RKG) , intent(in) :: lb
15545 real(RKG) , intent(in) :: ub
15546 real(RKG) , intent(in) :: abstol
15547 real(RKG) , intent(in) :: reltol
15548 type(GK51_type) , intent(in) :: qrule
15549 type(wcauchy_type) , intent(in) :: help
15550 real(RKG) , intent(out) :: integral, abserr
15551 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15552 integer(IK) , intent(out) , contiguous :: sindex(:)
15553 integer(IK) , intent(out) :: neval
15554 integer(IK) , intent(out) :: nint
15555 integer(IK) :: err
15556 end function
15557#endif
15558
15559#if RK4_ENABLED
15560 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15562 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15563#endif
15564 use pm_kind, only: RKG => RK4
15565 procedure(real(RKG)) :: getFunc
15566 real(RKG) , intent(in) :: lb
15567 real(RKG) , intent(in) :: ub
15568 real(RKG) , intent(in) :: abstol
15569 real(RKG) , intent(in) :: reltol
15570 type(GK51_type) , intent(in) :: qrule
15571 type(wcauchy_type) , intent(in) :: help
15572 real(RKG) , intent(out) :: integral, abserr
15573 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15574 integer(IK) , intent(out) , contiguous :: sindex(:)
15575 integer(IK) , intent(out) :: neval
15576 integer(IK) , intent(out) :: nint
15577 integer(IK) :: err
15578 end function
15579#endif
15580
15581#if RK3_ENABLED
15582 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15584 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15585#endif
15586 use pm_kind, only: RKG => RK3
15587 procedure(real(RKG)) :: getFunc
15588 real(RKG) , intent(in) :: lb
15589 real(RKG) , intent(in) :: ub
15590 real(RKG) , intent(in) :: abstol
15591 real(RKG) , intent(in) :: reltol
15592 type(GK51_type) , intent(in) :: qrule
15593 type(wcauchy_type) , intent(in) :: help
15594 real(RKG) , intent(out) :: integral, abserr
15595 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15596 integer(IK) , intent(out) , contiguous :: sindex(:)
15597 integer(IK) , intent(out) :: neval
15598 integer(IK) , intent(out) :: nint
15599 integer(IK) :: err
15600 end function
15601#endif
15602
15603#if RK2_ENABLED
15604 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15606 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15607#endif
15608 use pm_kind, only: RKG => RK2
15609 procedure(real(RKG)) :: getFunc
15610 real(RKG) , intent(in) :: lb
15611 real(RKG) , intent(in) :: ub
15612 real(RKG) , intent(in) :: abstol
15613 real(RKG) , intent(in) :: reltol
15614 type(GK51_type) , intent(in) :: qrule
15615 type(wcauchy_type) , intent(in) :: help
15616 real(RKG) , intent(out) :: integral, abserr
15617 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15618 integer(IK) , intent(out) , contiguous :: sindex(:)
15619 integer(IK) , intent(out) :: neval
15620 integer(IK) , intent(out) :: nint
15621 integer(IK) :: err
15622 end function
15623#endif
15624
15625#if RK1_ENABLED
15626 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15628 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15629#endif
15630 use pm_kind, only: RKG => RK1
15631 procedure(real(RKG)) :: getFunc
15632 real(RKG) , intent(in) :: lb
15633 real(RKG) , intent(in) :: ub
15634 real(RKG) , intent(in) :: abstol
15635 real(RKG) , intent(in) :: reltol
15636 type(GK51_type) , intent(in) :: qrule
15637 type(wcauchy_type) , intent(in) :: help
15638 real(RKG) , intent(out) :: integral, abserr
15639 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15640 integer(IK) , intent(out) , contiguous :: sindex(:)
15641 integer(IK) , intent(out) :: neval
15642 integer(IK) , intent(out) :: nint
15643 integer(IK) :: err
15644 end function
15645#endif
15646
15647 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15648
15649#if RK5_ENABLED
15650 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15652 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15653#endif
15654 use pm_kind, only: RKG => RK5
15655 procedure(real(RKG)) :: getFunc
15656 real(RKG) , intent(in) :: lb
15657 real(RKG) , intent(in) :: ub
15658 real(RKG) , intent(in) :: abstol
15659 real(RKG) , intent(in) :: reltol
15660 type(GK61_type) , intent(in) :: qrule
15661 type(wcauchy_type) , intent(in) :: help
15662 real(RKG) , intent(out) :: integral, abserr
15663 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15664 integer(IK) , intent(out) , contiguous :: sindex(:)
15665 integer(IK) , intent(out) :: neval
15666 integer(IK) , intent(out) :: nint
15667 integer(IK) :: err
15668 end function
15669#endif
15670
15671#if RK4_ENABLED
15672 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15674 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15675#endif
15676 use pm_kind, only: RKG => RK4
15677 procedure(real(RKG)) :: getFunc
15678 real(RKG) , intent(in) :: lb
15679 real(RKG) , intent(in) :: ub
15680 real(RKG) , intent(in) :: abstol
15681 real(RKG) , intent(in) :: reltol
15682 type(GK61_type) , intent(in) :: qrule
15683 type(wcauchy_type) , intent(in) :: help
15684 real(RKG) , intent(out) :: integral, abserr
15685 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15686 integer(IK) , intent(out) , contiguous :: sindex(:)
15687 integer(IK) , intent(out) :: neval
15688 integer(IK) , intent(out) :: nint
15689 integer(IK) :: err
15690 end function
15691#endif
15692
15693#if RK3_ENABLED
15694 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15696 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15697#endif
15698 use pm_kind, only: RKG => RK3
15699 procedure(real(RKG)) :: getFunc
15700 real(RKG) , intent(in) :: lb
15701 real(RKG) , intent(in) :: ub
15702 real(RKG) , intent(in) :: abstol
15703 real(RKG) , intent(in) :: reltol
15704 type(GK61_type) , intent(in) :: qrule
15705 type(wcauchy_type) , intent(in) :: help
15706 real(RKG) , intent(out) :: integral, abserr
15707 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15708 integer(IK) , intent(out) , contiguous :: sindex(:)
15709 integer(IK) , intent(out) :: neval
15710 integer(IK) , intent(out) :: nint
15711 integer(IK) :: err
15712 end function
15713#endif
15714
15715#if RK2_ENABLED
15716 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15718 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15719#endif
15720 use pm_kind, only: RKG => RK2
15721 procedure(real(RKG)) :: getFunc
15722 real(RKG) , intent(in) :: lb
15723 real(RKG) , intent(in) :: ub
15724 real(RKG) , intent(in) :: abstol
15725 real(RKG) , intent(in) :: reltol
15726 type(GK61_type) , intent(in) :: qrule
15727 type(wcauchy_type) , intent(in) :: help
15728 real(RKG) , intent(out) :: integral, abserr
15729 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15730 integer(IK) , intent(out) , contiguous :: sindex(:)
15731 integer(IK) , intent(out) :: neval
15732 integer(IK) , intent(out) :: nint
15733 integer(IK) :: err
15734 end function
15735#endif
15736
15737#if RK1_ENABLED
15738 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15740 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15741#endif
15742 use pm_kind, only: RKG => RK1
15743 procedure(real(RKG)) :: getFunc
15744 real(RKG) , intent(in) :: lb
15745 real(RKG) , intent(in) :: ub
15746 real(RKG) , intent(in) :: abstol
15747 real(RKG) , intent(in) :: reltol
15748 type(GK61_type) , intent(in) :: qrule
15749 type(wcauchy_type) , intent(in) :: help
15750 real(RKG) , intent(out) :: integral, abserr
15751 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15752 integer(IK) , intent(out) , contiguous :: sindex(:)
15753 integer(IK) , intent(out) :: neval
15754 integer(IK) , intent(out) :: nint
15755 integer(IK) :: err
15756 end function
15757#endif
15758
15759 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15760
15761#if RK5_ENABLED
15762 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15764 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15765#endif
15766 use pm_kind, only: RKG => RK5
15767 procedure(real(RKG)) :: getFunc
15768 real(RKG) , intent(in) :: lb
15769 real(RKG) , intent(in) :: ub
15770 real(RKG) , intent(in) :: abstol
15771 real(RKG) , intent(in) :: reltol
15772 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15773 type(wcauchy_type) , intent(in) :: help
15774 real(RKG) , intent(out) :: integral, abserr
15775 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15776 integer(IK) , intent(out) , contiguous :: sindex(:)
15777 integer(IK) , intent(out) :: neval
15778 integer(IK) , intent(out) :: nint
15779 integer(IK) :: err
15780 end function
15781#endif
15782
15783#if RK4_ENABLED
15784 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15786 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15787#endif
15788 use pm_kind, only: RKG => RK4
15789 procedure(real(RKG)) :: getFunc
15790 real(RKG) , intent(in) :: lb
15791 real(RKG) , intent(in) :: ub
15792 real(RKG) , intent(in) :: abstol
15793 real(RKG) , intent(in) :: reltol
15794 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15795 type(wcauchy_type) , intent(in) :: help
15796 real(RKG) , intent(out) :: integral, abserr
15797 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15798 integer(IK) , intent(out) , contiguous :: sindex(:)
15799 integer(IK) , intent(out) :: neval
15800 integer(IK) , intent(out) :: nint
15801 integer(IK) :: err
15802 end function
15803#endif
15804
15805#if RK3_ENABLED
15806 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15808 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15809#endif
15810 use pm_kind, only: RKG => RK3
15811 procedure(real(RKG)) :: getFunc
15812 real(RKG) , intent(in) :: lb
15813 real(RKG) , intent(in) :: ub
15814 real(RKG) , intent(in) :: abstol
15815 real(RKG) , intent(in) :: reltol
15816 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15817 type(wcauchy_type) , intent(in) :: help
15818 real(RKG) , intent(out) :: integral, abserr
15819 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15820 integer(IK) , intent(out) , contiguous :: sindex(:)
15821 integer(IK) , intent(out) :: neval
15822 integer(IK) , intent(out) :: nint
15823 integer(IK) :: err
15824 end function
15825#endif
15826
15827#if RK2_ENABLED
15828 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15830 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15831#endif
15832 use pm_kind, only: RKG => RK2
15833 procedure(real(RKG)) :: getFunc
15834 real(RKG) , intent(in) :: lb
15835 real(RKG) , intent(in) :: ub
15836 real(RKG) , intent(in) :: abstol
15837 real(RKG) , intent(in) :: reltol
15838 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15839 type(wcauchy_type) , intent(in) :: help
15840 real(RKG) , intent(out) :: integral, abserr
15841 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15842 integer(IK) , intent(out) , contiguous :: sindex(:)
15843 integer(IK) , intent(out) :: neval
15844 integer(IK) , intent(out) :: nint
15845 integer(IK) :: err
15846 end function
15847#endif
15848
15849#if RK1_ENABLED
15850 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15852 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15853#endif
15854 use pm_kind, only: RKG => RK1
15855 procedure(real(RKG)) :: getFunc
15856 real(RKG) , intent(in) :: lb
15857 real(RKG) , intent(in) :: ub
15858 real(RKG) , intent(in) :: abstol
15859 real(RKG) , intent(in) :: reltol
15860 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15861 type(wcauchy_type) , intent(in) :: help
15862 real(RKG) , intent(out) :: integral, abserr
15863 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15864 integer(IK) , intent(out) , contiguous :: sindex(:)
15865 integer(IK) , intent(out) :: neval
15866 integer(IK) , intent(out) :: nint
15867 integer(IK) :: err
15868 end function
15869#endif
15870
15871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15872
15873 end interface
15874
15875 ! QAWC FI
15876
15877 interface getQuadErr
15878
15879 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15880
15881#if RK5_ENABLED
15882 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15884 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15885#endif
15886 use pm_kind, only: RKG => RK5
15887 procedure(real(RKG)) :: getFunc
15888 real(RKG) , intent(in) :: lb
15889 type(pinf_type) , intent(in) :: ub
15890 real(RKG) , intent(in) :: abstol
15891 real(RKG) , intent(in) :: reltol
15892 type(GK15_type) , intent(in) :: qrule
15893 type(wcauchy_type) , intent(in) :: help
15894 real(RKG) , intent(out) :: integral, abserr
15895 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15896 integer(IK) , intent(out) , contiguous :: sindex(:)
15897 integer(IK) , intent(out) :: neval
15898 integer(IK) , intent(out) :: nint
15899 integer(IK) :: err
15900 end function
15901#endif
15902
15903#if RK4_ENABLED
15904 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15906 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15907#endif
15908 use pm_kind, only: RKG => RK4
15909 procedure(real(RKG)) :: getFunc
15910 real(RKG) , intent(in) :: lb
15911 type(pinf_type) , intent(in) :: ub
15912 real(RKG) , intent(in) :: abstol
15913 real(RKG) , intent(in) :: reltol
15914 type(GK15_type) , intent(in) :: qrule
15915 type(wcauchy_type) , intent(in) :: help
15916 real(RKG) , intent(out) :: integral, abserr
15917 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15918 integer(IK) , intent(out) , contiguous :: sindex(:)
15919 integer(IK) , intent(out) :: neval
15920 integer(IK) , intent(out) :: nint
15921 integer(IK) :: err
15922 end function
15923#endif
15924
15925#if RK3_ENABLED
15926 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15928 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15929#endif
15930 use pm_kind, only: RKG => RK3
15931 procedure(real(RKG)) :: getFunc
15932 real(RKG) , intent(in) :: lb
15933 type(pinf_type) , intent(in) :: ub
15934 real(RKG) , intent(in) :: abstol
15935 real(RKG) , intent(in) :: reltol
15936 type(GK15_type) , intent(in) :: qrule
15937 type(wcauchy_type) , intent(in) :: help
15938 real(RKG) , intent(out) :: integral, abserr
15939 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15940 integer(IK) , intent(out) , contiguous :: sindex(:)
15941 integer(IK) , intent(out) :: neval
15942 integer(IK) , intent(out) :: nint
15943 integer(IK) :: err
15944 end function
15945#endif
15946
15947#if RK2_ENABLED
15948 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15950 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15951#endif
15952 use pm_kind, only: RKG => RK2
15953 procedure(real(RKG)) :: getFunc
15954 real(RKG) , intent(in) :: lb
15955 type(pinf_type) , intent(in) :: ub
15956 real(RKG) , intent(in) :: abstol
15957 real(RKG) , intent(in) :: reltol
15958 type(GK15_type) , intent(in) :: qrule
15959 type(wcauchy_type) , intent(in) :: help
15960 real(RKG) , intent(out) :: integral, abserr
15961 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15962 integer(IK) , intent(out) , contiguous :: sindex(:)
15963 integer(IK) , intent(out) :: neval
15964 integer(IK) , intent(out) :: nint
15965 integer(IK) :: err
15966 end function
15967#endif
15968
15969#if RK1_ENABLED
15970 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15972 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15973#endif
15974 use pm_kind, only: RKG => RK1
15975 procedure(real(RKG)) :: getFunc
15976 real(RKG) , intent(in) :: lb
15977 type(pinf_type) , intent(in) :: ub
15978 real(RKG) , intent(in) :: abstol
15979 real(RKG) , intent(in) :: reltol
15980 type(GK15_type) , intent(in) :: qrule
15981 type(wcauchy_type) , intent(in) :: help
15982 real(RKG) , intent(out) :: integral, abserr
15983 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
15984 integer(IK) , intent(out) , contiguous :: sindex(:)
15985 integer(IK) , intent(out) :: neval
15986 integer(IK) , intent(out) :: nint
15987 integer(IK) :: err
15988 end function
15989#endif
15990
15991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15992
15993#if RK5_ENABLED
15994 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15996 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15997#endif
15998 use pm_kind, only: RKG => RK5
15999 procedure(real(RKG)) :: getFunc
16000 real(RKG) , intent(in) :: lb
16001 type(pinf_type) , intent(in) :: ub
16002 real(RKG) , intent(in) :: abstol
16003 real(RKG) , intent(in) :: reltol
16004 type(GK21_type) , intent(in) :: qrule
16005 type(wcauchy_type) , intent(in) :: help
16006 real(RKG) , intent(out) :: integral, abserr
16007 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16008 integer(IK) , intent(out) , contiguous :: sindex(:)
16009 integer(IK) , intent(out) :: neval
16010 integer(IK) , intent(out) :: nint
16011 integer(IK) :: err
16012 end function
16013#endif
16014
16015#if RK4_ENABLED
16016 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16018 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
16019#endif
16020 use pm_kind, only: RKG => RK4
16021 procedure(real(RKG)) :: getFunc
16022 real(RKG) , intent(in) :: lb
16023 type(pinf_type) , intent(in) :: ub
16024 real(RKG) , intent(in) :: abstol
16025 real(RKG) , intent(in) :: reltol
16026 type(GK21_type) , intent(in) :: qrule
16027 type(wcauchy_type) , intent(in) :: help
16028 real(RKG) , intent(out) :: integral, abserr
16029 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16030 integer(IK) , intent(out) , contiguous :: sindex(:)
16031 integer(IK) , intent(out) :: neval
16032 integer(IK) , intent(out) :: nint
16033 integer(IK) :: err
16034 end function
16035#endif
16036
16037#if RK3_ENABLED
16038 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16040 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
16041#endif
16042 use pm_kind, only: RKG => RK3
16043 procedure(real(RKG)) :: getFunc
16044 real(RKG) , intent(in) :: lb
16045 type(pinf_type) , intent(in) :: ub
16046 real(RKG) , intent(in) :: abstol
16047 real(RKG) , intent(in) :: reltol
16048 type(GK21_type) , intent(in) :: qrule
16049 type(wcauchy_type) , intent(in) :: help
16050 real(RKG) , intent(out) :: integral, abserr
16051 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16052 integer(IK) , intent(out) , contiguous :: sindex(:)
16053 integer(IK) , intent(out) :: neval
16054 integer(IK) , intent(out) :: nint
16055 integer(IK) :: err
16056 end function
16057#endif
16058
16059#if RK2_ENABLED
16060 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16062 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
16063#endif
16064 use pm_kind, only: RKG => RK2
16065 procedure(real(RKG)) :: getFunc
16066 real(RKG) , intent(in) :: lb
16067 type(pinf_type) , intent(in) :: ub
16068 real(RKG) , intent(in) :: abstol
16069 real(RKG) , intent(in) :: reltol
16070 type(GK21_type) , intent(in) :: qrule
16071 type(wcauchy_type) , intent(in) :: help
16072 real(RKG) , intent(out) :: integral, abserr
16073 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16074 integer(IK) , intent(out) , contiguous :: sindex(:)
16075 integer(IK) , intent(out) :: neval
16076 integer(IK) , intent(out) :: nint
16077 integer(IK) :: err
16078 end function
16079#endif
16080
16081#if RK1_ENABLED
16082 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16084 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16085#endif
16086 use pm_kind, only: RKG => RK1
16087 procedure(real(RKG)) :: getFunc
16088 real(RKG) , intent(in) :: lb
16089 type(pinf_type) , intent(in) :: ub
16090 real(RKG) , intent(in) :: abstol
16091 real(RKG) , intent(in) :: reltol
16092 type(GK21_type) , intent(in) :: qrule
16093 type(wcauchy_type) , intent(in) :: help
16094 real(RKG) , intent(out) :: integral, abserr
16095 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16096 integer(IK) , intent(out) , contiguous :: sindex(:)
16097 integer(IK) , intent(out) :: neval
16098 integer(IK) , intent(out) :: nint
16099 integer(IK) :: err
16100 end function
16101#endif
16102
16103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16104
16105#if RK5_ENABLED
16106 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16108 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16109#endif
16110 use pm_kind, only: RKG => RK5
16111 procedure(real(RKG)) :: getFunc
16112 real(RKG) , intent(in) :: lb
16113 type(pinf_type) , intent(in) :: ub
16114 real(RKG) , intent(in) :: abstol
16115 real(RKG) , intent(in) :: reltol
16116 type(GK31_type) , intent(in) :: qrule
16117 type(wcauchy_type) , intent(in) :: help
16118 real(RKG) , intent(out) :: integral, abserr
16119 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16120 integer(IK) , intent(out) , contiguous :: sindex(:)
16121 integer(IK) , intent(out) :: neval
16122 integer(IK) , intent(out) :: nint
16123 integer(IK) :: err
16124 end function
16125#endif
16126
16127#if RK4_ENABLED
16128 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16130 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16131#endif
16132 use pm_kind, only: RKG => RK4
16133 procedure(real(RKG)) :: getFunc
16134 real(RKG) , intent(in) :: lb
16135 type(pinf_type) , intent(in) :: ub
16136 real(RKG) , intent(in) :: abstol
16137 real(RKG) , intent(in) :: reltol
16138 type(GK31_type) , intent(in) :: qrule
16139 type(wcauchy_type) , intent(in) :: help
16140 real(RKG) , intent(out) :: integral, abserr
16141 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16142 integer(IK) , intent(out) , contiguous :: sindex(:)
16143 integer(IK) , intent(out) :: neval
16144 integer(IK) , intent(out) :: nint
16145 integer(IK) :: err
16146 end function
16147#endif
16148
16149#if RK3_ENABLED
16150 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16152 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16153#endif
16154 use pm_kind, only: RKG => RK3
16155 procedure(real(RKG)) :: getFunc
16156 real(RKG) , intent(in) :: lb
16157 type(pinf_type) , intent(in) :: ub
16158 real(RKG) , intent(in) :: abstol
16159 real(RKG) , intent(in) :: reltol
16160 type(GK31_type) , intent(in) :: qrule
16161 type(wcauchy_type) , intent(in) :: help
16162 real(RKG) , intent(out) :: integral, abserr
16163 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16164 integer(IK) , intent(out) , contiguous :: sindex(:)
16165 integer(IK) , intent(out) :: neval
16166 integer(IK) , intent(out) :: nint
16167 integer(IK) :: err
16168 end function
16169#endif
16170
16171#if RK2_ENABLED
16172 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16174 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16175#endif
16176 use pm_kind, only: RKG => RK2
16177 procedure(real(RKG)) :: getFunc
16178 real(RKG) , intent(in) :: lb
16179 type(pinf_type) , intent(in) :: ub
16180 real(RKG) , intent(in) :: abstol
16181 real(RKG) , intent(in) :: reltol
16182 type(GK31_type) , intent(in) :: qrule
16183 type(wcauchy_type) , intent(in) :: help
16184 real(RKG) , intent(out) :: integral, abserr
16185 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16186 integer(IK) , intent(out) , contiguous :: sindex(:)
16187 integer(IK) , intent(out) :: neval
16188 integer(IK) , intent(out) :: nint
16189 integer(IK) :: err
16190 end function
16191#endif
16192
16193#if RK1_ENABLED
16194 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16196 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16197#endif
16198 use pm_kind, only: RKG => RK1
16199 procedure(real(RKG)) :: getFunc
16200 real(RKG) , intent(in) :: lb
16201 type(pinf_type) , intent(in) :: ub
16202 real(RKG) , intent(in) :: abstol
16203 real(RKG) , intent(in) :: reltol
16204 type(GK31_type) , intent(in) :: qrule
16205 type(wcauchy_type) , intent(in) :: help
16206 real(RKG) , intent(out) :: integral, abserr
16207 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16208 integer(IK) , intent(out) , contiguous :: sindex(:)
16209 integer(IK) , intent(out) :: neval
16210 integer(IK) , intent(out) :: nint
16211 integer(IK) :: err
16212 end function
16213#endif
16214
16215 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16216
16217#if RK5_ENABLED
16218 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16220 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16221#endif
16222 use pm_kind, only: RKG => RK5
16223 procedure(real(RKG)) :: getFunc
16224 real(RKG) , intent(in) :: lb
16225 type(pinf_type) , intent(in) :: ub
16226 real(RKG) , intent(in) :: abstol
16227 real(RKG) , intent(in) :: reltol
16228 type(GK41_type) , intent(in) :: qrule
16229 type(wcauchy_type) , intent(in) :: help
16230 real(RKG) , intent(out) :: integral, abserr
16231 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16232 integer(IK) , intent(out) , contiguous :: sindex(:)
16233 integer(IK) , intent(out) :: neval
16234 integer(IK) , intent(out) :: nint
16235 integer(IK) :: err
16236 end function
16237#endif
16238
16239#if RK4_ENABLED
16240 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16242 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16243#endif
16244 use pm_kind, only: RKG => RK4
16245 procedure(real(RKG)) :: getFunc
16246 real(RKG) , intent(in) :: lb
16247 type(pinf_type) , intent(in) :: ub
16248 real(RKG) , intent(in) :: abstol
16249 real(RKG) , intent(in) :: reltol
16250 type(GK41_type) , intent(in) :: qrule
16251 type(wcauchy_type) , intent(in) :: help
16252 real(RKG) , intent(out) :: integral, abserr
16253 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16254 integer(IK) , intent(out) , contiguous :: sindex(:)
16255 integer(IK) , intent(out) :: neval
16256 integer(IK) , intent(out) :: nint
16257 integer(IK) :: err
16258 end function
16259#endif
16260
16261#if RK3_ENABLED
16262 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16264 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16265#endif
16266 use pm_kind, only: RKG => RK3
16267 procedure(real(RKG)) :: getFunc
16268 real(RKG) , intent(in) :: lb
16269 type(pinf_type) , intent(in) :: ub
16270 real(RKG) , intent(in) :: abstol
16271 real(RKG) , intent(in) :: reltol
16272 type(GK41_type) , intent(in) :: qrule
16273 type(wcauchy_type) , intent(in) :: help
16274 real(RKG) , intent(out) :: integral, abserr
16275 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16276 integer(IK) , intent(out) , contiguous :: sindex(:)
16277 integer(IK) , intent(out) :: neval
16278 integer(IK) , intent(out) :: nint
16279 integer(IK) :: err
16280 end function
16281#endif
16282
16283#if RK2_ENABLED
16284 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16286 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16287#endif
16288 use pm_kind, only: RKG => RK2
16289 procedure(real(RKG)) :: getFunc
16290 real(RKG) , intent(in) :: lb
16291 type(pinf_type) , intent(in) :: ub
16292 real(RKG) , intent(in) :: abstol
16293 real(RKG) , intent(in) :: reltol
16294 type(GK41_type) , intent(in) :: qrule
16295 type(wcauchy_type) , intent(in) :: help
16296 real(RKG) , intent(out) :: integral, abserr
16297 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16298 integer(IK) , intent(out) , contiguous :: sindex(:)
16299 integer(IK) , intent(out) :: neval
16300 integer(IK) , intent(out) :: nint
16301 integer(IK) :: err
16302 end function
16303#endif
16304
16305#if RK1_ENABLED
16306 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16308 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16309#endif
16310 use pm_kind, only: RKG => RK1
16311 procedure(real(RKG)) :: getFunc
16312 real(RKG) , intent(in) :: lb
16313 type(pinf_type) , intent(in) :: ub
16314 real(RKG) , intent(in) :: abstol
16315 real(RKG) , intent(in) :: reltol
16316 type(GK41_type) , intent(in) :: qrule
16317 type(wcauchy_type) , intent(in) :: help
16318 real(RKG) , intent(out) :: integral, abserr
16319 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16320 integer(IK) , intent(out) , contiguous :: sindex(:)
16321 integer(IK) , intent(out) :: neval
16322 integer(IK) , intent(out) :: nint
16323 integer(IK) :: err
16324 end function
16325#endif
16326
16327 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16328
16329#if RK5_ENABLED
16330 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16332 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16333#endif
16334 use pm_kind, only: RKG => RK5
16335 procedure(real(RKG)) :: getFunc
16336 real(RKG) , intent(in) :: lb
16337 type(pinf_type) , intent(in) :: ub
16338 real(RKG) , intent(in) :: abstol
16339 real(RKG) , intent(in) :: reltol
16340 type(GK51_type) , intent(in) :: qrule
16341 type(wcauchy_type) , intent(in) :: help
16342 real(RKG) , intent(out) :: integral, abserr
16343 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16344 integer(IK) , intent(out) , contiguous :: sindex(:)
16345 integer(IK) , intent(out) :: neval
16346 integer(IK) , intent(out) :: nint
16347 integer(IK) :: err
16348 end function
16349#endif
16350
16351#if RK4_ENABLED
16352 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16354 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16355#endif
16356 use pm_kind, only: RKG => RK4
16357 procedure(real(RKG)) :: getFunc
16358 real(RKG) , intent(in) :: lb
16359 type(pinf_type) , intent(in) :: ub
16360 real(RKG) , intent(in) :: abstol
16361 real(RKG) , intent(in) :: reltol
16362 type(GK51_type) , intent(in) :: qrule
16363 type(wcauchy_type) , intent(in) :: help
16364 real(RKG) , intent(out) :: integral, abserr
16365 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16366 integer(IK) , intent(out) , contiguous :: sindex(:)
16367 integer(IK) , intent(out) :: neval
16368 integer(IK) , intent(out) :: nint
16369 integer(IK) :: err
16370 end function
16371#endif
16372
16373#if RK3_ENABLED
16374 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16376 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16377#endif
16378 use pm_kind, only: RKG => RK3
16379 procedure(real(RKG)) :: getFunc
16380 real(RKG) , intent(in) :: lb
16381 type(pinf_type) , intent(in) :: ub
16382 real(RKG) , intent(in) :: abstol
16383 real(RKG) , intent(in) :: reltol
16384 type(GK51_type) , intent(in) :: qrule
16385 type(wcauchy_type) , intent(in) :: help
16386 real(RKG) , intent(out) :: integral, abserr
16387 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16388 integer(IK) , intent(out) , contiguous :: sindex(:)
16389 integer(IK) , intent(out) :: neval
16390 integer(IK) , intent(out) :: nint
16391 integer(IK) :: err
16392 end function
16393#endif
16394
16395#if RK2_ENABLED
16396 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16398 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16399#endif
16400 use pm_kind, only: RKG => RK2
16401 procedure(real(RKG)) :: getFunc
16402 real(RKG) , intent(in) :: lb
16403 type(pinf_type) , intent(in) :: ub
16404 real(RKG) , intent(in) :: abstol
16405 real(RKG) , intent(in) :: reltol
16406 type(GK51_type) , intent(in) :: qrule
16407 type(wcauchy_type) , intent(in) :: help
16408 real(RKG) , intent(out) :: integral, abserr
16409 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16410 integer(IK) , intent(out) , contiguous :: sindex(:)
16411 integer(IK) , intent(out) :: neval
16412 integer(IK) , intent(out) :: nint
16413 integer(IK) :: err
16414 end function
16415#endif
16416
16417#if RK1_ENABLED
16418 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16420 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16421#endif
16422 use pm_kind, only: RKG => RK1
16423 procedure(real(RKG)) :: getFunc
16424 real(RKG) , intent(in) :: lb
16425 type(pinf_type) , intent(in) :: ub
16426 real(RKG) , intent(in) :: abstol
16427 real(RKG) , intent(in) :: reltol
16428 type(GK51_type) , intent(in) :: qrule
16429 type(wcauchy_type) , intent(in) :: help
16430 real(RKG) , intent(out) :: integral, abserr
16431 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16432 integer(IK) , intent(out) , contiguous :: sindex(:)
16433 integer(IK) , intent(out) :: neval
16434 integer(IK) , intent(out) :: nint
16435 integer(IK) :: err
16436 end function
16437#endif
16438
16439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16440
16441#if RK5_ENABLED
16442 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16444 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16445#endif
16446 use pm_kind, only: RKG => RK5
16447 procedure(real(RKG)) :: getFunc
16448 real(RKG) , intent(in) :: lb
16449 type(pinf_type) , intent(in) :: ub
16450 real(RKG) , intent(in) :: abstol
16451 real(RKG) , intent(in) :: reltol
16452 type(GK61_type) , intent(in) :: qrule
16453 type(wcauchy_type) , intent(in) :: help
16454 real(RKG) , intent(out) :: integral, abserr
16455 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16456 integer(IK) , intent(out) , contiguous :: sindex(:)
16457 integer(IK) , intent(out) :: neval
16458 integer(IK) , intent(out) :: nint
16459 integer(IK) :: err
16460 end function
16461#endif
16462
16463#if RK4_ENABLED
16464 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16466 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16467#endif
16468 use pm_kind, only: RKG => RK4
16469 procedure(real(RKG)) :: getFunc
16470 real(RKG) , intent(in) :: lb
16471 type(pinf_type) , intent(in) :: ub
16472 real(RKG) , intent(in) :: abstol
16473 real(RKG) , intent(in) :: reltol
16474 type(GK61_type) , intent(in) :: qrule
16475 type(wcauchy_type) , intent(in) :: help
16476 real(RKG) , intent(out) :: integral, abserr
16477 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16478 integer(IK) , intent(out) , contiguous :: sindex(:)
16479 integer(IK) , intent(out) :: neval
16480 integer(IK) , intent(out) :: nint
16481 integer(IK) :: err
16482 end function
16483#endif
16484
16485#if RK3_ENABLED
16486 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16488 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16489#endif
16490 use pm_kind, only: RKG => RK3
16491 procedure(real(RKG)) :: getFunc
16492 real(RKG) , intent(in) :: lb
16493 type(pinf_type) , intent(in) :: ub
16494 real(RKG) , intent(in) :: abstol
16495 real(RKG) , intent(in) :: reltol
16496 type(GK61_type) , intent(in) :: qrule
16497 type(wcauchy_type) , intent(in) :: help
16498 real(RKG) , intent(out) :: integral, abserr
16499 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16500 integer(IK) , intent(out) , contiguous :: sindex(:)
16501 integer(IK) , intent(out) :: neval
16502 integer(IK) , intent(out) :: nint
16503 integer(IK) :: err
16504 end function
16505#endif
16506
16507#if RK2_ENABLED
16508 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16510 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16511#endif
16512 use pm_kind, only: RKG => RK2
16513 procedure(real(RKG)) :: getFunc
16514 real(RKG) , intent(in) :: lb
16515 type(pinf_type) , intent(in) :: ub
16516 real(RKG) , intent(in) :: abstol
16517 real(RKG) , intent(in) :: reltol
16518 type(GK61_type) , intent(in) :: qrule
16519 type(wcauchy_type) , intent(in) :: help
16520 real(RKG) , intent(out) :: integral, abserr
16521 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16522 integer(IK) , intent(out) , contiguous :: sindex(:)
16523 integer(IK) , intent(out) :: neval
16524 integer(IK) , intent(out) :: nint
16525 integer(IK) :: err
16526 end function
16527#endif
16528
16529#if RK1_ENABLED
16530 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16532 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16533#endif
16534 use pm_kind, only: RKG => RK1
16535 procedure(real(RKG)) :: getFunc
16536 real(RKG) , intent(in) :: lb
16537 type(pinf_type) , intent(in) :: ub
16538 real(RKG) , intent(in) :: abstol
16539 real(RKG) , intent(in) :: reltol
16540 type(GK61_type) , intent(in) :: qrule
16541 type(wcauchy_type) , intent(in) :: help
16542 real(RKG) , intent(out) :: integral, abserr
16543 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16544 integer(IK) , intent(out) , contiguous :: sindex(:)
16545 integer(IK) , intent(out) :: neval
16546 integer(IK) , intent(out) :: nint
16547 integer(IK) :: err
16548 end function
16549#endif
16550
16551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16552
16553#if RK5_ENABLED
16554 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16556 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16557#endif
16558 use pm_kind, only: RKG => RK5
16559 procedure(real(RKG)) :: getFunc
16560 real(RKG) , intent(in) :: lb
16561 type(pinf_type) , intent(in) :: ub
16562 real(RKG) , intent(in) :: abstol
16563 real(RKG) , intent(in) :: reltol
16564 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16565 type(wcauchy_type) , intent(in) :: help
16566 real(RKG) , intent(out) :: integral, abserr
16567 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16568 integer(IK) , intent(out) , contiguous :: sindex(:)
16569 integer(IK) , intent(out) :: neval
16570 integer(IK) , intent(out) :: nint
16571 integer(IK) :: err
16572 end function
16573#endif
16574
16575#if RK4_ENABLED
16576 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16578 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16579#endif
16580 use pm_kind, only: RKG => RK4
16581 procedure(real(RKG)) :: getFunc
16582 real(RKG) , intent(in) :: lb
16583 type(pinf_type) , intent(in) :: ub
16584 real(RKG) , intent(in) :: abstol
16585 real(RKG) , intent(in) :: reltol
16586 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16587 type(wcauchy_type) , intent(in) :: help
16588 real(RKG) , intent(out) :: integral, abserr
16589 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16590 integer(IK) , intent(out) , contiguous :: sindex(:)
16591 integer(IK) , intent(out) :: neval
16592 integer(IK) , intent(out) :: nint
16593 integer(IK) :: err
16594 end function
16595#endif
16596
16597#if RK3_ENABLED
16598 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16600 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16601#endif
16602 use pm_kind, only: RKG => RK3
16603 procedure(real(RKG)) :: getFunc
16604 real(RKG) , intent(in) :: lb
16605 type(pinf_type) , intent(in) :: ub
16606 real(RKG) , intent(in) :: abstol
16607 real(RKG) , intent(in) :: reltol
16608 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16609 type(wcauchy_type) , intent(in) :: help
16610 real(RKG) , intent(out) :: integral, abserr
16611 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16612 integer(IK) , intent(out) , contiguous :: sindex(:)
16613 integer(IK) , intent(out) :: neval
16614 integer(IK) , intent(out) :: nint
16615 integer(IK) :: err
16616 end function
16617#endif
16618
16619#if RK2_ENABLED
16620 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16622 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16623#endif
16624 use pm_kind, only: RKG => RK2
16625 procedure(real(RKG)) :: getFunc
16626 real(RKG) , intent(in) :: lb
16627 type(pinf_type) , intent(in) :: ub
16628 real(RKG) , intent(in) :: abstol
16629 real(RKG) , intent(in) :: reltol
16630 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16631 type(wcauchy_type) , intent(in) :: help
16632 real(RKG) , intent(out) :: integral, abserr
16633 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16634 integer(IK) , intent(out) , contiguous :: sindex(:)
16635 integer(IK) , intent(out) :: neval
16636 integer(IK) , intent(out) :: nint
16637 integer(IK) :: err
16638 end function
16639#endif
16640
16641#if RK1_ENABLED
16642 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16644 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16645#endif
16646 use pm_kind, only: RKG => RK1
16647 procedure(real(RKG)) :: getFunc
16648 real(RKG) , intent(in) :: lb
16649 type(pinf_type) , intent(in) :: ub
16650 real(RKG) , intent(in) :: abstol
16651 real(RKG) , intent(in) :: reltol
16652 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16653 type(wcauchy_type) , intent(in) :: help
16654 real(RKG) , intent(out) :: integral, abserr
16655 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16656 integer(IK) , intent(out) , contiguous :: sindex(:)
16657 integer(IK) , intent(out) :: neval
16658 integer(IK) , intent(out) :: nint
16659 integer(IK) :: err
16660 end function
16661#endif
16662
16663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16664
16665 end interface
16666
16667 ! QAWC IF
16668
16669 interface getQuadErr
16670
16671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16672
16673#if RK5_ENABLED
16674 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16676 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16677#endif
16678 use pm_kind, only: RKG => RK5
16679 procedure(real(RKG)) :: getFunc
16680 type(ninf_type) , intent(in) :: lb
16681 real(RKG) , intent(in) :: ub
16682 real(RKG) , intent(in) :: abstol
16683 real(RKG) , intent(in) :: reltol
16684 type(GK15_type) , intent(in) :: qrule
16685 type(wcauchy_type) , intent(in) :: help
16686 real(RKG) , intent(out) :: integral, abserr
16687 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16688 integer(IK) , intent(out) , contiguous :: sindex(:)
16689 integer(IK) , intent(out) :: neval
16690 integer(IK) , intent(out) :: nint
16691 integer(IK) :: err
16692 end function
16693#endif
16694
16695#if RK4_ENABLED
16696 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16698 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16699#endif
16700 use pm_kind, only: RKG => RK4
16701 procedure(real(RKG)) :: getFunc
16702 type(ninf_type) , intent(in) :: lb
16703 real(RKG) , intent(in) :: ub
16704 real(RKG) , intent(in) :: abstol
16705 real(RKG) , intent(in) :: reltol
16706 type(GK15_type) , intent(in) :: qrule
16707 type(wcauchy_type) , intent(in) :: help
16708 real(RKG) , intent(out) :: integral, abserr
16709 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16710 integer(IK) , intent(out) , contiguous :: sindex(:)
16711 integer(IK) , intent(out) :: neval
16712 integer(IK) , intent(out) :: nint
16713 integer(IK) :: err
16714 end function
16715#endif
16716
16717#if RK3_ENABLED
16718 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16720 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16721#endif
16722 use pm_kind, only: RKG => RK3
16723 procedure(real(RKG)) :: getFunc
16724 type(ninf_type) , intent(in) :: lb
16725 real(RKG) , intent(in) :: ub
16726 real(RKG) , intent(in) :: abstol
16727 real(RKG) , intent(in) :: reltol
16728 type(GK15_type) , intent(in) :: qrule
16729 type(wcauchy_type) , intent(in) :: help
16730 real(RKG) , intent(out) :: integral, abserr
16731 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16732 integer(IK) , intent(out) , contiguous :: sindex(:)
16733 integer(IK) , intent(out) :: neval
16734 integer(IK) , intent(out) :: nint
16735 integer(IK) :: err
16736 end function
16737#endif
16738
16739#if RK2_ENABLED
16740 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16742 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16743#endif
16744 use pm_kind, only: RKG => RK2
16745 procedure(real(RKG)) :: getFunc
16746 type(ninf_type) , intent(in) :: lb
16747 real(RKG) , intent(in) :: ub
16748 real(RKG) , intent(in) :: abstol
16749 real(RKG) , intent(in) :: reltol
16750 type(GK15_type) , intent(in) :: qrule
16751 type(wcauchy_type) , intent(in) :: help
16752 real(RKG) , intent(out) :: integral, abserr
16753 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16754 integer(IK) , intent(out) , contiguous :: sindex(:)
16755 integer(IK) , intent(out) :: neval
16756 integer(IK) , intent(out) :: nint
16757 integer(IK) :: err
16758 end function
16759#endif
16760
16761#if RK1_ENABLED
16762 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16764 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16765#endif
16766 use pm_kind, only: RKG => RK1
16767 procedure(real(RKG)) :: getFunc
16768 type(ninf_type) , intent(in) :: lb
16769 real(RKG) , intent(in) :: ub
16770 real(RKG) , intent(in) :: abstol
16771 real(RKG) , intent(in) :: reltol
16772 type(GK15_type) , intent(in) :: qrule
16773 type(wcauchy_type) , intent(in) :: help
16774 real(RKG) , intent(out) :: integral, abserr
16775 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16776 integer(IK) , intent(out) , contiguous :: sindex(:)
16777 integer(IK) , intent(out) :: neval
16778 integer(IK) , intent(out) :: nint
16779 integer(IK) :: err
16780 end function
16781#endif
16782
16783 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16784
16785#if RK5_ENABLED
16786 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16788 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16789#endif
16790 use pm_kind, only: RKG => RK5
16791 procedure(real(RKG)) :: getFunc
16792 type(ninf_type) , intent(in) :: lb
16793 real(RKG) , intent(in) :: ub
16794 real(RKG) , intent(in) :: abstol
16795 real(RKG) , intent(in) :: reltol
16796 type(GK21_type) , intent(in) :: qrule
16797 type(wcauchy_type) , intent(in) :: help
16798 real(RKG) , intent(out) :: integral, abserr
16799 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16800 integer(IK) , intent(out) , contiguous :: sindex(:)
16801 integer(IK) , intent(out) :: neval
16802 integer(IK) , intent(out) :: nint
16803 integer(IK) :: err
16804 end function
16805#endif
16806
16807#if RK4_ENABLED
16808 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16810 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16811#endif
16812 use pm_kind, only: RKG => RK4
16813 procedure(real(RKG)) :: getFunc
16814 type(ninf_type) , intent(in) :: lb
16815 real(RKG) , intent(in) :: ub
16816 real(RKG) , intent(in) :: abstol
16817 real(RKG) , intent(in) :: reltol
16818 type(GK21_type) , intent(in) :: qrule
16819 type(wcauchy_type) , intent(in) :: help
16820 real(RKG) , intent(out) :: integral, abserr
16821 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16822 integer(IK) , intent(out) , contiguous :: sindex(:)
16823 integer(IK) , intent(out) :: neval
16824 integer(IK) , intent(out) :: nint
16825 integer(IK) :: err
16826 end function
16827#endif
16828
16829#if RK3_ENABLED
16830 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16832 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16833#endif
16834 use pm_kind, only: RKG => RK3
16835 procedure(real(RKG)) :: getFunc
16836 type(ninf_type) , intent(in) :: lb
16837 real(RKG) , intent(in) :: ub
16838 real(RKG) , intent(in) :: abstol
16839 real(RKG) , intent(in) :: reltol
16840 type(GK21_type) , intent(in) :: qrule
16841 type(wcauchy_type) , intent(in) :: help
16842 real(RKG) , intent(out) :: integral, abserr
16843 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16844 integer(IK) , intent(out) , contiguous :: sindex(:)
16845 integer(IK) , intent(out) :: neval
16846 integer(IK) , intent(out) :: nint
16847 integer(IK) :: err
16848 end function
16849#endif
16850
16851#if RK2_ENABLED
16852 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16854 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16855#endif
16856 use pm_kind, only: RKG => RK2
16857 procedure(real(RKG)) :: getFunc
16858 type(ninf_type) , intent(in) :: lb
16859 real(RKG) , intent(in) :: ub
16860 real(RKG) , intent(in) :: abstol
16861 real(RKG) , intent(in) :: reltol
16862 type(GK21_type) , intent(in) :: qrule
16863 type(wcauchy_type) , intent(in) :: help
16864 real(RKG) , intent(out) :: integral, abserr
16865 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16866 integer(IK) , intent(out) , contiguous :: sindex(:)
16867 integer(IK) , intent(out) :: neval
16868 integer(IK) , intent(out) :: nint
16869 integer(IK) :: err
16870 end function
16871#endif
16872
16873#if RK1_ENABLED
16874 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16876 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16877#endif
16878 use pm_kind, only: RKG => RK1
16879 procedure(real(RKG)) :: getFunc
16880 type(ninf_type) , intent(in) :: lb
16881 real(RKG) , intent(in) :: ub
16882 real(RKG) , intent(in) :: abstol
16883 real(RKG) , intent(in) :: reltol
16884 type(GK21_type) , intent(in) :: qrule
16885 type(wcauchy_type) , intent(in) :: help
16886 real(RKG) , intent(out) :: integral, abserr
16887 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16888 integer(IK) , intent(out) , contiguous :: sindex(:)
16889 integer(IK) , intent(out) :: neval
16890 integer(IK) , intent(out) :: nint
16891 integer(IK) :: err
16892 end function
16893#endif
16894
16895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16896
16897#if RK5_ENABLED
16898 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16900 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16901#endif
16902 use pm_kind, only: RKG => RK5
16903 procedure(real(RKG)) :: getFunc
16904 type(ninf_type) , intent(in) :: lb
16905 real(RKG) , intent(in) :: ub
16906 real(RKG) , intent(in) :: abstol
16907 real(RKG) , intent(in) :: reltol
16908 type(GK31_type) , intent(in) :: qrule
16909 type(wcauchy_type) , intent(in) :: help
16910 real(RKG) , intent(out) :: integral, abserr
16911 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16912 integer(IK) , intent(out) , contiguous :: sindex(:)
16913 integer(IK) , intent(out) :: neval
16914 integer(IK) , intent(out) :: nint
16915 integer(IK) :: err
16916 end function
16917#endif
16918
16919#if RK4_ENABLED
16920 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16922 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16923#endif
16924 use pm_kind, only: RKG => RK4
16925 procedure(real(RKG)) :: getFunc
16926 type(ninf_type) , intent(in) :: lb
16927 real(RKG) , intent(in) :: ub
16928 real(RKG) , intent(in) :: abstol
16929 real(RKG) , intent(in) :: reltol
16930 type(GK31_type) , intent(in) :: qrule
16931 type(wcauchy_type) , intent(in) :: help
16932 real(RKG) , intent(out) :: integral, abserr
16933 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16934 integer(IK) , intent(out) , contiguous :: sindex(:)
16935 integer(IK) , intent(out) :: neval
16936 integer(IK) , intent(out) :: nint
16937 integer(IK) :: err
16938 end function
16939#endif
16940
16941#if RK3_ENABLED
16942 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16944 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16945#endif
16946 use pm_kind, only: RKG => RK3
16947 procedure(real(RKG)) :: getFunc
16948 type(ninf_type) , intent(in) :: lb
16949 real(RKG) , intent(in) :: ub
16950 real(RKG) , intent(in) :: abstol
16951 real(RKG) , intent(in) :: reltol
16952 type(GK31_type) , intent(in) :: qrule
16953 type(wcauchy_type) , intent(in) :: help
16954 real(RKG) , intent(out) :: integral, abserr
16955 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16956 integer(IK) , intent(out) , contiguous :: sindex(:)
16957 integer(IK) , intent(out) :: neval
16958 integer(IK) , intent(out) :: nint
16959 integer(IK) :: err
16960 end function
16961#endif
16962
16963#if RK2_ENABLED
16964 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16966 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16967#endif
16968 use pm_kind, only: RKG => RK2
16969 procedure(real(RKG)) :: getFunc
16970 type(ninf_type) , intent(in) :: lb
16971 real(RKG) , intent(in) :: ub
16972 real(RKG) , intent(in) :: abstol
16973 real(RKG) , intent(in) :: reltol
16974 type(GK31_type) , intent(in) :: qrule
16975 type(wcauchy_type) , intent(in) :: help
16976 real(RKG) , intent(out) :: integral, abserr
16977 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
16978 integer(IK) , intent(out) , contiguous :: sindex(:)
16979 integer(IK) , intent(out) :: neval
16980 integer(IK) , intent(out) :: nint
16981 integer(IK) :: err
16982 end function
16983#endif
16984
16985#if RK1_ENABLED
16986 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16988 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16989#endif
16990 use pm_kind, only: RKG => RK1
16991 procedure(real(RKG)) :: getFunc
16992 type(ninf_type) , intent(in) :: lb
16993 real(RKG) , intent(in) :: ub
16994 real(RKG) , intent(in) :: abstol
16995 real(RKG) , intent(in) :: reltol
16996 type(GK31_type) , intent(in) :: qrule
16997 type(wcauchy_type) , intent(in) :: help
16998 real(RKG) , intent(out) :: integral, abserr
16999 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17000 integer(IK) , intent(out) , contiguous :: sindex(:)
17001 integer(IK) , intent(out) :: neval
17002 integer(IK) , intent(out) :: nint
17003 integer(IK) :: err
17004 end function
17005#endif
17006
17007 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17008
17009#if RK5_ENABLED
17010 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17012 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
17013#endif
17014 use pm_kind, only: RKG => RK5
17015 procedure(real(RKG)) :: getFunc
17016 type(ninf_type) , intent(in) :: lb
17017 real(RKG) , intent(in) :: ub
17018 real(RKG) , intent(in) :: abstol
17019 real(RKG) , intent(in) :: reltol
17020 type(GK41_type) , intent(in) :: qrule
17021 type(wcauchy_type) , intent(in) :: help
17022 real(RKG) , intent(out) :: integral, abserr
17023 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17024 integer(IK) , intent(out) , contiguous :: sindex(:)
17025 integer(IK) , intent(out) :: neval
17026 integer(IK) , intent(out) :: nint
17027 integer(IK) :: err
17028 end function
17029#endif
17030
17031#if RK4_ENABLED
17032 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17034 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
17035#endif
17036 use pm_kind, only: RKG => RK4
17037 procedure(real(RKG)) :: getFunc
17038 type(ninf_type) , intent(in) :: lb
17039 real(RKG) , intent(in) :: ub
17040 real(RKG) , intent(in) :: abstol
17041 real(RKG) , intent(in) :: reltol
17042 type(GK41_type) , intent(in) :: qrule
17043 type(wcauchy_type) , intent(in) :: help
17044 real(RKG) , intent(out) :: integral, abserr
17045 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17046 integer(IK) , intent(out) , contiguous :: sindex(:)
17047 integer(IK) , intent(out) :: neval
17048 integer(IK) , intent(out) :: nint
17049 integer(IK) :: err
17050 end function
17051#endif
17052
17053#if RK3_ENABLED
17054 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17056 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
17057#endif
17058 use pm_kind, only: RKG => RK3
17059 procedure(real(RKG)) :: getFunc
17060 type(ninf_type) , intent(in) :: lb
17061 real(RKG) , intent(in) :: ub
17062 real(RKG) , intent(in) :: abstol
17063 real(RKG) , intent(in) :: reltol
17064 type(GK41_type) , intent(in) :: qrule
17065 type(wcauchy_type) , intent(in) :: help
17066 real(RKG) , intent(out) :: integral, abserr
17067 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17068 integer(IK) , intent(out) , contiguous :: sindex(:)
17069 integer(IK) , intent(out) :: neval
17070 integer(IK) , intent(out) :: nint
17071 integer(IK) :: err
17072 end function
17073#endif
17074
17075#if RK2_ENABLED
17076 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17078 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17079#endif
17080 use pm_kind, only: RKG => RK2
17081 procedure(real(RKG)) :: getFunc
17082 type(ninf_type) , intent(in) :: lb
17083 real(RKG) , intent(in) :: ub
17084 real(RKG) , intent(in) :: abstol
17085 real(RKG) , intent(in) :: reltol
17086 type(GK41_type) , intent(in) :: qrule
17087 type(wcauchy_type) , intent(in) :: help
17088 real(RKG) , intent(out) :: integral, abserr
17089 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17090 integer(IK) , intent(out) , contiguous :: sindex(:)
17091 integer(IK) , intent(out) :: neval
17092 integer(IK) , intent(out) :: nint
17093 integer(IK) :: err
17094 end function
17095#endif
17096
17097#if RK1_ENABLED
17098 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17100 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17101#endif
17102 use pm_kind, only: RKG => RK1
17103 procedure(real(RKG)) :: getFunc
17104 type(ninf_type) , intent(in) :: lb
17105 real(RKG) , intent(in) :: ub
17106 real(RKG) , intent(in) :: abstol
17107 real(RKG) , intent(in) :: reltol
17108 type(GK41_type) , intent(in) :: qrule
17109 type(wcauchy_type) , intent(in) :: help
17110 real(RKG) , intent(out) :: integral, abserr
17111 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17112 integer(IK) , intent(out) , contiguous :: sindex(:)
17113 integer(IK) , intent(out) :: neval
17114 integer(IK) , intent(out) :: nint
17115 integer(IK) :: err
17116 end function
17117#endif
17118
17119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17120
17121#if RK5_ENABLED
17122 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17124 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17125#endif
17126 use pm_kind, only: RKG => RK5
17127 procedure(real(RKG)) :: getFunc
17128 type(ninf_type) , intent(in) :: lb
17129 real(RKG) , intent(in) :: ub
17130 real(RKG) , intent(in) :: abstol
17131 real(RKG) , intent(in) :: reltol
17132 type(GK51_type) , intent(in) :: qrule
17133 type(wcauchy_type) , intent(in) :: help
17134 real(RKG) , intent(out) :: integral, abserr
17135 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17136 integer(IK) , intent(out) , contiguous :: sindex(:)
17137 integer(IK) , intent(out) :: neval
17138 integer(IK) , intent(out) :: nint
17139 integer(IK) :: err
17140 end function
17141#endif
17142
17143#if RK4_ENABLED
17144 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17146 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17147#endif
17148 use pm_kind, only: RKG => RK4
17149 procedure(real(RKG)) :: getFunc
17150 type(ninf_type) , intent(in) :: lb
17151 real(RKG) , intent(in) :: ub
17152 real(RKG) , intent(in) :: abstol
17153 real(RKG) , intent(in) :: reltol
17154 type(GK51_type) , intent(in) :: qrule
17155 type(wcauchy_type) , intent(in) :: help
17156 real(RKG) , intent(out) :: integral, abserr
17157 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17158 integer(IK) , intent(out) , contiguous :: sindex(:)
17159 integer(IK) , intent(out) :: neval
17160 integer(IK) , intent(out) :: nint
17161 integer(IK) :: err
17162 end function
17163#endif
17164
17165#if RK3_ENABLED
17166 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17168 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17169#endif
17170 use pm_kind, only: RKG => RK3
17171 procedure(real(RKG)) :: getFunc
17172 type(ninf_type) , intent(in) :: lb
17173 real(RKG) , intent(in) :: ub
17174 real(RKG) , intent(in) :: abstol
17175 real(RKG) , intent(in) :: reltol
17176 type(GK51_type) , intent(in) :: qrule
17177 type(wcauchy_type) , intent(in) :: help
17178 real(RKG) , intent(out) :: integral, abserr
17179 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17180 integer(IK) , intent(out) , contiguous :: sindex(:)
17181 integer(IK) , intent(out) :: neval
17182 integer(IK) , intent(out) :: nint
17183 integer(IK) :: err
17184 end function
17185#endif
17186
17187#if RK2_ENABLED
17188 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17190 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17191#endif
17192 use pm_kind, only: RKG => RK2
17193 procedure(real(RKG)) :: getFunc
17194 type(ninf_type) , intent(in) :: lb
17195 real(RKG) , intent(in) :: ub
17196 real(RKG) , intent(in) :: abstol
17197 real(RKG) , intent(in) :: reltol
17198 type(GK51_type) , intent(in) :: qrule
17199 type(wcauchy_type) , intent(in) :: help
17200 real(RKG) , intent(out) :: integral, abserr
17201 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17202 integer(IK) , intent(out) , contiguous :: sindex(:)
17203 integer(IK) , intent(out) :: neval
17204 integer(IK) , intent(out) :: nint
17205 integer(IK) :: err
17206 end function
17207#endif
17208
17209#if RK1_ENABLED
17210 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17212 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17213#endif
17214 use pm_kind, only: RKG => RK1
17215 procedure(real(RKG)) :: getFunc
17216 type(ninf_type) , intent(in) :: lb
17217 real(RKG) , intent(in) :: ub
17218 real(RKG) , intent(in) :: abstol
17219 real(RKG) , intent(in) :: reltol
17220 type(GK51_type) , intent(in) :: qrule
17221 type(wcauchy_type) , intent(in) :: help
17222 real(RKG) , intent(out) :: integral, abserr
17223 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17224 integer(IK) , intent(out) , contiguous :: sindex(:)
17225 integer(IK) , intent(out) :: neval
17226 integer(IK) , intent(out) :: nint
17227 integer(IK) :: err
17228 end function
17229#endif
17230
17231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17232
17233#if RK5_ENABLED
17234 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17236 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17237#endif
17238 use pm_kind, only: RKG => RK5
17239 procedure(real(RKG)) :: getFunc
17240 type(ninf_type) , intent(in) :: lb
17241 real(RKG) , intent(in) :: ub
17242 real(RKG) , intent(in) :: abstol
17243 real(RKG) , intent(in) :: reltol
17244 type(GK61_type) , intent(in) :: qrule
17245 type(wcauchy_type) , intent(in) :: help
17246 real(RKG) , intent(out) :: integral, abserr
17247 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17248 integer(IK) , intent(out) , contiguous :: sindex(:)
17249 integer(IK) , intent(out) :: neval
17250 integer(IK) , intent(out) :: nint
17251 integer(IK) :: err
17252 end function
17253#endif
17254
17255#if RK4_ENABLED
17256 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17258 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17259#endif
17260 use pm_kind, only: RKG => RK4
17261 procedure(real(RKG)) :: getFunc
17262 type(ninf_type) , intent(in) :: lb
17263 real(RKG) , intent(in) :: ub
17264 real(RKG) , intent(in) :: abstol
17265 real(RKG) , intent(in) :: reltol
17266 type(GK61_type) , intent(in) :: qrule
17267 type(wcauchy_type) , intent(in) :: help
17268 real(RKG) , intent(out) :: integral, abserr
17269 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17270 integer(IK) , intent(out) , contiguous :: sindex(:)
17271 integer(IK) , intent(out) :: neval
17272 integer(IK) , intent(out) :: nint
17273 integer(IK) :: err
17274 end function
17275#endif
17276
17277#if RK3_ENABLED
17278 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17280 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17281#endif
17282 use pm_kind, only: RKG => RK3
17283 procedure(real(RKG)) :: getFunc
17284 type(ninf_type) , intent(in) :: lb
17285 real(RKG) , intent(in) :: ub
17286 real(RKG) , intent(in) :: abstol
17287 real(RKG) , intent(in) :: reltol
17288 type(GK61_type) , intent(in) :: qrule
17289 type(wcauchy_type) , intent(in) :: help
17290 real(RKG) , intent(out) :: integral, abserr
17291 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17292 integer(IK) , intent(out) , contiguous :: sindex(:)
17293 integer(IK) , intent(out) :: neval
17294 integer(IK) , intent(out) :: nint
17295 integer(IK) :: err
17296 end function
17297#endif
17298
17299#if RK2_ENABLED
17300 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17302 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17303#endif
17304 use pm_kind, only: RKG => RK2
17305 procedure(real(RKG)) :: getFunc
17306 type(ninf_type) , intent(in) :: lb
17307 real(RKG) , intent(in) :: ub
17308 real(RKG) , intent(in) :: abstol
17309 real(RKG) , intent(in) :: reltol
17310 type(GK61_type) , intent(in) :: qrule
17311 type(wcauchy_type) , intent(in) :: help
17312 real(RKG) , intent(out) :: integral, abserr
17313 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17314 integer(IK) , intent(out) , contiguous :: sindex(:)
17315 integer(IK) , intent(out) :: neval
17316 integer(IK) , intent(out) :: nint
17317 integer(IK) :: err
17318 end function
17319#endif
17320
17321#if RK1_ENABLED
17322 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17324 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17325#endif
17326 use pm_kind, only: RKG => RK1
17327 procedure(real(RKG)) :: getFunc
17328 type(ninf_type) , intent(in) :: lb
17329 real(RKG) , intent(in) :: ub
17330 real(RKG) , intent(in) :: abstol
17331 real(RKG) , intent(in) :: reltol
17332 type(GK61_type) , intent(in) :: qrule
17333 type(wcauchy_type) , intent(in) :: help
17334 real(RKG) , intent(out) :: integral, abserr
17335 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17336 integer(IK) , intent(out) , contiguous :: sindex(:)
17337 integer(IK) , intent(out) :: neval
17338 integer(IK) , intent(out) :: nint
17339 integer(IK) :: err
17340 end function
17341#endif
17342
17343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17344
17345#if RK5_ENABLED
17346 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17348 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17349#endif
17350 use pm_kind, only: RKG => RK5
17351 procedure(real(RKG)) :: getFunc
17352 type(ninf_type) , intent(in) :: lb
17353 real(RKG) , intent(in) :: ub
17354 real(RKG) , intent(in) :: abstol
17355 real(RKG) , intent(in) :: reltol
17356 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17357 type(wcauchy_type) , intent(in) :: help
17358 real(RKG) , intent(out) :: integral, abserr
17359 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17360 integer(IK) , intent(out) , contiguous :: sindex(:)
17361 integer(IK) , intent(out) :: neval
17362 integer(IK) , intent(out) :: nint
17363 integer(IK) :: err
17364 end function
17365#endif
17366
17367#if RK4_ENABLED
17368 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17370 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17371#endif
17372 use pm_kind, only: RKG => RK4
17373 procedure(real(RKG)) :: getFunc
17374 type(ninf_type) , intent(in) :: lb
17375 real(RKG) , intent(in) :: ub
17376 real(RKG) , intent(in) :: abstol
17377 real(RKG) , intent(in) :: reltol
17378 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17379 type(wcauchy_type) , intent(in) :: help
17380 real(RKG) , intent(out) :: integral, abserr
17381 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17382 integer(IK) , intent(out) , contiguous :: sindex(:)
17383 integer(IK) , intent(out) :: neval
17384 integer(IK) , intent(out) :: nint
17385 integer(IK) :: err
17386 end function
17387#endif
17388
17389#if RK3_ENABLED
17390 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17392 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17393#endif
17394 use pm_kind, only: RKG => RK3
17395 procedure(real(RKG)) :: getFunc
17396 type(ninf_type) , intent(in) :: lb
17397 real(RKG) , intent(in) :: ub
17398 real(RKG) , intent(in) :: abstol
17399 real(RKG) , intent(in) :: reltol
17400 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17401 type(wcauchy_type) , intent(in) :: help
17402 real(RKG) , intent(out) :: integral, abserr
17403 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17404 integer(IK) , intent(out) , contiguous :: sindex(:)
17405 integer(IK) , intent(out) :: neval
17406 integer(IK) , intent(out) :: nint
17407 integer(IK) :: err
17408 end function
17409#endif
17410
17411#if RK2_ENABLED
17412 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17414 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17415#endif
17416 use pm_kind, only: RKG => RK2
17417 procedure(real(RKG)) :: getFunc
17418 type(ninf_type) , intent(in) :: lb
17419 real(RKG) , intent(in) :: ub
17420 real(RKG) , intent(in) :: abstol
17421 real(RKG) , intent(in) :: reltol
17422 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17423 type(wcauchy_type) , intent(in) :: help
17424 real(RKG) , intent(out) :: integral, abserr
17425 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17426 integer(IK) , intent(out) , contiguous :: sindex(:)
17427 integer(IK) , intent(out) :: neval
17428 integer(IK) , intent(out) :: nint
17429 integer(IK) :: err
17430 end function
17431#endif
17432
17433#if RK1_ENABLED
17434 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17436 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17437#endif
17438 use pm_kind, only: RKG => RK1
17439 procedure(real(RKG)) :: getFunc
17440 type(ninf_type) , intent(in) :: lb
17441 real(RKG) , intent(in) :: ub
17442 real(RKG) , intent(in) :: abstol
17443 real(RKG) , intent(in) :: reltol
17444 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17445 type(wcauchy_type) , intent(in) :: help
17446 real(RKG) , intent(out) :: integral, abserr
17447 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17448 integer(IK) , intent(out) , contiguous :: sindex(:)
17449 integer(IK) , intent(out) :: neval
17450 integer(IK) , intent(out) :: nint
17451 integer(IK) :: err
17452 end function
17453#endif
17454
17455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17456
17457 end interface
17458
17459 ! QAWC II
17460
17461 interface getQuadErr
17462
17463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17464
17465#if RK5_ENABLED
17466 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17468 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17469#endif
17470 use pm_kind, only: RKG => RK5
17471 procedure(real(RKG)) :: getFunc
17472 type(ninf_type) , intent(in) :: lb
17473 type(pinf_type) , intent(in) :: ub
17474 real(RKG) , intent(in) :: abstol
17475 real(RKG) , intent(in) :: reltol
17476 type(GK15_type) , intent(in) :: qrule
17477 type(wcauchy_type) , intent(in) :: help
17478 real(RKG) , intent(out) :: integral, abserr
17479 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17480 integer(IK) , intent(out) , contiguous :: sindex(:)
17481 integer(IK) , intent(out) :: neval
17482 integer(IK) , intent(out) :: nint
17483 integer(IK) :: err
17484 end function
17485#endif
17486
17487#if RK4_ENABLED
17488 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17490 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17491#endif
17492 use pm_kind, only: RKG => RK4
17493 procedure(real(RKG)) :: getFunc
17494 type(ninf_type) , intent(in) :: lb
17495 type(pinf_type) , intent(in) :: ub
17496 real(RKG) , intent(in) :: abstol
17497 real(RKG) , intent(in) :: reltol
17498 type(GK15_type) , intent(in) :: qrule
17499 type(wcauchy_type) , intent(in) :: help
17500 real(RKG) , intent(out) :: integral, abserr
17501 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17502 integer(IK) , intent(out) , contiguous :: sindex(:)
17503 integer(IK) , intent(out) :: neval
17504 integer(IK) , intent(out) :: nint
17505 integer(IK) :: err
17506 end function
17507#endif
17508
17509#if RK3_ENABLED
17510 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17512 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17513#endif
17514 use pm_kind, only: RKG => RK3
17515 procedure(real(RKG)) :: getFunc
17516 type(ninf_type) , intent(in) :: lb
17517 type(pinf_type) , intent(in) :: ub
17518 real(RKG) , intent(in) :: abstol
17519 real(RKG) , intent(in) :: reltol
17520 type(GK15_type) , intent(in) :: qrule
17521 type(wcauchy_type) , intent(in) :: help
17522 real(RKG) , intent(out) :: integral, abserr
17523 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17524 integer(IK) , intent(out) , contiguous :: sindex(:)
17525 integer(IK) , intent(out) :: neval
17526 integer(IK) , intent(out) :: nint
17527 integer(IK) :: err
17528 end function
17529#endif
17530
17531#if RK2_ENABLED
17532 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17534 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17535#endif
17536 use pm_kind, only: RKG => RK2
17537 procedure(real(RKG)) :: getFunc
17538 type(ninf_type) , intent(in) :: lb
17539 type(pinf_type) , intent(in) :: ub
17540 real(RKG) , intent(in) :: abstol
17541 real(RKG) , intent(in) :: reltol
17542 type(GK15_type) , intent(in) :: qrule
17543 type(wcauchy_type) , intent(in) :: help
17544 real(RKG) , intent(out) :: integral, abserr
17545 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17546 integer(IK) , intent(out) , contiguous :: sindex(:)
17547 integer(IK) , intent(out) :: neval
17548 integer(IK) , intent(out) :: nint
17549 integer(IK) :: err
17550 end function
17551#endif
17552
17553#if RK1_ENABLED
17554 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17556 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17557#endif
17558 use pm_kind, only: RKG => RK1
17559 procedure(real(RKG)) :: getFunc
17560 type(ninf_type) , intent(in) :: lb
17561 type(pinf_type) , intent(in) :: ub
17562 real(RKG) , intent(in) :: abstol
17563 real(RKG) , intent(in) :: reltol
17564 type(GK15_type) , intent(in) :: qrule
17565 type(wcauchy_type) , intent(in) :: help
17566 real(RKG) , intent(out) :: integral, abserr
17567 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17568 integer(IK) , intent(out) , contiguous :: sindex(:)
17569 integer(IK) , intent(out) :: neval
17570 integer(IK) , intent(out) :: nint
17571 integer(IK) :: err
17572 end function
17573#endif
17574
17575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17576
17577#if RK5_ENABLED
17578 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17580 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17581#endif
17582 use pm_kind, only: RKG => RK5
17583 procedure(real(RKG)) :: getFunc
17584 type(ninf_type) , intent(in) :: lb
17585 type(pinf_type) , intent(in) :: ub
17586 real(RKG) , intent(in) :: abstol
17587 real(RKG) , intent(in) :: reltol
17588 type(GK21_type) , intent(in) :: qrule
17589 type(wcauchy_type) , intent(in) :: help
17590 real(RKG) , intent(out) :: integral, abserr
17591 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17592 integer(IK) , intent(out) , contiguous :: sindex(:)
17593 integer(IK) , intent(out) :: neval
17594 integer(IK) , intent(out) :: nint
17595 integer(IK) :: err
17596 end function
17597#endif
17598
17599#if RK4_ENABLED
17600 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17602 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17603#endif
17604 use pm_kind, only: RKG => RK4
17605 procedure(real(RKG)) :: getFunc
17606 type(ninf_type) , intent(in) :: lb
17607 type(pinf_type) , intent(in) :: ub
17608 real(RKG) , intent(in) :: abstol
17609 real(RKG) , intent(in) :: reltol
17610 type(GK21_type) , intent(in) :: qrule
17611 type(wcauchy_type) , intent(in) :: help
17612 real(RKG) , intent(out) :: integral, abserr
17613 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17614 integer(IK) , intent(out) , contiguous :: sindex(:)
17615 integer(IK) , intent(out) :: neval
17616 integer(IK) , intent(out) :: nint
17617 integer(IK) :: err
17618 end function
17619#endif
17620
17621#if RK3_ENABLED
17622 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17624 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17625#endif
17626 use pm_kind, only: RKG => RK3
17627 procedure(real(RKG)) :: getFunc
17628 type(ninf_type) , intent(in) :: lb
17629 type(pinf_type) , intent(in) :: ub
17630 real(RKG) , intent(in) :: abstol
17631 real(RKG) , intent(in) :: reltol
17632 type(GK21_type) , intent(in) :: qrule
17633 type(wcauchy_type) , intent(in) :: help
17634 real(RKG) , intent(out) :: integral, abserr
17635 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17636 integer(IK) , intent(out) , contiguous :: sindex(:)
17637 integer(IK) , intent(out) :: neval
17638 integer(IK) , intent(out) :: nint
17639 integer(IK) :: err
17640 end function
17641#endif
17642
17643#if RK2_ENABLED
17644 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17646 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17647#endif
17648 use pm_kind, only: RKG => RK2
17649 procedure(real(RKG)) :: getFunc
17650 type(ninf_type) , intent(in) :: lb
17651 type(pinf_type) , intent(in) :: ub
17652 real(RKG) , intent(in) :: abstol
17653 real(RKG) , intent(in) :: reltol
17654 type(GK21_type) , intent(in) :: qrule
17655 type(wcauchy_type) , intent(in) :: help
17656 real(RKG) , intent(out) :: integral, abserr
17657 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17658 integer(IK) , intent(out) , contiguous :: sindex(:)
17659 integer(IK) , intent(out) :: neval
17660 integer(IK) , intent(out) :: nint
17661 integer(IK) :: err
17662 end function
17663#endif
17664
17665#if RK1_ENABLED
17666 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17668 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17669#endif
17670 use pm_kind, only: RKG => RK1
17671 procedure(real(RKG)) :: getFunc
17672 type(ninf_type) , intent(in) :: lb
17673 type(pinf_type) , intent(in) :: ub
17674 real(RKG) , intent(in) :: abstol
17675 real(RKG) , intent(in) :: reltol
17676 type(GK21_type) , intent(in) :: qrule
17677 type(wcauchy_type) , intent(in) :: help
17678 real(RKG) , intent(out) :: integral, abserr
17679 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17680 integer(IK) , intent(out) , contiguous :: sindex(:)
17681 integer(IK) , intent(out) :: neval
17682 integer(IK) , intent(out) :: nint
17683 integer(IK) :: err
17684 end function
17685#endif
17686
17687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17688
17689#if RK5_ENABLED
17690 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17692 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17693#endif
17694 use pm_kind, only: RKG => RK5
17695 procedure(real(RKG)) :: getFunc
17696 type(ninf_type) , intent(in) :: lb
17697 type(pinf_type) , intent(in) :: ub
17698 real(RKG) , intent(in) :: abstol
17699 real(RKG) , intent(in) :: reltol
17700 type(GK31_type) , intent(in) :: qrule
17701 type(wcauchy_type) , intent(in) :: help
17702 real(RKG) , intent(out) :: integral, abserr
17703 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17704 integer(IK) , intent(out) , contiguous :: sindex(:)
17705 integer(IK) , intent(out) :: neval
17706 integer(IK) , intent(out) :: nint
17707 integer(IK) :: err
17708 end function
17709#endif
17710
17711#if RK4_ENABLED
17712 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17714 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17715#endif
17716 use pm_kind, only: RKG => RK4
17717 procedure(real(RKG)) :: getFunc
17718 type(ninf_type) , intent(in) :: lb
17719 type(pinf_type) , intent(in) :: ub
17720 real(RKG) , intent(in) :: abstol
17721 real(RKG) , intent(in) :: reltol
17722 type(GK31_type) , intent(in) :: qrule
17723 type(wcauchy_type) , intent(in) :: help
17724 real(RKG) , intent(out) :: integral, abserr
17725 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17726 integer(IK) , intent(out) , contiguous :: sindex(:)
17727 integer(IK) , intent(out) :: neval
17728 integer(IK) , intent(out) :: nint
17729 integer(IK) :: err
17730 end function
17731#endif
17732
17733#if RK3_ENABLED
17734 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17736 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17737#endif
17738 use pm_kind, only: RKG => RK3
17739 procedure(real(RKG)) :: getFunc
17740 type(ninf_type) , intent(in) :: lb
17741 type(pinf_type) , intent(in) :: ub
17742 real(RKG) , intent(in) :: abstol
17743 real(RKG) , intent(in) :: reltol
17744 type(GK31_type) , intent(in) :: qrule
17745 type(wcauchy_type) , intent(in) :: help
17746 real(RKG) , intent(out) :: integral, abserr
17747 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17748 integer(IK) , intent(out) , contiguous :: sindex(:)
17749 integer(IK) , intent(out) :: neval
17750 integer(IK) , intent(out) :: nint
17751 integer(IK) :: err
17752 end function
17753#endif
17754
17755#if RK2_ENABLED
17756 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17758 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17759#endif
17760 use pm_kind, only: RKG => RK2
17761 procedure(real(RKG)) :: getFunc
17762 type(ninf_type) , intent(in) :: lb
17763 type(pinf_type) , intent(in) :: ub
17764 real(RKG) , intent(in) :: abstol
17765 real(RKG) , intent(in) :: reltol
17766 type(GK31_type) , intent(in) :: qrule
17767 type(wcauchy_type) , intent(in) :: help
17768 real(RKG) , intent(out) :: integral, abserr
17769 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17770 integer(IK) , intent(out) , contiguous :: sindex(:)
17771 integer(IK) , intent(out) :: neval
17772 integer(IK) , intent(out) :: nint
17773 integer(IK) :: err
17774 end function
17775#endif
17776
17777#if RK1_ENABLED
17778 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17780 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17781#endif
17782 use pm_kind, only: RKG => RK1
17783 procedure(real(RKG)) :: getFunc
17784 type(ninf_type) , intent(in) :: lb
17785 type(pinf_type) , intent(in) :: ub
17786 real(RKG) , intent(in) :: abstol
17787 real(RKG) , intent(in) :: reltol
17788 type(GK31_type) , intent(in) :: qrule
17789 type(wcauchy_type) , intent(in) :: help
17790 real(RKG) , intent(out) :: integral, abserr
17791 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17792 integer(IK) , intent(out) , contiguous :: sindex(:)
17793 integer(IK) , intent(out) :: neval
17794 integer(IK) , intent(out) :: nint
17795 integer(IK) :: err
17796 end function
17797#endif
17798
17799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17800
17801#if RK5_ENABLED
17802 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17804 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17805#endif
17806 use pm_kind, only: RKG => RK5
17807 procedure(real(RKG)) :: getFunc
17808 type(ninf_type) , intent(in) :: lb
17809 type(pinf_type) , intent(in) :: ub
17810 real(RKG) , intent(in) :: abstol
17811 real(RKG) , intent(in) :: reltol
17812 type(GK41_type) , intent(in) :: qrule
17813 type(wcauchy_type) , intent(in) :: help
17814 real(RKG) , intent(out) :: integral, abserr
17815 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17816 integer(IK) , intent(out) , contiguous :: sindex(:)
17817 integer(IK) , intent(out) :: neval
17818 integer(IK) , intent(out) :: nint
17819 integer(IK) :: err
17820 end function
17821#endif
17822
17823#if RK4_ENABLED
17824 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17826 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17827#endif
17828 use pm_kind, only: RKG => RK4
17829 procedure(real(RKG)) :: getFunc
17830 type(ninf_type) , intent(in) :: lb
17831 type(pinf_type) , intent(in) :: ub
17832 real(RKG) , intent(in) :: abstol
17833 real(RKG) , intent(in) :: reltol
17834 type(GK41_type) , intent(in) :: qrule
17835 type(wcauchy_type) , intent(in) :: help
17836 real(RKG) , intent(out) :: integral, abserr
17837 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17838 integer(IK) , intent(out) , contiguous :: sindex(:)
17839 integer(IK) , intent(out) :: neval
17840 integer(IK) , intent(out) :: nint
17841 integer(IK) :: err
17842 end function
17843#endif
17844
17845#if RK3_ENABLED
17846 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17848 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17849#endif
17850 use pm_kind, only: RKG => RK3
17851 procedure(real(RKG)) :: getFunc
17852 type(ninf_type) , intent(in) :: lb
17853 type(pinf_type) , intent(in) :: ub
17854 real(RKG) , intent(in) :: abstol
17855 real(RKG) , intent(in) :: reltol
17856 type(GK41_type) , intent(in) :: qrule
17857 type(wcauchy_type) , intent(in) :: help
17858 real(RKG) , intent(out) :: integral, abserr
17859 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17860 integer(IK) , intent(out) , contiguous :: sindex(:)
17861 integer(IK) , intent(out) :: neval
17862 integer(IK) , intent(out) :: nint
17863 integer(IK) :: err
17864 end function
17865#endif
17866
17867#if RK2_ENABLED
17868 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17870 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17871#endif
17872 use pm_kind, only: RKG => RK2
17873 procedure(real(RKG)) :: getFunc
17874 type(ninf_type) , intent(in) :: lb
17875 type(pinf_type) , intent(in) :: ub
17876 real(RKG) , intent(in) :: abstol
17877 real(RKG) , intent(in) :: reltol
17878 type(GK41_type) , intent(in) :: qrule
17879 type(wcauchy_type) , intent(in) :: help
17880 real(RKG) , intent(out) :: integral, abserr
17881 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17882 integer(IK) , intent(out) , contiguous :: sindex(:)
17883 integer(IK) , intent(out) :: neval
17884 integer(IK) , intent(out) :: nint
17885 integer(IK) :: err
17886 end function
17887#endif
17888
17889#if RK1_ENABLED
17890 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17892 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17893#endif
17894 use pm_kind, only: RKG => RK1
17895 procedure(real(RKG)) :: getFunc
17896 type(ninf_type) , intent(in) :: lb
17897 type(pinf_type) , intent(in) :: ub
17898 real(RKG) , intent(in) :: abstol
17899 real(RKG) , intent(in) :: reltol
17900 type(GK41_type) , intent(in) :: qrule
17901 type(wcauchy_type) , intent(in) :: help
17902 real(RKG) , intent(out) :: integral, abserr
17903 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17904 integer(IK) , intent(out) , contiguous :: sindex(:)
17905 integer(IK) , intent(out) :: neval
17906 integer(IK) , intent(out) :: nint
17907 integer(IK) :: err
17908 end function
17909#endif
17910
17911 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17912
17913#if RK5_ENABLED
17914 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17916 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17917#endif
17918 use pm_kind, only: RKG => RK5
17919 procedure(real(RKG)) :: getFunc
17920 type(ninf_type) , intent(in) :: lb
17921 type(pinf_type) , intent(in) :: ub
17922 real(RKG) , intent(in) :: abstol
17923 real(RKG) , intent(in) :: reltol
17924 type(GK51_type) , intent(in) :: qrule
17925 type(wcauchy_type) , intent(in) :: help
17926 real(RKG) , intent(out) :: integral, abserr
17927 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17928 integer(IK) , intent(out) , contiguous :: sindex(:)
17929 integer(IK) , intent(out) :: neval
17930 integer(IK) , intent(out) :: nint
17931 integer(IK) :: err
17932 end function
17933#endif
17934
17935#if RK4_ENABLED
17936 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17938 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17939#endif
17940 use pm_kind, only: RKG => RK4
17941 procedure(real(RKG)) :: getFunc
17942 type(ninf_type) , intent(in) :: lb
17943 type(pinf_type) , intent(in) :: ub
17944 real(RKG) , intent(in) :: abstol
17945 real(RKG) , intent(in) :: reltol
17946 type(GK51_type) , intent(in) :: qrule
17947 type(wcauchy_type) , intent(in) :: help
17948 real(RKG) , intent(out) :: integral, abserr
17949 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17950 integer(IK) , intent(out) , contiguous :: sindex(:)
17951 integer(IK) , intent(out) :: neval
17952 integer(IK) , intent(out) :: nint
17953 integer(IK) :: err
17954 end function
17955#endif
17956
17957#if RK3_ENABLED
17958 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17960 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17961#endif
17962 use pm_kind, only: RKG => RK3
17963 procedure(real(RKG)) :: getFunc
17964 type(ninf_type) , intent(in) :: lb
17965 type(pinf_type) , intent(in) :: ub
17966 real(RKG) , intent(in) :: abstol
17967 real(RKG) , intent(in) :: reltol
17968 type(GK51_type) , intent(in) :: qrule
17969 type(wcauchy_type) , intent(in) :: help
17970 real(RKG) , intent(out) :: integral, abserr
17971 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17972 integer(IK) , intent(out) , contiguous :: sindex(:)
17973 integer(IK) , intent(out) :: neval
17974 integer(IK) , intent(out) :: nint
17975 integer(IK) :: err
17976 end function
17977#endif
17978
17979#if RK2_ENABLED
17980 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17982 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17983#endif
17984 use pm_kind, only: RKG => RK2
17985 procedure(real(RKG)) :: getFunc
17986 type(ninf_type) , intent(in) :: lb
17987 type(pinf_type) , intent(in) :: ub
17988 real(RKG) , intent(in) :: abstol
17989 real(RKG) , intent(in) :: reltol
17990 type(GK51_type) , intent(in) :: qrule
17991 type(wcauchy_type) , intent(in) :: help
17992 real(RKG) , intent(out) :: integral, abserr
17993 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
17994 integer(IK) , intent(out) , contiguous :: sindex(:)
17995 integer(IK) , intent(out) :: neval
17996 integer(IK) , intent(out) :: nint
17997 integer(IK) :: err
17998 end function
17999#endif
18000
18001#if RK1_ENABLED
18002 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18004 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
18005#endif
18006 use pm_kind, only: RKG => RK1
18007 procedure(real(RKG)) :: getFunc
18008 type(ninf_type) , intent(in) :: lb
18009 type(pinf_type) , intent(in) :: ub
18010 real(RKG) , intent(in) :: abstol
18011 real(RKG) , intent(in) :: reltol
18012 type(GK51_type) , intent(in) :: qrule
18013 type(wcauchy_type) , intent(in) :: help
18014 real(RKG) , intent(out) :: integral, abserr
18015 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18016 integer(IK) , intent(out) , contiguous :: sindex(:)
18017 integer(IK) , intent(out) :: neval
18018 integer(IK) , intent(out) :: nint
18019 integer(IK) :: err
18020 end function
18021#endif
18022
18023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18024
18025#if RK5_ENABLED
18026 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18028 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
18029#endif
18030 use pm_kind, only: RKG => RK5
18031 procedure(real(RKG)) :: getFunc
18032 type(ninf_type) , intent(in) :: lb
18033 type(pinf_type) , intent(in) :: ub
18034 real(RKG) , intent(in) :: abstol
18035 real(RKG) , intent(in) :: reltol
18036 type(GK61_type) , intent(in) :: qrule
18037 type(wcauchy_type) , intent(in) :: help
18038 real(RKG) , intent(out) :: integral, abserr
18039 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18040 integer(IK) , intent(out) , contiguous :: sindex(:)
18041 integer(IK) , intent(out) :: neval
18042 integer(IK) , intent(out) :: nint
18043 integer(IK) :: err
18044 end function
18045#endif
18046
18047#if RK4_ENABLED
18048 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18050 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
18051#endif
18052 use pm_kind, only: RKG => RK4
18053 procedure(real(RKG)) :: getFunc
18054 type(ninf_type) , intent(in) :: lb
18055 type(pinf_type) , intent(in) :: ub
18056 real(RKG) , intent(in) :: abstol
18057 real(RKG) , intent(in) :: reltol
18058 type(GK61_type) , intent(in) :: qrule
18059 type(wcauchy_type) , intent(in) :: help
18060 real(RKG) , intent(out) :: integral, abserr
18061 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18062 integer(IK) , intent(out) , contiguous :: sindex(:)
18063 integer(IK) , intent(out) :: neval
18064 integer(IK) , intent(out) :: nint
18065 integer(IK) :: err
18066 end function
18067#endif
18068
18069#if RK3_ENABLED
18070 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18072 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18073#endif
18074 use pm_kind, only: RKG => RK3
18075 procedure(real(RKG)) :: getFunc
18076 type(ninf_type) , intent(in) :: lb
18077 type(pinf_type) , intent(in) :: ub
18078 real(RKG) , intent(in) :: abstol
18079 real(RKG) , intent(in) :: reltol
18080 type(GK61_type) , intent(in) :: qrule
18081 type(wcauchy_type) , intent(in) :: help
18082 real(RKG) , intent(out) :: integral, abserr
18083 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18084 integer(IK) , intent(out) , contiguous :: sindex(:)
18085 integer(IK) , intent(out) :: neval
18086 integer(IK) , intent(out) :: nint
18087 integer(IK) :: err
18088 end function
18089#endif
18090
18091#if RK2_ENABLED
18092 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18094 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18095#endif
18096 use pm_kind, only: RKG => RK2
18097 procedure(real(RKG)) :: getFunc
18098 type(ninf_type) , intent(in) :: lb
18099 type(pinf_type) , intent(in) :: ub
18100 real(RKG) , intent(in) :: abstol
18101 real(RKG) , intent(in) :: reltol
18102 type(GK61_type) , intent(in) :: qrule
18103 type(wcauchy_type) , intent(in) :: help
18104 real(RKG) , intent(out) :: integral, abserr
18105 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18106 integer(IK) , intent(out) , contiguous :: sindex(:)
18107 integer(IK) , intent(out) :: neval
18108 integer(IK) , intent(out) :: nint
18109 integer(IK) :: err
18110 end function
18111#endif
18112
18113#if RK1_ENABLED
18114 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18116 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18117#endif
18118 use pm_kind, only: RKG => RK1
18119 procedure(real(RKG)) :: getFunc
18120 type(ninf_type) , intent(in) :: lb
18121 type(pinf_type) , intent(in) :: ub
18122 real(RKG) , intent(in) :: abstol
18123 real(RKG) , intent(in) :: reltol
18124 type(GK61_type) , intent(in) :: qrule
18125 type(wcauchy_type) , intent(in) :: help
18126 real(RKG) , intent(out) :: integral, abserr
18127 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18128 integer(IK) , intent(out) , contiguous :: sindex(:)
18129 integer(IK) , intent(out) :: neval
18130 integer(IK) , intent(out) :: nint
18131 integer(IK) :: err
18132 end function
18133#endif
18134
18135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18136
18137#if RK5_ENABLED
18138 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18140 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18141#endif
18142 use pm_kind, only: RKG => RK5
18143 procedure(real(RKG)) :: getFunc
18144 type(ninf_type) , intent(in) :: lb
18145 type(pinf_type) , intent(in) :: ub
18146 real(RKG) , intent(in) :: abstol
18147 real(RKG) , intent(in) :: reltol
18148 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18149 type(wcauchy_type) , intent(in) :: help
18150 real(RKG) , intent(out) :: integral, abserr
18151 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18152 integer(IK) , intent(out) , contiguous :: sindex(:)
18153 integer(IK) , intent(out) :: neval
18154 integer(IK) , intent(out) :: nint
18155 integer(IK) :: err
18156 end function
18157#endif
18158
18159#if RK4_ENABLED
18160 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18162 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18163#endif
18164 use pm_kind, only: RKG => RK4
18165 procedure(real(RKG)) :: getFunc
18166 type(ninf_type) , intent(in) :: lb
18167 type(pinf_type) , intent(in) :: ub
18168 real(RKG) , intent(in) :: abstol
18169 real(RKG) , intent(in) :: reltol
18170 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18171 type(wcauchy_type) , intent(in) :: help
18172 real(RKG) , intent(out) :: integral, abserr
18173 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18174 integer(IK) , intent(out) , contiguous :: sindex(:)
18175 integer(IK) , intent(out) :: neval
18176 integer(IK) , intent(out) :: nint
18177 integer(IK) :: err
18178 end function
18179#endif
18180
18181#if RK3_ENABLED
18182 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18184 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18185#endif
18186 use pm_kind, only: RKG => RK3
18187 procedure(real(RKG)) :: getFunc
18188 type(ninf_type) , intent(in) :: lb
18189 type(pinf_type) , intent(in) :: ub
18190 real(RKG) , intent(in) :: abstol
18191 real(RKG) , intent(in) :: reltol
18192 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18193 type(wcauchy_type) , intent(in) :: help
18194 real(RKG) , intent(out) :: integral, abserr
18195 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18196 integer(IK) , intent(out) , contiguous :: sindex(:)
18197 integer(IK) , intent(out) :: neval
18198 integer(IK) , intent(out) :: nint
18199 integer(IK) :: err
18200 end function
18201#endif
18202
18203#if RK2_ENABLED
18204 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18206 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18207#endif
18208 use pm_kind, only: RKG => RK2
18209 procedure(real(RKG)) :: getFunc
18210 type(ninf_type) , intent(in) :: lb
18211 type(pinf_type) , intent(in) :: ub
18212 real(RKG) , intent(in) :: abstol
18213 real(RKG) , intent(in) :: reltol
18214 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18215 type(wcauchy_type) , intent(in) :: help
18216 real(RKG) , intent(out) :: integral, abserr
18217 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18218 integer(IK) , intent(out) , contiguous :: sindex(:)
18219 integer(IK) , intent(out) :: neval
18220 integer(IK) , intent(out) :: nint
18221 integer(IK) :: err
18222 end function
18223#endif
18224
18225#if RK1_ENABLED
18226 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18228 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18229#endif
18230 use pm_kind, only: RKG => RK1
18231 procedure(real(RKG)) :: getFunc
18232 type(ninf_type) , intent(in) :: lb
18233 type(pinf_type) , intent(in) :: ub
18234 real(RKG) , intent(in) :: abstol
18235 real(RKG) , intent(in) :: reltol
18236 real(RKG) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18237 type(wcauchy_type) , intent(in) :: help
18238 real(RKG) , intent(out) :: integral, abserr
18239 real(RKG) , intent(out) , contiguous :: sinfo(:,:)
18240 integer(IK) , intent(out) , contiguous :: sindex(:)
18241 integer(IK) , intent(out) :: neval
18242 integer(IK) , intent(out) :: nint
18243 integer(IK) :: err
18244 end function
18245#endif
18246
18247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18248
18249 end interface
18250
18251!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18252
18253end module pm_quadPack
pm_quadPack::getQuadErr
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Definition: pm_quadPack.F90:5643
pm_quadPack::getQuadGK
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Definition: pm_quadPack.F90:2272
pm_quadPack::isFailedQuad
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Definition: pm_quadPack.F90:4989
pm_quadPack::setChebExpan
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Definition: pm_quadPack.F90:4838
pm_quadPack::setErrSorted
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Definition: pm_quadPack.F90:4712
pm_quadPack::setNodeWeightGK
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Definition: pm_quadPack.F90:2036
pm_quadPack::setSeqLimEps
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
Definition: pm_quadPack.F90:4599
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::RKB
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:1371
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_mathConst
This module contains relevant mathematical constants.
Definition: pm_mathConst.F90:36
pm_mathConst::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_mathConst.F90:42
pm_mathConst::ninf
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
Definition: pm_mathConst.F90:423
pm_mathConst::pinf
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
Definition: pm_mathConst.F90:470
pm_quadPack
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
Definition: pm_quadPack.F90:141
pm_quadPack::weightG30
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1841
pm_quadPack::nodeG25
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1552
pm_quadPack::MAXLEN_EPSTAB
integer(IK), parameter MAXLEN_EPSTAB
The scalar integer of default kind IK, containing the maximum size of the Table of Epsilon algorithm.
Definition: pm_quadPack.F90:4501
pm_quadPack::weightK41
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1431
pm_quadPack::weightK31
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1202
pm_quadPack::nodeK41
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1386
pm_quadPack::nodeG15
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1098
pm_quadPack::nodeG30
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1802
pm_quadPack::nodeK15
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:754
pm_quadPack::weightK21
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:987
pm_quadPack::nodeK61
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1880
pm_quadPack::nodeK31
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1162
pm_quadPack::nodeG7
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:698
pm_quadPack::GK31
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1074
pm_quadPack::weightG10
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:923
pm_quadPack::weightG25
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1589
pm_quadPack::GK51
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1528
pm_quadPack::nodeK21
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:952
pm_quadPack::weightK15
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:786
pm_quadPack::weightG7
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:726
pm_quadPack::weps
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
Definition: pm_quadPack.F90:4551
pm_quadPack::weightK51
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1676
pm_quadPack::weightG20
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1352
pm_quadPack::nodeK51
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1626
pm_quadPack::GK61
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1778
pm_quadPack::GK21
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:870
pm_quadPack::nodeG10
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:894
pm_quadPack::weightK61
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1935
pm_quadPack::weightG15
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1130
pm_quadPack::GK15
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
Definition: pm_quadPack.F90:674
pm_quadPack::nodeG20
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1318
pm_quadPack::GK41
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1294
pm_mathConst::ninf_type
This is the indicator type for generating instances of objects that indicate the use of the negative ...
Definition: pm_mathConst.F90:406
pm_mathConst::pinf_type
This is the indicator type for generating instances of objects that indicate the use of the positive ...
Definition: pm_mathConst.F90:453
pm_quadPack::GK15_type
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
Definition: pm_quadPack.F90:645
pm_quadPack::GK21_type
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
Definition: pm_quadPack.F90:840
pm_quadPack::GK31_type
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
Definition: pm_quadPack.F90:1044
pm_quadPack::GK41_type
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
Definition: pm_quadPack.F90:1264
pm_quadPack::GK51_type
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
Definition: pm_quadPack.F90:1498
pm_quadPack::GK61_type
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
Definition: pm_quadPack.F90:1748
pm_quadPack::wcauchy_type
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
Definition: pm_quadPack.F90:193
pm_quadPack::wcos_type
This is the derived type for constructing objects that signify the computation of the integral of an ...
Definition: pm_quadPack.F90:497
pm_quadPack::weps_type
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
Definition: pm_quadPack.F90:4530
pm_quadPack::wsin_type
This is the derived type for constructing objects that signify the computation of the integral of an ...
Definition: pm_quadPack.F90:345